IBJDF61 ;ALB/RB - MISC. BILLS FOLLOW-UP REPORT (COMPILE) ;15-APR-00
Source file <IBJDF61.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ST | ; - Tasked entry point.
|
|
| ENQ | ||
| ENQ1 | ||
| PTDB(X) | ; - Find Patient/Debtor and decide to include the AR.
; Input: X=Pointer to the AR in file #430 plus all IBS* variables ; Output: Y=Sort key (name or last 4) and Patient/Debtor IEN(file #2) ; ^ Patient/Debtor name (1st 25 chars) ^ Age ^ SSN ; ^ Processed by (File #200) ^ Current VA Employee? (*=Yes) |
|
| PDC | ||
| PDQ | ||
| PHDL | ; - Print the header line for the Excel spreadsheet
|
|
| VAEMP(SSN) | ; - Check if the Patient/Debtor is a current VA Employee
; Input: SSN - Patient/Debtor Social Security Number |
|
| OTH(DFN,INS,DS) | ; - Find a patient's other valid insurance carrier (if any).
; Input: DFN=Pointer to the patient in file #2 ; INS=Pointer to the patient's primary carrier in file #36 ; DS=Date of service for validity check ; Output: Valid insurance carrier (first 22 chars.) or null |
|
| OTHQ | ||
| COM | ; - Get bill comments.
|
|
| CATCHK(IBCAT) | ; Check to see if the AR Category should be a patient or Debtor Category
; Output: 1 - Patient, 0 - Debtor (default) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCD(340 - [#340] | Classic Fileman Calls |
| ^PRCA(430 - [#430] | Classic Fileman Calls |
