Routine: SC53272P

SC53272P ;JDS/ALB -PREINIT ; 16 Dec 2002  11:14 AM  ; Compiled January 6, 2003 15:50:04

 ;;5.3;Scheduling;**272,1015**;AUG 13, 1993;Build 21

HL7EVNT ;Create HL7 event B02 - HL7 EVENT TYPE CODE file (#779.001)

 ;Input  : None

 ;Output : None

 ;Note   : This is a KIDS complient check point

 ;Declare variables

 Q:$D(^HL(779.001,"B","B02"))

 N DIC,X,Y,DLAYGO,DTOUT,DUOUT,NEWENTRY,MSGTXT,PTREVNT,DIE,DA,DR

 ;Create/find entry

 D BMES^XPDUTL(">>> Creating entry for B02 in HL7 EVENT TYPE CODE file (#779.001)")

 S DIC="^HL(779.001,"

 S DIC(0)="L"

 S DIC("DR")="2///PCMM Workload Transmission"

 S DLAYGO=779.001

 S X="B02"

 D ^DIC

 S PTREVNT=+Y

 S NEWENTRY=+$P(Y,"^",3)

 S MSGTXT(1)="    Existing entry found - support of HL7 v2.4 will be added/verified"

 S:(NEWENTRY) MSGTXT(1)="    Entry created - support of HL7 v2.4 will be added"

 I (PTREVNT<0) D

 .S MSGTXT(1)="    ** Unable to create entry for B02"

 .S MSGTXT(2)="    ** Entry must be created manually"

 D MES^XPDUTL(.MSGTXT)

 K MSGTXT

 ;Don't continue if entry wasn't created

 Q:(PTREVNT<0)

 ;Add support for HL7 version 2.4

 S DIC="^HL(779.001,"_PTREVNT_",1,"

 S DIC(0)="LX"

 S DIC("P")=$P(^DD(779.001,100,0),"^",2)

 S DA(1)=PTREVNT

 S DLAYGO=779.001

 S X="2.4"

 D ^DIC

 S MSGTXT(1)="    Support for HL7 v2.4 "_$S($P(Y,"^",3):"added",1:"verified")

 I (Y<0) D

 .S MSGTXT(1)="    ** Unable to add support for HL7 v2.4"

 .S MSGTXT(2)="    ** Support for HL7 v2.4 must be added manually"

 D MES^XPDUTL(.MSGTXT)

 Q:$D(^HL(771.2,"B","PMU"))

 D BMES^XPDUTL(">>> Creating entry for PMU in HL7 MESSAGE TYPE file (#771.2)")

 S DIC="^HL(771.2,"

 S DIC(0)="L"

 S DIC("DR")="2///Workload Message;3///2.4"

 S DLAYGO=771.2

 S X="PMU"

 D ^DIC

 S MSGTXT(1)="    Support for HL7 Message Type PMU added"

 I (Y<0) D

 .S MSGTXT(1)="    ** Unable to add support forHL7 Message Type PMU"

 .S MSGTXT(2)="    ** Support for HL7 Message Type PMU must be added manually"

 D MES^XPDUTL(.MSGTXT)

 ;Done

POST ;look for active FTEE assignments and update data

 D MES^XPDUTL("Placing current FTEE workload designations in PCMM HL7 EVENT file")

 F DA=0:0 S DA=$O(^SCTM(404.52,DA)) Q:'DA  D

 .S X=$G(^SCTM(404.52,DA,0)) Q:'$P(X,U,9)

 .I $O(^SCTM(404.52,"AIDT",+X,0,-$P(X,U,2)),-1) Q

 .S X=$P(X,U,9)

 .D POSBXREF^SCMCHLX(DA,404.52)

SC53272P  ;JDS/ALB -PREINIT ; 16 Dec 2002  11:14 AM  ; Compiled January 6, 2003 15:50:04

 +1       ;;5.3;Scheduling;**272,1015**;AUG 13, 1993;Build 21

HL7EVNT   ;Create HL7 event B02 - HL7 EVENT TYPE CODE file (#779.001)

 +1       ;

 +2       ;Input  : None

 +3       ;Output : None

 +4       ;Note   : This is a KIDS complient check point

 +5       ;

 +6       ;Declare variables

 +7       ;

 +8        IF $DATA(^HL(779.001,"B","B02"))

               QUIT

 +9        NEW DIC,X,Y,DLAYGO,DTOUT,DUOUT,NEWENTRY,MSGTXT,PTREVNT,DIE,DA,DR

 +10      ;Create/find entry

 +11       DO BMES^XPDUTL(">>> Creating entry for B02 in HL7 EVENT TYPE CODE file (#779.001)")

 +12       SET DIC="^HL(779.001,"

 +13       SET DIC(0)="L"

 +14       SET DIC("DR")="2///PCMM Workload Transmission"

 +15       SET DLAYGO=779.001

 +16       SET X="B02"

 +17       DO ^DIC

 +18       SET PTREVNT=+Y

 +19       SET NEWENTRY=+$PIECE(Y,"^",3)

 +20       SET MSGTXT(1)="    Existing entry found - support of HL7 v2.4 will be added/verified"

 +21       IF (NEWENTRY)

               SET MSGTXT(1)="    Entry created - support of HL7 v2.4 will be added"

 +22       IF (PTREVNT<0)

               Begin DoDot:1

 +23               SET MSGTXT(1)="    ** Unable to create entry for B02"

 +24               SET MSGTXT(2)="    ** Entry must be created manually"

               End DoDot:1

 +25       DO MES^XPDUTL(.MSGTXT)

 +26       KILL MSGTXT

 +27      ;Don't continue if entry wasn't created

 +28       IF (PTREVNT<0)

               QUIT

 +29      ;Add support for HL7 version 2.4

 +30       SET DIC="^HL(779.001,"_PTREVNT_",1,"

 +31       SET DIC(0)="LX"

 +32       SET DIC("P")=$PIECE(^DD(779.001,100,0),"^",2)

 +33       SET DA(1)=PTREVNT

 +34       SET DLAYGO=779.001

 +35       SET X="2.4"

 +36       DO ^DIC

 +37       SET MSGTXT(1)="    Support for HL7 v2.4 "_$SELECT($PIECE(Y,"^",3):"added",1:"verified")

 +38       IF (Y<0)

               Begin DoDot:1

 +39               SET MSGTXT(1)="    ** Unable to add support for HL7 v2.4"

 +40               SET MSGTXT(2)="    ** Support for HL7 v2.4 must be added manually"

               End DoDot:1

 +41       DO MES^XPDUTL(.MSGTXT)

 +42       IF $DATA(^HL(771.2,"B","PMU"))

               QUIT

 +43       DO BMES^XPDUTL(">>> Creating entry for PMU in HL7 MESSAGE TYPE file (#771.2)")

 +44       SET DIC="^HL(771.2,"

 +45       SET DIC(0)="L"

 +46       SET DIC("DR")="2///Workload Message;3///2.4"

 +47       SET DLAYGO=771.2

 +48       SET X="PMU"

 +49       DO ^DIC

 +50       SET MSGTXT(1)="    Support for HL7 Message Type PMU added"

 +51       IF (Y<0)

               Begin DoDot:1

 +52               SET MSGTXT(1)="    ** Unable to add support forHL7 Message Type PMU"

 +53               SET MSGTXT(2)="    ** Support for HL7 Message Type PMU must be added manually"

               End DoDot:1

 +54       DO MES^XPDUTL(.MSGTXT)

 +55      ;Done

 +56       QUIT

POST      ;look for active FTEE assignments and update data

 +1        DO MES^XPDUTL("Placing current FTEE workload designations in PCMM HL7 EVENT file")

 +2        FOR DA=0:0

               SET DA=$ORDER(^SCTM(404.52,DA))

               IF 'DA

                   QUIT

               Begin DoDot:1

 +3                SET X=$GET(^SCTM(404.52,DA,0))

                   IF '$PIECE(X,U,9)

                       QUIT

 +4                IF $ORDER(^SCTM(404.52,"AIDT",+X,0,-$PIECE(X,U,2)),-1)

                       QUIT

 +5                SET X=$PIECE(X,U,9)

 +6                DO POSBXREF^SCMCHLX(DA,404.52)

               End DoDot:1

SC53272P.m