RCDPEX1 ;ALB/TMK - ELECTRONIC EOB MESSAGE EXCEPTIONS PROCESS ;2 Aug 2018 21:41:05
Source file <RCDPEX1.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 |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 7 | RCDPE DUPLICATE ERA WORKLIST RCDPE EXCEPTION PROCESSING RCDPEWLP RCDPEX RCDPEX DUPLICATE ERA LIST RCDPEX EOB EXCEPTION LIST RCDPEX5 |
Kernel | 1 | ^DIC(19 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point
|
|
EN1 | ; Duplicate ERA Worklist [RCDPE DUPLICATE ERA WORKLIST] option
|
|
INITD | ; set up initial variables (RCDPEX DUPLICATE ERA LIST)
|
|
INIT | ; set up initial variables
|
|
BLD(MODE) | ; EP - from RCDPEX -- build list of messages
; INPUT: MODE = "TRANSMISSION" or "DUPLICATE ERA" ; OUTPUT: ^TMP("RCDPEX-EOB",$J) |
|
FNL | ; -- Clean up list
|
|
SET(X,FILE,RCMSG,RCSEQ) | ; -- set arrays for EOB exception records
; X = the data to set into the global |
|
HDR | ;
|
|
HDR1 | ;
|
|
DIQ3445(DA,DR) | ; DIQ call to retrieve data for DR fields in file 344.5
|
|
DIQ3444(DA,DR) | ; DIQ call to retrieve data for DR fields in file 344.4
|
FileNo | Call Tags |
---|---|
^RCY(344.4 - [#344.4] | Classic Fileman Calls |
^RCY(344.5 - [#344.5] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RCY(344.5 - [#344.5] | BLD+7 |
^TMP("RCDPEU1" | FNL+1! |
^TMP("RCDPEX-EOB" | BLD+4!, BLD+27*, SET+2*, SET+3* |
^TMP("RCDPEX-EOBDX" | BLD+4!, FNL+1!, SET+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%I | DIQ3445+1~, DIQ3444+1~ |
D0 | DIQ3445+1~, DIQ3444+1~ |
DA | BLD+3~, BLD+15*, BLD+24*, DIQ3445~, DIQ3444~ |
DIC | DIQ3445+1~, DIQ3445+3*, DIQ3444+1~, DIQ3444+3* |
DIQ | DIQ3445+1~, DIQ3445+3*, DIQ3444+1~, DIQ3444+3* |
DIQ(0 | DIQ3445+3*, DIQ3444+3* |
DIQ2 | DIQ3445+1~, DIQ3444+1~ |
DIR | EN+2~, EN+9! |
DIR("?" | EN+5*, EN+6*, EN+7*, EN+8* |
DIR("A" | EN+4* |
DIR("B" | EN+4* |
DIR(0 | EN+4* |
DR | BLD+3~, BLD+15*, BLD+24*, DIQ3445~, DIQ3444~ |
FILE | SET~, SET+4 |
MODE | BLD~, BLD+11, BLD+12 |
RC0 | BLD+3~, BLD+7* |
RCDA | EN+2~, EN+30!, EN1+2! |
RCDPDATA | BLD+3~ |
RCDPDATA( | BLD+17, BLD+18, BLD+19, BLD+20, BLD+22, BLD+25, DIQ3445+2!, DIQ3444+2! |
RCDUP | BLD+3~, BLD+9*, BLD+11, BLD+12 |
RCER | BLD+3~ |
RCEXCTYP | EN+2~, EN+11*, EN+12, EN+28, EN+29 |
RCFASTXT | EN+2~, EN+30!, EN1+2!, FNL+3! |
RCINCEX | EN+2~ |
RCMSG | BLD+3~, BLD+5*, BLD+7*, BLD+9, BLD+15, BLD+17, BLD+18, BLD+19, BLD+20, BLD+21 , BLD+22, BLD+23, BLD+24, BLD+25, SET~, SET+4 |
RCPAR | EN+2~, EN+21 |
RCPAR("DICA" | EN+20* |
RCPAR("SELC" | EN+19* |
RCPAR("TYPE" | EN+19* |
RCPAY | EN+2~, EN+16*, EN+18, EN+19 |
RCQUIT | EN+2~, EN+11*, EN+14*, EN+17*, EN+22*, EN+25 |
RCS | BLD+3~ |
RCSEQ | BLD+3~, BLD+5*, BLD+14*, BLD+17, BLD+21, BLD+23, BLD+25, SET~, SET+3, SET+4 |
RCTYPE | EN+2~, EN+13*, EN+14, EN+17, EN+19 |
U | INITD+1*, INIT+1*, SET+4 |
>> VALMBG | INITD+1*, INIT+1* |
>> VALMCNT | INITD+1*, INIT+1*, BLD+5*, BLD+27*, SET+2*, SET+3, SET+4 |
>> VALMHDR(1 | HDR+1*, HDR1+1* |
>> VALMHDR(2 | HDR+2*, HDR1+1* |
X | EN+2~, BLD+3~, BLD+16*, BLD+17*, BLD+18*, BLD+19*, BLD+20*, BLD+21, BLD+22*, BLD+23 , BLD+25*, SET~, SET+2 |
XX | EN+2~, EN+21*, EN+22 |
Y | EN+2~, EN+10, EN+11 |
YY | DIQ3445+1~, DIQ3444+1~ |
Z | BLD+3~, BLD+25* |