Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSP55

GMTSP55.m

Go to the documentation of this file.
  1. GMTSP55 ; CIO/SLC - Post Install GMTS*2.7*55 ; 04/30/2002
  1. ;;2.7;Health Summary;**55**;Oct 20, 1995
  1. ;
  1. ; External References
  1. ; DBIA 122 ^VA(200, (ending DBIA 122)
  1. ; DBIA 122 ^DD(200, (ending DBIA 122)
  1. ; DBIA 10086 HOME^%ZIS
  1. ; DBIA 10063 ^%ZTLOAD
  1. ; DBIA 10089 ^%ZISC
  1. ;
  1. Q
  1. POST ; Post Install
  1. D HOME^%ZIS N GMTST,DIC,DIR,POP,X,Y,%,%ZIS,IOP,ZTRTN,ZTSAVE,ZTDESC,ZTDTH,ZTIO,ZTSK
  1. S ZTRTN="NEWP^GMTSP55",ZTDESC="Running GMTS*2.7*55 Post-Install"
  1. S ZTIO="",ZTDTH=$H,GMTST=" GMTS*2.7*55 Post-Install"
  1. D ^%ZTLOAD,^%ZISC
  1. Q
  1. NEWP ; Fix New Person file #200
  1. S:$D(ZTQUEUED) ZTREQ="@" Q:$D(^DD(200,"GL",100.1))
  1. N GMTSI S GMTSI=0 F S GMTSI=$O(^VA(200,GMTSI)) Q:+GMTSI=0 K ^VA(200,GMTSI,100.1)
  1. Q