diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index bd1e87e9450..cd34e11a9fd 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 04:43:02 ZWR
-^%ZTSK(-1)=4315
+15-MAR-2019 05:29:27 ZWR
+^%ZTSK(-1)=4319
 ^%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^^"
@@ -39189,6 +39189,47 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4315,.3,"DUZ(",0)="@"
 ^%ZTSK(4315,.3,"XQSCH")=8
 ^%ZTSK(4315,.3,"XQY")=9891
+^%ZTSK(4316,0)="HOUR^XUTMHR^.5^^65087,19496^65087,19496^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(4316,.02)="^VISTA^^"
+^%ZTSK(4316,.03)="Taskman Hourly Job"
+^%ZTSK(4316,.04)=5623536296
+^%ZTSK(4316,.1)="B^65087,19556^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4316,.2)=""
+^%ZTSK(4316,.21)=""
+^%ZTSK(4316,.25)=""
+^%ZTSK(4317,0)="ZTSK^XQ1^.5^VISTA^65087,19556^65087,19556^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4317,.02)="^VISTA^^"
+^%ZTSK(4317,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4317,.04)=5623536356
+^%ZTSK(4317,.1)="B^65087,19558^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4317,.2)=""
+^%ZTSK(4317,.21)=""
+^%ZTSK(4317,.25)=""
+^%ZTSK(4317,.3,"DUZ(",0)="@"
+^%ZTSK(4317,.3,"XQSCH")=10
+^%ZTSK(4317,.3,"XQY")=8853
+^%ZTSK(4318,0)="ZTSK^XQ1^.5^VISTA^65087,19556^65087,19556^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4318,.02)="^VISTA^^"
+^%ZTSK(4318,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4318,.04)=5623536356
+^%ZTSK(4318,.1)="B^65087,19560^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4318,.2)=""
+^%ZTSK(4318,.21)=""
+^%ZTSK(4318,.25)=""
+^%ZTSK(4318,.3,"DUZ(",0)="@"
+^%ZTSK(4318,.3,"XQSCH")=11
+^%ZTSK(4318,.3,"XQY")=8412
+^%ZTSK(4319,0)="ZTSK^XQ1^.5^VISTA^65087,19556^65087,19556^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4319,.02)="^VISTA^^"
+^%ZTSK(4319,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4319,.04)=5623536356
+^%ZTSK(4319,.1)="B^65087,19563^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4319,.2)=""
+^%ZTSK(4319,.21)=""
+^%ZTSK(4319,.25)=""
+^%ZTSK(4319,.3,"DUZ(",0)="@"
+^%ZTSK(4319,.3,"XQSCH")=8
+^%ZTSK(4319,.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 e797e73ba1b..bb76ef2dd42 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 04:43:08 ZWR
+15-MAR-2019 05:29:30 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -94832,7 +94832,7 @@ OSEHRA ZGO Export: PACKAGE
 ^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^758^758"
+^DIC(9.4,47,22,5.9,"PAH",0)="^9.4901^759^759"
 ^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"
@@ -98720,6 +98720,10 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,47,22,5.9,"PAH",758,1,2,0)="Test[PXRM REMINDER TEST] option in the Reminder Managers Menu[PXRM "
 ^DIC(9.4,47,22,5.9,"PAH",758,1,3,0)="MANAGERS MENU] when the end date of the PRF Assignment date is the same "
 ^DIC(9.4,47,22,5.9,"PAH",758,1,4,0)="as the end date for the report. "
+^DIC(9.4,47,22,5.9,"PAH",759,0)="966^3190315.052606^17"
+^DIC(9.4,47,22,5.9,"PAH",759,1,0)="^^2^2^3190315"
+^DIC(9.4,47,22,5.9,"PAH",759,1,1,0)="Please see the DG*5.3*966 patch description for detailed information "
+^DIC(9.4,47,22,5.9,"PAH",759,1,2,0)="regarding this patch."
 ^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)=""
