create or replace procedure SP_BMBM_UPDATE_XML
-- modification history
-- Person      Date         Comments
-- LinBin      2023.02.23   create by XXX-YYYYMMDD-XXX
-- chenrenhai  2023.04.07   增加科室类型
-- chenrenhai  2023.04.11   调整医疗卫生机构（科室）标识报文级别，置于节点assignedEntity下级
(
  PID0000 in varchar2
)
as
  vResult  varchar2(30000);
  vSJ0000  varchar2(90);
  vGUID00  varchar2(50);            --消息ID
  vXXCJSJ  varchar2(30);            --消息创建时间
  vJLZT00  varchar2(30);            --记录状态
  vBMBH00  BM_BMBM00.BMBH00%type;   --科室代号
  vBZFLDM  varchar2(30);            --标准分类代码
  vBZFLMC  varchar2(30);            --标准分类名称
  vJSMC00  varchar2(30);            --角色名称
  vLXDH00  varchar2(30);            --联系电话
  vJSZT00  varchar2(30);            --角色状态
  vJSKSSJ  varchar2(30);            --角色开始时间
  vJSJSSJ  varchar2(30);            --角色结束时间
  vBMMC00  BM_BMBM00.BMMC00%type;   --科室名称
  vSJBMBH  varchar2(30);            --上级科室代号
  vSJBMMC  varchar2(50);            --上级科室名称
  vCZY000  varchar2(30);            --申请者ID
  vCZYXM0  varchar2(30);            --申请者姓名
  vCZKS00  varchar2(30);            --申请人科室号
  vCZKSMC  varchar2(30);            --申请人科室名
  vCZLXR0  varchar2(30);            --科室联系人
  vKSLX00  BM_BMBM00.BMXZ00%type;   --部门性质
  vFSCJ00  BM_DFSBR0.FSCJ00%type;         --发送场景
