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

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

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1ZVEMSGS ;DJB,VSHL**VShell Global - System QWIKs ; 12/15/00 10:44pm
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4SYSTEM ;Load the System QWIKs
5 NEW I,QWIK,TYPE,TXT,VEN
6 KILL ^%ZVEMS("QS")
7 S ^%ZVEMS("QS")="System QWIK COMMANDs"
8 S ^%ZVEMS("QU")="User QWIK COMMANDs"
9 F I=1:1 S TXT=$T(QWIK+I) Q:$P(TXT,";",3)="***" S QWIK=$P(TXT,";",3),TYPE=$P(TXT,";",4) D
10 . I TYPE="D" S ^%ZVEMS("QS",QWIK,"DSC")=$P(TXT,";",5,999)
11 . I TYPE="C" S ^%ZVEMS("QS",QWIK)=$P(TXT,";",5,999) ;Code
12 . I TYPE?1.N S ^%ZVEMS("QS",QWIK,TYPE)=$P(TXT,";",5,999) ;Vendor specific code
13 Q
14 ;
15QWIK ;System QWIK Commands
16 ;;ASCII;D;ASCII Table^^3
17 ;;ASCII;C;D ASCII^%ZVEMST
18 ;;CAL;D;Calendar Display^%1=Number of Starting Month^3
19 ;;CAL;C;D CALENDAR^%ZVEMST
20 ;;CLH;D;Resequence Command Line History^^2
21 ;;CLH;C;D CLH^%ZVEMSY1
22 ;;DIC;D;Fileman DIC Look-up Template^^4
23 ;;DIC;C;D DICCALL^%ZVEMSU1
24 ;;DTMVT;D;Reset VT-100 in DataTree^^2
25 ;;DTMVT;C;Q:VEE("OS")'=9 Q:VEE("IO")'=1 U 1:VT=1
26 ;;E;D;Routine Editor^%1=Rtn Name^3
27 ;;E;C;X ^%ZVEMS("E")
28 ;;FMC;D;Fileman Calls^^4
29 ;;FMC;C;D ^%ZVEMSF
30 ;;FMTI;D;Fileman Input Template Display^^4
31 ;;FMTI;C;D DIET^%ZVEMSU1
32 ;;FMTP;D;Fileman Print Template Display^^4
33 ;;FMTP;C;D DIPT^%ZVEMSU1
34 ;;FMTS;D;Fileman Sort Template Display^^4
35 ;;FMTS;C;D DIBT^%ZVEMSU1
36 ;;KEY;D;Display Escape Sequence for any Key^^3
37 ;;KEY;C;D KEY^%ZVEMSU1
38 ;;LBRY;D;Routine Library^%1=ON/OFF %2=Module (L/V)^3
39 ;;LBRY;C;D ^%ZVEMRLM
40 ;;LF;D;VA KERNEL Library Functions^^4
41 ;;LF;C;D ^%ZVEMSL
42 ;;NOTES;D;VPE Programmer Notes^^3
43 ;;NOTES;C;D HELP^%ZVEMKT("NOTES")
44 ;;PARAM;D;System Parameters^^2
45 ;;PARAM;C;D ^%ZVEMSP
46 ;;PUR;D;Purge VShell Temp Storage Area - %ZVEMS("%")^%1=Number of days to preserve^2
47 ;;PUR;C;D PURGE^%ZVEMSU
48 ;;PURVGL;D;Purge Command Line History (VGL)^^2
49 ;;PURVGL;C;KILL ^%ZVEMS("CLH",VEE("ID"),"VGL")
50 ;;PURVRR;D;Purge Command Line History (VRR)^^2
51 ;;PURVRR;C;KILL ^%ZVEMS("CLH",VEE("ID"),"VRR")
52 ;;PURVEDD;D;Purge Command Line History (VEDD)^^2
53 ;;PURVEDD;C;KILL ^%ZVEMS("CLH",VEE("ID"),"VEDD")
54 ;;PURVSHL;D;Purge Command Line History (VShell)^^2
55 ;;PURVSHL;C;KILL ^%ZVEMS("CLH",VEE("ID"),"VSHL")
56 ;;QB;D;Assign QWIK to Display Box^^1
57 ;;QB;C;D BOX^%ZVEMSQU
58 ;;QC;D;Copy a QWIK^^1
59 ;;QC;C;D COPY^%ZVEMSQU
60 ;;QD;D;Delete a QWIK^^1
61 ;;QD;C;D DELETE^%ZVEMSQU
62 ;;QE;D;Add/Edit a QWIK^^1
63 ;;QE;C;S VEESHC="<TAB>" D ^%ZVEMSQ
64 ;;QL1;D;List User QWIKs & Description^^1
65 ;;QL1;C;S VEESHC="<F1-1>" D ^%ZVEMSQ
66 ;;QL2;D;List User QWIKs & Code^^1
67 ;;QL2;C;S VEESHC="<F1-2>" D ^%ZVEMSQ
68 ;;QL3;D;List System QWIKs & Description^^1
69 ;;QL3;C;S VEESHC="<F1-3>" D ^%ZVEMSQ
70 ;;QL4;D;List System QWIKs & Code^^1
71 ;;QL4;C;S VEESHC="<F1-4>" D ^%ZVEMSQ
72 ;;QSAVE;D;Save/Restore User QWIKs^^1
73 ;;QSAVE;C;D SAVE^%ZVEMSS
74 ;;QV;D;Add Vendor Specific Code^^1
75 ;;QV;C;D VENDOR^%ZVEMSQV
76 ;;QVL;D;List Vendor Specific Code^^1
77 ;;QVL;C;D VENLIST^%ZVEMSQW
78 ;;UL;D;List Users DUZ/ID^^2
79 ;;UL;C;D LIST^%ZVEMSID
80 ;;VEDD;D;VElectronic Data Dictionary^^3
81 ;;VEDD;C;D PARAM^%ZVEMD(%1,%2,%3)
82 ;;VER;D;VShell Version Information^^2
83 ;;VER;C;D VERSION^%ZVEMSU2
84 ;;VGL;D;VGlobal Lister^^3
85 ;;VGL;C;D PARAM^%ZVEMG(%1)
86 ;;VRR;D;VRoutine Reader^^3
87 ;;VRR;C;D PARAM^%ZVEMR(%1)
88 ;;XQH;D;Help Text for Kernel Menu Options^%1=Kernel Menu Option^4
89 ;;XQH;C;D XQH^%ZVEMST
90 ;;ZD;D;KILL variables whose names start with these letters^%1=letters %2=letters ...^3
91 ;;ZD;C;D ^%ZVEMSD
92 ;;ZP;D;ZPrint a Routine^%1=Rtn Name^3
93 ;;ZP;C;D ZPRINT^%ZVEMSU2
94 ;;ZR;D;ZRemove 1 to 9 Routines^%1=Rtn Name %2=Rtn Name ...^3
95 ;;ZR;C;Q:'$$ZREMOVE^%ZVEMSU2() NEW I,X F I=1:1:9 S X=@("%"_I) Q:X']"" ZR ZS @X W !?2,X," Removed..."
96 ;;ZW;D;ZWrite Symbol Table^%1=Starting letter^3
97 ;;ZW;C;D WRITE^%ZVEMSPS(%1)
98 ;;***
Note: See TracBrowser for help on using the repository browser.