@@ -98890,6 +98894,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,47,22,5.9,"PAH","B",961,750)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",963,748)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",965,752)=""
+^DIC(9.4,47,22,5.9,"PAH","B",966,759)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",967,753)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",970,756)=""
 ^DIC(9.4,47,22,5.9,"PAH","B",971,758)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index 211fdbf477d..f609b859acb 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 04:45:14 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11122^10762"
+15-MAR-2019 05:31:45 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11123^10763"
 ^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"
@@ -1204349,6 +1204349,82 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11122,"REQB",0)="^9.611^1^1"
 ^XPD(9.6,11122,"REQB",1,0)="DG*5.3*836^1"
 ^XPD(9.6,11122,"REQB","B","DG*5.3*836",1)=""
+^XPD(9.6,11123,0)="DG*5.3*966^47^0^3181002^y"
+^XPD(9.6,11123,1,0)="^^2^2^3181002^^^^"
+^XPD(9.6,11123,1,1,0)="Please see the DG*5.3*966 patch description for detailed information "
+^XPD(9.6,11123,1,2,0)="regarding this patch."
+^XPD(9.6,11123,4,0)="^9.64PA^26^2"
+^XPD(9.6,11123,4,2,0)=2
+^XPD(9.6,11123,4,2,2,0)="^9.641^2.3216^1"
+^XPD(9.6,11123,4,2,2,2.3216,0)="MILITARY SERVICE EPISODE  (sub-file)"
+^XPD(9.6,11123,4,2,2,2.3216,1,0)="^9.6411^.1^1"
+^XPD(9.6,11123,4,2,2,2.3216,1,.1,0)="SEPARATION REASON CODE"
+^XPD(9.6,11123,4,2,222)="y^n^p^^^^n^^n"
+^XPD(9.6,11123,4,2,224)=""
+^XPD(9.6,11123,4,26,0)=26
+^XPD(9.6,11123,4,26,222)="y^n^f^^n^^y^o^n"
+^XPD(9.6,11123,4,"APDD",2,2.3216)=""
+^XPD(9.6,11123,4,"APDD",2,2.3216,.1)=""
+^XPD(9.6,11123,4,"B",2,2)=""
+^XPD(9.6,11123,4,"B",26,26)=""
+^XPD(9.6,11123,6)="^853"
+^XPD(9.6,11123,6.3)=8
+^XPD(9.6,11123,"ABPKG")="n"
+^XPD(9.6,11123,"INIT")=""
+^XPD(9.6,11123,"KRN",0)="^9.67PA^779.2^20"
+^XPD(9.6,11123,"KRN",.4,0)=.4
+^XPD(9.6,11123,"KRN",.401,0)=.401
+^XPD(9.6,11123,"KRN",.401,"NM",0)="^9.68A^^"
+^XPD(9.6,11123,"KRN",.402,0)=.402
+^XPD(9.6,11123,"KRN",.403,0)=.403
+^XPD(9.6,11123,"KRN",.5,0)=.5
+^XPD(9.6,11123,"KRN",.84,0)=.84
+^XPD(9.6,11123,"KRN",3.6,0)=3.6
+^XPD(9.6,11123,"KRN",3.8,0)=3.8
+^XPD(9.6,11123,"KRN",9.2,0)=9.2
+^XPD(9.6,11123,"KRN",9.8,0)=9.8
+^XPD(9.6,11123,"KRN",9.8,"NM",0)="^9.68A^3^3"
+^XPD(9.6,11123,"KRN",9.8,"NM",1,0)="DGENUPL3^^0^B98793535"
+^XPD(9.6,11123,"KRN",9.8,"NM",2,0)="DGMSEUTL^^0^B23603501"
+^XPD(9.6,11123,"KRN",9.8,"NM",3,0)="DGRP61^^0^B66671182"
+^XPD(9.6,11123,"KRN",9.8,"NM","B","DGENUPL3",1)=""
+^XPD(9.6,11123,"KRN",9.8,"NM","B","DGMSEUTL",2)=""
+^XPD(9.6,11123,"KRN",9.8,"NM","B","DGRP61",3)=""
+^XPD(9.6,11123,"KRN",19,0)=19
+^XPD(9.6,11123,"KRN",19.1,0)=19.1
+^XPD(9.6,11123,"KRN",101,0)=101
+^XPD(9.6,11123,"KRN",409.61,0)=409.61
+^XPD(9.6,11123,"KRN",771,0)=771
+^XPD(9.6,11123,"KRN",779.2,0)=779.2
+^XPD(9.6,11123,"KRN",870,0)=870
+^XPD(9.6,11123,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11123,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11123,"KRN",8994,0)=8994
+^XPD(9.6,11123,"KRN","B",.4,.4)=""
+^XPD(9.6,11123,"KRN","B",.401,.401)=""
+^XPD(9.6,11123,"KRN","B",.402,.402)=""
+^XPD(9.6,11123,"KRN","B",.403,.403)=""
+^XPD(9.6,11123,"KRN","B",.5,.5)=""
+^XPD(9.6,11123,"KRN","B",.84,.84)=""
+^XPD(9.6,11123,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11123,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11123,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11123,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11123,"KRN","B",19,19)=""
+^XPD(9.6,11123,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11123,"KRN","B",101,101)=""
+^XPD(9.6,11123,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11123,"KRN","B",771,771)=""
+^XPD(9.6,11123,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11123,"KRN","B",870,870)=""
+^XPD(9.6,11123,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11123,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11123,"KRN","B",8994,8994)=""
+^XPD(9.6,11123,"QDEF")="^^^^NO^^^^NO^^YES"
+^XPD(9.6,11123,"QUES",0)="^9.62^^"
+^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,"B","A4A7*1.01*10",1312)=""
 ^XPD(9.6,"B","A4A7*1.01*11",1900)=""
 ^XPD(9.6,"B","A4A7*1.01*9",339)=""