begin

  select to_char(sysdate,'yyyyMMddHH24miss') into VSJ0000 from dual;
  select GET_SYS_GUID into vGUID00 from dual;

  begin
    select ZDXMID into vBMBH00 from BM_DFZLZD where ZDLX00=1 and CZBZ00='1' and ID0000=PID0000 ;
  exception
    when others then
      vBMBH00:=0;
  end;

  select vGUID00 GUID00,  --消息ID
         vSJ0000 XXCJSJ,  --消息创建时间
         decode(A.CZBZ00,'2','delete','active') JLZT00,  --记录状态
         A.BMBH00 BMBH00,  --科室代号
         trim(A.Ybksbh) BZFLDM,  --标准分类代码
         trim(A.Ybksmc) BZFLMC,  --标准分类名称
         null JSMC00,  --角色名称
         null LXDH00,  --联系电话
         decode(A.CZBZ00,'2','delete','active') JSZT00,  --角色状态
         null JSKSSJ,  --角色开始时间
         null JSJSSJ,  --角色结束时间
         A.BMMC00 BMMC00,  --科室名称
         to_char(B.BMBH00) SJBMBH,  --上级科室代号
         B.BMMC00 SJBMMC,  --上级科室名称
         decode(nvl(A.CJR000,1),0,1,-1,1,A.CJR000) CZY000,  --申请者ID
         (select ZWXM00 from BM_YGBM00 where YGBH00=decode(nvl(A.CJR000,1),0,1,-1,1,A.CJR000)) CZYXM0,  --申请者姓名
         (select BMBH00 from BM_YGBM00 where YGBH00=decode(nvl(A.CJR000,1),0,1,-1,1,A.CJR000)) CZKS00,  --申请人科室号
         (select BMMC00 from BM_BMBM00 where BMBH00=(select BMBH00 from BM_YGBM00 where YGBH00=decode(nvl(A.CJR000,1),0,1,-1,1,A.CJR000))) CZKSMC,  --申请人科室名
         null CZLXR0,  --科室联系人
         decode(A.BMXZ00,'0','1','1','2') vKSLX00,                     -- 科室类型1门诊2住院
         null
    into vGUID00,   --消息ID
         vXXCJSJ,   --消息创建时间
         vJLZT00,   --记录状态
         vBMBH00,   --科室代号
         vBZFLDM,   --标准分类代码
         vBZFLMC,   --标准分类名称
         vJSMC00,   --角色名称
         vLXDH00,   --联系电话
         vJSZT00,   --角色状态
         vJSKSSJ,   --角色开始时间
         vJSJSSJ,   --角色结束时间
         vBMMC00,   --科室名称
         vSJBMBH,   --上级科室代号
         vSJBMMC,   --上级科室名称
         vCZY000,   --申请者ID
         vCZYXM0,   --申请者姓名
         vCZKS00,   --申请人科室号
         vCZKSMC,   --申请人科室名
         vCZLXR0,   --科室联系人
         vKSLX00,   -- 科室类型1门诊2住院
         vFSCJ00
    from BM_BMBM00 A, BM_BMBM00 B
   where substr(A.BH0000,1,length(A.BH0000)-2)=B.BH0000(+) and A.BMBH00=vBMBH00 ;

    vResult:=''||
             trim('<PRPM_IN403010UV01 xmlns="urn:hl7-org:v3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ITSVersion="XML_1.0" xsi:schemaLocation="urn:hl7-org:v3 ../multicacheschemas/PRPM_IN403010UV01.xsd">')||
             trim('  <id root="2.16.156.10011.2.5.1.1" extension=')||
             trim('    "')||vGUID00||'" />'||          -- 消息ID字符串，最大长度为50
             trim('  <creationTime value=')||
             trim('      "')||vXXCJSJ||'" />'||          -- 创建时间日期时间格式，DT14
             trim('  <interactionId root="2.16.156.10011.2.5.1.2" extension="PRPM_IN403010UV01"/>')||
             trim('  <processingCode code="P"/>')||
             trim('  <processingModeCode/>')||
             trim('  <acceptAckCode code="AL"/>')||
             trim('  <receiver typeCode="RCV">')||
             trim('    <device classCode="DEV" determinerCode="INSTANCE">')||
             trim('      <id>')||
             trim('        <item root="2.16.156.10011.2.5.1.3" extension="集成平台"/>')||
             trim('      </id>')||
             trim('    </device>')||
             trim('  </receiver>')||
             trim('  <sender typeCode="SND">')||
             trim('    <device classCode="DEV" determinerCode="INSTANCE">')||
             trim('      <id>')||
             trim('        <item root="2.16.156.10011.2.5.1.3" extension="1.2.156.112747.001.001.1.1"/>')||
             trim('      </id>')||
             trim('    </device>')||
             trim('  </sender>')||
             trim('  <controlActProcess classCode="CACT" moodCode="EVN">')||
             trim('    <subject typeCode="SUBJ">')||
             trim('      <registrationRequest classCode="REG" moodCode="RQO">')||
             trim('        <statusCode code=')||
             trim('          "')||vJLZT00||'" />'||          -- 记录状态
             trim('        <subject1 typeCode="SBJ">')||
             trim('          <assignedEntity classCode="ASSIGNED ">')||
             trim('            <!--医疗卫生机构（科室）标识-科室为例-->')||
             trim('            <id>')||
             trim('              <item root="2.16.156.10011.1.26" extension=')||
             trim('                "')||vBMBH00||'" />'||          -- 医疗卫生机构（科室）本地ID
             trim('            </id>')||
             trim('            <!--医疗卫生机构（科室）类别-科室为例-->')||
             trim('            <code codeSystem="2.16.156.10011.2.3.2.62" codeSystemName="医疗卫生机构业务科室分类与代码表" code=')||
             trim('                "')||vBZFLDM||'" >'||          -- 医疗卫生机构（科室）标识分类代码
             trim('              <displayName  value=')||
             trim('                "')||vBZFLMC||'" />'||          -- 医疗卫生机构（科室）标识分类代码对应的名称
             trim('            </code>')||
             trim('            <!--医疗卫生机构（科室）角色名称-->')||
             trim('            <name xsi:type="LIST_EN">')||
             trim('              <item>')||
             trim('                <part value=')||
             trim('                  "')||vJSMC00||'" />'||          -- 医疗卫生机构（科室）角色名称
             trim('              </item>')||
             trim('            </name>')||
             trim('            <!--工作地址-->')||
             trim('            <addr xsi:type="DSET_AD"/>')||
             trim('            <!--工作联系方式：电话、邮箱地址等-->')||
             trim('            <telecom xsi:type="DSET_TEL">')||
             trim('              <item value=')||
             trim('                "')||vLXDH00||'" />'||          -- 工作联系电话
             trim('            </telecom>')||
             trim('            <!--角色状态RoleStatus-->')||
             trim('            <statusCode code=')||
             trim('                "')||vJSZT00||'" />'||          -- 角色状态RoleStatus
             trim('            <!--角色有效期间-->')||
             trim('            <effectiveTime>')||
             trim('              <low value=')||
             trim('                "')||vJSKSSJ||'" />'||          -- 角色有效期间（开始时间）
             trim('              <high value=')||
             trim('                "')||vJSJSSJ||'" />'||          -- 角色有效期间（结束时间）
             trim('            </effectiveTime>')||
             trim('            <assignedPrincipalOrganization classCode="ORG" determinerCode="INSTANCE">')||
             trim('              <!--医疗卫生机构（科室）实体名称-->')||
             trim('              <name xsi:type="LIST_EN">')||
             trim('                <item>')||
             trim('                  <part value=')||
             trim('                    "')||vBMMC00||'" />'||          -- 医疗卫生机构（科室）实体名称
             trim('                </item>')||
             trim('              </name>')||
             trim('              <asAffiliate classCode="AFFL">')||
             trim('                <code/>')||
             trim('                <effectiveTime/>')||
             trim('                <!--上级机构-->')||
             trim('                <affiliatedPrincipalOrganization classCode="ORG" determinerCode="INSTANCE">')||
             trim('                  <!--上级医疗卫生机构（科室）标识-->')||
             trim('                  <id>')||
             trim('                    <item root="2.16.156.10011.1.26" extension=')||
             trim('                      "')||vSJBMBH||'" />'||          -- 上级医疗卫生机构机构（科室）号标识
             trim('                  </id>')||
             trim('                  <name xsi:type="LIST_EN">')||
             trim('                    <item>')||
             trim('                      <part value=')||
             trim('                        "')||vSJBMMC||'" />'||          -- 上级医疗卫生机构（科室）名称
             trim('                    </item>')||
             trim('                  </name>')||
             trim('                </affiliatedPrincipalOrganization>')||
             trim('              </asAffiliate>')||
             trim('            </assignedPrincipalOrganization>')||
             trim('          </assignedEntity>')||
             trim('        </subject1>')||
             trim('        <author typeCode="AUT">')||
             trim('          <assignedEntity classCode="ASSIGNED">')||
             trim('            <!--医务人员ID-->')||
             trim('            <id>')||
             trim('              <item root="2.16.156.10011.1.4" extension=')||
             trim('                "')||vCZY000||'" />'||          -- 申请者ID
             trim('            </id>')||
             trim('            <assignedPerson classCode="PSN" determinerCode="INSTANCE">')||
             trim('              <name xsi:type="LIST_EN">')||
             trim('                <item>')||
             trim('                  <part value=')||
             trim('                    "')||vCZYXM0||'" />'||          -- 申请者名称
             trim('                </item>')||
             trim('              </name>')||
             trim('            </assignedPerson>')||
             trim('            <representedOrganization classCode="ORG" determinerCode="INSTANCE">')||
             trim('               <!--科室号标识-->')||
             trim('               <id>')||
             trim('                  <item root="2.16.156.10011.1.26" extension=')||
             trim('                "')||vCZKS00||'" />'||          -- 医疗卫生机构（科室）标识
             trim('               </id>')||
             trim('                <name xsi:type="LIST_EN">')||
             trim('                  <item>')||
             trim('                    <part value=')||
             trim('                     "')||vCZKSMC||'" />'||          -- 医疗卫生机构（科室）标识名称
             trim('                  </item>')||
             trim('                </name>')||
             trim('               <contactParty classCode="CON">')||
             trim('                 <contactPerson classCode="PSN" determinerCode="INSTANCE">')||
             trim('                   <name xsi:type="LIST_EN">')||
             trim('                     <item>')||
             trim('                       <part value=')||
             trim('                        "')||vCZLXR0||'" />'||          -- 医疗卫生机构（科室）联系人
             trim('                     </item>')||
             trim('                    </name>')||
             trim('                  </contactPerson>')||
             trim('                </contactParty>')||
             trim('             </representedOrganization>')||
             trim('          </assignedEntity>')||
             trim('        </author>')||
             trim('      </registrationRequest>')||
             trim('    </subject>')||
             trim('  </controlActProcess>')||
             trim('</PRPM_IN403010UV01>')||
             '';

  --更新中间表发送消息字串
  begin
    update BM_DFZLZD set QMSG00=vResult where ID0000=PID0000 ;
    commit;
  exception
    when others then
      raise_application_error(-20001,'产生消息字串错误！'||SQLERRM||'@'||PID0000);
      rollback ;
  end;

end;