RCDPEWL5 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ; 7/30/10 6:52pm
Source file <RCDPEWL5.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 9 | $$BN1^PRCAFN $$HACERA^RCDPEU (HDR,SEL)^RCDPEWL PRERA^RCDPEWL0 BLD^RCDPEWL1 (NOTAV,SEL)^RCDPEWL2 PROCESS^RCDPURE1 $$BLDRCPT^RCDPUREC $$ADDTRAN^RCDPURET |
VA FileMan | 5 | ^DIC FILE^DICN ^DIE ^DIK ^DIR |
Kernel | 1 | ($$FMTE,$$NOW)^XLFDT |
List Manager | 1 | ($$SETFLD,FULL)^VALM1 |
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 |
---|---|---|
INIT | ; Build receipt preview
|
|
SET(X) | ;
|
|
HDR | ;
|
|
FNL | ;
|
|
RCOMM | ; Allow entry of receipt comment to be moved to line on receipt
|
|
RCOMMQ | ||
SUSPERA | ; Option entrypoint to select an ERA to be posted to suspense
|
|
SUSP(RCERA,LM) | ; Function to send receipt to suspense for ERA
; RCERA = ien of entry in file 344.4 ; LM = flag to indicate it was called from list manager protocol ; = 1 if true, 0 if false |
|
SUSPQ | ||
REVIEW | ; Enter review information on worklist and turn review display on/off
; Assumes RCSCR = ien of the entry in file 344.49 |
|
REVIEWQ | ||
NEWREV(RCSCR,RCZ,RCDUZ) | ; Enter a new review comment
; RCSCR = ien of entry in file 344.49 ; RCZ = ien of the EEOB (seq #) ; RCDUZ =DUZ of user entering the comment ; Function returns 0 if no new comment, ien of comment if added |
|
NEWREVQ | ||
NOACT | ;
|
|
ADDUSER(RCSCR,RCDUZ) | ; Add user record to user preferences multiple in file 344.49 and initialize all preferences
; RCSCR = ien of entry in file 344.49 ; RCDUZ = the ien of the user |
|
ADDUQ |
Name | Field # of Occurrence |
---|---|
^DIC | SUSPERA+3, REVIEW+34 |
FILE^DICN | NEWREV+10, ADDUSER+7 |
^DIE | SUSP+29, SUSP+31, SUSP+32, SUSP+34, SUSP+37, REVIEW+17, REVIEW+36, REVIEW+40 |
^DIK | NEWREV+13 |
^DIR | SUSPERA+6, SUSP+8, SUSP+16, SUSP+18, SUSP+24, SUSP+38, REVIEW+8, REVIEW+29, NOACT+2 |
$$BN1^PRCAFN | INIT+20 |
$$HACERA^RCDPEU | SUSP+7 |
HDR^RCDPEWL | HDR+1 |
SEL^RCDPEWL | REVIEW+21 |
PRERA^RCDPEWL0 | SUSPERA+8 |
BLD^RCDPEWL1 | REVIEW+41, REVIEWQ |
NOTAV^RCDPEWL2 | RCOMM+4 |
SEL^RCDPEWL2 | RCOMM+6 |
PROCESS^RCDPURE1 | SUSP+36 |
$$BLDRCPT^RCDPUREC | SUSP+22 |
$$ADDTRAN^RCDPURET | SUSP+26 |
$$SETFLD^VALM1 | INIT+19, INIT+20, INIT+21 |
FULL^VALM1 | RCOMM+2, SUSP+6, REVIEW+4 |
$$FMTE^XLFDT | NEWREV+6 |
$$NOW^XLFDT | NEWREV+6 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^RCY(344 - [#344] | Classic Fileman Calls |
^RCY(344.4 - [#344.4] | Classic Fileman Calls |
^RCY(344.49 - [#344.49] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RC(341.1 - [#341.1] | SUSP+22 |
^RCY(344.31 - [#344.31] | SUSP+33 |
^RCY(344.4 - [#344.4] | SUSP+5 |
^RCY(344.49 - [#344.49] | INIT+4, INIT+10, SUSP+31, REVIEW+10, REVIEW+14, REVIEW+25, NEWREV+13, ADDUSER+4 |
^TMP("RCDPE_EOB_PREVIEW" | INIT+2!, SET+2*, FNL+1! |
^TMP($J | REVIEW+7, REVIEW+9*, REVIEW+16, REVIEW+17, REVIEW+19, REVIEW+41, REVIEWQ |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | SUSP+4~, SUSP+28*, SUSP+31*, SUSP+32*, SUSP+34*, SUSP+37*, REVIEW+3~, REVIEW+15*, REVIEW+16, REVIEW+33~ , REVIEW+34*, REVIEW+36*, REVIEW+40*, NEWREV+5~, NEWREV+13*, ADDUSER+3~ |
DA(1 | SUSP+28*, REVIEW+15*, REVIEW+17, REVIEW+34*, REVIEW+36*, REVIEW+40*, NEWREV+7*, NEWREV+8, NEWREV+13, ADDUSER+6* |
DA(2 | REVIEW+36*, NEWREV+7*, NEWREV+8, NEWREV+13 |
DD | NEWREV+5~, NEWREV+9!, NEWREV+10!, ADDUSER+3~ |
DIC | SUSPERA+1~, SUSPERA+2*, SUSPERA+3!, REVIEW+3~, REVIEW+34*, NEWREV+5~, NEWREV+8*, NEWREV+10!, ADDUSER+3~, ADDUSER+6* , ADDUSER+7! |
DIC("DR" | NEWREV+7*, ADDUSER+6* |
DIC("S" | SUSPERA+2*, REVIEW+34* |
DIC(0 | SUSPERA+2*, REVIEW+34*, NEWREV+7*, ADDUSER+6* |
DIE | SUSP+4~, SUSP+28*, SUSP+31*, SUSP+32*, SUSP+34*, SUSP+37*, REVIEW+3~, REVIEW+17*, REVIEW+33~, REVIEW+36* , REVIEW+40*! |
DIE("NO^" | REVIEW+40* |
DIK | NEWREV+5~, NEWREV+13* |
DIR | SUSPERA+1~, SUSPERA+6!, SUSP+4~, SUSP+8!, SUSP+16!, SUSP+18!, SUSP+24!, SUSP+38!, REVIEW+3~, REVIEW+8! , REVIEW+28~, REVIEW+29!, NOACT+1~, NOACT+2! |
DIR("A" | SUSPERA+6*, SUSP+8*, SUSP+11*, SUSP+13*, SUSP+14*, SUSP+15*, SUSP+18*, SUSP+24*, REVIEW+8*, REVIEW+29* , NOACT+2* |
DIR("B" | SUSPERA+6*, SUSP+9*, SUSP+18*, REVIEW+8*, REVIEW+29* |
DIR(0 | SUSPERA+6*, SUSP+8*, SUSP+9*, SUSP+18*, SUSP+24*, SUSP+38*, REVIEW+7*, REVIEW+29*, NOACT+2* |
DLAYGO | NEWREV+5~, NEWREV+7*, NEWREV+10!, ADDUSER+3~, ADDUSER+6*, ADDUSER+7! |
DO | NEWREV+5~, NEWREV+9!, NEWREV+10!, ADDUSER+3~ |
DR | SUSP+4~, SUSP+27*, SUSP+31*, SUSP+32*, SUSP+34*, SUSP+37*, REVIEW+3~, REVIEW+17*, REVIEW+33~, REVIEW+36* , REVIEW+40* |
DT | SUSP+22 |
DTOUT | SUSPERA+1~, SUSPERA+7, SUSP+4~, SUSP+19, REVIEW+30 |
DUOUT | SUSPERA+1~, SUSPERA+7, SUSP+4~, SUSP+19, REVIEW+30 |
DUZ | SUSP+32, REVIEW+10, REVIEW+13, REVIEW+25, REVIEW+26, REVIEW+38 |
LM | SUSP~, SUSP+6, SUSPQ |
RC | REVIEW+3~, REVIEW+7*, REVIEW+8, REVIEW+9 |
RC0 | SUSP+4~, SUSP+5*, SUSP+10, SUSP+11, SUSP+18, SUSP+27, SUSP+37 |
RC5 | SUSP+4~, SUSP+5*, SUSP+21, SUSP+27 |
RCCOM | SUSP+4~, SUSP+20*, SUSP+27 |
RCDA | REVIEW+3~, REVIEW+21 |
RCDA( | REVIEW+22 |
RCDA(0 | REVIEW+22 |
RCDUZ | NEWREV~, NEWREV+7, ADDUSER~, ADDUSER+4, ADDUSER+6 |
RCEDIT | RCOMM+1~, RCOMM+6, RCOMM+7 |
RCER | SUSP+4~ |
RCERA | SUSPERA+1~, SUSPERA+5*, SUSPERA+8, SUSPERA+9, SUSP~, SUSP+5, SUSP+7, SUSP+18, SUSP+31, SUSP+32 , SUSP+33, SUSP+34, SUSP+37 |
RCLSTREV | REVIEW+3~, REVIEW+14*, REVIEW+16 |
RCNOW | NEWREV+5~, NEWREV+6*, NEWREV+7 |
RCPAYTY | SUSP+4~, SUSP+21*, SUSP+22 |
RCREV | REVIEW+3~, REVIEW+24*, REVIEW+26*, REVIEW+35*, REVIEW+36, REVIEW+38*, REVIEW+40, NEWREV+5~, NEWREV+11*, NEWREV+12* , NEWREV+13*, NEWREVQ |
RCSCR | INIT+4, INIT+10, SUSPERA+1~, SUSPERA+8*, REVIEW+10, REVIEW+13, REVIEW+14, REVIEW+15, REVIEW+25, REVIEW+26 , REVIEW+34, REVIEW+36, REVIEW+38, REVIEW+40, NEWREV~, NEWREV+7, ADDUSER~, ADDUSER+4, ADDUSER+6 |
RCSCR("NOEDIT" | RCOMM+4 |
RCTRANDA | SUSP+4~, SUSP+26*, SUSP+28 |
RCUSPREF | REVIEW+3~, REVIEW+10*, REVIEW+12, REVIEW+13*, REVIEW+14, REVIEW+15 |
RCZ | INIT+1~, INIT+8*, INIT+9, INIT+11, INIT+12*, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17 , INIT+20, INIT+23, REVIEW+3~, REVIEW+22*, REVIEW+25, REVIEW+26, REVIEW+34, REVIEW+36, REVIEW+38, REVIEW+40 , NEWREV~, NEWREV+7 |
RCZ( | INIT+9*, INIT+11*, INIT+13, INIT+17, INIT+23 |
RECTDA | SUSP+4~, SUSP+22*, SUSP+23, SUSP+26, SUSP+28, SUSP+31, SUSP+32, SUSP+34, SUSP+36 |
REVCHG | REVIEW+3~, REVIEW+6*, REVIEW+9*, REVIEW+42*, REVIEWQ |
U | INIT+5, INIT+6, INIT+7, INIT+8, INIT+11, INIT+19, INIT+20, INIT+21, SUSP+10, SUSP+11 , SUSP+18, SUSP+21, SUSP+27, SUSP+37, REVIEW+7, REVIEW+8, REVIEW+9, REVIEW+14, REVIEW+16, REVIEW+17 , REVIEW+19 |
>> VALMBCK | RCOMMQ*, SUSPQ*, REVIEWQ+1* |
>> VALMBG | INIT+3* |
>> VALMCNT | INIT+3*, INIT+15, INIT+16, SET+1*, SET+2 |
X | INIT+1~, INIT+18*, INIT+19*, INIT+20*, INIT+21*, INIT+22, SET~, SET+2, SUSPERA+1~, SUSP+4~ , REVIEW+3~, REVIEW+28~, REVIEW+33~, NEWREV+5~, NEWREV+7*, NOACT+1~, ADDUSER+3~, ADDUSER+6* |
Y | SUSPERA+1~, SUSPERA+4, SUSPERA+5, SUSPERA+8, SUSP+4~, SUSP+17, SUSP+20, REVIEW+3~, REVIEW+9, REVIEW+28~ , REVIEW+32, REVIEW+33~, REVIEW+35, NEWREV+5~, NEWREV+11, NOACT+1~, ADDUSER+3~, ADDUSER+4*, ADDUSER+5, ADDUQ |
Z | INIT+1~, INIT+4*, INIT+9, INIT+10, INIT+11, INIT+17*, INIT+23, SUSP+4~, SUSP+11*, SUSP+13* , SUSP+14, SUSP+33*, SUSP+34, REVIEW+3~ |
Z0 | INIT+1~, INIT+4*, INIT+5, INIT+6, INIT+7*, INIT+8, INIT+9, INIT+17*, INIT+19, INIT+20 , INIT+21 |
Z1 | INIT+1~, INIT+10*, INIT+11, INIT+23* |
Z10 | INIT+1~, INIT+10*, INIT+11 |
Z2 | INIT+1~, INIT+5*, INIT+7, INIT+23* |