source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVM2111.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 902 bytes
Line 
1IVM2111 ;ALB/TMK - POST INSTALL FOR PATCH IVM*2*111 ; 10-FEB-2006
2 ;;2.0;INCOME VERIFICATION MATCH;**111**; 21-OCT-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ;
6 D BMES^XPDUTL("Deleting IVM PARAMETER field #.04 SUPPRESS INSURANCE MESSAGE")
7 S DIE="^IVM(301.9,",DR=".04///@",DA=1 D ^DIE ; Delete data
8 S DIK="^DD(301.9,",DA=.04,DA(1)=301.9 D ^DIK ; Delete field
9 D BMES^XPDUTL("Step complete")
10 ;
11 D BMES^XPDUTL("Queueing job to auto-upload existing HL7 Z04 messages to the buffer file")
12 S ZTIO="",ZTDESC="Uploads existing insurance messages to buffer file"
13 S ZTRTN="AUTO^IVMLINS3",ZTDTH=$$NOW^XLFDT()
14 D ^%ZTLOAD
15 D BMES^XPDUTL($S($D(ZTSK):"This job has been queued. The task number is "_ZTSK,1:"This job could not be queued"))
16 D BMES^XPDUTL("To restart this job, use 'D AUTO^IVMLINS3'")
17 D BMES^XPDUTL("Step complete")
18 D BMES^XPDUTL("End of post-install")
19 Q
20 ;
Note: See TracBrowser for help on using the repository browser.