IBJDF11 ;ALB/CPM - THIRD PARTY FOLLOW-UP REPORT (COMPILE) ;09-JAN-97
Source file <IBJDF11.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DQ | ; - Tasked entry point.
|
|
| CHKARNUM(IBCAT) | ; Check for Reimbursable insurance
; |
|
| ENQ | ||
| ENQ1 | ||
| INS(X) | ; - Find the Insurance company and decide to include the claim.
; Input: X=Pointer to the claim/AR in file #399/#430 ; plus all variable input in IBS* ; Output: Y=Insurance Company name and pointer to file #36 |
|
| INSC | ||
| INSQ | ||
| PAT(X) | ; - Find the claim patient and decide to include the claim.
; Input: X=Pointer to the claim/AR in file #399/#430 ; plus all variable input in IBS* ; Output: Y=1^2^3^4^5, where ; 1 => sort key (name or last four) ; 2 => patient name ; 3 => patient ssn ; 4 => patient age ; 5 => patient pointer to file #2 |
|
| PATC | ; - Find all patient data.
|
|
| PATQ | ||
| 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 (1st 13 chars.) or null |
|
| OTHQ |
| FileNo | Call Tags |
|---|---|
| ^PRCA(430.2 - [#430.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | DQ+4 |
| ^DGCR(399 - [#399] | DQ+14, DQ+24, DQ+56, DQ+57, DQ+59, INS+7, PAT+12 |
| ^DIC(36 - [#36] | INS+7, OTH+9 |
| ^DPT - [#2] | DQ+59, PAT+12, OTH+7 |
| ^IBA(362.4 - [#362.4] | DQ+25 |
| ^PRCA(430 - [#430] | DQ+7, DQ+16, DQ+34, DQ+42 |
| ^PRCA(433 - [#433] | DQ+67, DQ+68, DQ+74, DQ+79 |
| ^TMP("IBJDF1" | DQ+1!, DQ+63*, DQ+82*, ENQ! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | PAT+10~, PATC+2*, PATC+3 |
| COM | DQ+73!, ENQ1+1! |
| COM( | DQ+79*, DQ+81, DQ+82 |
| COM(0 | DQ+73* |
| COM(1 | DQ+75*, DQ+76* |
| COM1 | DQ+73!, ENQ1+1! |
| COM1(1 | DQ+74*, DQ+75 |
| COM1(2 | DQ+74*, DQ+75 |
| DAT | DQ+70*, DQ+73, ENQ1+1! |
| DFN | PAT+10~, PAT+12*, PAT+15, PAT+16, PATC+3, OTH~, OTH+6, OTH+7 |
| DOB | PAT+10~, PATC+1*, PATC+2 |
| DS | OTH~, OTH+6, OTH+10 |
| DT | DQ+31, PATC+2 |
| IBA | DQ+7*, DQ+9, DQ+14, DQ+16, DQ+24, DQ+25, DQ+31, DQ+34, DQ+38, DQ+42 , DQ+46, DQ+49, DQ+53, DQ+56, DQ+57, DQ+59, DQ+67, ENQ1! |
| IBAR | DQ+16*, DQ+20, DQ+26, DQ+27, DQ+54, DQ+56, DQ+58, ENQ1! |
| IBARD | DQ+31*, ENQ1! |
| IBARNUM | DQ+20*, DQ+21, ENQ1+1! |
| IBBU | DQ+57*, ENQ1! |
| IBCAT | CHKARNUM~, CHKARNUM+2, CHKARNUM+5 |
| IBDIV | DQ+37*, DQ+38*, DQ+39, DQ+63, DQ+82, ENQ1! |
| IBIO | ENQ1! |
| >> IBPFLAG | DQ+53*, DQ+56 |
| IBQ | DQ+1*, DQ+7, DQ+9*, DQ+84, ENQ1! |
| >> IBSAM | DQ+34 |
| >> IBSD | DQ+4, DQ+37, DQ+39 |
| >> IBSDATE | DQ+31 |
| >> IBSEL | DQ+28, DQ+62, DQ+81 |
| >> IBSH | DQ+66 |
| >> IBSI | INS+8 |
| >> IBSI( | INS+8 |
| >> IBSIA | INS+10, INS+12 |
| >> IBSIF | INS+9, INS+13, INS+14 |
| >> IBSIL | INS+13, INS+14 |
| >> IBSMN | DQ+31 |
| >> IBSMX | DQ+31 |
| >> IBSN | PAT+13 |
| >> IBSNA | PAT+16, PAT+18 |
| >> IBSNF | PAT+15, PAT+19, PAT+20 |
| >> IBSNL | PAT+19, PAT+20 |
| >> IBSRC | DQ+42 |
| IBTYP | DQ+24*, DQ+25*, DQ+26*, DQ+27*, DQ+28, DQ+62, DQ+81, ENQ1+1! |
| IBWBA | DQ+34*, DQ+63, ENQ1+1! |
| IBWBN | DQ+56*, DQ+63, DQ+82, ENQ1! |
| IBWDP | DQ+54*, DQ+63, DQ+82, ENQ1! |
| IBWFR | DQ+57*, DQ+58, DQ+63, ENQ1+1! |
| IBWIN | DQ+46*, DQ+58, DQ+63, DQ+82, ENQ1! |
| IBWOR | DQ+58*, DQ+63, ENQ1+1! |
| IBWPT | DQ+49*, DQ+58, DQ+59, DQ+63, DQ+82, ENQ1! |
| IBWRC | DQ+42*, DQ+43*, DQ+63, ENQ1! |
| IBWSC | DQ+58*, DQ+63, ENQ1+1! |
| IBWSI | DQ+59*, DQ+63, ENQ1+1! |
| IBWTO | DQ+57*, DQ+63, ENQ1+1! |
| INS | OTH~, OTH+8 |
| >> J | DQ+4* |
| KEY | PAT+10~, PAT+13*, PAT+17, PAT+20, PATC+3 |
| U | DQ+20, DQ+24, DQ+26, DQ+27, DQ+42, DQ+43, DQ+54, DQ+56, DQ+57, DQ+58 , DQ+59, DQ+63, DQ+69, DQ+70, DQ+74, DQ+82, INS+7, PAT+12, PAT+13, PATC+1 , PATC+3, OTH+10 |
| VAUTD | DQ+4, DQ+39, ENQ1+1! |
| VAUTD( | DQ+4*, DQ+39 |
| X | DQ+62*, DQ+63, DQ+67*, DQ+68, DQ+74, DQ+79, DQ+82, ENQ1+2!, INS~, INS+6 , INS+7, PAT~, PAT+11, PAT+12, OTH+7*, OTH+8, OTH+9, OTH+10 |
| X1 | DQ+73*, DQ+76*, DQ+79, DQ+81*, DQ+82, ENQ1+2!, OTH+9*, OTH+10 |
| X2 | DQ+79*, DQ+81*, DQ+82, ENQ1+2! |
| Y | DQ+68*, DQ+69, DQ+70, ENQ1+2!, INS+5~*, INSC*, INSQ, PAT+10~*, PAT+17*, PATC+3* , PATQ, OTH+6~*, OTH+7, OTH+10*, OTHQ |
| Z | ENQ1+2!, INS+5~, INS+7*, INS+8, INS+9, INS+10, INSC, PAT+10~, PAT+12*, PAT+13 , PATC+1, PATC+3, OTH+7* |
| Z1 | INS+5~, INS+7*, INS+11*, INS+14, INSC |
| >> ZTQUEUED | ENQ+1 |
| >> ZTREQ | ENQ+1* |