@@ -1205438,6 +1205514,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","DG*5.3*961",10990)=""
 ^XPD(9.6,"B","DG*5.3*963",10988)=""
 ^XPD(9.6,"B","DG*5.3*965",11025)=""
+^XPD(9.6,"B","DG*5.3*966",11123)=""
 ^XPD(9.6,"B","DG*5.3*967",11026)=""
 ^XPD(9.6,"B","DG*5.3*97",64)=""
 ^XPD(9.6,"B","DG*5.3*970",11102)=""
@@ -1218281,6 +1218358,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",47,11102)=""
 ^XPD(9.6,"C",47,11103)=""
 ^XPD(9.6,"C",47,11122)=""
+^XPD(9.6,"C",47,11123)=""
 ^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 23b3fc2347b..96773c3388d 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 04:45:33 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^10841^10699"
+15-MAR-2019 05:32:08 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^10842^10700"
 ^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"
@@ -833876,6 +833876,65 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,10841,"RTN",0)="^9.704A^1^1"
 ^XPD(9.7,10841,"RTN",1,0)="DGPFAPIU"
 ^XPD(9.7,10841,"RTN","B","DGPFAPIU",1)=""
+^XPD(9.7,10842,0)="DG*5.3*966^47^3190315.0526^10842^1^^0^0DG*5.3*966^3^0^17"
+^XPD(9.7,10842,1)="3190315.052606^3190315.052606^3190315.052606^3181002"
+^XPD(9.7,10842,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,10842,4,0)="^9.714P^26^2"
+^XPD(9.7,10842,4,2,0)="2^3190315.052606"
+^XPD(9.7,10842,4,26,0)="26^3190315.052606^3190315.052606"
+^XPD(9.7,10842,4,"B",2,2)=""
+^XPD(9.7,10842,4,"B",26,26)=""
+^XPD(9.7,10842,6)="^853"
+^XPD(9.7,10842,"INI",0)="^9.713^1^1"
+^XPD(9.7,10842,"INI",1,0)="XPD PREINSTALL COMPLETED^3190315.052606"
+^XPD(9.7,10842,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,10842,"INIT",0)="^9.716^1^1"
+^XPD(9.7,10842,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190315.052606"
+^XPD(9.7,10842,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,10842,"MES",0)="^^25^25^3190315"
+^XPD(9.7,10842,"MES",1,0)=" "
+^XPD(9.7,10842,"MES",2,0)=" Install Started for DG*5.3*966 : "
+^XPD(9.7,10842,"MES",3,0)="               Mar 15, 2019@05:26:06"
+^XPD(9.7,10842,"MES",4,0)=" "
+^XPD(9.7,10842,"MES",5,0)="Build Distribution Date: Oct 02, 2018"
+^XPD(9.7,10842,"MES",6,0)=" "
+^XPD(9.7,10842,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,10842,"MES",8,0)="               Mar 15, 2019@05:26:06"
+^XPD(9.7,10842,"MES",9,0)=" "
+^XPD(9.7,10842,"MES",10,0)=" Installing Data Dictionaries: "
+^XPD(9.7,10842,"MES",11,0)="               Mar 15, 2019@05:26:06"
+^XPD(9.7,10842,"MES",12,0)=" "
+^XPD(9.7,10842,"MES",13,0)=" Installing Data: "
+^XPD(9.7,10842,"MES",14,0)="               Mar 15, 2019@05:26:06"
+^XPD(9.7,10842,"MES",15,0)=" "
+^XPD(9.7,10842,"MES",16,0)=" Updating Routine file..."
+^XPD(9.7,10842,"MES",17,0)=" "
+^XPD(9.7,10842,"MES",18,0)=" Updating KIDS files..."
+^XPD(9.7,10842,"MES",19,0)=" "
+^XPD(9.7,10842,"MES",20,0)=" DG*5.3*966 Installed. "
+^XPD(9.7,10842,"MES",21,0)="               Mar 15, 2019@05:26:06"
+^XPD(9.7,10842,"MES",22,0)=" "
+^XPD(9.7,10842,"MES",23,0)=" Not a production UCI"
+^XPD(9.7,10842,"MES",24,0)=" "
+^XPD(9.7,10842,"MES",25,0)=" NO Install Message sent "
+^XPD(9.7,10842,"QUES",0)="^9.701^2^2"
+^XPD(9.7,10842,"QUES",1,0)="XPI1"
+^XPD(9.7,10842,"QUES",1,1)=0
+^XPD(9.7,10842,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,10842,"QUES",1,"B")="NO"
+^XPD(9.7,10842,"QUES",2,0)="XPZ1"
+^XPD(9.7,10842,"QUES",2,1)=0
+^XPD(9.7,10842,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,10842,"QUES",2,"B")="NO"
+^XPD(9.7,10842,"QUES","B","XPI1",1)=""
+^XPD(9.7,10842,"QUES","B","XPZ1",2)=""
+^XPD(9.7,10842,"RTN",0)="^9.704A^3^3"
+^XPD(9.7,10842,"RTN",1,0)="DGENUPL3"
+^XPD(9.7,10842,"RTN",2,0)="DGMSEUTL"
+^XPD(9.7,10842,"RTN",3,0)="DGRP61"
+^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,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -844575,6 +844634,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",10839,1,10839)=""
 ^XPD(9.7,"ASP",10840,1,10840)=""
 ^XPD(9.7,"ASP",10841,1,10841)=""
+^XPD(9.7,"ASP",10842,1,10842)=""
 ^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)=""
