RCDPEMSG ;ALB/TMK - Server interface to CARC/RARC data from Austin ;01/20/15
Source file <RCDPEMSG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SERV | ; Entry point for server option to process CARC RARC messages received
; from Austin. Activated by the option S.RCDPE EDI CARC-RARC SERVER which ; is subscribed to the group G.CARC_RARC_DATA |
|
| MSG(RCXMZ,RCERR) | ; Read/Store message lines
; RCERR = array to hold errors ; RCXMZ = Mailman message number to be processed ; ; OUTPUT: 0 = No Errors ; 1 = Errors - details in RCERR |
|
| ERR(F,LINE,ARR) | ; Record a line error
|
|
| START(F,LINE) | ; "CD" read, set type and indicate a record was entered
|
|
| CODE(F,LINE) | ; Process line beginning with "01"
|
|
| DESC(F,LINE) | ; Process line beginning with "02"
|
|
| NOTE(F,LINE) | ; Process line beginning with "03"
|
|
| END(F,LINE,RCERR) | ; Process record reached end of record indicator "ZZ"
; File the entry |
|
| EQ | ; End Quit
|
|
| EOF(F,LINE) | ; Reached end of File indicator
; Check error array and see if we need to send an email. |
|
| FILEIT(FILE,IEN,DATA,RCERR) | ; Add new record or update existing record
|
|
| FQ | ; FILEIT Quit
|
|
| WPINS(DATA,REC,CD) | ; Insert data into word processing field
|
|
| EMSG(RCERR,RCEMG,RCXMZ) | ; Process Errors - Send bulletin to mail group
; RCERR = Error text array ; RCEMG = name of the mail group to which these errors should be sent ; RCXMZ = internal entry # of the mailman msg with errors |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("RC_CARC_RARC" | SERV+5!, SERV+6*, SERV+14*, SERV+16!, MSG+10*, ERR+3*, ERR+4*, END+14*, END+15* |
| ^UTILITY($J | WPINS+2!, WPINS+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | END+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | ERR~ |
| ARR("ERROR" | ERR+2* |
| CD | WPINS~ |
| CODE | MSG+6~, MSG+8*, MSG+14, MSG+17, CODE+1*, END+5, END+7, END+9, END+13, EQ+1* , FILEIT+1~, FILEIT+4*, FILEIT+5, FILEIT+10, FILEIT+11, FILEIT+12, WPINS+11 |
| CT | EMSG+4~, EMSG+6*, EMSG+22* |
| D0 | MSG+6~, MSG+8*, DESC+1*, END+5, END+7, END+9, EQ+1* |
| D1 | MSG+6~, MSG+8*, NOTE+1*, END+9, EQ+1* |
| DATA | END+2~, END+9*, END+15, END+16, FILEIT~, FILEIT+4, WPINS~, WPINS+5, WPINS+6, WPINS+7 , WPINS+8, WPINS+9 |
| DESC | FILEIT+1~, FILEIT+4*, FILEIT+12 |
| DIWF | WPINS+1~, WPINS+2*, WPINS+5*, WPINS+8* |
| DIWL | WPINS+1~, WPINS+2*, WPINS+5*, WPINS+8* |
| DIWR | WPINS+1~, WPINS+2*, WPINS+5*, WPINS+8* |
| DOIT | MSG+6~, MSG+7*, MSG+14*, END+4* |
| DUZ | EMSG+35~*, EMSG+36 |
| DUZ(0 | EMSG+35* |
| EINC | ERR+1~, ERR+2*, ERR+3, ERR+4 |
| ERR | FILEIT+1~, FILEIT+11, FQ+1!, WPINS+1~, WPINS+11 |
| F | ERR~, ERR+2, ERR+3, START~, CODE~, DESC~, NOTE~, END~, END+5, EOF~ |
| FDA | FILEIT+1~ |
| FDA( | FILEIT+5*, FILEIT+6*, FILEIT+7*, FILEIT+9, FILEIT+10, FQ+1! |
| FDAIEN | FILEIT+1~, FILEIT+3*, FILEIT+5, FILEIT+6, FILEIT+7 |
| FILE | END+2~, END+11*, END+13, END+16, FILEIT~, FILEIT+5, FILEIT+6, FILEIT+7, FILEIT+10, WPINS+10 |
| I | FILEIT+1~, FILEIT+3*, FILEIT+5, FILEIT+6, FILEIT+7, FILEIT+9, FILEIT+10, FQ+1 |
| IEN | END+13*, END+15, END+16, FILEIT~, FILEIT+3, FILEIT+9, FILEIT+10*, FILEIT+11, FILEIT+12 |
| INREC | MSG+6~, MSG+7*, MSG+14, MSG+17, CODE+1*, EQ+1* |
| IX | END+2~, END+14*, END+15 |
| LGT | WPINS+1~, WPINS+7*, WPINS+9 |
| LINE | ERR~, ERR+2, ERR+4, START~, START+1, CODE~, CODE+1, DESC~, DESC+1, NOTE~ , NOTE+1, END~, END+5, EOF~ |
| LMOD | FILEIT+1~, FILEIT+2*, FILEIT+7 |
| MID | WPINS+1~, WPINS+7*, WPINS+8 |
| MISS | END+2~, END+5, END+6*, END+7* |
| MOD | MSG+6~, MSG+8*, CODE+1*, END+9, EQ+1*, FILEIT+4*, FILEIT+7 |
| NOTE | FILEIT+1~, FILEIT+4*, FILEIT+7 |
| NXT | WPINS+1~, WPINS+7*, WPINS+9 |
| P1 | MSG+6~, MSG+11*, MSG+14, MSG+17, MSG+19 |
| RCBODY | EMSG+4~ |
| RCBODY( | EMSG+22*, EMSG+23* |
| RCBODY(1 | EMSG+10* |
| RCBODY(10 | EMSG+19* |
| RCBODY(11 | EMSG+20* |
| RCBODY(12 | EMSG+21* |
| RCBODY(2 | EMSG+11* |
| RCBODY(3 | EMSG+12* |
| RCBODY(4 | EMSG+13* |
| RCBODY(5 | EMSG+14* |
| RCBODY(6 | EMSG+15* |
| RCBODY(7 | EMSG+16* |
| RCBODY(8 | EMSG+17* |
| RCBODY(9 | EMSG+18* |
| RCCT | MSG+5~, MSG+7*, MSG+10*, MSG+14, MSG+17, MSG+19 |
| RCD | MSG+5~ |
| RCDATE | MSG+5~ |
| RCDXM | MSG+5~ |
| RCEFLG | SERV+4~, SERV+9*, SERV+10 |
| RCEMG | EMSG~, EMSG+25, EMSG+26*, EMSG+27*, EMSG+28 |
| RCERR | SERV+4~, SERV+9, SERV+10, MSG~, MSG+14, MSG+17, MSG+19, MSG+20, END~, END+16 , FILEIT~, EMSG~ |
| RCERR("ERROR" | EMSG+22 |
| RCFLG | MSG+5~, MSG+7*, MSG+20*, MSG+21 |
| RCGBL | MSG+5~ |
| RCHD | MSG+5~ |
| RCSUBJ | EMSG+4~, EMSG+9*, EMSG+17 |
| RCTXN | MSG+5~ |
| RCTYP1 | MSG+5~ |
| RCTYPE | SERV+4~ |
| RCXM | EMSG+4~ |
| RCXMZ | SERV+4~, SERV+7*, SERV+9, SERV+10, MSG~, MSG+17, EMSG~, EMSG+9, EMSG+16 |
| RCZ | FILEIT+1~, FILEIT+11*, WPINS+1~, WPINS+11 |
| REC | WPINS~, WPINS+10, WPINS+11 |
| START | MSG+6~, MSG+8*, CODE+1*, END+5, END+7, END+9, EQ+1*, FILEIT+1~, FILEIT+4*, FILEIT+6 |
| STOP | MSG+6~, MSG+8*, CODE+1*, END+9, EQ+1*, FILEIT+1~, FILEIT+4*, FILEIT+7 |
| TYPE | MSG+6~, MSG+8*, START+1*, END+5, END+6, END+11, END+14, END+15 |
| U | MSG+11, START+1, CODE+1, DESC+1, NOTE+1, END+9 |
| X | MSG+5~, MSG+17*, WPINS+5*, WPINS+8*, WPINS+9* |
| XMB | EMSG+4~ |
| XMBODY | EMSG+4~, EMSG+33*, EMSG+36 |
| XMDUZ | MSG+5~, EMSG+4~, EMSG+32* |
| XMER | SERV+4~, MSG+10 |
| XMERR | EMSG+4~ |
| XMFULL | EMSG+4~ |
| XMINSTR | EMSG+4~ |
| >> XMREC | MSG+10 |
| >> XMRG | MSG+10, MSG+11, MSG+14, MSG+19 |
| XMSUBJ | EMSG+4~, EMSG+33*, EMSG+36 |
| XMTO | EMSG+4~, EMSG+36 |
| XMTO( | EMSG+30 |
| XMTO("" | EMSG+30 |
| XMTO("I:" | EMSG+28* |
| XMTO("I:G.RCD | PE PAYMENTS EXCEPTIONS" , EMSG+30* |
| XMTYPE | EMSG+4~ |
| XMZ | SERV+6, SERV+7, EMSG+4~, EMSG+36 |
| Y | MSG+5~, MSG+17* |
| Z | EMSG+4~, EMSG+10*, EMSG+22*, EMSG+23*, EMSG+30* |
| ZZ | END+2~ |
