- 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 Dec 13, 2024@02:00:47 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 ;