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 ---[H[J[2J[HPSOP222 691 printed Dec 13, 2024@02:32:32 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
