diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index 714c00e3551..3e08285d111 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
-25-NOV-2019 12:41:45 ZWR
-^%ZTSK(-1)=5475
+25-NOV-2019 15:22:39 ZWR
+^%ZTSK(-1)=5479
 ^%ZTSK(0)="TASKS^14.4^5277"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -52741,6 +52741,47 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(5475,.3,"LRDUZ")=17
 ^%ZTSK(5475,.3,"XQY")=245
 ^%ZTSK(5475,.3,"XQY0")="XPD INSTALL BUILD^Install Package(s)^^R^^^^^^^^2"
+^%ZTSK(5476,0)="HOUR^XUTMHR^.5^^65342,55138^65342,55138^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(5476,.02)="^VISTA^^"
+^%ZTSK(5476,.03)="Taskman Hourly Job"
+^%ZTSK(5476,.04)=5645603938
+^%ZTSK(5476,.1)="B^65342,55198^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5476,.2)=""
+^%ZTSK(5476,.21)=""
+^%ZTSK(5476,.25)=""
+^%ZTSK(5477,0)="ZTSK^XQ1^.5^VISTA^65342,55198^65342,55198^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5477,.02)="^VISTA^^"
+^%ZTSK(5477,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5477,.04)=5645603998
+^%ZTSK(5477,.1)="B^65342,55200^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5477,.2)=""
+^%ZTSK(5477,.21)=""
+^%ZTSK(5477,.25)=""
+^%ZTSK(5477,.3,"DUZ(",0)="@"
+^%ZTSK(5477,.3,"XQSCH")=10
+^%ZTSK(5477,.3,"XQY")=8853
+^%ZTSK(5478,0)="ZTSK^XQ1^.5^VISTA^65342,55198^65342,55198^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5478,.02)="^VISTA^^"
+^%ZTSK(5478,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5478,.04)=5645603998
+^%ZTSK(5478,.1)="B^65342,55202^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5478,.2)=""
+^%ZTSK(5478,.21)=""
+^%ZTSK(5478,.25)=""
+^%ZTSK(5478,.3,"DUZ(",0)="@"
+^%ZTSK(5478,.3,"XQSCH")=11
+^%ZTSK(5478,.3,"XQY")=8412
+^%ZTSK(5479,0)="ZTSK^XQ1^.5^VISTA^65342,55198^65342,55198^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5479,.02)="^VISTA^^"
+^%ZTSK(5479,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5479,.04)=5645603998
+^%ZTSK(5479,.1)="B^65342,55204^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5479,.2)=""
+^%ZTSK(5479,.21)=""
+^%ZTSK(5479,.25)=""
+^%ZTSK(5479,.3,"DUZ(",0)="@"
+^%ZTSK(5479,.3,"XQSCH")=8
+^%ZTSK(5479,.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/19.1+SECURITY KEY.zwr b/Packages/Kernel/Globals/19.1+SECURITY KEY.zwr
index 0da8ad34c62..c8e47cef04b 100644
--- a/Packages/Kernel/Globals/19.1+SECURITY KEY.zwr	
+++ b/Packages/Kernel/Globals/19.1+SECURITY KEY.zwr	
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: SECURITY KEY
-21-NOV-2019 19:36:14 ZWR
-^DIC(19.1,0)="SECURITY KEY^19.1^633^585"
+25-NOV-2019 15:23:25 ZWR
+^DIC(19.1,0)="SECURITY KEY^19.1^634^586"
 ^DIC(19.1,0,"DD")="#"
 ^DIC(19.1,0,"DEL")="#"
 ^DIC(19.1,0,"GL")="^DIC(19.1,"
@@ -2612,6 +2612,11 @@ OSEHRA ZGO Export: SECURITY KEY
 ^DIC(19.1,633,1,0)="^19.11^2^2^3140820^^^"
 ^DIC(19.1,633,1,1,0)="This key prevents users who do not hold this key from seeing"
 ^DIC(19.1,633,1,2,0)="system level locks in the Lock Manager application."
+^DIC(19.1,634,0)="RA SWITCHLOC"
+^DIC(19.1,634,1,0)="^19.11^3^3^3190724^^"
+^DIC(19.1,634,1,1,0)="This key gives the user access to switch locations across modalities at "
+^DIC(19.1,634,1,2,0)="the time of registration.  For example, the holder of this key can "
+^DIC(19.1,634,1,3,0)="register an ANGIO procedure under a CT location if appropriate."
 ^DIC(19.1,"%",0)="^1.005^2^2"
 ^DIC(19.1,"%",1,0)="XU"
 ^DIC(19.1,"%",2,0)="XQ"
@@ -3050,6 +3055,7 @@ OSEHRA ZGO Export: SECURITY KEY
 ^DIC(19.1,"B","QAP MANAGER",182)=""
 ^DIC(19.1,"B","RA ALLOC",187)=""
 ^DIC(19.1,"B","RA MGR",185)=""
+^DIC(19.1,"B","RA SWITCHLOC",634)=""
 ^DIC(19.1,"B","RA UNVERIFY",631)=""
 ^DIC(19.1,"B","RA VERIFY",186)=""
 ^DIC(19.1,"B","RCCPC TRANSMIT",274)=""
diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr
index b4765934919..9a683ecb4d7 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
-25-NOV-2019 12:41:57 ZWR
+25-NOV-2019 15:22:51 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -182424,7 +182424,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,115,22,2,1,0)="^^2^2^3051119"
 ^DIC(9.4,115,22,2,1,1,0)="Radiology/Nuclear Medicine v5.0 from our gold account to the field.  This"
 ^DIC(9.4,115,22,2,1,2,0)="is the final release of the package."
