PSOP222.m

PSOP222 ;BIR/SJA - post install to remove PSO TPB HL7 EXTRACT task from file #19.2 ;01/25/06

 ;;7.0;OUTPATIENT PHARMACY;**222**;DEC 1997;Build 12

 ;External reference to ^DIC(19.2 supported by DBIA #3732

 ;

 N DA,X,Y,XY,XZ,DIC,DIK,I S XZ="OPTION SCHEDULING file (#19.2)"

 S (DIC,DIK)="^DIC(19.2,",(X,XY)="PSO TPB HL7 EXTRACT" D ^DIC S DA=+Y

 I DA'>0 D BMES^XPDUTL(XY_" task not found in the "_XZ) G QT

 D ^DIK

 D BMES^XPDUTL(XY_" task is deleted from the "_XZ)

QT D MES^XPDUTL("Post-install run completed successfully")

 K XZ S (XZ("AUDIT"),XZ("DD"),XZ("DEL"),XZ("LAYGO"),XZ("RD"),XZ("WR"))="@"

 D FILESEC^DDMOD(52.91,.XZ)

 K XZ S XZ("RD")="Pp"

 D FILESEC^DDMOD(52.43,.XZ)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOP222   691     printed  Apr 09, 2024@21:27:03                                                                                                                                                                                                      Page 2

PSOP222   ;BIR/SJA - post install to remove PSO TPB HL7 EXTRACT task from file #19.2 ;01/25/06

 +1       ;;7.0;OUTPATIENT PHARMACY;**222**;DEC 1997;Build 12

 +2       ;External reference to ^DIC(19.2 supported by DBIA #3732

 +3       ;

 +4        NEW DA,X,Y,XY,XZ,DIC,DIK,I

           SET XZ="OPTION SCHEDULING file (#19.2)"

 +5        SET (DIC,DIK)="^DIC(19.2,"

           SET (X,XY)="PSO TPB HL7 EXTRACT"

           DO ^DIC

           SET DA=+Y

 +6        IF DA'>0

               DO BMES^XPDUTL(XY_" task not found in the "_XZ)

               GOTO QT

 +7        DO ^DIK

 +8        DO BMES^XPDUTL(XY_" task is deleted from the "_XZ)

QT         DO MES^XPDUTL("Post-install run completed successfully")

 +1        KILL XZ

           SET (XZ("AUDIT"),XZ("DD"),XZ("DEL"),XZ("LAYGO"),XZ("RD"),XZ("WR"))="@"

 +2        DO FILESEC^DDMOD(52.91,.XZ)

 +3        KILL XZ

           SET XZ("RD")="Pp"

 +4        DO FILESEC^DDMOD(52.43,.XZ)

 +5        QUIT