diff --git a/Packages/Health Level Seven/Globals/773+HL7 MESSAGE ADMINISTRATION.zwr b/Packages/Health Level Seven/Globals/773+HL7 MESSAGE ADMINISTRATION.zwr
index e65cd74c258..c89ce35732a 100644
--- a/Packages/Health Level Seven/Globals/773+HL7 MESSAGE ADMINISTRATION.zwr	
+++ b/Packages/Health Level Seven/Globals/773+HL7 MESSAGE ADMINISTRATION.zwr	
@@ -488,7 +488,7 @@ ZWR
 ^HLMA(4089,0)="4098^504089^O^I^M^^3^4144^^4087^173^172^43^65^^^3"
 ^HLMA(4089,"MSH",0)="^773.01^1^1"
 ^HLMA(4089,"MSH",1,0)="MSH^~|\&^XUMF MD5^999PLT^VETS MD5^200V^20160705122134-0400^^MFR~M01^504089^P^2.4^^^AL^NE^USA"
-^HLMA(4089,"P")="1.5^3160705.122138^^^^26"
+^HLMA(4089,"P")="1.5^3160705.122138^^^^6"
 ^HLMA("AC","O",3,4089)=""
 ^HLMA("AD",3141001.095258,2335)=""
 ^HLMA("AD",3141001.095258,2336)=""
diff --git a/Packages/Health Level Seven/Globals/869.3+HL COMMUNICATION SERVER PARAMETERS.zwr b/Packages/Health Level Seven/Globals/869.3+HL COMMUNICATION SERVER PARAMETERS.zwr
index f75f032c27e..bdc332df48f 100644
--- a/Packages/Health Level Seven/Globals/869.3+HL COMMUNICATION SERVER PARAMETERS.zwr	
+++ b/Packages/Health Level Seven/Globals/869.3+HL COMMUNICATION SERVER PARAMETERS.zwr	
@@ -5,7 +5,7 @@ ZWR
 ^HLCS(869.3,1,1)="1^1"
 ^HLCS(869.3,1,2,0)="^869.32^^0"
 ^HLCS(869.3,1,3,0)="^869.33^^0"
-^HLCS(869.3,1,5)="^^^64240,58316"
+^HLCS(869.3,1,5)="^^^64240,59905"
 ^HLCS(869.3,1,6,0)="^869.31^^"
 ^HLCS(869.3,1,8,0)="^869.35^1^1"
 ^HLCS(869.3,1,8,1,0)="DOMAIN.EXT"
diff --git a/Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr b/Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr
index 550020daff3..13cdf9d58eb 100644
--- a/Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr	
+++ b/Packages/Health Level Seven/Globals/870+HL LOGICAL LINK.zwr	
@@ -1,184 +1,184 @@
 HL LOGICAL LINK
 ZWR
 ^HLCS(870,0)="HL LOGICAL LINK^870^68^67"
-^HLCS(870,1,0)="XUMF TEST^^4^^Enabled^1^^^^3161118.161147^3161118.161147^^^^0"
+^HLCS(870,1,0)="XUMF TEST^^4^^Enabled^1^^^^3161118.163816^3161118.163816^^^^0"
 ^HLCS(870,1,200)="^5^^600^600^^^^^S"
 ^HLCS(870,1,400)="127.0.0.1^5557^C"
 ^HLCS(870,1,"OUT QUEUE BACK POINTER")="4"
 ^HLCS(870,1,"OUT QUEUE FRONT POINTER")="4"
-^HLCS(870,2,0)="XUMF FORUM^^4^^Enabled^1^^^^3161118.161147^3161118.161147^^^^0"
+^HLCS(870,2,0)="XUMF FORUM^^4^^Enabled^1^^^^3161118.163816^3161118.163816^^^^0"
 ^HLCS(870,2,200)="^5^^60^60^^^^^S"
 ^HLCS(870,2,400)="127.0.0.1^5000^C"
-^HLCS(870,3,0)="XUMF ACK^^4^NC^Open^1^^^^3161118.161147^3161118.161147^^^^0^^^^"
+^HLCS(870,3,0)="XUMF ACK^^4^NC^Open^1^^^^3161118.163816^^1221^^^0^^^^"
 ^HLCS(870,3,200)="^5^^600^600^^^^^S"
 ^HLCS(870,3,400)="127.0.0.1^8090^C"
 ^HLCS(870,3,"IN QUEUE BACK POINTER")="1211"
 ^HLCS(870,3,"IN QUEUE FRONT POINTER")="1211"
 ^HLCS(870,3,"OUT QUEUE BACK POINTER")="772"
 ^HLCS(870,3,"OUT QUEUE FRONT POINTER")="771"
-^HLCS(870,4,0)="LISTENER^^4^MS^Openfail^1^27^^^^3161118.161223^^^^0^^^^^^10"
+^HLCS(870,4,0)="LISTENER^^4^MS^Openfail^1^27^^^^3161118.163852^^^^0^^^^^^10"
 ^HLCS(870,4,200)="^5^^600^600^^^^^S"
 ^HLCS(870,4,400)="127.0.0.1^5030^M"
 ^HLCS(870,4,"IN QUEUE BACK POINTER")="184"
 ^HLCS(870,4,"IN QUEUE FRONT POINTER")="184"
 ^HLCS(870,4,"OUT QUEUE BACK POINTER")="625"
 ^HLCS(870,4,"OUT QUEUE FRONT POINTER")="625"
-^HLCS(870,5,0)="ORHDR^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,5,0)="ORHDR^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,5,200)="^1^245^10^10^^^^^R"
 ^HLCS(870,5,400)="^5001^C^^^"
-^HLCS(870,6,0)="MCAR INST^^4^^Halting^^^^^^3161118.161126^^^^1^^^^^^100"
+^HLCS(870,6,0)="MCAR INST^^4^^Halting^^^^^^3161118.163758^^^^1^^^^^^100"
 ^HLCS(870,6,200)="^3^^60^60^^^^^I"
 ^HLCS(870,6,400)="^9026^S^N^^"
-^HLCS(870,7,0)="MCAR OUT^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^100"
+^HLCS(870,7,0)="MCAR OUT^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^100"
 ^HLCS(870,7,200)="^3^^60^60^^^^^I"
 ^HLCS(870,7,400)="127.0.0.1^9028^C^N^^"
-^HLCS(870,8,0)="YS MHAT^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,8,0)="YS MHAT^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,8,200)="^5^245^600^80^^^23^^I"
 ^HLCS(870,8,400)="127.0.0.1^5000^C^N^^"
-^HLCS(870,9,0)="LLESROUT^^4^NC^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,9,0)="LLESROUT^^4^NC^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,9,200)="^3^^90^270^^^^^R"
 ^HLCS(870,9,400)="^^C^N^^"
-^HLCS(870,10,0)="DG HTH^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,10,0)="DG HTH^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,10,200)="^^^^^^^^^R"
 ^HLCS(870,10,400)="127.0.0.1^8090^C^^^"
-^HLCS(870,11,0)="DG HT HH^2226^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,11,0)="DG HT HH^2226^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,11,200)="^^^^^^^^^R"
 ^HLCS(870,11,400)="^5121^C^N^^^^^"
-^HLCS(870,12,0)="DG HT AMD^2227^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,12,0)="DG HT AMD^2227^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,12,200)="^^^^^^^^^R"
 ^HLCS(870,12,400)="^5121^C^N^^^^^"
-^HLCS(870,13,0)="DG HT ATI^2231^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,13,0)="DG HT ATI^2231^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,13,200)="^^^^^^^^^R"
 ^HLCS(870,13,400)="^5121^C^N^^^^^"
-^HLCS(870,14,0)="DG HT VN^2229^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,14,0)="DG HT VN^2229^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,14,200)="^^^^^^^^^R"
 ^HLCS(870,14,400)="^5121^C^N^^^^^"
-^HLCS(870,15,0)="DG HT VIT^2230^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,15,0)="DG HT VIT^2230^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,15,200)="^^^^^^^^^R"
 ^HLCS(870,15,400)="^5121^C^N^^^^^"
-^HLCS(870,16,0)="RA-SCIMAGE^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,16,0)="RA-SCIMAGE^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,16,200)="^5^^60^300^^^^^S"
 ^HLCS(870,16,400)="^^C^N^^"
-^HLCS(870,17,0)="MHVVA^2208^4^^Shutdown^0^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,17,0)="MHVVA^2208^4^^Shutdown^0^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,17,200)="^^^^^^^^^R"
 ^HLCS(870,17,400)="^^C^N^^"
-^HLCS(870,18,0)="LA7UI2^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,18,0)="LA7UI2^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,18,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,18,3,1,0)="Laboratory Universal Interface Logical Link #2"
 ^HLCS(870,18,200)="^5^^3^60^^^^2^I"
 ^HLCS(870,18,400)="^^C^N^120^"
-^HLCS(870,19,0)="LA7UI1^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,19,0)="LA7UI1^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,19,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,19,3,1,0)="Laboratory Universal Interface Logical Link #1"
 ^HLCS(870,19,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,19,400)="^^C^N^120^"
-^HLCS(870,20,0)="LA7UI3^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,20,0)="LA7UI3^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,20,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,20,3,1,0)="Laboratory Universal Interface Logical Link #3"
 ^HLCS(870,20,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,20,400)="^^C^N^120^"
-^HLCS(870,21,0)="LA7UI4^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,21,0)="LA7UI4^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,21,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,21,3,1,0)="Laboratory Universal Interface Logical Link #4"
 ^HLCS(870,21,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,21,400)="^^C^N^120^"
