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

GMTS2.m

Go to the documentation of this file.
  1. GMTS2 ;SLC/SBW - Health Summary Driver Cont. ; 02/27/2019
  1. ;;2.7;Health Summary;**2,58,62,122**;Oct 20, 1995;Build 183
  1. ;
  1. TDISBLD ; Temporarily Disabled Components
  1. D CKP^GMTSUP Q:$D(GMTSQIT) W "Temporarily disabled",!
  1. I GMOOTXT]"" D CKP^GMTSUP Q:$D(GMTSQIT) W GMOOTXT,!
  1. Q
  1. PDISBLD ; Permanently Disabled Components
  1. D CKP^GMTSUP Q:$D(GMTSQIT) W "Permanently disabled",!
  1. I GMOOTXT]"" D CKP^GMTSUP Q:$D(GMTSQIT) W GMOOTXT,!
  1. Q
  1. NOMATCH ; User doesn't hold Security Key
  1. D CKP^GMTSUP Q:$D(GMTSQIT)
  1. W "This component is locked with security key "_GMTSLOCK_".",!
  1. Q
  1. NOSELECT ; No Selection Items
  1. ; Handles cases where components that require
  1. ; selection items have no selection items defined.
  1. D CKP^GMTSUP Q:$D(GMTSQIT)
  1. W "No selection items chosen for this component.",!
  1. Q
  1. NODATA ; No Data
  1. ; This will display "No Data Available" for commponents
  1. ; components that retrieve no data.
  1. I $D(GMTSQIT),(GMTSQIT="") Q
  1. N PRINTNAME,SELNAME
  1. Q:GMTSWRIT=0 I $G(GMSUPRES)="Y" K:$D(GMTSOBJ) GMTSEG(+($G(GMTSEGN)))
  1. I $E(IOST,1)'="C" Q:$G(GMSUPRES)="Y"
  1. I GMSEL]"" D GETSEL,DISPSEL Q
  1. D CKP^GMTSUP Q:$D(GMTSQIT) W:'$D(GMTSOBJ) !
  1. D CKP^GMTSUP Q:$D(GMTSQIT) W " No data available",!
  1. Q
  1. GETSEL ; Get Selection Items
  1. N GMX,GMI,GMDA,GMFROOT,GMROOT,GMNODE
  1. S GMFROOT=$G(GMTSEG(GMTSEGN,GMSEL,0))
  1. Q:GMFROOT=""
  1. S (GMX,GMI)=0
  1. F S GMI=$O(GMTSEG(GMTSEGN,GMSEL,GMI)) Q:GMI'>0 D
  1. . S GMDA=$G(GMTSEG(GMTSEGN,GMSEL,GMI))
  1. . S GMROOT=GMFROOT_GMDA_",0)"
  1. . S GMNODE=$G(@GMROOT)
  1. . S GMX=GMX+1,SELNAME(GMX)=$P(GMNODE,U)
  1. . I GMSEL=9999999.09 S PRINTNAME(GMX)=$P($G(^AUTTEDT(GMDA,0)),U,4)
  1. . I GMSEL=9999999.15 S PRINTNAME(GMX)=$P($G(^AUTTEXAM(GMDA,200)),U,1)
  1. . I GMSEL=9999999.64 S PRINTNAME(GMX)=$P($G(^AUTTHF(GMDA,200)),U,1)
  1. . I $G(PRINTNAME(GMX))="" S PRINTNAME(GMX)=SELNAME(GMX)
  1. Q
  1. DISPSEL ; Display selection items
  1. N GMI,GMX
  1. D CKP^GMTSUP Q:$D(GMTSQIT) W "No data available for: "
  1. S (GMI,GMX)=0
  1. F S GMI=$O(SELNAME(GMI)) Q:GMI'>0 D
  1. . S GMX=GMX+1
  1. . I GMX=1,($X+$L(PRINTNAME(GMI))>77) W !
  1. . W:GMX>1 !
  1. . D CKP^GMTSUP Q:$D(GMTSQIT) W PRINTNAME(GMI)
  1. W !
  1. Q