-- 1、字典参数 insert into BM_TYZD00(NBBH00,ZDMC00,BH0000,MC0000,LBBZ00,BZ0000,XSXH00,YXBZ00,XTBZ00,WHBZ00) select SQ_BM_TYZD00_NBBH00.nextval,'高值耗材通用接口配置参数','GZHCJK_BAXMID','0','1','高值耗材接口,新增项目默认病案项目ID',1,'1','0','1' from dual where not exists(select 1 from BM_TYZD00 where ZDMC00='高值耗材通用接口配置参数' and BH0000='GZHCJK_BAXMID' and LBBZ00='1'); insert into BM_TYZD00(NBBH00,ZDMC00,BH0000,MC0000,LBBZ00,BZ0000,XSXH00,YXBZ00,XTBZ00,WHBZ00) select SQ_BM_TYZD00_NBBH00.nextval,'高值耗材通用接口配置参数','GZHCJK_HSXMID',' ','1','高值耗材接口,新增项目默认核算项目ID',2,'1','0','1' from dual where not exists(select 1 from BM_TYZD00 where ZDMC00='高值耗材通用接口配置参数' and BH0000='GZHCJK_HSXMID' and LBBZ00='1'); commit; --2、新增字段赋值 Vhsxmid bm_yysfxm.hsxmid%TYPE; Vbaxmid bm_yysfxm.baxmid%TYPE; begin select to_number(mc0000) into Vhsxmid from BM_TYZD00 where bh0000='GZHCJK_HSXMID' and zdmc00='高值耗材通用接口配置参数' ; exception when others then Vhsxmid:=null; end; begin select to_number(mc0000) into Vbaxmid from BM_TYZD00 where bh0000='GZHCJK_BAXMID' and zdmc00='高值耗材通用接口配置参数' ; exception when others then Vbaxmid:=null; end; --3、 TREEBH取值in_bh0000和BH0000相同,HSXMID,BAXMID走字典维护取值 insert into BM_YYSFXM (SFXMID,BMGZID,XH0000,BH0000,FLAG00,PYSM00,WBSM00,XMMC00,XMNH00,CWNR00, DW0000,BZJE00,SFJE00,FDBL00,SFXX00,SFSX00,MZFPID,ZYFPID,QYRQ00,QYSJ00, TZRQ00,TZSJ00,ZJBZ00,HSXMID,BAXMID,GG0000,SCCJ00,PZWH00,BZ0000,YYDJ00, DJXS00,ZHXMBZ,GJBM00,JSXM00,LSCL00,RSFSX0,JMJE00,FYID00,SFGZ00,XEJSXM, XGRQSJ,BKEH83,GJBZMC,ZCZH00,TREEBH,KJXMID,WDWBH0 ) values(in_sfxmid,in_bmgzid,v_xh,in_bh0000,v_flag,in_pysm00,in_wbsm00,substrb(in_xmmc00||'('||in_gg0000||')',1,150),in_cwnr00,in_cwnr00, in_dw0000,in_bzje00,in_sfje00,0,in_sfxx00,in_sfsx00,in_mzfpid,in_zyfpid,to_char(sysdate,'YYYYMMDD'),to_char(sysdate,'HH24:MI:SS'), null,null,in_zjbz00,Vhsxmid,Vbaxmid,in_gg0000,in_sccj00,in_pzwh00,in_bz0000,'A', 1,'0',v_HCBH00,'2','0',0,0,'0',in_sfgz00,'0', to_char(sysdate,'YYYYMMDDHH24:MI:SS'),v_YBXMBH,v_XMMC00,v_ZCZH00,in_bh0000,in_KJXMID, v_BYRC00 );