RCDPESR3 ;ALB/TMK/PJH - Server auto-update utilities - EDI Lockbox ;Jun 06, 2014@19:11:19
Source file <RCDPESR3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EFTIN(RCTXN,RCD,XMZ,RCGBL,RCEFLG) | ; Adds a new EFT record to AR file 344.3
; from Lockbox EFT msg ; Input: RCTXN - Data on the header record of the message text ; RCD - Array containing formatted mail message header data ; XMZ - Mail message number ; RCGBL - Name of the array or global where the message is stored ; Output: RCEFLG - Error flag returned if passed by reference |
|
| EFTQ | ;
|
|
| ADDEFT(RCTXN,RCXMZ,RCGBL,RCERR) | ; File EFT TOTAL record in file 344.3
; RCTXN = the data on the header record of the message text ; RCXMZ = the mail message number ; RCGBL = the name of the array or global where the message is stored ; Function returns the ien of the total record found/added ; and also returns RCERR if passed by reference |
|
| ADDQ | ||
| CHKSUM(RCTDA) | ; Calc the checksum for EFT record stored in RCTDA in 344.3
|
|
| DISP(RCTIT,RCCT,RCDXM,RCXMZ) | ; Sends bulletin with formatted data from message
; RCTIT = title of bulletin ; RCCT = # of lines previously populated ; RCXDM = array containing the text of the bulletin |
|
| DUP(RCM,RCIFN,RCAMT,RCAMT1) | ; EOB in mail message already stored in 361.1?
; RCM = msg # EOB was received in ; RCIFN = bill ien ; RCAMT = amt pd ; RCAMT1 = amt reported billed ; Returns 0 if none found, entry #^message checksum on file if found |
|
| DUPERA(DUP,RCNOUPD) | ; Msg for duplicate ERA
; RCNOUPD = # of message with duplicate data ; DUP = flag = -1 if duplicate message received in same mail msg # |
|
| BULLS(RCFILE,RCTDA,DUP,RCXMSG) | ; Error bulletins for ERA
; PRCA*4.5*298 - DUPLICATE TRANSMISSION MSG AND EEOB - EXCEPTIONS message disabled - 14 Feb 2014 |
|
| ADJERR(RCERR) | ; Set up adj error text in RCERR(n) - pass by ref
; Function returns # of lines for error text |
| Name | Field # of Occurrence |
|---|---|
| ^%DT | ADDEFT+26, ADDEFT+49 |
| FILE^DICN | EFTIN+55, ADDEFT+66, ADDEFT+73 |
| ^DIE | EFTIN+64, ADDEFT+62 |
| ^DIK | EFTIN+58, EFTIN+59 |
| CLEAN^DILF | EFTQ+1 |
| $$GET1^DIQ | ADDEFT+52 |
| BULLEFT^RCDPESR0 | DISP+10 |
| ERRUPD^RCDPESR1 | EFTIN+20, EFTIN+27, EFTIN+61 |
| TAXERR^RCDPESR1 | EFTIN+52 |
| BULL2^RCDPESR5 | BULLS+3 |
| DISP^RCDPESR8 | DISP+8 |
| $$FDT^RCDPESR9 | EFTIN+44, ADDEFT+25, ADDEFT+48, ADDEFT+56 |
| $$ZERO^RCDPESR9 | ADDEFT+52 |
| $$NOW^XLFDT | ADDEFT+58 |
| FileNo | Call Tags |
|---|---|
| ^RCY(344.3 - [#344.3] | Classic Fileman Calls, GET1^DIQ |
| ^RCY(344.31 - [#344.31] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("LPC" | CHKSUM+7, CHKSUM+9 |
| ^IBM(361.1 - [#361.1] | DUP+8, DUP+9, DUP+10 |
| ^RCY(344 - [#344] | ADDEFT+32 |
| ^RCY(344.3 - [#344.3] | ADDEFT+30, ADDEFT+61, ADDEFT+67, ADDEFT+70, ADDEFT+71, ADDEFT+74, CHKSUM+4 |
| ^RCY(344.31 - [#344.31] | EFTIN+59, CHKSUM+9 |
| ^TMP("RC" | DISP+5!, DISP+9, DISP+11! |
| ^TMP("RC1" | DISP+5!, DISP+11! |
| ^TMP("RCERR1" | DUPERA+3!, DUPERA+4* |
| ^TMP("RCMSG" | DISP+7 |
| ^TMP("RCMSGH" | DISP+6 |
| ^TMP("RCTEMP" | DISP+5!, DISP+6*, DISP+7*, DISP+11! |
| Name | Line Occurrences |
|---|---|
| $$ADDEFT | EFTIN+24 |
| $$CHKSUM | EFTIN+64 |
| EFTQ | EFTIN+19, EFTIN+26, EFTIN+30 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EFTIN+35 |
| ^("LPC" | CHKSUM+7, CHKSUM+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | ADDEFT+26*, ADDEFT+46~, ADDEFT+49* |
| CT | EFTIN+8~, EFTIN+11*, EFTIN+14* |
| DA | EFTIN+8~, EFTIN+37~, EFTIN+58*, EFTIN+59*, EFTIN+64*, ADDEFT+46~, ADDEFT+62*, ADDEFT+63!, ADDEFT+66! |
| DA(1 | ADDEFT+65* |
| DD | EFTIN+37~, EFTIN+56!, ADDEFT+46~, ADDEFT+73! |
| DEPAMT | ADDEFT+46~, ADDEFT+52*, ADDEFT+58 |
| DIC | EFTIN+37~, EFTIN+54*, EFTIN+56!, ADDEFT+46~, ADDEFT+62!, ADDEFT+65*, ADDEFT+66!, ADDEFT+72*, ADDEFT+73! |
| DIC("DR" | EFTIN+39*, EFTIN+40*, EFTIN+41*, EFTIN+42*, EFTIN+43*, EFTIN+44*, EFTIN+45*, EFTIN+46*, EFTIN+48*, ADDEFT+54* , ADDEFT+55*, ADDEFT+56*, ADDEFT+58*, ADDEFT+62 |
| DIC(0 | EFTIN+54*, ADDEFT+65*, ADDEFT+72* |
| DIE | EFTIN+37~, EFTIN+64*, ADDEFT+46~, ADDEFT+62*, ADDEFT+63! |
| DIK | EFTIN+8~, EFTIN+58*, EFTIN+59* |
| DINUM | ADDEFT+46~, ADDEFT+72*, ADDEFT+73! |
| DLAYGO | EFTIN+8~, EFTIN+54*, EFTIN+56!, ADDEFT+46~, ADDEFT+72*, ADDEFT+73! |
| DO | EFTIN+37~, EFTIN+56!, ADDEFT+46~, ADDEFT+73! |
| DR | EFTIN+37~, EFTIN+64*, ADDEFT+46~, ADDEFT+62*, ADDEFT+63! |
| DT | EFTIN+45 |
| DUP | DUP+6~, DUP+7*, DUP+8, DUP+10*, DUP+11*, DUP+12, DUPERA~, DUPERA+4, BULLS~ |
| DUP1 | DUP+6~, DUP+7*, DUP+9*, DUP+11 |
| RC | EFTIN+8~, EFTIN+34*, DISP+4~, DISP+6*, DISP+7* |
| RC1 | EFTIN+8~, EFTIN+34* |
| RCAMT | DUP~, DUP+10 |
| RCAMT1 | DUP~, DUP+10 |
| RCCT | DISP~, DISP+9* |
| RCD | EFTIN~, EFTIN+20, EFTIN+27, EFTIN+61 |
| RCDDAT | ADDEFT+24~, ADDEFT+26*, ADDEFT+30 |
| RCDEPAMT | EFTIN+8~ |
| RCDPCSUM | CHKSUM+2~, CHKSUM+4*, CHKSUM+7*, CHKSUM+9*, CHKSUM+10 |
| RCDPDATA | CHKSUM+2~, CHKSUM+6*, CHKSUM+7, CHKSUM+9* |
| RCDTTM | ADDEFT+46~, ADDEFT+49*, ADDEFT+55 |
| RCDUP | ADDEFT+7~, ADDEFT+21*, ADDEFT+32* |
| RCDXM | DISP~, DISP+10 |
| RCDXM( | DISP+9* |
| RCEFLG | EFTIN~, EFTIN+11*, EFTIN+21*, EFTIN+28*, EFTIN+60*, EFTIN+63 |
| RCEFT | EFTIN+8~, EFTIN+24*, EFTIN+30, EFTIN+38, EFTIN+58, EFTIN+59, EFTIN+64 |
| RCERR | EFTIN+8~, EFTIN+17*, EFTIN+19, EFTIN+20, EFTIN+24, EFTIN+26, EFTIN+27, EFTIN+35, EFTIN+60*, EFTIN+61 , ADDEFT~, ADDEFT+8*, ADDEFT+77*, ADJERR~ |
| RCERR(1 | ADJERR+2* |
| RCERR(2 | ADJERR+2* |
| RCERR(3 | ADJERR+2* |
| RCERR(4 | ADJERR+2* |
| RCFILE | BULLS~, BULLS+3 |
| RCGBL | EFTIN~, EFTIN+14, EFTIN+20, EFTIN+24, EFTIN+27, EFTIN+35, EFTIN+61, ADDEFT~ |
| RCHAC | ADDEFT+7~, ADDEFT+21* |
| RCIFN | DUP~, DUP+8 |
| RCLAST | EFTIN+8~, EFTIN+11*, EFTIN+12, EFTIN+13*, EFTIN+17 |
| RCM | DUP~, DUP+8 |
| RCMEFTS | EFTIN+8~ |
| RCNOUPD | DUPERA~, DUPERA+4 |
| RCRCPT | ADDEFT+7~ |
| RCTDA | EFTIN+8~, ADDEFT+7~, ADDEFT+8*, ADDEFT+30*, ADDEFT+33*, ADDEFT+52, ADDEFT+58, ADDEFT+60, ADDEFT+61*, ADDEFT+62 , ADDEFT+65, ADDEFT+67, ADDEFT+69, ADDEFT+75*, ADDEFT+77, ADDQ, CHKSUM~, CHKSUM+4, CHKSUM+9, BULLS~ , BULLS+3 |
| RCTIT | DISP~, DISP+10 |
| RCTXN | EFTIN~, EFTIN+24, EFTIN+51, EFTIN+52, ADDEFT~, ADDEFT+21, ADDEFT+22, ADDEFT+25, ADDEFT+30, ADDEFT+48 , ADDEFT+52, ADDEFT+56 |
| RCTYP1 | EFTIN+8~, EFTIN+11*, EFTIN+20, EFTIN+27, EFTIN+61 |
| RCX | ADDEFT+46~, ADDEFT+70*, ADDEFT+71*, ADDEFT+72, ADDEFT+74 |
| RCXMSG | BULLS~, BULLS+3 |
| RCXMZ | ADDEFT~, ADDEFT+58, ADDEFT+65, DISP~, DISP+10 |
| RCZ | EFTIN+8~, EFTIN+34*, EFTIN+35* |
| U | EFTIN+13, EFTIN+36, EFTIN+39, EFTIN+40, EFTIN+41, EFTIN+42, EFTIN+43, EFTIN+44, EFTIN+45, EFTIN+46 , EFTIN+47, EFTIN+50, EFTIN+51, EFTIN+52, ADDEFT+21, ADDEFT+22, ADDEFT+25, ADDEFT+30, ADDEFT+32, ADDEFT+48 , ADDEFT+52, ADDEFT+56, CHKSUM+6, CHKSUM+9, DUP+9, DUP+10 |
| X | EFTIN+37~, EFTIN+38*, ADDEFT+25*, ADDEFT+46~, ADDEFT+48*, ADDEFT+65*, ADDEFT+71*, CHKSUM+2~, CHKSUM+4*, CHKSUM+7* , CHKSUM+9* |
| >> XMER | EFTIN+12 |
| >> XMREC | EFTIN+12 |
| >> XMRG | EFTIN+13, EFTIN+14 |
| XMZ | EFTIN~, EFTIN+24 |
| XX | EFTIN+8~, EFTIN+47*, EFTIN+48, EFTIN+51*, EFTIN+52 |
| Y | EFTIN+37~, EFTIN+57, ADDEFT+26, ADDEFT+46~, ADDEFT+49, ADDEFT+75, CHKSUM+2~, CHKSUM+7, CHKSUM+9 |
| Z | EFTIN+8~, EFTIN+59*, ADDEFT+7~, ADDEFT+27*, ADDEFT+30*, ADDEFT+32, ADDEFT+33, CHKSUM+2~, CHKSUM+9*, DISP+4~ , DISP+7*, DISP+9*, DUP+6~, DUP+7*, DUP+8*, DUP+9, DUP+10 |
| Z0 | EFTIN+8~, EFTIN+35*, EFTIN+36, EFTIN+39, EFTIN+40, EFTIN+41, EFTIN+42, EFTIN+43, EFTIN+44, EFTIN+45 , EFTIN+46, EFTIN+47, EFTIN+50, EFTIN+51, ADDEFT+7~, ADDEFT+30*, ADDEFT+32, CHKSUM+2~, CHKSUM+4*, CHKSUM+6 , CHKSUM+9* |
