diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index cd34e11a9fd..93ac373d5af 100644
--- a/Packages/Kernel/Globals/14.4+TASKS.zwr
+++ b/Packages/Kernel/Globals/14.4+TASKS.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-15-MAR-2019 05:29:27 ZWR
-^%ZTSK(-1)=4319
+15-MAR-2019 06:18:36 ZWR
+^%ZTSK(-1)=4322
 ^%ZTSK(0)="TASKS^14.4^4237"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -39230,6 +39230,39 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4319,.3,"DUZ(",0)="@"
 ^%ZTSK(4319,.3,"XQSCH")=8
 ^%ZTSK(4319,.3,"XQY")=9891
+^%ZTSK(4320,0)="ZTSK^XQ1^.5^VISTA^65087,22445^65087,22445^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4320,.02)="^VISTA^^"
+^%ZTSK(4320,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4320,.04)=5623539245
+^%ZTSK(4320,.1)="B^65087,22445^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4320,.2)=""
+^%ZTSK(4320,.21)=""
+^%ZTSK(4320,.25)=""
+^%ZTSK(4320,.3,"DUZ(",0)="@"
+^%ZTSK(4320,.3,"XQSCH")=10
+^%ZTSK(4320,.3,"XQY")=8853
+^%ZTSK(4321,0)="ZTSK^XQ1^.5^VISTA^65087,22445^65087,22445^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4321,.02)="^VISTA^^"
+^%ZTSK(4321,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4321,.04)=5623539245
+^%ZTSK(4321,.1)="B^65087,22447^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4321,.2)=""
+^%ZTSK(4321,.21)=""
+^%ZTSK(4321,.25)=""
+^%ZTSK(4321,.3,"DUZ(",0)="@"
+^%ZTSK(4321,.3,"XQSCH")=11
+^%ZTSK(4321,.3,"XQY")=8412
+^%ZTSK(4322,0)="ZTSK^XQ1^.5^VISTA^65087,22445^65087,22445^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4322,.02)="^VISTA^^"
+^%ZTSK(4322,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4322,.04)=5623539245
+^%ZTSK(4322,.1)="B^65087,22449^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4322,.2)=""
+^%ZTSK(4322,.21)=""
+^%ZTSK(4322,.25)=""
+^%ZTSK(4322,.3,"DUZ(",0)="@"
+^%ZTSK(4322,.3,"XQSCH")=8
+^%ZTSK(4322,.3,"XQY")=9891
 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running"
 ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running"
diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
index bb76ef2dd42..5fcdea4dd95 100644
--- a/Packages/Kernel/Globals/9.4+PACKAGE.zwr
+++ b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: PACKAGE
-15-MAR-2019 05:29:30 ZWR
+15-MAR-2019 06:18:38 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -62,7 +62,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,3,22,21,1,0)="^^2^2^3051119"
 ^DIC(9.4,3,22,21,1,1,0)="Kernel 8.0 is the latest release of VA Kernel software.  This version"
 ^DIC(9.4,3,22,21,1,2,0)="supersedes version 7.1."
-^DIC(9.4,3,22,21,"PAH",0)="^9.4901^516^513"
+^DIC(9.4,3,22,21,"PAH",0)="^9.4901^517^514"
 ^DIC(9.4,3,22,21,"PAH",1,0)="21^2960606^1"
 ^DIC(9.4,3,22,21,"PAH",1,1,0)="^^99^99^2960715^"
 ^DIC(9.4,3,22,21,"PAH",1,1,1,0)=" This Kernel patch is dependent on MailMan patch XM*7.1*24.  Both"
@@ -15086,6 +15086,11 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,3,22,21,"PAH",516,1,25,0)=" "
 ^DIC(9.4,3,22,21,"PAH",516,1,26,0)="- XPDUTL: $$PATCH^XPDUTL used to be limited up to a max patch number of "
 ^DIC(9.4,3,22,21,"PAH",516,1,27,0)="999."
+^DIC(9.4,3,22,21,"PAH",517,0)="705^3190315.061414^17"
+^DIC(9.4,3,22,21,"PAH",517,1,0)="^^3^3^3190315"
+^DIC(9.4,3,22,21,"PAH",517,1,1,0)="KERNEL VISTA ENHANCEMENTS - MVI NEW PERSON STAT REPORT"
+^DIC(9.4,3,22,21,"PAH",517,1,2,0)="Refer to patch XU*8.0*705 in the FORUM Patch Module for a complete"
+^DIC(9.4,3,22,21,"PAH",517,1,3,0)="description."
 ^DIC(9.4,3,22,21,"PAH","B",2,10)=""
 ^DIC(9.4,3,22,21,"PAH","B",7,33)=""
 ^DIC(9.4,3,22,21,"PAH","B",14,22)=""
