IBJDF61 ;ALB/RB - MISC. BILLS FOLLOW-UP REPORT (COMPILE) ;15-APR-00
Source file <IBJDF61.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 |
|---|---|---|
| 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 | Field # of Occurrence |
|---|---|
| ^%ZISC | ENQ+3 |
| EN^DIQ1 | PTDB+22, PTDB+25 |
| $$CHK^IBCNS1 | OTH+9 |
| $$CLMACT^IBJD | ST+78 |
| $$DT^IBJD | ST+98, ST+99, COM+9 |
| $$PYMT^IBJD1 | ST+87 |
| $$ACT^IBJDF2 | ST+63 |
| $$DIV^IBJDF51 | ST+54 |
| EN^IBJDF62 | ST+105 |
| EN^IBJDF63 | ST+70 |
| INIT^IBJDF63 | ST+34, ST+35 |
| $$STOP^IBOUTL | ST+43 |
| DEM^VADPT | PTDB+18 |
| $$PRIM^VASITE | ST+95 |
| $$FMDIFF^XLFDT | ST+63, ST+102, COM+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCD(340 - [#340] | Classic Fileman Calls |
| ^PRCA(430 - [#430] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | ST+95 |
| ^DGCR(399 - [#399] | ST+47, ST+48, ST+76, ST+79, PTDB+15, PTDB+16 |
| ^DIC(36 - [#36] | ST+77, OTH+8 |
| ^DPT - [#2] | OTH+6 |
| ^IB - [#350] | ST+79 |
| ^PRCA(430 - [#430] | ST+41, ST+44, ST+66, PTDB+9 |
| ^PRCA(430.2 - [#430.2] | ST+96 |
| ^PRCA(433 - [#433] | COM+4, COM+5, COM+13, COM+14, COM+19 |
| ^PRSPC - [#450] | VAEMP+6 |
| ^PRSPC("SSN" | VAEMP+5 |
| ^TMP( | COM+23* |
| ^TMP("IBJDF6D" | ST+1!, ST+88, ST+89*, ST+90*, ENQ! |
| ^TMP("IBJDF6P" | ST+1!, ST+83, ST+84*, ST+85*, ENQ! |
| Name | Field # of Occurrence |
|---|---|
| ^( | OTH+6, COM+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | PTDB+5~, PTDB+10*, PTDB+18*, PDC |
| ALL | PTDB+5~, PTDB+17*, PTDB+27*, PTDB+30 |
| ARZ | PTDB+5~, PTDB+9*, PTDB+23 |
| CAT | PTDB+5~, PTDB+9*, PTDB+13 |
| COM | ENQ1+1!, COM+1~, COM+12! |
| COM( | COM+19*, COM+21, COM+23 |
| COM(0 | COM+12* |
| COM(1 | COM+15*, COM+16* |
| COM1 | ENQ1+2!, COM+1~, COM+12! |
| COM1(1 | COM+13*, COM+15 |
| COM1(2 | COM+14*, COM+15 |
| DA | PTDB+5~, PTDB+22*, PTDB+24, PTDB+25*, PTDB+26 |
| DAT | ST+102, ENQ1+2!, COM+1~, COM+3*, COM+4, COM+8*, COM+9, COM+12 |
| DEB | PTDB+5~ |
| DEB(340 | PTDB+26 |
| DEB(430 | PTDB+24 |
| DFN | ST+77*, ST+81, ENQ1+2!, PTDB+5~, PTDB+9*, PTDB+14, PTDB+16*, PTDB+21, PTDB+23*, PTDB+25 , PTDB+29, PTDB+30, PTDB+34, OTH~, OTH+5, OTH+6 |
| DIC | PTDB+5~, PTDB+22*, PTDB+25* |
| DIQ | PTDB+5~, PTDB+22*, PTDB+25* |
| DR | PTDB+5~, PTDB+22*, PTDB+25* |
| DS | OTH~, OTH+5, OTH+9 |
| DT | ST+63, ST+102, COM+6 |
| END | PTDB+5~, PTDB+17*, PTDB+27*, PTDB+31, PTDB+32 |
| IB | ST+1! |
| IBA | ST+41*, ST+42, ST+44, ST+47, ST+48, ST+54, ST+59, ST+63, ST+66, ST+76 , ST+78, ST+79, ST+87, ENQ1!, COM+4 |
| IBA1 | ENQ1!, COM+1~, COM+3*, COM+4*, COM+5, COM+13, COM+14, COM+19, COM+23 |
| IBAR | ST+44*, ST+45, ST+74, ST+78, ENQ1! |
| IBARD | ST+62, ST+63*, ENQ1! |
| IBBA | ST+66*, ST+67, ST+85, ST+90, ST+100, ENQ1! |
| IBBN | ST+74*, ST+85, ST+90, ST+98, ENQ1+1!, COM+23 |
| IBC | COM+1~, COM+5*, COM+6, COM+7, COM+8 |
| IBCAT | ST+1!, ST+31*, ST+33, ST+45*, ST+46, ST+78, ST+83, ST+84, ST+85, ST+88 , ST+89, ST+90, ST+96, ENQ1!, COM+23, CATCHK~, CATCHK+2, CATCHK+3, CATCHK+4, CATCHK+5 , CATCHK+6 |
| IBCAT( | ST+31, ST+45, ST+46 |
| IBCAT(10 | ST+12* |
| IBCAT(12 | ST+26* |
| IBCAT(13 | ST+24* |
| IBCAT(14 | ST+25* |
| IBCAT(15 | ST+23* |
| IBCAT(16 | ST+22* |
| IBCAT(17 | ST+28* |
| IBCAT(20 | ST+27* |
| IBCAT(21 | ST+6* |
| IBCAT(52 | ST+9* |
| IBCAT(53 | ST+14* |
| IBCAT(54 | ST+19* |
| IBCAT(55 | ST+10* |
| IBCAT(56 | ST+15* |
| IBCAT(57 | ST+20* |
| IBCAT(58 | ST+11* |
| IBCAT(59 | ST+16* |
| IBCAT(6 | ST+17* |
| IBCAT(60 | ST+21* |
| IBCAT(7 | ST+7* |
| IBCAT1 | ST+46*, ST+51, ENQ1!, COM+22 |
| IBCLM | ST+73*, ST+75, ST+78*, ST+79, ST+80, ENQ1+1! |
| IBD | ST+102*, ST+103!, ENQ1! |
| IBDIV | ST+32*, ST+34*, ST+51*, ST+53*, ST+54*, ST+56, ST+83, ST+84, ST+85, ST+88 , ST+89, ST+90, ST+95*, ST+96, ENQ1!, COM+23 |
| IBDP | ST+74*, ST+78*, ST+79, ST+85, ST+90, ST+98, ST+102, ENQ1+1! |
| IBEXCEL | ST+38, ST+70, ST+82, ST+92, ST+105, ENQ1+1!, COM+9 |
| IBEXCEL1 | ST+96*, ST+97*, ST+98*, ST+99*, ST+100*, ST+102, ST+103*!, COM+9* |
| IBFR | ST+73*, ST+80*, ST+81, ST+85, ST+99, ENQ1+1! |
| IBGLB | COM+1~, COM+22*, COM+23 |
| IBI | ST+75, ST+76*, ST+77, ENQ1! |
| IBIN | ST+73*, ST+77*, ST+81, ST+83, ST+84, ST+85, ST+96, ENQ1!, COM+23 |
| IBLP | ST+73*, ST+87*, ST+90, ST+100, ENQ1+1! |
| IBOI | ST+73*, ST+81*, ST+84, ST+98, ENQ1! |
| IBOR | ST+74*, ST+85, ST+90, ST+99, ENQ1+1! |
| IBPDFLG | ST+2~, ST+46*, ST+47, ST+48, ST+75, ST+86 |
| IBPTDB | ST+59*, ST+77, ST+83, ST+84, ST+85, ST+88, ST+89, ST+90, ST+97, ST+98 , ENQ1+1!, COM+23 |
| IBPTFLG | PTDB+6~, PTDB+13*, PTDB+14, PTDB+21 |
| IBQ | ST+1*, ST+41, ST+42, ST+43*, ST+105, ENQ1! |
| IBR | ST+79*, ST+80, ENQ1! |
| >> IBRPT | ST+59, ST+62, ST+67, ST+70 |
| >> IBSAM | ST+67 |
| >> IBSDA | PTDB+27 |
| >> IBSDF | PTDB+27 |
| >> IBSDL | PTDB+27 |
| >> IBSDV | ST+33, ST+53, ST+56 |
| >> IBSEL | ST+6, ST+7, ST+8, ST+12, ST+13, ST+17, ST+18, ST+22, ST+23, ST+24 , ST+25, ST+26, ST+27, ST+28 |
| >> IBSH | ST+92, ST+101 |
| >> IBSH1 | COM+3, COM+4, COM+9 |
| >> IBSH2 | COM+6 |
| >> IBSMN | ST+62 |
| >> IBSMX | ST+62 |
| >> IBSN | PTDB+19 |
| >> IBSNA | PTDB+17 |
| >> IBSNF | PTDB+17 |
| >> IBSNL | PTDB+17 |
| IBTO | ST+73*, ST+80*, ST+85, ST+99, ENQ1+1! |
| IBTYP | ENQ1+1! |
| IBZ | PTDB+5~, PTDB+16* |
| IEN | VAEMP+4~, VAEMP+5*, VAEMP+6 |
| INI | PTDB+5~, PTDB+17*, PTDB+27*, PTDB+29, PTDB+31, PTDB+32 |
| INS | OTH~, OTH+7 |
| J | ENQ1+2! |
| KEY | PTDB+5~, PTDB+19*, PTDB+24*, PTDB+32, PTDB+34*, PDC |
| NAME | PTDB+5~, PTDB+10*, PTDB+18*, PTDB+19, PTDB+24*, PDC |
| PRC | PTDB+5~, PTDB+10*, PTDB+24*, PDC |
| SSN | PTDB+5~, PTDB+10*, PTDB+18*, PTDB+19, PTDB+26*, PDC, VAEMP~, VAEMP+4, VAEMP+5 |
| U | ST+45, ST+48, ST+66, ST+74, ST+77, ST+78, ST+79, ST+80, ST+83, ST+84 , ST+85, ST+87, ST+88, ST+89, ST+90, ST+95, ST+96, ST+97, ST+98, ST+99 , ST+100, ST+102, ST+103, PDC, VAEMP+6, OTH+9, COM+7, COM+8, COM+13, COM+14 , COM+23 |
| VA | PTDB+6~ |
| VADM | PTDB+6~ |
| VADM(1 | PTDB+18 |
| VADM(2 | PTDB+18 |
| VADM(4 | PTDB+18 |
| VAERR | PTDB+6~ |
| >> VAUTD | ST+56 |
| >> VAUTD( | ST+34, ST+56 |
| X | ST+66*, ENQ1+2!, PTDB~, PTDB+8, PTDB+9, PTDB+15, PTDB+16, PTDB+22, PHDL+1~, PHDL+2* , PHDL+3*, PHDL+4*, PHDL+5, OTH+6*, OTH+7, OTH+8, OTH+9 |
| X1 | ENQ1+2!, OTH+8*, OTH+9, COM+1~, COM+12*, COM+16*, COM+19, COM+21*, COM+23 |
| X2 | ENQ1+2!, COM+1~, COM+19* |
| Y | ENQ1+2!, PTDB+6~, PTDB+8*, PTDB+14*, PTDB+21*, PTDB+29*, PTDB+30*, PTDB+32*, PDC*, PDQ , OTH+5~*, OTH+6, OTH+9*, OTHQ |
| Z | ENQ1+2!, OTH+6* |
| >> ZTQUEUED | ENQ+1 |
| >> ZTREQ | ENQ+1* |
