source: IHS-VA_UTILITIES-XB/ZIBVSS.m@ 641

Last change on this file since 641 was 641, checked in by Sam Habiel, 15 years ago

Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
File size: 4.7 KB
Line 
1ZIBVSS ; IHS/ADC/GTH - VENDOR SPECIFIC SUBROUTINES ; [ 10/29/2002 7:42 AM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
4 ;XB*3*9 fixed LG,CG,GCH,GSZE,GR,GS,RCMP,RR,RS,RDEL,RSE,RSAND,NEWED,RCHANGE,RCOPY,RPRT,ER to work with Cache'
5 ;XB*3*9 GSE,GE,GCHR,GDEL,REDIT don't currently work with Cache'
6 ;
7LG ;EP - List global
8 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GL",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
9 D @$S($G(^%ZOSF("OS"))["MSM":"^%GL",$G(^%ZOSF("OS"))["OpenM":"^%G",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
10 Q
11 ;
12CG ;EP - Copy global to another UCI
13 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
14 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%GCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
15 Q
16 ;
17GSE ;EP - Search global for value
18 D @$S($G(^%ZOSF("OS"))["MSM":"^%GSE",1:"OSNO^XB")
19 Q
20 ;
21GE ;EP - Global edit
22 D @$S($G(^%ZOSF("OS"))["MSM":"^%GEDIT",1:"OSNO^XB")
23 Q
24 ;
25GCH ;EP - Change global value
26 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
27 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%GCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
28 Q
29 ;
30GSZE ;EP - Global size/efficiency
31 ;D @$S(^%ZOSF("OS")["MSM":"^%GE",1:"^%ZTBKC") ;IHS/SET/GTH XB*3*9 10/29/2002
32 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%GSIZE",1:"^%ZTBKC")
33 Q
34 ;
35GCHR ;EP - Global characteristics
36 D @$S($G(^%ZOSF("OS"))["MSM":"^%GCH",1:"OSNO^XB")
37 Q
38 ;
39GDEL ;EP - Global delete
40 D @$S($G(^%ZOSF("OS"))["MSM":"^%GDEL",1:"OSNO^XB")
41 Q
42 ;
43GR ;EP - Global restore
44 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GR",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
45 D @$S($G(^%ZOSF("OS"))["MSM":"^%GR",$G(^%ZOSF("OS"))["OpenM":"^%GI",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
46 Q
47 ;
48GS ;EP - Global save
49 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%GS",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
50 D @$S($G(^%ZOSF("OS"))["MSM":"^%GS",$G(^%ZOSF("OS"))["OpenM":"^%GO",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
51 Q
52 ;
53RCMP ;EP - Compare routines in two UCIs
54 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCMP",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
55 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%RCMP",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
56 Q
57 ;
58RR ;EP - Restore routines
59 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RR",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
60 D @$S($G(^%ZOSF("OS"))["MSM":"^%RR",$G(^%ZOSF("OS"))["OpenM":"^%RI",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
61 Q
62 ;
63RS ;EP - Save routines
64 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RS",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
65 D @$S($G(^%ZOSF("OS"))["MSM":"^%RS",$G(^%ZOSF("OS"))["OpenM":"^%RO",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
66 Q
67 ;
68RDEL ;EP - Delete routines
69 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RDEL",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
70 D @$S($G(^%ZOSF("OS"))["MSM":"^%RDEL",$G(^%ZOSF("OS"))["OpenM":"^%RDELETE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
71 Q
72 ;
73RSE ;EP - Search routines for values (OR)
74 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RSE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
75 D @$S($G(^%ZOSF("OS"))["MSM":"^%RSE",$G(^%ZOSF("OS"))["OpenM":"^%RFIND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
76 Q
77 ;
78RSAND ;EP - Search routines for values (AND)
79 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RSAND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
80 D @$S($G(^%ZOSF("OS"))["MSM":"^%RSAND",$G(^%ZOSF("OS"))["OpenM":"^%RFIND",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
81 Q
82 ;
83NEWED ;EP - Find routines by edit date
84 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%NEWED",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
85 D @$S($G(^%ZOSF("OS"))["MSM":"^%NEWED",$G(^%ZOSF("OS"))["OpenM":"^%RD",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
86 Q
87 ;
88REDIT ;EP - Full screen editor
89 ;Q:'($G(^%ZOSF("OS"))["MSM") ;IHS/SET/GTH XB*3*9 10/29/2002
90 I '($G(^%ZOSF("OS"))["MSM") D OSNO^XB Q ;IHS/SET/GTH XB*3*9 10/29/2002
91 X "ZR NEW (XB) X ^%E"
92 Q
93 ;
94RCHANGE ;EP - Routine change
95 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
96 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%RCHANGE",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
97 Q
98 ;
99RCOPY ;EP - Routine copy
100 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
101 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%RCOPY",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
102 Q
103 ;
104RPRT ;EP - List routines
105 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%RPRT",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
106 D @$S($G(^%ZOSF("OS"))["MSM":"^%RPRT",$G(^%ZOSF("OS"))["OpenM":"^ZIBRPRTD",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
107 Q
108 ;
109ER ;EP - Error report
110 ;D @$S($G(^%ZOSF("OS"))["MSM":"^%ER",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
111 D @$S($G(^%ZOSF("OS"))["MSM"!($G(^%ZOSF("OS"))["OpenM"):"^%ER",1:"OSNO^XB") ;IHS/SET/GTH XB*3*9 10/29/2002
112 Q
113 ;
Note: See TracBrowser for help on using the repository browser.