prompt No. 门诊多点结算接口报文日志 create or replace procedure SP_SF_DDJSJKRZ( PJKLXBH in number ,--输入:接口编码 PJKLX00 in varchar2 default 'DD' ,--输入:DD:多点结算 YD:移动结算 YB:医保结算 PBRID00 in number ,--输入:BRID00 PZYGHID in number ,--输入:挂号ID或住院ID PCARDNO in varchar2 ,--输入:IC卡号或住院号 PMZZYBZ in varchar2 default '0' ,--输入:门诊住院标志 0:门诊 1:住院 PCZY000 in number ,--输入:操作员编码 PCZYXM0 in varchar2 ,--输入:操作员姓名 PCZYKS0 in number ,--输入:操作员科室 PKSRQ00 in varchar2 default '' ,--输入:开始日期 PJSRQ00 in varchar2 default '' ,--输入:结束日期 PJZDH00 in number default 0 ,--输入:结账单号 PYBGHH0 in varchar2 default '' ,--输入:医保挂号号或医保住院号 PYBDJH0 in varchar2 default '' ,--输入:医保单据号 PCSNBID in varchar2 default '' ,--输入:参数内部ID PBYRC00 in varchar2 default '' ,--输入:备用入参 PCOMMIT in varchar2 default 'N' ,--输入:是否提交事务 Y:提交 N:不提交 PZXZT00 out number ,--输出:执行状态 0:失败 1：成功 PDDLSH0 out varchar2 ,--输出:订单流水号 PERRMSG out varchar2 ,--输出:错误信息 PCJBM00 in varchar2 default '' --输入:厂家编码 YH:易慧 YL:医联 YX:医信 ) as -- MODIFICATION HISTORY -- Person Date Comments --zhangyc 2020.03.31 created 增加节点hisExtra、业务系统:ywxt00（医保:YB,非医保:ZF） by MZSF9-20200331-002 --zhangyc 2020.10.24 增加医联接口和医信接口 by MZSF9-20201026-002 --zhangyc 2020.11.19 增加调用SF_SF_GETYYKSBM异常保护 ----------------------------------------------------------- LS_DDLSH0 SF_YBJK00.DDLSH0%type;--订单流水号 LS_JKQDBM SF_YBJK00.JKQDBM%type;--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 LS_JKLXBM SF_YBJK00.JKLXBM%type;--接口类型编码 LS_JKLXMC SF_YBJK00.JKLXMC%type;--接口类型名称 LS_JKLX00 SF_YBJK00.JKLX00%type;--接口类型 LS_JKMXLX SF_YBJK00.JKMXLX%type;--接口明细类型 LS_CZRQ00 SF_YBJK00.CZRQ00%type;--操作日期 LS_CZSJ00 SF_YBJK00.CZSJ00%type;--操作时间 LS_CZY000 SF_YBJK00.CZY000%type;--操作员 LS_CZYXM0 SF_YBJK00.CZYXM0%type;--操作员姓名 LS_CZYKS0 SF_YBJK00.CZYKS0%type;--操作员科室 LS_BRID00 SF_YBJK00.BRID00%type;--BRID00 LS_GHID00 SF_YBJK00.GHID00%type;--挂号ID LS_GHH000 SF_YBJK00.GHH000%type;--挂号号 LS_BRXM00 SF_YBJK00.BRXM00%type;--病人姓名 LS_BRXB00 SF_YBJK00.BRXB00%type;--病人性别 LS_BRZJBH SF_YBJK00.BRZJBH%type;--病人证件编号 LS_YBKH00 SF_YBJK00.YBKH00%type;--医保卡号 LS_YBID00 SF_YBJK00.YBID00%type;--医保ID LS_YBMC00 SF_YBJK00.YBMC00%type;--医保中心名称 LS_YBGHH0 SF_YBJK00.YBGHH0%type;--医保挂号号 LS_YBDJH0 SF_YBJK00.YBDJH0%type;--医保单据号 LS_JZDH00 SF_YBJK00.JZDH00%type;--结账单号 LS_KSRQ00 SF_YBJK00.KSRQ00%type;--开始日期 LS_JSRQ00 SF_YBJK00.JSRQ00%type;--结束日期 LS_INCS00 SF_YBJK00.INCS00%type;--备用参数 LS_JKNBCS SF_YBJK00.JKNBCS%type;--接口内部参数 LS_JKQQCS SF_YBJK00.JKQQCS%type;--接口请求参数 LS_JKFHCS SF_YBJK00.JKFHCS%type;--接口返回参数 LS_TYZDCS varchar2(20); R_BRXX BM_BRXXB0%rowtype; LS_CARDNO varchar2(100); LS_YWXT00 BM_TYZD00.MC0000%type; --业务系统:ywxt00（医保:YB,非医保:ZF） LS_FBBH00 BM_BRXXB0.FBBH00%type; LS_DDCJBM BM_TYZD00.MC0000%type; --多点结算厂家编码 YH:易惠 YL:医联 默认值:YH(易惠) LS_FROM BM_TYZD00.MC0000%type; --平台商户编号 LS_TERMID BM_TYZD00.MC0000%type; --平台终端编号 LS_USERID BM_TYZD00.MC0000%type; --医保账号编码 LS_USERPW BM_TYZD00.MC0000%type; --医保账号密码 LS_AREANO BM_TYZD00.MC0000%type; --地区编号 LS_FUNC varchar2(50); --功能接口编码 LS_CATYPE varchar2(10); --卡类型 01:社保卡 02:就诊卡 03:身份证 04:住院号 LS_YWTYPE varchar2(10); --业务类别 01:门诊 02:住院 LS_BMMC00 BM_BMBM00.BMMC00%type; --部门名称 LS_YYKSBM BM_BMBM00.YYKSBM%type; --医保科室编码 LS_YSZJHM BM_YGBM00.YSZJHM%type; --医生证件编码 LS_GHY000 SF_BRXXB0.GHY000%type; --挂号员 LS_GHKS00 SF_BRXXB0.GHKS00%type; --挂号科室 LS_CZJE00 SF_BRFY00.HJJE00%type;-- LS_DKLSH0 varchar2(50);--医保电子凭证内部流水号=BM_JKFHZ0.DDLSH0 LS_IDCODE BM_JKFHZ0.IDCODE%type;--医保电子凭证码 LS_token BM_JKFHZ0.ECTOKEN%type;--令牌 LS_idno BM_JKFHZ0.IDNO%type; LS_idtype BM_JKFHZ0.IDTYPE%type; LS_DDJSCZY number(5);--多点结算操作员_编码 LS_DDJSCZYXM varchar2(50);--多点结算操作员_名称 LS_HJJE00 number(12,2);--合计金额 LS_FYHJJE number(12,2);--合计金额(费用) LS_CFHJJE number(12,2);--合计金额(处方) LS_ZDBHBM varchar2(50);--终端编码对应 LS_DYYGBH number(5);--终端对应操作员编码 LS_DYYGXM varchar2(50);--终端对应操作员姓名 begin --接口定义 /* 20011：门诊刷卡 20012:门诊挂号 20013:门诊挂号冲销 20014:门诊收费 20015：门诊收费冲销 20021：住院刷卡 20022:入院登记 20023:入院登记冲销 20024:住院预结算 20025:住院收费 20026：住院收费冲销 20027：出院登记 20028：出院登记冲销 20001：门诊交易查询 20002：门诊收费明细查询 20003：住院交易查询 20004：住院收费明细查询 */ PZXZT00:=0; --执行状态 0:失败 1：成功 LS_TYZDCS:='多点结算接口参数'; LS_CZRQ00:=to_char(sysdate,'YYYYMMDD'); --操作日期 LS_CZSJ00:=to_char(sysdate,'HH24:MI:SS'); --操作时间 LS_DDJSCZY:=null;--多点结算操作员_编码 LS_DDJSCZYXM:=null;--多点结算操作员_名称 if PMZZYBZ='0' then select lpad(SQ_SF_YBJK00_DDLSH0.nextval,4,'0') into LS_DDLSH0 from dual; else select lpad(SQ_ZY_YBJK00_DDLSH0.nextval,4,'0') into LS_DDLSH0 from dual; end if; LS_DDLSH0:=PJKLX00||to_char(sysdate,'YYYYMMDDHH24MISS')||LS_DDLSH0; PDDLSH0:=LS_DDLSH0; LS_BRID00:=PBRID00;--BRID00 LS_GHID00:=PZYGHID;--挂号ID LS_GHH000:='';--挂号号 LS_JKQDBM:=PJKLX00;--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 LS_JKLXBM:=PJKLXBH;--接口类型编码 --接口类型名称 if PJKLXBH=20011 then LS_JKLXMC:='门诊刷卡'; elsif PJKLXBH=20012 then LS_JKLXMC:='门诊挂号'; elsif PJKLXBH=20013 then LS_JKLXMC:='门诊挂号冲销'; elsif PJKLXBH=20014 then LS_JKLXMC:='门诊收费'; elsif PJKLXBH=20015 then LS_JKLXMC:='门诊收费冲销'; elsif PJKLXBH=20021 then LS_JKLXMC:='住院刷卡'; elsif PJKLXBH=20022 then LS_JKLXMC:='入院登记'; elsif PJKLXBH=20023 then LS_JKLXMC:='入院登记冲销'; elsif PJKLXBH=20024 then LS_JKLXMC:='住院预结算'; elsif PJKLXBH=20025 then LS_JKLXMC:='住院收费'; elsif PJKLXBH=20026 then LS_JKLXMC:='住院收费冲销'; elsif PJKLXBH=20027 then LS_JKLXMC:='出院登记'; elsif PJKLXBH=20028 then LS_JKLXMC:='出院登记冲销'; elsif PJKLXBH=20001 then LS_JKLXMC:='门诊交易查询'; elsif PJKLXBH=20002 then LS_JKLXMC:='门诊交易查询'; elsif PJKLXBH=20003 then LS_JKLXMC:='住院交易查询'; elsif PJKLXBH=20004 then LS_JKLXMC:='住院收费明细查询'; else LS_JKLXMC:='未明确定义'; end if; --接口类型 if PJKLX00='DD' then LS_JKLX00:='多点结算'; elsif PJKLX00='YD' then LS_JKLX00:='移动结算'; elsif PJKLX00='YB' then LS_JKLX00:='医保结算'; else LS_JKLX00:=''; end if; LS_JKMXLX:='';--接口明细类型 LS_CZY000:=PCZY000;--操作员 LS_CZYXM0:=PCZYXM0;--操作员姓名 LS_CZYKS0:=PCZYKS0;--操作员科室 LS_KSRQ00:=PKSRQ00;--开始日期 LS_JSRQ00:=PJSRQ00;--结束日期 LS_JZDH00:=PJZDH00;--结账单号 LS_YBGHH0:=PYBGHH0;--医保挂号号或医保住院号 LS_YBDJH0:=PYBDJH0;--医保单据号 LS_INCS00:=PBYRC00;--备用参数 LS_HJJE00:=0;--合计金额 LS_FYHJJE:=0;--合计金额(费用) LS_CFHJJE:=0;--合计金额(处方) if PMZZYBZ='1' then --门诊住院标志 0:门诊 1:住院 PERRMSG:='住院多点结算需调用过程:SP_ZY_DDJSJKRZ！'; return; end if; if PCSNBID is not null then begin select JKQQCS into LS_JKNBCS from BM_ZFPTCS where DDLSH0=PCSNBID and MKLXMC='多点结算HIS请求参数'; exception when others then LS_JKNBCS:=''; end; end if; if nvl(LS_BRID00,0)=0 then PERRMSG:='执行过程SP_SF_DDJSJKRZ入参错误,错误原因:PBRID00=0'; return; else begin select A.BRXM00,A.BRXB00,A.BRZJBH,trim(A.YBKH00),trim(A.YBID00)YBID00,B.YBMC00,A.FBBH00 into LS_BRXM00,LS_BRXB00, LS_BRZJBH,LS_YBKH00, LS_YBID00,LS_YBMC00,LS_FBBH00 from BM_BRXXB0 A,IC_YBBRLB b where A.YBLB00=B.YBLB00 and A.FBBH00=B.FBBH00 and A.BRID00=LS_BRID00; exception when others then PERRMSG:='院内未找到有效的病人基本信息!'; return; end; end if; if PJKLX00='YD' then--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 LS_JKLXMC:='移动结算';--接口类型名称 LS_FUNC:='1000';--功能接口代码 --YDJSCJBM 移动结算第三方厂家编码 YX:医信 YH:医慧 YL:医联 默认值：YX LS_DDCJBM:=nvl(substrb(SF_SF_TYZD00('移动医保结算参数','YDJSCJBM'),1,50),'YX'); --移动结算对应的终端编码(=SST_YGBHDY.ZZJBH0) 未维护按实际操作员 LS_ZDBHBM:=substrb(SF_SF_TYZD00('移动医保结算参数','YDJSZDBH'),1,50);--终端编码对应 if LS_JKNBCS is not null and LS_DDCJBM in ('YL','YX') then LS_DKLSH0:=substrb(SF_SF_GETXMLNOTE('DDLSH0',LS_JKNBCS),1,50);--医保电子凭证ID if LS_DKLSH0 is not null then begin select substrb(ECTOKEN,1,50),substrb(IDCODE,1,100),IDTYPE,IDNO into LS_token,LS_idcode,LS_idtype,LS_IDNO from BM_JKFHZ0 where DDLSH0=LS_DKLSH0; exception when others then LS_token:=''; end; end if; end if; --医联-获取医保电子凭证表数据--end-- else --业务系统:ywxt00（医保:YB,非医保:ZF） LS_YWXT00:=substrb(SF_SF_TYZD00('多点结算接口参数','ywxt00'),1,100); --appid_MZ:门诊多点结算接口应用id或商户编号 LS_FROM:=substrb(SF_SF_TYZD00('多点结算接口参数','appid_MZ'),1,100); --termid_MZ 门诊多点结算接口终端编号 LS_TERMID:=substrb(SF_SF_TYZD00('多点结算接口参数','termid_MZ'),1,100); --userid 多点结算接口.用户名 LS_USERID:=substrb(SF_SF_TYZD00('多点结算接口参数','userid'),1,100); --userpw 多点结算接口.用户密码 LS_USERPW:=substrb(SF_SF_TYZD00('多点结算接口参数','userpw'),1,100); --areano 多点结算接口.地区编号 LS_AREANO:=substrb(SF_SF_TYZD00('多点结算接口参数','areano'),1,100); ----DDJSCJBM 多点结算厂家编码 YH:易惠 YL:医联 默认值:YH(易惠) LS_DDCJBM:=nvl(substrb(SF_SF_TYZD00('多点结算接口参数','DDJSCJBM'),1,50),'YH'); --接口类型名称 LS_JKLXMC:=substrb(SF_SF_GETJKLXMC('DD',LS_JKLXBM,'0',LS_DDCJBM),1,50); --功能接口代码 LS_FUNC:=nvl(substrb(SF_SF_GETJKLXMC('DD',LS_JKLXBM,'1',LS_DDCJBM),1,50),'1000'); if LS_FBBH00 not in (3) then LS_YWXT00:='ZF'; end if; end if; LS_DDCJBM:=nvl(LS_DDCJBM,'YH'); --多点结算厂家编码 YH:易惠 YL:医联 默认值:YH(易惠) if LS_JKNBCS is not null then --多点结算操作员_编码、多点结算操作员_名称 begin LS_DDJSCZY:=to_number(substrb(SF_SF_GETXMLNOTE('DDJSCZY',LS_JKNBCS),1,10));--多点结算操作员_编码 LS_DDJSCZYXM:=substrb(SF_SF_GETXMLNOTE('DDJSCZYXM',LS_JKNBCS),1,50);--多点结算操作员_名称 exception when others then LS_DDJSCZY:=null; LS_DDJSCZYXM:=null; end; end if; --获取医保电子凭证表数据--begin-- if LS_JKNBCS is not null and LS_DDCJBM in ('YL','YX') then LS_DKLSH0:=substrb(SF_SF_GETXMLNOTE('DDLSH0',LS_JKNBCS),1,50);--医保电子凭证ID if LS_DKLSH0 is not null then begin select substrb(ECTOKEN,1,50),substrb(IDCODE,1,100),IDTYPE,IDNO into LS_token,LS_idcode,LS_idtype,LS_IDNO from BM_JKFHZ0 where DDLSH0=LS_DKLSH0; exception when others then LS_token:=''; end; end if; end if; --获取医保电子凭证表数据--end-- if LS_GHID00<>0 and LS_GHID00 is not null then --获取挂号员和挂号科室 begin select GHH000,GHY000,GHKS00 into LS_GHH000,LS_GHY000,LS_GHKS00 from SF_BRXXB0 where BRID00=LS_BRID00 and GHID00=LS_GHID00; exception when others then LS_GHH000:=''; LS_GHY000:=0; LS_GHKS00:=0; end; --获取医生证件编码 begin select YSZJHM into LS_YSZJHM from BM_YGBM00 where YGBH00=LS_GHY000; exception when others then LS_YSZJHM:=''; end; --获取医生证件编码 begin select BMMC00,YYKSBM into LS_BMMC00,LS_YYKSBM from BM_BMBM00 where BMBH00=LS_GHKS00; exception when others then LS_BMMC00:=''; LS_YYKSBM:=''; end; else --获取医生证件编码 begin select YSZJHM into LS_YSZJHM from BM_YGBM00 where YGBH00=LS_CZY000; exception when others then LS_YSZJHM:=''; end; --获取医生证件编码 begin select BMMC00,YYKSBM into LS_BMMC00,LS_YYKSBM from BM_BMBM00 where BMBH00=LS_CZYKS0; exception when others then LS_BMMC00:=''; LS_YYKSBM:=''; end; end if; --重新取值 if LS_GHH000 is not null and (LS_YYKSBM is null or LS_YSZJHM is null ) and LS_GHID00>0 then begin select SF_SF_GETYYKSBM(LS_BRID00,LS_GHH000,0) into LS_YYKSBM from dual; select SF_SF_GETYYKSBM(LS_BRID00,LS_GHH000,1) into LS_YSZJHM from dual; exception when others then LS_YYKSBM:=''; LS_YSZJHM:=''; end; end if; --获取CARDNO begin select substrb(SF_SF_ICKH00_CARDNO(A.ICKH00),1,100) into LS_CARDNO from IC_YHXX00 A where A.BRID00=LS_BRID00 and ZT0000='1'; exception when others then LS_CARDNO:=trim(LS_YBKH00); end; if PMZZYBZ='0' then LS_YWTYPE:='01'; --业务类别 01:门诊 02:住院 --卡类型 01:社保卡 02:就诊卡 03:身份证 04:住院号 if length(LS_CARDNO) in (9,10,12) then LS_CATYPE:='01'; else LS_CATYPE:='02'; end if; else LS_YWTYPE:='02'; --业务类别 01:门诊 02:住院 LS_CATYPE:='04'; --卡类型 01:社保卡 02:就诊卡 03:身份证 04:住院号 end if; if LS_JKLXBM=20016 then --获取充值金额 begin LS_CZJE00:=to_number(nvl(substrb(SF_SF_TYZD00('多点结算接口参数','MZZJCZ_CZJE'),1,20),'0')); exception when others then LS_CZJE00:=100; end; end if; --插入日志表SF_YBJK00 insert into SF_YBJK00 ( DDLSH0,--订单流水号 JKQDBM,--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 JKLXBM,--接口类型编码 JKLXMC,--接口类型名称 JKLX00,--接口类型 JKMXLX,--接口明细类型 CZRQ00,--操作日期 CZSJ00,--操作时间 CZY000,--操作员 CZYXM0,--操作员姓名 CZYKS0,--操作员科室 BRID00,--BRID00 GHID00,--挂号ID GHH000,--挂号号 BRXM00,--病人姓名 BRXB00,--病人性别 BRZJBH,--病人证件编号 YBKH00,--医保卡号 YBID00,--医保ID YBMC00,--医保中心名称 YBGHH0,--医保挂号号 YBDJH0,--医保单据号 JZDH00,--结账单号 KSRQ00,--开始日期 JSRQ00,--结束日期 INCS00,--备用参数 JKNBCS,--接口内部参数 JKQQCS,--接口请求参数 JKFHCS, --接口返回参数 YBSM01 )values ( LS_DDLSH0,--订单流水号 LS_JKQDBM,--接口渠道编码 A:跨省新农合接口 B:医保生育新接口 C:医保新接口 DD:多点结算 YD:移动结算 YB:医保结算 LS_JKLXBM,--接口类型编码 LS_JKLXMC,--接口类型名称 LS_JKLX00,--接口类型 LS_JKMXLX,--接口明细类型 LS_CZRQ00,--操作日期 LS_CZSJ00,--操作时间 LS_CZY000,--操作员 LS_CZYXM0,--操作员姓名 LS_CZYKS0,--操作员科室 LS_BRID00,--BRID00 LS_GHID00,--挂号ID LS_GHH000,--挂号号 LS_BRXM00,--病人姓名 LS_BRXB00,--病人性别 LS_BRZJBH,--病人证件编号 LS_YBKH00,--医保卡号 LS_YBID00,--医保ID LS_YBMC00,--医保中心名称 LS_YBGHH0,--医保挂号号 LS_YBDJH0,--医保单据号 LS_JZDH00,--结账单号 LS_KSRQ00,--开始日期 LS_JSRQ00,--结束日期 LS_INCS00,--备用参数 LS_JKNBCS,--接口内部参数 LS_JKQQCS,--接口请求参数 LS_JKFHCS, --接口返回参数 nvl(LS_DDCJBM,'YH') --多点结算厂家编码 YH:易惠 YL:医联 默认值:YH(易惠) ); if LS_DDCJBM in ('YX') or PCJBM00 in ('YX') then ---医联或医信--begin-- -------------------------------->>>>>YX:医信.Begin<<<<<-------------------------------- --费用金额 begin select sum(A.HJJE00) into LS_FYHJJE from SF_FYMX00 A,SF_BRFY00 B where A.DJH000 = B.DJH000 and b.BRID00=LS_BRID00 and B.MZID00=LS_GHID00 and A.XMBH00 < 9999999990; exception when others then LS_FYHJJE:=0; end; --处方金额 begin select sum(round(C.LSDJ00*DECODE(C.SFZBY0,'Y',0,C.YPZSL0)*100)/100) into LS_CFHJJE from YF_MZCF00 B,YF_MZCFMX C where B.CFLSH0 = C.CFLSH0 and b.BRID00=LS_BRID00 and B.GHID00=LS_GHID00; exception when others then LS_CFHJJE:=0; end; LS_HJJE00:=nvl(LS_FYHJJE,0)+nvl(LS_CFHJJE,0);--合计金额=合计金额(费用)+合计金额(处方) ---Header节点---begin--- --funid 功能编号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'funid','功能接口代码','Header',null,'1',LS_FUNC,null from dual; --接口返回值 --result 结果（0:成功 其他:失败） insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'code','接口返回结果(0:成功；-1:失败)','Header',null,'2',null,null from dual; if PJKLX00='YD' then --message 提示信息 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'message','接口提示信息','Header',null,'2',null,null from dual; else --msg 提示信息 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'msg','接口提示信息','Header',null,'2',null,null from dual; end if; --入参数 --card_no 卡号 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'card_no','卡号','Body',null,'1',LS_CARDNO,null from dual; --card_type 卡类型 Y 01:社保卡 02:就诊卡 03:身份证 04:住院号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'card_type','卡类型(01:社保卡 02:就诊卡 03:身份证 04:住院号)','Body',null,'1',LS_CATYPE,null from dual; --name 姓名 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'name','病人姓名','Body',null,'1',LS_BRXM00,null from dual; --business_type 业务类别 Y 01:门诊 02:住院 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'business_type','业务类别(01:门诊 02:住院)','Body',null,'1',LS_YWTYPE,null from dual; --inpatient_id 住院号 N 账号类型为住院时要传 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'inpatient_id','住院号','Body',null,'1',null,null from dual; --patient_id 院内病人 ID Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'patient_id','院内病人ID','Body',null,'1',LS_BRID00,null from dual; --operator_id 操作员编号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'operator_id','操作员编号','Body',null,'1',nvl(LS_DDJSCZY,LS_CZY000),null from dual; --operator_name 操作员姓名 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'operator_name','操作员姓名','Body',null,'1',nvl(LS_DDJSCZYXM,LS_CZYXM0),null from dual; --yszjhm 证件编码 科室编码 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'yszjhm','医生证件号','Body',null,'1',LS_YSZJHM,null from dual; --ksbm00 科室编码 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'ksbm00','科室编码','Body',null,'1',LS_YYKSBM,null from dual; --ksmc00 科室名称 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'ksmc00','科室名称','Body',null,'1',LS_BMMC00,null from dual; --opt_type 类型 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'opt_type','类型','Body',null,'1','01',null from dual; --settleType 是 string 结算类型 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'settleType','结算类型','Body',null,'1','门诊结算',null from dual; --money 是 string 结算金额 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'money','结算金额','Body',null,'1',nvl(LS_HJJE00,0),null from dual; --payType 是 string 0 电子凭证 1医保实体卡 if LS_DKLSH0 is not null then insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'payType','类型(0:电子凭证 1:医保实体卡)','Body',null,'1','0',null from dual; else insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'payType','类型(0:电子凭证 1:医保实体卡)','Body',null,'1','1',null from dual; end if; --idcode 医保电子凭证码 是 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'idcode','医保电子凭证码','Body',null,'1',LS_idcode,null from dual; --token 令牌 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'token','令牌','Body',null,'1',LS_token,null from dual; --id_type 身份类型 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'id_type','身份类型','Body',null,'1',LS_IDTYPE,null from dual; --id_no 身份证号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'id_no','身份证号','Body',null,'1',LS_IDNO,null from dual; --HIS接口请求参数 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PMZZYBZ','门诊住院标志 0:门诊 1:住院','Body',null,'1',PMZZYBZ,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PDDLSH0','订单流水号','Body',null,'1',PDDLSH0,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJKLXBH','接口编码','Body',null,'1',PJKLXBH,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJKLX00','接口类型(DD:多点结算)','Body',null,'1',PJKLX00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PBRID00','BRID00','Body',null,'1',PBRID00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PZYGHID','挂号ID或住院ID','Body',null,'1',PZYGHID,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PCARDNO','IC卡号或住院号','Body',null,'1',PCARDNO,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PCZY000','操作员编码','Body',null,'1',LS_CZY000,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PCZYKS0','操作员科室','Body',null,'1',PCZYKS0,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PKSRQ00','开始日期','Body',null,'1',PKSRQ00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJSRQ00','结束日期','Body',null,'1',PJSRQ00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJZDH00','结账单号','Body',null,'1',PJZDH00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PBYRC00','备用入参','Body',null,'1',PBYRC00,null from dual; --修改报文XML值 update SF_YBFSZX set XML000='<'||JKFSBM||'>'||trim(JKFSZ0)||'' where DDLSH0=LS_DDLSH0 and FSLX00 not in ('2'); -------------------------------->>>>>YX:医信.End<<<<<-------------------------------- elsif LS_DDCJBM in ('YL') or PCJBM00 in ('YL') then --- -------------------------------->>>>>YL:医联.Begin<<<<<-------------------------------- ---Header节点---begin--- --funid 功能编号 YLMPS.01.01.01 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'funid','功能接口代码','Header',null,'1',LS_FUNC,null from dual; --sign 签名（16 个字节小写字母） 备注： 默认 0000000000000000 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'sign','签名','Header',null,'1',nvl(LS_FROM,'0000000000000000'),null from dual; --接口返回值 --result 结果（0:成功 其他:失败） insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'result','接口返回结果(0:成功 其他:失败)','Header',null,'2',null,null from dual; --msg 提示信息 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'msg','接口提示信息','Header',null,'2',null,null from dual; ---Header节点---End--- --20200429 增加 qrcode 医保电子凭证码 token 令牌 if LS_DKLSH0 is not null then --getpre_status 0:第三方拉取处方 1:HIS拉取处方 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'getpre_status','0:第三方拉取处方 1:HIS拉取处方','Body',null,'1','1',null from dual; --idcode 医保电子凭证码 是 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'idcode','医保电子凭证码','Body',null,'1',LS_idcode,null from dual; --token 令牌 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'token','令牌','Body',null,'1',LS_token,null from dual; --id_type 身份类型 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'id_type','身份类型','Body',null,'1',LS_IDTYPE,null from dual; --id_no 身份证号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'id_no','身份证号','Body',null,'1',LS_IDNO,null from dual; end if; ---Body节点---begin--- if PJKLXBH in (20017) then --诊间建档--begin-- --card_no 卡号 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'cardno','卡号','Body',null,'3',LS_CARDNO,null from dual; --sbksbm 社保卡识别码 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'sbksbm','社保卡识别码','Body',null,'3',null,null from dual; --返回值--begin-- --id0000 社会保障号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'id0000','社会保障号','Body',null,'2',null,null from dual; --xming0 患者姓名 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'xming0','患者姓名','Body',null,'2',null,null from dual; --xbie00 性别 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'xbie00','性别','Body',null,'2',null,null from dual; --sfzhao 身份证号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'sfzhao','身份证号','Body',null,'2',null,null from dual; --csrq00 出生日期 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'csrq00','出生日期','Body',null,'2',null,null from dual; --brnl00 病人年龄 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'brnl00','病人年龄','Body',null,'2',null,null from dual; --gzzt00 工作状态 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'gzzt00','工作状态','Body',null,'2',null,null from dual; --fzxmc0 分中心名称 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'fzxmc0','分中心名称','Body',null,'2',null,null from dual; --dwmc00 单位名称 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'dwmc00','单位名称','Body',null,'2',null,null from dual; --sfjzfp(是否精准扶贫 Y:是 N:否) insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'sfjzfp','是否精准扶贫 Y:是 N:否','Body',null,'2',null,null from dual; --icztmc IC卡状态 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'icztmc','IC卡状态','Body',null,'2',null,null from dual; --address 家庭地址 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'address','家庭地址','Body',null,'2',null,null from dual; --telephone 联系电话 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'telephone','联系电话','Body',null,'2',null,null from dual; --grzhye 个人账户余额 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'grzhye','个人账户余额','Body',null,'2',null,null from dual; --gzztmc 工作状态名称 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'gzztmc','工作状态名称','Body',null,'2',null,null from dual; --icztmc ICK状态 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'icztmc','ICK状态','Body',null,'2',null,null from dual; else --诊间建档--End--其它--begin-- --card_no 卡号 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'card_no','卡号','Body',null,'1',LS_CARDNO,null from dual; --card_type 卡类型 Y 01:社保卡 02:就诊卡 03:身份证 04:住院号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'card_type','卡类型(01:社保卡 02:就诊卡 03:身份证 04:住院号)','Body',null,'1',LS_CATYPE,null from dual; --name 姓名 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'name','病人姓名','Body',null,'1',LS_BRXM00,null from dual; --business_type 业务类别 Y 01:门诊 02:住院 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'business_type','业务类别(01:门诊 02:住院)','Body',null,'1',LS_YWTYPE,null from dual; --inpatient_id 住院号 N 账号类型为住院时要传 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'inpatient_id','住院号','Body',null,'1',null,null from dual; --patient_id 院内病人 ID Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'patient_id','院内病人ID','Body',null,'1',LS_BRID00,null from dual; --operator_id 操作员编号 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'operator_id','操作员编号','Body',null,'1',nvl(LS_DDJSCZY,LS_CZY000),null from dual; --operator_name 操作员姓名 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'operator_name','操作员姓名','Body',null,'1',nvl(LS_DDJSCZYXM,LS_CZYXM0),null from dual; --yszjhm 证件编码 科室编码 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'yszjhm','医生证件号','Body',null,'1',LS_YSZJHM,null from dual; --ksbm00 科室编码 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'ksbm00','科室编码','Body',null,'1',LS_YYKSBM,null from dual; --ksmc00 科室名称 Y insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'ksmc00','科室名称','Body',null,'1',LS_BMMC00,null from dual; --HIS接口请求参数 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PMZZYBZ','门诊住院标志 0:门诊 1:住院','Body',null,'1',PMZZYBZ,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PDDLSH0','订单流水号','Body',null,'1',PDDLSH0,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJKLXBH','接口编码','Body',null,'1',PJKLXBH,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJKLX00','接口类型(DD:多点结算)','Body',null,'1',PJKLX00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PBRID00','BRID00','Body',null,'1',PBRID00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PZYGHID','挂号ID或住院ID','Body',null,'1',PZYGHID,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PCARDNO','IC卡号或住院号','Body',null,'1',PCARDNO,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PCZY000','操作员编码','Body',null,'1',PCZY000,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PCZYKS0','操作员科室','Body',null,'1',PCZYKS0,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PKSRQ00','开始日期','Body',null,'1',PKSRQ00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJSRQ00','结束日期','Body',null,'1',PJSRQ00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PJZDH00','结账单号','Body',null,'1',PJZDH00,null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'PBYRC00','备用入参','Body',null,'1',PBYRC00,null from dual; if PJKLXBH=20016 then insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'opt_type','类型','Body',null,'1','02',null from dual; insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'registry_fee','充值金额','Body',null,'1',LS_CZJE00,null from dual; else insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'opt_type','类型','Body',null,'1','01',null from dual; end if; ---Body节点---End--- end if; --修改报文XML值 update SF_YBFSZX set XML000='<'||JKFSBM||'>'||trim(JKFSZ0)||'' where DDLSH0=LS_DDLSH0 and FSLX00 not in ('2'); -------------------------------->>>>>YL:医联.End<<<<<-------------------------------- else ---医联或医信--end-- -------------------------------->>>>>YH:易惠.Begin<<<<<-------------------------------- --插入接口明细项 if PJKLXBH=20014 then --20014:门诊收费 --func 功能接口代码 String(50) N fsi.outpatient.charge insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'func','功能接口代码',null,null,'1','fsi.outpatient.charge',null from dual; --from 多点结算平台商户编号 String(20) N 9901 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'from','平台商户编号',null,null,'1',LS_FROM,null from dual; --termid 多点结算平台终端编号 String(20) N 99001101 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'termid','平台终端编号',null,null,'1',LS_TERMID,null from dual; --userid 用户名 String(16) 医保库有注册的院内人 N MARTIN insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'userid','医保账号编码',null,null,'1',LS_USERID,null from dual; --userpw 密码 String(20) N 123 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'userpw','医保账号密码',null,null,'1',LS_USERPW,null from dual; --areano 地区编号 String(4) N 3502 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'areano','地区编号',null,null,'1',LS_AREANO,null from dual; --ywxt00 业务系统 String(3) 医保-YB N YB insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'ywxt00','业务系统',null,null,'1',LS_YWXT00,null from dual; --cardno 医保卡号 String(12) N insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'cardno','医保卡号',null,null,'1',LS_CARDNO,null from dual; --mzlsh0 挂号流水号 String(16) N insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'mzlsh0','医保挂号号',null,null,'1',null,null from dual; --yy_ywlsh0 医院业务流水号 String(30) insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'yy_ywlsh0','医院业务流水号',null,null,'1',LS_DDLSH0,null from dual; --extra 接口扩展参数 JSON 预留-->主项 insert into SF_YBFSZX(DDLSH0,MXID00,BRID00,JKBTBM,JKBTMC,JKFSBM,JKFSMC,JDBM00,ZJDBM0,FSLX00,JKFSZ0,JKFHZ0) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,LS_BRID00,LS_JKLXBM,LS_JKLXMC,'extra','接口扩展参数','extra',null,'1',null,null from dual; --extra 接口扩展参数 JSON 预留-->明细项(SF_YBFSJD) insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'extra','接口扩展参数','hisExtra','hisExtra扩展参数',null,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','MZZYBZ','标志 0:门诊 1:住院',PMZZYBZ,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','DDLSH0','HIS内部订单号',LS_DDLSH0,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JKLXBH','接口编码',PJKLXBH,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JKLX00','接口类型',PJKLX00,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','BRID00','BRID00',PBRID00,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','ZYGHID','挂号ID',PZYGHID,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CARDNO','IC卡号或住院号',LS_CARDNO,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CZY000','操作员编码',PCZY000,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CZYXM0','操作员姓名',PCZYXM0,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','CZYKS0','操作员科室',PCZYKS0,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','KSRQ00','开始日期',PKSRQ00,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JSRQ00','结束日期',PJSRQ00,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','JZDH00','结账单号',PJZDH00,null,'1' from dual; insert into SF_YBFSJD(DDLSH0,MXID00,JDBM00,JDMC00,JKFSBM,JKFSMC,JKFSZ0,JKFHZ0,FSLX00) select LS_DDLSH0,SQ_ZY_YBFSZX_MXID00.nextval,'hisExtra','接口扩展参数','BYRC00','备用参数',null,null,'1' from dual; end if; -------------------------------->>>>>YH:易惠.End<<<<<-------------------------------- end if; PZXZT00:=1;--输出:执行状态 0:失败 1：成功 exception when no_data_found then PZXZT00:=0; PERRMSG:=substrb('执行多点结算日志过程SP_SF_DDJSJKRZ错误!'||sqlerrm,1,200); when others then PZXZT00:=0; PERRMSG:=substrb('执行多点结算日志过程SP_SF_DDJSJKRZ错误!'||sqlerrm,1,200); end; / show error; --%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%