IBJDB11 ;ALB/CPM - BILLING LAG TIME REPORT (COMPILE) ; 27-DEC-96
Source file <IBJDB11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; - Entry point from IBJDB1.
|
|
| REV | ; - Review all claims in file #399.
|
|
| INIT(X) | ; - Initialize summary accumulators/detail division nodes.
|
|
| AUTH(IBN) | ; - Is this an authorized claim?
; Input: IBN=Pointer to the AR in file #430 ; Output: VAL=1^2^3^4^5, where: ; 1=1-Authorized claim ; 0-Not an authorized claim ; 2=Date AR was authorized ; 3=Date AR was activated ; 4=AR first payment date ; 5=Date AR was closed |
|
| FP | ; - Get first payment date, if available.
|
|
| DC | ; - Get date AR closed.
|
|
| AUTHQ | ||
| DL(X,X1) | ; - Is line item date valid for report?
; Input: X=Line item number (or 0), X1=Line item date ; Output: 1=valid, 0=invalid ; *Requires pre-defined variables IBBDT, IBEDT, and IBSEL |
|
| DLQ | ||
| PTF(X) | ; - Get most recent PTF transmission date.
; Input: X=IEN of PTF file entry. ; Output: Y=PTF date. |
|
| PTFQ | ||
| CL(IBN) | ; - Get the clinics for bill.
|
