Routine: IB20P286

IB20P286 ;OAK/ELZ - POST INSTALL FOR IB*2*313 ;19-SEP-2005

 ;;2.0;INTEGRATED BILLING;**286**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ; This is the post install routine for IB*2*286.  This routine will

 ; add IBB PFSS CHARGE ERRORS mail group to file #372;

 ; this mail group receives any error message generated in IBB

 ; after a call to CHARGE^IBBAPI.

POST ;

 N X,GROUP,FDA,IENS,ERR,IBB,IBBERROR

 S GROUP="IBB PFSS CHARGE ERRORS"

 D BMES^XPDUTL("Updating MAIL GROUP FOR CHARGE field in PFSS Site Parameter file...")

 S IENS="1,"

 S ERR="IBB(""DIERR"")"

 S FDA(372,IENS,.06)=GROUP

 D FILE^DIE("E","FDA",ERR)

 I $D(IBB("DIERR")) S IBBERROR=IBB("DIERR","DIERR",1,"TEXT",1)

 I $G(IBBERROR)'="" D

 .D BMES^XPDUTL("Update failed.")

 .D BMES^XPDUTL(IBBERROR)

 I $G(IBBERROR)="" D

 .D BMES^XPDUTL("Successfully updated.")

 .D BMES^XPDUTL("Add members to group "_GROUP_" as recommended by your VISN.")

 D BMES^XPDUTL(" ")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P286   990     printed  Mar 13, 2025@21:06:52                                                                                                                                                                                                     Page 2

IB20P286  ;OAK/ELZ - POST INSTALL FOR IB*2*313 ;19-SEP-2005

 +1       ;;2.0;INTEGRATED BILLING;**286**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ; This is the post install routine for IB*2*286.  This routine will

 +5       ; add IBB PFSS CHARGE ERRORS mail group to file #372;

 +6       ; this mail group receives any error message generated in IBB

 +7       ; after a call to CHARGE^IBBAPI.

 +8       ;

POST      ;

 +1        NEW X,GROUP,FDA,IENS,ERR,IBB,IBBERROR

 +2        SET GROUP="IBB PFSS CHARGE ERRORS"

 +3        DO BMES^XPDUTL("Updating MAIL GROUP FOR CHARGE field in PFSS Site Parameter file...")

 +4        SET IENS="1,"

 +5        SET ERR="IBB(""DIERR"")"

 +6        SET FDA(372,IENS,.06)=GROUP

 +7        DO FILE^DIE("E","FDA",ERR)

 +8        IF $DATA(IBB("DIERR"))

               SET IBBERROR=IBB("DIERR","DIERR",1,"TEXT",1)

 +9        IF $GET(IBBERROR)'=""

               Begin DoDot:1

 +10               DO BMES^XPDUTL("Update failed.")

 +11               DO BMES^XPDUTL(IBBERROR)

               End DoDot:1

 +12       IF $GET(IBBERROR)=""

               Begin DoDot:1

 +13               DO BMES^XPDUTL("Successfully updated.")

 +14               DO BMES^XPDUTL("Add members to group "_GROUP_" as recommended by your VISN.")

               End DoDot:1

 +15       DO BMES^XPDUTL(" ")

 +16       QUIT

IB20P286.m