IBJDF51 ;ALB/RB - CHAMPVA/TRICARE FOLLOW-UP REPORT (COMPILE) ;15-APR-00
Source file <IBJDF51.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ST | ; - Tasked entry point.
|
|
| ENQ | ||
| ENQ1 | ||
| PAT(IBDA) | ; - Find the claim patient and decide to include the claim.
; Input: IBDA=Pointer to the claim/AR in file #399/#430 plus all ; variable input in IBS* ; Output: Y=Sort key (name or last 4)_@@_patient IEN to file #2 ; ^ Patient name ^ Age ^ SSN ^ Patient IEN to file #2 |
|
| PATC | ; - Find all patient data.
|
|
| PATQ | ||
| DIV(CLM) | ;Find the default division of the bill.
|
|
| QDIV | ||
| SID(DFN,INS) | ; - Find the subscriber ID for a bill (if any).
; Input: DFN=Pointer to the patient in file #2 ; INS=Pointer to the patient's primary carrier in file #36 ; Output: Subscriber ID no. or null |
|
| SIDQ | ||
| PHDL | ; - Print the header line for the Excel spreadsheet
|
|
| 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 15 chars.) or null |
|
| OTHQ | ||
| COM | ; - Get bill comments.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^RCD(340 - [#340] | Classic Fileman Calls |
| ^PRCA(430 - [#430] | Classic Fileman Calls |
