diff --git a/Packages/Integrated Billing/Routines/IB20P644.m b/Packages/Integrated Billing/Routines/IB20P644.m
new file mode 100644
index 00000000000..534261cb936
--- /dev/null
+++ b/Packages/Integrated Billing/Routines/IB20P644.m	
@@ -0,0 +1,41 @@
+IB20P644 ;ALB/CXW - POST INIT ROUTINE FOR IB*2.0*644 ;04/01/2019
+ ;;2.0;INTEGRATED BILLING;**644**;21-MAR-94;Build 4
+ ;;Per VA Directive 6402, this routine should not be modified.
+ Q
+ ;
+POST ; post init to update Format Code for Billing Provider Name (FL-1/1) in the #364.7 file
+ N IBZ,U S U="^"
+ D MSG("    IB*2.0*644 Post-Install starts .....")
+ D MSG(""),UPDATE,MSG("")
+ D MSG("    IB*2.0*644 Post-Install is complete.")
+ Q
+ ;
+UPDATE ; Format Code updates based on output formatter files
+ N IBCODE,IBX,IB353,IB353EN,IB3645,IB3645EN,IB3646,IB3646EN,IB3647EN,DA,DIE,DR,X,Y
+ S (IB353EN,IB3645EN,IB3646EN,IB3647EN)=0
+ S IB353="UB-04"
+ S IBX=0 F  S IBX=$O(^IBE(353,"B",IB353,IBX)) Q:'IBX  I $P($G(^IBE(353,IBX,2)),U,4) S IB353EN=IBX Q
+ I 'IB353EN D MSG(" >> ERROR: cannot find National "_IB353_" bill form in the #353 file") Q
+ S IB3646="BILLING PROVIDER NAME (FL-1/1)"
+ S IBX=0 F  S IBX=$O(^IBA(364.6,"C",IB3646,IBX)) Q:'IBX  I $P($G(^IBA(364.6,IBX,0)),U,1,2)=(IB353EN_"^N") S IB3646EN=IBX Q
+ I 'IB3646EN D MSG(" >> ERROR: cannot find National "_IB3646_" field in the #364.6 file") Q 
+ S IB3645="N-BILLING PROVIDER"
+ S IBX=0 F  S IBX=$O(^IBA(364.5,"B",IB3645,IBX)) Q:'IBX  I $P($G(^IBA(364.5,IBX,0)),U,2)="N" S IB3645EN=IBX Q
+ I 'IB3645EN D MSG(" >> ERROR: cannot find National "_IB3645_" field in the #364.5 file") Q
+ S IBX=0 F  S IBX=$O(^IBA(364.7,"B",IB3646EN,IBX)) Q:'IBX  I $P($G(^IBA(364.7,IBX,0)),U,2,3)="N^"_IB3645EN S IB3647EN=IBX Q
+ I 'IB3647EN D MSG(" >> ERROR: cannot find National "_IB3646_" field in the #364.7 file") Q
+ S IBCODE=$P($T(CODE+1),";",3)
+ I $G(^IBA(364.7,IB3647EN,1))=IBCODE D MSG("  Format code has already been updated for National "_IB3646_" in the #364.7 file!") Q
+ ;
+ ; set in format code 
+ S DA=IB3647EN,DIE="^IBA(364.7,",DR="1///"_IBCODE D ^DIE
+ ;
+ D MSG("  Format code updated for National "_IB3646_" in the #364.7 file!")
+ Q
+ ;
+MSG(IBZ) ;
+ D MES^XPDUTL(IBZ) Q
+ ;
+CODE ; format code - IA#2171 $$BNIEN^XUAF4 
+ ;;S IBXSAVE("BPDATA")=IBXDATA,IBXDATA=$$BNIEN^XUAF4(+IBXSAVE("BPDATA")) S:IBXDATA="" IBXDATA=$$GETFAC^IBCEP8(+IBXSAVE("BPDATA"),0,0)
+ ;;
diff --git a/Packages/Integrated Billing/Routines/IBCEFG1.m b/Packages/Integrated Billing/Routines/IBCEFG1.m
index 0ccbe8c5e40..9a81482af3a 100644
--- a/Packages/Integrated Billing/Routines/IBCEFG1.m	
+++ b/Packages/Integrated Billing/Routines/IBCEFG1.m	
@@ -1,6 +1,6 @@
 IBCEFG1 ;ALB/TMP - OUTPUT FORMATTER DATA DEFINITION UTILITIES ;18-JAN-96
