diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index 83a88dd8d29..4f5af5c02e2 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
-23-MAY-2019 15:31:09 ZWR
-^%ZTSK(-1)=4971
+23-MAY-2019 16:57:04 ZWR
+^%ZTSK(-1)=4975
 ^%ZTSK(0)="TASKS^14.4^4344"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -47225,6 +47225,47 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4971,.3,"DUZ(",0)="@"
 ^%ZTSK(4971,.3,"XQSCH")=8
 ^%ZTSK(4971,.3,"XQY")=9891
+^%ZTSK(4972,0)="HOUR^XUTMHR^.5^^65156,60715^65156,60715^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(4972,.02)="^VISTA^^"
+^%ZTSK(4972,.03)="Taskman Hourly Job"
+^%ZTSK(4972,.04)=5629539115
+^%ZTSK(4972,.1)="B^65156,60775^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4972,.2)=""
+^%ZTSK(4972,.21)=""
+^%ZTSK(4972,.25)=""
+^%ZTSK(4973,0)="ZTSK^XQ1^.5^VISTA^65156,60775^65156,60775^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4973,.02)="^VISTA^^"
+^%ZTSK(4973,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4973,.04)=5629539175
+^%ZTSK(4973,.1)="B^65156,60777^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4973,.2)=""
+^%ZTSK(4973,.21)=""
+^%ZTSK(4973,.25)=""
+^%ZTSK(4973,.3,"DUZ(",0)="@"
+^%ZTSK(4973,.3,"XQSCH")=10
+^%ZTSK(4973,.3,"XQY")=8853
+^%ZTSK(4974,0)="ZTSK^XQ1^.5^VISTA^65156,60775^65156,60775^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4974,.02)="^VISTA^^"
+^%ZTSK(4974,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4974,.04)=5629539175
+^%ZTSK(4974,.1)="B^65156,60779^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4974,.2)=""
+^%ZTSK(4974,.21)=""
+^%ZTSK(4974,.25)=""
+^%ZTSK(4974,.3,"DUZ(",0)="@"
+^%ZTSK(4974,.3,"XQSCH")=11
+^%ZTSK(4974,.3,"XQY")=8412
+^%ZTSK(4975,0)="ZTSK^XQ1^.5^VISTA^65156,60775^65156,60775^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4975,.02)="^VISTA^^"
+^%ZTSK(4975,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4975,.04)=5629539175
+^%ZTSK(4975,.1)="B^65156,60781^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4975,.2)=""
+^%ZTSK(4975,.21)=""
+^%ZTSK(4975,.25)=""
+^%ZTSK(4975,.3,"DUZ(",0)="@"
+^%ZTSK(4975,.3,"XQSCH")=8
+^%ZTSK(4975,.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 19bc1eea4b9..ceb44782fa5 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
-23-MAY-2019 15:31:15 ZWR
+23-MAY-2019 16:57:08 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -183627,7 +183627,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,127,11)="130^139.99"
 ^DIC(9.4,127,22,0)="^9.49I^3^1"
 ^DIC(9.4,127,22,3,0)="3.0^3051119^2960829"
-^DIC(9.4,127,22,3,"PAH",0)="^9.4901^128^128"
+^DIC(9.4,127,22,3,"PAH",0)="^9.4901^129^129"
 ^DIC(9.4,127,22,3,"PAH",1,0)="58^2961022^1"
 ^DIC(9.4,127,22,3,"PAH",1,1,0)="^^1^1^2961022"
 ^DIC(9.4,127,22,3,"PAH",1,1,1,0)="Surgery patch SR*3*58, SURGERY INTERFACE TO PCE."
@@ -186590,6 +186590,9 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,127,22,3,"PAH",128,0)="194^3181202.211547^17"
 ^DIC(9.4,127,22,3,"PAH",128,1,0)="^^1^1^3181202"
 ^DIC(9.4,127,22,3,"PAH",128,1,1,0)="HOSPITAL ADMISSION STATUS field defaults to an inactive code"
