diff --git a/Packages/Enrollment Application System/Routines/EASCM.m b/Packages/Enrollment Application System/Routines/EASCM.m
index b1f255e7f4a..f6a6acf539f 100644
--- a/Packages/Enrollment Application System/Routines/EASCM.m	
+++ b/Packages/Enrollment Application System/Routines/EASCM.m	
@@ -1,5 +1,5 @@
-EASCM ;ALB/PJH - PROCESS INCOME TEST (Z10) TRANSMISSIONS ; 7/1/09 3:36pm
- ;;1.0;ENROLLMENT APPLICATION SYSTEM;**71,96,152**; 15-MAR-01;Build 5
+EASCM ;ALB/PJH,JAM - PROCESS INCOME TEST (Z10) TRANSMISSIONS ;7/1/09 3:36pm
+ ;;1.0;ENROLLMENT APPLICATION SYSTEM;**71,96,152,172**;15-MAR-01;Build 3
  ;
  ;CLONED FROM IVMCM (ESR EVENT DRIVER)
  ;
@@ -111,7 +111,12 @@
  ;
  ; - check HL7 msg structure for errors
  K HLERR,^TMP($J,"IVMCM")
+ ; jam; EAS*1.0*172 - set IVMSSNFLAG=0 and quit processing if the flag is set upon return from ^IVMCMC
+ ;  (see ^IVMCMC for what sets this flag)
+ N IVMSSNFLAG
+ S IVMSSNFLAG=0
  D ^IVMCMC I $D(HLERR) K:HLERR="" HLERR Q
+ I IVMSSNFLAG Q
  ;
  ; Determine type of test/transmission
  S IVMTYPE=0