- ;;2.0;INTEGRATED BILLING;**52,51,137,181,197,232,288,349,371,377**;21-MAR-94;Build 23
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;2.0;INTEGRATED BILLING;**52,51,137,181,197,232,288,349,371,377,644**;21-MAR-94;Build 4
+ ;;Per VA Directive 6402, this routine should not be modified.
  ;
 EDIBILL(IBXFORM,IBXDA,IBINS,IBTYP) ; Find element associated with form fld
  ; IBXFORM = (REQUIRED) actual form being extracted (in file 353)
@@ -123,6 +123,7 @@
  ;IBXSAVE = array containing the extracted service line data for the UB format bill
  ;IBXDATA = array returned with service line dates formatted in YYYYMMDD format
  ;IBDT = the default date for the revenue codes on the bill
+ ; *644 - replace 1st date with multiple dates
  N Q,W
- S Q=0 F  S Q=$O(IBXSAVE("INPT",Q)) Q:'Q  S W=$$DT($P(IBXSAVE("INPT",1),U,10),,"D8"),IBXDATA(Q)=$S(W:W,1:IBDT)
+ S Q=0 F  S Q=$O(IBXSAVE("INPT",Q)) Q:'Q  S W=$$DT($P(IBXSAVE("INPT",Q),U,10),,"D8"),IBXDATA(Q)=$S(W:W,1:IBDT)
  Q
diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index 7defbf089e4..64a1eea414b 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
-27-AUG-2019 03:37:59 ZWR
-^%ZTSK(-1)=5074
+27-AUG-2019 04:25:02 ZWR
+^%ZTSK(-1)=5078
 ^%ZTSK(0)="TASKS^14.4^5020"
 ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
 ^%ZTSK(1001,.02)="^PLA^^"
@@ -48225,6 +48225,47 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(5074,.3,"DUZ(",0)="@"
 ^%ZTSK(5074,.3,"XQSCH")=8
 ^%ZTSK(5074,.3,"XQY")=9891
+^%ZTSK(5075,0)="HOUR^XUTMHR^.5^^65252,15601^65252,15601^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(5075,.02)="^VISTA^^"
+^%ZTSK(5075,.03)="Taskman Hourly Job"
+^%ZTSK(5075,.04)=5637788401
+^%ZTSK(5075,.1)="B^65252,15661^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5075,.2)=""
+^%ZTSK(5075,.21)=""
+^%ZTSK(5075,.25)=""
+^%ZTSK(5076,0)="ZTSK^XQ1^.5^VISTA^65252,15661^65252,15661^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5076,.02)="^VISTA^^"
+^%ZTSK(5076,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5076,.04)=5637788461
+^%ZTSK(5076,.1)="B^65252,15663^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5076,.2)=""
+^%ZTSK(5076,.21)=""
+^%ZTSK(5076,.25)=""
+^%ZTSK(5076,.3,"DUZ(",0)="@"
+^%ZTSK(5076,.3,"XQSCH")=10
+^%ZTSK(5076,.3,"XQY")=8853
+^%ZTSK(5077,0)="ZTSK^XQ1^.5^VISTA^65252,15661^65252,15661^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5077,.02)="^VISTA^^"
+^%ZTSK(5077,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5077,.04)=5637788461
+^%ZTSK(5077,.1)="B^65252,15665^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5077,.2)=""
+^%ZTSK(5077,.21)=""
+^%ZTSK(5077,.25)=""
+^%ZTSK(5077,.3,"DUZ(",0)="@"
+^%ZTSK(5077,.3,"XQSCH")=11
+^%ZTSK(5077,.3,"XQY")=8412
+^%ZTSK(5078,0)="ZTSK^XQ1^.5^VISTA^65252,15661^65252,15661^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(5078,.02)="^VISTA^^"
+^%ZTSK(5078,.03)="No Description (%ZTLOAD)"
+^%ZTSK(5078,.04)=5637788461
+^%ZTSK(5078,.1)="B^65252,15667^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(5078,.2)=""
+^%ZTSK(5078,.21)=""
+^%ZTSK(5078,.25)=""
+^%ZTSK(5078,.3,"DUZ(",0)="@"
+^%ZTSK(5078,.3,"XQSCH")=8
+^%ZTSK(5078,.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 818e0f183db..ddb4900e9b9 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
-27-AUG-2019 03:38:02 ZWR
+27-AUG-2019 04:25:05 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -104462,7 +104462,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,49,20,"B",2,1)=""
 ^DIC(9.4,49,22,0)="^9.49I^10^1"
 ^DIC(9.4,49,22,10,0)="2.0^3051119^2960627"