-^HLCS(870,22,0)="LA7UI5^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,22,0)="LA7UI5^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,22,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,22,3,1,0)="Laboratory Universal Interface Logical Link #5"
 ^HLCS(870,22,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,22,400)="^^C^N^120^"
-^HLCS(870,23,0)="LA7UI6^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,23,0)="LA7UI6^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,23,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,23,3,1,0)="Laboratory Universal Interface Logical Link #6"
 ^HLCS(870,23,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,23,400)="^^C^N^120^"
-^HLCS(870,24,0)="LA7UI7^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,24,0)="LA7UI7^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,24,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,24,3,1,0)="Laboratory Universal Interface Logical Link #7"
 ^HLCS(870,24,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,24,400)="^^C^N^120^"
-^HLCS(870,25,0)="LA7UI8^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,25,0)="LA7UI8^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,25,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,25,3,1,0)="Laboratory Universal Interface Logical Link #8"
 ^HLCS(870,25,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,25,400)="^^C^N^120^"
-^HLCS(870,26,0)="LA7UI9^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,26,0)="LA7UI9^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,26,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,26,3,1,0)="Laboratory Universal Interface Logical Link #9"
 ^HLCS(870,26,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,26,400)="^^C^N^120^"
-^HLCS(870,27,0)="LA7UI10^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,27,0)="LA7UI10^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,27,3,0)="^870.02^1^1^3080505^^"
 ^HLCS(870,27,3,1,0)="Laboratory Universal Interface Logical Link #10"
 ^HLCS(870,27,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,27,400)="^^C^N^120^"
-^HLCS(870,28,0)="NPI OUT^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,28,0)="NPI OUT^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,28,200)="^3^^27^270"
 ^HLCS(870,28,400)="^8090^C^N^50^^N"
-^HLCS(870,30,0)="VBECS-OERR^^4^^^^^^^^3161118.161126^^^^1^^^^^^1000"
+^HLCS(870,30,0)="VBECS-OERR^^4^^^^^^^^3161118.163758^^^^1^^^^^^1000"
 ^HLCS(870,30,400)="^19992^S^N^^^^^"
-^HLCS(870,31,0)="VBECSPTU^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^1000"
+^HLCS(870,31,0)="VBECSPTU^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^1000"
 ^HLCS(870,31,200)="^10^^10^10^^^^^R^1"
 ^HLCS(870,31,400)="^5000^C^N^^^^^"
-^HLCS(870,32,0)="VBECSPTM^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,32,0)="VBECSPTM^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,32,200)="^5^^10^10^^^^^R"
 ^HLCS(870,32,400)="^5000^C^N^^^N^^"
-^HLCS(870,33,0)="OERR-VBECS^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^1000"
+^HLCS(870,33,0)="OERR-VBECS^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^1000"
 ^HLCS(870,33,200)="^5^^10^10^^^^0^R"
 ^HLCS(870,33,400)="^19802^C^N^^^N^^"
-^HLCS(870,34,0)="VA-VIE^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^^^^1"
+^HLCS(870,34,0)="VA-VIE^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^^^^1"
 ^HLCS(870,34,200)="^^^^^^^^^R"
 ^HLCS(870,34,400)="^8090^C^N^^^^^"
-^HLCS(870,35,0)="VAORL^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^"
+^HLCS(870,35,0)="VAORL^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^"
 ^HLCS(870,35,200)="^^^^^^^^^R"
 ^HLCS(870,35,400)="^5000^C^N^^^^5001^"
-^HLCS(870,36,0)="VAVCB^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^"
+^HLCS(870,36,0)="VAVCB^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^"
 ^HLCS(870,36,200)="^^^^^^^^^R"
 ^HLCS(870,36,400)="^5000^C^N^^^^5001^"
-^HLCS(870,37,0)="MDHL IN^^4^^^^^^^^3161118.161126^^^^1^^^^^^100"
+^HLCS(870,37,0)="MDHL IN^^4^^^^^^^^3161118.163758^^^^1^^^^^^100"
 ^HLCS(870,37,200)="^3^^3^3"
 ^HLCS(870,37,400)="^11660^S^N^60^^^^"
-^HLCS(870,38,0)="YS GAF-SND^^1^MM^IDLE^1^^^^3161118.161154^^1204^^^0^^^^^^10"
+^HLCS(870,38,0)="YS GAF-SND^^1^MM^IDLE^1^^^^3161118.163823^^1217^^^0^^^^^^10"
 ^HLCS(870,38,100)="95"
-^HLCS(870,39,0)="ROR SEND^^4^NC^Shutdown^0^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,39,0)="ROR SEND^^4^NC^Shutdown^0^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,39,200)="^^^30^600^^^^^R"
 ^HLCS(870,39,400)="127.0.0.1^7002^C^^10"
 ^HLCS(870,39,"IN QUEUE BACK POINTER")="1"
 ^HLCS(870,39,"IN QUEUE FRONT POINTER")="1"
 ^HLCS(870,39,"OUT QUEUE BACK POINTER")="5"
 ^HLCS(870,39,"OUT QUEUE FRONT POINTER")="1"
-^HLCS(870,40,0)="DENTVHLAAC^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,40,0)="DENTVHLAAC^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,40,400)="127.0.0.1^8090^C^^30"
-^HLCS(870,41,0)="DENTVHLHDR^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,41,0)="DENTVHLHDR^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,41,400)="127.0.0.1^10000^C^^30"
-^HLCS(870,42,0)="LA7POC1^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,42,0)="LA7POC1^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,42,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,42,400)="^^C^N^120"
-^HLCS(870,43,0)="LA7POC2^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,43,0)="LA7POC2^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,43,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,43,400)="^^C^N^120"
-^HLCS(870,44,0)="LA7POC3^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,44,0)="LA7POC3^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,44,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,44,400)="^^C^N^120"
-^HLCS(870,45,0)="LA7POC4^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,45,0)="LA7POC4^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,45,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,45,400)="^^C^N^120"
-^HLCS(870,46,0)="LA7POC5^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,46,0)="LA7POC5^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,46,200)="^5^^3^60^^^^3^I"
 ^HLCS(870,46,400)="^^C^N^120"
-^HLCS(870,47,0)="FBFEE-FPPS^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,47,0)="FBFEE-FPPS^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,47,200)="^^^^^^^^^R"
 ^HLCS(870,47,400)="127.0.0.1^9257^C^N"
-^HLCS(870,48,0)="IFCAP_FPDS^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,48,0)="IFCAP_FPDS^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,48,3,0)="^^1^1^3110630^"
 ^HLCS(870,48,3,1,0)="VITREA IP ADDRESS NEEDED."
 ^HLCS(870,48,200)="^^^60"
 ^HLCS(870,48,400)="^^C^N^60"
-^HLCS(870,49,0)="PSBCOTS1^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,49,0)="PSBCOTS1^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,49,200)="^^^10"
 ^HLCS(870,49,400)="127.0.0.1^10000^C^N^120"
-^HLCS(870,50,0)="PSD HLLP^^2^SH^^^^^^^3161118.161126^^^^1^^^^^^10"
-^HLCS(870,51,0)="PSO DISP^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,50,0)="PSD HLLP^^2^SH^^^^^^^3161118.163758^^^^1^^^^^^10"
+^HLCS(870,51,0)="PSO DISP^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,51,3,0)="^^5^5^3110630^"
 ^HLCS(870,51,3,1,0)=" This is the Pharmacy Optifill link. This link sends PHR data to the"
 ^HLCS(870,51,3,2,0)="Vitrea servers. The Vitrea servers then forward the data to the Optifill"
@@ -187,50 +187,50 @@ ZWR
 ^HLCS(870,51,3,5,0)="HSTS/AXP team for Vitrea support. Keyword VITREA support."
 ^HLCS(870,51,200)="^5^^30^600"
 ^HLCS(870,51,400)="^9300^C^N"
-^HLCS(870,52,0)="PSO LLP1^^2^NC^^^^^^^3161118.161126^^^^1^^^^^^10"
-^HLCS(870,53,0)="PSO LLPO^^2^^^^^^^^3161118.161126^^^^1^^^^^^10"
-^HLCS(870,54,0)="PSOTPBAAC^^4^^Shutdown^0^15^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,52,0)="PSO LLP1^^2^NC^^^^^^^3161118.163758^^^^1^^^^^^10"
+^HLCS(870,53,0)="PSO LLPO^^2^^^^^^^^3161118.163758^^^^1^^^^^^10"
+^HLCS(870,54,0)="PSOTPBAAC^^4^^Shutdown^0^15^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,54,200)="^^^^^^^^^R"
 ^HLCS(870,54,400)="127.0.0.1^6500^C"
-^HLCS(870,55,0)="PSU SEND^^4^^Enabled^1^^CMOP-NAT.DOMAIN.EXT^^3161118.161147^3161118.161147^^^^0^^^^^^10"
+^HLCS(870,55,0)="PSU SEND^^4^^Enabled^1^^CMOP-NAT.DOMAIN.EXT^^3161118.163816^3161118.163816^^^^0^^^^^^10"
 ^HLCS(870,55,200)="^^^60^600^^^^^R"
 ^HLCS(870,55,400)="127.0.0.1^5000^C^N"
-^HLCS(870,56,0)="PXRM7-RECO^^1^^^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,56,0)="PXRM7-RECO^^1^^^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,56,100)="288"
-^HLCS(870,57,0)="RA-TALK^^4^^Enabled^1^^^^3161118.161147^3161118.161147^^^^0^^^^^^10"
+^HLCS(870,57,0)="RA-TALK^^4^^Enabled^1^^^^3161118.163816^3161118.163816^^^^0^^^^^^10"
 ^HLCS(870,57,200)="^99^^^300^^^^^R"
 ^HLCS(870,57,400)="^7077^C^N"