diff --git a/Packages/Income Verification Match/Routines/IVM2174F.m b/Packages/Income Verification Match/Routines/IVM2174F.m
new file mode 100644
index 00000000000..2d5f0e0587c
--- /dev/null
+++ b/Packages/Income Verification Match/Routines/IVM2174F.m	
@@ -0,0 +1,151 @@
+IVM2174F ;ALB/JAM - IVM*2.0*174 - FIX BLANK SSN IN PERSON INCOME FILE ;9/26/2018 3:21pm
+ ;;2.0;INCOME VERIFICATION MATCH;**174**;21-OCT-94;Build 15
+ ;
+ Q
+EP ; Entry Point
+ Q
+IVMFSSN(DFN,IVMJOB) ; Process only ZDP segments to store SSNs into 408.13 file if IEN is in ^XTMP("DG53970P")
+ ; Called by: ^IVMCM if DFN is defined in ^XTMP("DG53970P") when processing ORU-Z10 message
+ ;
+ ; Input:   DFN - Patient DFN from the ORU-Z10 PID
+ ;          IVMJOB - job number in ^XTMP("DG53970P",JOB)
+ ;
+ N IVMCTR,IVMSEG,IVMVAL,IEN,IVMIEN,IVMFOUND,IVMIENCNT
+ ; spouse segment
+ S IVMSEG=$G(^TMP($J,"IVMCM","ZDPS"))
+ I IVMSEG'="" D FILESSN(DFN,IVMJOB,IVMSEG)
+ ; inactive spouse segments
+ S IVMCTR=0
+ F  S IVMCTR=$O(^TMP($J,"IVMCM","ZDPIS",IVMCTR)) Q:(IVMCTR="")  D
+ . S IVMSEG=$G(^TMP($J,"IVMCM","ZDPIS",IVMCTR)) Q:IVMSEG=""
+ . D FILESSN(DFN,IVMJOB,IVMSEG)
+ ; dependent segments
+ S IVMCTR=0
+ F  S IVMCTR=$O(^TMP($J,"IVMCM","ZDPC",IVMCTR)) Q:(IVMCTR="")  D
+ . S IVMSEG=$G(^TMP($J,"IVMCM","ZDPC",IVMCTR)) Q:IVMSEG=""
+ . D FILESSN(DFN,IVMJOB,IVMSEG)
+ ; inactive dependent segments
+ S IVMCTR=0
+ F  S IVMCTR=$O(^TMP($J,"IVMCM","ZDPIC",IVMCTR)) Q:(IVMCTR="")  D
+ . S IVMSEG=$G(^TMP($J,"IVMCM","ZDPIC",IVMCTR)) Q:IVMSEG=""
+ . D FILESSN(DFN,IVMJOB,IVMSEG)
+ ; All ZDP segments processed
+ ; If all IENs related to the DFN are gone from ^XTMP, remove the DFN from ^XTMP
+ S IVMFOUND=0
+ ; For the DFN, loop over ALL the dependent IENs in the 408.12 file "B" index
+ S IEN="" F  S IEN=$O(^DGPR(408.12,"B",DFN,IEN)) Q:'IEN  D  Q:IVMFOUND
+ . ; get the related 408.13 IEN
+ . S IVMVAL=$P(^DGPR(408.12,IEN,0),"^",3)
+ . I $P(IVMVAL,";",2)'="DGPR(408.13," Q
+ . S IVMIEN=$P(IVMVAL,";",1)
+ . S IVMIENCNT=0
+ . ; If IVMIEN is in ^XTMP("DG53970P",IVMJOB,"SSN",count)=IVMIEN set flag
+ . F  S IVMIENCNT=$O(^XTMP("DG53970P",IVMJOB,"SSN",IVMIENCNT)) Q:'IVMIENCNT  I ^XTMP("DG53970P",IVMJOB,"SSN",IVMIENCNT)=IVMIEN S IVMFOUND=1 Q
+ ; If no IENs found, clear the DFN out of the ^XTMP global
+ I 'IVMFOUND K ^XTMP("DG53970P",IVMJOB,"DFN",DFN)
+ Q
+FILESSN(DFN,IVMJOB,IVMSEG) ; Check segment and store SSN in 408.13 if criteria met
+ ; Input:   DFN - DFN from PID segment
+ ;          IVMJOB - job number in ^XTMP("DG53970P",JOB) 
+ ;          IVMSEG - the ZDPS or ZDPC segment
+ N IVMPRI,IVMVAL,IVMIEN,IVMFOUND,IVMIENCNT,IVMSSN,IVMPSSNR,IVMFLG1,IVMERR
+ N IVMSEX,IVMSEX13,IVMDOB,IVMDOB13,IVMRELN,IVMRELO
+ N FDA,IVMERRORS,DIERR
+ S IVMRELN=$P(IVMSEG,"^",6)
+ ; skip segment if RELATIONSHIP is SELF
+ Q:IVMRELN=1
+ S IVMPRI=$P(IVMSEG,"^",7) ; ien of patient relation file 408.12
+ ; if IEN not supplied, derive it by looping over dependents in 408.12 file
+ I IVMPRI="" D
+ . ; get Sex and DOB from segment
+ . S IVMSEX=$P(IVMSEG,"^",3),IVMDOB=$$FMDATE^HLFNC($P(IVMSEG,"^",4))
+ . S IVMFLG1=0
+ . ; loop over dependents for this DFN in the 408.12 file
+ . S IVMPRI=0 F  S IVMPRI=$O(^DGPR(408.12,"B",DFN,IVMPRI)) Q:'IVMPRI  D  Q:IVMFLG1
+ . . ; Get Relationship, DOB, and Sex from income person file 408.13
+ . . D GETIP(IVMPRI,.IVMRELO,.IVMDOB13,.IVMSEX13)
+ . . Q:(IVMRELO=1)  ; quit if RELATIONSHIP is SELF
+ . . ; match sex, dob and relationship from segment with values from 408.13 file 
+ . . I (IVMSEX=IVMSEX13)&(IVMDOB=IVMDOB13)&(IVMRELN=IVMRELO) S IVMFLG1=1   ; Match - found dependent in 408.13.
+ ; If dependent IEN from 408.12 file not defined - Quit
+ Q:IVMPRI=""
+ ; get the related 408.13 IEN
+ S IVMVAL=$P(^DGPR(408.12,IVMPRI,0),"^",3)
+ I $P(IVMVAL,";",2)'="DGPR(408.13," Q
+ S IVMIEN=$P(IVMVAL,";",1) ; ien of income person file 408.13
+ S IVMFOUND=0,IVMIENCNT=0
+ ; loop over IENs in ^XTMP to see if IVMIEN is there
+ F  S IVMIENCNT=$O(^XTMP("DG53970P",IVMJOB,"SSN",IVMIENCNT)) Q:'IVMIENCNT  I ^XTMP("DG53970P",IVMJOB,"SSN",IVMIENCNT)=IVMIEN S IVMFOUND=1 Q
+ Q:'IVMFOUND
+ ; IVMIEN is the IEN that needs the SSN updated in 408.13 - ^DGPR(408.13,IEN,0) piece 9
+ S IVMSSN=$P(IVMSEG,"^",5) ;SSN
+ ; Validate the SSN and if not valid, place the error in the ^XTMP global and quit
+ S IVMERR=""
+ I '$$VALSSN(IVMSSN,.IVMERR) S ^XTMP("DG53970P",IVMJOB,"SSNERR",IVMIEN)=$G(IVMERR) Q
+ ; strip dashes
+ S IVMSSN=$TR(IVMSSN,"-")
+ ; check for Pseudo SSN
+ S IVMPSSNR=$P(IVMSEG,"^",10) ;Pseudo SSN Reason
+ ; If not valid value, set it to null
+ I IVMPSSNR]"",IVMPSSNR'="R",IVMPSSNR'="S",IVMPSSNR'="N" S IVMPSSNR=""
+ ; If there is a valid Pseudo SSN Reason, then append a "P" to the end
+ ;  of the SSN so that it can be recognized on VistA as a pseudo
+ I IVMPSSNR'="" S IVMSSN=$G(IVMSSN)_"P"
+ ; Recheck the SSN field in 408.13 file and if corrupted, clean it up
+ D CHKSSN(IVMIEN)
+ ; Update the SSN - if not successful, place the error in the ^XTMP global and quit
+ S FDA(408.13,IVMIEN_",",.09)=IVMSSN
+ S FDA(408.13,IVMIEN_",",.1)=IVMPSSNR
+ D FILE^DIE("K","FDA","IVMERRORS(1)")
+ I +$G(DIERR) D  Q
+ . S IVMERR=$G(IVMERRORS(1,"DIERR",1,"TEXT",1))
+ . S ^XTMP("DG53970P",IVMJOB,"SSNERR",IVMIEN)=IVMERR
+ ; update was successful, clean the IEN out of the ^XTMP global
+ K ^XTMP("DG53970P",IVMJOB,"SSN",IVMIENCNT),^XTMP("DG53970P",IVMJOB,"SSNERR",IVMIEN)
+ Q
+VALSSN(X,ERROR) ; Validate the SSN format
+ ; Input:  X - SSN to validate
+ ;         ERROR - pass by reference, returns error text if validation fails
+ ; Output: 1 if valid, 0 if invalid
+ N CNT
+ I X'?9N&(X'?3N1"-"2N1"-"4N) S ERROR="SSN must be either nine numbers, or be in the format nnn-nn-nnnn." Q 0
+ ; strip dashes
+ I X'?.AN F CNT=1:1:$L(X) I $E(X,CNT)?1P S X=$E(X,0,CNT-1)_$E(X,CNT+1,999),CNT=CNT-1
+ I X'?9N S ERROR="Invalid format for SSN." Q 0
+ I $E(X,1)=9 S ERROR="The SSN must not begin with 9." Q 0
+ I $E(X,1,3)="000" S ERROR="First three digits of SSN cannot be zeros." Q 0
+ Q 1
+GETIP(IVMPRI,IVMRELO,IVMDOB13,IVMSEX13) ; Return 408.13 Sex,DOB,Relationship via 408.12 record
+ ; Input: IVMPRI - IEN of 408.12 entry
+ ;        IVMRELO - Relationship from 408.12 piece 2 (pass by ref)
+ ;        IVMDOB13 - Date of Birth from 408.13 piece 3 (pass by ref)
+ ;        IVMSEX13 - Sex from 408.13 piece 2  (pass by ref)
+ N IVMPRN
+ S IVMPRN=$G(^DGPR(408.12,+IVMPRI,0))
+ S IVMRELO=$P(IVMPRN,"^",2)
+ I IVMPRN']"" Q
+ ; Quit if RELATIONSHIP is SELF
+ Q:IVMRELO=1
+ N IVMSEG13
+ ; ivmseg13 is 0 node of income person file 408.13
+ S IVMSEG13=$$DEM^DGMTU1(IVMPRI)
+ I IVMSEG13']"" Q   ; Can't find 408.13 record
+ ; get Sex and DOB from 408.13 file
+ S IVMSEX13=$P(IVMSEG13,"^",2),IVMDOB13=$P(IVMSEG13,"^",3)
+ Q
+CHKSSN(IEN) ; Check to see if SSN IN 408.13 is corrupted and clean up if it is
+ ; Input:  IEN - 408.13 ien
+ N IVMSSN
+ S IVMSSN=$P(^DGPR(408.13,IEN,0),"^",9)
+ I IVMSSN=" "!(IVMSSN=" P") D
+ . S $P(^DGPR(408.13,IEN,0),"^",9)=""
+ . ; we have to assume the xrefs are bad and need to be cleaned up
+ . D XREF(IEN)
+ Q
+XREF(IEN) ; clean "SSN", "BS" and "BS5" xrefs for this INCOME PERSON file (#408.13) record
+ N VAL,XREF
+ F XREF="SSN","BS","BS5" D
+ . S VAL=""
+ . F  S VAL=$O(^DGPR(408.13,XREF,VAL)) Q:VAL=""  D
+ . . I $D(^DGPR(408.13,XREF,VAL,IEN)) K ^DGPR(408.13,XREF,VAL,IEN)
+ Q
diff --git a/Packages/Income Verification Match/Routines/IVM2174P.m b/Packages/Income Verification Match/Routines/IVM2174P.m
new file mode 100644
index 00000000000..08ec2b97866
--- /dev/null
+++ b/Packages/Income Verification Match/Routines/IVM2174P.m	
@@ -0,0 +1,95 @@
+IVM2174P ;ALB/JAM - IVM*2.0*174 POST-INSTALL TO FIX DEPENDENT SSN IN (#408.13) FILE ;9/26/2018 3:21pm
+ ;;2.0;INCOME VERIFICATION MATCH;**174**;21-OCT-94;Build 15
+ ;
+ Q
+EP ; Entry Point
+ ; Extend the expiration date of the ^XTMP("DG53970P") global to +120 days
+ S $P(^XTMP("DG53970P",0),"^",1)=$$FMADD^XLFDT(DT,120)
+ ;
+ N ZTRTN,ZTDESC,ZTDTH,IVMTEXT,ZTIO,ZTSK
+ S IVMTEXT(1)="    >>> Tasking job to gather list of ICNs/DFNs in ^XTMP(""DG53970P"" global"
+ S IVMTEXT(2)="    that need an update of dependent SSNs..."
+ D BMES^XPDUTL(.IVMTEXT)
+ ; Quit if already installed
+ I $$PATCH^XPDUTL("IVM*2.0*174") D MES^XPDUTL("    Job does not need to be run since patch has been installed previously.") Q
+ ;queue off job
+ S ZTRTN="TASK^IVM2174P"
+ S ZTDESC="IVM*2.0*174 Gather list of ICNs/DFNs in ^XTMP(""DG53970P"") that need update of dependent SSNs."
+ S ZTDTH=$$NOW^XLFDT
+ S ZTIO=""
+ D ^%ZTLOAD
+ K IVMTEXT
+ S IVMTEXT(1)="    The task number is "_$G(ZTSK)_"."
+ D MES^XPDUTL(.IVMTEXT)
+ Q
+TASK ;Build and send MailMan message with list of patient records needing SSN updates
+ N JOB,DFN,IEN,PCNT,ICN,I,DCNT,IENCNT,VAL,XIEN,FOUND,LINE
+ S (PCNT,JOB,DCNT)=0
+ K ^TMP("IVM2174P")
+ S JOB=$O(^XTMP("DG53970P",JOB))
+ I JOB D GETDATA
+ D MSG
+ K ^TMP("IVM2174P")
+ Q
+GETDATA ; loop over DFNs in ^XTMP("DG53970P",JOB,"DFN") - store all data in ^TMP global 
+ S DFN=0
+ F I=1:1 S DFN=$O(^XTMP("DG53970P",JOB,"DFN",DFN)) Q:'DFN  D
+ . S PCNT=PCNT+1
+ . ; get the ICN and store the ICN/DFN
+ . S ICN=$$GETICN^MPIF001(DFN)
+ . S ^TMP("IVM2174P",$J,"DFN",I)=ICN_"/"_DFN
+ . ; for this DFN, loop over the associated IENs in the 408.12 file "B" index
+ . S IEN="" F  S IEN=$O(^DGPR(408.12,"B",DFN,IEN)) Q:'IEN  D
+ . . ; get the related 408.13 IEN
+ . . S VAL=$P(^DGPR(408.12,IEN,0),"^",3)
+ . . I $P(VAL,";",2)'="DGPR(408.13," Q
+ . . S XIEN=$P(VAL,";",1)
+ . . ; If this IEN is in ^XTMP("DG53970P",JOB,"SSN",count)=IEN, it still needs SSN update - so store the info
+ . . ;  If there is an error logged when the SSN was unsuccessfully updated, include that error in ^TMP global
+ . . S FOUND=0
+ . . S IENCNT=0 F  S IENCNT=$O(^XTMP("DG53970P",JOB,"SSN",IENCNT)) Q:'IENCNT  D  Q:FOUND
+ . . . I ^XTMP("DG53970P",JOB,"SSN",IENCNT)=XIEN S DCNT=DCNT+1,FOUND=1,^TMP("IVM2174P",$J,"DFN",I,XIEN)=$G(^XTMP("DG53970P",JOB,"SSNERR",XIEN))
+ Q
+MSG ; All data is collected in ^TMP("IVM2174P") - put together email message
+ N XMSUB,XMDUZ,XMY,XMTEXT,MSG,LN,IVMSITE,ERRMSG
+ S IVMSITE=$$SITE^VASITE
+ S XMY("G.IVM20174MONITOR@FORUM.VA.GOV")=""
+ S XMY(DUZ)=""
+ S XMTEXT="MSG("
+ S XMDUZ=.5,XMSUB="IVM*2.0*174-#"_$P(IVMSITE,"^",3)_"-VHA/ES CLEANUP OF SSNs IN (#408.13) FILE"
+ S MSG($$LN)=""
+ S MSG($$LN)="The job completed to check if patient records still exist in the"
+ S MSG($$LN)="^XTMP(""DG53970P"" global and require a push of corrected SSN data from ES"
+ S MSG($$LN)="via an HL7(ORU-Z10) message."
+ S MSG($$LN)=""
+ S MSG($$LN)="Job Results:"
+ S MSG($$LN)="------------"
+ S MSG($$LN)=" Facility Name: "_$P(IVMSITE,"^",2)
+ S MSG($$LN)="Station Number: "_$P(IVMSITE,"^",3)
+ S MSG($$LN)=""
+ S MSG($$LN)="Total patients (ICN/DFN) with dependents not updated: "_PCNT
+ S MSG($$LN)="                  Total dependent (IENs) not updated: "_DCNT
+ F I=1:1:PCNT D
+ . SET DFN=^TMP("IVM2174P",$J,"DFN",I)
+ . S MSG($$LN)=""
+ . S MSG($$LN)="Patient ICN/DFN: "_DFN
+ . ; loop over IENs - include the error message if there is one.
+ . S IEN="",LINE=0 F  S IEN=$O(^TMP("IVM2174P",$J,"DFN",I,IEN)) Q:'IEN  D
+ . . S ERRMSG=^TMP("IVM2174P",$J,"DFN",I,IEN)
+ . . I ERRMSG'="" S ERRMSG="  ("_ERRMSG_")"
+ . . I LINE=0 S MSG($$LN)=" Dependent IENs: "_IEN_ERRMSG,LINE=1
+ . . E  S MSG($$LN)="                 "_IEN_ERRMSG
+ ; send mail message with results
+ D ^XMD
+ ; if we have data in the ^XTMP global, requeue this job to run in 2 days
+ I PCNT D
+ . N ZTRTN,ZTDESC,ZTDTH,ZTIO,ZTSK
+ . S ZTRTN="TASK^IVM2174P"
+ . S ZTDESC="IVM*2.0*174 Gather list of ICNs/DFNs in ^XTMP(""DG53970P"") that need update of dependent SSNs."
+ . S ZTDTH=$$SCH^XLFDT("2D",$$NOW^XLFDT)
+ . S ZTIO=""
+ . D ^%ZTLOAD
+ Q
+LN() ;Increment line counter
+ S LN=$G(LN)+1
+ Q LN
diff --git a/Packages/Income Verification Match/Routines/IVMCM2.m b/Packages/Income Verification Match/Routines/IVMCM2.m
index 92da2ecc5f5..1fcdb88b915 100644
--- a/Packages/Income Verification Match/Routines/IVMCM2.m	
+++ b/Packages/Income Verification Match/Routines/IVMCM2.m	
@@ -1,5 +1,5 @@
-IVMCM2 ;ALB/SEK,CKN,TDM - ADD NEW DCD DEPENDENT TO INCOME PERSON FILE ; 3/18/10 2:07pm
- ;;2.0;INCOME VERIFICATION MATCH;**17,105,115,139,121**;21-OCT-94;Build 45
+IVMCM2 ;ALB/SEK,CKN,TDM,JAM - ADD NEW DCD DEPENDENT TO INCOME PERSON FILE ;3/18/10 2:07pm
+ ;;2.0;INCOME VERIFICATION MATCH;**17,105,115,139,121,174**;21-OCT-94;Build 15
  ;;Per VHA Directive 10-93-142, this routine should not be modified.
  ;
 EN ; this routine will add entries to INCOME PERSON file (408.13) for
@@ -27,6 +27,7 @@
  S DGPRI=$P(IVMSEG,"^",7) ; ien of patient relation file
  ;
  S IVMNM=$$FMNAME^HLFNC($P(IVMSEG,"^",2)),IVMSEX=$P(IVMSEG,"^",3),IVMDOB=$$FMDATE^HLFNC($P(IVMSEG,"^",4)),IVMSSN=$P(IVMSEG,"^",5)
+ I IVMSSN=" " S IVMFERR="" Q  ; IVM*2.0*174 ;jam; Set error variable IVMFERR so the ZDP will not be processed if IVMSSN=blank
  S IVMPSSNR=$P(IVMSEG,"^",10) ;Pseudo SSN Reason IVM*2*105
  ;if there is a valid Pseudo SSN Reason, then append a "P" to the end
  ;of the SSN so that it cam be recognized on VistA as a pseudo - IVM*2*115
diff --git a/Packages/Income Verification Match/Routines/IVMCMC.m b/Packages/Income Verification Match/Routines/IVMCMC.m
index 55c6fa67348..139a52f1aa4 100644
--- a/Packages/Income Verification Match/Routines/IVMCMC.m	
+++ b/Packages/Income Verification Match/Routines/IVMCMC.m	
@@ -1,5 +1,5 @@
-IVMCMC ;ALB/SEK,BRM,GN,TDM - CHECK INCOME TEST TRANSMISSION SEGMENTS ; 8/15/08 10:20am
- ;;2.0;INCOME VERIFICATION MATCH;**17,34,49,51,90,115**;21-OCT-94;Build 28
+IVMCMC ;ALB/SEK,BRM,GN,TDM,JAM - CHECK INCOME TEST TRANSMISSION SEGMENTS ;8/15/08 10:20am
+ ;;2.0;INCOME VERIFICATION MATCH;**17,34,49,51,90,115,174**;21-OCT-94;Build 15
  ;
  ;IVM*2*90 - stop upload of LTC type 4 test when staus code not valid
  ;
@@ -65,6 +65,19 @@ D GET("ZIRS") I IVMSEG1'="ZIR" D PROB("Missing spouse's ZIR segment") G ENQ
  ;
  I $D(HLERR) G ENQ
  ;
+ ; Patch IVM*2.0*174 - jam - For ORU-Z10, process SSN for IENs in ^XTMP("DG53970P")
+ ; -----------------
+ ; Do this for ORU message only
+ ; The caller routine ^EASCM sets IVMSSNFLAG=0, quit if this var gets set to 1
+ I $G(IVMORF)'=1 D  I $G(IVMSSNFLAG)=1 G ENQ
+ . ; Check if there is a job number in ^XTMP("DG53970P") 
+ . N IVMJOB
+ . S IVMJOB=0
+ . S IVMJOB=$O(^XTMP("DG53970P",IVMJOB))
+ . I 'IVMJOB Q
+ . ; If this DFN is in the ^XTMP global, process the SSNs in the ZDP, and set IVMSSNFLAG=1 to have caller quit further processing
+ . I $D(^XTMP("DG53970P",IVMJOB,"DFN",DFN)) D IVMFSSN^IVM2174F(DFN,IVMJOB) S IVMSSNFLAG=1
+ ; ------------------
  ; - check for remaining ZMT and ZBT segments
  D GET("ZMT2") I IVMSEG1'="ZMT" D PROB("Missing Copay Test ZMT segment") G ENQ
  ;
diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
index 36712e5e5c2..6304a3d644f 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 07:53:53 ZWR
-^%ZTSK(-1)=4329
+15-MAR-2019 08:41:41 ZWR
+^%ZTSK(-1)=4334
 ^%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^^"
@@ -39337,6 +39337,67 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4329,.3,"DUZ(",0)="@"
 ^%ZTSK(4329,.3,"XQSCH")=8
 ^%ZTSK(4329,.3,"XQY")=9891
+^%ZTSK(4330,0)="HOUR^XUTMHR^.5^^65087,31023^65087,31023^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(4330,.02)="^VISTA^^"
+^%ZTSK(4330,.03)="Taskman Hourly Job"
+^%ZTSK(4330,.04)=5623547823
+^%ZTSK(4330,.1)="B^65087,31083^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4330,.2)=""
+^%ZTSK(4330,.21)=""
+^%ZTSK(4330,.25)=""
+^%ZTSK(4331,0)="ZTSK^XQ1^.5^VISTA^65087,31083^65087,31083^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4331,.02)="^VISTA^^"
+^%ZTSK(4331,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4331,.04)=5623547883
+^%ZTSK(4331,.1)="B^65087,31085^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4331,.2)=""
+^%ZTSK(4331,.21)=""
+^%ZTSK(4331,.25)=""
+^%ZTSK(4331,.3,"DUZ(",0)="@"
+^%ZTSK(4331,.3,"XQSCH")=10
+^%ZTSK(4331,.3,"XQY")=8853
+^%ZTSK(4332,0)="ZTSK^XQ1^.5^VISTA^65087,31083^65087,31083^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4332,.02)="^VISTA^^"
+^%ZTSK(4332,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4332,.04)=5623547883
+^%ZTSK(4332,.1)="B^65087,31087^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4332,.2)=""
+^%ZTSK(4332,.21)=""
+^%ZTSK(4332,.25)=""
+^%ZTSK(4332,.3,"DUZ(",0)="@"
+^%ZTSK(4332,.3,"XQSCH")=11
+^%ZTSK(4332,.3,"XQY")=8412
+^%ZTSK(4333,0)="ZTSK^XQ1^.5^VISTA^65087,31083^65087,31083^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4333,.02)="^VISTA^^"
+^%ZTSK(4333,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4333,.04)=5623547883
+^%ZTSK(4333,.1)="B^65087,31089^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4333,.2)=""
+^%ZTSK(4333,.21)=""
+^%ZTSK(4333,.25)=""
+^%ZTSK(4333,.3,"DUZ(",0)="@"
+^%ZTSK(4333,.3,"XQSCH")=8
+^%ZTSK(4333,.3,"XQY")=9891
+^%ZTSK(4334,0)="TASK^IVM2174P^17^^65087,31093^65087,31093^R^245^XPD INSTALL BUILD^USER,SEVENTEEN^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(4334,.02)="^VISTA^^"
+^%ZTSK(4334,.03)="IVM*2.0*174 Gather list of ICNs/DFNs in ^XTMP(""DG53970P"") that need update of dependent SSNs."
+^%ZTSK(4334,.04)=5623547893
+^%ZTSK(4334,.1)="B^65087,31096^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4334,.2)=""
+^%ZTSK(4334,.21)=""
+^%ZTSK(4334,.25)=""
+^%ZTSK(4334,.3,"DUZ(",0)="@"
+^%ZTSK(4334,.3,"DUZ(",1)=""
+^%ZTSK(4334,.3,"DUZ(",2)=1214
+^%ZTSK(4334,.3,"DUZ(","AG")="V"
+^%ZTSK(4334,.3,"DUZ(","AUTHENTICATION")="XUP"
+^%ZTSK(4334,.3,"DUZ(","AUTO")=1
+^%ZTSK(4334,.3,"DUZ(","BUF")=1
+^%ZTSK(4334,.3,"DUZ(","LANG")=""
+^%ZTSK(4334,.3,"DUZ(","LOA")=2
+^%ZTSK(4334,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(4334,.3,"XQY")=245
+^%ZTSK(4334,.3,"XQY0")="XPD INSTALL BUILD^Install Package(s)^^R^^^^^^^^2"
 ^%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 e325a1dd3b1..507699637d0 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 07:53:59 ZWR
+15-MAR-2019 08:41:47 ZWR
 ^DIC(9.4,-1,"INI")="^2960819.165753"
 ^DIC(9.4,0)="PACKAGE^9.4I^232^144"
 ^DIC(9.4,0,"DD")="#"
@@ -180735,7 +180735,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,120,11)="301.5^301.99"
 ^DIC(9.4,120,22,0)="^9.49I^12^1"
 ^DIC(9.4,120,22,12,0)="2.0^3051119^2960823"
-^DIC(9.4,120,22,12,"PAH",0)="^9.4901^138^138"
+^DIC(9.4,120,22,12,"PAH",0)="^9.4901^139^139"
 ^DIC(9.4,120,22,12,"PAH",1,0)="5^2960823^1"
 ^DIC(9.4,120,22,12,"PAH",1,1,0)="^^2^2^2960823"
 ^DIC(9.4,120,22,12,"PAH",1,1,1,0)="The changes included in this patch are described in the description"
@@ -181295,6 +181295,9 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,120,22,12,"PAH",138,1,0)="^^2^2^3190221"
 ^DIC(9.4,120,22,12,"PAH",138,1,1,0)="Please see the IVM*2.0*164 patch description for detailed information"
 ^DIC(9.4,120,22,12,"PAH",138,1,2,0)="regarding this patch.  "
