1 | ZVEMSGT ;DJB,VSHL**VShell Global - System QWIKs cont.. ; 9/6/02 8:47am
|
---|
2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
---|
3 | ;
|
---|
4 | SYSTEM ;Load the System QWIKs
|
---|
5 | NEW I,QWIK,TYPE,TXT,VEN
|
---|
6 | F I=1:1 S TXT=$T(QWIK+I) Q:$P(TXT,";",3)="***" S QWIK=$P(TXT,";",3),TYPE=$P(TXT,";",4) D
|
---|
7 | . I TYPE="D" S ^%ZVEMS("QS",QWIK,"DSC")=$P(TXT,";",5,999)
|
---|
8 | . I TYPE="C" S ^%ZVEMS("QS",QWIK)=$P(TXT,";",5,999) ;Code
|
---|
9 | . I TYPE?1.N S ^%ZVEMS("QS",QWIK,TYPE)=$P(TXT,";",5,999) ;Vendor specific code
|
---|
10 | Q
|
---|
11 | QWIK ;System QWIK Commands
|
---|
12 | ;;DOS;D;DOS Interface^^5
|
---|
13 | ;;DOS;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
14 | ;;DOS;8;D ^%OS
|
---|
15 | ;;DOS;9;d ^%dos
|
---|
16 | ;;G;D;Global List^^5
|
---|
17 | ;;G;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
18 | ;;G;2;D ^%G
|
---|
19 | ;;G;8;D ^%GL
|
---|
20 | ;;G;9;d ^%g
|
---|
21 | ;;G;16;D ^%G
|
---|
22 | ;;G;17;D ^%G
|
---|
23 | ;;G;18;D ^%G
|
---|
24 | ;;G;19;D ^%G
|
---|
25 | ;;GCOPY;D;Global Copy^^5
|
---|
26 | ;;GCOPY;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
27 | ;;GCOPY;2;D ^%GC
|
---|
28 | ;;GCOPY;8;D ^%GCOPY
|
---|
29 | ;;GCOPY;9;d ^%gcopy
|
---|
30 | ;;GCOPY;16;D ^%GC
|
---|
31 | ;;GCOPY;17;D ^%GC
|
---|
32 | ;;GCOPY;19;D ^%GC
|
---|
33 | ;;GD;D;Global Directory^^5
|
---|
34 | ;;GD;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
35 | ;;GD;2;D ^%GD
|
---|
36 | ;;GD;8;D ^%GD
|
---|
37 | ;;GD;9;d ^%gd
|
---|
38 | ;;GD;16;D ^%GD
|
---|
39 | ;;GD;17;D ^%GD
|
---|
40 | ;;GD;18;D ^%GD
|
---|
41 | ;;GD;19;D ^%GD
|
---|
42 | ;;GDE;D;Extended Global Directory^^5
|
---|
43 | ;;GDE;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
44 | ;;GDE;8;D ^%GDE
|
---|
45 | ;;GDE;16;D ^%EGD
|
---|
46 | ;;GEDIT;D;Global Edit^^5
|
---|
47 | ;;GEDIT;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
48 | ;;GEDIT;2;D ^%GEDIT
|
---|
49 | ;;GEDIT;8;D ^%GEDIT
|
---|
50 | ;;GEDIT;9;d ^%gedit
|
---|
51 | ;;GEDIT;16;D ^%GEDIT
|
---|
52 | ;;GEDIT;17;D ^%GED
|
---|
53 | ;;GEDIT;18;D ^%GED
|
---|
54 | ;;GEDIT;19;D ^%GED
|
---|
55 | ;;GLB;D;Global Screen Capture^%1=Global Reference %2=How many lines before pause^5
|
---|
56 | ;;GLB;C;D GLB^%ZVEMKT(%1,"SC",%2)
|
---|
57 | ;;GR;D;Global Restore^^5
|
---|
58 | ;;GR;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
59 | ;;GR;2;D ^%GTI
|
---|
60 | ;;GR;8;D ^%GR
|
---|
61 | ;;GR;9;d ^%gload
|
---|
62 | ;;GR;16;D ^%GTI
|
---|
63 | ;;GR;17;D ^%GI
|
---|
64 | ;;GR;18;D ^%GI
|
---|
65 | ;;GR;19;D ^%GI
|
---|
66 | ;;GS;D;Global Save^^5
|
---|
67 | ;;GS;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
68 | ;;GS;2;D ^%GTO
|
---|
69 | ;;GS;8;D ^%GS
|
---|
70 | ;;GS;9;d ^%gsave
|
---|
71 | ;;GS;16;D ^%GTO
|
---|
72 | ;;GS;17;D ^%GO
|
---|
73 | ;;GS;19;D ^%GO
|
---|
74 | ;;GSE;D;Global Search^^5
|
---|
75 | ;;GSE;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
76 | ;;GSE;8;D ^%GSE
|
---|
77 | ;;GSE;9;d ^%gedit
|
---|
78 | ;;GSE;17;D ^%GSE
|
---|
79 | ;;GSE;19;D ^%GSE
|
---|
80 | ;;GSEL;D;Global Select^^5
|
---|
81 | ;;GSEL;C;W $C(7),!?2,"Not available for this M Vendor.",!
|
---|
82 | ;;GSEL;2;D ^%GSEL
|
---|
83 | ;;GSEL;8;D ^%GSEL
|
---|
84 | ;;GSEL;9;w $$^%gselect," globals selected"
|
---|
85 | ;;GSEL;16;D ^%GSEL
|
---|
86 | ;;GSEL;17;D ^%GSEL
|
---|
87 | ;;GSEL;18;D ^%GSET
|
---|
88 | ;;GSEL;19;D ^%GSEL
|
---|
89 | ;;***
|
---|