GMTSP55 ; CIO/SLC - Post Install GMTS*2.7*55 ; 04/30/2002
;;2.7;Health Summary;**55**;Oct 20, 1995
;
; External References
; DBIA 122 ^VA(200, (ending DBIA 122)
; DBIA 122 ^DD(200, (ending DBIA 122)
; DBIA 10086 HOME^%ZIS
; DBIA 10063 ^%ZTLOAD
; DBIA 10089 ^%ZISC
;
Q
POST ; Post Install
D HOME^%ZIS N GMTST,DIC,DIR,POP,X,Y,%,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK
S ZTRTN="NEWP^GMTSP55",ZTDESC="Running GMTS*2.7*55 Post-Install"
S ZTIO="",ZTDTH=$H,GMTST=" GMTS*2.7*55 Post-Install"
D ^%ZTLOAD,^%ZISC
Q
NEWP ; Fix New Person file #200
S:$D(ZTQUEUED) ZTREQ="@" Q:$D(^DD(200,"GL",100.1))
N GMTSI S GMTSI=0 F S GMTSI=$O(^VA(200,GMTSI)) Q:+GMTSI=0 K ^VA(200,GMTSI,100.1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP55 776 printed Dec 13, 2024@01:58:56 Page 2
GMTSP55 ; CIO/SLC - Post Install GMTS*2.7*55 ; 04/30/2002
+1 ;;2.7;Health Summary;**55**;Oct 20, 1995
+2 ;
+3 ; External References
+4 ; DBIA 122 ^VA(200, (ending DBIA 122)
+5 ; DBIA 122 ^DD(200, (ending DBIA 122)
+6 ; DBIA 10086 HOME^%ZIS
+7 ; DBIA 10063 ^%ZTLOAD
+8 ; DBIA 10089 ^%ZISC
+9 ;
+10 QUIT
POST ; Post Install
+1 DO HOME^%ZIS
NEW GMTST,DIC,DIR,POP,X,Y,%,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK
+2 SET ZTRTN="NEWP^GMTSP55"
SET ZTDESC="Running GMTS*2.7*55 Post-Install"
+3 SET ZTIO=""
SET ZTDTH=$HOROLOG
SET GMTST=" GMTS*2.7*55 Post-Install"
+4 DO ^%ZTLOAD
DO ^%ZISC
+5 QUIT
NEWP ; Fix New Person file #200
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
if $DATA(^DD(200,"GL",100.1))
QUIT
+2 NEW GMTSI
SET GMTSI=0
FOR
SET GMTSI=$ORDER(^VA(200,GMTSI))
if +GMTSI=0
QUIT
KILL ^VA(200,GMTSI,100.1)
+3 QUIT
