-- Start of DDL Script for Procedure SD_HOSPITAL.SP_ZY_GJHXJSJSCSSSJ
-- Generated 24-四月-2025 16:07:11 from SD_HOSPITAL@YLZHIS_NEW

CREATE OR REPLACE 
PROCEDURE sp_zy_gjhxjsjscsssj
(
  PLSH000        in   number
)
as
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- shieq       2023.06.02   ZYDZBL-20230506-004  根据创呼吸机使用时间，生成对应的操作
-- shieq       2023.12.27   ZYDZBL-20231226-004  BQ_YJYZ00改为费用表zy_fymx00判断
-- lisuzhu     2025.02.24   解决空数据异常 for ZYDZBL-20250221-005
vCount number(2);
vHXJSJ0 number(6);
begin

    select max(HXJSJ0) into vHXJSJ0 from BA_BRZYXX where LSH000=PLSH000 ;
    if (vHXJSJ0 is not null and vHXJSJ0>0) then

       select count(1) into vCount from  ZY_FYMX00 where XMMC00 like '%气管插管术%' and ZYID00=PLSH000
       and not exists(select 1 from BA_BRSSXX where LSH000=PLSH000 and ssm000='96.0400');
       if(vCount >0) then
           insert into BA_BRSSXX
                (
                  LSH000,SSXH00,
                  SSLB00,SSM000, SSMC00, SSRQ00,SSSJ00,
                  SSZL00,SSYS00, IYS000,IIYS00,MZFS00, MZYS00,QKYHDJ
                 )
                 select PLSH000,(select nvl(max(SSXH00),0)+1 from BA_BRSSXX where LSH000=PLSH000 ) SSXH00 ,
                 '0', '96.0400', (select SSMC00 from XT_CM3000 where CM3000='96.0400' and rownum <=1 ) SSMC00,
/*                 (select nvl( min(QYRQ00),to_char(sysdate, 'YYYYMMDD')) from  BQ_YJYZ00 where ZLXMJC like '%气管插管术(经口插管)%' and ZYID00=PLSH000) SSRQ00,
                 (select nvl( min(QYSJ00),to_char(sysdate,'HH24:MI:SS'))  from  BQ_YJYZ00 where ZLXMJC like '%气管插管术(经口插管)%' and ZYID00=PLSH000) SSSJ00,*/
                 (select nvl( min(CZRQ00),to_char(sysdate, 'YYYYMMDD')) from   ZY_FYMX00 where XMMC00 like '%气管插管术%' and ZYID00=PLSH000) SSRQ00,
                 (select nvl( min(CZSJ00),to_char(sysdate,'HH24:MI:SS'))  from  ZY_FYMX00 where XMMC00 like '%气管插管术%' and ZYID00=PLSH000) SSSJ00,
                 '-', 0,0,0,'无麻醉',0,'-'
              from dual  a ;

       end if;

       select count(1) into vCount from  ZY_FYMX00 where XMMC00 like '%气管切开术%' and ZYID00=PLSH000
       and not exists(select 1 from BA_BRSSXX where LSH000=PLSH000 and ssm000='31.1x00x005');
       if(vCount >0) then
           insert into BA_BRSSXX
                (
                  LSH000,SSXH00,
                  SSLB00,SSM000, SSMC00, SSRQ00,SSSJ00,
                  SSZL00,SSYS00, IYS000,IIYS00,MZFS00, MZYS00,QKYHDJ
                 )
                 select PLSH000,(select nvl(max(SSXH00),0)+1 from BA_BRSSXX where LSH000=PLSH000 ) SSXH00 ,
                 '0', '31.1x00x005', (select SSMC00 from XT_CM3000 where CM3000='31.1x00x005' and rownum <=1 ) SSMC00,
/*                  (select nvl( min(QYRQ00),to_char(sysdate, 'YYYYMMDD'))  from  BQ_YJYZ00 where ZLXMJC like '%气管切开术%' and ZYID00=PLSH000) SSRQ00 ,
                  (select nvl( min(QYSJ00),to_char(sysdate,'HH24:MI:SS')) from  BQ_YJYZ00 where ZLXMJC like '%气管切开术%' and ZYID00=PLSH000) SSSJ00,*/
                  (select nvl( min(CZRQ00),to_char(sysdate, 'YYYYMMDD')) from   ZY_FYMX00 where XMMC00 like '%气管切开术%' and ZYID00=PLSH000) SSRQ00,
                 (select nvl( min(CZSJ00),to_char(sysdate,'HH24:MI:SS'))  from  ZY_FYMX00 where XMMC00 like '%气管切开术%' and ZYID00=PLSH000) SSSJ00,
                 '-', 0,0,0,'无麻醉',0,'-'
              from dual  ;
       end if;
       commit;

       if(vHXJSJ0>=96) then
           select count(1) into vCount from BA_BRSSXX where LSH000=PLSH000  and trim(SSM000)='96.7201';
           if(vCount =0) then
               insert into BA_BRSSXX
                (
                  LSH000,SSXH00,
                  SSLB00,SSM000, SSMC00, SSRQ00,SSSJ00,
                  SSZL00,SSYS00, IYS000,IIYS00,MZFS00, MZYS00,QKYHDJ
                 )
                 select PLSH000,(select nvl(max(SSXH00),0)+1 from BA_BRSSXX where LSH000=PLSH000 ) ,
                 '0', '96.7201', (select SSMC00 from XT_CM3000 where CM3000='96.7201' and rownum <=1 ),
                 (select nvl( min(SSRQ00),to_char(sysdate, 'YYYYMMDD')) from BA_BRSSXX where LSH000=PLSH000 ) SSRQ00 ,
                 (select nvl( min(SSSJ00),to_char(sysdate,'HH24:MI:SS')) from BA_BRSSXX where LSH000=PLSH000 ) SSSJ00,
                 '-', 0,0,0,'无麻醉',0,'-'
              from dual;
          end if;
       else
           select count(1) into vCount from BA_BRSSXX where LSH000=PLSH000  and trim(SSM000)='96.7101';
           if(vCount=0) then
               insert into BA_BRSSXX
                (
                  LSH000,SSXH00,
                  SSLB00,SSM000, SSMC00, SSRQ00,SSSJ00,
                  SSZL00,SSYS00, IYS000,IIYS00,MZFS00, MZYS00,QKYHDJ
                 )
                 select PLSH000,(select nvl(max(SSXH00),0)+1 from BA_BRSSXX where LSH000=PLSH000 ) ,
                 '0', '96.7101', (select SSMC00 from XT_CM3000 where CM3000='96.7101' and rownum <=1 ),
                 (select nvl( min(SSRQ00),to_char(sysdate, 'YYYYMMDD')) from BA_BRSSXX where LSH000=PLSH000 ) SSRQ00 ,
                 (select nvl( min(SSSJ00),to_char(sysdate,'HH24:MI:SS')) from BA_BRSSXX where LSH000=PLSH000 ) SSSJ00,
                 '-', 0,0,0,'无麻醉',0,'-'
              from  dual;
          end if;
       end if;

       commit;


    end if;
end ;
/



-- End of DDL Script for Procedure SD_HOSPITAL.SP_ZY_GJHXJSJSCSSSJ