1 | ZVEMSGS ;DJB,VSHL**VShell Global - System QWIKs ; 12/15/00 10:44pm
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | SYSTEM ;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 | ;
|
---|
15 | QWIK ;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 | ;;***
|
---|