RCDPESR4 ;ALB/TMK/PJH - Server interface 835ERA processing ;Jun 06, 2014@19:11:19
Source file <RCDPESR4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ERAEOBIN(RCTXN,RCD,RCGBL,RCEFLG) | ; Store/process 835ERA or 835XFR
; transaction coming into the site ; RCTXN = data on the hdr record of the msg text ; RCD = array with formatted hdr data ; RCGBL = name of the array or global where the msg is stored ; RCEFLG = error flag returned if passed by REF |
|
EXTERA(RCTXN,RCLAST,RCBILL) | ;Extract 835ERA or 835XFR transaction
|
|
ADD(RCGBL,RCDMSG,RCMSG,RCBILL,RCERR,RCD) | ; Add msg(s) in @RCGBL to
; file 344.5 ; RCGBL = name of the global used to store the msg data ; RCDMSG = Mailman msg number the ERA arrived in. ; RCMSG = ien of the existing entry in file 344.5 for multipart ERAs ; RCBILL(AR bill number) = list of bills included, pass by REF ; RCD = array with formatted hdr data |
|
ADDTXN(RCDATA,RCDMSG) | ; Add a trxn for msg in RCDATA to file 344.5
; RCDATA = data on the msg hdr record ; RCDMSG = Mailman msg number the ERA arrived in |
|
LOADDET(RCTDA,RCGBL,RCHDR,RCBILL,RCD,RCERR) | ; Load the rest of the text
; into the msg ; RCTDA = ien in file 344.5 ; RCGBL = name of the array holding the detail msg text to be loaded ; RCHDR = data on ERA hdr record ; RCBILL(AR bill number) = list of bills included, pass by REF ; RCD = array with formatted hdr data |
|
STOREM(RCTDA,RCDISP,RCTEXT,RCE) | ;Store msg text in file 344.5
|
FileNo | Call Tags |
---|---|
^RCY(344.5 - [#344.5] | Classic Fileman Calls, WP^DIE |