1 | GMTSXAW2 ; 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 | ;
|
---|
8 | DEV ; 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
|
---|
17 | DIV ; 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
|
---|
23 | SYS ; 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
|
---|
36 | PKG ; 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
|
---|
44 | LOC ; Hospital Location <none>
|
---|
45 | K GMTSPV Q
|
---|
46 | SRV ; 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
|
---|
53 | OTL ; 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
|
---|
65 | USR ; 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
|
---|
72 | TEA ; Team <none>
|
---|
73 | K GMTSPV Q
|
---|
74 | BED ; Room/Bed <none>
|
---|
75 | K GMTSPV Q
|
---|
76 | CLS ; 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
|
---|
87 | OTH ; 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
|
---|