-^DIC(9.4,49,22,10,"PAH",0)="^9.4901^512^512"
+^DIC(9.4,49,22,10,"PAH",0)="^9.4901^513^513"
 ^DIC(9.4,49,22,10,"PAH",1,0)="55^2960807^1"
 ^DIC(9.4,49,22,10,"PAH",1,1,0)="^^5^5^2960807"
 ^DIC(9.4,49,22,10,"PAH",1,1,1,0)="Patch IB*2*55 for Integrated Billing adds the ability to flag Stop Codes"
@@ -109140,6 +109140,14 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,49,22,10,"PAH",511,1,1,0)="REASONABLE CHARGES V3.25; REVENUE CODE #124 FOR 5 MH MS-DRGS OF R&B CHARGE"
 ^DIC(9.4,49,22,10,"PAH",511,1,2,0)="ITEMS"
 ^DIC(9.4,49,22,10,"PAH",512,0)="633^3190826.223416^17"
+^DIC(9.4,49,22,10,"PAH",513,0)="644^3190827.042122^17"
+^DIC(9.4,49,22,10,"PAH",513,1,0)="^^6^6^3190827"
+^DIC(9.4,49,22,10,"PAH",513,1,1,0)="This patch addresses the following issues:"
+^DIC(9.4,49,22,10,"PAH",513,1,2,0)=" "
+^DIC(9.4,49,22,10,"PAH",513,1,3,0)="-Insurance claims with multiple service line items/dates on the bill were"
+^DIC(9.4,49,22,10,"PAH",513,1,4,0)=" not transmitted electronically properly."
+^DIC(9.4,49,22,10,"PAH",513,1,5,0)="-The BILLING FACILITY NAME (#200) field in the INSTITUTION (#4) file was "
+^DIC(9.4,49,22,10,"PAH",513,1,6,0)=" not correctly populated on the uniform billing form UB-04 FL-1."
 ^DIC(9.4,49,22,10,"PAH","B",51,74)=""
 ^DIC(9.4,49,22,10,"PAH","B",52,15)=""
 ^DIC(9.4,49,22,10,"PAH","B",55,1)=""
@@ -109276,6 +109284,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,49,22,10,"PAH","B",634,511)=""
 ^DIC(9.4,49,22,10,"PAH","B",635,498)=""
 ^DIC(9.4,49,22,10,"PAH","B",637,508)=""
+^DIC(9.4,49,22,10,"PAH","B",644,513)=""
 ^DIC(9.4,49,22,10,"PAH","B","100 SEQ #102",42)=""
 ^DIC(9.4,49,22,10,"PAH","B","101 SEQ #104",44)=""
 ^DIC(9.4,49,22,10,"PAH","B","102 SEQ #90",32)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index 719162d412d..6a5b2f1a4b5 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
-27-AUG-2019 03:41:13 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11295^10935"
+27-AUG-2019 04:27:41 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11296^10936"
 ^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"
@@ -1220156,6 +1220156,76 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11295,"QDEF")="^^^^^^^^^^YES"
 ^XPD(9.6,11295,"QUES",0)="^9.62^^"
 ^XPD(9.6,11295,"REQB",0)="^9.611^^"
