RCDPEWL ;ALB/TMK/KML - ELECTRONIC EOB MESSAGE WORKLIST ;Jun 06, 2014@19:11:19
Source file <RCDPEWL.m>
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 | 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 |
|
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 |