@@ -15156,6 +15161,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,3,22,21,"PAH","B",686,509)=""
 ^DIC(9.4,3,22,21,"PAH","B",691,511)=""
 ^DIC(9.4,3,22,21,"PAH","B",698,513)=""
+^DIC(9.4,3,22,21,"PAH","B",705,517)=""
 ^DIC(9.4,3,22,21,"PAH","B",10001,503)=""
 ^DIC(9.4,3,22,21,"PAH","B",10002,512)=""
 ^DIC(9.4,3,22,21,"PAH","B",10004,516)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index f609b859acb..5b5f0813ac3 100644
--- a/Packages/Kernel/Globals/9.6+BUILD.zwr
+++ b/Packages/Kernel/Globals/9.6+BUILD.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: BUILD
-15-MAR-2019 05:31:45 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11123^10763"
+15-MAR-2019 06:21:04 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11124^10764"
 ^XPD(9.6,1,0)="KERNEL - VIRGIN INSTALL 8.0^3^0^2950703^n"
 ^XPD(9.6,1,1,0)="^^3^3^2950703^"
 ^XPD(9.6,1,1,1,0)="Install files needed to support Kernel 8.0.  This package is"
@@ -1204425,6 +1204425,69 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11123,"REQB",0)="^9.611^1^1"
 ^XPD(9.6,11123,"REQB",1,0)="DG*5.3*947^1"
 ^XPD(9.6,11123,"REQB","B","DG*5.3*947",1)=""
+^XPD(9.6,11124,0)="XU*8.0*705^3^0^3181119^y"
+^XPD(9.6,11124,1,0)="^^3^3^3181115^"
+^XPD(9.6,11124,1,1,0)="KERNEL VISTA ENHANCEMENTS - MVI NEW PERSON STAT REPORT"
+^XPD(9.6,11124,1,2,0)="Refer to patch XU*8.0*705 in the FORUM Patch Module for a complete"
+^XPD(9.6,11124,1,3,0)="description."
+^XPD(9.6,11124,4,0)="^9.64PA^^"
+^XPD(9.6,11124,6)="^548"
+^XPD(9.6,11124,6.3)=1
+^XPD(9.6,11124,"KRN",0)="^9.67PA^1.61^23"
+^XPD(9.6,11124,"KRN",.4,0)=.4
+^XPD(9.6,11124,"KRN",.401,0)=.401
+^XPD(9.6,11124,"KRN",.402,0)=.402
+^XPD(9.6,11124,"KRN",.403,0)=.403
+^XPD(9.6,11124,"KRN",.5,0)=.5
+^XPD(9.6,11124,"KRN",.84,0)=.84
+^XPD(9.6,11124,"KRN",1.6,0)=1.6
+^XPD(9.6,11124,"KRN",1.61,0)=1.61
+^XPD(9.6,11124,"KRN",1.62,0)=1.62
+^XPD(9.6,11124,"KRN",3.6,0)=3.6
+^XPD(9.6,11124,"KRN",3.8,0)=3.8
+^XPD(9.6,11124,"KRN",9.2,0)=9.2
+^XPD(9.6,11124,"KRN",9.8,0)=9.8
+^XPD(9.6,11124,"KRN",9.8,"NM",0)="^9.68A^1^1"
+^XPD(9.6,11124,"KRN",9.8,"NM",1,0)="XUMVIDTA^^0^B8690518"
+^XPD(9.6,11124,"KRN",9.8,"NM","B","XUMVIDTA",1)=""
+^XPD(9.6,11124,"KRN",19,0)=19
+^XPD(9.6,11124,"KRN",19.1,0)=19.1
+^XPD(9.6,11124,"KRN",101,0)=101
+^XPD(9.6,11124,"KRN",409.61,0)=409.61
+^XPD(9.6,11124,"KRN",771,0)=771
+^XPD(9.6,11124,"KRN",779.2,0)=779.2
+^XPD(9.6,11124,"KRN",870,0)=870
+^XPD(9.6,11124,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11124,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11124,"KRN",8994,0)=8994
+^XPD(9.6,11124,"KRN",8994,"NM",0)="^9.68A^1^1"
+^XPD(9.6,11124,"KRN",8994,"NM",1,0)="XUS MVI NEW PERSON DATA^^0"
+^XPD(9.6,11124,"KRN",8994,"NM","B","XUS MVI NEW PERSON DATA",1)=""
+^XPD(9.6,11124,"KRN","B",.4,.4)=""
+^XPD(9.6,11124,"KRN","B",.401,.401)=""
+^XPD(9.6,11124,"KRN","B",.402,.402)=""
+^XPD(9.6,11124,"KRN","B",.403,.403)=""
+^XPD(9.6,11124,"KRN","B",.5,.5)=""
+^XPD(9.6,11124,"KRN","B",.84,.84)=""
+^XPD(9.6,11124,"KRN","B",1.6,1.6)=""
+^XPD(9.6,11124,"KRN","B",1.61,1.61)=""
+^XPD(9.6,11124,"KRN","B",1.62,1.62)=""
+^XPD(9.6,11124,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11124,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11124,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11124,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11124,"KRN","B",19,19)=""
+^XPD(9.6,11124,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11124,"KRN","B",101,101)=""
+^XPD(9.6,11124,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11124,"KRN","B",771,771)=""
+^XPD(9.6,11124,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11124,"KRN","B",870,870)=""
+^XPD(9.6,11124,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11124,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11124,"KRN","B",8994,8994)=""
+^XPD(9.6,11124,"QUES",0)="^9.62^^"
+^XPD(9.6,11124,"REQB",0)="^9.611^^"
 ^XPD(9.6,"B","A4A7*1.01*10",1312)=""
 ^XPD(9.6,"B","A4A7*1.01*11",1900)=""
 ^XPD(9.6,"B","A4A7*1.01*9",339)=""