+^XPD(9.6,11296,0)="IB*2.0*644^49^0^3190425^y"
+^XPD(9.6,11296,1,0)="^^6^6^3190425^"
+^XPD(9.6,11296,1,1,0)="This patch addresses the following issues:"
+^XPD(9.6,11296,1,2,0)=" "
+^XPD(9.6,11296,1,3,0)="-Insurance claims with multiple service line items/dates on the bill were"
+^XPD(9.6,11296,1,4,0)=" not transmitted electronically properly."
+^XPD(9.6,11296,1,5,0)="-The BILLING FACILITY NAME (#200) field in the INSTITUTION (#4) file was "
+^XPD(9.6,11296,1,6,0)=" not correctly populated on the uniform billing form UB-04 FL-1."
+^XPD(9.6,11296,4,0)="^9.64PA^^"
+^XPD(9.6,11296,6)="^586"
+^XPD(9.6,11296,6.3)=4
+^XPD(9.6,11296,"INIT")="POST^IB20P644"
+^XPD(9.6,11296,"KRN",0)="^9.67PA^1.5^24"
+^XPD(9.6,11296,"KRN",.4,0)=.4
+^XPD(9.6,11296,"KRN",.401,0)=.401
+^XPD(9.6,11296,"KRN",.402,0)=.402
+^XPD(9.6,11296,"KRN",.403,0)=.403
+^XPD(9.6,11296,"KRN",.5,0)=.5
+^XPD(9.6,11296,"KRN",.84,0)=.84
+^XPD(9.6,11296,"KRN",1.5,0)=1.5
+^XPD(9.6,11296,"KRN",1.6,0)=1.6
+^XPD(9.6,11296,"KRN",1.61,0)=1.61
+^XPD(9.6,11296,"KRN",1.62,0)=1.62
+^XPD(9.6,11296,"KRN",3.6,0)=3.6
+^XPD(9.6,11296,"KRN",3.8,0)=3.8
+^XPD(9.6,11296,"KRN",9.2,0)=9.2
+^XPD(9.6,11296,"KRN",9.8,0)=9.8
+^XPD(9.6,11296,"KRN",9.8,"NM",0)="^9.68A^2^2"
+^XPD(9.6,11296,"KRN",9.8,"NM",1,0)="IBCEFG1^^0^B23251268"
+^XPD(9.6,11296,"KRN",9.8,"NM",2,0)="IB20P644^^0^B7540275"
+^XPD(9.6,11296,"KRN",9.8,"NM","B","IB20P644",2)=""
+^XPD(9.6,11296,"KRN",9.8,"NM","B","IBCEFG1",1)=""
+^XPD(9.6,11296,"KRN",19,0)=19
+^XPD(9.6,11296,"KRN",19.1,0)=19.1
+^XPD(9.6,11296,"KRN",101,0)=101
+^XPD(9.6,11296,"KRN",409.61,0)=409.61
+^XPD(9.6,11296,"KRN",771,0)=771
+^XPD(9.6,11296,"KRN",779.2,0)=779.2
+^XPD(9.6,11296,"KRN",870,0)=870
+^XPD(9.6,11296,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11296,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11296,"KRN",8994,0)=8994
+^XPD(9.6,11296,"KRN","B",.4,.4)=""
+^XPD(9.6,11296,"KRN","B",.401,.401)=""
+^XPD(9.6,11296,"KRN","B",.402,.402)=""
+^XPD(9.6,11296,"KRN","B",.403,.403)=""
+^XPD(9.6,11296,"KRN","B",.5,.5)=""
+^XPD(9.6,11296,"KRN","B",.84,.84)=""
+^XPD(9.6,11296,"KRN","B",1.5,1.5)=""
+^XPD(9.6,11296,"KRN","B",1.6,1.6)=""
+^XPD(9.6,11296,"KRN","B",1.61,1.61)=""
+^XPD(9.6,11296,"KRN","B",1.62,1.62)=""
+^XPD(9.6,11296,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11296,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11296,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11296,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11296,"KRN","B",19,19)=""
+^XPD(9.6,11296,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11296,"KRN","B",101,101)=""
+^XPD(9.6,11296,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11296,"KRN","B",771,771)=""
+^XPD(9.6,11296,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11296,"KRN","B",870,870)=""
+^XPD(9.6,11296,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11296,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11296,"KRN","B",8994,8994)=""
+^XPD(9.6,11296,"QUES",0)="^9.62^^"
+^XPD(9.6,11296,"REQB",0)="^9.611^1^1"
+^XPD(9.6,11296,"REQB",1,0)="IB*2.0*377^2"
+^XPD(9.6,11296,"REQB","B","IB*2.0*377",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)=""
@@ -1223480,6 +1223550,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","IB*2.0*635",11081)=""
 ^XPD(9.6,"B","IB*2.0*637",11191)=""
 ^XPD(9.6,"B","IB*2.0*64",334)=""