+^DIC(9.4,127,22,3,"PAH",129,0)="193^3190523.165305^17"
+^DIC(9.4,127,22,3,"PAH",129,1,0)="^^1^1^3190523"
+^DIC(9.4,127,22,3,"PAH",129,1,1,0)="Preoperative CVD data fields assigned invalid values"
 ^DIC(9.4,127,22,3,"PAH","B",41,22)=""
 ^DIC(9.4,127,22,3,"PAH","B",48,4)=""
 ^DIC(9.4,127,22,3,"PAH","B",50,27)=""
@@ -186608,6 +186611,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,127,22,3,"PAH","B",188,124)=""
 ^DIC(9.4,127,22,3,"PAH","B",189,126)=""
 ^DIC(9.4,127,22,3,"PAH","B",190,127)=""
+^DIC(9.4,127,22,3,"PAH","B",193,129)=""
 ^DIC(9.4,127,22,3,"PAH","B",194,128)=""
 ^DIC(9.4,127,22,3,"PAH","B","101 SEQ #97",44)=""
 ^DIC(9.4,127,22,3,"PAH","B","102 SEQ #98",45)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index e18beb0ed4d..e59f32bfc26 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
-23-MAY-2019 15:33:48 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11266^10906"
+23-MAY-2019 16:59:33 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11267^10907"
 ^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"
@@ -1217709,6 +1217709,61 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11266,"REQB",0)="^9.611^2^2"
 ^XPD(9.6,11266,"REQB",2,0)="PRC*5.1*93^2"
 ^XPD(9.6,11266,"REQB","B","PRC*5.1*93",2)=""
+^XPD(9.6,11267,0)="SR*3.0*193^127^0^3190307^y"
+^XPD(9.6,11267,1,0)="^^1^1^3180522^"
+^XPD(9.6,11267,1,1,0)="Preoperative CVD data fields assigned invalid values"
+^XPD(9.6,11267,4,0)="^9.64PA^^"
+^XPD(9.6,11267,6)="^183"
+^XPD(9.6,11267,6.3)=2
+^XPD(9.6,11267,"ABPKG")="n"
+^XPD(9.6,11267,"KRN",0)="^9.67PA^779.2^20"
+^XPD(9.6,11267,"KRN",.4,0)=.4
+^XPD(9.6,11267,"KRN",.401,0)=.401
+^XPD(9.6,11267,"KRN",.402,0)=.402
+^XPD(9.6,11267,"KRN",.403,0)=.403
+^XPD(9.6,11267,"KRN",.5,0)=.5
+^XPD(9.6,11267,"KRN",.84,0)=.84
+^XPD(9.6,11267,"KRN",3.6,0)=3.6
+^XPD(9.6,11267,"KRN",3.8,0)=3.8
+^XPD(9.6,11267,"KRN",9.2,0)=9.2
+^XPD(9.6,11267,"KRN",9.8,0)=9.8
+^XPD(9.6,11267,"KRN",9.8,"NM",0)="^9.68A^1^1"
+^XPD(9.6,11267,"KRN",9.8,"NM",1,0)="SROAPRE2^^0^B10941744"
+^XPD(9.6,11267,"KRN",9.8,"NM","B","SROAPRE2",1)=""
+^XPD(9.6,11267,"KRN",19,0)=19
+^XPD(9.6,11267,"KRN",19.1,0)=19.1
+^XPD(9.6,11267,"KRN",101,0)=101
+^XPD(9.6,11267,"KRN",409.61,0)=409.61
+^XPD(9.6,11267,"KRN",771,0)=771
+^XPD(9.6,11267,"KRN",779.2,0)=779.2
+^XPD(9.6,11267,"KRN",870,0)=870
+^XPD(9.6,11267,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11267,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11267,"KRN",8994,0)=8994
+^XPD(9.6,11267,"KRN","B",.4,.4)=""
+^XPD(9.6,11267,"KRN","B",.401,.401)=""
+^XPD(9.6,11267,"KRN","B",.402,.402)=""
+^XPD(9.6,11267,"KRN","B",.403,.403)=""
+^XPD(9.6,11267,"KRN","B",.5,.5)=""
+^XPD(9.6,11267,"KRN","B",.84,.84)=""
+^XPD(9.6,11267,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11267,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11267,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11267,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11267,"KRN","B",19,19)=""
+^XPD(9.6,11267,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11267,"KRN","B",101,101)=""
+^XPD(9.6,11267,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11267,"KRN","B",771,771)=""
+^XPD(9.6,11267,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11267,"KRN","B",870,870)=""
+^XPD(9.6,11267,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11267,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11267,"KRN","B",8994,8994)=""
+^XPD(9.6,11267,"QUES",0)="^9.62^^"
+^XPD(9.6,11267,"REQB",0)="^9.611^1^1"
+^XPD(9.6,11267,"REQB",1,0)="SR*3.0*184^2"
+^XPD(9.6,11267,"REQB","B","SR*3.0*184",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)=""
@@ -1227115,6 +1227170,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","SR*3.0*188",10366)=""
 ^XPD(9.6,"B","SR*3.0*189",10413)=""
 ^XPD(9.6,"B","SR*3.0*190",10795)=""
