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

GMTSXPS2.m

Go to the documentation of this file.
  1. GMTSXPS2 ; SLC/KER - Health Summary Status ; 08/27/2002
  1. ;;2.7;Health Summary;**35,56**;Oct 20, 1995
  1. ;
  1. ; External References
  1. ; DBIA 10048 ^DIC(9.4,
  1. ; DBIA 10006 IX^DIC
  1. ; DBIA 2056 $$GET1^DIQ (file 9.4)
  1. ;
  1. Q
  1. INS ; Get Installations
  1. N GMTS0,GMTSDT,GMTSEQ,GMTSI,GMTSIENS,GMTSIN,GMTSN,GMTSNM,GMTSP
  1. N GMTSPAT,GMTSPD,GMTSPDE,GMTSPI,GMTSST,GMTSTDT,GMTSTN,GMTSTNM
  1. N GMTSV,GMTSVD,GMTSVDE,GMTSVDS,GMTSVI,GMTSNX,X,DIC,X,Y,DTOUT
  1. N DUOUT,DLAYGO,DINUM S GMTSI=$$PKGI Q:+GMTSI=0 S GMTSV=2.7
  1. S GMTSVI=$$VERI(GMTSI,GMTSV) Q:GMTSVI=0
  1. S GMTSIENS=GMTSVI_","_GMTSI_","
  1. S GMTSVDE=$$GET1^DIQ(9.49,GMTSIENS,2,"I")
  1. S GMTSVDS=$$GET1^DIQ(9.49,GMTSIENS,1,"I")
  1. S GMTSVD="" S:+GMTSVDE>0 GMTSVD=+GMTSVDE
  1. S:+GMTSVD=0&(+GMTSVDS>0) GMTSVD=+GMTSVDS S:+GMTSVD>0&(+GMTSVDE>+GMTSVD) GMTSVD=+GMTSVDE Q:+GMTSVD=0
  1. S GMTSVDE=$$EDT^GMTSXPS1($P(GMTSVD,".",1)) K GMTSVDS S GMTSIN(1,1)="Health Summary "_GMTSV_"^"_GMTSVDE
  1. S GMTSPI=0 F S GMTSPI=$O(^DIC(9.4,GMTSI,22,GMTSVI,"PAH",GMTSPI)) Q:+GMTSPI=0 D
  1. . S GMTSIENS=GMTSPI_","_GMTSVI_","_GMTSI_","
  1. . S GMTSP=$$GET1^DIQ(9.4901,GMTSIENS,.01) Q:'$L(GMTSP) Q:+GMTSP=0
  1. . S GMTSPD=$$GET1^DIQ(9.4901,GMTSIENS,.02,"I") Q:+GMTSPD=0
  1. . S GMTSEQ="Test" S:GMTSP["SEQ #" GMTSEQ=+($P(GMTSP,"SEQ #",2)) S:+($G(GMTSEQ))=0 GMTSEQ="Test"
  1. . S GMTSPAT=+GMTSP,GMTSPDE=$$EDT^GMTSXPS1(GMTSPD) Q:'$L(GMTSPDE)
  1. . S GMTSIN(2,GMTSPAT,GMTSEQ)="GMTS*"_GMTSV_"*"_GMTSP_"^"_GMTSPDE
  1. . S:$L(GMTSEQ)&(+GMTSEQ>0) GMTSIN(2,"SEQ",GMTSEQ,GMTSPAT)="GMTS*"_GMTSV_"*"_GMTSP_"^"_GMTSPDE
  1. . S:$L(GMTSEQ)&(GMTSEQ["Test") GMTSIN(2,"SEQT",GMTSEQ,GMTSPAT)="GMTS*"_GMTSV_"*"_GMTSP_"^"_GMTSPDE
  1. ; Package
  1. S GMTSN=GMTSIN(1,1),GMTSNM=$P(GMTSN,"^",1),GMTSDT=$P(GMTSN,"^",2),GMTSST="" D HD,SI
  1. ; Patches Installed in Sequence
  1. S GMTSEQ=0 F S GMTSEQ=$O(GMTSIN(2,"SEQ",GMTSEQ)) Q:+GMTSEQ=0 D
  1. . S GMTSP=0 F S GMTSP=$O(GMTSIN(2,"SEQ",GMTSEQ,GMTSP)) Q:+GMTSP=0 D
  1. . . S GMTSN=$G(GMTSIN(2,GMTSP,GMTSEQ)) Q:'$L(GMTSN)
  1. . . S GMTSNM=$P(GMTSN,"^",1) Q:'$L(GMTSNM)
  1. . . S GMTSDT=$P(GMTSN,"^",2) Q:'$L(GMTSDT)
  1. . . S GMTSST=""
  1. . . I $D(GMTSIN(2,"SEQT","Test",GMTSP)) D
  1. . . . N GMTSTN,GMTSTNM,GMTSTDT S GMTSTN=$G(GMTSIN(2,GMTSP,"Test")) I '$L(GMTSTN) K GMTSIN(2,"SEQT","Test",GMTSP) Q
  1. . . . S GMTSTNM=$P(GMTSTN,"^",1) I '$L(GMTSTNM) K GMTSIN(2,"SEQT","Test",GMTSP) Q
  1. . . . S GMTSTDT=$P(GMTSTN,"^",2) I '$L(GMTSTDT) K GMTSIN(2,"SEQT","Test",GMTSP) Q
  1. . . . N GMTSNM,GMTSDT,GMTSST S GMTSNM=GMTSTNM,GMTSDT=GMTSTDT,GMTSST="Test"
  1. . . . D SI K GMTSIN(2,"SEQT","Test",GMTSP)
  1. . . D SI
  1. ; Other Patches Installed (test patches)
  1. I $D(GMTSIN(2,"SEQT")) D
  1. . N GMTSP,GMTSTN,GMTSTNM,GMTSTDT
  1. . S GMTSP=0 F S GMTSP=$O(GMTSIN(2,"SEQT","Test",GMTSP)) Q:+GMTSP=0 D
  1. . . S GMTSTN=$G(GMTSIN(2,GMTSP,"Test")) I '$L(GMTSTN) K GMTSIN(2,"SEQT","Test",GMTSP) Q
  1. . . S GMTSTNM=$P(GMTSTN,"^",1) I '$L(GMTSTNM) K GMTSIN(2,"SEQT","Test",GMTSP) Q
  1. . . S GMTSTDT=$P(GMTSTN,"^",2) I '$L(GMTSTDT) K GMTSIN(2,"SEQT","Test",GMTSP) Q
  1. . . S GMTSNM=GMTSTNM,GMTSDT=GMTSTDT,GMTSST="Test"
  1. . . D SI K GMTSIN(2,"SEQT","Test",GMTSP)
  1. D BL^GMTSXPS1
  1. Q
  1. PKGI(X) ; Package
  1. N D,Y,DIC,DTOUT,DUOUT S DIC(0)="I",D="C"
  1. S X="GMTS",DIC="^DIC(9.4,"
  1. D IX^DIC S X=0 S:+Y>0 X=+Y Q X
  1. VERI(X,Y) ; Version
  1. N DA,D,DIC,DTOUT,DUOUT S DIC(0)="I",D="B" S DA(1)=+($G(X))
  1. Q:DA(1)=0 0 S X=+($G(Y)) Q:X=0 0 S DIC="^DIC(9.4,"_DA(1)_",22,"
  1. D IX^DIC S X=0 S:+Y>0 X=+Y Q X
  1. ; Report
  1. HD ; Header
  1. N X S X=" Install Name",X=X_$J("",28-$L(X))_"Date" D TL^GMTSXPS1(X) S X="" S $P(X,"-",42)="-",X=" "_X D TL^GMTSXPS1(X)
  1. Q
  1. SI ; Site Installs
  1. S GMTSNM=$G(GMTSNM) Q:'$L(GMTSNM) S GMTSDT=$G(GMTSDT) Q:'$L(GMTSDT) S GMTSST=$G(GMTSST)
  1. N X S X=" "_GMTSNM,X=X_$J("",28-$L(X))_GMTSDT S:$L(GMTSST) X=X_$J("",40-$L(X))_GMTSST D TL^GMTSXPS1(X)
  1. Q