+^DIC(9.4,120,22,12,"PAH",139,0)="174^3190315.083816^17"
+^DIC(9.4,120,22,12,"PAH",139,1,0)="^^1^1^3190315"
+^DIC(9.4,120,22,12,"PAH",139,1,1,0)="Please refer to the Patch Description in FORUM for patch IVM*2.0*174"
 ^DIC(9.4,120,22,12,"PAH","B",5,1)=""
 ^DIC(9.4,120,22,12,"PAH","B",6,2)=""
 ^DIC(9.4,120,22,12,"PAH","B",7,3)=""
@@ -181353,6 +181356,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,120,22,12,"PAH","B",167,136)=""
 ^DIC(9.4,120,22,12,"PAH","B",168,135)=""
 ^DIC(9.4,120,22,12,"PAH","B",171,137)=""
+^DIC(9.4,120,22,12,"PAH","B",174,139)=""
 ^DIC(9.4,120,22,12,"PAH","B","10 SEQ #13",9)=""
 ^DIC(9.4,120,22,12,"PAH","B","101 SEQ #101",96)=""
 ^DIC(9.4,120,22,12,"PAH","B","104 SEQ #89",84)=""
@@ -214047,7 +214051,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,181,22,1,0)="1.0^3051119^3010625^1"
 ^DIC(9.4,181,22,1,1,0)="^^1^1^3051119"
 ^DIC(9.4,181,22,1,1,1,0)="ENROLLMENT APPLICATION SYSTEM v1.0"
