IBJDF41 ;ALB/RB - FIRST PARTY FOLLOW-UP REPORT (COMPILE) ;15-APR-00
Source file <IBJDF41.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ST | ; - Tasked entry point.
|
|
| ENQ | ||
| ENQ1 | ||
| PROC | ; - Process data for report(s).
|
|
| ACCBAL(DFN) | ; Calculates the Account Balance for the Bill
; Input: DFN - Patient/Debtor internal number ; Output: BAL - Patient/Debtor Account Balance |
|
| PHDL | ; - Print the header line for the Excel spreadsheet
|
|
| PAT(X) | ; - Find the AR patient and decide to include the AR.
; Input: X=AR pointer to file #430 and pre-set variables IBS* ; Output: Y=Sort key (name or last 4) ^ Patient pointer to file #2 ; ^ Name ^ SSN ^ Eligibilities ^ Date of death (if any) ; ^ Debtor pointer to file #340 |
|
| PATC | ; - Set patient eligibilities.
|
|
| PATQ | ||
| RP(X) | ; - Check if claim/receivable is under a repayment plan.
; Input: X=Bill pointer to file #430 ; Output: 0-Not on repay plan, 1-On repay plan, 2-On defaulted plan |
|
| MTRX(X) | ; - Return patient's means test and/or RX copay status and most recent
; test dates for both. ; Input: X=Patient pointer to file #2 and opt. variable IBEXCEL ; Output: Y=Means test status ^ Date ^ RX copay status ^ Date |
|
| SREF(RFT,DAT,STS,DEF,IDX) | ; Set the "referred to" information on the
; temporary global ^TMP |
|
| COM | ; - Get bill comments.
|
|
| IBEEOBCK(IBBN,DFN) | ; Passed AR Bill, Patient ID
; Function will quit as soon as a 3rd party bill is located that has an associated EEOB |
|
| TPEVDT(DFN,EVDT) | ;
; Function will quit as soon as a 3rd party bill is located that has an associated EEOB ; IB*2.0*473 - Use the 399,"APDT" (by patient) index instead of the 399,"D" index for efficiency |
|
| TPOPV(DFN,EVDT) | ;
; Function will quit as soon as a 3rd party bill is located that has an associated EEOB |
|
| EEOBCK(IBBILL) | ||
| SUST(IBA) | ;Look for suspended type for a suspended bill IB*2*568/DRF
|
|
| ABBR(SUSP) | ;Return abbreviation for suspended bill types IB*2*568/DRF
|
|
| REPDATA(RPIEN,DAYS) | ; - Return Repayment Plan information IB*2.0*694
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^RCRP(340.5 - [#340.5] | GETS^DIQ |
| ^PRCA(433 - [#433] | GET1^DIQ |
| ^PRCA(433.001 - [#433.001] | GET1^DIQ |
