RCDMB1MT ;ALB/MR-REPAYMENT PLAN MONITOR ;16-AUG-00
Source file <RCDMB1MT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; - Entry point for this program (Called by PRCABJ - AR Nightly Process)
|
|
| SND | ; - If one of the two situations or none of them were found, it will
; informed in the e-mail ; |
|
| ENQ | ||
| XMD | ; Sets the Mailman variables and send the message
|
|
| PAT(DEB) | ; - Returns Debtor information
; Input: DEB=AR pointer to Debtor file (#340) ; Output: Name ^ SSN ^ Phone Number ^ Pointer to Patient file ^ ; Date of Death (MM/DD/YY) |
|
| RP(X,DEB) | ; - Checks if a Repayment Plan became defaulted or if a new
; bill has been entered to a patient under a Repayment Plan established ; Input: X=Pointer to the AR file #430 ; DEB=Pointer to the Detor file #340 ; Output: Y=Defaulted? (1-YES/0-NO) ^ New bill entered? (1-YES/0-NO) ^ ; Bill(s) # separated by "," (If piece 2 = 1) |
|
| HDR(TP,LN) | ; Sets the temporary global with the header of the E-mail
; Input: TP=Type of problem (1-Defaulted / 2-New bill) ; LN=Next line to be set on the ^TMP("RCDMBMSG",$J,LN) global |
|
| DAT(DAT) | ;Changes date from FM to MM/DD/YYYY
|