-^DIC(9.4,115,22,2,"PAH",0)="^9.4901^136^136"
+^DIC(9.4,115,22,2,"PAH",0)="^9.4901^137^137"
 ^DIC(9.4,115,22,2,"PAH",1,0)="1^2980831^1"
 ^DIC(9.4,115,22,2,"PAH",1,1,0)="^^3^3^2980831"
 ^DIC(9.4,115,22,2,"PAH",1,1,1,0)="Patch one for the Radiology/Nuclear Medicine 5.0 software.  Please review"
@@ -183025,6 +183025,11 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,115,22,2,"PAH",136,1,1,0)="Patch one hundred and fifty-eight for the VistA Radiology/Nuclear"
 ^DIC(9.4,115,22,2,"PAH",136,1,2,0)="Medicine 5.0 application. Please review FORUM's Patch Module description"
 ^DIC(9.4,115,22,2,"PAH",136,1,3,0)="and installation instructions for RA*5.0*158 before installing this patch."
+^DIC(9.4,115,22,2,"PAH",137,0)="157^3191125.152019^17"
+^DIC(9.4,115,22,2,"PAH",137,1,0)="^^3^3^3191125"
+^DIC(9.4,115,22,2,"PAH",137,1,1,0)="Abnormal report formatting and subscript error on #67 alerts."
+^DIC(9.4,115,22,2,"PAH",137,1,2,0)="Primary Designation DX Codes"
+^DIC(9.4,115,22,2,"PAH",137,1,3,0)="Switch Location key/update"
 ^DIC(9.4,115,22,2,"PAH","B",1,1)=""
 ^DIC(9.4,115,22,2,"PAH","B",2,2)=""
 ^DIC(9.4,115,22,2,"PAH","B",33,44)=""
@@ -183061,6 +183066,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,115,22,2,"PAH","B",154,133)=""
 ^DIC(9.4,115,22,2,"PAH","B",155,135)=""
 ^DIC(9.4,115,22,2,"PAH","B",156,134)=""
+^DIC(9.4,115,22,2,"PAH","B",157,137)=""
 ^DIC(9.4,115,22,2,"PAH","B",158,136)=""
 ^DIC(9.4,115,22,2,"PAH","B","10 SEQ #15",15)=""
 ^DIC(9.4,115,22,2,"PAH","B","100 SEQ #90",89)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index a7701cabc0a..59d87e39df9 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
-25-NOV-2019 12:41:55 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11411^11051"
+25-NOV-2019 15:22:49 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11412^11052"
 ^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"
@@ -1229936,6 +1229936,90 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11411,"REQB","B","LR*5.2*438",5)=""
 ^XPD(9.6,11411,"REQB","B","LR*5.2*453",1)=""
 ^XPD(9.6,11411,"REQB","B","LR*5.2*459",2)=""
