- GMTS2 ;SLC/SBW - Health Summary Driver Cont. ; 02/27/2019
- ;;2.7;Health Summary;**2,58,62,122**;Oct 20, 1995;Build 183
- ;
- TDISBLD ; Temporarily Disabled Components
- D CKP^GMTSUP Q:$D(GMTSQIT) W "Temporarily disabled",!
- I GMOOTXT]"" D CKP^GMTSUP Q:$D(GMTSQIT) W GMOOTXT,!
- Q
- PDISBLD ; Permanently Disabled Components
- D CKP^GMTSUP Q:$D(GMTSQIT) W "Permanently disabled",!
- I GMOOTXT]"" D CKP^GMTSUP Q:$D(GMTSQIT) W GMOOTXT,!
- Q
- NOMATCH ; User doesn't hold Security Key
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "This component is locked with security key "_GMTSLOCK_".",!
- Q
- NOSELECT ; No Selection Items
- ; Handles cases where components that require
- ; selection items have no selection items defined.
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "No selection items chosen for this component.",!
- Q
- NODATA ; No Data
- ; This will display "No Data Available" for commponents
- ; components that retrieve no data.
- I $D(GMTSQIT),(GMTSQIT="") Q
- N PRINTNAME,SELNAME
- Q:GMTSWRIT=0 I $G(GMSUPRES)="Y" K:$D(GMTSOBJ) GMTSEG(+($G(GMTSEGN)))
- I $E(IOST,1)'="C" Q:$G(GMSUPRES)="Y"
- I GMSEL]"" D GETSEL,DISPSEL Q
- D CKP^GMTSUP Q:$D(GMTSQIT) W:'$D(GMTSOBJ) !
- D CKP^GMTSUP Q:$D(GMTSQIT) W " No data available",!
- Q
- GETSEL ; Get Selection Items
- N GMX,GMI,GMDA,GMFROOT,GMROOT,GMNODE
- S GMFROOT=$G(GMTSEG(GMTSEGN,GMSEL,0))
- Q:GMFROOT=""
- S (GMX,GMI)=0
- F S GMI=$O(GMTSEG(GMTSEGN,GMSEL,GMI)) Q:GMI'>0 D
- . S GMDA=$G(GMTSEG(GMTSEGN,GMSEL,GMI))
- . S GMROOT=GMFROOT_GMDA_",0)"
- . S GMNODE=$G(@GMROOT)
- . S GMX=GMX+1,SELNAME(GMX)=$P(GMNODE,U)
- . I GMSEL=9999999.09 S PRINTNAME(GMX)=$P($G(^AUTTEDT(GMDA,0)),U,4)
- . I GMSEL=9999999.15 S PRINTNAME(GMX)=$P($G(^AUTTEXAM(GMDA,200)),U,1)
- . I GMSEL=9999999.64 S PRINTNAME(GMX)=$P($G(^AUTTHF(GMDA,200)),U,1)
- . I $G(PRINTNAME(GMX))="" S PRINTNAME(GMX)=SELNAME(GMX)
- Q
- DISPSEL ; Display selection items
- N GMI,GMX
- D CKP^GMTSUP Q:$D(GMTSQIT) W "No data available for: "
- S (GMI,GMX)=0
- F S GMI=$O(SELNAME(GMI)) Q:GMI'>0 D
- . S GMX=GMX+1
- . I GMX=1,($X+$L(PRINTNAME(GMI))>77) W !
- . W:GMX>1 !
- . D CKP^GMTSUP Q:$D(GMTSQIT) W PRINTNAME(GMI)
- W !
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTS2 2124 printed Jan 18, 2025@02:58:06 Page 2
- GMTS2 ;SLC/SBW - Health Summary Driver Cont. ; 02/27/2019
- +1 ;;2.7;Health Summary;**2,58,62,122**;Oct 20, 1995;Build 183
- +2 ;
- TDISBLD ; Temporarily Disabled Components
- +1 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE "Temporarily disabled",!
- +2 IF GMOOTXT]""
- DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE GMOOTXT,!
- +3 QUIT
- PDISBLD ; Permanently Disabled Components
- +1 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE "Permanently disabled",!
- +2 IF GMOOTXT]""
- DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE GMOOTXT,!
- +3 QUIT
- NOMATCH ; User doesn't hold Security Key
- +1 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +2 WRITE "This component is locked with security key "_GMTSLOCK_".",!
- +3 QUIT
- NOSELECT ; No Selection Items
- +1 ; Handles cases where components that require
- +2 ; selection items have no selection items defined.
- +3 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +4 WRITE "No selection items chosen for this component.",!
- +5 QUIT
- NODATA ; No Data
- +1 ; This will display "No Data Available" for commponents
- +2 ; components that retrieve no data.
- +3 IF $DATA(GMTSQIT)
- IF (GMTSQIT="")
- QUIT
- +4 NEW PRINTNAME,SELNAME
- +5 if GMTSWRIT=0
- QUIT
- IF $GET(GMSUPRES)="Y"
- if $DATA(GMTSOBJ)
- KILL GMTSEG(+($GET(GMTSEGN)))
- +6 IF $EXTRACT(IOST,1)'="C"
- if $GET(GMSUPRES)="Y"
- QUIT
- +7 IF GMSEL]""
- DO GETSEL
- DO DISPSEL
- QUIT
- +8 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- if '$DATA(GMTSOBJ)
- WRITE !
- +9 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE " No data available",!
- +10 QUIT
- GETSEL ; Get Selection Items
- +1 NEW GMX,GMI,GMDA,GMFROOT,GMROOT,GMNODE
- +2 SET GMFROOT=$GET(GMTSEG(GMTSEGN,GMSEL,0))
- +3 if GMFROOT=""
- QUIT
- +4 SET (GMX,GMI)=0
- +5 FOR
- SET GMI=$ORDER(GMTSEG(GMTSEGN,GMSEL,GMI))
- if GMI'>0
- QUIT
- Begin DoDot:1
- +6 SET GMDA=$GET(GMTSEG(GMTSEGN,GMSEL,GMI))
- +7 SET GMROOT=GMFROOT_GMDA_",0)"
- +8 SET GMNODE=$GET(@GMROOT)
- +9 SET GMX=GMX+1
- SET SELNAME(GMX)=$PIECE(GMNODE,U)
- +10 IF GMSEL=9999999.09
- SET PRINTNAME(GMX)=$PIECE($GET(^AUTTEDT(GMDA,0)),U,4)
- +11 IF GMSEL=9999999.15
- SET PRINTNAME(GMX)=$PIECE($GET(^AUTTEXAM(GMDA,200)),U,1)
- +12 IF GMSEL=9999999.64
- SET PRINTNAME(GMX)=$PIECE($GET(^AUTTHF(GMDA,200)),U,1)
- +13 IF $GET(PRINTNAME(GMX))=""
- SET PRINTNAME(GMX)=SELNAME(GMX)
- End DoDot:1
- +14 QUIT
- DISPSEL ; Display selection items
- +1 NEW GMI,GMX
- +2 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE "No data available for: "
- +3 SET (GMI,GMX)=0
- +4 FOR
- SET GMI=$ORDER(SELNAME(GMI))
- if GMI'>0
- QUIT
- Begin DoDot:1
- +5 SET GMX=GMX+1
- +6 IF GMX=1
- IF ($X+$LENGTH(PRINTNAME(GMI))>77)
- WRITE !
- +7 if GMX>1
- WRITE !
- +8 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE PRINTNAME(GMI)
- End DoDot:1
- +9 WRITE !
- +10 QUIT