+^XPD(9.6,"B","SR*3.0*193",11267)=""
 ^XPD(9.6,"B","SR*3.0*194",11011)=""
 ^XPD(9.6,"B","SR*3.0*41",1569)=""
 ^XPD(9.6,"B","SR*3.0*47",178)=""
@@ -1236837,6 +1236893,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",127,10413)=""
 ^XPD(9.6,"C",127,10795)=""
 ^XPD(9.6,"C",127,11011)=""
+^XPD(9.6,"C",127,11267)=""
 ^XPD(9.6,"C",128,184)=""
 ^XPD(9.6,"C",128,185)=""
 ^XPD(9.6,"C",128,364)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index faa9dae6b87..52759c21e2a 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
-23-MAY-2019 15:34:09 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^10985^10843"
+23-MAY-2019 16:59:52 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^10986^10844"
 ^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"
@@ -844512,6 +844512,50 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,10985,"RTN","B","PRCSEB",4)=""
 ^XPD(9.7,10985,"RTN","B","PRCSEB0",5)=""
 ^XPD(9.7,10985,"RTN","B","PRCSUT",6)=""
+^XPD(9.7,10986,0)="SR*3.0*193^127^3190523.165259^10986^1^^0^0SR*3.0*193^3^0^17"
+^XPD(9.7,10986,1)="3190523.165305^3190523.165305^3190523.165305^3190307"
+^XPD(9.7,10986,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,10986,6)="^183"
+^XPD(9.7,10986,"INI",0)="^9.713^1^1"
+^XPD(9.7,10986,"INI",1,0)="XPD PREINSTALL COMPLETED^3190523.165305"
+^XPD(9.7,10986,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,10986,"INIT",0)="^9.716^1^1"
+^XPD(9.7,10986,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190523.165305"
+^XPD(9.7,10986,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,10986,"MES",0)="^^19^19^3190523"
+^XPD(9.7,10986,"MES",1,0)=" "
+^XPD(9.7,10986,"MES",2,0)=" Install Started for SR*3.0*193 : "
+^XPD(9.7,10986,"MES",3,0)="               May 23, 2019@16:53:05"
+^XPD(9.7,10986,"MES",4,0)=" "
+^XPD(9.7,10986,"MES",5,0)="Build Distribution Date: Mar 07, 2019"
+^XPD(9.7,10986,"MES",6,0)=" "
+^XPD(9.7,10986,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,10986,"MES",8,0)="               May 23, 2019@16:53:05"
+^XPD(9.7,10986,"MES",9,0)=" "
+^XPD(9.7,10986,"MES",10,0)=" Updating Routine file..."
+^XPD(9.7,10986,"MES",11,0)=" "
+^XPD(9.7,10986,"MES",12,0)=" Updating KIDS files..."
+^XPD(9.7,10986,"MES",13,0)=" "
+^XPD(9.7,10986,"MES",14,0)=" SR*3.0*193 Installed. "
+^XPD(9.7,10986,"MES",15,0)="               May 23, 2019@16:53:05"
+^XPD(9.7,10986,"MES",16,0)=" "
+^XPD(9.7,10986,"MES",17,0)=" Not a production UCI"
+^XPD(9.7,10986,"MES",18,0)=" "
+^XPD(9.7,10986,"MES",19,0)=" NO Install Message sent "
+^XPD(9.7,10986,"QUES",0)="^9.701^2^2"
+^XPD(9.7,10986,"QUES",1,0)="XPI1"
+^XPD(9.7,10986,"QUES",1,1)=0
+^XPD(9.7,10986,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,10986,"QUES",1,"B")="NO"
+^XPD(9.7,10986,"QUES",2,0)="XPZ1"
+^XPD(9.7,10986,"QUES",2,1)=0
+^XPD(9.7,10986,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,10986,"QUES",2,"B")="NO"
+^XPD(9.7,10986,"QUES","B","XPI1",1)=""
+^XPD(9.7,10986,"QUES","B","XPZ1",2)=""
+^XPD(9.7,10986,"RTN",0)="^9.704A^1^1"
+^XPD(9.7,10986,"RTN",1,0)="SROAPRE2"
+^XPD(9.7,10986,"RTN","B","SROAPRE2",1)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -855355,6 +855399,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",10983,1,10983)=""
 ^XPD(9.7,"ASP",10984,1,10984)=""
 ^XPD(9.7,"ASP",10985,1,10985)=""
+^XPD(9.7,"ASP",10986,1,10986)=""
 ^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)=""
