prompt 正在生成住院收费相关的存储过程... PROMPT 01、病人入院登记的存储过程 SP_ZY_BRRYDJ CREATE OR REPLACE PROCEDURE SP_ZY_BRRYDJ ( ad_BRID00 IN NUMBER, --病人ID as_MRN000 IN CHAR, --病案号 as_ZYH000 IN CHAR, --住院号 as_YBZYH0 IN CHAR, --医保生成的住院流水号 as_XM0000 IN CHAR, --病人姓名 as_XB0000 IN CHAR, --性别 as_CSRQ00 IN CHAR, --出生日期 ad_FBBH00 IN NUMBER, --病人费别 as_RYRQ00 IN CHAR, --入院日期 as_RYSJ00 IN CHAR, --入院时间 ad_RYCZY0 IN NUMBER, --入院操作员工号 as_CZYXM0 IN CHAR, --入院操作员姓名 as_RYZD00 IN VARCHAR2, --入院诊断 as_RYSQK0 IN CHAR, --入院时情况(危、急、一般) as_RYLB00 IN CHAR, --入院、住院类别,医保接口使用,(普通或家庭病床等) as_RYBQMC IN CHAR, --入住病区名称 as_RZKSMC IN CHAR, --入住科室名称 as_RYCWH0 IN CHAR, --病人住院床号 as_BRZT00 IN CHAR, --病人入院状态,正常入院或预约入院 ad_ZZYS00 IN NUMBER, --主治医生员工号 as_ZZYSXM IN CHAR, --主治医生姓名 ad_ZRYS00 IN NUMBER, --主任医生员工号 as_ZRYSXM IN CHAR, --主任医生姓名 ad_SXYS00 IN NUMBER, --实习医生员工号 as_SXYSXM IN CHAR, --实习医生员姓名 as_JFBZ00 IN CHAR, --病人是否交费标志,'0':不交费,'1':交费 as_JFLBMC IN CHAR, --账户类别、或称为交费类别 ad_XJYE00 IN NUMBER, --病人现金金额 ad_ZZYE00 IN NUMBER, --病人转账金额 as_ZFFSMC IN CHAR, --支付方式 as_ZPH000 IN CHAR, --支票号 as_ZPKHYH IN CHAR, --出票的开户银行 as_ZPDWMC IN CHAR, --出票单位/出票人 as_YJJXH0 IN CHAR, --住院预交金票据号 as_BRRYCS IN CHAR, --入院次数 ad_YZCS00 IN NUMBER, --历史已住院次数 ad_YZYBJE IN NUMBER, --历史已住院的医保统筹支付金额 ad_SZYS00 IN NUMBER default 0, --收治医生 as_RYZDMC IN VARCHAR default NULL, --入院诊断名称 as_YBZFRY IN CHAR default 'N', --医保是否按自费入院 ad_BRMZ00 in char, --病人民族 ad_BRGJ00 in char, --病人国籍 ad_TBZX00 in char, --投保中心 ad_ZJHM00 in char, --证件编号 ad_DWMC00 in char, --单位名称 ad_LXR000 in char, --联系人 ad_BRLXDH in char, --病人联系电话 ad_BRJTDZ IN VARCHAR2, --病人家庭地址 as_GSDJH0 IN CHAR, --工伤登记号 ad_ZYID00 OUT NUMBER, --病人住院ID ad_PJH000 OUT NUMBER, --打印票据的内部号 as_YHMSG0 OUT VARCHAR, --存储过程提示的错误信息 as_SYSMSG OUT VARCHAR --系统提示的错误信息 ) as ls_PJH000 ZY_PJSYQK.PJH000%TYPE; --票据使用情况流水号 ls_JFLBID BM_BRJFLB.JFLBID%TYPE; --病人交费类别ID ls_ZFFSBH BM_BRZFFS.ZFFSBH%TYPE; --病人支付方式编码 ls_ZYE000 ZY_BRZHXX.ZYE000%TYPE; ls_TMPZYE ZY_BRZHXX.ZYE000%TYPE; ls_ZJE000 ZY_BRJFB0.JFJE00%TYPE; ls_ZZYE00 ZY_BRJFB0.JFJE00%TYPE; --转帐金额 ls_YHKJE0 ZY_BRJFB0.JFJE00%TYPE; --银行卡金额 ls_ZYZHID ZY_BRZHXX.ZYZHID%TYPE; ls_SFDJ00 ZY_BRZHXX.SFDJ00%TYPE; ls_COUNT0 NUMBER(10); ls_RYRQ00 ZY_BRXXB0.RYRQ00%TYPE; ls_RYBQ00 ZY_BRXXB0.RYBQ00%TYPE; --入住病区 ls_RZKS00 ZY_BRXXB0.RZKS00%TYPE; --入住科室 ls_YJXX00 BM_BMBM00.YJXX00%TYPE; --预缴金下限，第一次预缴金的下限(病区押金下限) ls_CKXX00 BM_BMBM00.CKXX00%TYPE; --催款下限，病区提示催款的下限 ls_JZXX00 BM_BMBM00.JZXX00%TYPE; --记账下限，病区病人实际余额的下限 ls_YBQFBZ BM_YBBRLB.YBQFBZ%TYPE; --病人类别所对应的预交金的限额 ls_CZRQ00 CHAR(8); ls_CZSJ00 CHAR(8); ls_BRLXDZ1 char(2); ls_BRLXDZ BM_BRXXB0.BRLXDZ%TYPE; ls_YBLB00 char(2); -- MODIFICATION HISTORY -- Person Date Comments -- jlg 2007.06.18 增加厦门工伤社保病人处理 ; -- xzw 2007.09.03 入院时判断是否在有效天数内改成按时间点来算 -- qks 2008.08.19 取ls_YBLB00值时原条件YBMC00=ad_TBZX00改为(YBMC00=ad_TBZX00 or (YBMC00='自费' and ad_TBZX00='非医保')) ZYSF-20080818-001 -- zhr 2008.08.31 BM_YBLB00的值直接通过触发器取自BM_BRXXB0 ZYSF-20080830-002 -- zhr 2009.04.22 医保病人允许欠费，但新农合病人除外 BEGIN ls_JFLBID:= 2 ; --默认是住院预交金账户 ls_ZFFSBH:= 1 ; ad_PJH000:= 0 ; --先初始化 ls_TMPZYE:= 0 ; ls_CZRQ00 := to_char(sysdate,'YYYYMMDD'); ls_CZSJ00 := to_char(sysdate,'HH24:MI:SS'); ls_YHKJE0 := 0; --银行卡金额 ls_ZZYE00 := ad_ZZYE00; --病案号不允许为空 IF (trim(as_MRN000)='') or (trim(as_MRN000)='0') THEN as_YHMSG0:='警告:病人病案号必须填写，登记失败,请重新输入！'; as_SYSMSG:=SQLERRM; ROLLBACK; RETURN; END IF; ls_RYRQ00:= ls_CZRQ00; --as_RYSJ00:= ls_CZSJ00; --因为可能前台的时间与数据库的时间不一致会导致问题，现在改成与数据库日期一致。 if (ls_RYRQ00 < as_RYRQ00) and ( as_BRZT00 <> '0' ) then --若病人不是预约入院 as_YHMSG0:='您所输入的病人的入院日期大于系统日期,入院登记失败,请重新输入病人的入院日期!'; as_SYSMSG:=SQLERRM||'系统日期:'||ls_RYRQ00; ROLLBACK; RETURN; end if; --要求病人住院必须从门诊进行申请后，才能住院 2006.07.04 select count(*) into ls_COUNT0 from XT_XTCS00 where NAME00='ZY_ZYSFMZSQ' and VALUE0='1'; if ls_COUNT0 > 0 then select count(*) into ls_COUNT0 from SF_BRXXB0 where BRID00=ad_BRID00 and GHRQ00||GHSJ00>to_char(sysdate-ghyxts,'YYYYMMDDHH24:MI:SS') and THRQ00 is null; --select count(*) into ls_COUNT0 from YS_BRZYSQ where BRID00=ad_BRID00 and JSBZ00='0'; if ls_COUNT0=0 then --48小时内再次入院的，不需要经过门诊申请 select count(*) into ls_COUNT0 from ZY_BRXXB0 where BRID00=ad_BRID00 and CYRQ00>=to_char(sysdate-2,'YYYYMMDD'); if ls_COUNT0=0 then as_YHMSG0:='病人必须通过门诊申请才能住院!'; as_SYSMSG:=SQLERRM; ROLLBACK; RETURN; end if; end if; end if; --先判断病人是否是在院病人,若是,提示不能入院 select count(*) into ls_COUNT0 from ZY_BRXXB0 where BRID00 = ad_BRID00 and CYRQ00 is null; --未出院 if ls_COUNT0 > 0 then as_YHMSG0:='在院病人,不能重复入院!'; as_SYSMSG:=SQLERRM; ROLLBACK; RETURN; end if; BEGIN select BMBH00,NVL(YJXX00,0),NVL(CKXX00,0),NVL(JZXX00,0) into ls_RYBQ00,ls_YJXX00,ls_CKXX00,ls_JZXX00 from BM_BMBM00 where BMMC00 = as_RYBQMC and BMXZ00 = '9'; EXCEPTION WHEN OTHERS THEN as_YHMSG0:='记录重复,对应同一个部门名称,系统出现多条记录!'; as_SYSMSG:=SQLERRM||'select * from BM_BMBM00 where BMMC00='||as_RYBQMC; ROLLBACK; RETURN; END; BEGIN select BMBH00 into ls_RZKS00 from BM_BQKS00 B,BM_BMBM00 C where B.KSH000 = C.BMBH00 and B.BQH000 = ls_RYBQ00 and BMMC00 = as_RZKSMC; EXCEPTION WHEN OTHERS THEN as_YHMSG0:='记录重复,对应同一个部门名称,系统出现多条记录!'; as_SYSMSG:=SQLERRM||'select * from BM_BQKS00 B,BM_BMBM00 C where B.KSH000=C.BMBH00 and B.BQH000='||to_char(ls_RYBQ00)||'and BMMC00='||as_RZKSMC; ROLLBACK; RETURN; END; --判断医保中心对应的医保的编号 BEGIN select B.YBQFBZ into ls_YBQFBZ from BM_BRXXB0 A,BM_YBBRLB B,IC_YBBRLB C where A.YBLB00 = C.YBLB00 and C.YBZXLB = B.YBZXLB and A.YBBRLB = B.YBBRLB and A.FBBH00 = C.FBBH00 and B.FBBH00 = C.FBBH00 and A.BRID00 = ad_BRID00; EXCEPTION WHEN NO_DATA_FOUND THEN as_YHMSG0:='病人的基本信息不完整!请核对病人的基本信息或字典表的内容！'; as_SYSMSG:=SQLERRM||'Not exists(select * from BM_BRXXB0 A,BM_YBBRLB B,IC_YBBRLB C where A.YBLB00 = C.YBLB00 and C.YBZXLB = B.YBZXLB and A.YBBRLB = B.YBBRLB and A.FBBH00 = C.FBBH00 and B.FBBH00 = C.FBBH00 and A.BRID00='||to_char(ad_BRID00); ROLLBACK; RETURN; END; --若病人没有收费,要判断病人账户的预交金金额是否足够,否则,提示用户要交费 IF as_JFBZ00 = '0' THEN --若病人没有交费 BEGIN select NVL(ZYE000,0) into ls_TMPZYE from ZY_BRZHXX where BRID00 = ad_BRID00 and JFLBID = 2 ; EXCEPTION WHEN NO_DATA_FOUND THEN ls_TMPZYE:=0; ls_YBQFBZ:=0; --若病人没有交预交金,没有必要再限制病人预交金 ls_YJXX00:=0; --科室限额重置为0 Insert into zy_brzhxx(ZYZHID,JFLBID,BRID00,SFDJ00,KHRQ00,KHSJ00, CZYBH0,CZYXM0,XJYE00,ZZYE00,ZYE000,YKZYE0,BJJE00,TYJE00,YXQFJE,YZCS00,YZYBJE) values(SQ_ZY_BRZHXX_ZHYEID.nextval,2,ad_BRID00,'0',ls_CZRQ00,ls_CZSJ00, ad_RYCZY0,as_CZYXM0,0,0,0,0,0,0,0,ad_YZCS00,ad_YZYBJE); END; END IF; --IF (ls_TMPZYE + ad_XJYE00 + ad_ZZYE00) < ls_YBQFBZ THEN -- as_YHMSG0:='操作失败，病人的交费金额小于该类别的病人所设定的限额,请重新输入病人的交费金额!'; -- as_SYSMSG:='该类别的病人所设定的限额最少应该为:'||to_char(ls_YBQFBZ); -- ROLLBACK; -- RETURN; --END IF; IF (ls_TMPZYE +ad_ZZYE00 + ad_XJYE00) < ls_YJXX00 THEN as_YHMSG0:='病人的预交金账户的余额小于该入院病区的预缴金下限，请重新输入病人交费金额!'; as_SYSMSG:=SQLERRM; ROLLBACK; RETURN; END IF; begin select trim(value0) into ls_BRLXDZ1 from xt_xtcs00 where name00='ZY_SFYTXBRLXDZ'; EXCEPTION WHEN NO_DATA_FOUND THEN ls_BRLXDZ1:='N'; end; SELECT BRLXDZ INTO ls_BRLXDZ FROM BM_BRXXB0 WHERE BRID00=ad_BRID00; IF (trim(ls_BRLXDZ) IS NULL) and (ls_BRLXDZ1='Y') then as_YHMSG0:='病人联系地址没有填写，请写完再登记住院!'; as_SYSMSG:=''; ROLLBACK; RETURN; END IF; /* 2008-08-31 ZHR 直接通过触发器取BM_BRXXB0的值 begin SELECT YBLB00 INTO ls_YBLB00 FROM IC_YBBRLB WHERE (YBMC00=ad_TBZX00 or (YBMC00='自费' and ad_TBZX00='非医保')); EXCEPTION WHEN NO_DATA_FOUND THEN as_YHMSG0:='投保中心填写的不正确,请重新输入！'; as_SYSMSG:=''; ROLLBACK; RETURN; END; */ Update BM_BRXXB0 set BRXM00 = as_XM0000, BRXB00 = as_XB0000, BRCSRQ = as_CSRQ00, BRMZ00 = ad_BRMZ00, BRGJ00 = ad_BRGJ00, BRDH00 = ad_BRLXDH, BRLXXM = ad_LXR000, BRZJBH = ad_ZJHM00, TYDWMC = ad_DWMC00, -- YBLB00 = ls_YBLB00, BRJTDZ = ad_BRJTDZ where BRID00 = ad_BRID00; select SQ_ZY_BRXXB0_ZYID00.nextval into ad_ZYID00 from dual; insert into ZY_BRXXB0(ZYID00,BRID00,MRN000,ZYH000,YBZYH0,XM0000,XB0000,CSRQ00,FBBH00,RYRQ00,RYSJ00,RYCZY0,CZYXM0, RYZD00,RYSQK0,RYBQ00,RZKS00,RYCWH0,DQBQ00,DQKS00,ZZYS00,ZZYSXM,ZRYS00,ZRYSXM,SXYS00,SXYSXM,BRRYCS,BRZT00,RYLB00,SZYS00,RYZDMC,GSDJH0) values(ad_ZYID00,ad_BRID00,as_MRN000,as_ZYH000,as_YBZYH0,as_XM0000,as_XB0000,as_CSRQ00,ad_FBBH00,as_RYRQ00,ls_CZSJ00,ad_RYCZY0,as_CZYXM0, as_RYZD00,as_RYSQK0,ls_RYBQ00,ls_RZKS00,as_RYCWH0,ls_RYBQ00,ls_RZKS00,ad_ZZYS00,as_ZZYSXM,ad_ZRYS00,as_ZRYSXM,ad_SXYS00,as_SXYSXM,as_BRRYCS,as_BRZT00,as_RYLB00,ad_SZYS00,as_RYZDMC,as_GSDJH0); --由于住院号可以修改，所以还应该判断在院病人中，住院号是否有重复 select count(*) into ls_COUNT0 from ZY_BRXXB0 where ZYH000 = as_ZYH000 --and CYRQ00 is null; --未出院 and BRID00<>ad_BRID00 and XM0000<>as_XM0000; if ls_COUNT0 > 1 then as_YHMSG0:='住院号重复:您所输入的住院号已被其它病人所使用,请重新输入住院号！'; as_SYSMSG:=SQLERRM; ROLLBACK; RETURN; end if; --判断病人的病历号是否重复 select Count(*) into ls_COUNT0 from BM_BRXXB0 where MRN000 = as_MRN000 AND BRID00<>ad_BRID00 and as_MRN000<>'0'; IF ls_COUNT0 > 0 THEN select 'BRID00='||to_char(brid00) into as_YHMSG0 from BM_BRXXB0 where MRN000 = as_MRN000 AND BRID00<>ad_BRID00 and rownum=1; as_YHMSG0:='警告:您所输入的病人病案号与其它病人('||as_YHMSG0||')的病案号重复，登记失败,请重新输入！'; as_SYSMSG:=SQLERRM; ROLLBACK; RETURN; END IF; Update BM_BRXXB0 set ZYZT00 = '1',MRN000 = as_MRN000 where BRID00 = ad_BRID00; --将病人的状态改为在院 IF as_JFBZ00 = '1' THEN --若病人有交费,还应该添加病人的交费信息 BEGIN select JFLBID into ls_JFLBID from BM_BRJFLB where JFLBMC = as_JFLBMC; select ZFFSBH into ls_ZFFSBH from BM_BRZFFS where ZFFSMC = as_ZFFSMC; EXCEPTION WHEN NO_DATA_FOUND THEN as_YHMSG0:='病人支付方式不存在或病人交费类别不存在！'; as_SYSMSG:=SQLERRM||'JFLBMC='||as_JFLBMC||';ZFFSMC='||as_ZFFSMC; ROLLBACK; RETURN; END; if ls_ZFFSBH = 8 then ls_YHKJE0 := ad_ZZYE00; ls_ZZYE00 := 0; end if; ls_ZJE000:=ad_XJYE00+ad_ZZYE00; select SQ_ZY_PJSYQK_PJH000.nextval into ls_PJH000 from dual; --0、判断该类病人的账户信息是否存在,若不存在，应该添加该病人的账户信息 BEGIN select ZYZHID,SFDJ00 into ls_ZYZHID,ls_SFDJ00 from ZY_BRZHXX where BRID00 = ad_BRID00 and JFLBID = ls_JFLBID; EXCEPTION WHEN NO_DATA_FOUND THEN --设置病人的账户信息 Insert into ZY_BRZHXX(ZYZHID,JFLBID,BRID00,SFDJ00,KHRQ00,KHSJ00, CZYBH0,CZYXM0,XJYE00,ZZYE00,ZYE000,YKZYE0,BJJE00,TYJE00,YXQFJE,YZCS00,YZYBJE) values(SQ_ZY_BRZHXX_ZHYEID.nextval,ls_JFLBID,ad_BRID00,'0',ls_CZRQ00,ls_CZSJ00, ad_RYCZY0,as_CZYXM0,0,0,0,0,0,0,0,ad_YZCS00,ad_YZYBJE); END; --1、添加病人交费记录，对于病人余额的修改在触发器中修改 select SQ_ZY_BRJFB0_DJH000.nextval into ad_PJH000 from dual; Insert into ZY_BRJFB0(DJH000,BRID00,JFLBID,JFJE00,ZFFS00,ZFFSMC,ZPH000,ZPKHYH,ZPDWMC,PJH000, JFRQ00,JFSJ00,JFCZY0,CZYXM0,BRYE00,JFBZ00,JKBID0) values(ad_PJH000,ad_BRID00,ls_JFLBID,ls_ZJE000,ls_ZFFSBH,as_ZFFSMC,as_ZPH000,as_ZPKHYH,as_ZPDWMC,ls_PJH000, ls_CZRQ00,ls_CZSJ00,ad_RYCZY0,as_CZYXM0,0,'0',0); --2、添加票据使用情况 Insert into ZY_PJSYQK(PJH000,PLBH00,PLMC00,PJXH00,XJJE00,ZZJE00,YHKJE0,CZY000,CZYXM0,DYRQ00,DYSJ00,SFDY00,PJZT00,XM0000,XB0000) select ls_PJH000,PLBH00,PLMC00,as_YJJXH0,ad_XJYE00,ls_ZZYE00,ls_YHKJE0,ad_RYCZY0,as_CZYXM0, ls_CZRQ00,ls_CZSJ00,'Y','0',as_XM0000,as_XB0000 from BM_PJLXB0 where PLBH00 = 8 ; --注意:=8才是住院交预交金票据 if SQL%NOTFOUND then as_YHMSG0:='系统字典不完整,所需的票据类型不存在,操作失败!'; as_SYSMSG:=SQLERRM||'票据类型不存在: Not exists(select * from bm_pjlxb0 where PLBH00 = 8)'; ROLLBACK; RETURN; end if; END IF; Update ZY_BRZHXX set BJJE00 = ls_CKXX00, --报警限额 TYJE00 = ls_JZXX00 --停用限额 where BRID00 = ad_BRID00 and JFLBID = ls_JFLBID ;--and ZYE000 <> 0 ; Update ZY_BRZHXX set SFDJ00 = '0' , --恢复账户的状态为有效 THRQ00 = null, --停户日期 THSJ00 = null, --停户时间 THCZY0 = null, --停户操作员 THCZYM = null, YBZHYE = 0, YBYJS0 = 0, YBYZF0 = 0, YBTCJE = 0, YBZFJE = 0, YZCS00 = ad_YZCS00, YZYBJE = ad_YZYBJE where BRID00 = ad_BRID00 and JFLBID = ls_JFLBID ; --有些医院要求医保病人允许欠费，但新农合病人除外 if ad_FBBH00=3 then select to_number(nvl(max(trim(Value0)),'0')) into ls_COUNT0 from xt_xtcs00 where name00='ZY_YXYBBRQFJE' ; if ls_COUNT0>0 then update zy_brzhxx set tyje00=-1*ls_COUNT0 where brid00=ad_BRID00 and sfdj00='0' and exists (select 1 from ZY_BRXXB0 where ZYID00=ad_ZYID00 and YBLB00<>'@'); end if; end if; --Update 门诊医生所填写的住院申请表 if ad_SZYS00=0 then Update ZY_BRXXB0 set SZYS00=(select YSGZH0 from YS_BRZYSQ b where ZYSQID=(select max(ZYSQID) from YS_BRZYSQ where BRID00 = ad_BRID00 and JSBZ00='0' )) where ZYID00=ad_ZYID00 and BRID00 in (select BRID00 from YS_BRZYSQ b where BRID00 = ad_BRID00 and JSBZ00='0'); end if; if ad_SZYS00<>0 then Update YS_BRZYSQ set jsbz00 = '1',YSGZH0=ad_SZYS00 where BRID00 = ad_BRID00; else Update YS_BRZYSQ set jsbz00 = '1' where BRID00 = ad_BRID00; end if; --将该住院号作废掉 --delete xt_getseq where NAME00 = 'ZYH000' and VALUE0 = as_ZYH000; --本处不加COMMIT,放在Delphi中操作,主要出于医保接口考虑 if as_YBZFRY='Y' then --福清医院医保可选择按自费入院,即入院时修改费别为自费 Update BM_BRXXB0 set FBBH00 = 1, --费别编号 YBKH00 = '0', --医保卡号 YBID00 = '0', --医保ID YBLB00 = '0', --医保类别编号 YBBRLB = '0' where BRID00 = ad_BRID00; Update ZY_BRXXB0 set FBBH00 = 1, --费别名称 YBZYCS = 0, --病人住院次数 YBZYH0 = '0', --医保住院流水号 YBLB00 = '0', --医保类别编号 YBBRLB = '0' where BRID00 = ad_BRID00 and ZYID00 = ad_ZYID00; end if; EXCEPTION WHEN NO_DATA_FOUND THEN as_YHMSG0:='您所输入的病人的入住病区或入住科室不存在，请重新输入!'; as_SYSMSG:=SQLERRM; ROLLBACK; WHEN OTHERS THEN as_YHMSG0:='出错原因未知！请记录此信息并和系统管理员联系！'; as_SYSMSG:=substr(SQLERRM||'执行存储过程错误: SP_ZY_BRRYDJ('||to_char(ad_BRID00)||','||as_MRN000||','||as_ZYH000||','||as_YBZYH0||','|| as_XM0000||','||as_XB0000||','||as_CSRQ00||','||to_char(ad_FBBH00)||','||as_RYRQ00||','||ls_CZSJ00||','||to_char(ad_RYCZY0)||','|| as_CZYXM0||','||as_RYZD00||','||as_RYSQK0||','||as_RYLB00||','||as_RYBQMC||','||as_RZKSMC||','||as_RYCWH0||','||as_BRZT00||','|| to_char(ad_ZZYS00)||','||as_ZZYSXM||','||to_char(ad_ZRYS00)||','||as_ZRYSXM||','||to_char(ad_SXYS00)||','||as_SXYSXM||','|| as_JFBZ00||','||as_JFLBMC||','||to_char(ad_XJYE00)||','||to_char(ad_ZZYE00)||','||as_ZFFSMC||','||as_ZPH000||','||as_ZPKHYH||','|| as_ZPDWMC||','||as_YJJXH0||','||as_BRRYCS||',ad_ZYID00,ad_PJH000,as_YHMSG0,as_SYSMSG)',1,150); ROLLBACK; END; / show error;