转入转出文书记录获取数据

```sql
CREATE OR REPLACE FUNCTION ZHUAN_KE_SPP(FiledType in varchar2,strPatientID in varchar2,strVisitId in number, strFileUqniqueId in varchar2) RETURN VARCHAR2 IS
   CURSOR Cur_ZhuanKe IS
      select rownum counter,z.* from (SELECT A.Dept_Code,A.Caption_Date_Time,a.creator_id,a.file_unique_id,a.mr_code
      FROM jhmr_file_index  A
     WHERE A.Patient_Id=strPatientID and a.visit_id=strVisitId
     And  A.Mr_Class='EMR10.00.06'
     order by A.Caption_Date_Time asc) z;
     i_counter varchar2(20);
     cur_mr_code varchar2(20);
     cur_Caption_Date_Time date;
     cur_dept varchar2(20);
     re_name varchar2(200);
     zrke   varchar2(20);
     zrsj   date;--转入时间
     zcke   varchar2(20);  
     zcsj   date; --转出时间
BEGIN

FOR C_R IN Cur_ZhuanKe LOOP
             if(c_r.file_unique_id=strFileUqniqueId) then
                  i_counter:=c_r.counter;
                  cur_mr_code:= c_r.mr_code;
                  cur_dept:=c_r.Dept_Code;
                  cur_Caption_Date_Time:=c_r.Caption_Date_Time;
                  
                  
                  end if;
             end LOOp;
     if(cur_mr_code='EMR10.00.06_1') then   --转出
                         zcke:=cur_dept;
                         zcsj:=cur_Caption_Date_Time;
         FOR C_R IN Cur_ZhuanKe LOOP
             if(c_r.counter=(i_counter+1)) then
                    zrke:= c_r.Dept_Code;
                    zrsj:=c_r.caption_date_time;

end if;
             end LOOp;
             end if;

if(cur_mr_code='EMR10.00.06_2') then   --转入
                        zrke:=cur_dept;
                         zrsj:=cur_Caption_Date_Time;
         FOR C_R IN Cur_ZhuanKe LOOP
             if(c_r.counter=(i_counter-1)) then
                    zcke:= c_r.Dept_Code;
                    zcsj:=c_r.caption_date_time;
                  end if;
             end LOOp;
             end if;

if(zrke is null) then
             select t.dept_admission_to into zrke from pat_visit t where t.patient_id=strPatientID and t.visit_id=strVisitId;
              select t.admission_date_time into zrsj from pat_visit t where t.patient_id=strPatientID and t.visit_id=strVisitId;
 
      end if;

if(zcke is null) then
             select t.dept_discharge_from into zcke from pat_visit t where t.patient_id=strPatientID and t.visit_id=strVisitId;
             select t.discharge_date_time into zcsj from pat_visit t where t.patient_id=strPatientID and t.visit_id=strVisitId;
     end if;

if(FiledType='转出科室代码') then
                        re_name :=zcke;
      end if;

if(FiledType='转入科室代码') then
                        re_name :=zrke;
      end if;

if(FiledType='转出科室名称') then
               select t.dept_name into  re_name  from dept_dict t where t.dept_code        =zcke;
      end if;

if(FiledType='转入科室名称') then
                       select t.dept_name into  re_name  from dept_dict t where t.dept_code        =zrke;
      end if;
      
      
     if(FiledType='转入时间') then
                    re_name :=to_char(zrsj,'yyyy-MM-dd HH24:MI:ss');  
      end if;
      if(FiledType='转出时间') then
                    re_name :=to_char(zcsj,'yyyy-MM-dd HH24:MI:ss');  
      end if;
  RETURN re_name;

END ZHUAN_KE_SPP;
```