1 | ZVEMSG ;DJB,VSHL**Global Loader ; 8/29/02 9:15pm
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | Q
|
---|
5 | ALL ;Load entire ^%ZVEMS global
|
---|
6 | NEW I,RTN,TAG,TXT
|
---|
7 | D INIT
|
---|
8 | S RTN="ZVEMSGC" D ENTRY,A,C,K,O,Q
|
---|
9 | S RTN="ZVEMSGD" D R,S,SY,T
|
---|
10 | ;
|
---|
11 | ;Build System QWIKs
|
---|
12 | D ^ZVEMSGS
|
---|
13 | D ^ZVEMSGT
|
---|
14 | D ^ZVEMSGU
|
---|
15 | ;
|
---|
16 | ;Load ZOSF nodes
|
---|
17 | ;D ^ZVEMSGR
|
---|
18 | ;
|
---|
19 | ;Load Help and other text
|
---|
20 | D TEXT^ZVEMSGH
|
---|
21 | Q
|
---|
22 | ;
|
---|
23 | ENTRY ;Load ^%ZVEMS Global entry point
|
---|
24 | S ^%ZVEMS="NEW FLAGQ,VEE S FLAGQ=0 D ^%ZVEMSY Q:FLAGQ KILL FLAGQ X ^%ZVEMS(""ZS"",1) NEW VEESHC,VEESHL S VEESHL=""RUN"" F X ^%ZVEMS(""ZA"",1) I $G(VEESHC)=""^"" X:$D(^%ZVEMS(""ZK"",1)) ^(1) Q:VEESHC'=""NO EXIT"""
|
---|
25 | Q
|
---|
26 | ;
|
---|
27 | BUILD ;Build ^%ZVEMS global
|
---|
28 | W "."
|
---|
29 | X "F I=1:1 S TXT=$T("_TAG_"+I^"_RTN_") Q:TXT']"""" S TXT=$P(TXT,"" "",2,999) Q:TXT="";;;***"" S ^%ZVEMS("""_TAG_""",I)=TXT"
|
---|
30 | Q
|
---|
31 | ;
|
---|
32 | A ;
|
---|
33 | KILL ^%ZVEMS("ZA")
|
---|
34 | S ^%ZVEMS("ZA")="Main Section"
|
---|
35 | S TAG="ZA" D BUILD
|
---|
36 | Q
|
---|
37 | ;
|
---|
38 | C ;
|
---|
39 | KILL ^%ZVEMS("ZC")
|
---|
40 | S ^%ZVEMS("ZC")="Check for global KILL"
|
---|
41 | S TAG="ZC" D BUILD
|
---|
42 | Q
|
---|
43 | ;
|
---|
44 | K ;
|
---|
45 | KILL ^%ZVEMS("ZK")
|
---|
46 | S ^%ZVEMS("ZK")="Kill ^%ZVEMS(""%"") on exit, VA KERNEL interface"
|
---|
47 | S TAG="ZK" D BUILD
|
---|
48 | Q
|
---|
49 | ;
|
---|
50 | O ;
|
---|
51 | KILL ^%ZVEMS("ZO")
|
---|
52 | S ^%ZVEMS("ZO")="Other"
|
---|
53 | S TAG="ZO" D BUILD
|
---|
54 | Q
|
---|
55 | ;
|
---|
56 | Q ;
|
---|
57 | KILL ^%ZVEMS("ZQ")
|
---|
58 | S ^%ZVEMS("ZQ")="Process QWIKs. VEEWARN turns off glb kill warning."
|
---|
59 | S TAG="ZQ" D BUILD
|
---|
60 | Q
|
---|
61 | ;
|
---|
62 | R ;
|
---|
63 | KILL ^%ZVEMS("ZR")
|
---|
64 | S ^%ZVEMS("ZR")="Single Character READ"
|
---|
65 | S TAG="ZR" D BUILD
|
---|
66 | Q
|
---|
67 | ;
|
---|
68 | S ;
|
---|
69 | KILL ^%ZVEMS("ZS")
|
---|
70 | S ^%ZVEMS("ZS")="Save/Restore Variables"
|
---|
71 | S TAG="ZS" D BUILD
|
---|
72 | Q
|
---|
73 | ;
|
---|
74 | SY ;Use to guarantee unique subscript - $J_$G(^%ZVEMS("SY"))
|
---|
75 | ;Necessary because not all systems support $SY.
|
---|
76 | S ^%ZVEMS("SY")=""
|
---|
77 | ;Set error trap to test if vendor supports $SY
|
---|
78 | D ;
|
---|
79 | . NEW X
|
---|
80 | . S X="ERROR^ZVEMSG",@($$TRAP^%ZVEMKU1)
|
---|
81 | . I $SY]"" S ^%ZVEMS("SY")="-"_$SY
|
---|
82 | Q
|
---|
83 | ;
|
---|
84 | T ;
|
---|
85 | KILL ^%ZVEMS("ZT")
|
---|
86 | S ^%ZVEMS("ZT")="Session timed out"
|
---|
87 | S TAG="ZT" D BUILD
|
---|
88 | Q
|
---|
89 | ;
|
---|
90 | INIT ;
|
---|
91 | S U="^"
|
---|
92 | S ^%ZVEMS("%")="Scratch area"
|
---|
93 | S ^%ZVEMS("CLH")="Command line history"
|
---|
94 | S ^%ZVEMS("ID")="User IDs"
|
---|
95 | S ^%ZVEMS("PARAM")="Shell parameters"
|
---|
96 | Q
|
---|
97 | ;
|
---|
98 | ERROR ;
|
---|
99 | Q
|
---|