← Back to branch summary

~derek-name/openvista-gtm-integration/bug818588-ovbackup_nice

« back to all changes in this revision

Viewing changes to kids/XU_80_1502.KID

  • Committer: Jonathan Tai
  • Date: 2010-09-18 01:17:57 UTC
  • mfrom: (135.1.1 bug640867)
  • Revision ID: jon.tai@medsphere.com-20100918011757-4b37isslx7j8zd92
Merge bug 640867 - Code in %ZOSF("SAVE") should set XCM

Show diffs side-by-side

added added

removed removed

Lines of Context:
kids/XU_80_1502.KID
 
1
KIDS Distribution saved on Sep 16, 2010@08:31:52
 
2
artf10494 - Fix for gtm %ZOSV2
 
3
**KIDS**:XU*8.0*1502^
 
4
 
 
5
**INSTALL NAME**
 
6
XU*8.0*1502
 
7
"BLD",7169,0)
 
8
XU*8.0*1502^^0^3100916^n
 
9
"BLD",7169,4,0)
 
10
^9.64PA^^
 
11
"BLD",7169,6.3)
 
12
2
 
13
"BLD",7169,"KRN",0)
 
14
^9.67PA^8989.52^19
 
15
"BLD",7169,"KRN",.4,0)
 
16
.4
 
17
"BLD",7169,"KRN",.401,0)
 
18
.401
 
19
"BLD",7169,"KRN",.402,0)
 
20
.402
 
21
"BLD",7169,"KRN",.403,0)
 
22
.403
 
23
"BLD",7169,"KRN",.5,0)
 
24
.5
 
25
"BLD",7169,"KRN",.84,0)
 
26
.84
 
27
"BLD",7169,"KRN",3.6,0)
 
28
3.6
 
29
"BLD",7169,"KRN",3.8,0)
 
30
3.8
 
31
"BLD",7169,"KRN",9.2,0)
 
32
9.2
 
33
"BLD",7169,"KRN",9.8,0)
 
34
9.8
 
35
"BLD",7169,"KRN",9.8,"NM",0)
 
36
^9.68A^1^1
 
37
"BLD",7169,"KRN",9.8,"NM",1,0)
 
38
ZOSV2GTM^^0^B7776648
 
39
"BLD",7169,"KRN",9.8,"NM","B","ZOSV2GTM",1)
 
40
 
 
41
"BLD",7169,"KRN",19,0)
 
42
19
 
43
"BLD",7169,"KRN",19.1,0)
 
44
19.1
 
45
"BLD",7169,"KRN",101,0)
 
46
101
 
47
"BLD",7169,"KRN",409.61,0)
 
48
409.61
 
49
"BLD",7169,"KRN",771,0)
 
50
771
 
51
"BLD",7169,"KRN",870,0)
 
52
870
 
53
"BLD",7169,"KRN",8989.51,0)
 
54
8989.51
 
55
"BLD",7169,"KRN",8989.52,0)
 
56
8989.52
 
57
"BLD",7169,"KRN",8994,0)
 
58
8994
 
59
"BLD",7169,"KRN","B",.4,.4)
 
60
 
 
61
"BLD",7169,"KRN","B",.401,.401)
 
62
 
 
63
"BLD",7169,"KRN","B",.402,.402)
 
64
 
 
65
"BLD",7169,"KRN","B",.403,.403)
 
66
 
 
67
"BLD",7169,"KRN","B",.5,.5)
 
68
 
 
69
"BLD",7169,"KRN","B",.84,.84)
 
70
 
 
71
"BLD",7169,"KRN","B",3.6,3.6)
 
72
 
 
73
"BLD",7169,"KRN","B",3.8,3.8)
 
74
 
 
75
"BLD",7169,"KRN","B",9.2,9.2)
 
76
 
 
77
"BLD",7169,"KRN","B",9.8,9.8)
 
78
 
 
79
"BLD",7169,"KRN","B",19,19)
 
80
 
 
81
"BLD",7169,"KRN","B",19.1,19.1)
 
82
 
 
83
"BLD",7169,"KRN","B",101,101)
 
84
 
 
85
"BLD",7169,"KRN","B",409.61,409.61)
 
86
 
 
87
"BLD",7169,"KRN","B",771,771)
 
88
 
 
89
"BLD",7169,"KRN","B",870,870)
 