@@ -864708,6 +864753,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","SR*3.0*188",10073)=""
 ^XPD(9.7,"B","SR*3.0*189",10121)=""
 ^XPD(9.7,"B","SR*3.0*190",10504)=""
+^XPD(9.7,"B","SR*3.0*193",10986)=""
 ^XPD(9.7,"B","SR*3.0*194",10721)=""
 ^XPD(9.7,"B","SR*3.0*41",1296)=""
 ^XPD(9.7,"B","SR*3.0*47",187)=""
diff --git a/Packages/Surgery/Routines/SROAPRE2.m b/Packages/Surgery/Routines/SROAPRE2.m
index 992cdc9d8be..49cef83ec09 100644
--- a/Packages/Surgery/Routines/SROAPRE2.m
+++ b/Packages/Surgery/Routines/SROAPRE2.m
@@ -1,5 +1,5 @@
 SROAPRE2 ;BIR/MAM - EDIT PAGE 2 PREOP ;07/18/2011
- ;;3.0;Surgery;**38,47,125,153,166,176,182,184**;24 Jun 93;Build 35
+ ;;3.0;Surgery;**38,47,125,153,166,176,182,184,193**;24 Jun 93;Build 2
  D @EMILY Q
 1 ; edit renal information
  W ! K DIR S X=$P(SRAO(1),"^") I X'="" S DIR("B")=X
@@ -35,7 +35,7 @@ S DIR(0)="130,245",DIR("A")="NUTRITIONAL/IMMUNE/OTHER" D ^DIR K DIR I $D(DUOUT)
  Q
 NOCNS ; no CNS problems
  F I=19,21,24,29 S $P(^SRF(SRTN,200),"^",I)=SRAX
- F I=13,14 S $P(^SRF(SRTN,200.1),"^",I)=$S(SRAX="N":0,1:SRAX)
+ F I=13,14 S $P(^SRF(SRTN,200.1),"^",I)=$S(SRAX="N":0,SRAX="NS":0,1:SRAX) ;p193 added condition SRAX="NS" to $SELECT statement.
  S $P(^SRF(SRTN,210),"^")=0
  Q
 NUT ; nutritional/immune/other