|
Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
902 bytes
|
| Line | |
|---|
| 1 | IVM2111 ;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 | ;
|
|---|
| 5 | EN ;
|
|---|
| 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.
