source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSGH.m@ 699

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

initial load of WorldVistAEHR

File size: 2.0 KB
RevLine 
[613]1ZVEMSGH ;DJB,VSHL**VShell Global - Help Text ; 8/29/02 9:21pm
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4 Q
5TEXT ;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
52TEXT1 ;Move text to ^%ZVEMS("ZZ")
53 S CNT=1 W "."
54 ;
55TEXT2 ;
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
Note: See TracBrowser for help on using the repository browser.