source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTS2.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1GMTS2 ;SLC/SBW - Health Summary Driver Cont. ; 02/11/2003
2 ;;2.7;Health Summary;**2,58,62**;Oct 20, 1995
3 ;
4TDISBLD ; Temporarily Disabled Components
5 D CKP^GMTSUP Q:$D(GMTSQIT) W "Temporarily disabled",!
6 I GMOOTXT]"" D CKP^GMTSUP Q:$D(GMTSQIT) W GMOOTXT,!
7 Q
8PDISBLD ; Permanently Disabled Components
9 D CKP^GMTSUP Q:$D(GMTSQIT) W "Permanently disabled",!
10 I GMOOTXT]"" D CKP^GMTSUP Q:$D(GMTSQIT) W GMOOTXT,!
11 Q
12NOMATCH ; User doesn't hold Security Key
13 D CKP^GMTSUP Q:$D(GMTSQIT)
14 W "This component is locked with security key "_GMTSLOCK_".",!
15 Q
16NOSELECT ; No Selection Items
17 ; Handles cases where components that require
18 ; selection items have no selection items defined.
19 D CKP^GMTSUP Q:$D(GMTSQIT)
20 W "No selection items chosen for this component.",!
21 Q
22NODATA ; No Data
23 ; This will display "No Data Available" for commponents
24 ; components that retrieve no data.
25 N SELNAME I $D(GMTSQIT),(GMTSQIT="") Q
26 Q:GMTSWRIT=0 I $G(GMSUPRES)="Y" K:$D(GMTSOBJ) GMTSEG(+($G(GMTSEGN)))
27 I $E(IOST,1)'="C" Q:$G(GMSUPRES)="Y"
28 I GMSEL]"" D GETSEL,DISPSEL Q
29 D CKP^GMTSUP Q:$D(GMTSQIT) W:'$D(GMTSOBJ) !
30 D CKP^GMTSUP Q:$D(GMTSQIT) W " No data available",!
31 Q
32GETSEL ; Get Selection Items
33 N GMX,GMI,GMDA,GMFROOT,GMROOT,GMNODE
34 S GMFROOT=$G(GMTSEG(GMTSEGN,GMSEL,0))
35 Q:GMFROOT=""
36 S (GMX,GMI)=0
37 F S GMI=$O(GMTSEG(GMTSEGN,GMSEL,GMI)) Q:GMI'>0 D
38 . S GMDA=$G(GMTSEG(GMTSEGN,GMSEL,GMI))
39 . S GMROOT=GMFROOT_GMDA_",0)"
40 . S GMNODE=$G(@GMROOT)
41 . I GMDA]"",GMROOT]"" S GMX=GMX+1,SELNAME(GMX)=$P(GMNODE,U)
42 Q
43DISPSEL ; Display selection items
44 N GMI,GMX
45 D CKP^GMTSUP Q:$D(GMTSQIT) W " No data available for "
46 S (GMI,GMX)=0
47 F S GMI=$O(SELNAME(GMI)) Q:GMI'>0 D
48 . S GMX=GMX+1
49 . W:GMX>1 "; "
50 . W:(77)'>($X+$L(SELNAME(GMI))) !
51 . D CKP^GMTSUP Q:$D(GMTSQIT) W SELNAME(GMI)
52 W !
53 Q
Note: See TracBrowser for help on using the repository browser.