- 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 Feb 18, 2025@23:25:17 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