RCDPENR1 ;ALB/SAB - EPay National Reports ;12/10/14
Source file <RCDPENR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 835837() | ||
| AUTO(RCDISP,RCBGDT,RCENDDT,RCPYRLST,RCRQDIV,RCSUMFLG) | ;
; RCDISP - Display results to screen or archive file flag ; RCBGDT - begin date of the report ; RCENDDT - End date of the report ; RCPYRLST - Payers to report on (All, range, or single payer) ; RCRQDIV - Division to report on - (A)ll or a single division ; RCSUMFLG - (S)ummary or (G)rand Total Report |
|
| REPORT | ||
| COMPILE(RCSUMFLG) | ;
|
|
| PRINT(RCSUMFLG) | ;Print the results
|
|
| HEADER | ;Print the results
|
|
| RPTHDR | ;
|
|
| DIVTXT() | ;
|
|
| PAYERTXT(RCFILE) | ;
|
|
| SUMMARY(RCTFLG) | ;Print the Payer Summary portion of the report
|
|
| GRAND(RCTFLG) | ;
|
|
| GET835(RCSDATE,RCEDATE,RCSUMFLG) | ;
|
|
| BILLIEN(RCEOB) | ||
| GET837(RCSDATE,RCEDATE,RCSUMFLG) | ;
|
|
| UPDTMPB(RCSEND,RCTOTFLG,RCMP,RCCLAIM,RCSUMFLG,RCPAYER) | ;
; RCSEND - Date 837 or NCPDP sent from site. ; RCTOTFLG - Add to the total count or not (1 yes, 837 sent this period, 0 if 837 sent in prior period ; RCMP - Is this a (P)harmacy or (M)edical ; RCCLAIM - The IEN for the Bill/Claim ; RCSUMFLG - If this flag is 1, add payer level entry for the Payer Summary report, otherwise send 0 for Grand Total only ; RCPAYER - Payer for the claim (if generating a Payer Summary Report |
|
| UPDTMP8(RCRCVD,RCMP,RCCLAIM,RCSUMFLG,RCPAYER,RCEOB) | ;
; RCRCVD - Date 835 is received. ; RCMP - Is this a (P)harmacy or (M)edical ; RCCLAIM - The IEN for the Bill/Claim ; RCSUMFLG - If this flag is 1, add payer level entry for the Payer Summary report, otherwise send 0 for Grand Total only ; RCPAYER - Payer for the claim (if generating a Payer Summary Report ; RCEOB - EOB IEN for the 361.1 file. |
|
| GETNCPDP(RCSDATE,RCEDATE,RCSUMFLG) | ;
|
|
| GETECME(RCIEN) | ;
; Used by: ; Routine RCDPENR1 ; Routine PRCABJ1 |
|
| SAVEDATA(RCDATA,IEN) | ;
|
|
| INITARCH(RPT) | ;
|
|
| REPRINT(RCHDR,RCDATA) | ;
|
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| ^IBA(364.1 - [#364.1] | GET1^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
