| [613] | 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
|
|---|