@@ -1215012,6 +1215075,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","XU*8.0*698",10969)=""
 ^XPD(9.6,"B","XU*8.0*7",526)=""
 ^XPD(9.6,"B","XU*8.0*70",1185)=""
+^XPD(9.6,"B","XU*8.0*705",11124)=""
 ^XPD(9.6,"B","XU*8.0*71",1362)=""
 ^XPD(9.6,"B","XU*8.0*72",1559)=""
 ^XPD(9.6,"B","XU*8.0*73",1360)=""
@@ -1215695,6 +1215759,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",3,10970)=""
 ^XPD(9.6,"C",3,10971)=""
 ^XPD(9.6,"C",3,10997)=""
+^XPD(9.6,"C",3,11124)=""
 ^XPD(9.6,"C",4,4)=""
 ^XPD(9.6,"C",4,11)=""
 ^XPD(9.6,"C",4,12)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index 96773c3388d..a4aeb117bc4 100644
--- a/Packages/Kernel/Globals/9.7+INSTALL.zwr
+++ b/Packages/Kernel/Globals/9.7+INSTALL.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: INSTALL
-15-MAR-2019 05:32:08 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^10842^10700"
+15-MAR-2019 06:21:27 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^10843^10701"
 ^XPD(9.7,1,0)="KERNEL - VIRGIN INSTALL 8.0^^2960531.10393^1^1^^^^3^0^.5"
 ^XPD(9.7,1,1)="2960604.094043^2960604.094043^2960604.094047"
 ^XPD(9.7,1,2)="Kernel 8.0 from ISC-SF by RSD  ;Created on Jul 10, 1995@09:28:18"
@@ -833935,6 +833935,59 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,10842,"RTN","B","DGENUPL3",1)=""
 ^XPD(9.7,10842,"RTN","B","DGMSEUTL",2)=""
 ^XPD(9.7,10842,"RTN","B","DGRP61",3)=""