@@ -845560,6 +845620,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","DG*5.3*961",10700)=""
 ^XPD(9.7,"B","DG*5.3*963",10698)=""
 ^XPD(9.7,"B","DG*5.3*965",10744)=""
+^XPD(9.7,"B","DG*5.3*966",10842)=""
 ^XPD(9.7,"B","DG*5.3*967",10745)=""
 ^XPD(9.7,"B","DG*5.3*97",69)=""
 ^XPD(9.7,"B","DG*5.3*970",10821)=""
diff --git a/Packages/Registration/Routines/DGENUPL3.m b/Packages/Registration/Routines/DGENUPL3.m
index 06d94bb3c6b..de69424d535 100644
--- a/Packages/Registration/Routines/DGENUPL3.m
+++ b/Packages/Registration/Routines/DGENUPL3.m
@@ -1,5 +1,5 @@
-DGENUPL3 ;ALB/CJM,ISA,KWP,AEG,BRM,ERC,CKN,BAJ,PHH,TDM,LBD,DJS,KUM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;12 June 2018  5:35PM
- ;;5.3;REGISTRATION;**147,230,232,377,404,451,653,688,793,797,841,928,935,947**;Aug 13,1993;Build 13
+DGENUPL3 ;ALB/CJM,ISA,KWP,AEG,BRM,ERC,CKN,BAJ,PHH,TDM,LBD,DJS,KUM,JAM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;12 June 2018  5:35PM
+ ;;5.3;REGISTRATION;**147,230,232,377,404,451,653,688,793,797,841,928,935,947,966**;Aug 13,1993;Build 8
  ;
  ;
 ADDMSG(MSGS,MESSAGE,TOHEC) ;
