IBJDF71 ;ALB/MR - REPAYMENT PLAN REPORT (COMPILE);15-AUG-00
Source file <IBJDF71.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ST | ; - Tasked entry point.
|
|
ENQ | ||
ENQ1 | ||
MCCR(X) | ; - Checks if the Bill category is the type selected by the users
; (MCCR or NON-MCCR) ; Input: X=AR category pointer to file #430.2 ; Output: Y= 1 - Matches user selection / 0 - Doesn't match ; |
|
PAT(DEB) | ; - Find the AR patient and decide to include the AR.
; Input: DEB=Debtor file pointer (file #340) ; Output: Y=Sort key (name or SSN) ^ Name ^ SSN ^ Date of death (if any) ; ^Pointer to Patient file |
|
PATC | ||
PATQ | ||
BAL(BILL) | ; Calculates the Account Balance for the Bill
; Input: BILL - Bill internal # - Pointer to file #430 ; Output: BAL - Bill Balance |
|
DBLCHK(BILL) | ; Double-checks if the receivable does not have any Repayment
; Plan information at all ; Output: 0 - No Repayment Plan Info or Repayment Plan paid in full ; 1 - Some Repayment Plan Info |
|
SUM(IBRP,DFN) | ; Sets the array IB with the Summary information
; Input: IBRP=Array returned by the function $$RP (See estructure above) ; DFN=Pointer to the Patient file ; Output: Updates the IB array with summary iformation |