source: VWGUIRegistration/tag/2.0/VWREG_03042017_P2T3_0.KID

Last change on this file was 1789, checked in by Jim B., 7 years ago
File size: 6.7 KB
Line 
1KIDS Distribution saved on Mar 04, 2017@11:39:41
2Supplemental to P1 ('cause I forgot to include it)
3**KIDS**:VWREG_PATCH*2.0T3*0^
4
5**INSTALL NAME**
6VWREG_PATCH*2.0T3*0
7"BLD",8569,0)
8VWREG_PATCH*2.0T3*0^^0^3170304^n
9"BLD",8569,1,0)
10^^1^1^3170304^
11"BLD",8569,1,1,0)
12Supplemental to PATCH*1 because I forgot to enter VWREGIT2 routine
13"BLD",8569,4,0)
14^9.64PA^^
15"BLD",8569,6.3)
161
17"BLD",8569,"KRN",0)
18^9.67PA^779.2^20
19"BLD",8569,"KRN",.4,0)
20.4
21"BLD",8569,"KRN",.401,0)
22.401
23"BLD",8569,"KRN",.402,0)
24.402
25"BLD",8569,"KRN",.403,0)
26.403
27"BLD",8569,"KRN",.5,0)
28.5
29"BLD",8569,"KRN",.84,0)
30.84
31"BLD",8569,"KRN",3.6,0)
323.6
33"BLD",8569,"KRN",3.8,0)
343.8
35"BLD",8569,"KRN",9.2,0)
369.2
37"BLD",8569,"KRN",9.8,0)
389.8
39"BLD",8569,"KRN",9.8,"NM",0)
40^9.68A^1^1
41"BLD",8569,"KRN",9.8,"NM",1,0)
42VWREGIT2^^0^B7008432
43"BLD",8569,"KRN",9.8,"NM","B","VWREGIT2",1)
44
45"BLD",8569,"KRN",19,0)
4619
47"BLD",8569,"KRN",19.1,0)
4819.1
49"BLD",8569,"KRN",101,0)
50101
51"BLD",8569,"KRN",409.61,0)
52409.61
53"BLD",8569,"KRN",771,0)
54771
55"BLD",8569,"KRN",779.2,0)
56779.2
57"BLD",8569,"KRN",870,0)
58870
59"BLD",8569,"KRN",8989.51,0)
608989.51
61"BLD",8569,"KRN",8989.52,0)
628989.52
63"BLD",8569,"KRN",8994,0)
648994
65"BLD",8569,"KRN","B",.4,.4)
66
67"BLD",8569,"KRN","B",.401,.401)
68
69"BLD",8569,"KRN","B",.402,.402)
70
71"BLD",8569,"KRN","B",.403,.403)
72
73"BLD",8569,"KRN","B",.5,.5)
74
75"BLD",8569,"KRN","B",.84,.84)
76
77"BLD",8569,"KRN","B",3.6,3.6)
78
79"BLD",8569,"KRN","B",3.8,3.8)
80
81"BLD",8569,"KRN","B",9.2,9.2)
82
83"BLD",8569,"KRN","B",9.8,9.8)
84
85"BLD",8569,"KRN","B",19,19)
86
87"BLD",8569,"KRN","B",19.1,19.1)
88
89"BLD",8569,"KRN","B",101,101)
90
91"BLD",8569,"KRN","B",409.61,409.61)
92
93"BLD",8569,"KRN","B",771,771)
94
95"BLD",8569,"KRN","B",779.2,779.2)
96
97"BLD",8569,"KRN","B",870,870)
98
99"BLD",8569,"KRN","B",8989.51,8989.51)
100
101"BLD",8569,"KRN","B",8989.52,8989.52)
102
103"BLD",8569,"KRN","B",8994,8994)
104
105"MBREQ")
1060
107"QUES","XPF1",0)
108Y
109"QUES","XPF1","??")
110^D REP^XPDH
111"QUES","XPF1","A")
112Shall I write over your |FLAG| File
113"QUES","XPF1","B")
114YES
115"QUES","XPF1","M")
116D XPF1^XPDIQ
117"QUES","XPF2",0)
118Y
119"QUES","XPF2","??")
120^D DTA^XPDH
121"QUES","XPF2","A")
122Want my data |FLAG| yours
123"QUES","XPF2","B")
124YES
125"QUES","XPF2","M")
126D XPF2^XPDIQ
127"QUES","XPI1",0)
128YO
129"QUES","XPI1","??")
130^D INHIBIT^XPDH
131"QUES","XPI1","A")
132Want KIDS to INHIBIT LOGONs during the install
133"QUES","XPI1","B")
134NO
135"QUES","XPI1","M")
136D XPI1^XPDIQ
137"QUES","XPM1",0)
138PO^VA(200,:EM
139"QUES","XPM1","??")
140^D MG^XPDH
141"QUES","XPM1","A")
142Enter the Coordinator for Mail Group '|FLAG|'
143"QUES","XPM1","B")
144
145"QUES","XPM1","M")
146D XPM1^XPDIQ
147"QUES","XPO1",0)
148Y
149"QUES","XPO1","??")
150^D MENU^XPDH
151"QUES","XPO1","A")
152Want KIDS to Rebuild Menu Trees Upon Completion of Install
153"QUES","XPO1","B")
154NO
155"QUES","XPO1","M")
156D XPO1^XPDIQ
157"QUES","XPZ1",0)
158Y
159"QUES","XPZ1","??")
160^D OPT^XPDH
161"QUES","XPZ1","A")
162Want to DISABLE Scheduled Options, Menu Options, and Protocols
163"QUES","XPZ1","B")
164NO
165"QUES","XPZ1","M")
166D XPZ1^XPDIQ
167"QUES","XPZ2",0)
168Y
169"QUES","XPZ2","??")
170^D RTN^XPDH
171"QUES","XPZ2","A")
172Want to MOVE routines to other CPUs
173"QUES","XPZ2","B")
174NO
175"QUES","XPZ2","M")
176D XPZ2^XPDIQ
177"RTN")
1781
179"RTN","VWREGIT2")
1800^1^B7008432
181"RTN","VWREGIT2",1,0)
182VWREGIT2 ;Portland/WorldVista/BFP,LLC/Jim Bell, et al... - Post-Install for VWREG
183"RTN","VWREGIT2",2,0)
184 ;;1.0;WORLD VISTA;**HOME **;;Build 1
185"RTN","VWREGIT2",3,0)
186 ;
187"RTN","VWREGIT2",4,0)
188 ;Continued from VWREGIT
189"RTN","VWREGIT2",5,0)
190 ;
191"RTN","VWREGIT2",6,0)
192 ;GNU License: See WVLIC.txt
193"RTN","VWREGIT2",7,0)
194 ;Modified FOIA VISTA,
195"RTN","VWREGIT2",8,0)
196 ;Copyright 2013 WorldVistA. Licensed under the terms of the GNU
197"RTN","VWREGIT2",9,0)
198 Q
199"RTN","VWREGIT2",10,0)
200PRE ;Did this installation happen already? Avoid a re-do?
201"RTN","VWREGIT2",11,0)
202 I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0))&($D(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0))) W !?5,"Installation has already occurred"
203"RTN","VWREGIT2",12,0)
204 W !,"Do you want to continue? NO//" R X:60 S:'$L(X) X="NO" S X=$$UP^XLFSTR(X)
205"RTN","VWREGIT2",13,0)
206 I "NON"[X W !,"OK" D ^XUSCLEAN
207"RTN","VWREGIT2",14,0)
208 Q
209"RTN","VWREGIT2",15,0)
210 ;
211"RTN","VWREGIT2",16,0)
212PI ;Post Installation install
213"RTN","VWREGIT2",17,0)
214 ;Checking for a home directory & file
215"RTN","VWREGIT2",18,0)
216 I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) W !?5,"Installation has already occurred" Q
217"RTN","VWREGIT2",19,0)
218 S AR=1,AR(1)="[TEMPLATES]"
219"RTN","VWREGIT2",20,0)
220 S N=0 F S N=$O(^DIE(N)) Q:'+N S X=$P(^(N,0),"^") D
221"RTN","VWREGIT2",21,0)
222 . I X["VW " S AR($I(AR))=X_"("_N_")"
223"RTN","VWREGIT2",22,0)
224 . I X["[World" S AR($I(AR))=X_"("_N_")"
225"RTN","VWREGIT2",23,0)
226 S AR($I(AR))="[ID]"
227"RTN","VWREGIT2",24,0)
228 S P4=1,P5="",HD=$ZDIRECTORY_"regparam/",FILE="regit.txt"
229"RTN","VWREGIT2",25,0)
230 S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt")
231"RTN","VWREGIT2",26,0)
232 ZSY "chmod 777 "_$ZDIRECTORY_"regparam/"_FILE ;No sensitive info here
233"RTN","VWREGIT2",27,0)
234 Q:$G(TEST) ;Straightening out regit.txt
235"RTN","VWREGIT2",28,0)
236 ;
237"RTN","VWREGIT2",29,0)
238 ;; NOTE: The parameter definition is installed but there is no installation for
239"RTN","VWREGIT2",30,0)
240 ;;the actual parameter and value. Do it here.
241"RTN","VWREGIT2",31,0)
242 ;parameter value attempt
243"RTN","VWREGIT2",32,0)
244 ;Set a home directory for editing; SYSTEM (DIC(4,) and DOMAIN (DIC(4.2,) only:"/home/vista/regparam/"
245"RTN","VWREGIT2",33,0)
246 S PARD=$O(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0))
247"RTN","VWREGIT2",34,0)
248 I PARD D
249"RTN","VWREGIT2",35,0)
250 . L +^XTV(8989.5,0):1 D L -^XTV(8989.5,0)
251"RTN","VWREGIT2",36,0)
252 .. S NEW=$O(^XTV(8989.5," "),-1)+1
253"RTN","VWREGIT2",37,0)
254 .. S $P(^XTV(8989.5,0),"^",3)=NEW
255"RTN","VWREGIT2",38,0)
256 .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1
257"RTN","VWREGIT2",39,0)
258 .. S $P(^XTV(8989.5,NEW,0),"^")="1;DIC(4,"
259"RTN","VWREGIT2",40,0)
260 .. S $P(^XTV(8989.5,NEW,0),"^",2)=PARD
261"RTN","VWREGIT2",41,0)
262 .. S $P(^XTV(8989.5,NEW,0),"^",3)=1
263"RTN","VWREGIT2",42,0)
264 .. S ^XTV(8989.5,NEW,1)=HD
265"RTN","VWREGIT2",43,0)
266 .. S DA=NEW,DIK="^XTV(8989.5," D IX^DIK
267"RTN","VWREGIT2",44,0)
268 .. S NEW2=$O(^XTV(8989.5," "),-1)+1
269"RTN","VWREGIT2",45,0)
270 .. S $P(^XTV(8989.5,0),"^",3)=NEW2
271"RTN","VWREGIT2",46,0)
272 .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1
273"RTN","VWREGIT2",47,0)
274 .. S $P(^XTV(8989.5,NEW2,0),"^")="9;DIC(4.2,"
275"RTN","VWREGIT2",48,0)
276 .. S $P(^XTV(8989.5,NEW2,0),"^",2)=PARD
277"RTN","VWREGIT2",49,0)
278 .. S $P(^XTV(8989.5,NEW2,0),"^",3)=1
279"RTN","VWREGIT2",50,0)
280 .. S ^XTV(8989.5,NEW2,1)=HD
281"RTN","VWREGIT2",51,0)
282 .. S DA=NEW2,DIK="^XTV(8989.5," D IX^DIK
283"RTN","VWREGIT2",52,0)
284 ;
285"RTN","VWREGIT2",53,0)
286 ;Mailgroup VW REG ERROR REPORT - add programmer's email
287"RTN","VWREGIT2",54,0)
288 S DA(1)=$O(^XMB(3.8,"B","VW REG ERROR REPORT",0))
289"RTN","VWREGIT2",55,0)
290 Q:'DA(1)
291"RTN","VWREGIT2",56,0)
292 S DIC="^XMB(3.8,"_DA(1)_",6,"
293"RTN","VWREGIT2",57,0)
294 S X="jbellco65@gmail.com"
295"RTN","VWREGIT2",58,0)
296 S DIC(0)="LZ"
297"RTN","VWREGIT2",59,0)
298 D FILE^DICN
299"RTN","VWREGIT2",60,0)
300 Q
301"RTN","VWREGIT2",61,0)
302 ;
303"VER")
3048.0^22.2
305**END**
306**END**
Note: See TracBrowser for help on using the repository browser.