90
 
 
91
"BLD",7169,"KRN","B",8989.51,8989.51)
 
92
 
 
93
"BLD",7169,"KRN","B",8989.52,8989.52)
 
94
 
 
95
"BLD",7169,"KRN","B",8994,8994)
 
96
 
 
97
"BLD",7169,"MSC")
 
98
C:\MSC_GTM_INTEGRATION_1015.KID
 
99
"BLD",7169,"MSCOM")
 
100
artf10494 - Fix for gtm %ZOSV2
 
101
"MBREQ")
 
102
0
 
103
"QUES","XPF1",0)
 
104
Y
 
105
"QUES","XPF1","??")
 
106
^D REP^XPDH
 
107
"QUES","XPF1","A")
 
108
Shall I write over your |FLAG| File
 
109
"QUES","XPF1","B")
 
110
YES
 
111
"QUES","XPF1","M")
 
112
D XPF1^XPDIQ
 
113
"QUES","XPF2",0)
 
114
Y
 
115
"QUES","XPF2","??")
 
116
^D DTA^XPDH
 
117
"QUES","XPF2","A")
 
118
Want my data |FLAG| yours
 
119
"QUES","XPF2","B")
 
120
YES
 
121
"QUES","XPF2","M")
 
122
D XPF2^XPDIQ
 
123
"QUES","XPI1",0)
 
124
YO
 
125
"QUES","XPI1","??")
 
126
^D INHIBIT^XPDH
 
127
"QUES","XPI1","A")
 
128
Want KIDS to INHIBIT LOGONs during the install
 
129
"QUES","XPI1","B")
 
130
NO
 
131
"QUES","XPI1","M")
 
132
D XPI1^XPDIQ
 
133
"QUES","XPM1",0)
 
134
PO^VA(200,:EM
 
135
"QUES","XPM1","??")
 
136
^D MG^XPDH
 
137
"QUES","XPM1","A")
 
138
Enter the Coordinator for Mail Group '|FLAG|'
 
139
"QUES","XPM1","B")
 
140
 
 
141
"QUES","XPM1","M")
 
142
D XPM1^XPDIQ
 
143
"QUES","XPO1",0)
 
144
Y
 
145
"QUES","XPO1","??")
 
146
^D MENU^XPDH
 
147
"QUES","XPO1","A")
 
148
Want KIDS to Rebuild Menu Trees Upon Completion of Install
 
149
"QUES","XPO1","B")
 
150
NO
 
151
"QUES","XPO1","M")
 
152
D XPO1^XPDIQ
 
153
"QUES","XPZ1",0)
 
154
Y
 
155
"QUES","XPZ1","??")
 
156
^D OPT^XPDH
 
157
"QUES","XPZ1","A")
 
158
Want to DISABLE Scheduled Options, Menu Options, and Protocols
 
159
"QUES","XPZ1","B")
 
160
NO
 
161
"QUES","XPZ1","M")
 
162
D XPZ1^XPDIQ
 
163
"QUES","XPZ2",0)
 
164
Y
 
165
"QUES","XPZ2","??")
 
166
^D RTN^XPDH
 
167
"QUES","XPZ2","A")
 
168
Want to MOVE routines to other CPUs
 
169
"QUES","XPZ2","B")
 
170
NO
 
171
"QUES","XPZ2","M")
 
172
D XPZ2^XPDIQ
 
173
"RTN")
 
174
1
 
175
"RTN","ZOSV2GTM")
 
176
0^1^B7776648
 
177
"RTN","ZOSV2GTM",1,0)
 
178
%ZOSV2 ;ISF/RWF MSC/JDS,JKT - More GT.M support routines ;16 SEPT 2010  0220
 
179
"RTN","ZOSV2GTM",2,0)
 
180
 ;;8.0;KERNEL;**275,1502**;Jul 10, 1995
 
181
"RTN","ZOSV2GTM",3,0)
 
182
 Q
 
183
"RTN","ZOSV2GTM",4,0)
 
184
 ;SAVE: DIE open array reference.
 
185
"RTN","ZOSV2GTM",5,0)
 
186
 ;      XCN is the starting value to $O from.
 
187
"RTN","ZOSV2GTM",6,0)
 
188
SAVE(RN) ;Save a routine
 
189
"RTN","ZOSV2GTM",7,0)
 