@@ -176,6 +176,7 @@ I DGPAT3("VETERAN")="N" S DGPAT3("PATYPE")=$$NONVET(DGELG("ELIG","CODE"))
  ;Process Military Service Episodes (SL,SNL,SNNL,MSD) - DG*5.3*797
  ;Process Military Service Episodes (SL,SNL,SNNL,MSD,FDD) - Future Discharge Date Added DG*5.3*935
  ;Process Military Service Episodes (SL,SNL,SNNL,MSD,FDD) - Reason for Early Separation Added DG*5.3*947
+ ;Process Military Service Episodes (SL,SNL,SNNL,MSD,FDD) - Separation Reason Code added DG*5.3*966
  ;DJS, Indicate if the ZMH segment exists in this message; DG*5.3*935
  N DGNEW
  S ^TMP($J,"DGENUPL","ZMH",0)=1
@@ -184,7 +185,7 @@ I DGPAT3("VETERAN")="N" S DGPAT3("PATYPE")=$$NONVET(DGELG("ELIG","CODE"))
  . I SEG(2)="FDD"&($L(SEG(8))<5) S SEG(8)="",I=0 D  Q
  . . S DGNEW=0 F  S I=$O(^DPT(DFN,.3216,I)) Q:I'?.N!($G(I)="")  S DA(1)=DFN,DA=I,DIE="^DPT("_DA(1)_","_.3216_",",DIE(0)="",DR=".08///@" D ^DIE D ID1^DGNOZMH(DFN,I,DGNEW) S I=DA  ;Delete an incomplete MSE ;DG*5.3*935
  . . K DGNEW Q 
- . N BOS,SN,DIS,SED,SSD,COM,DGFDD,DIE,DA,DR,RES S ERROR=""
+ . N BOS,SN,DIS,SED,SSD,COM,DGFDD,DIE,DA,DR,RES,RESCODE S ERROR=""
  . S BOS=$$CONVERT^DGENUPL1($P(SEG(3),$E(HLECH)))  ;Service Branch
  . S:BOS]"" BOS=$O(^DIC(23,"B",BOS,""))
  . S SN=$$CONVERT^DGENUPL1($P(SEG(3),$E(HLECH),2))  ;Service Number
@@ -197,6 +198,8 @@ I DGPAT3("VETERAN")="N" S DGPAT3("PATYPE")=$$NONVET(DGELG("ELIG","CODE"))
  . S COM=$$CONVERT^DGENUPL1($P(SEG(5),$E(HLECH)))  ;Service Component
  . ;Add Reason for Early Separation - DG*5.3*947
  . S RES=$$CONVERT^DGENUPL1($P(SEG(9),$E(HLECH)))  ;Reason for Early Separation (free text)