+^XPD(9.6,11412,0)="RA*5.0*157^115^0^3190724^y"
+^XPD(9.6,11412,1,0)="^^3^3^3190724^"
+^XPD(9.6,11412,1,1,0)="Abnormal report formatting and subscript error on #67 alerts."
+^XPD(9.6,11412,1,2,0)="Primary Designation DX Codes"
+^XPD(9.6,11412,1,3,0)="Switch Location key/update"
+^XPD(9.6,11412,4,0)="^9.64PA^^"
+^XPD(9.6,11412,6)="^143"
+^XPD(9.6,11412,6.3)=2
+^XPD(9.6,11412,"KRN",0)="^9.67PA^1.5^24"
+^XPD(9.6,11412,"KRN",.4,0)=.4
+^XPD(9.6,11412,"KRN",.401,0)=.401
+^XPD(9.6,11412,"KRN",.402,0)=.402
+^XPD(9.6,11412,"KRN",.403,0)=.403
+^XPD(9.6,11412,"KRN",.5,0)=.5
+^XPD(9.6,11412,"KRN",.84,0)=.84
+^XPD(9.6,11412,"KRN",1.5,0)=1.5
+^XPD(9.6,11412,"KRN",1.6,0)=1.6
+^XPD(9.6,11412,"KRN",1.61,0)=1.61
+^XPD(9.6,11412,"KRN",1.62,0)=1.62
+^XPD(9.6,11412,"KRN",3.6,0)=3.6
+^XPD(9.6,11412,"KRN",3.8,0)=3.8
+^XPD(9.6,11412,"KRN",9.2,0)=9.2
+^XPD(9.6,11412,"KRN",9.8,0)=9.8
+^XPD(9.6,11412,"KRN",9.8,"NM",0)="^9.68A^7^7"
+^XPD(9.6,11412,"KRN",9.8,"NM",1,0)="RAO7PC4^^0^B43547246"
+^XPD(9.6,11412,"KRN",9.8,"NM",2,0)="RAPRINT1^^0^B30536433"
+^XPD(9.6,11412,"KRN",9.8,"NM",3,0)="RAHLO2^^0^B26410150"
+^XPD(9.6,11412,"KRN",9.8,"NM",4,0)="RAHLTCPX^^0^B105636791"
+^XPD(9.6,11412,"KRN",9.8,"NM",5,0)="RAHLO1^^0^B66347162"
+^XPD(9.6,11412,"KRN",9.8,"NM",6,0)="RAHLTCPB^^0^B76979466"
+^XPD(9.6,11412,"KRN",9.8,"NM",7,0)="RAREG3^^0^B31537156"
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAHLO1",5)=""
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAHLO2",3)=""
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAHLTCPB",6)=""
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAHLTCPX",4)=""
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAO7PC4",1)=""
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAPRINT1",2)=""
+^XPD(9.6,11412,"KRN",9.8,"NM","B","RAREG3",7)=""
+^XPD(9.6,11412,"KRN",19,0)=19
+^XPD(9.6,11412,"KRN",19.1,0)=19.1
+^XPD(9.6,11412,"KRN",19.1,"NM",0)="^9.68A^1^1"
+^XPD(9.6,11412,"KRN",19.1,"NM",1,0)="RA SWITCHLOC^^0"
+^XPD(9.6,11412,"KRN",19.1,"NM","B","RA SWITCHLOC",1)=""
+^XPD(9.6,11412,"KRN",101,0)=101
+^XPD(9.6,11412,"KRN",409.61,0)=409.61
+^XPD(9.6,11412,"KRN",771,0)=771
+^XPD(9.6,11412,"KRN",779.2,0)=779.2
+^XPD(9.6,11412,"KRN",870,0)=870
+^XPD(9.6,11412,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11412,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11412,"KRN",8994,0)=8994
+^XPD(9.6,11412,"KRN","B",.4,.4)=""
+^XPD(9.6,11412,"KRN","B",.401,.401)=""
+^XPD(9.6,11412,"KRN","B",.402,.402)=""
+^XPD(9.6,11412,"KRN","B",.403,.403)=""
+^XPD(9.6,11412,"KRN","B",.5,.5)=""
+^XPD(9.6,11412,"KRN","B",.84,.84)=""
+^XPD(9.6,11412,"KRN","B",1.5,1.5)=""
+^XPD(9.6,11412,"KRN","B",1.6,1.6)=""
+^XPD(9.6,11412,"KRN","B",1.61,1.61)=""
+^XPD(9.6,11412,"KRN","B",1.62,1.62)=""
+^XPD(9.6,11412,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11412,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11412,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11412,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11412,"KRN","B",19,19)=""
+^XPD(9.6,11412,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11412,"KRN","B",101,101)=""
+^XPD(9.6,11412,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11412,"KRN","B",771,771)=""
+^XPD(9.6,11412,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11412,"KRN","B",870,870)=""
+^XPD(9.6,11412,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11412,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11412,"KRN","B",8994,8994)=""
+^XPD(9.6,11412,"QDEF")="^^^^NO^^^^NO^^YES"
+^XPD(9.6,11412,"QUES",0)="^9.62^^"
+^XPD(9.6,11412,"REQB",0)="^9.611^4^3"
+^XPD(9.6,11412,"REQB",2,0)="RA*5.0*77^2"
+^XPD(9.6,11412,"REQB",3,0)="RA*5.0*154^2"
+^XPD(9.6,11412,"REQB",4,0)="RA*5.0*106^2"
+^XPD(9.6,11412,"REQB","B","RA*5.0*106",4)=""
+^XPD(9.6,11412,"REQB","B","RA*5.0*154",3)=""
+^XPD(9.6,11412,"REQB","B","RA*5.0*77",2)=""
 ^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)=""
@@ -1238391,6 +1238475,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","RA*5.0*154",11286)=""
 ^XPD(9.6,"B","RA*5.0*155",11342)=""
 ^XPD(9.6,"B","RA*5.0*156",11341)=""
+^XPD(9.6,"B","RA*5.0*157",11412)=""
 ^XPD(9.6,"B","RA*5.0*158",11388)=""
 ^XPD(9.6,"B","RA*5.0*16",2839)=""
 ^XPD(9.6,"B","RA*5.0*17",3151)=""
@@ -1248952,6 +1249037,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",115,11341)=""
 ^XPD(9.6,"C",115,11342)=""
 ^XPD(9.6,"C",115,11388)=""
+^XPD(9.6,"C",115,11412)=""
 ^XPD(9.6,"C",116,1087)=""
 ^XPD(9.6,"C",116,6557)=""
 ^XPD(9.6,"C",119,494)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index 030c6b04b34..b6d04353ac8 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
-25-NOV-2019 12:42:56 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^11130^10988"
+25-NOV-2019 15:23:50 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^11131^10989"
 ^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"
@@ -854019,6 +854019,71 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,11130,"RTN","B","LRWU6",7)=""
 ^XPD(9.7,11130,"RTN","B","LRWU9",8)=""
 ^XPD(9.7,11130,"RTN","B","LRWU9A",9)=""