-^DIC(9.4,181,22,1,"PAH",0)="^9.4901^103^103"
+^DIC(9.4,181,22,1,"PAH",0)="^9.4901^104^104"
 ^DIC(9.4,181,22,1,"PAH",1,0)="1^3010530^66471"
 ^DIC(9.4,181,22,1,"PAH",2,0)="1 SEQ #1^3010608^1"
 ^DIC(9.4,181,22,1,"PAH",3,0)="2 SEQ #2^3010710^1"
@@ -214473,6 +214477,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,181,22,1,"PAH",103,1,14,0)="update the thresholds for the Means Tests and the Maximum Annual Pension"
 ^DIC(9.4,181,22,1,"PAH",103,1,15,0)="Rate. Patch IB*2.0*635 will address the annual updates for the Pharmacy"
 ^DIC(9.4,181,22,1,"PAH",103,1,16,0)="Copay Thresholds."
+^DIC(9.4,181,22,1,"PAH",104,0)="172^3190315.083816^17"
 ^DIC(9.4,181,22,1,"PAH","B",1,1)=""
 ^DIC(9.4,181,22,1,"PAH","B",3,9)=""
 ^DIC(9.4,181,22,1,"PAH","B",7,11)=""
@@ -214524,6 +214529,7 @@ OSEHRA ZGO Export: PACKAGE
 ^DIC(9.4,181,22,1,"PAH","B",152,101)=""
 ^DIC(9.4,181,22,1,"PAH","B",154,100)=""
 ^DIC(9.4,181,22,1,"PAH","B",170,103)=""
