RCDPEWL ;ALB/TMK/KML - ELECTRONIC EOB MESSAGE WORKLIST ;Jun 06, 2014@19:11:19
Source file <RCDPEWL.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 6 | $$HACERA^RCDPEU (PARAMS,PRERA1)^RCDPEWL0 BLD^RCDPEWL1 WL^RCDPEWL7 (ADDLINES,PARAMS)^RCDPEWLA $$WLH^RCDPEWLZ |
VA FileMan | 6 | ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR |
List Manager | 4 | EN^VALM (CLEAR,FULL)^VALM1 CLEAN^VALM10 EN^VALM2 |
Kernel | 1 | ($$DT,$$FMTE)^XLFDT |
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 |
---|---|---|
EN | ; Main entry point
|
|
DISP(RCERA,RCNOED) | ; Entry to worklist from receipt processing
; RCERA = ien of entry in file 344.49 ; RCNOED = 1 if receipt exists/no editing allowed ; = 2 if no edit and called from receipt processing ; ; prca*4.5*298 - added AUTOPOST input argument ; AUTOPOST = "" if ERA is non-autopost ; = 0 if auto-posted ERA is in UNPOSTED status ; = 1 if auto-posted ERA is in PARTIAL posted status ; = 2 if auto-posted ERA is in COMPLETE status |
|
DISPQ | ||
INIT | ; -- set up initial variables
|
|
CV | ; Change View Action for EEOB Worklist
|
|
ADDREC(RCERA,RCDAT) | ; Add a record to file 344.49
; RCERA = ien of file 344.4 ; RCDAT = array containing additional data to add to new entry |
|
HDR | ; Creates header lines for the selected ERA display
; PRCA*4.5*349 - Reorganized NEW list & added XX temp. variable |
|
FNL | ; -- Clean up list
|
|
SEL(RCDA) | ; Select entry from worklist scratch pad screen
; RCDA = array returned if selections made ; RCDA(n)=ien of entry(s) in file 344.41 ; where n = the line # selected |
|
NOEDIT | ; Display no edit allowed if receipt exists
|
|
NOBATCH | ; Display action not allowed if working at batch level not the ERA level
|
|
RECEIPTS(RCSCR) | ; get list of receipts for the ERA
; Input: RCSCR: ERA File (#344.4) IEN ; Output: "" - No Receipt / REC# - One Receipt / REC#A-REC#Z - Range of Receipts |
Name | Field # of Occurrence |
---|---|
^DIC | EN+15 |
FILE^DICN | ADDREC+10 |
^DIE | DISP+37, DISP+49, DISP+71 |
^DIK | DISP+81 |
$$GET1^DIQ | HDR+18, HDR+37, RECEIPTS+10 |
^DIR | EN+10, DISP+20, DISP+34, DISP+43, DISP+54, DISP+56, DISP+59, DISP+63, DISP+66, DISP+76 , DISP+82, DISP+95, NOEDIT+4, NOBATCH+4 |
$$HACERA^RCDPEU | DISP+39 |
PARAMS^RCDPEWL0 | EN+19 |
PRERA1^RCDPEWL0 | DISP+22 |
BLD^RCDPEWL1 | INIT+7, CV+3 |
WL^RCDPEWL7 | EN+16 |
ADDLINES^RCDPEWLA | DISP+87 |
PARAMS^RCDPEWLA | INIT+6, CV+2 |
$$WLH^RCDPEWLZ | HDR+39 |
EN^VALM | EN+21, DISP+96 |
CLEAR^VALM1 | FNL+2 |
FULL^VALM1 | EN+2, CV+1 |
CLEAN^VALM10 | FNL+2 |
EN^VALM2 | SEL+6 |
$$DT^XLFDT | DISP+48, DISP+70 |
$$FMTE^XLFDT | DISP+58, HDR+33 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^RCY(344.31 - [#344.31] | GET1^DIQ |
^RCY(344.4 - [#344.4] | Classic Fileman Calls, GET1^DIQ |
^RCY(344.49 - [#344.49] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RCY(344 - [#344] | RECEIPTS+7 |
^RCY(344.31 - [#344.31] | HDR+17 |
^RCY(344.4 - [#344.4] | DISP+13, DISP+80, DISP+95, DISPQ, HDR+7, HDR+8, RECEIPTS+6 |
^RCY(344.49 - [#344.49] | DISP+15, DISP+73 |
^TMP("RCDPE-EOB_WL" | FNL+1! |
^TMP("RCDPE-EOB_WLDX" | FNL+1!, SEL+7 |
^TMP($J | DISP+88!, INIT+7, CV+3, HDR+3, HDR+4, FNL+1! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | RECEIPTS+4!, RECEIPTS+10 |
ARRAY( | RECEIPTS+8*, RECEIPTS+10*, RECEIPTS+12 |
ARRAY("" | RECEIPTS+12, RECEIPTS+13, RECEIPTS+15 |
AUTOPSTS | HDR+31~, HDR+32*, HDR+33*, HDR+34 |
CTR | RECEIPTS+3~, RECEIPTS+5* |
DA | EN+1~, DISP+10~, DISP+37*, DISP+47*, DISP+68*, DISP+81* |
DD | ADDREC+4~, ADDREC+10! |
DIC | EN+1~, EN+14*, DISP+10~, ADDREC+4~, ADDREC+6*, ADDREC+10! |
DIC("DR" | ADDREC+5*, ADDREC+7*, ADDREC+8*, ADDREC+9* |
DIC(0 | EN+14*, ADDREC+6* |
DIE | DISP+10~, DISP+37*, DISP+47*, DISP+68* |
DIK | DISP+10~, DISP+81* |
DINUM | ADDREC+4~, ADDREC+6* |
DIR | EN+11!, DISP+10~, DISP+20!, DISP+34!, DISP+43!, DISP+54!, DISP+56!, DISP+59!, DISP+63!, DISP+66! , DISP+76!, DISP+82!, DISP+95!, NOEDIT+1~, NOEDIT+4!, NOBATCH+1~, NOBATCH+4! |
DIR("?" | EN+6*, EN+7*, DISP+31* |
DIR("A" | EN+5*, DISP+17*, DISP+18*, DISP+30*, DISP+32*, DISP+42*, DISP+51*, DISP+56*, DISP+66*, DISP+76* , DISP+82*, NOEDIT+2*, NOEDIT+3*, NOBATCH+2*, NOBATCH+3* |
DIR("B" | EN+8*, DISP+42*, DISP+52*, DISP+53*, DISP+58*, DISP+66* |
DIR(0 | EN+4*, DISP+19*, DISP+33*, DISP+43*, DISP+51*, DISP+56*, DISP+58*, DISP+62*, DISP+66*, DISP+76* , DISP+82*, DISP+95*, NOEDIT+2*, NOBATCH+2* |
DLAYGO | ADDREC+4~, ADDREC+6* |
DO | ADDREC+4~, ADDREC+10! |
DR | DISP+10~, DISP+37*, DISP+48*, DISP+70* |
DTOUT | EN+12, DISP+10~, DISP+35, DISP+44, DISP+55, DISP+60, DISP+64 |
DUOUT | EN+12, DISP+10~, DISP+35, DISP+44, DISP+55, DISP+60, DISP+64 |
DUZ | DISP+48, DISP+70 |
I | HDR+2~, HDR+5* |
RC | HDR+2~, HDR+7*, HDR+10, HDR+11, HDR+18, HDR+20 |
RC0 | DISP+10~, DISP+13*, DISP+14, DISP+25, DISP+26, DISP+27, DISP+29, DISP+53, DISP+58, DISP+66 , RECEIPTS+3~ |
RC4 | HDR+2~, HDR+8*, HDR+29, HDR+32, HDR+33 |
RC5 | DISP+10~, DISP+13*, DISP+27, DISP+52, HDR+2~, HDR+7*, HDR+19 |
RCARC | HDR+2~, HDR+38~, HDR+39*, HDR+40 |
RCDA | SEL~, SEL+4!, SEL+7* |
RCDA( | SEL+7* |
RCDAT | DISP+10~, DISP+78, ADDREC~ |
RCDAT("BANK" | DISP+65*, ADDREC+9 |
RCDAT("CHECK#" | DISP+57*, DISP+66, DISP+70, ADDREC+7 |
RCDAT("CHECKDT" | DISP+61*, ADDREC+8 |
RCEEOBPU | HDR+2~, HDR+4*, HDR+14 |
RCERA | EN+1~, DISP~, DISP+13, DISP+15, DISP+21*, DISP+22*, DISP+23*, DISP+37, DISP+39, DISP+41 , DISP+47, DISP+66, DISP+68, DISP+73, DISP+78, DISPQ, ADDREC~, ADDREC+6 |
RCFASTXT | EN+1~, FNL+3! |
RCNOED | EN+1~, DISP~, DISP+12 |
RCQUIT | EN+1~, EN+20, DISP+10~, DISP+13*, DISP+15, DISP+21*, DISP+22*, DISP+23*, DISP+27, DISP+28* , DISP+29, DISP+35*, DISP+44*, DISP+55*, DISP+60*, DISP+64*, DISP+67*, INIT+1~, INIT+3*, INIT+6 |
RCREV | INIT+1~ |
RCSCR | DISP+10~, DISP+22*, DISP+73*, DISP+74, DISP+78*, DISP+79, DISP+80, DISP+81*, DISP+83, DISP+87 , DISP+90, DISP+95*, HDR+6, HDR+7, HDR+8, HDR+17, HDR+28, HDR+37, HDR+39, RECEIPTS~ , RECEIPTS+6, RECEIPTS+10 |
RCSCR("NOEDIT" | DISP+12*, DISP+15, DISP+75, DISP+95, HDR+27 |
RCSORTBY | HDR+2~, HDR+3*, HDR+12 |
RCTRACE | DISP+10~, DISP+14*, DISP+41 |
RCUNM | DISP+10~, DISP+28*, DISP+29, DISP+37*, DISP+39, DISP+50 |
RCY | ADDREC+4~, ADDREC+5*, ADDREC+11*, ADDREC+12 |
RECEIPT | RECEIPTS+3~, RECEIPTS+5*, RECEIPTS+7*, RECEIPTS+8 |
STR | RECEIPTS+4!, RECEIPTS+5*, RECEIPTS+13*, RECEIPTS+15*, RECEIPTS+16 |
U | DISP+25, DISP+26, DISP+27, DISP+29, DISP+52, DISP+53, DISP+58, DISP+66, HDR+10, HDR+11 , HDR+18, HDR+19, HDR+20, HDR+29, HDR+32, HDR+33, SEL+7, RECEIPTS+7 |
>> VALMBCK | CV+4* |
>> VALMBG | INIT+2*, CV+4* |
>> VALMCNT | INIT+2* |
>> VALMHDR( | HDR+5* |
>> VALMHDR(1 | HDR+10*, HDR+11* |
>> VALMHDR(2 | HDR+13*, HDR+15* |
>> VALMHDR(3 | HDR+18*, HDR+19* |
>> VALMHDR(4 | HDR+20* |
>> VALMHDR(5 | HDR+28*, HDR+40* |
>> VALMHDR(6 | HDR+34* |
>> VALMQUIT | INIT+6*, HDR+6* |
VALMY | SEL+5~ |
VALMY( | SEL+7 |
X | EN+1~, DISP+10~, DISP+80*, ADDREC+4~, ADDREC+6*, HDR+2~, NOEDIT+1~, NOBATCH+1~, RECEIPTS+3~, RECEIPTS+5* , RECEIPTS+6*, RECEIPTS+7 |
>> XQORNOD(0 | SEL+6 |
XX | HDR+2~, HDR+12*, HDR+13, HDR+14*, HDR+15 |
Y | EN+1~, EN+13, EN+16, DISP+10~, DISP+21, DISP+22, DISP+23, DISP+36, DISP+44, DISP+55 , DISP+57, DISP+61, DISP+65, DISP+67, ADDREC+4~, ADDREC+11, NOEDIT+1~, NOBATCH+1~ |
Z | HDR+2~, HDR+17*, HDR+18, HDR+19 |