+^XPD(9.7,11131,0)="RA*5.0*157^115^3191125.151958^11131^1^^0^0RA*5.0*157^3^0^17"
+^XPD(9.7,11131,1)="3191125.152018^3191125.152019^3191125.152019^3190724"
+^XPD(9.7,11131,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,11131,6)="^143"
+^XPD(9.7,11131,"INI",0)="^9.713^1^1"
+^XPD(9.7,11131,"INI",1,0)="XPD PREINSTALL COMPLETED^3191125.152019"
+^XPD(9.7,11131,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,11131,"INIT",0)="^9.716^1^1"
+^XPD(9.7,11131,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3191125.152019"
+^XPD(9.7,11131,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,11131,"KRN",0)="^9.715P^19.1^1"
+^XPD(9.7,11131,"KRN",19.1,0)="19.1^3191125.152019^3"
+^XPD(9.7,11131,"KRN","AC",3,19.1)=""
+^XPD(9.7,11131,"KRN","B",19.1,19.1)=""
+^XPD(9.7,11131,"MES",0)="^^24^24^3191125"
+^XPD(9.7,11131,"MES",1,0)=" "
+^XPD(9.7,11131,"MES",2,0)=" Install Started for RA*5.0*157 : "
+^XPD(9.7,11131,"MES",3,0)="               Nov 25, 2019@15:20:18"
+^XPD(9.7,11131,"MES",4,0)=" "
+^XPD(9.7,11131,"MES",5,0)="Build Distribution Date: Jul 24, 2019"
+^XPD(9.7,11131,"MES",6,0)=" "
+^XPD(9.7,11131,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,11131,"MES",8,0)="               Nov 25, 2019@15:20:19"
+^XPD(9.7,11131,"MES",9,0)=" "
+^XPD(9.7,11131,"MES",10,0)=" Installing PACKAGE COMPONENTS: "
+^XPD(9.7,11131,"MES",11,0)=" "
+^XPD(9.7,11131,"MES",12,0)=" Installing SECURITY KEY"
+^XPD(9.7,11131,"MES",13,0)="               Nov 25, 2019@15:20:19"
+^XPD(9.7,11131,"MES",14,0)=" "
+^XPD(9.7,11131,"MES",15,0)=" Updating Routine file..."
+^XPD(9.7,11131,"MES",16,0)=" "
+^XPD(9.7,11131,"MES",17,0)=" Updating KIDS files..."
+^XPD(9.7,11131,"MES",18,0)=" "
+^XPD(9.7,11131,"MES",19,0)=" RA*5.0*157 Installed. "
+^XPD(9.7,11131,"MES",20,0)="               Nov 25, 2019@15:20:19"
+^XPD(9.7,11131,"MES",21,0)=" "
+^XPD(9.7,11131,"MES",22,0)=" Not a production UCI"
+^XPD(9.7,11131,"MES",23,0)=" "
+^XPD(9.7,11131,"MES",24,0)=" NO Install Message sent "
+^XPD(9.7,11131,"QUES",0)="^9.701^2^2"
+^XPD(9.7,11131,"QUES",1,0)="XPI1"
+^XPD(9.7,11131,"QUES",1,1)=0
+^XPD(9.7,11131,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,11131,"QUES",1,"B")="NO"
+^XPD(9.7,11131,"QUES",2,0)="XPZ1"
+^XPD(9.7,11131,"QUES",2,1)=0
+^XPD(9.7,11131,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,11131,"QUES",2,"B")="NO"
+^XPD(9.7,11131,"QUES","B","XPI1",1)=""
+^XPD(9.7,11131,"QUES","B","XPZ1",2)=""
+^XPD(9.7,11131,"RTN",0)="^9.704A^7^7"
+^XPD(9.7,11131,"RTN",1,0)="RAHLO1"
+^XPD(9.7,11131,"RTN",2,0)="RAHLO2"
+^XPD(9.7,11131,"RTN",3,0)="RAHLTCPB"
+^XPD(9.7,11131,"RTN",4,0)="RAHLTCPX"
+^XPD(9.7,11131,"RTN",5,0)="RAO7PC4"
+^XPD(9.7,11131,"RTN",6,0)="RAPRINT1"
+^XPD(9.7,11131,"RTN",7,0)="RAREG3"
+^XPD(9.7,11131,"RTN","B","RAHLO1",1)=""
+^XPD(9.7,11131,"RTN","B","RAHLO2",2)=""
+^XPD(9.7,11131,"RTN","B","RAHLTCPB",3)=""
+^XPD(9.7,11131,"RTN","B","RAHLTCPX",4)=""
+^XPD(9.7,11131,"RTN","B","RAO7PC4",5)=""
+^XPD(9.7,11131,"RTN","B","RAPRINT1",6)=""
+^XPD(9.7,11131,"RTN","B","RAREG3",7)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -865007,6 +865072,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",11128,1,11128)=""
 ^XPD(9.7,"ASP",11129,1,11129)=""
 ^XPD(9.7,"ASP",11130,1,11130)=""
+^XPD(9.7,"ASP",11131,1,11131)=""
 ^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)=""