+^DIC(9.4,181,22,1,"PAH","B",172,104)=""
 ^DIC(9.4,181,22,1,"PAH","B","1 SEQ #1",2)=""
 ^DIC(9.4,181,22,1,"PAH","B","10 SEQ #17",18)=""
 ^DIC(9.4,181,22,1,"PAH","B","100 SEQ #82",81)=""
diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr
index f501915a291..374f426d9ac 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 07:56:27 ZWR
-^XPD(9.6,0)="BUILD^9.6I^11126^10766"
+15-MAR-2019 08:44:02 ZWR
+^XPD(9.6,0)="BUILD^9.6I^11128^10768"
 ^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"
@@ -1204652,6 +1204652,121 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,11126,"QDEF")="^^^^NO^^^^NO^^NO"
 ^XPD(9.6,11126,"QUES",0)="^9.62^^"
 ^XPD(9.6,11126,"REQB",0)="^9.611^^"
+^XPD(9.6,11127,0)="IVM*2.0*174^120^0^3181220^y"
+^XPD(9.6,11127,1,0)="^^1^1^3181001^"
+^XPD(9.6,11127,1,1,0)="Please refer to the Patch Description in FORUM for patch IVM*2.0*174"
+^XPD(9.6,11127,4,0)="^9.64PA^^"
+^XPD(9.6,11127,6.3)=15
+^XPD(9.6,11127,"ABPKG")="n"
+^XPD(9.6,11127,"INIT")="EP^IVM2174P"
+^XPD(9.6,11127,"KRN",0)="^9.67PA^779.2^20"
+^XPD(9.6,11127,"KRN",.4,0)=.4
+^XPD(9.6,11127,"KRN",.401,0)=.401
+^XPD(9.6,11127,"KRN",.402,0)=.402
+^XPD(9.6,11127,"KRN",.403,0)=.403
+^XPD(9.6,11127,"KRN",.5,0)=.5
+^XPD(9.6,11127,"KRN",.84,0)=.84
+^XPD(9.6,11127,"KRN",3.6,0)=3.6
+^XPD(9.6,11127,"KRN",3.8,0)=3.8
+^XPD(9.6,11127,"KRN",9.2,0)=9.2
+^XPD(9.6,11127,"KRN",9.8,0)=9.8
+^XPD(9.6,11127,"KRN",9.8,"NM",0)="^9.68A^3^3"
+^XPD(9.6,11127,"KRN",9.8,"NM",1,0)="IVMCMC^^0^B43788420"
+^XPD(9.6,11127,"KRN",9.8,"NM",2,0)="IVM2174F^^0^B29322365"
+^XPD(9.6,11127,"KRN",9.8,"NM",3,0)="IVMCM2^^0^B32817951"
+^XPD(9.6,11127,"KRN",9.8,"NM","B","IVM2174F",2)=""
+^XPD(9.6,11127,"KRN",9.8,"NM","B","IVMCM2",3)=""
+^XPD(9.6,11127,"KRN",9.8,"NM","B","IVMCMC",1)=""
+^XPD(9.6,11127,"KRN",19,0)=19
+^XPD(9.6,11127,"KRN",19.1,0)=19.1
+^XPD(9.6,11127,"KRN",101,0)=101
+^XPD(9.6,11127,"KRN",409.61,0)=409.61
+^XPD(9.6,11127,"KRN",771,0)=771
+^XPD(9.6,11127,"KRN",779.2,0)=779.2
+^XPD(9.6,11127,"KRN",870,0)=870
+^XPD(9.6,11127,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11127,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11127,"KRN",8994,0)=8994
+^XPD(9.6,11127,"KRN","B",.4,.4)=""
+^XPD(9.6,11127,"KRN","B",.401,.401)=""
+^XPD(9.6,11127,"KRN","B",.402,.402)=""
+^XPD(9.6,11127,"KRN","B",.403,.403)=""
+^XPD(9.6,11127,"KRN","B",.5,.5)=""
+^XPD(9.6,11127,"KRN","B",.84,.84)=""
+^XPD(9.6,11127,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11127,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11127,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11127,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11127,"KRN","B",19,19)=""
+^XPD(9.6,11127,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11127,"KRN","B",101,101)=""
+^XPD(9.6,11127,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11127,"KRN","B",771,771)=""
+^XPD(9.6,11127,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11127,"KRN","B",870,870)=""
+^XPD(9.6,11127,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11127,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11127,"KRN","B",8994,8994)=""
+^XPD(9.6,11127,"QDEF")="^^^^NO^^^^NO^^NO"
+^XPD(9.6,11127,"QUES",0)="^9.62^^"
+^XPD(9.6,11127,"REQB",0)="^9.611^3^2"
+^XPD(9.6,11127,"REQB",1,0)="DG*5.3*970^1"
+^XPD(9.6,11127,"REQB",3,0)="IVM*2.0*121^1"
+^XPD(9.6,11127,"REQB","B","DG*5.3*970",1)=""
+^XPD(9.6,11127,"REQB","B","IVM*2.0*121",3)=""
+^XPD(9.6,11128,0)="EAS*1.0*172^181^0^3181220^y"
+^XPD(9.6,11128,4,0)="^9.64PA^^"
+^XPD(9.6,11128,6.3)=3
+^XPD(9.6,11128,"ABPKG")="n"
+^XPD(9.6,11128,"KRN",0)="^9.67PA^779.2^20"
+^XPD(9.6,11128,"KRN",.4,0)=.4
+^XPD(9.6,11128,"KRN",.401,0)=.401
+^XPD(9.6,11128,"KRN",.402,0)=.402
+^XPD(9.6,11128,"KRN",.403,0)=.403
+^XPD(9.6,11128,"KRN",.5,0)=.5
+^XPD(9.6,11128,"KRN",.84,0)=.84
+^XPD(9.6,11128,"KRN",3.6,0)=3.6
+^XPD(9.6,11128,"KRN",3.8,0)=3.8
+^XPD(9.6,11128,"KRN",9.2,0)=9.2
+^XPD(9.6,11128,"KRN",9.8,0)=9.8
+^XPD(9.6,11128,"KRN",9.8,"NM",0)="^9.68A^1^1"
+^XPD(9.6,11128,"KRN",9.8,"NM",1,0)="EASCM^^0^B84464053"
+^XPD(9.6,11128,"KRN",9.8,"NM","B","EASCM",1)=""
+^XPD(9.6,11128,"KRN",19,0)=19
+^XPD(9.6,11128,"KRN",19.1,0)=19.1
+^XPD(9.6,11128,"KRN",101,0)=101
+^XPD(9.6,11128,"KRN",409.61,0)=409.61
+^XPD(9.6,11128,"KRN",771,0)=771
+^XPD(9.6,11128,"KRN",779.2,0)=779.2
+^XPD(9.6,11128,"KRN",870,0)=870
+^XPD(9.6,11128,"KRN",8989.51,0)=8989.51
+^XPD(9.6,11128,"KRN",8989.52,0)=8989.52
+^XPD(9.6,11128,"KRN",8994,0)=8994
+^XPD(9.6,11128,"KRN","B",.4,.4)=""
+^XPD(9.6,11128,"KRN","B",.401,.401)=""
+^XPD(9.6,11128,"KRN","B",.402,.402)=""
+^XPD(9.6,11128,"KRN","B",.403,.403)=""
+^XPD(9.6,11128,"KRN","B",.5,.5)=""
+^XPD(9.6,11128,"KRN","B",.84,.84)=""
+^XPD(9.6,11128,"KRN","B",3.6,3.6)=""
+^XPD(9.6,11128,"KRN","B",3.8,3.8)=""
+^XPD(9.6,11128,"KRN","B",9.2,9.2)=""
+^XPD(9.6,11128,"KRN","B",9.8,9.8)=""
+^XPD(9.6,11128,"KRN","B",19,19)=""
+^XPD(9.6,11128,"KRN","B",19.1,19.1)=""
+^XPD(9.6,11128,"KRN","B",101,101)=""
+^XPD(9.6,11128,"KRN","B",409.61,409.61)=""
+^XPD(9.6,11128,"KRN","B",771,771)=""
+^XPD(9.6,11128,"KRN","B",779.2,779.2)=""
+^XPD(9.6,11128,"KRN","B",870,870)=""
+^XPD(9.6,11128,"KRN","B",8989.51,8989.51)=""
+^XPD(9.6,11128,"KRN","B",8989.52,8989.52)=""
+^XPD(9.6,11128,"KRN","B",8994,8994)=""
+^XPD(9.6,11128,"QDEF")="^^^^NO^^^^NO^^NO"
+^XPD(9.6,11128,"QUES",0)="^9.62^^"
+^XPD(9.6,11128,"REQB",0)="^9.611^1^1"
+^XPD(9.6,11128,"REQB",1,0)="EAS*1.0*152^1"
+^XPD(9.6,11128,"REQB","B","EAS*1.0*152",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)=""
@@ -1206204,6 +1206319,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","EAS*1.0*16",4298)=""
 ^XPD(9.6,"B","EAS*1.0*17",4505)=""
 ^XPD(9.6,"B","EAS*1.0*170",11080)=""
