PSO153PS.m

PSO153PS ;BIR/RTR-Patch 153 Post Install routine ;09/17/03

 ;;7.0;OUTPATIENT PHARMACY;**153**;DEC 1997

 ;External reference to File 870 supported by DBIA 1496

 ;

 ;Set AUTOSTART to Enabled for PSOTPBAAC Logical Link

 N DIE,DR,DIC,DA,X,Y

 K DIC S DIC(0)="X",DIC=870,X="PSOTPBAAC" D ^DIC K DIC

 I +Y>0 K DIE S DA=+Y,DIE=870,DR="4.5////"_1 D ^DIE K DA,DR,DIE

 ;

 ;Add patch installer to the HL7 mail group

 I '$G(DUZ) Q

 N XMY,PSOADDMG S XMY(DUZ)="" S PSOADDMG=$$MG^XMBGRP("PSO TPB HL7 EXTRACT",0,"","",.XMY,"",1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO153PS   527     printed  Dec 13, 2024@02:22:37                                                                                                                                                                                                     Page 2

PSO153PS  ;BIR/RTR-Patch 153 Post Install routine ;09/17/03

 +1       ;;7.0;OUTPATIENT PHARMACY;**153**;DEC 1997

 +2       ;External reference to File 870 supported by DBIA 1496

 +3       ;

 +4       ;Set AUTOSTART to Enabled for PSOTPBAAC Logical Link

 +5        NEW DIE,DR,DIC,DA,X,Y

 +6        KILL DIC

           SET DIC(0)="X"

           SET DIC=870

           SET X="PSOTPBAAC"

           DO ^DIC

           KILL DIC

 +7        IF +Y>0

               KILL DIE

               SET DA=+Y

               SET DIE=870

               SET DR="4.5////"_1

               DO ^DIE

               KILL DA,DR,DIE

 +8       ;

 +9       ;Add patch installer to the HL7 mail group

 +10       IF '$GET(DUZ)

               QUIT 

 +11       NEW XMY,PSOADDMG

           SET XMY(DUZ)=""

           SET PSOADDMG=$$MG^XMBGRP("PSO TPB HL7 EXTRACT",0,"","",.XMY,"",1)

 +12       QUIT