-^HLCS(870,58,0)="RMIM LINK^^1^MM^IDLE^1^^^^3161118.161155^^1205^^^0^^^^^^10"
+^HLCS(870,58,0)="RMIM LINK^^1^MM^IDLE^1^^^^3161118.163824^^1218^^^0^^^^^^10"
 ^HLCS(870,58,100)="167"
-^HLCS(870,59,0)="SPN^^1^MM^IDLE^1^^^^3161118.161156^^1206^^^0^^^^^^10000"
+^HLCS(870,59,0)="SPN^^1^MM^IDLE^1^^^^3161118.163825^^1219^^^0^^^^^^10000"
 ^HLCS(870,59,100)="110"
-^HLCS(870,60,0)="SR AAIS^^4^^^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,60,0)="SR AAIS^^4^^^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,60,200)="^5^^^20"
 ^HLCS(870,60,400)="^^C^Y"
-^HLCS(870,61,0)="MAG CPACS^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,61,0)="MAG CPACS^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,61,200)="^^^90^90"
 ^HLCS(870,61,400)="^^C^^^"
-^HLCS(870,62,0)="DG HT CC^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,62,0)="DG HT CC^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,62,200)="^^^^^^^^^R"
 ^HLCS(870,62,400)="^5121^C^N^^^^^"
-^HLCS(870,63,0)="DG HT AD^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,63,0)="DG HT AD^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,63,200)="^^^^^^^^^R"
 ^HLCS(870,63,400)="^5121^C^N^^^^^"
-^HLCS(870,64,0)="PRCHJ_ECMS^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,64,0)="PRCHJ_ECMS^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,64,3,0)="^870.02^3^3^3121102^^^^"
 ^HLCS(870,64,3,1,0)="HL7 Logical Link used to identify the VistA Interface Engine for routing "
 ^HLCS(870,64,3,2,0)="HL7 messages from IFCAP to the Electronic Contract Management System"
 ^HLCS(870,64,3,3,0)="(eCMS) in Austin."
 ^HLCS(870,64,400)="^^C^^^^^8090^"
-^HLCS(870,65,0)="AITC_VTS^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,65,0)="AITC_VTS^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,65,200)="^^^60^60"
 ^HLCS(870,65,400)="^8090^C^N^60^^^^"
 ^HLCS(870,66,0)="MAG DPS^^TCP^^^^^TEST_DPS.VHA.DOMAIN.EXT^^^^^^^^^^^^^10"
 ^HLCS(870,66,400)="111.222.333.444^^C"
-^HLCS(870,67,0)="IB NIF TCP^^4^^Enabled^1^^ECOMMLLPPRD.FSC.DOMAIN.EXT^^3161118.161147^3161118.161147^^^^0^^^^^^10"
+^HLCS(870,67,0)="IB NIF TCP^^4^^Enabled^1^^ECOMMLLPPRD.FSC.DOMAIN.EXT^^3161118.163816^3161118.163816^^^^0^^^^^^10"
 ^HLCS(870,67,200)="^^254^^120^^^^^I"
 ^HLCS(870,67,400)="127.0.0.1^9346^C^N^^^N^^"
-^HLCS(870,68,0)="GMRCHCP^^4^^Shutdown^^^^^^3161118.161126^^^^1^^^^^^10"
+^HLCS(870,68,0)="GMRCHCP^^4^^Shutdown^^^^^^3161118.163758^^^^1^^^^^^10"
 ^HLCS(870,68,200)="^^^^^^^^^R"
 ^HLCS(870,68,400)="^^C^N^30^^^^"
 ^HLCS(870,"AC","200MH","MHVVA",17)=""
diff --git a/Packages/Kernel/Globals/%ZTSCH.zwr b/Packages/Kernel/Globals/%ZTSCH.zwr
index 3d7a2bf68e1..e2e3f0ab7e6 100644
--- a/Packages/Kernel/Globals/%ZTSCH.zwr
+++ b/Packages/Kernel/Globals/%ZTSCH.zwr
@@ -1,8 +1,7 @@
 ^%ZTSCH
 ZWR
 ^%ZTSCH=""
-^%ZTSCH(5550394308,1207)=""
-^%ZTSCH(5550394323,1208)=""
+^%ZTSCH(5550395912,1222)=""
 ^%ZTSCH(5550396732,1154)=""
 ^%ZTSCH(5550396733,1157)=""
 ^%ZTSCH("C","VISTA:CACHE")="0"
@@ -10,7 +9,7 @@ ZWR
 ^%ZTSCH("ER")=""
 ^%ZTSCH("HOUR")="5550392663"
 ^%ZTSCH("IDLE")="0"
-^%ZTSCH("IO")="5550394315^"
+^%ZTSCH("IO")="5550395908^"
 ^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
 ^%ZTSCH("LOAD")=""
 ^%ZTSCH("MON","PLA:PLAISCSVR",63928)="2^5^1^5^2^6^1^8^1^7^1^5^1^6^2^6^1^4^1^5^1^4^1^6^"
@@ -136,22 +135,16 @@ ZWR
 ^%ZTSCH("STARTUP","VISTA,VISTA","24Q7901")="64104,44312^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","25Q8102")="64104,44312^^"
 ^%ZTSCH("STARTUP","VISTA,VISTA","8Q9891")="59494,69903^^"
-^%ZTSCH("STOP","MGR","VISTA:CACHE")="64240,58317"
-^%ZTSCH("STOP","SUB","VISTA:CACHE")="64240,58317"
+^%ZTSCH("STOP","MGR","VISTA:CACHE")="64240,59909"
+^%ZTSCH("STOP","SUB","VISTA:CACHE")="64240,59909"
 ^%ZTSCH("SUB","VISTA:CACHE")="0"
 ^%ZTSCH("SUB","VISTA:CACHE",0)="0"
-^%ZTSCH("TASK",1194)="^HLCSLSM^8853^HL AUTOSTART LINK MANAGER^64240,56729^^VISTA,VISTA^64240,56729^POSTMASTER^8768^^VISTA:CACHE^64240,58305"
-^%ZTSCH("TASK",1194,2)="VISTA,VISTA^^^1194^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1201)="STARTIN^HLCSIN^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^4888^^VISTA:CACHE^64240,58311"
-^%ZTSCH("TASK",1201,1)="64240,58311"
-^%ZTSCH("TASK",1201,2)="VISTA,VISTA^^^1201^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1202)="STARTOUT^HLCSOUT^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^7768^^VISTA:CACHE^64240,58312"
-^%ZTSCH("TASK",1202,1)="64240,58312"
-^%ZTSCH("TASK",1202,2)="VISTA,VISTA^^^1202^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1204)="^HLCSMM1^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^6280^^VISTA:CACHE^64240,58314"
-^%ZTSCH("TASK",1204,2)="VISTA,VISTA^^^1204^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1205)="^HLCSMM1^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^5308^^VISTA:CACHE^64240,58315"
-^%ZTSCH("TASK",1205,2)="VISTA,VISTA^^^1205^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
-^%ZTSCH("TASK",1206)="^HLCSMM1^8412^HL TASK RESTART^64240,58307^^VISTA,VISTA^64240,58307^POSTMASTER^9056^^VISTA:CACHE^64240,58316"
-^%ZTSCH("TASK",1206,2)="VISTA,VISTA^^^1206^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1217)="^HLCSMM1^8412^HL TASK RESTART^64240,59896^^VISTA,VISTA^64240,59896^POSTMASTER^5180^^VISTA:CACHE^64240,59903"
+^%ZTSCH("TASK",1217,2)="VISTA,VISTA^^^1217^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1218)="^HLCSMM1^8412^HL TASK RESTART^64240,59896^^VISTA,VISTA^64240,59896^POSTMASTER^7900^^VISTA:CACHE^64240,59904"
+^%ZTSCH("TASK",1218,2)="VISTA,VISTA^^^1218^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1219)="^HLCSMM1^8412^HL TASK RESTART^64240,59896^^VISTA,VISTA^64240,59896^POSTMASTER^8240^^VISTA:CACHE^64240,59905"
+^%ZTSCH("TASK",1219,2)="VISTA,VISTA^^^1219^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
+^%ZTSCH("TASK",1221)="^HLCSLSM^8853^HL AUTOSTART LINK MANAGER^64240,59900^^VISTA,VISTA^64240,59900^POSTMASTER^7352^^VISTA:CACHE^64240,59907"
+^%ZTSCH("TASK",1221,2)="VISTA,VISTA^^^1221^^^VISTA^CACHE^.5^^^^VISTA:CACHE^G^"
 ^%ZTSCH("WAIT")="58035,64592"
diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index 4c487977bdd..a6ecd058780 100644
--- a/Packages/Kernel/Globals/14.4+TASKS.zwr
+++ b/Packages/Kernel/Globals/14.4+TASKS.zwr
@@ -1,6 +1,6 @@
 TASKS
 ZWR
-^%ZTSK(-1)="1208"
+^%ZTSK(-1)="1222"
 ^%ZTSK(0)="TASKS^14.4^1061"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^64047,54207^64047,54207^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -2419,7 +2419,7 @@ ZWR
 ^%ZTSK(1194,.02)="VISTA^VISTA^^"
 ^%ZTSK(1194,.03)="XUMF ACK Low Level Protocol"
 ^%ZTSK(1194,.04)="5550392729"