+^XPD(9.7,10843,0)="XU*8.0*705^3^3190315.061408^10843^1^^0^0XU*8.0*705^3^0^17"
+^XPD(9.7,10843,1)="3190315.061414^3190315.061414^3190315.061414^3181119"
+^XPD(9.7,10843,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,10843,6)="^548"
+^XPD(9.7,10843,"INI",0)="^9.713^1^1"
+^XPD(9.7,10843,"INI",1,0)="XPD PREINSTALL COMPLETED^3190315.061414"
+^XPD(9.7,10843,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,10843,"INIT",0)="^9.716^1^1"
+^XPD(9.7,10843,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190315.061414"
+^XPD(9.7,10843,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,10843,"KRN",0)="^9.715P^8994^1"
+^XPD(9.7,10843,"KRN",8994,0)="8994^3190315.061414^16"
+^XPD(9.7,10843,"KRN","AC",16,8994)=""
+^XPD(9.7,10843,"KRN","B",8994,8994)=""
+^XPD(9.7,10843,"MES",0)="^^24^24^3190315"
+^XPD(9.7,10843,"MES",1,0)=" "
+^XPD(9.7,10843,"MES",2,0)=" Install Started for XU*8.0*705 : "
+^XPD(9.7,10843,"MES",3,0)="               Mar 15, 2019@06:14:14"
+^XPD(9.7,10843,"MES",4,0)=" "
+^XPD(9.7,10843,"MES",5,0)="Build Distribution Date: Nov 19, 2018"
+^XPD(9.7,10843,"MES",6,0)=" "
+^XPD(9.7,10843,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,10843,"MES",8,0)="               Mar 15, 2019@06:14:14"
+^XPD(9.7,10843,"MES",9,0)=" "
+^XPD(9.7,10843,"MES",10,0)=" Installing PACKAGE COMPONENTS: "
+^XPD(9.7,10843,"MES",11,0)=" "
+^XPD(9.7,10843,"MES",12,0)=" Installing REMOTE PROCEDURE"
+^XPD(9.7,10843,"MES",13,0)="               Mar 15, 2019@06:14:14"
+^XPD(9.7,10843,"MES",14,0)=" "
+^XPD(9.7,10843,"MES",15,0)=" Updating Routine file..."
+^XPD(9.7,10843,"MES",16,0)=" "
+^XPD(9.7,10843,"MES",17,0)=" Updating KIDS files..."
+^XPD(9.7,10843,"MES",18,0)=" "
+^XPD(9.7,10843,"MES",19,0)=" XU*8.0*705 Installed. "
+^XPD(9.7,10843,"MES",20,0)="               Mar 15, 2019@06:14:14"
+^XPD(9.7,10843,"MES",21,0)=" "
+^XPD(9.7,10843,"MES",22,0)=" Not a production UCI"
+^XPD(9.7,10843,"MES",23,0)=" "
+^XPD(9.7,10843,"MES",24,0)=" NO Install Message sent "
+^XPD(9.7,10843,"QUES",0)="^9.701^2^2"
+^XPD(9.7,10843,"QUES",1,0)="XPI1"
+^XPD(9.7,10843,"QUES",1,1)=0
+^XPD(9.7,10843,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,10843,"QUES",1,"B")="NO"
+^XPD(9.7,10843,"QUES",2,0)="XPZ1"
+^XPD(9.7,10843,"QUES",2,1)=0
+^XPD(9.7,10843,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,10843,"QUES",2,"B")="NO"
+^XPD(9.7,10843,"QUES","B","XPI1",1)=""
+^XPD(9.7,10843,"QUES","B","XPZ1",2)=""
+^XPD(9.7,10843,"RTN",0)="^9.704A^1^1"
+^XPD(9.7,10843,"RTN",1,0)="XUMVIDTA"
+^XPD(9.7,10843,"RTN","B","XUMVIDTA",1)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -844635,6 +844688,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",10840,1,10840)=""
 ^XPD(9.7,"ASP",10841,1,10841)=""
 ^XPD(9.7,"ASP",10842,1,10842)=""
+^XPD(9.7,"ASP",10843,1,10843)=""
 ^XPD(9.7,"B","A4A7*1.01*10",1037)=""
 ^XPD(9.7,"B","A4A7*1.01*11",1611)=""
 ^XPD(9.7,"B","A4A7*1.01*11",1631)=""
@@ -855159,6 +855213,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","XU*8.0*698",10679)=""
 ^XPD(9.7,"B","XU*8.0*7",539)=""
 ^XPD(9.7,"B","XU*8.0*70",911)=""
+^XPD(9.7,"B","XU*8.0*705",10843)=""
 ^XPD(9.7,"B","XU*8.0*71",1089)=""
 ^XPD(9.7,"B","XU*8.0*72",1287)=""
 ^XPD(9.7,"B","XU*8.0*73",1084)=""
diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
index 5da4c3f5542..ba309ed8aa6 100644
--- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr
+++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: ROUTINE
-15-MAR-2019 00:42:10 ZWR
-^DIC(9.8,0)="ROUTINE^9.8^35815^29242"
+15-MAR-2019 06:18:43 ZWR
+^DIC(9.8,0)="ROUTINE^9.8^35816^29243"
 ^DIC(9.8,0,"DD")="#"
 ^DIC(9.8,0,"DEL")="#"
 ^DIC(9.8,0,"GL")="^DIC(9.8,"
@@ -55953,7 +55953,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,13910,8,1,0)="COMPARE INPATIENT MEDICATIONS 5.0^12079638/13328749"
 ^DIC(9.8,13910,8,"B","COMPARE INPATIENT MEDICATIONS ",1)=""
 ^DIC(9.8,13911,0)="PSGNE3^R"