190
 N %,%F,%I,%N,SP,$ETRAP,%S
 
191
"RTN","ZOSV2GTM",8,0)
 
192
 S $ETRAP="S $ECODE="""" Q"
 
193
"RTN","ZOSV2GTM",9,0)
 
194
 S %I=$I,SP=" ",%F=$$RTNDIR^%ZOSV()_RN_".m"
 
195
"RTN","ZOSV2GTM",10,0)
 
196
 O %F:(newversion:noreadonly:blocksize=2048:recordsize=2044) U %F
 
197
"RTN","ZOSV2GTM",11,0)
 
198
 N Q,ZS,I S Q=+$G(XCN) F I=0,1 S Q=$O(@(DIE_Q_")")) Q:Q=""  S Q=DIE_Q_")",Q=$Q(@Q)  Q:Q'["0)"  S Q=$O(@(DIE_$QS(Q,$L(DIE,",")+1)_")")) Q:Q=""  S:I ZS=1
 
199
"RTN","ZOSV2GTM",12,0)
 
200
 F XCM=1:1 S XCN=$O(@(DIE_+$G(XCN)_")")) Q:XCN'>0  S %=@(DIE_XCN_$S($G(ZS):",0",1:"")_")") Q:$E(%,1)="$"  I $E(%)'=";" W $P(%,SP)_$C(9)_$P(%,SP,2,99999),!
 
201
"RTN","ZOSV2GTM",13,0)
 
202
 C %F ;S %N=$$NULL
 
203
"RTN","ZOSV2GTM",14,0)
 
204
 ;C %N
 
205
"RTN","ZOSV2GTM",15,0)
 
206
 U %I
 
207
"RTN","ZOSV2GTM",16,0)
 
208
 ZLINK RN
 
209
"RTN","ZOSV2GTM",17,0)
 
210
 Q
 
211
"RTN","ZOSV2GTM",18,0)
 
212
NULL() ;Open and use null to hide talking.  Return open name
 
213
"RTN","ZOSV2GTM",19,0)
 
214
 ;Doesn't work for compile errors
 
215
"RTN","ZOSV2GTM",20,0)
 
216
 N %N S %N=$S($ZV["VMS":"NLA0:",1:"/dev/null")
 
217
"RTN","ZOSV2GTM",21,0)
 
218
 O %N U %N
 
219
"RTN","ZOSV2GTM",22,0)
 
220
 Q %N
 
221
"RTN","ZOSV2GTM",23,0)
 
222
 ;
 
223
"RTN","ZOSV2GTM",24,0)
 
224
DEL(RN) ;Delete a routine file, both source and object.
 
225
"RTN","ZOSV2GTM",25,0)
 
226
 ; Since the actual routine may be somewhere in a search path, and may be shared
 
227
"RTN","ZOSV2GTM",26,0)
 
228
 ; with other environments, this places a routine in the first source directory in
 
229
"RTN","ZOSV2GTM",27,0)
 
230
 ; the search path, which, if executed, generates an error to the effect that the
 
231
"RTN","ZOSV2GTM",28,0)
 
232
 ; called routine doesn't exist (i.e., it's a way to effect a deletion without
 
233
"RTN","ZOSV2GTM",29,0)
 
234
 ; actually deleting the routine).
 
235
"RTN","ZOSV2GTM",30,0)
 
236
 N %N,%DIR,%I,$ETRAP,%F,%O,%S
 
237
"RTN","ZOSV2GTM",31,0)
 
238
 S $ETRAP="S $ECODE="""" Q"
 
239
"RTN","ZOSV2GTM",32,0)
 
240
 D SILENT^%RSEL(RN) S %S=%ZR(RN) ; %S now has the directory of the source
 
241
"RTN","ZOSV2GTM",33,0)
 
242
 D SILENT^%RSEL(RN,"OBJ") S %O=%ZR(RN)    ; %O now has the directory of the object
 
243
"RTN","ZOSV2GTM",34,0)
 
244
 S %DIR=$$RTNDIR^%ZOSV           ; %DIR now has the first source directory in $ZRO
 
245
"RTN","ZOSV2GTM",35,0)
 
246
 S %N=$TR(RN,"%","_")            ; %N now has the file name for RN (sans extension)
 
247
"RTN","ZOSV2GTM",36,0)
 