@@ -873409,6 +873475,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","RA*5.0*154",11005)=""
 ^XPD(9.7,"B","RA*5.0*155",11061)=""
 ^XPD(9.7,"B","RA*5.0*156",11060)=""
+^XPD(9.7,"B","RA*5.0*157",11131)=""
 ^XPD(9.7,"B","RA*5.0*158",11107)=""
 ^XPD(9.7,"B","RA*5.0*16",2549)=""
 ^XPD(9.7,"B","RA*5.0*17",2865)=""
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAHLO1.m b/Packages/Radiology Nuclear Medicine/Routines/RAHLO1.m
index f682d43a4f9..981bc71f334 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAHLO1.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAHLO1.m	
@@ -1,5 +1,5 @@
-RAHLO1 ;HIRMFO/GJC/BNT-File rpt (data from bridge program) ;6/25/04  11:49
- ;;5.0;Radiology/Nuclear Medicine;**4,5,12,17,21,27,48,55,66,87,84,94,104,47**;Mar 16, 1998;Build 21
+RAHLO1 ;HIRMFO/GJC/BNT-File rpt (data from bridge program) ;16 Apr 2019 2:18 PM
+ ;;5.0;Radiology/Nuclear Medicine;**4,5,12,17,21,27,48,55,66,87,84,94,104,47,157**;Mar 16, 1998;Build 2
  ; 12/15/2009 BAY/KAM RA*5*104 Rem Call 359702 On-line Verification issue
  ; 11/15/2007 BAY/KAM RA*5*87 Rem Call 216332 Correct UNDEF on null dx code
  ; 09/07/2005 108405 - KAM/BAY Allow Radiology to accept dx codes from Talk Technology
@@ -161,7 +161,8 @@ S RAFDA(70.03,RAIENS,17)=RARPT
  N RA13,RA12,RA15 ;prim dx, prim resid, prim staff, rpt pointer
  S RACNISAV=RACNI,RA7=0
  S RA13=$P(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0),U,13),RA12=$P(^(0),U,12),RA15=$P(^(0),U,15)
- F  S RA7=$O(RAMEMARR(RA7)) Q:RA7=""  I RACNISAV'=RA7 S RACNI=RA7 D UPMEM^RAHLO4 I $D(RASECDX),('$D(RADENDUM)#2) D SECDX^RAHLO2
+ ;KLM/p157 - Remove Addendum check next line (need secondary DX codes updated on all descendants)
+ F  S RA7=$O(RAMEMARR(RA7)) Q:RA7=""  I RACNISAV'=RA7 S RACNI=RA7 D UPMEM^RAHLO4 I $D(RASECDX) D SECDX^RAHLO2
  S RACNI=RACNISAV
  ;
 UPACT ;Update the Activity Log (74.01) w/DBS call
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAHLO2.m b/Packages/Radiology Nuclear Medicine/Routines/RAHLO2.m
index 6f380be7251..f19096ef50d 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAHLO2.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAHLO2.m	
@@ -1,5 +1,5 @@
-RAHLO2 ;HIRMFO/GJC-File rpt (data from bridge program) ;23 Feb 2018 1:44 PM
- ;;5.0;Radiology/Nuclear Medicine;**55,80,84,144**;Mar 16, 1998;Build 1
+RAHLO2 ;HIRMFO/GJC-File rpt (data from bridge program) ;10 Apr 2019 3:05 PM
+ ;;5.0;Radiology/Nuclear Medicine;**55,80,84,144,157**;Mar 16, 1998;Build 2
  ;
  ;Integration Agreements
  ;----------------------
@@ -50,6 +50,9 @@
  N RAXFIRST
  S I=0,RAXFIRST=1
  K RASECDX
+ ; KLM/p157 Check for primary designation and save position.
+ I $D(^TMP("RARPT-REC",$J,RASUB,"RADX","PDX")) S RAPRIM=$O(^TMP("RARPT-REC",$J,RASUB,"RADX","PDX",0))
+ I $G(RAPRIM)>0 S RAXFIRST=0 ;if primary designation, don't need RAXFIRST
  F  S I=$O(^TMP("RARPT-REC",$J,RASUB,"RADX",I)) Q:I'>0  D  Q:$D(RAERR)
  . S RADIAG=$G(^TMP("RARPT-REC",$J,RASUB,"RADX",I))
  . ;S:RADIAG']"" RAERR="Missing Diagnostic Code" Q:$D(RAERR)
@@ -63,10 +66,11 @@
  . I '$D(^RA(78.3,RADXIEN,0)) S RAERR="Invalid Diagnostic Code" Q
  . ;KLM/p144 Reject inactive DX codes
  . I $P(^RA(78.3,RADXIEN,0),U,5)="Y" S RAERR="Inactive Diagnostic Code: "_RADXIEN Q
- . IF RAXFIRST S RADX=RADXIEN,RAXFIRST=0 Q  ; RADX=pri. Dx Code
+ . ;p157 Primary may not be the first entry.. check if RAPRIM is the same as count.
+ . I RAXFIRST!($G(RAPRIM)=I) S RADX=RADXIEN,RAXFIRST=0 Q  ; RADX=pri. Dx Code
  . ; are any of the sec. Dx codes equal to our pri. Dx code?
  . ;S:RADXIEN=RADX RAERR="Secondary Dx codes must differ from the primary Dx code." Q:$D(RAERR)
