source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P286.m@ 861

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

initial load of WorldVistAEHR

File size: 964 bytes
RevLine 
[613]1IB20P286 ;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 ;
10POST ;
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.