| [613] | 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 | ;;***
|
|---|
