1 | ZVEMSGH ;DJB,VSHL**VShell Global - Help Text ; 8/29/02 9:21pm
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | Q
|
---|
5 | TEXT ;Load HELP and other text
|
---|
6 | NEW CNT,LN,RTN,TAG,TXT
|
---|
7 | KILL ^%ZVEMS("ZZ") S ^%ZVEMS("ZZ")="Help Text"
|
---|
8 | S RTN="ZVEMSH1",TAG="INTRO" D TEXT1
|
---|
9 | S RTN="ZVEMSH2",TAG="KEYS" D TEXT1
|
---|
10 | S RTN="ZVEMSH3" F TAG="QWIK","USER" D TEXT1
|
---|
11 | S RTN="ZVEMSH4",TAG="SYSTEM" D TEXT1
|
---|
12 | S RTN="ZVEMSH5" F TAG="BOXES","VENDOR" D TEXT1
|
---|
13 | S RTN="ZVEMSH6" F TAG="CLH","PGM" D TEXT1
|
---|
14 | S RTN="ZVEMSH7" F TAG="PARAM","PROT" D TEXT1
|
---|
15 | S RTN="ZVEMSH8",TAG="MISC" D TEXT1
|
---|
16 | S RTN="ZVEMSH9",TAG="KERN" D TEXT1
|
---|
17 | S RTN="ZVEMSF1" F TAG="DDS","DIAC","DIB","DIM","DIO2" D TEXT1
|
---|
18 | S RTN="ZVEMSF2",TAG="DIC" D TEXT1
|
---|
19 | S RTN="ZVEMSF3" F TAG="DIC1","DICN" D TEXT1
|
---|
20 | S RTN="ZVEMSF4" F TAG="DICQ","DICRW","DID","DIEZ","DIFG","DICD","DIKZ" D TEXT1
|
---|
21 | S RTN="ZVEMSF5",TAG="DIE" D TEXT1
|
---|
22 | S RTN="ZVEMSF6" F TAG="DIK","DIPZ","DIR","DIS" D TEXT1
|
---|
23 | S RTN="ZVEMSF7" F TAG="DIP","DIPT" D TEXT1
|
---|
24 | S RTN="ZVEMSF8" F TAG="DIQ","DIQ1" D TEXT1
|
---|
25 | S RTN="ZVEMSF9",TAG="DIWF" D TEXT1
|
---|
26 | S RTN="ZVEMSFA" F TAG="DIU2","DIWE","DIWP","DIWW" D TEXT1
|
---|
27 | S RTN="ZVEMSFB" F TAG="%DT","COMMA" D TEXT1
|
---|
28 | S RTN="ZVEMSFC",TAG="%DTC" D TEXT1
|
---|
29 | S RTN="ZVEMSFD" F TAG="%RCR","DDIOL","DIAXU" D TEXT1
|
---|
30 | S RTN="ZVEMSLA",TAG="DATE" D TEXT1
|
---|
31 | S RTN="ZVEMSLB",TAG="STRING" D TEXT1
|
---|
32 | S RTN="ZVEMSLC",TAG="MATH" D TEXT1
|
---|
33 | S RTN="ZVEMSLD",TAG="MEAS" D TEXT1
|
---|
34 | S RTN="ZVEMSN",TAG="NOTES" D TEXT1
|
---|
35 | S CNT=1
|
---|
36 | S RTN="ZVEMDH1",TAG="VEDD1" D TEXT2
|
---|
37 | S RTN="ZVEMDH2",TAG="VEDD1" D TEXT2
|
---|
38 | S RTN="ZVEMDH3",TAG="VEDD1" D TEXT2
|
---|
39 | S RTN="ZVEMDH4",TAG="VEDD2" D TEXT2
|
---|
40 | S RTN="ZVEMDH5",TAG="VEDD2" D TEXT2
|
---|
41 | S RTN="ZVEMGH",TAG="VGL1" D TEXT1
|
---|
42 | S CNT=1
|
---|
43 | S RTN="ZVEMGH1",TAG="VGL2" D TEXT2
|
---|
44 | S RTN="ZVEMGH2",TAG="VGL2" D TEXT2
|
---|
45 | S CNT=1
|
---|
46 | S RTN="ZVEMRH",TAG="VRR1" D TEXT2
|
---|
47 | S RTN="ZVEMRH1",TAG="VRR1" D TEXT2
|
---|
48 | S RTN="ZVEMRHK",TAG="VRR2" D TEXT2
|
---|
49 | S RTN="ZVEMRHL",TAG="LIBRARY" D TEXT2
|
---|
50 | S RTN="ZVEMRHW",TAG="WEB" D TEXT2
|
---|
51 | Q
|
---|
52 | TEXT1 ;Move text to ^%ZVEMS("ZZ")
|
---|
53 | S CNT=1 W "."
|
---|
54 | ;
|
---|
55 | TEXT2 ;
|
---|
56 | X "F LN=1:1 S TXT=$T("_TAG_"+LN^"_RTN_") Q:TXT']"""" S TXT=$P(TXT,"";;;"",2,999) Q:TXT=""***"" S ^%ZVEMS(""ZZ"",TAG,CNT)=TXT,CNT=CNT+1"
|
---|
57 | Q
|
---|