RCDPESRV ;ALB/TMK - Server interface to AR from Austin ;06/03/02
Source file <RCDPESRV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SERVER | ; Entry point for server option to process EDI Lockbox msgs received
; from Austin and redirected EOB transactions received from another ; VistA site |
|
| MSG(RCXMZ,RCERR) | ; Read/Store message lines
; RCERR = array of errors ; RCXMZ = the # of the Mailman message contianing this message ; ; OUTPUT: ; Function returns flag ... 0 = no errors 1 = errors ; and the standard Mailman error variable contents of XMER |
|
| MSGQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | MSG+46 |
| ^RCY(344.4 - [#344.4] | MSG+41, MSG+42 |
| ^TMP("RCERR" | SERVER+5!, SERVER+10!, MSG+9!, MSG+26*, MSG+29*, MSG+30*, MSG+32! |
| ^TMP("RCMSG" | SERVER+5!, SERVER+10!, MSG+9! |
| ^TMP("RCMSGH" | SERVER+5!, SERVER+10!, MSG+9!, MSG+71* |
| ^TMP($J | SERVER+5!, SERVER+10! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | MSG+19~, MSG+21* |
| DA | MSG+37~, MSG+40*, MSG+42, MSG+45 |
| DA(1 | MSG+40*, MSG+41, MSG+42, MSG+44, MSG+45 |
| DIE | MSG+37~, MSG+44* |
| DR | MSG+37~, MSG+39* |
| DUZ | MSG+55~* |
| DUZ(0 | MSG+55* |
| RC0 | MSG+37~, MSG+41*, MSG+47 |
| RC00 | MSG+37~, MSG+42*, MSG+43, MSG+45, MSG+46, MSG+47 |
| RCACC | MSG+37~, MSG+38*, MSG+39, MSG+48, MSG+50, MSG+51, MSG+53, MSG+56 |
| RCCT | MSG+8~, MSG+25*, MSG+26* |
| RCD | MSG+8~, MSG+73, MSG+75 |
| RCD("DATE" | MSG+23* |
| RCD("FROM" | MSG+15*, MSG+59, MSG+63 |
| RCD("MSG#" | MSG+13* |
| RCD("PAYFROM" | MSG+33*, MSG+68 |
| RCD("SUBJ" | MSG+16* |
| RCDATE | MSG+8~, MSG+17*, MSG+21*, MSG+23, MSG+30 |
| RCDXM | MSG+8~, MSG+68 |
| RCDXM("" | MSG+67 |
| RCDXM(1 | MSG+61* |
| RCDXM(10 | MSG+65* |
| RCDXM(11 | MSG+66* |
| RCDXM(2 | MSG+61* |
| RCDXM(3 | MSG+62* |
| RCDXM(4 | MSG+62* |
| RCDXM(5 | MSG+63* |
| RCDXM(6 | MSG+63* |
| RCDXM(7 | MSG+63* |
| RCDXM(8 | MSG+64* |
| RCDXM(9 | MSG+65* |
| RCEFLG | SERVER+4~, SERVER+7*, SERVER+8, MSG+8~, MSG+11*, MSG+28*, MSG+73, MSG+75, MSGQ |
| RCERR | SERVER+4~, SERVER+7, SERVER+8, MSG~, MSG+11*, MSG+28* |
| RCGBL | MSG+8~, MSG+11*, MSG+70*, MSG+71, MSG+73, MSG+75 |
| RCHD | MSG+8~, MSG+14*, MSG+15, MSG+16, MSG+17, MSG+29 |
| RCTXN | MSG+8~, MSG+11*, MSG+33*, MSG+34, MSG+38, MSG+40, MSG+61, MSG+66, MSG+71, MSG+73 , MSG+75 |
| RCTYP1 | MSG+8~, MSG+34*, MSG+36, MSG+59, MSG+71, MSG+73, MSG+75 |
| RCTYPE | SERVER+4~ |
| RCXM | MSG+37~ |
| RCXM(1 | MSG+46* |
| RCXM(10 | MSG+50*, MSG+51* |
| RCXM(2 | MSG+46* |
| RCXM(3 | MSG+47* |
| RCXM(4 | MSG+47* |
| RCXM(5 | MSG+48* |
| RCXM(6 | MSG+48* |
| RCXM(7 | MSG+48* |
| RCXM(8 | MSG+49* |
| RCXM(9 | MSG+49* |
| RCXMZ | SERVER+4~, SERVER+6*, SERVER+7, SERVER+8, SERVER+9, MSG~, MSG+13, MSG+14, MSG+64, MSG+67 , MSG+68 |
| U | MSG+15, MSG+16, MSG+17, MSG+33, MSG+34, MSG+38, MSG+40, MSG+43, MSG+46, MSG+47 , MSG+48, MSG+61 |
| X | MSG+8~, MSG+17*, MSG+18, MSG+20*, MSG+37~ |
| XMBODY | MSG+37~, MSG+52*, MSG+56 |
| XMDUZ | MSG+8~ |
| XMER | SERVER+4~, MSG+26, MSG+27 |
| >> XMREC | MSG+26 |
| >> XMRG | MSG+26, MSG+33 |
| XMTO | MSG+37~, MSG+56 |
| XMTO("I:G.RCD | PE PAYMENTS" , MSG+53* |
| XMZ | SERVER+6, MSG+37~, MSG+56, MSG+75 |
| Y | MSG+8~, MSG+21, MSG+37~ |
| >> ZTREQ | SERVER+9* |
