Index: VWGUIRegistration/tag/2.0/VWREG_03042017_P2T3_0.KID
===================================================================
--- VWGUIRegistration/tag/2.0/VWREG_03042017_P2T3_0.KID	(revision 1789)
+++ VWGUIRegistration/tag/2.0/VWREG_03042017_P2T3_0.KID	(revision 1789)
@@ -0,0 +1,306 @@
+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**