+ . ;Add Separation Reason Code (variable is NEW'd above and set into the DGNMSE array below) - DG*5.3*966
+ . S RESCODE=$$CONVERT^DGENUPL1($P(SEG(10),$E(HLECH)))  ;Separation Reason Code (3 digit)
  . ;DJS, Create variable DGFDD for storage in Military Service Episode (MSE); DG*5.3*935
  . ;DJS, Create MSE whether or not FDD exists & is a valid date; DG*5.3*935
  . I SEG(2)="FDD" D
@@ -204,7 +207,7 @@ I DGPAT3("VETERAN")="N" S DGPAT3("PATYPE")=$$NONVET(DGELG("ELIG","CODE"))
  . . I $$VALID^DGRPDT(.DGFDD)=1 D
  . . .S DGNMSE(-SED)=SED_U_SSD_U_BOS_U_COM_U_SN_U_DIS_U_1_U_DGFDD
  . ;E  S DGNMSE(-SED)=SED_U_SSD_U_BOS_U_COM_U_SN_U_DIS_U_1 
- . E  S DGNMSE(-SED)=SED_U_SSD_U_BOS_U_COM_U_SN_U_DIS_U_1_U_U_RES
+ . E  S DGNMSE(-SED)=SED_U_SSD_U_BOS_U_COM_U_SN_U_DIS_U_1_U_U_RES_U_RESCODE
  ;
  I SEG(2)="PH" D  Q  ;Process Purple Heart from ZMH
  . S DGPAT("PHI")=$P(SEG(3),$E(HLECH))
diff --git a/Packages/Registration/Routines/DGMSEUTL.m b/Packages/Registration/Routines/DGMSEUTL.m
index 1abfa9dc1e8..187c0136c31 100644
--- a/Packages/Registration/Routines/DGMSEUTL.m
+++ b/Packages/Registration/Routines/DGMSEUTL.m
@@ -1,5 +1,5 @@
-DGMSEUTL ;ALB/PJH,LBD,DJS,KUM - MSDS Utility Routine ;12 June 2018  5:36PM
- ;;5.3;Registration;**797,935,947**;08/13/93;Build 13
+DGMSEUTL ;ALB/PJH,LBD,DJS,KUM,JAM - MSDS Utility Routine ;12 June 2018  5:36PM
+ ;;5.3;Registration;**797,935,947,966**;08/13/93;Build 8
  ;
  ;
 MOVMSE(DFN) ;Move MSE data from .32 node to .3216 multiple in Patient file #2
@@ -54,8 +54,14 @@ D EPISODE(1,4,8)
  .S DIC("DR")=DIC("DR")_";.07////"_$P(FLDS,U,7) ;Locked
  . ;DJS, Store FUTURE DISCHARGE DATE; DG*5.3*935
  .S DIC("DR")=DIC("DR")_";.08///"_$P(FLDS,U,8) ;Future Discharge Date
- .;Store REASON FOR EARLY SEPARATION - DG*5.3*947 
- .S DIC("DR")=DIC("DR")_";.09///"_$P(FLDS,U,9) ;Reason for Early Separation
+ .;jam; Store REASON FOR EARLY SEPARATION - DG*5.3*947 
+ .;jam; Store REASON FOR EARLY SEPARATION ONLY if no SEPARATION REASON CODE sent - DG*5.3*966 
+ .I $P(FLDS,U,10)="" S DIC("DR")=DIC("DR")_";.09///"_$P(FLDS,U,9) ;Reason for Early Separation
+ .E  D
+ ..;jam; Store SEPARATION REASON CODE ONLY if it exists in File 26, otherwise store 
+ ..; informational message in the REASON FOR EARLY SEPARATION field - DG*5.3*966 
+ ..I $$FIND1^DIC(26,,"B",$P(FLDS,U,10)) S DIC("DR")=DIC("DR")_";.1///"_$P(FLDS,U,10) ;Separation Reason Code
+ ..E  S DIC("DR")=DIC("DR")_";.09///"_"Refer to Enrollment System for Reason" ;Reason For Early Separation
  .D FILE^DICN
  Q
  ;
diff --git a/Packages/Registration/Routines/DGRP61.m b/Packages/Registration/Routines/DGRP61.m
index 5def8e1bffb..69925b8ab4c 100644
--- a/Packages/Registration/Routines/DGRP61.m
+++ b/Packages/Registration/Routines/DGRP61.m
@@ -1,5 +1,5 @@
-DGRP61 ;ALB/PJH,LBD,DJS,JAM - Patient MSDS History - List Manager Screen ;16 Oct 2017 16:04:16
- ;;5.3;Registration;**797,909,935,947**;Aug 13,1993;Build 13
+DGRP61 ;ALB/PJH,LBD,DJS,JAM,JAM - Patient MSDS History - List Manager Screen ;16 Oct 2017 16:04:16
+ ;;5.3;Registration;**797,909,935,947,966**;Aug 13,1993;Build 8
  ;
 EN(DFN) ;Main entry point to invoke the DGEN MSDS PATIENT list
  ; Input  -- DFN      Patient IEN
@@ -93,11 +93,17 @@ S DGSEL("episode count")=DGSEL("episode count")+1
  ; JAM; DG*5.3*947 - Track the array entries that are MSE data in the "1" subscript 
  S @GLBL@(VALMCNT,1)=""
  ; JAM; DG*5.3*947 - if Reason for Early Separation is present, include it in output
- I $P(DGDATA,U,9)]"" D
+ ; JAM; DG*5.3*966 - If patient record has Separation Reason Code (piece 10), retrieve the Description from file #24
+ ;   otherwise get description from piece 9
+ N RESDESC
+ I $P(DGDATA,U,10)]"" D
+ . S RESDESC=$$GET1^DIQ(26,$P(DGDATA,U,10),.02)
+ E  S RESDESC=$P(DGDATA,U,9)
+ I RESDESC]"" D
  . ;use the DIWP api to format the text which can be longer than 80 chars