- . Q:RADXIEN=RADX  ;Secondary Dx codes must differ from the primary Dx code  Patch 80
+ . Q:RADXIEN=$G(RADX)  ;Secondary Dx codes must differ from the primary Dx code  Patch 80
  . ;S:$D(RASECDX(RADXIEN))#2 RAERR="Duplicate secondary Dx codes." Q:$D(RAERR)
  . Q:$D(RASECDX(RADXIEN))#2  ;Duplicate secondary Dx codes. Patch 80
  . S RASECDX(RADXIEN)="" ; set the sec. Dx array
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPB.m b/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPB.m
index 7afdb5c6088..1acfdaeded4 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPB.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPB.m	
@@ -1,5 +1,5 @@
-RAHLTCPB ; HIRMFO/REL,GJC,BNT,PAV - Rad/Nuc Med HL7 TCP/IP Bridge;05/21/99 ; 8/28/08 2:05pm
- ;;5.0;Radiology/Nuclear Medicine;**12,17,25,51,71,81,84,106**;Mar 16, 1998;Build 2
+RAHLTCPB ; HIRMFO/REL,GJC,BNT,PAV - Rad/Nuc Med HL7 TCP/IP Bridge;05/21/99 ;17 Apr 2019 3:25 PM
+ ;;5.0;Radiology/Nuclear Medicine;**12,17,25,51,71,81,84,106,157**;Mar 16, 1998;Build 2
  ; 07/05/2006 BAY/KAM Remedy Call 124379 Eliminate unneeded ORM msgs
  ; 09/01/2006   Accomodate multiple ORC/OBR segments Patch 81
  ; 
@@ -139,11 +139,13 @@ I HL("VER")>2.3,($T(^RAHLTCPX))'="" GOTO EN1^RAHLTCPX
  S RAXADEDN=^TMP("RARPT-REC",$J,RASUB,"RASTAT")
  S RANODE=$S(OBXTYP="D":"RADX",OBXTYP="I":"RAIMP",1:"RATXT"),LIN=""
  I OBX2CE D  Q
- . S X=$P(SEGMNT,HL("FS"),5),RADX1=$P(X,$E(HL("ECH")))
+ . ; KLM/p157 update DX Code processing for v2.3 to accomodate VR passing a primary designation.
+ . ; We will need to set LIN (RADX,RADX2,RADX3)to the entire dx code passed (ie 1^NORMAL^P).
+ . S X=$P(SEGMNT,HL("FS"),5),RADX1=$P(X,$E(HL("ECH"),2))
  . S LIN=RADX1,L=999 D P2 S LIN=X
  . Q:X'["~"  F J=0:0 S J=$O(^TMP("RARPT-HL7",$J,CNT,J)) Q:'J  S X1=^(J),LIN=LIN_X1 Q