+^XPD(9.6,"B","EAS*1.0*172",11128)=""
 ^XPD(9.6,"B","EAS*1.0*18",4334)=""
 ^XPD(9.6,"B","EAS*1.0*19",4394)=""
 ^XPD(9.6,"B","EAS*1.0*2",3692)=""
@@ -1208190,6 +1208306,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"B","IVM*2.0*168",10679)=""
 ^XPD(9.6,"B","IVM*2.0*17",2490)=""
 ^XPD(9.6,"B","IVM*2.0*171",10922)=""
+^XPD(9.6,"B","IVM*2.0*174",11127)=""
 ^XPD(9.6,"B","IVM*2.0*18",1497)=""
 ^XPD(9.6,"B","IVM*2.0*19",1703)=""
 ^XPD(9.6,"B","IVM*2.0*21",2412)=""
@@ -1223348,6 +1223465,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",120,10822)=""
 ^XPD(9.6,"C",120,10922)=""
 ^XPD(9.6,"C",120,11054)=""
+^XPD(9.6,"C",120,11127)=""
 ^XPD(9.6,"C",121,207)=""
 ^XPD(9.6,"C",121,362)=""
 ^XPD(9.6,"C",121,1062)=""
@@ -1225680,6 +1225798,7 @@ OSEHRA ZGO Export: BUILD
 ^XPD(9.6,"C",181,10830)=""
 ^XPD(9.6,"C",181,11055)=""
 ^XPD(9.6,"C",181,11080)=""