-^DIC(9.8,13911,4.1)=3130529.120525
+^DIC(9.8,13911,4.1)=3190315.035344
 ^DIC(9.8,13911,8,0)="^9.818^1^1"
 ^DIC(9.8,13911,8,1,0)="COMPARE INPATIENT MEDICATIONS 5.0^14268988/29480677"
 ^DIC(9.8,13911,8,"B","COMPARE INPATIENT MEDICATIONS ",1)=""
@@ -68171,7 +68171,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,17649,8,1,0)="COMPARE REGISTRATION V 5.3^14137535/53254236"
 ^DIC(9.8,17649,8,"B","COMPARE REGISTRATION V 5.3",1)=""
 ^DIC(9.8,17650,0)="DGENUPL3^R"
-^DIC(9.8,17650,4.1)=3190314.172615
+^DIC(9.8,17650,4.1)=3190315.052606
 ^DIC(9.8,17650,8,0)="^9.818^1^1"
 ^DIC(9.8,17650,8,1,0)="COMPARE REGISTRATION V 5.3^3735579/15297045"
 ^DIC(9.8,17650,8,"B","COMPARE REGISTRATION V 5.3",1)=""
@@ -70346,7 +70346,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,18226,8,1,0)="COMPARE ORDER ENTRY/RESULTS REPORTING 3.0^7150036/17756509"
 ^DIC(9.8,18226,8,"B","COMPARE ORDER ENTRY/RESULTS RE",1)=""
 ^DIC(9.8,18227,0)="ORQQPL1^R"
-^DIC(9.8,18227,4.1)=3161212.151824
+^DIC(9.8,18227,4.1)=3190315.013709
 ^DIC(9.8,18227,8,0)="^9.818^1^1"
 ^DIC(9.8,18227,8,1,0)="COMPARE ORDER ENTRY/RESULTS REPORTING 3.0^9150590/67342448"
 ^DIC(9.8,18227,8,"B","COMPARE ORDER ENTRY/RESULTS RE",1)=""
@@ -87411,7 +87411,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,22981,8,1,0)="COMPARE ASISTS 2.0^9980762/41861346"
 ^DIC(9.8,22981,8,"B","COMPARE ASISTS 2.0",1)=""
 ^DIC(9.8,22982,0)="OOPSGUI1^R"
-^DIC(9.8,22982,4.1)=3181201.093909
+^DIC(9.8,22982,4.1)=3190315.022226
 ^DIC(9.8,22982,8,0)="^9.818^1^1"
 ^DIC(9.8,22982,8,1,0)="COMPARE ASISTS 2.0^8390844/34207574"
 ^DIC(9.8,22982,8,"B","COMPARE ASISTS 2.0",1)=""
@@ -108912,7 +108912,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,31689,0)="DGPFAPIH^R"
 ^DIC(9.8,31689,4.1)=3120323.125234
 ^DIC(9.8,31690,0)="DGPFAPIU^R"
-^DIC(9.8,31690,4.1)=3120323.125234
+^DIC(9.8,31690,4.1)=3190315.043936
 ^DIC(9.8,31691,0)="SDMHAD^R"
 ^DIC(9.8,31691,4.1)=3130516.125604
 ^DIC(9.8,31692,0)="SDMHAD1^R"
@@ -108946,9 +108946,9 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,31714,0)="DGMSE^R"
 ^DIC(9.8,31714,4.1)=3120329.183624
 ^DIC(9.8,31715,0)="DGMSEUTL^R"
-^DIC(9.8,31715,4.1)=3190314.172615
+^DIC(9.8,31715,4.1)=3190315.052606
 ^DIC(9.8,31716,0)="DGRP61^R"
