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 |