source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSG.m

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1ZVEMSG ;DJB,VSHL**Global Loader ; 8/29/02 9:15pm
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4 Q
5ALL ;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 ;
23ENTRY ;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 ;
27BUILD ;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 ;
32A ;
33 KILL ^%ZVEMS("ZA")
34 S ^%ZVEMS("ZA")="Main Section"
35 S TAG="ZA" D BUILD
36 Q
37 ;
38C ;
39 KILL ^%ZVEMS("ZC")
40 S ^%ZVEMS("ZC")="Check for global KILL"
41 S TAG="ZC" D BUILD
42 Q
43 ;
44K ;
45 KILL ^%ZVEMS("ZK")
46 S ^%ZVEMS("ZK")="Kill ^%ZVEMS(""%"") on exit, VA KERNEL interface"
47 S TAG="ZK" D BUILD
48 Q
49 ;
50O ;
51 KILL ^%ZVEMS("ZO")
52 S ^%ZVEMS("ZO")="Other"
53 S TAG="ZO" D BUILD
54 Q
55 ;
56Q ;
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 ;
62R ;
63 KILL ^%ZVEMS("ZR")
64 S ^%ZVEMS("ZR")="Single Character READ"
65 S TAG="ZR" D BUILD
66 Q
67 ;
68S ;
69 KILL ^%ZVEMS("ZS")
70 S ^%ZVEMS("ZS")="Save/Restore Variables"
71 S TAG="ZS" D BUILD
72 Q
73 ;
74SY ;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 ;
84T ;
85 KILL ^%ZVEMS("ZT")
86 S ^%ZVEMS("ZT")="Session timed out"
87 S TAG="ZT" D BUILD
88 Q
89 ;
90INIT ;
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 ;
98ERROR ;
99 Q
Note: See TracBrowser for help on using the repository browser.