+^XPD(9.6,"B","IB*2.0*644",11296)=""
 ^XPD(9.6,"B","IB*2.0*66",516)=""
 ^XPD(9.6,"B","IB*2.0*68",540)=""
 ^XPD(9.6,"B","IB*2.0*69",578)=""
@@ -1235338,6 +1235409,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",49,11262)=""
 ^XPD(9.6,"C",49,11263)=""
 ^XPD(9.6,"C",49,11288)=""
+^XPD(9.6,"C",49,11296)=""
 ^XPD(9.6,"C",52,41)=""
 ^XPD(9.6,"C",52,42)=""
 ^XPD(9.6,"C",52,43)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index cfb7ac16b72..2bb9507d9f6 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
-27-AUG-2019 03:41:38 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^11014^10872"
+27-AUG-2019 04:28:06 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^11015^10873"
 ^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"
@@ -846378,6 +846378,62 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,11014,"QUES",2,"B")="NO"
 ^XPD(9.7,11014,"QUES","B","XPI1",1)=""
 ^XPD(9.7,11014,"QUES","B","XPZ1",2)=""
+^XPD(9.7,11015,0)="IB*2.0*644^49^3190827.042101^11015^1^^0^0IB*2.0*644^3^0^17"
+^XPD(9.7,11015,1)="3190827.042121^3190827.042122^3190827.042122^3190425"
+^XPD(9.7,11015,2)="Extracted from mail message  ;Created on "
+^XPD(9.7,11015,6)="^586"
+^XPD(9.7,11015,"INI",0)="^9.713^1^1"
+^XPD(9.7,11015,"INI",1,0)="XPD PREINSTALL COMPLETED^3190827.042122"
+^XPD(9.7,11015,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,11015,"INIT",0)="^9.716^2^2"
+^XPD(9.7,11015,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190827.042122"
+^XPD(9.7,11015,"INIT",2,0)="XPD POSTINSTALL STARTED^3190827.042122"
+^XPD(9.7,11015,"INIT",2,1)="POST^IB20P644"
+^XPD(9.7,11015,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,11015,"INIT","B","XPD POSTINSTALL STARTED",2)=""
+^XPD(9.7,11015,"MES",0)="^^26^26^3190827"
+^XPD(9.7,11015,"MES",1,0)=" "
+^XPD(9.7,11015,"MES",2,0)=" Install Started for IB*2.0*644 : "
+^XPD(9.7,11015,"MES",3,0)="               Aug 27, 2019@04:21:21"
+^XPD(9.7,11015,"MES",4,0)=" "
+^XPD(9.7,11015,"MES",5,0)="Build Distribution Date: Apr 25, 2019"
+^XPD(9.7,11015,"MES",6,0)=" "
+^XPD(9.7,11015,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,11015,"MES",8,0)="               Aug 27, 2019@04:21:22"
+^XPD(9.7,11015,"MES",9,0)=" "
+^XPD(9.7,11015,"MES",10,0)=" Running Post-Install Routine: POST^IB20P644"
+^XPD(9.7,11015,"MES",11,0)="    IB*2.0*644 Post-Install starts ....."
+^XPD(9.7,11015,"MES",12,0)=""
+^XPD(9.7,11015,"MES",13,0)="  Format code updated for National BILLING PROVIDER NAME (FL-1/1) in the #364.7 file!"
+^XPD(9.7,11015,"MES",14,0)=""
+^XPD(9.7,11015,"MES",15,0)="    IB*2.0*644 Post-Install is complete."
+^XPD(9.7,11015,"MES",16,0)=" "
+^XPD(9.7,11015,"MES",17,0)=" Updating Routine file..."
+^XPD(9.7,11015,"MES",18,0)=" "
+^XPD(9.7,11015,"MES",19,0)=" Updating KIDS files..."
+^XPD(9.7,11015,"MES",20,0)=" "
+^XPD(9.7,11015,"MES",21,0)=" IB*2.0*644 Installed. "
+^XPD(9.7,11015,"MES",22,0)="               Aug 27, 2019@04:21:22"
+^XPD(9.7,11015,"MES",23,0)=" "
+^XPD(9.7,11015,"MES",24,0)=" Not a production UCI"
+^XPD(9.7,11015,"MES",25,0)=" "
+^XPD(9.7,11015,"MES",26,0)=" NO Install Message sent "
+^XPD(9.7,11015,"QUES",0)="^9.701^2^2"
+^XPD(9.7,11015,"QUES",1,0)="XPI1"
+^XPD(9.7,11015,"QUES",1,1)=0
+^XPD(9.7,11015,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,11015,"QUES",1,"B")="NO"
+^XPD(9.7,11015,"QUES",2,0)="XPZ1"
+^XPD(9.7,11015,"QUES",2,1)=0
+^XPD(9.7,11015,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,11015,"QUES",2,"B")="NO"
+^XPD(9.7,11015,"QUES","B","XPI1",1)=""
+^XPD(9.7,11015,"QUES","B","XPZ1",2)=""
+^XPD(9.7,11015,"RTN",0)="^9.704A^2^2"
+^XPD(9.7,11015,"RTN",1,0)="IB20P644"
+^XPD(9.7,11015,"RTN",2,0)="IBCEFG1"
+^XPD(9.7,11015,"RTN","B","IB20P644",1)=""
+^XPD(9.7,11015,"RTN","B","IBCEFG1",2)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -857250,6 +857306,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",11012,1,11012)=""
 ^XPD(9.7,"ASP",11013,1,11013)=""
 ^XPD(9.7,"ASP",11014,1,11014)=""
+^XPD(9.7,"ASP",11015,1,11015)=""
 ^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)=""
