source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSGT.m@ 1204

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

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1ZVEMSGT ;DJB,VSHL**VShell Global - System QWIKs cont.. ; 9/6/02 8:47am
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4SYSTEM ;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
11QWIK ;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 ;;***
Note: See TracBrowser for help on using the repository browser.