- . N X,I,DIWL,DIWR,DIWF,RESDESC,RESLINE
+ . N X,I,DIWL,DIWR,DIWF,RESLINE
  . K ^UTILITY($J,"W")
- . S X="Early Separation Reason: "_$P(DGDATA,U,9),DIWL=0,DIWR=80,DIWF=""
+ . S X="Early Separation Reason: "_RESDESC,DIWL=0,DIWR=80,DIWF=""
  . D ^DIWP
  . M RESDESC=^UTILITY($J,"W",0)
  . F I=1:1:RESDESC D
diff --git a/Packages/Uncategorized/Globals/26+SEPARATION REASON.zwr b/Packages/Uncategorized/Globals/26+SEPARATION REASON.zwr
new file mode 100644
index 00000000000..90226cb5d38
--- /dev/null
+++ b/Packages/Uncategorized/Globals/26+SEPARATION REASON.zwr	
@@ -0,0 +1,50 @@
+OSEHRA ZGO Export: SEPARATION REASON
+15-MAR-2019 05:29:40 ZWR
+^DIC(26,0)="SEPARATION REASON^26^20^20"
+^DIC(26,0,"GL")="^DIC(26,"
+^DIC(26,1,0)="065^DISABILITY, SEVERANCE PAY, COMBAT RELATED (ENHANCED)"
+^DIC(26,2,0)="066^DISABILITY, SEVERANCE PAY, NON COMBAT (ENHANCED)"
+^DIC(26,3,0)="068^DISABILITY, SEVERANCE PAY (ENHANCED)"
+^DIC(26,4,0)="071^DISABILITY, AGGRAVATION (ENHANCED)"
+^DIC(26,5,0)="072^DISABILITY, OTHER (ENHANCED)"
+^DIC(26,6,0)="076^DISABILITY, SEVERANCE PAY, COMBAT RELATED"
+^DIC(26,7,0)="077^DISABILITY, SEVERANCE PAY"
+^DIC(26,8,0)="080^DISABILITY, SEVERANCE PAY, NON COMBAT"
+^DIC(26,9,0)="082^DISABILITY, AGGRAVATION"
+^DIC(26,10,0)="083^DISABILITY, OTHER"
+^DIC(26,11,0)="105^DISABILITY, PERMANENT (ENHANCED)"
+^DIC(26,12,0)="106^DISABILITY, TEMPORARY (ENHANCED)"
+^DIC(26,13,0)="107^DISABILITY, PERMANENT"
+^DIC(26,14,0)="108^DISABILITY, TEMPORARY"
+^DIC(26,15,0)="003^PARENTHOOD OR CUSTODY OF MINOR CHILDREN"
+^DIC(26,16,0)="039^ATTEND CIVILIAN SCHOOL"
+^DIC(26,17,0)="044^SURVIVING FAMILY MEMBER - SOLE SURVIVORSHIP"
+^DIC(26,18,0)="038^REDUCTION IN FORCE"
+^DIC(26,19,0)="045^HARDSHIP"
+^DIC(26,20,0)="048^HOLIDAY EARLY RELEASE PROGRAM"
+^DIC(26,"%",0)="^1.005^^0"
+^DIC(26,"%D",0)="^^3^3^3180824^"
+^DIC(26,"%D",1,0)="The Separation Reason file is a table of codes and corresponding "
+^DIC(26,"%D",2,0)="descriptions for identifying the reason a service member is discharged"
+^DIC(26,"%D",3,0)="early for example due to disability, hardship or early out."
+^DIC(26,"%MSC")=3190315.052606
+^DIC(26,"B",105,11)=""
+^DIC(26,"B",106,12)=""
+^DIC(26,"B",107,13)=""
+^DIC(26,"B",108,14)=""
+^DIC(26,"B","003",15)=""
+^DIC(26,"B","038",18)=""
+^DIC(26,"B","039",16)=""
+^DIC(26,"B","044",17)=""
+^DIC(26,"B","045",19)=""
+^DIC(26,"B","048",20)=""
+^DIC(26,"B","065",1)=""
+^DIC(26,"B","066",2)=""
+^DIC(26,"B","068",3)=""
+^DIC(26,"B","071",4)=""
+^DIC(26,"B","072",5)=""
+^DIC(26,"B","076",6)=""
+^DIC(26,"B","077",7)=""
+^DIC(26,"B","080",8)=""
+^DIC(26,"B","082",9)=""
+^DIC(26,"B","083",10)=""
diff --git a/Packages/VA FileMan/Globals/1+FILE.zwr b/Packages/VA FileMan/Globals/1+FILE.zwr
index a5187ac188c..2ada8ce633f 100644
--- a/Packages/VA FileMan/Globals/1+FILE.zwr	
+++ b/Packages/VA FileMan/Globals/1+FILE.zwr	
@@ -1,5 +1,5 @@
 OSEHRA ZGO Export: FILE