@@ -860482,6 +860539,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","IB*2.0*635",10800)=""
 ^XPD(9.7,"B","IB*2.0*637",10910)=""
 ^XPD(9.7,"B","IB*2.0*64",349)=""
+^XPD(9.7,"B","IB*2.0*644",11015)=""
 ^XPD(9.7,"B","IB*2.0*66",529)=""
 ^XPD(9.7,"B","IB*2.0*68",553)=""
 ^XPD(9.7,"B","IB*2.0*69",593)=""
diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
index 5333c0734ff..8afa0227c8c 100644
--- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr
+++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: ROUTINE
-27-AUG-2019 02:50:56 ZWR
-^DIC(9.8,0)="ROUTINE^9.8^36101^29171"
+27-AUG-2019 04:25:17 ZWR
+^DIC(9.8,0)="ROUTINE^9.8^36102^29172"
 ^DIC(9.8,0,"DD")="#"
 ^DIC(9.8,0,"DEL")="#"
 ^DIC(9.8,0,"GL")="^DIC(9.8,"
@@ -28492,7 +28492,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,7390,8,1,0)="COMPARE INTEGRATED BILLING 2.0^9164522/22935035"
 ^DIC(9.8,7390,8,"B","COMPARE INTEGRATED BILLING 2.0",1)=""
 ^DIC(9.8,7391,0)="IBCEFG1^R"
-^DIC(9.8,7391,4.1)=3080722.075242
+^DIC(9.8,7391,4.1)=3190827.042122
 ^DIC(9.8,7391,8,0)="^9.818^1^1"
 ^DIC(9.8,7391,8,1,0)="COMPARE INTEGRATED BILLING 2.0^10344392/26164833"
 ^DIC(9.8,7391,8,"B","COMPARE INTEGRATED BILLING 2.0",1)=""
@@ -114882,6 +114882,8 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,36100,4.1)=3190827.000226
 ^DIC(9.8,36101,0)="DG53976P^R"
 ^DIC(9.8,36101,4.1)=3190827.024659
+^DIC(9.8,36102,0)="IB20P644^R"
+^DIC(9.8,36102,4.1)=3190827.042122
 ^DIC(9.8,"%",0)="^1.005^1^1"
 ^DIC(9.8,"%",1,0)="XU"
 ^DIC(9.8,"%","B","XU",1)=""
@@ -123121,6 +123123,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","IB20P632",35809)=""
 ^DIC(9.8,"B","IB20P635",35774)=""
 ^DIC(9.8,"B","IB20P637",35970)=""
+^DIC(9.8,"B","IB20P644",36102)=""
 ^DIC(9.8,"B","IB20POST",7604)=""
 ^DIC(9.8,"B","IB20PRE",10654)=""
 ^DIC(9.8,"B","IB20PT",10655)=""