RCDPEX3 ;ALB/TMK/PJH - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.4 ; 3/30/11 7:19pm
Source file <RCDPEX3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VP | ; View/Print ERA Msgs - File 344.4
|
|
VPOUT | ; Entrypoint queued job
; RCDA, RCALL must be defined |
|
VPQ | ||
WRTSEP(RCDOT,RCPG) | ; Separating lines if more records to print
|
|
PRT(RCTDA,RCTDA1,RCPG,RCSTOP) | ; Print data from file 344.4 and 344.41
; RCTDA = ien file 344.4 ; RCTDA1 = ien file 344.41 ; RCPG = last page extracted ; RCSTOP = returned 1 if passed by ref and process stopped |
|
XFR | ; Transfer EOB(s) to other site
|
|
XFRQ | ||
SEL(RCDA,ONE) | ; Select entry(s) from list
; RCDA = array returned if selections made ; RCDA(n)=ien of bill selected file 344.4 ; ONE = if set to 1, only one selection can be made at a time |
|
HDR(RCPG) | ;Print report hdr
; RCPG = last page # |
|
ASK(RCSTOP) | ;
|
|
UPD | ; Try to update the IB EOB file from exception in 344.41
|
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 |
|
FileNo | Call Tags |
---|---|
^RCY(344.4 - [#344.4] | GETS^DIQ |
344.41 | GETS^DIQ |
344.42 | GETS^DIQ |
^DIC(4 - [#4] | EXTERNAL^DILFD |