Last change
on this file since 1608 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
964 bytes
|
Line | |
---|
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.