Routine: SD53P515

SD53P515 ;bpoifo/swo post init 8.7.2007

 ;;5.3;Scheduling;**515**;Aug 13, 1993;Build 14

 Q  ;no entry from top

POST ;entry point post init

 N DA,DIE,DR,SCMCV1,SCMCV2,SCMCV3

 S SCMCV1=$$KSP^XUPARAM("INST")

 I SCMCV1="" D  Q

 .D BMES^XPDUTL("Cannot determine your station.  Post Init will abort, contact IRM")

 S SCMCV2=$O(^HL(771,"B","PCMM-515",""))

 I SCMCV2="" D  Q

 .D BMES^XPDUTL("Cannot find HL7 APPLICATION PARAMETER ""PCMM-515"" Post Init will abort, contact IRM")

 D BMES^XPDUTL("Setting FACILITY NAME field of PCMM-515 application parameter to")

 D MES^XPDUTL(SCMCV1)

 S DIE="^HL(771,",DA=SCMCV2,DR="3///"_SCMCV1 D ^DIE

 S SCMCV3=$O(^ORD(101,"B","PCMM SEND CLIENT FOR ADT-A08",""))

 I SCMCV3="" D  Q

 .D BMES^XPDUTL("Cannot find PROTOCOL ""PCMM SEND CLIENT FOR ADT-A08"" Post Init will abort, contact IRM")

PRE ;entry point pre init

 I $D(^XTMP("SCMCHL")) D  S XPDABORT=1 Q

 .D BMES^XPDUTL("PCMM HL7 transmission in progress.  Patch cannot be installed at this time.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P515   1005     printed  Mar 13, 2025@21:51:19                                                                                                                                                                                                    Page 2

SD53P515  ;bpoifo/swo post init 8.7.2007

 +1       ;;5.3;Scheduling;**515**;Aug 13, 1993;Build 14

 +2       ;no entry from top

           QUIT

POST      ;entry point post init

 +1        NEW DA,DIE,DR,SCMCV1,SCMCV2,SCMCV3

 +2        SET SCMCV1=$$KSP^XUPARAM("INST")

 +3        IF SCMCV1=""

               Begin DoDot:1

 +4                DO BMES^XPDUTL("Cannot determine your station.  Post Init will abort, contact IRM")

               End DoDot:1

               QUIT

 +5        SET SCMCV2=$ORDER(^HL(771,"B","PCMM-515",""))

 +6        IF SCMCV2=""

               Begin DoDot:1

 +7                DO BMES^XPDUTL("Cannot find HL7 APPLICATION PARAMETER ""PCMM-515"" Post Init will abort, contact IRM")

               End DoDot:1

               QUIT

 +8        DO BMES^XPDUTL("Setting FACILITY NAME field of PCMM-515 application parameter to")

 +9        DO MES^XPDUTL(SCMCV1)

 +10       SET DIE="^HL(771,"

           SET DA=SCMCV2

           SET DR="3///"_SCMCV1

           DO ^DIE

 +11       SET SCMCV3=$ORDER(^ORD(101,"B","PCMM SEND CLIENT FOR ADT-A08",""))

 +12       IF SCMCV3=""

               Begin DoDot:1

 +13               DO BMES^XPDUTL("Cannot find PROTOCOL ""PCMM SEND CLIENT FOR ADT-A08"" Post Init will abort, contact IRM")

               End DoDot:1

               QUIT

 +14       QUIT

PRE       ;entry point pre init

 +1        IF $DATA(^XTMP("SCMCHL"))

               Begin DoDot:1

 +2                DO BMES^XPDUTL("PCMM HL7 transmission in progress.  Patch cannot be installed at this time.")

               End DoDot:1

               SET XPDABORT=1

               QUIT

 +3        QUIT

SD53P515.m