+^XPD(9.6,"C",181,11128)=""
 ^XPD(9.6,"C",182,3982)=""
 ^XPD(9.6,"C",183,4127)=""
 ^XPD(9.6,"C",183,4899)=""
diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr
index 95f3aa85146..922c0757530 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 07:56:50 ZWR
-^XPD(9.7,0)="INSTALL^9.7I^10845^10703"
+15-MAR-2019 08:44:24 ZWR
+^XPD(9.7,0)="INSTALL^9.7I^10847^10705"
 ^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"
@@ -834142,6 +834142,97 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,10845,"RTN","B","FHNO21",4)=""
 ^XPD(9.7,10845,"RTN","B","FHP43",5)=""
 ^XPD(9.7,10845,"RTN","B","FHQUE",6)=""
+^XPD(9.7,10846,0)="IVM*2.0*174^120^3190315.083807^10846^1^^0^0IVM*2.0*174^3^0^17"
+^XPD(9.7,10846,1)="3190315.083813^3190315.083813^3190315.083816^3181220"
+^XPD(9.7,10846,2)="IVM CLEANUP OF SOCIAL SECURITY NUMBERS  ;Created on Dec 20, 2018@14:59:23"
+^XPD(9.7,10846,6)=""
+^XPD(9.7,10846,"INI",0)="^9.713^1^1"
+^XPD(9.7,10846,"INI",1,0)="XPD PREINSTALL COMPLETED^3190315.083813"
+^XPD(9.7,10846,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,10846,"INIT",0)="^9.716^2^2"
+^XPD(9.7,10846,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190315.083816"
+^XPD(9.7,10846,"INIT",2,0)="XPD POSTINSTALL STARTED^3190315.083816"
+^XPD(9.7,10846,"INIT",2,1)="EP^IVM2174P"
+^XPD(9.7,10846,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,10846,"INIT","B","XPD POSTINSTALL STARTED",2)=""
+^XPD(9.7,10846,"MES",0)="^^24^24^3190315"
+^XPD(9.7,10846,"MES",1,0)=" "
+^XPD(9.7,10846,"MES",2,0)=" Install Started for IVM*2.0*174 : "
+^XPD(9.7,10846,"MES",3,0)="               Mar 15, 2019@08:38:13"
+^XPD(9.7,10846,"MES",4,0)=" "
+^XPD(9.7,10846,"MES",5,0)="Build Distribution Date: Dec 20, 2018"
+^XPD(9.7,10846,"MES",6,0)=" "
+^XPD(9.7,10846,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,10846,"MES",8,0)="               Mar 15, 2019@08:38:13"
+^XPD(9.7,10846,"MES",9,0)=" "
+^XPD(9.7,10846,"MES",10,0)=" Running Post-Install Routine: EP^IVM2174P"
+^XPD(9.7,10846,"MES",11,0)="    >>> Tasking job to gather list of ICNs/DFNs in ^XTMP(""DG53970P"" global"
+^XPD(9.7,10846,"MES",12,0)="    that need an update of dependent SSNs..."
+^XPD(9.7,10846,"MES",13,0)="    The task number is 4334."
+^XPD(9.7,10846,"MES",14,0)=" "
+^XPD(9.7,10846,"MES",15,0)=" Updating Routine file..."
+^XPD(9.7,10846,"MES",16,0)=" "
+^XPD(9.7,10846,"MES",17,0)=" Updating KIDS files..."
+^XPD(9.7,10846,"MES",18,0)=" "
+^XPD(9.7,10846,"MES",19,0)=" IVM*2.0*174 Installed. "
+^XPD(9.7,10846,"MES",20,0)="               Mar 15, 2019@08:38:16"
+^XPD(9.7,10846,"MES",21,0)=" "
+^XPD(9.7,10846,"MES",22,0)=" Not a production UCI"
+^XPD(9.7,10846,"MES",23,0)=" "
+^XPD(9.7,10846,"MES",24,0)=" NO Install Message sent "
+^XPD(9.7,10846,"QUES",0)="^9.701^2^2"
+^XPD(9.7,10846,"QUES",1,0)="XPI1"
+^XPD(9.7,10846,"QUES",1,1)=0
+^XPD(9.7,10846,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install"
+^XPD(9.7,10846,"QUES",1,"B")="NO"
+^XPD(9.7,10846,"QUES",2,0)="XPZ1"
+^XPD(9.7,10846,"QUES",2,1)=0
+^XPD(9.7,10846,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols"
+^XPD(9.7,10846,"QUES",2,"B")="NO"
+^XPD(9.7,10846,"QUES","B","XPI1",1)=""
+^XPD(9.7,10846,"QUES","B","XPZ1",2)=""
+^XPD(9.7,10846,"RTN",0)="^9.704A^4^4"
+^XPD(9.7,10846,"RTN",1,0)="IVM2174F"
+^XPD(9.7,10846,"RTN",2,0)="IVM2174P"
+^XPD(9.7,10846,"RTN",3,0)="IVMCM2"
+^XPD(9.7,10846,"RTN",4,0)="IVMCMC"
+^XPD(9.7,10846,"RTN","B","IVM2174F",1)=""
+^XPD(9.7,10846,"RTN","B","IVM2174P",2)=""
+^XPD(9.7,10846,"RTN","B","IVMCM2",3)=""
+^XPD(9.7,10846,"RTN","B","IVMCMC",4)=""
+^XPD(9.7,10847,0)="EAS*1.0*172^181^3190315.083807^10846^2^^0^^3^^17"
+^XPD(9.7,10847,1)="3190315.083816^3190315.083816^3190315.083816^3181220"
+^XPD(9.7,10847,2)="IVM CLEANUP OF SOCIAL SECURITY NUMBERS  ;Created on Dec 20, 2018@14:59:23"
+^XPD(9.7,10847,6)=""
+^XPD(9.7,10847,"INI",0)="^9.713^1^1"
+^XPD(9.7,10847,"INI",1,0)="XPD PREINSTALL COMPLETED^3190315.083816"
+^XPD(9.7,10847,"INI","B","XPD PREINSTALL COMPLETED",1)=""
+^XPD(9.7,10847,"INIT",0)="^9.716^1^1"
+^XPD(9.7,10847,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190315.083816"
+^XPD(9.7,10847,"INIT","B","XPD POSTINSTALL COMPLETED",1)=""
+^XPD(9.7,10847,"MES",0)="^^19^19^3190315"
+^XPD(9.7,10847,"MES",1,0)=" "
+^XPD(9.7,10847,"MES",2,0)=" Install Started for EAS*1.0*172 : "
+^XPD(9.7,10847,"MES",3,0)="               Mar 15, 2019@08:38:16"
+^XPD(9.7,10847,"MES",4,0)=" "
+^XPD(9.7,10847,"MES",5,0)="Build Distribution Date: Dec 20, 2018"
+^XPD(9.7,10847,"MES",6,0)=" "
+^XPD(9.7,10847,"MES",7,0)=" Installing Routines:"
+^XPD(9.7,10847,"MES",8,0)="               Mar 15, 2019@08:38:16"
+^XPD(9.7,10847,"MES",9,0)=" "
+^XPD(9.7,10847,"MES",10,0)=" Updating Routine file..."
+^XPD(9.7,10847,"MES",11,0)=" "
+^XPD(9.7,10847,"MES",12,0)=" Updating KIDS files..."
+^XPD(9.7,10847,"MES",13,0)=" "
+^XPD(9.7,10847,"MES",14,0)=" EAS*1.0*172 Installed. "
+^XPD(9.7,10847,"MES",15,0)="               Mar 15, 2019@08:38:16"
+^XPD(9.7,10847,"MES",16,0)=" "
+^XPD(9.7,10847,"MES",17,0)=" Not a production UCI"
+^XPD(9.7,10847,"MES",18,0)=" "
+^XPD(9.7,10847,"MES",19,0)=" NO Install Message sent "
+^XPD(9.7,10847,"RTN",0)="^9.704A^1^1"
+^XPD(9.7,10847,"RTN",1,0)="EASCM"
+^XPD(9.7,10847,"RTN","B","EASCM",1)=""
 ^XPD(9.7,"ASP",1,1,1)=""
 ^XPD(9.7,"ASP",1,2,2)=""
 ^XPD(9.7,"ASP",3,1,3)=""
@@ -844845,6 +844936,8 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"ASP",10843,1,10843)=""
 ^XPD(9.7,"ASP",10844,1,10844)=""
 ^XPD(9.7,"ASP",10845,1,10845)=""
+^XPD(9.7,"ASP",10846,1,10846)=""
+^XPD(9.7,"ASP",10846,2,10847)=""
 ^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)=""
@@ -846297,6 +846390,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","EAS*1.0*16",4031)=""
 ^XPD(9.7,"B","EAS*1.0*17",4223)=""
 ^XPD(9.7,"B","EAS*1.0*170",10799)=""
+^XPD(9.7,"B","EAS*1.0*172",10847)=""
 ^XPD(9.7,"B","EAS*1.0*18",4049)=""
 ^XPD(9.7,"B","EAS*1.0*19",4124)=""
 ^XPD(9.7,"B","EAS*1.0*2",3409)=""
@@ -848290,6 +848384,7 @@ OSEHRA ZGO Export: INSTALL
 ^XPD(9.7,"B","IVM*2.0*168",10387)=""
 ^XPD(9.7,"B","IVM*2.0*17",2229)=""
 ^XPD(9.7,"B","IVM*2.0*171",10632)=""
+^XPD(9.7,"B","IVM*2.0*174",10846)=""
 ^XPD(9.7,"B","IVM*2.0*18",1236)=""
 ^XPD(9.7,"B","IVM*2.0*19",1430)=""
 ^XPD(9.7,"B","IVM*2.0*21",2163)=""
diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr
index 8dc15a018e3..42e0bd68147 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
-15-MAR-2019 07:54:02 ZWR
-^DIC(9.8,0)="ROUTINE^9.8^35821^29248"
+15-MAR-2019 08:41:54 ZWR
+^DIC(9.8,0)="ROUTINE^9.8^35823^29250"
 ^DIC(9.8,0,"DD")="#"
 ^DIC(9.8,0,"DEL")="#"
 ^DIC(9.8,0,"GL")="^DIC(9.8,"
@@ -74916,7 +74916,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,19402,8,1,0)="COMPARE INCOME VERIFICATION MATCH 2.0^6432532/34913494"
 ^DIC(9.8,19402,8,"B","COMPARE INCOME VERIFICATION MA",1)=""
 ^DIC(9.8,19403,0)="IVMCM2^R"
-^DIC(9.8,19403,4.1)=3110308.134908
+^DIC(9.8,19403,4.1)=3190315.083816
 ^DIC(9.8,19403,8,0)="^9.818^1^1"
 ^DIC(9.8,19403,8,1,0)="COMPARE INCOME VERIFICATION MATCH 2.0^4846827/13228520"
 ^DIC(9.8,19403,8,"B","COMPARE INCOME VERIFICATION MA",1)=""
@@ -74951,7 +74951,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,19409,8,1,0)="COMPARE INCOME VERIFICATION MATCH 2.0^6724271/16093169"
 ^DIC(9.8,19409,8,"B","COMPARE INCOME VERIFICATION MA",1)=""
 ^DIC(9.8,19410,0)="IVMCMC^R"
