KIDS Distribution saved on Mar 04, 2017@11:39:41 Supplemental to P1 ('cause I forgot to include it) **KIDS**:VWREG_PATCH*2.0T3*0^ **INSTALL NAME** VWREG_PATCH*2.0T3*0 "BLD",8569,0) VWREG_PATCH*2.0T3*0^^0^3170304^n "BLD",8569,1,0) ^^1^1^3170304^ "BLD",8569,1,1,0) Supplemental to PATCH*1 because I forgot to enter VWREGIT2 routine "BLD",8569,4,0) ^9.64PA^^ "BLD",8569,6.3) 1 "BLD",8569,"KRN",0) ^9.67PA^779.2^20 "BLD",8569,"KRN",.4,0) .4 "BLD",8569,"KRN",.401,0) .401 "BLD",8569,"KRN",.402,0) .402 "BLD",8569,"KRN",.403,0) .403 "BLD",8569,"KRN",.5,0) .5 "BLD",8569,"KRN",.84,0) .84 "BLD",8569,"KRN",3.6,0) 3.6 "BLD",8569,"KRN",3.8,0) 3.8 "BLD",8569,"KRN",9.2,0) 9.2 "BLD",8569,"KRN",9.8,0) 9.8 "BLD",8569,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",8569,"KRN",9.8,"NM",1,0) VWREGIT2^^0^B7008432 "BLD",8569,"KRN",9.8,"NM","B","VWREGIT2",1) "BLD",8569,"KRN",19,0) 19 "BLD",8569,"KRN",19.1,0) 19.1 "BLD",8569,"KRN",101,0) 101 "BLD",8569,"KRN",409.61,0) 409.61 "BLD",8569,"KRN",771,0) 771 "BLD",8569,"KRN",779.2,0) 779.2 "BLD",8569,"KRN",870,0) 870 "BLD",8569,"KRN",8989.51,0) 8989.51 "BLD",8569,"KRN",8989.52,0) 8989.52 "BLD",8569,"KRN",8994,0) 8994 "BLD",8569,"KRN","B",.4,.4) "BLD",8569,"KRN","B",.401,.401) "BLD",8569,"KRN","B",.402,.402) "BLD",8569,"KRN","B",.403,.403) "BLD",8569,"KRN","B",.5,.5) "BLD",8569,"KRN","B",.84,.84) "BLD",8569,"KRN","B",3.6,3.6) "BLD",8569,"KRN","B",3.8,3.8) "BLD",8569,"KRN","B",9.2,9.2) "BLD",8569,"KRN","B",9.8,9.8) "BLD",8569,"KRN","B",19,19) "BLD",8569,"KRN","B",19.1,19.1) "BLD",8569,"KRN","B",101,101) "BLD",8569,"KRN","B",409.61,409.61) "BLD",8569,"KRN","B",771,771) "BLD",8569,"KRN","B",779.2,779.2) "BLD",8569,"KRN","B",870,870) "BLD",8569,"KRN","B",8989.51,8989.51) "BLD",8569,"KRN","B",8989.52,8989.52) "BLD",8569,"KRN","B",8994,8994) "MBREQ") 0 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","VWREGIT2") 0^1^B7008432 "RTN","VWREGIT2",1,0) VWREGIT2 ;Portland/WorldVista/BFP,LLC/Jim Bell, et al... - Post-Install for VWREG "RTN","VWREGIT2",2,0) ;;1.0;WORLD VISTA;**HOME **;;Build 1 "RTN","VWREGIT2",3,0) ; "RTN","VWREGIT2",4,0) ;Continued from VWREGIT "RTN","VWREGIT2",5,0) ; "RTN","VWREGIT2",6,0) ;GNU License: See WVLIC.txt "RTN","VWREGIT2",7,0) ;Modified FOIA VISTA, "RTN","VWREGIT2",8,0) ;Copyright 2013 WorldVistA. Licensed under the terms of the GNU "RTN","VWREGIT2",9,0) Q "RTN","VWREGIT2",10,0) PRE ;Did this installation happen already? Avoid a re-do? "RTN","VWREGIT2",11,0) 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" "RTN","VWREGIT2",12,0) W !,"Do you want to continue? NO//" R X:60 S:'$L(X) X="NO" S X=$$UP^XLFSTR(X) "RTN","VWREGIT2",13,0) I "NON"[X W !,"OK" D ^XUSCLEAN "RTN","VWREGIT2",14,0) Q "RTN","VWREGIT2",15,0) ; "RTN","VWREGIT2",16,0) PI ;Post Installation install "RTN","VWREGIT2",17,0) ;Checking for a home directory & file "RTN","VWREGIT2",18,0) I $O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) W !?5,"Installation has already occurred" Q "RTN","VWREGIT2",19,0) S AR=1,AR(1)="[TEMPLATES]" "RTN","VWREGIT2",20,0) S N=0 F S N=$O(^DIE(N)) Q:'+N S X=$P(^(N,0),"^") D "RTN","VWREGIT2",21,0) . I X["VW " S AR($I(AR))=X_"("_N_")" "RTN","VWREGIT2",22,0) . I X["[World" S AR($I(AR))=X_"("_N_")" "RTN","VWREGIT2",23,0) S AR($I(AR))="[ID]" "RTN","VWREGIT2",24,0) S P4=1,P5="",HD=$ZDIRECTORY_"regparam/",FILE="regit.txt" "RTN","VWREGIT2",25,0) S X=$$GTF^%ZISH($NA(AR(1)),1,HD,"regit.txt") "RTN","VWREGIT2",26,0) ZSY "chmod 777 "_$ZDIRECTORY_"regparam/"_FILE ;No sensitive info here "RTN","VWREGIT2",27,0) Q:$G(TEST) ;Straightening out regit.txt "RTN","VWREGIT2",28,0) ; "RTN","VWREGIT2",29,0) ;; NOTE: The parameter definition is installed but there is no installation for "RTN","VWREGIT2",30,0) ;;the actual parameter and value. Do it here. "RTN","VWREGIT2",31,0) ;parameter value attempt "RTN","VWREGIT2",32,0) ;Set a home directory for editing; SYSTEM (DIC(4,) and DOMAIN (DIC(4.2,) only:"/home/vista/regparam/" "RTN","VWREGIT2",33,0) S PARD=$O(^XTV(8989.51,"B","VW GUI REG TEMPLATE DIRECTORY",0)) "RTN","VWREGIT2",34,0) I PARD D "RTN","VWREGIT2",35,0) . L +^XTV(8989.5,0):1 D L -^XTV(8989.5,0) "RTN","VWREGIT2",36,0) .. S NEW=$O(^XTV(8989.5," "),-1)+1 "RTN","VWREGIT2",37,0) .. S $P(^XTV(8989.5,0),"^",3)=NEW "RTN","VWREGIT2",38,0) .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1 "RTN","VWREGIT2",39,0) .. S $P(^XTV(8989.5,NEW,0),"^")="1;DIC(4," "RTN","VWREGIT2",40,0) .. S $P(^XTV(8989.5,NEW,0),"^",2)=PARD "RTN","VWREGIT2",41,0) .. S $P(^XTV(8989.5,NEW,0),"^",3)=1 "RTN","VWREGIT2",42,0) .. S ^XTV(8989.5,NEW,1)=HD "RTN","VWREGIT2",43,0) .. S DA=NEW,DIK="^XTV(8989.5," D IX^DIK "RTN","VWREGIT2",44,0) .. S NEW2=$O(^XTV(8989.5," "),-1)+1 "RTN","VWREGIT2",45,0) .. S $P(^XTV(8989.5,0),"^",3)=NEW2 "RTN","VWREGIT2",46,0) .. S $P(^XTV(8989.5,0),"^",4)=$P(^(0),"^",4)+1 "RTN","VWREGIT2",47,0) .. S $P(^XTV(8989.5,NEW2,0),"^")="9;DIC(4.2," "RTN","VWREGIT2",48,0) .. S $P(^XTV(8989.5,NEW2,0),"^",2)=PARD "RTN","VWREGIT2",49,0) .. S $P(^XTV(8989.5,NEW2,0),"^",3)=1 "RTN","VWREGIT2",50,0) .. S ^XTV(8989.5,NEW2,1)=HD "RTN","VWREGIT2",51,0) .. S DA=NEW2,DIK="^XTV(8989.5," D IX^DIK "RTN","VWREGIT2",52,0) ; "RTN","VWREGIT2",53,0) ;Mailgroup VW REG ERROR REPORT - add programmer's email "RTN","VWREGIT2",54,0) S DA(1)=$O(^XMB(3.8,"B","VW REG ERROR REPORT",0)) "RTN","VWREGIT2",55,0) Q:'DA(1) "RTN","VWREGIT2",56,0) S DIC="^XMB(3.8,"_DA(1)_",6," "RTN","VWREGIT2",57,0) S X="jbellco65@gmail.com" "RTN","VWREGIT2",58,0) S DIC(0)="LZ" "RTN","VWREGIT2",59,0) D FILE^DICN "RTN","VWREGIT2",60,0) Q "RTN","VWREGIT2",61,0) ; "VER") 8.0^22.2 **END** **END**