248
 I $ZPARSE(%S)'=$ZPARSE(%DIR) D
 
249
"RTN","ZOSV2GTM",37,0)
 
250
 .S %I=$I,%F=%DIR_%N_".m"
 
251
"RTN","ZOSV2GTM",38,0)
 
252
 .O %F:(NEWVERSION) U %F W " ZM 150374338:$P($ZPOS,""^"",2) Q",! U %I C %F
 
253
"RTN","ZOSV2GTM",39,0)
 
254
 E  ZSY "rm -f "_%S_%N_".m "_%S_%N_".o"
 
255
"RTN","ZOSV2GTM",40,0)
 
256
 Q
 
257
"RTN","ZOSV2GTM",41,0)
 
258
 ;LOAD: DIF open array to receive the routine lines.
 
259
"RTN","ZOSV2GTM",42,0)
 
260
 ;      XCNP The starting index -1.
 
261
"RTN","ZOSV2GTM",43,0)
 
262
LOAD(RN) ;Load a routine
 
263
"RTN","ZOSV2GTM",44,0)
 
264
 N %
 
265
"RTN","ZOSV2GTM",45,0)
 
266
 S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@RN) Q:$L(%)=0  S @(DIF_XCNP_",0)")=%
 
267
"RTN","ZOSV2GTM",46,0)
 
268
 Q
 
269
"RTN","ZOSV2GTM",47,0)
 
270
 ;
 
271
"RTN","ZOSV2GTM",48,0)
 
272
LOAD2(RN) ;Load a routine
 
273
"RTN","ZOSV2GTM",49,0)
 
274
 N %,%1,%F,%N,$ETRAP
 
275
"RTN","ZOSV2GTM",50,0)
 
276
 S %I=$I,%F=$$RTNDIR^%ZOSV()_$TR(RN,"%","_")_".m"
 
277
"RTN","ZOSV2GTM",51,0)
 
278
 O %F:(readonly):1 Q:'$T  U %F
 
279
"RTN","ZOSV2GTM",52,0)
 
280
 F XCNP=XCNP+1:1 R %1:1 Q:'$T!$ZEOF  S @(DIF_XCNP_",0)")=$TR(%1,$C(9)," ")
 
281
"RTN","ZOSV2GTM",53,0)
 
282
 C %F I $L(%I) U %I
 
283
"RTN","ZOSV2GTM",54,0)
 
284
 Q
 
285
"RTN","ZOSV2GTM",55,0)
 
286
 ;
 
287
"RTN","ZOSV2GTM",56,0)
 
288
RSUM(RN) ;Calculate a RSUM value
 
289
"RTN","ZOSV2GTM",57,0)
 
290
 N %,DIF,XCNP,%N,Y,$ETRAP K ^TMP("RSUM",$J)
 
291
"RTN","ZOSV2GTM",58,0)
 
292
 S $ETRAP="S $ECODE="""" Q"
 
293
"RTN","ZOSV2GTM",59,0)
 
294
 S Y=0,DIF="^TMP(""RSUM"",$J,",XCNP=0 D LOAD2(RN)
 
295
"RTN","ZOSV2GTM",60,0)
 
296
 F %=1,3:1 S %1=$G(^TMP("RSUM",$J,%,0)),%3=$F(%1," ") Q:'%3  S %3=$S($E(%1,%3)'=";":$L(%1),$E(%1,%3+1)=";":$L(%1),1:%3-2) F %2=1:1:%3 S Y=$A(%1,%2)*%2+Y
 
297
"RTN","ZOSV2GTM",61,0)
 
298
 K ^TMP("RSUM",$J)
 
299
"RTN","ZOSV2GTM",62,0)
 
300
 Q Y
 
301
"RTN","ZOSV2GTM",63,0)
 
302
 ;
 
303
"RTN","ZOSV2GTM",64,0)
 
304
TEST(RN) ;Special GT.M Test to see if routine is here.
 
305
"RTN","ZOSV2GTM",65,0)
 
306
 D SILENT^%RSEL(RN)
 
307
"RTN","ZOSV2GTM",66,0)
 
308
 Q $G(%ZR(RN))
 
309
"RTN","ZOSV2GTM",67,0)
 
310
 
 
311
"VER")
 
312
8.0^22.0
 
313
**END**
 
314
**END**