-14-MAR-2019 21:03:19 ZWR
+15-MAR-2019 05:29:44 ZWR
 ^DIC(0)="FILE^1^9999999.41^2717"
 ^DIC(".11",0)="INDEX^.11"
 ^DIC(".11",0,"DD")="^"
@@ -487,7 +487,7 @@ OSEHRA ZGO Export: FILE
 ^DIC(2,"%D",14,0)="in the file you will note that many are preceeded by an asterisk."
 ^DIC(2,"%D",15,0)="Those fields are scheduled to be removed from the file due to either"
 ^DIC(2,"%D",16,0)="lack of use or replacement by another field/file in the next release."
-^DIC(2,"%MSC")=3190314.185055
+^DIC(2,"%MSC")=3190315.052606
 ^DIC("3.05",0)="FAILED ACCESS ATTEMPTS LOG^3.05"
 ^DIC("3.05",0,"DD")="@"
 ^DIC("3.05",0,"DEL")="@"
@@ -2750,7 +2750,7 @@ OSEHRA ZGO Export: FILE
 ^DIC("50.7","%",0)="^1.005^^0"
 ^DIC("50.7","%D",0)="^^1^1^2941026^"
 ^DIC("50.7","%D",1,0)="Order Entry name for items that can be ordered in the Pharmacy package."
-^DIC("50.7","%MSC")=3180609.221044
+^DIC("50.7","%MSC")=3190314.235357
 ^DIC("50.713","%MSC")=3180609.221044
 ^DIC("50.8",0)="IV STATS^50.8P"
 ^DIC("50.8",0,"DD")="@"
@@ -40421,6 +40421,7 @@ OSEHRA ZGO Export: FILE
 ^DIC("B","SEMANTIC MAP","757.1")=""
 ^DIC("B","SEMANTIC TYPE","757.12")=""
 ^DIC("B","SEND QUEUE","2006.035")=""
+^DIC("B","SEPARATION REASON",26)=""
 ^DIC("B","SERVICE POINT","119.72")=""
 ^DIC("B","SERVICE/SECTION",49)=""
 ^DIC("B","SERVING UTENSIL","114.3")=""