-^DIC(9.8,31716,4.1)=3190314.172615
+^DIC(9.8,31716,4.1)=3190315.052606
 ^DIC(9.8,31717,0)="DGRP62^R"
 ^DIC(9.8,31717,4.1)=3120329.183624
 ^DIC(9.8,31718,0)="EAS1092P^R"
@@ -113340,7 +113340,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,34643,0)="PSJPDAPP^R"
 ^DIC(9.8,34643,4.1)=3161213.200113
 ^DIC(9.8,34644,0)="PSJPDCL^R"
-^DIC(9.8,34644,4.1)=3180608.130446
+^DIC(9.8,34644,4.1)=3190315.030732
 ^DIC(9.8,34645,0)="PSJPDCLA^R"
 ^DIC(9.8,34645,4.1)=3190221.182243
 ^DIC(9.8,34646,0)="PSJPDCLU^R"
@@ -115683,6 +115683,8 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,35814,4.1)=3190315.003834
 ^DIC(9.8,35815,0)="PSBORT^R"
 ^DIC(9.8,35815,4.1)=3190315.003834
+^DIC(9.8,35816,0)="XUMVIDTA^R"
+^DIC(9.8,35816,4.1)=3190315.061414
 ^DIC(9.8,"%",0)="^1.005^1^1"
 ^DIC(9.8,"%",1,0)="XU"
 ^DIC(9.8,"%","B","XU",1)=""
@@ -144148,6 +144150,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","XUMFXP2",26744)=""
 ^DIC(9.8,"B","XUMFXR",26745)=""
 ^DIC(9.8,"B","XUMPI",30831)=""
+^DIC(9.8,"B","XUMVIDTA",35816)=""
 ^DIC(9.8,"B","XUMVINPU",35555)=""
 ^DIC(9.8,"B","XUOAAHL7",23195)=""
 ^DIC(9.8,"B","XUOAAUTL",26981)=""