-^DIC(9.8,19410,4.1)=3090423.134023
+^DIC(9.8,19410,4.1)=3190315.083816
 ^DIC(9.8,19410,8,0)="^9.818^1^1"
 ^DIC(9.8,19410,8,1,0)="COMPARE INCOME VERIFICATION MATCH 2.0^7747198/24384729"
 ^DIC(9.8,19410,8,"B","COMPARE INCOME VERIFICATION MA",1)=""
@@ -104802,7 +104802,7 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,28877,0)="EAS1071Q^R"
 ^DIC(9.8,28877,4.1)=3080203.22233
 ^DIC(9.8,28878,0)="EASCM^R"
-^DIC(9.8,28878,4.1)=3180613.051011
+^DIC(9.8,28878,4.1)=3190315.083816
 ^DIC(9.8,28879,0)="EASEGT2^R"
 ^DIC(9.8,28879,4.1)=3080203.22233
 ^DIC(9.8,28880,0)="EASPREC3^R"
@@ -115695,6 +115695,10 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,35820,4.1)=3190315.075027
 ^DIC(9.8,35821,0)="FHQUE^R"
 ^DIC(9.8,35821,4.1)=3190315.075027
+^DIC(9.8,35822,0)="IVM2174F^R"
+^DIC(9.8,35822,4.1)=3190315.083816
+^DIC(9.8,35823,0)="IVM2174P^R"
+^DIC(9.8,35823,4.1)=3190315.083816
 ^DIC(9.8,"%",0)="^1.005^1^1"
 ^DIC(9.8,"%",1,0)="XU"
 ^DIC(9.8,"%","B","XU",1)=""
@@ -126265,6 +126269,8 @@ OSEHRA ZGO Export: ROUTINE
 ^DIC(9.8,"B","IVM2111",28038)=""
 ^DIC(9.8,"B","IVM2151P",31536)=""
 ^DIC(9.8,"B","IVM2164P",35756)=""
+^DIC(9.8,"B","IVM2174F",35822)=""
+^DIC(9.8,"B","IVM2174P",35823)=""
 ^DIC(9.8,"B","IVM26PT",2384)=""
 ^DIC(9.8,"B","IVM273A",23076)=""
 ^DIC(9.8,"B","IVM273M",23077)=""