IVM2111 ;ALB/TMK - POST INSTALL FOR PATCH IVM*2*111 ; 10-FEB-2006
;;2.0;INCOME VERIFICATION MATCH;**111**; 21-OCT-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
EN ;
D BMES^XPDUTL("Deleting IVM PARAMETER field #.04 SUPPRESS INSURANCE MESSAGE")
S DIE="^IVM(301.9,",DR=".04///@",DA=1 D ^DIE ; Delete data
S DIK="^DD(301.9,",DA=.04,DA(1)=301.9 D ^DIK ; Delete field
D BMES^XPDUTL("Step complete")
;
D BMES^XPDUTL("Queueing job to auto-upload existing HL7 Z04 messages to the buffer file")
S ZTIO="",ZTDESC="Uploads existing insurance messages to buffer file"
S ZTRTN="AUTO^IVMLINS3",ZTDTH=$$NOW^XLFDT()
D ^%ZTLOAD
D BMES^XPDUTL($S($D(ZTSK):"This job has been queued. The task number is "_ZTSK,1:"This job could not be queued"))
D BMES^XPDUTL("To restart this job, use 'D AUTO^IVMLINS3'")
D BMES^XPDUTL("Step complete")
D BMES^XPDUTL("End of post-install")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM2111 922 printed Aug 26, 2025@22:15:48 Page 2
IVM2111 ;ALB/TMK - POST INSTALL FOR PATCH IVM*2*111 ; 10-FEB-2006
+1 ;;2.0;INCOME VERIFICATION MATCH;**111**; 21-OCT-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
EN ;
+1 DO BMES^XPDUTL("Deleting IVM PARAMETER field #.04 SUPPRESS INSURANCE MESSAGE")
+2 ; Delete data
SET DIE="^IVM(301.9,"
SET DR=".04///@"
SET DA=1
DO ^DIE
+3 ; Delete field
SET DIK="^DD(301.9,"
SET DA=.04
SET DA(1)=301.9
DO ^DIK
+4 DO BMES^XPDUTL("Step complete")
+5 ;
+6 DO BMES^XPDUTL("Queueing job to auto-upload existing HL7 Z04 messages to the buffer file")
+7 SET ZTIO=""
SET ZTDESC="Uploads existing insurance messages to buffer file"
+8 SET ZTRTN="AUTO^IVMLINS3"
SET ZTDTH=$$NOW^XLFDT()
+9 DO ^%ZTLOAD
+10 DO BMES^XPDUTL($SELECT($DATA(ZTSK):"This job has been queued. The task number is "_ZTSK,1:"This job could not be queued"))
+11 DO BMES^XPDUTL("To restart this job, use 'D AUTO^IVMLINS3'")
+12 DO BMES^XPDUTL("Step complete")
+13 DO BMES^XPDUTL("End of post-install")
+14 QUIT
+15 ;
