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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCA(430 - [#430] | EN+8, EN+9, EN+10, RP+10, RP+14, RP+21, RP+23, RP+25 |
| ^RCD(340 - [#340] | PAT+7 |
| ^TMP("RCDMBDAT" | EN+4!, EN+20*, EN+21*, EN+23*, EN+25, EN+26*, EN+27!, EN+30, EN+35, EN+39 , EN+40, EN+46, SND+4, ENQ!, RP+25* |
| ^TMP("RCDMBMSG" | EN+33!, EN+49*, EN+52*, EN+55*, EN+56*, EN+57*, SND+5*, SND+7*, SND+8*, ENQ! , HDR+6*, HDR+8*, HDR+10*, HDR+11*, HDR+13*, HDR+16*, HDR+17* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARZ | RP+7~, RP+23*, RP+24 |
| BILL | EN+1~, EN+34*, EN+46*, EN+48 |
| CNT | EN+1~, EN+38*, EN+41*, EN+54, EN+56 |
| DAT | DAT~, DAT+2, DAT+3 |
| DATA | EN+1~, EN+40*, EN+42, EN+43, EN+44, EN+45, EN+47, EN+52 |
| DEATH | PAT+5~, PAT+9*, PAT+10*, PAT+13 |
| DEB | PAT~, PAT+6, PAT+7, RP~, RP+21 |
| DEBTOR | PAT+5~, PAT+7*, PAT+8 |
| DEF | RP+7~, RP+9*, RP+13, RP+17*, RP+26 |
| DFN | EN+1~, EN+14*, EN+20, EN+21, EN+23, EN+26, PAT+5~, PAT+8*, PAT+13 |
| DUZ | XMD+1~ |
| ELM | RP+7~, RP+14*, RP+15, RP+16 |
| FLG | EN+1~, EN+45*, EN+47*, EN+51 |
| I | EN+1~, SND+3*, SND+4, SND+6, RP+7~, RP+13*, RP+14, HDR+4~, HDR+10* |
| J | EN+1~, SND+5* |
| LINE | EN+1~, EN+30*, EN+34*, EN+38, EN+49, EN+50*, EN+52, EN+53*, EN+55*, EN+56* , EN+57*, SND+5*, SND+7, SND+8 |
| LN | HDR~, HDR+6, HDR+7*, HDR+8, HDR+10*, HDR+11, HDR+13*, HDR+16*, HDR+17*, HDR+18* |
| NAME | PAT+5~, PAT+9*, PAT+13 |
| NEW | RP+7~, RP+9*, RP+25*, RP+26 |
| NPMT | RP+7~, RP+10*, RP+13 |
| PHONE | PAT+5~, PAT+11*, PAT+13 |
| PTDA | EN+1~, EN+34*, EN+39*, EN+40, EN+46 |
| RCAR | EN+1~, EN+9*, EN+11, EN+12, EN+21 |
| RCAT | EN+1~, EN+11* |
| RCBL | RP+7~, RP+20*, RP+21*, RP+22, RP+23, RP+25 |
| RCDA | EN+1~, EN+7*, EN+8*, EN+9, EN+10, EN+15 |
| RCDB | EN+1~, EN+12*, EN+13, EN+15 |
| RCPT | EN+1~, EN+13*, EN+14, EN+20, EN+23 |
| RCRP | EN+1~, EN+15*, EN+16, EN+19, EN+22 |
| RP | RP+7~, RP+10* |
| RPDT | EN+1~ |
| SSN | PAT+5~, PAT+9*, PAT+13 |
| TP | HDR~, HDR+5, HDR+9, HDR+15 |
| TXT | EN+2~ |
| TYPE | EN+2~, EN+34*, EN+35*, EN+38, EN+39, EN+40, EN+46 |
| VA | PAT+5~ |
| VADM | PAT+5~ |
| VADM(1 | PAT+9 |
| VADM(2 | PAT+9 |
| VADM(6 | PAT+9 |
| VAERR | PAT+5~ |
| VAPA | PAT+5~ |
| VAPA(8 | PAT+11 |
| X | EN+2~, EN+24*, EN+25*, EN+26, EN+41*, EN+42*, EN+43*, EN+44*, EN+47*, EN+48* , EN+49*, RP~, RP+10, RP+14, RP+22, HDR+4~, HDR+14*, HDR+15*, HDR+16, HDR+17* |
| XMDUN | XMD+1~ |
| XMDUZ | XMD+1~, XMD+3* |
| XMMG | XMD+1~ |
| XMSCR | XMD+1~ |
| XMSUB | XMD+1~, XMD+3* |
| XMTEXT | XMD+1~, XMD+4* |
| XMY | XMD+1~ |
| XMY("G.RC REP | AY PLANS" , XMD+4* |
| XMZ | XMD+1~ |
| YR | DAT+1~, DAT+2*, DAT+3 |
| YST | RP+7~, RP+10*, RP+16, RP+24 |
