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(" ")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P286 990 printed Nov 22, 2024@17:12:13 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
