create or replace procedure SP_BMBM_CREATE_XML
-- modification history
-- Person      Date         Comments
-- LinBin      2021.12.22   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(90);            --消息ID
  vXXCJSJ  varchar2(90);            --消息创建时间
  vJLZT00  varchar2(90);            --记录状态
  vBMBH00  BM_BMBM00.BMBH00%type;   --科室代号
  vBMXZ00  BM_BMBM00.BMXZ00%type;   --部门性质代码
  vBZFLDM  varchar2(90);            --标准分类代码
  vBMXZMC  varchar2(90);            --部门性质名称
  vBZFLMC  varchar2(90);            --标准分类名称
  vJSMC00  varchar2(90);            --角色名称
  vGZDZ00  varchar2(200);           --工作地址
  vLXDH00  varchar2(90);            --联系电话
  vJSZT00  varchar2(90);            --角色状态
  vJSKSSJ  varchar2(90);            --角色开始时间
  vJSJSSJ  varchar2(90);            --角色结束时间
  vBMMC00  BM_BMBM00.BMMC00%type;   --科室名称
  vSJBMBH  varchar2(90);            --上级科室代号
  vSJBMMC  varchar2(90);            --上级科室名称
  vCZY000  varchar2(90);            --申请者ID
  vCZYXM0  varchar2(90);            --申请者姓名
  vCZKS00  varchar2(90);            --申请人科室号
  vCZKSMC  varchar2(90);            --申请人科室名
  vCZLXR0  varchar2(90);            --科室联系人
  vBQBH00  varchar2(90);            --所属病区代码
  vBQMC00  varchar2(80);            --所属病区名称
  vYYID00  BM_BMBM00.YYID00%type;   --所属院区代码
  vYYMC00  varchar2(80);            --所属院区名称
  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='0' 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,  --科室代号
         A.BMXZ00 BMXZ00,  --部门性质代码
         trim(A.Ybksbh) BZFLDM,  --标准分类代码
         (select MC0000 from XT_BMXZ00 WHERE DM0000 = A.BMXZ00) BMXZMC,  --部门性质名称
         trim(A.Ybksmc) BZFLMC,  --标准分类名称
         null JSMC00,  --角色名称
         null GZDZ00,  --工作地址
         null LXDH00,  --联系电话
         decode(A.CZBZ00,'2','delete','active') JSZT00,  --角色状态
         null JSKSSJ,  --角色开始时间
         null JSJSSJ,  --角色结束时间
         A.BMMC00 BMMC00,  --科室名称
         to_char(B.BMBH00) SJBMBH,  --上级科室代号
         B.BMMC00 SJBMMC,  --上级科室名称
         '-' CZY000,  --申请者ID
         null CZYXM0,  --申请者姓名
         'xxx12345-X' CZKS00,  --申请人科室号
         null CZKSMC,  --申请人科室名
         null CZLXR0,  --科室联系人
         (select BQH000 from BM_BQKS00 WHERE KSH000 = A.BMBH00 and YXBZ00='1') BQBH00,  --所属病区代码
         (select BMMC00 from BM_BMBM00 where BMBH00=(select BQH000 from BM_BQKS00 WHERE KSH000 = A.BMBH00 and YXBZ00='1')) BQMC00,  --所属病区名称
         A.YYID00 YYID00,  --所属院区代码
         (select YYJC00 from XT_YYXX00 where YYID00=A.YYID00) YYMC00,  --所属院区名称
         decode(A.BMXZ00,'0','1','1','2') vKSLX00,                     -- 科室类型1门诊2住院
         null     
    into vGUID00,   --消息ID
         vXXCJSJ,   --消息创建时间
         vJLZT00,   --记录状态
         vBMBH00,   --科室代号
         vBMXZ00,   --部门性质代码
         vBZFLDM,   --标准分类代码
         vBMXZMC,   --部门性质名称
         vBZFLMC,   --标准分类名称
         vJSMC00,   --角色名称
         vGZDZ00,   --工作地址
         vLXDH00,   --联系电话
         vJSZT00,   --角色状态
         vJSKSSJ,   --角色开始时间
         vJSJSSJ,   --角色结束时间
         vBMMC00,   --科室名称
         vSJBMBH,   --上级科室代号
         vSJBMMC,   --上级科室名称
         vCZY000,   --申请者ID
         vCZYXM0,   --申请者姓名
         vCZKS00,   --申请人科室号
         vCZKSMC,   --申请人科室名
         vCZLXR0,   --科室联系人
         vBQBH00,   --所属病区代码
         vBQMC00,   --所属病区名称
         vYYID00,   --所属院区代码
         vYYMC00,   --所属院区名称
         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_IN401030UV01 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_IN401030UV01.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_IN401030UV01"/>')||
             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="医疗卫生机构业务科室分类与代码表" sourceCode=')||
             trim('                "')||vBMXZ00||'" '||          -- 医疗卫生机构（科室）标识分类代码
             trim('            code=')||
             trim('                "')||vBZFLDM||'" >'||          -- 医疗卫生机构（科室）标识分类代码
             trim('              <displayName  sourceValue=')||
             trim('            "')||vBMXZMC||'" '||          -- 医疗卫生机构（科室）标识分类代码对应的名称
             trim('              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('              <item>')||
             trim('              <part value=')||
             trim('                  "')||vGZDZ00||'" />'||          -- 工作地址
             trim('              </item>')||
             trim('            </addr>')||
             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('                <scoper2 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('                </scoper2>')||
             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(' <extension>')||
             trim('     <component typeCode="COMP">')||
             trim('         <observation classCode="OBS" moodCode="EVN">')||
             trim('             <code code="01">')||
             trim('                  <originalText value="科室类型1门诊2住院"/>')||
             trim('             </code>')||
             trim('             <value xsi:type="ST" value=')||
             trim('                "')||vKSLX00||'" />'||          -- 科室类型1门诊2住院
             trim('         </observation>')||
             trim('     </component>')||
             trim('</extension>')||
             trim('  </controlActProcess>')||
             trim('</PRPM_IN401030UV01>')||
             '';

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

end;