[1789] | 1 | KIDS Distribution saved on Mar 04, 2017@11:39:41
|
---|
| 2 | Supplemental to P1 ('cause I forgot to include it)
|
---|
| 3 | **KIDS**:VWREG_PATCH*2.0T3*0^
|
---|
| 4 |
|
---|
| 5 | **INSTALL NAME**
|
---|
| 6 | VWREG_PATCH*2.0T3*0
|
---|
| 7 | "BLD",8569,0)
|
---|
| 8 | VWREG_PATCH*2.0T3*0^^0^3170304^n
|
---|
| 9 | "BLD",8569,1,0)
|
---|
| 10 | ^^1^1^3170304^
|
---|
| 11 | "BLD",8569,1,1,0)
|
---|
| 12 | Supplemental to PATCH*1 because I forgot to enter VWREGIT2 routine
|
---|
| 13 | "BLD",8569,4,0)
|
---|
| 14 | ^9.64PA^^
|
---|
| 15 | "BLD",8569,6.3)
|
---|
| 16 | 1
|
---|
| 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)
|
---|
| 32 | 3.6
|
---|
| 33 | "BLD",8569,"KRN",3.8,0)
|
---|
| 34 | 3.8
|
---|
| 35 | "BLD",8569,"KRN",9.2,0)
|
---|
| 36 | 9.2
|
---|
| 37 | "BLD",8569,"KRN",9.8,0)
|
---|
| 38 | 9.8
|
---|
| 39 | "BLD",8569,"KRN",9.8,"NM",0)
|
---|
| 40 | ^9.68A^1^1
|
---|
| 41 | "BLD",8569,"KRN",9.8,"NM",1,0)
|
---|
| 42 | VWREGIT2^^0^B7008432
|
---|
| 43 | "BLD",8569,"KRN",9.8,"NM","B","VWREGIT2",1)
|
---|
| 44 |
|
---|
| 45 | "BLD",8569,"KRN",19,0)
|
---|
| 46 | 19
|
---|
| 47 | "BLD",8569,"KRN",19.1,0)
|
---|
| 48 | 19.1
|
---|
| 49 | "BLD",8569,"KRN",101,0)
|
---|
| 50 | 101
|
---|
| 51 | "BLD",8569,"KRN",409.61,0)
|
---|
| 52 | 409.61
|
---|
| 53 | "BLD",8569,"KRN",771,0)
|
---|
| 54 | 771
|
---|
| 55 | "BLD",8569,"KRN",779.2,0)
|
---|
| 56 | 779.2
|
---|
| 57 | "BLD",8569,"KRN",870,0)
|
---|
| 58 | 870
|
---|
| 59 | "BLD",8569,"KRN",8989.51,0)
|
---|
| 60 | 8989.51
|
---|
| 61 | "BLD",8569,"KRN",8989.52,0)
|
---|
| 62 | 8989.52
|
---|
| 63 | "BLD",8569,"KRN",8994,0)
|
---|
| 64 | 8994
|
---|
| 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")
|
---|
| 106 | 0
|
---|
| 107 | "QUES","XPF1",0)
|
---|
| 108 | Y
|
---|
| 109 | "QUES","XPF1","??")
|
---|
| 110 | ^D REP^XPDH
|
---|
| 111 | "QUES","XPF1","A")
|
---|
| 112 | Shall I write over your |FLAG| File
|
---|
| 113 | "QUES","XPF1","B")
|
---|
| 114 | YES
|
---|
| 115 | "QUES","XPF1","M")
|
---|
| 116 | D XPF1^XPDIQ
|
---|
| 117 | "QUES","XPF2",0)
|
---|
| 118 | Y
|
---|
| 119 | "QUES","XPF2","??")
|
---|
| 120 | ^D DTA^XPDH
|
---|
| 121 | "QUES","XPF2","A")
|
---|
| 122 | Want my data |FLAG| yours
|
---|
| 123 | "QUES","XPF2","B")
|
---|
| 124 | YES
|
---|
| 125 | "QUES","XPF2","M")
|
---|
| 126 | D XPF2^XPDIQ
|
---|
| 127 | "QUES","XPI1",0)
|
---|
| 128 | YO
|
---|
| 129 | "QUES","XPI1","??")
|
---|
| 130 | ^D INHIBIT^XPDH
|
---|
| 131 | "QUES","XPI1","A")
|
---|
| 132 | Want KIDS to INHIBIT LOGONs during the install
|
---|
| 133 | "QUES","XPI1","B")
|
---|
| 134 | NO
|
---|
| 135 | "QUES","XPI1","M")
|
---|
| 136 | D XPI1^XPDIQ
|
---|
| 137 | "QUES","XPM1",0)
|
---|
| 138 | PO^VA(200,:EM
|
---|
| 139 | "QUES","XPM1","??")
|
---|
| 140 | ^D MG^XPDH
|
---|
| 141 | "QUES","XPM1","A")
|
---|
| 142 | Enter the Coordinator for Mail Group '|FLAG|'
|
---|
| 143 | "QUES","XPM1","B")
|
---|
| 144 |
|
---|
| 145 | "QUES","XPM1","M")
|
---|
| 146 | D XPM1^XPDIQ
|
---|
| 147 | "QUES","XPO1",0)
|
---|
| 148 | Y
|
---|
| 149 | "QUES","XPO1","??")
|
---|
| 150 | ^D MENU^XPDH
|
---|
| 151 | "QUES","XPO1","A")
|
---|
| 152 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
---|
| 153 | "QUES","XPO1","B")
|
---|
| 154 | NO
|
---|
| 155 | "QUES","XPO1","M")
|
---|
| 156 | D XPO1^XPDIQ
|
---|
| 157 | "QUES","XPZ1",0)
|
---|
| 158 | Y
|
---|
| 159 | "QUES","XPZ1","??")
|
---|
| 160 | ^D OPT^XPDH
|
---|
| 161 | "QUES","XPZ1","A")
|
---|
| 162 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
---|
| 163 | "QUES","XPZ1","B")
|
---|
| 164 | NO
|
---|
| 165 | "QUES","XPZ1","M")
|
---|
| 166 | D XPZ1^XPDIQ
|
---|
| 167 | "QUES","XPZ2",0)
|
---|
| 168 | Y
|
---|
| 169 | "QUES","XPZ2","??")
|
---|
| 170 | ^D RTN^XPDH
|
---|
| 171 | "QUES","XPZ2","A")
|
---|
| 172 | Want to MOVE routines to other CPUs
|
---|
| 173 | "QUES","XPZ2","B")
|
---|
| 174 | NO
|
---|
| 175 | "QUES","XPZ2","M")
|
---|
| 176 | D XPZ2^XPDIQ
|
---|
| 177 | "RTN")
|
---|
| 178 | 1
|
---|
| 179 | "RTN","VWREGIT2")
|
---|
| 180 | 0^1^B7008432
|
---|
| 181 | "RTN","VWREGIT2",1,0)
|
---|
| 182 | VWREGIT2 ;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)
|
---|
| 200 | PRE ;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)
|
---|
| 212 | PI ;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")
|
---|
| 304 | 8.0^22.2
|
---|
| 305 | **END**
|
---|
| 306 | **END**
|
---|