- . S RADX=LIN,RADX2=$P($P(RADX,"~",2),"^") S:RADX2]"" LIN=RADX2 D P2
- . S RADX3=$P($P(RADX,"~",3),"^") Q:RADX3']""  S LIN=RADX3 D P2 Q
+ . S RADX=LIN,RADX2=$P(RADX,"~",2) S:RADX2]"" LIN=RADX2 D P2 ;p157
+ . S RADX3=$P(RADX,"~",3) Q:RADX3']""  S LIN=RADX3 D P2 Q  ;p157
  S X=$P(SEGMNT,HL("FS"),5)
  I X["\S\"!(X["\R\")!(X["\E\")!(X["\T\") D FORMAT
  I $G(RATELE),$D(RATELEKN),X[RATELEKN S X=$P(X,RATELEKN,2),RATELENM=$P(X,"-"),RATELEPI=$TR($P(X,"-",2)," ","") ;SFVAMC/DAD/9-7-2007/Comment out the quit Q  ;Patch 84
@@ -161,6 +163,11 @@ I HL("VER")>2.3,($T(^RAHLTCPX))'="" GOTO EN1^RAHLTCPX
  ; If Addendum and Report text is a space don't process
  I $P(SEGMNT,HL("FS"),1)=1,RAXADEDN="A",RANODE="RATXT",$E(LIN,1,L-1)=" " Q
  S RARCNT(OBXTYP)=$G(RARCNT(OBXTYP))+1
+ ;KLM/p157 Setting "PDX" node for the Primary indicator (to be used in RAHLO2)
+ I RANODE="RADX" D
+ . I $P($G(LIN),"^",3)="P" S ^TMP("RARPT-REC",$J,RASUB,RANODE,"PDX",RARCNT(OBXTYP))=+LIN
+ . S LIN=+LIN
+ . Q
  S ^TMP("RARPT-REC",$J,RASUB,RANODE,RARCNT(OBXTYP))=$E(LIN,1,L-1)
  F I=1:1:RACN S RARRR="RARPT-REC-"_I S:$D(^TMP(RARRR,$J)) ^TMP(RARRR,$J,RASUB,RANODE,RARCNT(OBXTYP))=$E(LIN,1,L-1)
  Q
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPX.m b/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPX.m
index 8744a6064e3..e4e71b15571 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPX.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAHLTCPX.m	
@@ -1,5 +1,5 @@
-RAHLTCPX ;HIRMFO/RTK,RVD,GJC - Rad/Nuc Med HL7 TCP/IP Bridge;02/11/08 ;06 Apr 2018 11:45 AM
- ;;5.0;Radiology/Nuclear Medicine;**47,114,129,141,144**;Mar 16, 1998;Build 1
+RAHLTCPX ;HIRMFO/RTK,RVD,GJC - Rad/Nuc Med HL7 TCP/IP Bridge;02/11/08 ;10 Apr 2019 3:05 PM
+ ;;5.0;Radiology/Nuclear Medicine;**47,114,129,141,144,157**;Mar 16, 1998;Build 2
  ;
  ; this is a modified copy of RAHLTCPB for HL7 v2.4
  ;
@@ -204,7 +204,11 @@ S RARCNT(RAOBX3(1))=$G(RARCNT(RAOBX3(1)))+1
  ; For DX Codes we are expecting only the # (ie, 1,2,5 etc not the text)
  ; If VR (PSCRIBE) sends text with DX Code, strip off text in next line
  ; Text only will be rejected
- I RAOBX3(1)="D" S RAX=+RAX
+ ; KLM/p157 - PS to send usage code in third piece (ie 1^NORMAL^P). P is for primary.
+ I RAOBX3(1)="D" D
+ .I $P($G(RAX),U,3)="P" S ^TMP("RARPT-REC",$J,RASUB,RANODE,"PDX",RARCNT(RAOBX3(1)))=+RAX
+ .S RAX=+RAX
+ .Q
  S ^TMP("RARPT-REC",$J,RASUB,RANODE,RARCNT(RAOBX3(1)))=RAX
  F RAI=1:1:RACNPPP S RARRR="RARPT-REC-"_RAI S ^TMP(RARRR,$J,RASUB,RANODE,RARCNT(RAOBX3(1)))=RAX
  K RAOBX3,RASTR
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAO7PC4.m b/Packages/Radiology Nuclear Medicine/Routines/RAO7PC4.m
index ecacf4351fa..37ded021f1e 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAO7PC4.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAO7PC4.m	
@@ -1,5 +1,5 @@
-RAO7PC4 ;HISC/SWM-utilities ;11/19/01  10:23
- ;;5.0;Radiology/Nuclear Medicine;**28,32,31,45,77**;Mar 16, 1998;Build 7
+RAO7PC4 ;HISC/SWM-utilities ;23 Apr 2019 7:07 AM
+ ;;5.0;Radiology/Nuclear Medicine;**28,32,31,45,77,157**;Mar 16, 1998;Build 2
  ;08/10/2006 BAY/KAM Remedy Call 134839 Subscript Error
  Q
 EN1 ; api for CPRS notification alert #67
@@ -9,14 +9,18 @@
  D KIL1 ;  kill ^TMP nodes
  Q
 SET1 N RADFN,RADTI,RACNI,RAPROC1,RAPROC2,RAPHY1,RAPHY2,RAPMOD1,RAPMOD2,RAACNT
- N RAPATNAM,RASSN,RASTR,I,J,RACMU
+ N RAPATNAM,RASSN,RASTR,I,J,RACMU,RAOIFN
  ; 08/10/2006 BAY/KAM Remedy Call 134839/RA*5*77 - Added next line
  Q:$G(XQADATA)=""
  S RADFN=$P(XQADATA,"/") ; ien patient
  S RAACNT=0 ; counter
  S RADTI=$P(XQADATA,"/",2) ; inverse date of exam
  S RACNI=$P(XQADATA,"/",3) ; ien case
- S RAPROC1=$P(XQADATA,"/",4) ; ien 71, before
+ ;p157/KLM Set the before procedure from order if missing from alert data
+ S RAPROC1=$P(XQADATA,"/",4) I RAPROC1="" D  ; ien 71, before
+ .S RAOIFN=$P($G(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0)),U,11)
+ .S:RAOIFN]"" RAPROC1=$P(^RAO(75.1,RAOIFN,0),U,2)
+ .Q
  S RAPROC2=$P(XQADATA,"/",5) ; ien 71, after
  S RAPHY1=$P(XQADATA,"/",6) ; ien 200 requesting physician, before
  S RAPHY2=$P(XQADATA,"/",7) ; ien 200 requesting physician, after
@@ -33,7 +37,7 @@
  .S ^TMP($J,"RAE4",$$INCR^RAUTL4(RAACNT))=" "
  I RAPROC2 D
  .S ^TMP($J,"RAE4",$$INCR^RAUTL4(RAACNT))=" Procedure changed"