diff --git a/Packages/Kernel/Routines/XUMVIDTA.m b/Packages/Kernel/Routines/XUMVIDTA.m
new file mode 100644
index 00000000000..4a5521281ff
--- /dev/null
+++ b/Packages/Kernel/Routines/XUMVIDTA.m
@@ -0,0 +1,82 @@
+XUMVIDTA ;MVI/CKN - MVI New Person Data Analysis ; 10/9/18 9:13am
+ ;;8.0;KERNEL;**705**;Jul 10, 1995;Build 1
+ Q
+EP(RETURN,SEL,ACTSEL) ;
+ ;RPC - XUS MVI NEW PERSON DATA
+ ;This RPC is called by MPI to get data analysis report from
+ ;NEW PERSON file (#200) for active VistA sites
+ ;Input:
+ ;    SEL (Required) - 1 : All - Active New Person and  Non Active New Person
+ ;                     2 : Active New Person
+ ;                     3 : Non Active New Person
+ ; ACTSEL (Optional for Non Active) - 1 : All
+ ;                     1 : All
+ ;                     2 : Active records having a SecID value
+ ;                     3 : Active records having an Email value
+ ;                     4 : Active records having a NT USERNAME value
+ ;Output:
+ ; RETURN - Total Count^Total Non Active^Total Active^Total SECID^Total Email
+ ;          ^Total NT User^Total Visitors
+ ;
+ N XUDUZ,U,TOTVIS,TOTCNT,NONACT,ACT,TOTNACT,TOTACT,TOTSECID,TOTEMAIL,TOTNTUSR,ARR
+ S (TOTCNT,TOTNACT,TOTACT,TOTSECID,TOTEMAIL,TOTNTUSR,TOTVIS)=0
+ S U="^"
+ S XUDUZ=.9 F  S XUDUZ=$O(^VA(200,XUDUZ)) Q:+XUDUZ=0  D
+ .K ARR
+ .S TOTCNT=TOTCNT+1
+ .D GET(XUDUZ,.ARR)
+ .I $G(ARR("VISITOR"))=1 S TOTVIS=TOTVIS+1 Q  ;Filter Visitor records
+ .;Inactive New Person
+ .I SEL=3 D  Q
+ ..S NONACT=$$NONACT(.ARR)
+ ..I NONACT S TOTNACT=TOTNACT+1
+ .;Active New Person
+ .I SEL=2 D  Q
+ ..S ACT=$$ACT(.ARR) I 'ACT Q
+ ..S TOTACT=TOTACT+1
+ ..D GETACT(ACTSEL,.ARR)
+ .;All Active and Inactive New Person
+ .I SEL=1 D
+ ..S NONACT=$$NONACT(.ARR) I NONACT S TOTNACT=TOTNACT+1 Q
+ ..S TOTACT=TOTACT+1
+ ..D GETACT(ACTSEL,.ARR)
+ ;
+ ;RETURN - Total Count^Total Non Active^Total Active^Total SECID^Total Email
+ ;         ^Total NT User^Total Visitors
+ S RETURN=TOTCNT_U_TOTNACT_U_TOTACT_U_TOTSECID_U_TOTEMAIL_U_TOTNTUSR_U_TOTVIS
+ Q
+GET(XUDUZ,ARR) ;
+ ;Get all necessary fields from New Person file (#200)
+ N NPDATA
+ S DR="201;205.1;205.5;501.1;7;9.2",DIC=200,DA=XUDUZ,DIQ="NPDATA",DIQ(0)="I" D EN^DIQ1
+ S ARR("PRIMOPT")=$G(NPDATA(200,XUDUZ,201,"I"))
+ S ARR("SECID")=$G(NPDATA(200,XUDUZ,205.1,"I"))
+ S ARR("EMAIL")=$G(NPDATA(200,XUDUZ,205.5,"I"))
+ S ARR("NTUSR")=$G(NPDATA(200,XUDUZ,501.1,"I"))
+ S ARR("DISUSR")=$G(NPDATA(200,XUDUZ,7,"I"))
+ S ARR("TERMDT")=$G(NPDATA(200,XUDUZ,9.2,"I"))
+ I $O(^VA(200,XUDUZ,8910,0)) S ARR("VSTDATA")=1
+ I $G(ARR("VSTDATA")),$G(ARR("PRIMOPT"))'="" S ARR("VISITOR")=1
+ K DIC,DA,DR,DIQ
+ Q
+NONACT(ARR) ;
+ ;Inactive Person - Disuser=Y and/or Termination date is not a future date
+ I $G(ARR("DISUSR"))=1!(($G(ARR("TERMDT"))'="")&($G(ARR("TERMDT"))'>DT)) Q 1
+ Q 0
+ACT(ARR) ;
+ ;Active Person - not Disuser=Y and/or no Termination date.
+ I $G(ARR("DISUSR"))'=1,($G(ARR("TERMDT"))=""!($G(ARR("TERMDT"))>DT)) Q 1
+ Q 0
+GETACT(ACTSEL,ARR) ;
+ ;Aggregate total Active records has a SECID value
+ I ACTSEL=2,$G(ARR("SECID"))'="" S TOTSECID=TOTSECID+1 Q
+ ;Agreegate total Active records has an Email value
+ I ACTSEL=3,$G(ARR("EMAIL"))'="" S TOTEMAIL=TOTEMAIL+1 Q
+ ;Aggregate total Active records has a NT UserName value
+ I ACTSEL=4,$G(ARR("NTUSR"))'="" S TOTNTUSR=TOTNTUSR+1 Q
+ ;Aggregate all - SECID, AUPDN and NT UserName
+ I ACTSEL=1 D
+ .I $G(ARR("SECID"))'="" S TOTSECID=TOTSECID+1
+ .I $G(ARR("EMAIL"))'="" S TOTEMAIL=TOTEMAIL+1
+ .I $G(ARR("NTUSR"))'="" S TOTNTUSR=TOTNTUSR+1
+ Q
diff --git a/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr b/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr
index f3149f21747..c5a844a876b 100644
--- a/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr	
+++ b/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr	
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: REMOTE PROCEDURE
-14-MAR-2019 14:07:24 ZWR
-^XWB(8994,0)="REMOTE PROCEDURE^8994^3815^3709"
+15-MAR-2019 06:21:11 ZWR
+^XWB(8994,0)="REMOTE PROCEDURE^8994^3816^3710"
 ^XWB(8994,1,0)="XWB EGCHO STRING^ECHO1^XWBZ1^1^R"
 ^XWB(8994,1,1,0)="^^2^2^2970825^^"
 ^XWB(8994,1,1,1,0)="This RPC receives a string which will be sent right back to the client."
@@ -77109,6 +77109,42 @@ OSEHRA ZGO Export: REMOTE PROCEDURE
 ^XWB(8994,3815,3,4,0)="updating username"
 ^XWB(8994,3815,3,5,0)="RETURN(3) = 1^SUCCESS SWITCH for success or -1^error message for an "
 ^XWB(8994,3815,3,6,0)="issue updating HTTPS"
+^XWB(8994,3816,0)="XUS MVI NEW PERSON DATA^EP^XUMVIDTA^1^A^^^1^1^^0"
+^XWB(8994,3816,1,0)="^8994.01^8^8^3181004^"
+^XWB(8994,3816,1,1,0)="This RPC will return calculated data analysis from NEW PERSON file (#200) "
+^XWB(8994,3816,1,2,0)="at VistA for user's selection criteria for active and non active NEW "
+^XWB(8994,3816,1,3,0)="PERSON entries."
+^XWB(8994,3816,1,4,0)=" "
+^XWB(8994,3816,1,5,0)="Active New Person aggregated data for one or all below elements:"
+^XWB(8994,3816,1,6,0)="SECID"
+^XWB(8994,3816,1,7,0)="AUDPN (Email)"
+^XWB(8994,3816,1,8,0)="NT USERNAME"
+^XWB(8994,3816,2,0)="^8994.02A^2^2"
+^XWB(8994,3816,2,1,0)="SEL^1^1^1^1"
+^XWB(8994,3816,2,1,1,0)="^^5^5^3181004^"
+^XWB(8994,3816,2,1,1,1,0)="This input parameter can contain 1 - 3 numeric values. It evaluates to "
+^XWB(8994,3816,2,1,1,2,0)="following criteria."
+^XWB(8994,3816,2,1,1,3,0)="1 - ALL (Active and Inactive)"
+^XWB(8994,3816,2,1,1,4,0)="2 - Active New Person"
+^XWB(8994,3816,2,1,1,5,0)="3 - Inactive New Person"
+^XWB(8994,3816,2,2,0)="ACTSEL^1^1^0^2"
+^XWB(8994,3816,2,2,1,0)="^^8^8^3181004^"
+^XWB(8994,3816,2,2,1,1,0)="This input parameter can contain 1 - 4 numeric value. It evaluates to "
+^XWB(8994,3816,2,2,1,2,0)="following criteria of Active records. This input parameter is only "
+^XWB(8994,3816,2,2,1,3,0)="present if selection criteria is for Active New Person."
+^XWB(8994,3816,2,2,1,4,0)=" "
+^XWB(8994,3816,2,2,1,5,0)="1 - ALL"
+^XWB(8994,3816,2,2,1,6,0)="2 - Number of Active records having a SecID value"
+^XWB(8994,3816,2,2,1,7,0)="3 - Number of Active records having an Email value"
+^XWB(8994,3816,2,2,1,8,0)="4 - Number of Active records having a NT USERNAME value"
+^XWB(8994,3816,2,"B","ACTSEL",2)=""
+^XWB(8994,3816,2,"B","SEL",1)=""
+^XWB(8994,3816,2,"PARAMSEQ",1,1)=""
+^XWB(8994,3816,2,"PARAMSEQ",2,2)=""
+^XWB(8994,3816,3,0)="^^3^3^3181004^"
+^XWB(8994,3816,3,1,0)="RETURN:"
+^XWB(8994,3816,3,2,0)="Total Count^Total Non Active^Total Active^Total SECID^Total Email^Total "
+^XWB(8994,3816,3,3,0)="NT User^Total Visitors"
 ^XWB(8994,"B","ACKQAUD1",1578)=""
 ^XWB(8994,"B","ACKQAUD2",1579)=""
 ^XWB(8994,"B","ACKQAUD4",2095)=""
@@ -80681,6 +80717,7 @@ OSEHRA ZGO Export: REMOTE PROCEDURE
 ^XWB(8994,"B","XUS KAAJEE GET USER VIA PROXY",2877)=""
 ^XWB(8994,"B","XUS KAAJEE LOGOUT",2195)=""
 ^XWB(8994,"B","XUS KEY CHECK",110)=""
+^XWB(8994,"B","XUS MVI NEW PERSON DATA",3816)=""
 ^XWB(8994,"B","XUS MVI NEW PERSON GET",3798)=""
 ^XWB(8994,"B","XUS MVI NEW PERSON UPDATE",3799)=""
 ^XWB(8994,"B","XUS PKI GET UPN",3070)=""