-^%ZTSK(1194,.1)="5^64240,58305^Started Running^8768^^^^^^1"
+^%ZTSK(1194,.1)="E^64240,59833^Interrupted While Running^8768^^^^^^1"
 ^%ZTSK(1194,.2)=""
 ^%ZTSK(1194,.21)=""
 ^%ZTSK(1194,.25)=""
@@ -2499,7 +2499,7 @@ ZWR
 ^%ZTSK(1201,.02)="VISTA^VISTA^^"
 ^%ZTSK(1201,.03)="HL7 Incoming Filer"
 ^%ZTSK(1201,.04)="5550394307"
-^%ZTSK(1201,.1)="5^64240,58311^Started Running^4888^^^^^^1"
+^%ZTSK(1201,.1)="D^64240,58371^Job asked to stop^4888^^^^^^1"
 ^%ZTSK(1201,.2)=""
 ^%ZTSK(1201,.21)=""
 ^%ZTSK(1201,.25)=""
@@ -2514,7 +2514,7 @@ ZWR
 ^%ZTSK(1202,.02)="VISTA^VISTA^^"
 ^%ZTSK(1202,.03)="HL7 Outgoing Filer"
 ^%ZTSK(1202,.04)="5550394307"
-^%ZTSK(1202,.1)="5^64240,58312^Started Running^7768^^^^^^1"
+^%ZTSK(1202,.1)="D^64240,58372^Job asked to stop^7768^^^^^^1"
 ^%ZTSK(1202,.2)=""
 ^%ZTSK(1202,.21)=""
 ^%ZTSK(1202,.25)=""
@@ -2529,7 +2529,7 @@ ZWR
 ^%ZTSK(1204,.02)="VISTA^VISTA^^"
 ^%ZTSK(1204,.03)="YS GAF-SND Low Level Protocol"
 ^%ZTSK(1204,.04)="5550394307"
-^%ZTSK(1204,.1)="5^64240,58314^Started Running^6280^^^^^^1"
+^%ZTSK(1204,.1)="E^64240,59833^Interrupted While Running^6280^^^^^^1"
 ^%ZTSK(1204,.2)=""
 ^%ZTSK(1204,.21)=""
 ^%ZTSK(1204,.25)=""
@@ -2545,7 +2545,7 @@ ZWR
 ^%ZTSK(1205,.02)="VISTA^VISTA^^"
 ^%ZTSK(1205,.03)="RMIM LINK Low Level Protocol"
 ^%ZTSK(1205,.04)="5550394307"
-^%ZTSK(1205,.1)="5^64240,58315^Started Running^5308^^^^^^1"
+^%ZTSK(1205,.1)="E^64240,59833^Interrupted While Running^5308^^^^^^1"
 ^%ZTSK(1205,.2)=""
 ^%ZTSK(1205,.21)=""
 ^%ZTSK(1205,.25)=""
@@ -2561,7 +2561,7 @@ ZWR
 ^%ZTSK(1206,.02)="VISTA^VISTA^^"
 ^%ZTSK(1206,.03)="SPN Low Level Protocol"
 ^%ZTSK(1206,.04)="5550394307"
-^%ZTSK(1206,.1)="5^64240,58316^Started Running^9056^^^^^^1"
+^%ZTSK(1206,.1)="E^64240,59833^Interrupted While Running^9056^^^^^^1"
 ^%ZTSK(1206,.2)=""
 ^%ZTSK(1206,.21)=""
 ^%ZTSK(1206,.25)=""