- .S ^TMP($J,"RAE4",$$INCR^RAUTL4(RAACNT))="  From: "_$E($P(^RAMIS(71,RAPROC1,0),"^"),1,53)
+ .S ^TMP($J,"RAE4",$$INCR^RAUTL4(RAACNT))="  From: "_$S(RAPROC1]"":$E($P(^RAMIS(71,RAPROC1,0),"^"),1,53),1:"UNKNOWN") ;p157/KLM - add $S for 'unknown' procedure
  .S ^TMP($J,"RAE4",$$INCR^RAUTL4(RAACNT))="  To:   "_$E($P(^RAMIS(71,RAPROC2,0),"^"),1,53)_RACMU
  .S ^TMP($J,"RAE4",$$INCR^RAUTL4(RAACNT))=""
  I RAPHY2 D
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAPRINT1.m b/Packages/Radiology Nuclear Medicine/Routines/RAPRINT1.m
index b4b98051b73..545f6bc9287 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAPRINT1.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAPRINT1.m	
@@ -1,5 +1,5 @@
-RAPRINT1 ;HISC/FPT-Abnormal Exam Report (cont.) ;4/5/96  10:49
- ;;5.0;Radiology/Nuclear Medicine;**34,97,47**;Mar 16, 1998;Build 21
+RAPRINT1 ;HISC/FPT-Abnormal Exam Report (cont.) ;20 Mar 2019 1:44 PM
+ ;;5.0;Radiology/Nuclear Medicine;**34,97,47,157**;Mar 16, 1998;Build 2
 DIV ; walk through tmp global, start with 'division'
  Q:'$D(^TMP($J))
  N RAFIRST,RAPRTSET,RASAME,RACURR,RAPREV,L1
@@ -59,8 +59,9 @@ I I1("IT")="" W !?18,"Imaging Type: ",RAITNAME S I1("IT")=RAITNAME
  I I1("DIV")'=RADIVNME!(I1("IT")'=RAITNAME) D HANG Q:RAOUT  D HDR Q:RAOUT  S I1("DIV")=RADIVNME S I1("IT")=RAITNAME D
  .W !?22,"Division: ",RADIVNME
  .W !?18,"Imaging Type: ",RAITNAME
- .I I1("DX")=I W !?15,"Diagnostic Code: ",RADIAG W !?15,"----------------" D EXPRESS
- I I1("DX")'=I W !?15,"Diagnostic Code: ",RADIAG W !?15,"----------------" D EXPRESS
+ .;p157/KLM - format change, left justify and add another newline for DX codes.
+ .I I1("DX")=I W !!,"Diagnostic Code: ",RADIAG W !,"----------------" D EXPRESS
+ I I1("DX")'=I W !!,"Diagnostic Code: ",RADIAG W !,"----------------" D EXPRESS
  S RADFN=J,RAPAT=$S($D(^DPT(J,0)):^(0),1:""),RASSN=$$SSN^RAUTL(RADFN,1)
  S RAPAT=$S($P(RAPAT,U)]"":$P(RAPAT,U),1:"Not Found")
  S Y=9999999.9999-K X ^DD("DD") S RAEXDT=Y
diff --git a/Packages/Radiology Nuclear Medicine/Routines/RAREG3.m b/Packages/Radiology Nuclear Medicine/Routines/RAREG3.m
index d0623ea358e..d9ed99f5a0e 100644
--- a/Packages/Radiology Nuclear Medicine/Routines/RAREG3.m	
+++ b/Packages/Radiology Nuclear Medicine/Routines/RAREG3.m	
@@ -1,5 +1,6 @@
-RAREG3 ;HISC/CAH,DAD,FPT,GJC-Register Rad/NM Patient (cont.) ;27 Dec 2018 10:03 AM
- ;;5.0;Radiology/Nuclear Medicine;**8,137,144,154**;Mar 16, 1998;Build 1
+RAREG3 ;HISC/CAH,DAD,FPT,GJC-Register Rad/NM Patient (cont.) ;24 Jul 2019 9:18 AM
+ ;;5.0;Radiology/Nuclear Medicine;**8,137,144,154,157**;Mar 16, 1998;Build 2
+ ;Supported IA #10076 ^XUSEC(
  ;
 RSBIT ; renumber selections by imaging type
  ; The RAORDS array has the list of orders the user selected to register
@@ -37,8 +38,9 @@ K RAORDS S (RALOOP,RAIN)=0
  ; type does not match the procedure's imaging type.
  ; comment out 06/10/97 D EXAMSET^RAREG2 S RAPARENT=0
  S RAITN=$P(^RAMIS(71,+$P(Y,U,2),0),U,12)
- ;P154 Check switched to location until it's correct or user ^ out.
- F  Q:RAITN=+$O(^RA(79.2,"B",RAIMGTY,0))!(RAQUIT=1)  D
+ ;P154 Check switched to location until it's correct or ^ out
+ ;p157 users holding the RA SWITCHLOC can proceed under different modality
+ F  Q:RAITN=+$O(^RA(79.2,"B",RAIMGTY,0))!(RAQUIT=1)  D  Q:($D(^XUSEC("RA SWITCHLOC",DUZ))) 
  .S RAMLCHLD=RAMLC,RAYHOLD=Y,RAPROLOC=$P(^RA(79.2,RAITN,0),U,1),RAMDIVHD=RAMDIV
  .D LABEL
  .W !!?7,"Current Imaging Type: ",RAIMGTY