source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSXAW2.m

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

initial load of WorldVistAEHR

File size: 4.5 KB
Line 
1GMTSXAW2 ; SLC/KER - List Parameters/Entities ; 02/27/2002
2 ;;2.7;Health Summary;**47,49**;Oct 20, 1995
3 Q
4 ;
5 ; External References
6 ; DBIA 10112 $$SITE^VASITE
7 ;
8DEV ; Device
9 K GMTSPV N GMTSE,GMTSA,GMTSEN,GMTSIE,GMTSVP,GMTSNM
10 S GMTSE=+($$ETI^GMTSXAW3("DEV")) Q:+GMTSE=0
11 S GMTSA=$$EAB^GMTSXAW3(GMTSE)
12 S GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
13 S GMTSIE=+($G(IO("HOME"))) Q:+GMTSIE'>0 S GMTSVP=+GMTSIE_";%ZIS(1,"
14 S GMTSNM=$$DEV^GMTSXAW3(+($G(GMTSIE)))
15 S GMTSPV(1)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH Q
16 Q
17DIV ; Division Needs GMTSUSR
18 K GMTSPV N GMTSIE,GMTSVP,GMTSNM,GMTSE,GMTSA,GMTSEN
19 S GMTSE=+($$ETI^GMTSXAW3("DIV")) Q:+GMTSE=0 S GMTSA=$$EAB^GMTSXAW3(GMTSE)
20 S GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
21 S GMTSVP=$$UD^GMTSXAW3(+($G(GMTSUSR))),GMTSNM=$$DIV^GMTSXAW3(+($G(GMTSVP)))
22 S GMTSPV(1)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH Q
23SYS ; System
24 K GMTSPV N GMTSIE,GMTSVP,GMTSNM,GMTSE,GMTSA,GMTSEN
25 ; Entity Lookup
26 S GMTSE=+($$ETI^GMTSXAW3("SYS")) Q:+GMTSE=0
27 ; Entity Abbrv
28 S GMTSA=$$EAB^GMTSXAW3(GMTSE)
29 ; Entity Mixed Case
30 S GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
31 ; System IEN
32 S GMTSIE=$$SI^GMTSXAW3 Q:+GMTSIE'>0
33 ; System Variable Pointer/Domain Name
34 S GMTSVP=+GMTSIE_";DIC(4.2,",GMTSNM=$$SYS^GMTSXAW3(+($G(GMTSIE)))
35 S GMTSPV(1)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH Q
36PKG ; Package Needs GMTSPKG
37 K GMTSPV Q:'$L($G(GMTSPKG))
38 N GMTSIE,GMTSVP,GMTSNM,GMTSE,GMTSA,GMTSEN
39 S GMTSE=+($$ETI^GMTSXAW3("PKG")) Q:+GMTSE=0
40 S GMTSA=$$EAB^GMTSXAW3(GMTSE),GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
41 S GMTSIE=$$PK^GMTSXAW3(GMTSPKG) Q:+GMTSIE'>0 S GMTSVP=+GMTSIE_";DIC(9.4,"
42 S GMTSNM=$$PKG^GMTSXAW3(+($G(GMTSIE)))
43 S GMTSPV(1)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH Q
44LOC ; Hospital Location <none>
45 K GMTSPV Q
46SRV ; Service Needs GMTSUSR
47 K GMTSPV N GMTSIE,GMTSVP,GMTSNM,GMTSE,GMTSA,GMTSEN
48 S GMTSE=+($$ETI^GMTSXAW3("SRV")) Q:+GMTSE=0 S GMTSA=$$EAB^GMTSXAW3(GMTSE)
49 S GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
50 S GMTSIE=$$SRI^GMTSXAW3(+($G(GMTSUSR))) Q:+GMTSIE'>0
51 S GMTSVP=+GMTSIE_";DIC(49,",GMTSNM=$$SRV^GMTSXAW3(+GMTSIE)
52 S GMTSPV(1)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH Q
53OTL ; OERR Team List Needs GMTSUSR
54 K GMTSPV N GMTSE,GMTSA,GMTSEN,GMTSNM,GMTSPVC,GMTSI,GMTSIE,GMTSVP,GMTSOTL
55 S GMTSE=+($$ETI^GMTSXAW3("OTL")) Q:+GMTSE=0 S GMTSA=$$EAB^GMTSXAW3(GMTSE)
56 S GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
57 S GMTSNM=$$UNM^GMTSXAW3(+($G(GMTSUSR))) Q:'$L(GMTSNM)
58 D OTL^GMTSXAW3(GMTSNM,.GMTSOTL) S (GMTSPVC,GMTSI)=0
59 F S GMTSI=$O(GMTSOTL("DILIST",2,GMTSI)) Q:+GMTSI=0 D
60 . S GMTSIE=$G(GMTSOTL("DILIST",2,GMTSI)) Q:+GMTSIE=0
61 . S GMTSVP=+GMTSIE_";OR(100.21,",GMTSNM=$G(GMTSOTL("DILIST",1,GMTSI))
62 . Q:'$L(GMTSNM) S GMTSPVC=+($G(GMTSPVC))+1
63 . S GMTSPV(GMTSPVC)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH
64 Q
65USR ; User Needs GMTSUSR
66 K GMTSPV N GMTSIE,GMTSVP,GMTSNM,GMTSE,GMTSA,GMTSEN
67 S GMTSE=+($$ETI^GMTSXAW3("USR")) Q:+GMTSE=0 S GMTSA=$$EAB^GMTSXAW3(GMTSE)
68 S GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
69 S GMTSIE=+($G(GMTSUSR)) Q:+GMTSIE'>0 S GMTSVP=$$UVP^GMTSXAW3(+GMTSIE)
70 S GMTSNM=$$UNM^GMTSXAW3(+($G(GMTSUSR))) Q:'$L(GMTSNM)
71 S GMTSPV(1)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH Q
72TEA ; Team <none>
73 K GMTSPV Q
74BED ; Room/Bed <none>
75 K GMTSPV Q
76CLS ; User Class Needs GMTSUSR
77 K GMTSPV N GMTSIE,GMTSNM,GMTSE,GMTSA,GMTSEN,GMTSPVC,GMTSCD,GMTSED,GMTSCLS,GMTSMEM,GMTSMSG,GMTSI,GMTSU,GMTSIE
78 S GMTSE=+($$ETI^GMTSXAW3("CLS")) Q:+GMTSE=0 S GMTSA=$$EAB^GMTSXAW3(GMTSE),GMTSEN=$$EMC^GMTSXAW3(GMTSE) Q:$L(GMTSA)'=3 Q:'$L(GMTSEN)
79 S GMTSNM=$$UNM^GMTSXAW3(+($G(GMTSUSR))) Q:'$L(GMTSNM) S GMTSCD=DT,GMTSU=0 D UCL^GMTSXAW3(GMTSUSR,.GMTSMEM)
80 F S GMTSU=$O(GMTSMEM("ID",GMTSU)) Q:+GMTSU=0 D
81 . S GMTSED=+($G(GMTSMEM("ID",GMTSU,.03))),GMTSED=+($P(GMTSED,".",1)) Q:+GMTSED=0 Q:+GMTSED>+GMTSCD
82 . S GMTSED=+($G(GMTSMEM("ID",GMTSU,.04))) Q:+GMTSED>0&(+GMTSCD>+GMTSED)
83 . I +($G(GMTSMEM("ID",GMTSU,.02)))>0 D
84 . . S GMTSIE=+($G(GMTSMEM("ID",GMTSU,.02))),GMTSVP=GMTSIE_";USR(8930,",GMTSNM=$$CLS^GMTSXAW3(+GMTSIE)
85 . . Q:'$L(GMTSNM) S GMTSPVC=+($G(GMTSPVC))+1,GMTSPV(GMTSPVC)=GMTSA_"^"_GMTSVP_"^"_GMTSNM_"^"_GMTSEN D OTH
86 Q
87OTH ; Other Elements
88 S:$L($G(GMTSVP)) GMTSPV("VP",$G(GMTSVP))=""
89 S:$L($P($G(GMTSVP),";",2)) GMTSPV("GL",$P($G(GMTSVP),";",2))=""
90 S:$L($G(GMTSA)) GMTSPV("AB",$G(GMTSA))=""
91 Q
Note: See TracBrowser for help on using the repository browser.