Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
964 bytes
|
Rev | Line | |
---|
[613] | 1 | IB20P286 ;OAK/ELZ - POST INSTALL FOR IB*2*313 ;19-SEP-2005
|
---|
| 2 | ;;2.0;INTEGRATED BILLING;**286**;21-MAR-94
|
---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;
|
---|
| 5 | ; This is the post install routine for IB*2*286. This routine will
|
---|
| 6 | ; add IBB PFSS CHARGE ERRORS mail group to file #372;
|
---|
| 7 | ; this mail group receives any error message generated in IBB
|
---|
| 8 | ; after a call to CHARGE^IBBAPI.
|
---|
| 9 | ;
|
---|
| 10 | POST ;
|
---|
| 11 | N X,GROUP,FDA,IENS,ERR,IBB,IBBERROR
|
---|
| 12 | S GROUP="IBB PFSS CHARGE ERRORS"
|
---|
| 13 | D BMES^XPDUTL("Updating MAIL GROUP FOR CHARGE field in PFSS Site Parameter file...")
|
---|
| 14 | S IENS="1,"
|
---|
| 15 | S ERR="IBB(""DIERR"")"
|
---|
| 16 | S FDA(372,IENS,.06)=GROUP
|
---|
| 17 | D FILE^DIE("E","FDA",ERR)
|
---|
| 18 | I $D(IBB("DIERR")) S IBBERROR=IBB("DIERR","DIERR",1,"TEXT",1)
|
---|
| 19 | I $G(IBBERROR)'="" D
|
---|
| 20 | .D BMES^XPDUTL("Update failed.")
|
---|
| 21 | .D BMES^XPDUTL(IBBERROR)
|
---|
| 22 | I $G(IBBERROR)="" D
|
---|
| 23 | .D BMES^XPDUTL("Successfully updated.")
|
---|
| 24 | .D BMES^XPDUTL("Add members to group "_GROUP_" as recommended by your VISN.")
|
---|
| 25 | D BMES^XPDUTL(" ")
|
---|
| 26 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.