@@ -2574,10 +2574,13 @@ ZWR
 ^%ZTSK(1206,.3,"XQY")="8412"
 ^%ZTSK(1206,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
 ^%ZTSK(1207,0)="STOP^XWBTCP(9210)^.5^VISTA^64240,58308^64240,58308^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1207,.02)="VISTA^VISTA^CACHE^"
 ^%ZTSK(1207,.03)="RPC Broker Listener STOP on VISTA-VISTA:CACHE, port 9210"
 ^%ZTSK(1207,.04)="5550394308"
-^%ZTSK(1207,.1)="1^64240,58308^^^^^^"
-^%ZTSK(1207,.2)="^^^^Q^"
+^%ZTSK(1207,.1)="6^64240,59894^Finished^8808^^^^^"
+^%ZTSK(1207,.2)=""
+^%ZTSK(1207,.21)=""
+^%ZTSK(1207,.25)=""
 ^%ZTSK(1207,.3,"DUZ(",0)="@"
 ^%ZTSK(1207,.3,"DUZ(",2)="0"
 ^%ZTSK(1207,.3,"DUZ(","AG")="V"
@@ -2586,10 +2589,13 @@ ZWR
 ^%ZTSK(1207,.3,"XQY")="7901"
 ^%ZTSK(1207,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
 ^%ZTSK(1208,0)="ZISTCP^XWBTCPM1(9210)^.5^VISTA^64240,58323^64240,58323^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1208,.02)="VISTA^VISTA^CACHE^"
 ^%ZTSK(1208,.03)="RPC Broker Listener START on VISTA-VISTA:CACHE, port 9210"
 ^%ZTSK(1208,.04)="5550394323"
-^%ZTSK(1208,.1)="1^64240,58323^^^^^^"
-^%ZTSK(1208,.2)="^^^^Q^"
+^%ZTSK(1208,.1)="6^64240,59924^Finished^8808^^^^^^1"
+^%ZTSK(1208,.2)=""
+^%ZTSK(1208,.21)=""
+^%ZTSK(1208,.25)=""
 ^%ZTSK(1208,.3,"DUZ(",0)="@"
 ^%ZTSK(1208,.3,"DUZ(",2)="0"
 ^%ZTSK(1208,.3,"DUZ(","AG")="V"
@@ -2597,6 +2603,176 @@ ZWR
 ^%ZTSK(1208,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
 ^%ZTSK(1208,.3,"XQY")="7901"
 ^%ZTSK(1208,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
+^%ZTSK(1209,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1209,.02)="VISTA^VISTA^^"
+^%ZTSK(1209,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1209,.04)="5550395893"
+^%ZTSK(1209,.1)="6^64240,59910^Finished^8372^^^^^^1"
+^%ZTSK(1209,.11)="Run Task"
+^%ZTSK(1209,.2)=""
+^%ZTSK(1209,.21)=""
+^%ZTSK(1209,.25)=""
+^%ZTSK(1209,.3,"DUZ(",0)="@"
+^%ZTSK(1209,.3,"XQSCH")="10"
+^%ZTSK(1209,.3,"XQY")="8853"
+^%ZTSK(1210,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1210,.02)="VISTA^VISTA^^"
+^%ZTSK(1210,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1210,.04)="5550395893"
+^%ZTSK(1210,.1)="6^64240,59896^Finished^8600^^^^^"
+^%ZTSK(1210,.11)="Run Task"
+^%ZTSK(1210,.2)=""
+^%ZTSK(1210,.21)=""
+^%ZTSK(1210,.25)=""
+^%ZTSK(1210,.3,"DUZ(",0)="@"
+^%ZTSK(1210,.3,"XQSCH")="11"
+^%ZTSK(1210,.3,"XQY")="8412"
+^%ZTSK(1212,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^8102^XMRONT^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1212,.02)="VISTA^VISTA^^"
+^%ZTSK(1212,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1212,.04)="5550395893"
+^%ZTSK(1212,.1)="6^64240,59928^Finished^3108^^^^^^1"
+^%ZTSK(1212,.11)="Run Task"
+^%ZTSK(1212,.2)=""
+^%ZTSK(1212,.21)=""
+^%ZTSK(1212,.25)=""
+^%ZTSK(1212,.3,"DUZ(",0)="@"
+^%ZTSK(1212,.3,"XQSCH")="25"
+^%ZTSK(1212,.3,"XQY")="8102"
+^%ZTSK(1213,0)="ZTSK^XQ1^.5^VISTA^64240,59893^64240,59893^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(1213,.02)="VISTA^VISTA^^"
+^%ZTSK(1213,.03)="No Description (%ZTLOAD)"
+^%ZTSK(1213,.04)="5550395893"
+^%ZTSK(1213,.1)="6^64240,59899^Finished^7568^^^^^"
+^%ZTSK(1213,.11)="Run Task"
+^%ZTSK(1213,.2)=""
+^%ZTSK(1213,.21)=""
+^%ZTSK(1213,.25)=""
+^%ZTSK(1213,.3,"DUZ(",0)="@"
+^%ZTSK(1213,.3,"XQSCH")="8"
+^%ZTSK(1213,.3,"XQY")="9891"
+^%ZTSK(1214,0)="STARTIN^HLCSIN^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1214,.02)="VISTA^VISTA^^"
+^%ZTSK(1214,.03)="HL7 Incoming Filer"
+^%ZTSK(1214,.04)="5550395896"
+^%ZTSK(1214,.1)="D^64240,59960^Job asked to stop^3516^^^^^^1"
+^%ZTSK(1214,.2)=""
+^%ZTSK(1214,.21)=""
+^%ZTSK(1214,.25)=""
+^%ZTSK(1214,.3,"DUZ(",0)="@"
+^%ZTSK(1214,.3,"DUZ(",2)="0"
+^%ZTSK(1214,.3,"DUZ(","AG")="V"
+^%ZTSK(1214,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1214,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1214,.3,"XQY")="8412"
+^%ZTSK(1214,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1215,0)="STARTOUT^HLCSOUT^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1215,.02)="VISTA^VISTA^^"
+^%ZTSK(1215,.03)="HL7 Outgoing Filer"
+^%ZTSK(1215,.04)="5550395896"
+^%ZTSK(1215,.1)="D^64240,59961^Job asked to stop^1616^^^^^^1"
+^%ZTSK(1215,.2)=""
+^%ZTSK(1215,.21)=""
+^%ZTSK(1215,.25)=""
+^%ZTSK(1215,.3,"DUZ(",0)="@"
+^%ZTSK(1215,.3,"DUZ(",2)="0"
+^%ZTSK(1215,.3,"DUZ(","AG")="V"
+^%ZTSK(1215,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1215,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1215,.3,"XQY")="8412"
+^%ZTSK(1215,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1217,0)="^HLCSMM1^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1217,.02)="VISTA^VISTA^^"
+^%ZTSK(1217,.03)="YS GAF-SND Low Level Protocol"
+^%ZTSK(1217,.04)="5550395896"
+^%ZTSK(1217,.1)="5^64240,59903^Started Running^5180^^^^^^1"
+^%ZTSK(1217,.2)=""
+^%ZTSK(1217,.21)=""
+^%ZTSK(1217,.25)=""
+^%ZTSK(1217,.3,"DUZ(",0)="@"
+^%ZTSK(1217,.3,"DUZ(",2)="0"
+^%ZTSK(1217,.3,"DUZ(","AG")="V"
+^%ZTSK(1217,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1217,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1217,.3,"HLDP")="38"
+^%ZTSK(1217,.3,"XQY")="8412"
+^%ZTSK(1217,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1218,0)="^HLCSMM1^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1218,.02)="VISTA^VISTA^^"
+^%ZTSK(1218,.03)="RMIM LINK Low Level Protocol"
+^%ZTSK(1218,.04)="5550395896"
+^%ZTSK(1218,.1)="5^64240,59904^Started Running^7900^^^^^^1"
+^%ZTSK(1218,.2)=""
+^%ZTSK(1218,.21)=""
+^%ZTSK(1218,.25)=""
+^%ZTSK(1218,.3,"DUZ(",0)="@"
+^%ZTSK(1218,.3,"DUZ(",2)="0"
+^%ZTSK(1218,.3,"DUZ(","AG")="V"
+^%ZTSK(1218,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1218,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1218,.3,"HLDP")="58"
+^%ZTSK(1218,.3,"XQY")="8412"
+^%ZTSK(1218,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1219,0)="^HLCSMM1^.5^^64240,59896^64240,59896^R^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1219,.02)="VISTA^VISTA^^"
+^%ZTSK(1219,.03)="SPN Low Level Protocol"
+^%ZTSK(1219,.04)="5550395896"
+^%ZTSK(1219,.1)="5^64240,59905^Started Running^8240^^^^^^1"
+^%ZTSK(1219,.2)=""
+^%ZTSK(1219,.21)=""
+^%ZTSK(1219,.25)=""
+^%ZTSK(1219,.3,"DUZ(",0)="@"
+^%ZTSK(1219,.3,"DUZ(",2)="0"
+^%ZTSK(1219,.3,"DUZ(","AG")="V"
+^%ZTSK(1219,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1219,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1219,.3,"HLDP")="59"
+^%ZTSK(1219,.3,"XQY")="8412"
+^%ZTSK(1219,.3,"XQY0")="HL TASK RESTART^Restart/Start All Links and Filers^^R^1^^^^^^^33"
+^%ZTSK(1220,0)="STOP^XWBTCP(9210)^.5^VISTA^64240,59897^64240,59897^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1220,.02)="VISTA^VISTA^CACHE^"
+^%ZTSK(1220,.03)="RPC Broker Listener STOP on VISTA-VISTA:CACHE, port 9210"
+^%ZTSK(1220,.04)="5550395897"
+^%ZTSK(1220,.1)="6^64240,59907^Finished^7352^^^^^"
+^%ZTSK(1220,.2)=""
+^%ZTSK(1220,.21)=""
+^%ZTSK(1220,.25)=""
+^%ZTSK(1220,.3,"DUZ(",0)="@"
+^%ZTSK(1220,.3,"DUZ(",2)="0"
+^%ZTSK(1220,.3,"DUZ(","AG")="V"
+^%ZTSK(1220,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1220,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1220,.3,"XQY")="7901"
+^%ZTSK(1220,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
+^%ZTSK(1221,0)="^HLCSLSM^.5^^64240,59900^64240,59900^R^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(1221,.02)="VISTA^VISTA^^"
+^%ZTSK(1221,.03)="XUMF ACK Low Level Protocol"
+^%ZTSK(1221,.04)="5550395900"
+^%ZTSK(1221,.1)="5^64240,59907^Started Running^7352^^^^^^1"
+^%ZTSK(1221,.2)=""
+^%ZTSK(1221,.21)=""
+^%ZTSK(1221,.25)=""
+^%ZTSK(1221,.3,"DUZ(",0)="@"
+^%ZTSK(1221,.3,"DUZ(",2)="0"
+^%ZTSK(1221,.3,"DUZ(","AG")="V"
+^%ZTSK(1221,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1221,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1221,.3,"HLBGR")="^HLCSTCP"
+^%ZTSK(1221,.3,"HLDP")="3"
+^%ZTSK(1221,.3,"XQY")="8853"
+^%ZTSK(1221,.3,"XQY0")="HL AUTOSTART LINK MANAGER^Autostart Link Manager^^R^1^^^^^^^33^n"
+^%ZTSK(1222,0)="ZISTCP^XWBTCPM1(9210)^.5^VISTA^64240,59912^64240,59912^R^7901^XWB LISTENER STARTER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA:CACHE^"
+^%ZTSK(1222,.03)="RPC Broker Listener START on VISTA-VISTA:CACHE, port 9210"
+^%ZTSK(1222,.04)="5550395912"
+^%ZTSK(1222,.1)="1^64240,59912^^^^^^"
+^%ZTSK(1222,.2)="^^^^Q^"
+^%ZTSK(1222,.3,"DUZ(",0)="@"
+^%ZTSK(1222,.3,"DUZ(",2)="0"
+^%ZTSK(1222,.3,"DUZ(","AG")="V"
+^%ZTSK(1222,.3,"DUZ(","AUTO")="1"
+^%ZTSK(1222,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(1222,.3,"XQY")="7901"
+^%ZTSK(1222,.3,"XQY0")="XWB LISTENER STARTER^Start All RPC Broker Listeners^^R^1^^^^^^^70^y"
 ^%ZTSK(1090097,.1)="I^64104,44484^^5824"
 ^%ZTSK(1090155,.1)="I^64104,44486^^5824"
 ^%ZTSK(1090706,.1)="I^64104,44374^^5824"
diff --git a/Packages/Kernel/Globals/200+NEW PERSON.zwr b/Packages/Kernel/Globals/200+NEW PERSON.zwr
index 021f55b744e..431264edcd4 100644
--- a/Packages/Kernel/Globals/200+NEW PERSON.zwr	
+++ b/Packages/Kernel/Globals/200+NEW PERSON.zwr	
@@ -26,7 +26,7 @@ ZWR
 ^VA(200,1,0)="USER,ONE^DBA^^^^^1^^^^^^User Inactive for too long^^^1"
 ^VA(200,1,.1)="^^^^^^^^^^"
 ^VA(200,1,1)="^^^^1^^3160509^16"
-^VA(200,1,1.1)="3161118.161156^1^0^3160509"
+^VA(200,1,1.1)="3161118.163828^1^0^3160509"
 ^VA(200,1,1.2)="91"
 ^VA(200,1,2,0)="^200.02P^1^1"
 ^VA(200,1,2,1,0)="1"
@@ -284,7 +284,7 @@ ZWR
 ^VA(200,17,.1)="61472,60766^^^"
 ^VA(200,17,.15)=""
 ^VA(200,17,1)="^^^^1^^3160509^16"
-^VA(200,17,1.1)="3161118.161046^8^0^3090420^"
+^VA(200,17,1.1)="3161118.163714^8^0^3090420^"
 ^VA(200,17,1.2)="9"
 ^VA(200,17,2,0)="^200.02P^1214^1"
 ^VA(200,17,2,1214,0)="1214"
diff --git a/Packages/Kernel/Globals/3.5+DEVICE.zwr b/Packages/Kernel/Globals/3.5+DEVICE.zwr
index 91f215d3537..f3986b1e823 100644
--- a/Packages/Kernel/Globals/3.5+DEVICE.zwr
+++ b/Packages/Kernel/Globals/3.5+DEVICE.zwr
@@ -33,7 +33,7 @@ ZWR
 ^%ZIS(1,9,"TYPE")="TRM"
 ^%ZIS(1,10,0)="HFS^USER$:[TEMP]TMP.DAT^1^1^^^^^"
 ^%ZIS(1,10,1)="Host File Server^^^^1^1"
-^%ZIS(1,10,5)="837"
+^%ZIS(1,10,5)="838"
 ^%ZIS(1,10,"IOPAR")="""WNS"""
 ^%ZIS(1,10,"SUBTYPE")="16"
 ^%ZIS(1,10,"TYPE")="HFS"
@@ -107,7 +107,7 @@ ZWR
 ^%ZIS(1,21,"TYPE")="RES"
 ^%ZIS(1,22,0)="TELNET^|TNT|^1^1^^^^^^^1"
 ^%ZIS(1,22,1)="TELNET"
-^%ZIS(1,22,5)="8009"
+^%ZIS(1,22,5)="8215"
 ^%ZIS(1,22,"SUBTYPE")="9"
 ^%ZIS(1,22,"TYPE")="VTRM"
 ^%ZIS(1,23,0)="OR WORKSTATION^ORDEV.DAT^0^0^^^^^^^0"
diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
index bf7ddb0aeb5..225d08073db 100644
--- a/Packages/Kernel/Globals/9.4+PACKAGE.zwr
+++ b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
@@ -88372,7 +88372,7 @@ ZWR
 ^DIC(9.4,47,14,"B","VIC",5)=""
 ^DIC(9.4,47,22,0)="^9.49I^5.9^1"
 ^DIC(9.4,47,22,5.9,0)="5.3^3051119^2960613"
-^DIC(9.4,47,22,5.9,"PAH",0)="^9.4901^717^717"
+^DIC(9.4,47,22,5.9,"PAH",0)="^9.4901^718^718"
 ^DIC(9.4,47,22,5.9,"PAH",1,0)="77 SEQ #74^2960626^1"
 ^DIC(9.4,47,22,5.9,"PAH",1,1,0)="^^2^2^2960626"
 ^DIC(9.4,47,22,5.9,"PAH",1,1,1,0)="See National Patch module entry for DG*5.3*77 for detailed information on"
@@ -91975,6 +91975,11 @@ ZWR
 ^DIC(9.4,47,22,5.9,"PAH",717,1,2,0)="entering and maintenance of the Camp Lejeune Eligibility related data."
 ^DIC(9.4,47,22,5.9,"PAH",717,1,3,0)=" "
 ^DIC(9.4,47,22,5.9,"PAH",717,1,4,0)="Please refer to Forum for a complete description of the updates."
+^DIC(9.4,47,22,5.9,"PAH",718,0)="919^3161118.16372^17"
+^DIC(9.4,47,22,5.9,"PAH",718,1,0)="^^3^3^3161118"
+^DIC(9.4,47,22,5.9,"PAH",718,1,1,0)="MASTER VETERAN INDEX VISTA ENHANCEMENTS - ITERATION 15"
+^DIC(9.4,47,22,5.9,"PAH",718,1,2,0)="Refer to patch DG*5.3*919 in the FORUM Patch Module for a complete"
+^DIC(9.4,47,22,5.9,"PAH",718,1,3,0)="description."
 ^DIC(9.4,47,22,5.9,"PAH","B",84,12)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",94,18)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",113,36)=""
@@ -92106,6 +92111,7 @@ ZWR
 ^DIC(9.4,47,22,5.9,"PAH","B",906,714)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",909,717)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",910,696)=""
+^DIC(9.4,47,22,5.9,"PAH","B",919,718)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",922,715)=""
 ^DIC(9.4,47,22,5.9,"PAH","B","100 SEQ #95",19)=""
 ^DIC(9.4,47,22,5.9,"PAH","B","101 SEQ #100",24)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index 52a95ab265b..0638450d56b 100644
--- a/Packages/Kernel/Globals/9.6+BUILD.zwr
+++ b/Packages/Kernel/Globals/9.6+BUILD.zwr
@@ -1,6 +1,6 @@
 BUILD
 ZWR
-^XPD(9.6,0)="BUILD^9.6I^10169^9808"
+^XPD(9.6,0)="BUILD^9.6I^10170^9809"
 ^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"
@@ -1110289,6 +1110289,67 @@ ZWR
 ^XPD(9.6,10169,"REQB",0)="^9.611^1^1"
 ^XPD(9.6,10169,"REQB",1,0)="LR*5.2*444^2"
 ^XPD(9.6,10169,"REQB","B","LR*5.2*444",1)=""
+^XPD(9.6,10170,0)="DG*5.3*919^47^0^3160209^y"
+^XPD(9.6,10170,1,0)="^^3^3^3151214^"
+^XPD(9.6,10170,1,1,0)="MASTER VETERAN INDEX VISTA ENHANCEMENTS - ITERATION 15"
+^XPD(9.6,10170,1,2,0)="Refer to patch DG*5.3*919 in the FORUM Patch Module for a complete"
+^XPD(9.6,10170,1,3,0)="description."
+^XPD(9.6,10170,4,0)="^9.64PA^^"
+^XPD(9.6,10170,6)="^810"
+^XPD(9.6,10170,6.3)="4"
+^XPD(9.6,10170,"KRN",0)="^9.67PA^779.2^20"
+^XPD(9.6,10170,"KRN",.4,0)=".4"
+^XPD(9.6,10170,"KRN",.401,0)=".401"
+^XPD(9.6,10170,"KRN",.402,0)=".402"
+^XPD(9.6,10170,"KRN",.403,0)=".403"
+^XPD(9.6,10170,"KRN",.5,0)=".5"
+^XPD(9.6,10170,"KRN",.84,0)=".84"
+^XPD(9.6,10170,"KRN",3.6,0)="3.6"
+^XPD(9.6,10170,"KRN",3.8,0)="3.8"
+^XPD(9.6,10170,"KRN",9.2,0)="9.2"
+^XPD(9.6,10170,"KRN",9.8,0)="9.8"
+^XPD(9.6,10170,"KRN",9.8,"NM",0)="^9.68A^3^3"
+^XPD(9.6,10170,"KRN",9.8,"NM",1,0)="DPTLK^^0^B126157640"
+^XPD(9.6,10170,"KRN",9.8,"NM",2,0)="DPTLK4^^0^B4091702"
+^XPD(9.6,10170,"KRN",9.8,"NM",3,0)="DPTLK7^^0^B185524079"
+^XPD(9.6,10170,"KRN",9.8,"NM","B","DPTLK",1)=""
+^XPD(9.6,10170,"KRN",9.8,"NM","B","DPTLK4",2)=""
+^XPD(9.6,10170,"KRN",9.8,"NM","B","DPTLK7",3)=""
+^XPD(9.6,10170,"KRN",19,0)="19"
+^XPD(9.6,10170,"KRN",19.1,0)="19.1"
+^XPD(9.6,10170,"KRN",101,0)="101"
+^XPD(9.6,10170,"KRN",409.61,0)="409.61"
+^XPD(9.6,10170,"KRN",771,0)="771"
+^XPD(9.6,10170,"KRN",779.2,0)="779.2"
+^XPD(9.6,10170,"KRN",870,0)="870"
+^XPD(9.6,10170,"KRN",8989.51,0)="8989.51"
+^XPD(9.6,10170,"KRN",8989.52,0)="8989.52"
+^XPD(9.6,10170,"KRN",8994,0)="8994"
+^XPD(9.6,10170,"KRN","B",.4,.4)=""
+^XPD(9.6,10170,"KRN","B",.401,.401)=""
+^XPD(9.6,10170,"KRN","B",.402,.402)=""
+^XPD(9.6,10170,"KRN","B",.403,.403)=""
+^XPD(9.6,10170,"KRN","B",.5,.5)=""
+^XPD(9.6,10170,"KRN","B",.84,.84)=""
+^XPD(9.6,10170,"KRN","B",3.6,3.6)=""
+^XPD(9.6,10170,"KRN","B",3.8,3.8)=""
+^XPD(9.6,10170,"KRN","B",9.2,9.2)=""
+^XPD(9.6,10170,"KRN","B",9.8,9.8)=""
+^XPD(9.6,10170,"KRN","B",19,19)=""
+^XPD(9.6,10170,"KRN","B",19.1,19.1)=""
+^XPD(9.6,10170,"KRN","B",101,101)=""
+^XPD(9.6,10170,"KRN","B",409.61,409.61)=""
+^XPD(9.6,10170,"KRN","B",771,771)=""
+^XPD(9.6,10170,"KRN","B",779.2,779.2)=""
+^XPD(9.6,10170,"KRN","B",870,870)=""
+^XPD(9.6,10170,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,10170,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,10170,"KRN","B",8994,8994)=""
+^XPD(9.6,10170,"QDEF")="^^^^^^^^^^YES"
+^XPD(9.6,10170,"QUES",0)="^9.62^^"
+^XPD(9.6,10170,"REQB",0)="^9.611^1^1"
+^XPD(9.6,10170,"REQB",1,0)="DG*5.3*915^2"
+^XPD(9.6,10170,"REQB","B","DG*5.3*915",1)=""
 ^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)=""
@@ -1111324,6 +1111385,7 @@ ZWR
 ^XPD(9.6,"B","DG*5.3*910",9790)=""
 ^XPD(9.6,"B","DG*5.3*911",10103)=""
 ^XPD(9.6,"B","DG*5.3*915",10030)=""
+^XPD(9.6,"B","DG*5.3*919",10170)=""
 ^XPD(9.6,"B","DG*5.3*92",30)=""
 ^XPD(9.6,"B","DG*5.3*922",10050)=""
 ^XPD(9.6,"B","DG*5.3*93",80)=""
@@ -1123056,6 +1123118,7 @@ ZWR
 ^XPD(9.6,"C",47,10050)=""
 ^XPD(9.6,"C",47,10103)=""
 ^XPD(9.6,"C",47,10139)=""
+^XPD(9.6,"C",47,10170)=""
 ^XPD(9.6,"C",48,33)=""
 ^XPD(9.6,"C",48,35)=""
 ^XPD(9.6,"C",48,54)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index 1df917649ef..b3e141c82fc 100644
--- a/Packages/Kernel/Globals/9.7+INSTALL.zwr
+++ b/Packages/Kernel/Globals/9.7+INSTALL.zwr
@@ -1,6 +1,6 @@
 INSTALL
 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^9874^9731"
+^XPD(9.7,0)="INSTALL^9.7I^9875^9732"
 ^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"
@@ -721829,6 +721829,54 @@ ZWR
 ^XPD(9.7,9874,"RTN",0)="^9.704A^1^1"
 ^XPD(9.7,9874,"RTN",1,0)="LRWLST"
 ^XPD(9.7,9874,"RTN","B","LRWLST",1)=""
+^XPD(9.7,9875,0)="DG*5.3*919^47^3161118.163715^9875^1^^0^0DG*5.3*919^3^0^17"
+^XPD(9.7,9875,1)="3161118.16372^3161118.16372^3161118.16372^3160209"
+^XPD(9.7,9875,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,9875,6)="^810"
+^XPD(9.7,9875,"INI",0)="^9.713^1^1"
+^XPD(9.7,9875,"INI",1,0)="XPD PREINSTALL COMPLETED^3161118.16372"
+^XPD(9.7,9875,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,9875,"INIT",0)="^9.716^1^1"
+^XPD(9.7,9875,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3161118.16372"
+^XPD(9.7,9875,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,9875,"MES",0)="^^19^19^3161118"
+^XPD(9.7,9875,"MES",1,0)=" "
+^XPD(9.7,9875,"MES",2,0)=" Install Started for DG*5.3*919 : "
+^XPD(9.7,9875,"MES",3,0)="               Nov 18, 2016@16:37:20"
+^XPD(9.7,9875,"MES",4,0)=" "
+^XPD(9.7,9875,"MES",5,0)="Build Distribution Date: Feb 09, 2016"
+^XPD(9.7,9875,"MES",6,0)=" "
+^XPD(9.7,9875,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,9875,"MES",8,0)="               Nov 18, 2016@16:37:20"
+^XPD(9.7,9875,"MES",9,0)=" "
+^XPD(9.7,9875,"MES",10,0)=" Updating Routine file..."
+^XPD(9.7,9875,"MES",11,0)=" "
+^XPD(9.7,9875,"MES",12,0)=" Updating KIDS files..."
+^XPD(9.7,9875,"MES",13,0)=" "
+^XPD(9.7,9875,"MES",14,0)=" DG*5.3*919 Installed. "
+^XPD(9.7,9875,"MES",15,0)="               Nov 18, 2016@16:37:20"
+^XPD(9.7,9875,"MES",16,0)=" "
+^XPD(9.7,9875,"MES",17,0)=" Not a VA primary domain"
+^XPD(9.7,9875,"MES",18,0)=" "
+^XPD(9.7,9875,"MES",19,0)=" NO Install Message sent "
+^XPD(9.7,9875,"QUES",0)="^9.701^2^2"
+^XPD(9.7,9875,"QUES",1,0)="XPI1"
+^XPD(9.7,9875,"QUES",1,1)="0"
+^XPD(9.7,9875,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,9875,"QUES",1,"B")="NO"
+^XPD(9.7,9875,"QUES",2,0)="XPZ1"
+^XPD(9.7,9875,"QUES",2,1)="0"
+^XPD(9.7,9875,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,9875,"QUES",2,"B")="NO"
+^XPD(9.7,9875,"QUES","B","XPI1",1)=""
+^XPD(9.7,9875,"QUES","B","XPZ1",2)=""
+^XPD(9.7,9875,"RTN",0)="^9.704A^3^3"
+^XPD(9.7,9875,"RTN",1,0)="DPTLK"
+^XPD(9.7,9875,"RTN",2,0)="DPTLK4"
+^XPD(9.7,9875,"RTN",3,0)="DPTLK7"
+^XPD(9.7,9875,"RTN","B","DPTLK",1)=""
+^XPD(9.7,9875,"RTN","B","DPTLK4",2)=""
+^XPD(9.7,9875,"RTN","B","DPTLK7",3)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -731560,6 +731608,7 @@ ZWR
 ^XPD(9.7,"ASP",9868,5,9872)=""
 ^XPD(9.7,"ASP",9873,1,9873)=""
 ^XPD(9.7,"ASP",9874,1,9874)=""
+^XPD(9.7,"ASP",9875,1,9875)=""
 ^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)=""
@@ -732491,6 +732540,7 @@ ZWR
 ^XPD(9.7,"B","DG*5.3*910",9499)=""
 ^XPD(9.7,"B","DG*5.3*911",9809)=""
 ^XPD(9.7,"B","DG*5.3*915",9735)=""
+^XPD(9.7,"B","DG*5.3*919",9875)=""
 ^XPD(9.7,"B","DG*5.3*92",36)=""
 ^XPD(9.7,"B","DG*5.3*922",9755)=""
 ^XPD(9.7,"B","DG*5.3*93",85)=""
diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
index 76d0e8d8558..b4ee58c650c 100644
--- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr
+++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
@@ -4200,7 +4200,7 @@ ZWR
 ^DIC(9.8,966,8,1,0)="COMPARE REGISTRATION V 5.3^16494945/23171183"
 ^DIC(9.8,966,8,"B","COMPARE REGISTRATION V 5.3",1)=""
 ^DIC(9.8,967,0)="DPTLK^R"
-^DIC(9.8,967,4.1)="3160105.115737"
+^DIC(9.8,967,4.1)="3161118.16372"
 ^DIC(9.8,967,8,0)="^9.818^1^1"
 ^DIC(9.8,967,8,1,0)="COMPARE REGISTRATION V 5.3^18428193/65590603"
 ^DIC(9.8,967,8,"B","COMPARE REGISTRATION V 5.3",1)=""
@@ -15102,7 +15102,7 @@ ZWR
 ^DIC(9.8,3777,8,1,0)="COMPARE REGISTRATION V 5.3^5873144/6512112"
 ^DIC(9.8,3777,8,"B","COMPARE REGISTRATION V 5.3",1)=""
 ^DIC(9.8,3778,0)="DPTLK4^R"
-^DIC(9.8,3778,4.1)="3160105.115737"
+^DIC(9.8,3778,4.1)="3161118.16372"
 ^DIC(9.8,3778,8,0)="^9.818^1^1"
 ^DIC(9.8,3778,8,1,0)="COMPARE REGISTRATION V 5.3^1195060/1670609"
 ^DIC(9.8,3778,8,"B","COMPARE REGISTRATION V 5.3",1)=""
@@ -111668,7 +111668,7 @@ ZWR
 ^DIC(9.8,33920,0)="RORUTL20^R"
 ^DIC(9.8,33920,4.1)="3151211.144304"
 ^DIC(9.8,33925,0)="DPTLK7^R"
-^DIC(9.8,33925,4.1)="3160105.115737"
+^DIC(9.8,33925,4.1)="3161118.16372"
 ^DIC(9.8,33926,0)="EAS1111P^R"
 ^DIC(9.8,33926,4.1)="3160105.120853"
 ^DIC(9.8,33927,0)="EASPREC6^R"
diff --git a/Packages/Registration/Routines/DPTLK.m b/Packages/Registration/Routines/DPTLK.m
index ae7011264ae..58a98563f67 100644
--- a/Packages/Registration/Routines/DPTLK.m
+++ b/Packages/Registration/Routines/DPTLK.m
@@ -1,5 +1,5 @@
 DPTLK ;ALB/RMO,RTK - MAS Patient Look-up Main Routine ; 3/22/05 4:19pm
- ;;5.3;Registration;**32,72,93,73,136,157,197,232,265,277,223,327,244,513,528,541,576,600,485,633,629,647,769,857,876,915**;Aug 13, 1993;Build 6
+ ;;5.3;Registration;**32,72,93,73,136,157,197,232,265,277,223,327,244,513,528,541,576,600,485,633,629,647,769,857,876,915,919**;Aug 13, 1993;Build 4
  ;
  ; mods made for magstripe read 12/96 - JFP
  ; mods made for VIC 4.0 (barcode and magstripe) read 4/2012 - ELZ (*857)
@@ -78,7 +78,7 @@ S DIC("W")=$S($D(DIC("W")):DIC("W"),1:"")
  .S DPTDFN=$S($D(DPTS(Y)):Y,1:-1)
  ; -- Check for index lookups
  I '$G(DGVIC40)!(DPTX?9N) D ^DPTLK1  D  G QK:$D(DTOUT)!($D(DUOUT)&(DIC(0)'["A")),ASKPAT:$D(DUOUT),CHKPAT:DPTDFN<0,CHKDFN:DPTDFN>0 I DIC(0)["N",$D(^DPT(DPTX,0)) S Y=X D SETDPT^DPTLK1 S DPTDFN=$S($D(DPTS(Y)):Y,1:-1) G CHKDFN
- . I DPTDFN<1,$P($G(XQY0),"^",2)="Register a Patient",$T(PATIENT^MPIFXMLP)'="" D
+ . I DPTDFN<1,$P($G(XQY0),"^",2)="Register a Patient",$T(PATIENT^MPIFXMLP)'="",'MAG D
  .. S DPTDFN=$$SEARCH^DPTLK7(DPTX,$G(DPTXX))
  .. I DPTDFN<1 K DO,D,DIC("W"),DPTCNT,DPTS,DPTSEL,DPTSZ S DPTDFN=-1,Y=-1,(DPTX,DPTXX)=""
  .. S DPTSZ=1000 I $D(^DD("OS"))#2 S DPTSZ=$S(+$P(^DD("OS",^("OS"),0),U,2):$P(^(0),U,2),1:DPTSZ)
@@ -194,7 +194,12 @@ I DIC(0)["E",$$VAADV^DPTLK3(+Y) W *7,!,"** Patient is VA ADVANTAGE."
  ; -- checks for no data
  I IATA="" Q "Q"
  ; -- checks for new card, look-up DFN
- I $E(X,1,29)?1"%"9NP1"^"17UNP1"?" S IATA=$$CARD(+$P($P(X,"%",2),"^"))
+ I $E(X,1,29)?1"%"9NP1"^"17UNP1"?" D
+ . N CARD
+ . S CARD=+$P($P(X,"%",2),"^")
+ . ; **919, Story 220135 (elz) log the card activity
+ . D CARDLOG^MPIFAPI(CARD,"VHIC","SWIPE")
+ . S IATA=$$CARD(CARD)
  ; -- Returns SSN or `DFN value
  I IATA'="" Q $P(IATA,"^")
  Q "Q"
@@ -231,6 +236,8 @@ I DIC(0)["E",$$VAADV^DPTLK3(+Y) W *7,!,"** Patient is VA ADVANTAGE."
  ;
  N CARD
  S CARD=$$B32TO10($E(X,10,15)) I 'CARD Q "Q"
+ ; **919, Story 220135 (elz) log the card activity
+ D CARDLOG^MPIFAPI(CARD,"VHIC","SCAN")
  Q $$CARD(CARD)
  ;
 CACCARD(X) ;
@@ -252,6 +259,8 @@ I DIC(0)["E",$$VAADV^DPTLK3(+Y) W *7,!,"** Patient is VA ADVANTAGE."
  ;
 EDIPI(EDIPI) ; - returns `DFN from EDIPI number
  N DFN,VICFAC
+ ; **919, Story 220135 (elz) log the card activity
+ D CARDLOG^MPIFAPI(EDIPI,"CAC","SCAN")
  S VICFAC=+$$LKUP^XUAF4("200DOD") ; national DOD station number
  S DFN=+$G(^DGCN(391.91,+$O(^DGCN(391.91,"ASID",EDIPI,VICFAC,0)),0))
  S DGVIC40=EDIPI ; saving EDIPI number here so I don't have to look later
diff --git a/Packages/Registration/Routines/DPTLK4.m b/Packages/Registration/Routines/DPTLK4.m
index 90ebc30a7ca..fe3f5cbbb12 100644
--- a/Packages/Registration/Routines/DPTLK4.m
+++ b/Packages/Registration/Routines/DPTLK4.m
@@ -1,5 +1,5 @@
 DPTLK4 ;ALB/JFP - MAS Patient Look-up Create stub entry patient file ; 09/01/96
- ;;5.3;Registration;**73,857,915**;Aug 13, 1993;Build 6
+ ;;5.3;Registration;**73,857,915,919**;Aug 13, 1993;Build 4
 FILE(FLDARR,DGVIC40) ; -- Creates stub in patient file
  ;Inputs:
  ;   FLDARR   - array of field elements to file
@@ -33,11 +33,17 @@
  ;
  ; -- set date entered into file (missing from prior vic versions)
  S DIC("DR")=DIC("DR")_";.097////"_DT
+ ; -- set who entered (missing from prior vic versions)
+ S:$G(DUZ) DIC("DR")=DIC("DR")_";.096////"_DUZ
  ;
  K DD,DO D FILE^DICN S SAVY=Y
  K DIC,DLAYGO,X
  ;
  ; need to update mpi with icn/correlation
  I Y>0,$G(@FLDARR@(991.01)),$G(@FLDARR@(991.02)),$T(VIC40^MPIFAPI)'="" D VIC40^MPIFAPI(+Y,@FLDARR@(991.01)_"V"_@FLDARR@(991.02))
+ ;
+ ; -- send bulletin for newly added patient
+ I SAVY>0 D BULL^DPTLK7(+SAVY)
+ ;
  Q SAVY
  ;
diff --git a/Packages/Registration/Routines/DPTLK7.m b/Packages/Registration/Routines/DPTLK7.m
index 5f1043b8812..7ca29483e7c 100644
--- a/Packages/Registration/Routines/DPTLK7.m
+++ b/Packages/Registration/Routines/DPTLK7.m
@@ -1,5 +1,5 @@
 DPTLK7 ;OAK/ELZ - MAS PATIENT LOOKUP ENTERPRISE SEARCH ; 8/24/15 2:38pm
- ;;5.3;Registration;**915**;Aug 13, 1993;Build 6
+ ;;5.3;Registration;**915,919**;Aug 13, 1993;Build 4
  ;
 SEARCH(DGX,DGXOLD) ; do a search, pass in what the user entered
  ; DGX is what the user originally entered, name is assumed unless it
@@ -36,10 +36,7 @@ D FLDS(.DGFLDS,DG20NAME,.DGOUT) Q:DGOUT 0
  ; call MPI to get data
  W !!,"Searching the MVI..."
  D FORMAT(.DGMPI,.DG20NAME,.DGFLDS)
- ; OSEHRA Change by J. Snyder <http://issues.osehra.org/browse/OAT-189>
- ; Commented out the following line(s)
- ; D PATIENT^MPIFXMLP(.DGMPIR,.DGMPI)
- ; end OSEHRA Change
+ D PATIENT^MPIFXMLP(.DGMPIR,.DGMPI)
  S DGMCID=$G(DGMPIR("mcid"))
  ;
  ; too many matches found, they need to get the numbers down, re-prompt
@@ -58,10 +55,7 @@ D FORMAT(.DGMPI,.DG20NAME,.DGFLDS)
  . S DGMPIR(+$O(DGMPIR(0)),"DFN")=DGDFN
  . ;
  . S DGMPIR("mcid")=DGMCID
- . ; OSEHRA Change by J. Snyder <http://issues.osehra.org/browse/OAT-189>
- . ; Commented out the following line(s)
- . ; D MPIADD(.DGMPIR)
- . ; end OSEHRA Change
+ . D MPIADD(.DGMPIR)
  ;
  ; do I have some records that are in autolink threshold? - key required
  S X=0 F  S X=$O(DGMPIR(X)) Q:'X  I $G(DGMPIR(X,"Score"))'<$G(DGMPIR("matchThreshold")) S DGKEYREQ=1
@@ -79,10 +73,7 @@ D FORMAT(.DGMPI,.DG20NAME,.DGFLDS)
  . S DGMPIR(+$O(DGMPIR(0)),"DFN")=DGDFN
  . ;
  . S DGMPIR("mcid")=DGMCID
- . ; OSEHRA Change by J. Snyder <http://issues.osehra.org/browse/OAT-189>
- . ; Commented out the following line(s)
- . ; D MPIADD(.DGMPIR)
- . ; end OSEHRA Change
+ . D MPIADD(.DGMPIR)
  . W !
  . ;
  . ; if known to ESR, send Z11 and monitor for return data
@@ -117,10 +108,7 @@ D FORMAT(.DGMPI,.DG20NAME,.DGFLDS)
  . S DGMPIR(+$O(DGMPIR(0)),"DFN")=DGDFN
  . S DGMPIR("AddType")=$S(DGKEYREQ:"Explicit",1:"Implicit")
  . S DGMPIR("mcid")=DGMCID
- . ; OSEHRA Change by J. Snyder <http://issues.osehra.org/browse/OAT-189>
- . ; Commented out the following line(s)
- . ;D MPIADD(.DGMPIR)
- . ; end OSEHRA Change
+ . D MPIADD(.DGMPIR)
  ;
 QUIT Q $S(DGDFN:DGDFN,1:0)
  ;
@@ -354,7 +342,7 @@ S DGF(.093)=DGY
  ;
  S DIC("DR")="",REQ="^.02^.03^.09^"
  S DGF=.01 F  S DGF=$O(DGF(DGF)) Q:'DGF  D
- . ; if the data has a second piece, then that's interal value to use
+ . ; if the data has a second piece, then that's internal value to use
  . S DATA=$S($P(DGF(DGF),"^",2):$P(DGF(DGF),"^",2),1:DGF(DGF))
  . I DATA]""!(REQ[("^"_DGF_"^")) S DIC("DR")=DIC("DR")_DGF_$S(DATA]"":"////"_DATA,1:"")_";"
  ; patient type
@@ -365,6 +353,8 @@ S DIC("DR")="",REQ="^.02^.03^.09^"
  S DIC("DR")=DIC("DR")_".301///N;"
  ; date added
  S DIC("DR")=DIC("DR")_".097////"_DT
+ ; who added
+ S:$G(DUZ) DIC("DR")=DIC("DR")_";.096////"_DUZ
  ;
  S X=DGF(.01),DIC="^DPT(",DIC(0)="L",DLAYGO=2,VAFCNO=1
  D FILE^DICN
@@ -380,6 +370,9 @@ S DIC("DR")=DIC("DR")_".097////"_DT
  . N DG20NAME
  . D UPDATE^DIE("","FDA")
  ;
+ ; send bulletin new patient added to system
+ I SAVY>0 D BULL(SAVY)
+ ;
  Q SAVY
  ;
 ADDREQ(DGFLDS) ; - determine if enough address data entered
@@ -402,3 +395,16 @@ S DIC("DR")=DIC("DR")_".097////"_DT
  S L2=Z,Z=L3 D CON^DGRPDD1 S L3=Z
  Q L2_L1_L3_$E(DOB,4,7)_$E(DOB,2,3)_"P"
  ;
+BULL(SAVY) ; - send bulletin that new patient added
+ N DGTEXT,DGNAM,DGSSN,DGDOB,DGB,DGZ
+ S DGB=2
+ S DGZ=$G(^DPT(SAVY,0))
+ S DGNAM=$P(DGZ,"^"),DGSSN=$P(DGZ,"^",9),DGDOB=$P(DGZ,"^",3)
+ S DGSSN=$E(DGSSN,1,3)_"-"_$E(DGSSN,4,5)_"-"_$E(DGSSN,6,10)
+ S DGDOB=$$FMTE^XLFDT(DGDOB)
+ S XMSUB="NEW PATIENT ADDED TO SYSTEM"
+ S DGTEXT(1,0)="NAME:  "_DGNAM
+ S DGTEXT(2,0)="SSN :  "_DGSSN
+ S DGTEXT(3,0)="DOB :  "_DGDOB
+ D ^DGBUL
+ Q