| 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
|
|---|
