IBJDB21 ;ALB/RB - REASONS NOT BILLABLE REPORT (COMPILE) ;19-JUN-00
Source file <IBJDB21.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 14 | $$INPT^IBAMTS1 $$ENCL^IBAMTS2 (BSLOS,PTF,PTFDV)^IBCRBG ($$BSUPD,$$NODRG)^IBCRBG2 $$RATECHG^IBCRCC $$BICOST^IBCRCI $$MCCRUTL^IBCRU1 $$EVNTITM^IBCRU3 $$DT^IBJD ($$DIV,$$INS)^IBJD1 EN^IBJDB22 ($$FILE,$$RFLNUM,$$RXZERO,$$ZEROSUB)^IBRXUTL $$CKBIL^IBTUBOU ($$ADMDT,$$PRSAMT,$$RELBIL,$$RXAMT)^IBTUTL5 |
Registration | 2 | (DEM,INP)^VADPT $$PRIM^VASITE |
VA FileMan | 2 | $$EXTERNAL^DILFD EN^DIQ1 |
CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
Kernel | 1 | $$DT^XLFDT |
Scheduling | 1 | ($$GETOE,GETCPT,GETPRV)^SDOE |
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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IBJDB2 IBTODD |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; - Entry point from IBJDB2.
|
|
ENQ | ||
AMOUNT(EPS,CLM) | ; Return the Amount not billed
; Input: EPS - Episode(1=Inpatient,2=Outpatient,3=Prosthet.,4=Prescr.) ; CLM - Pointer to Claim Tracking File (#356) |
|
AMT1 | ; - Inpatient Charges
|
|
AMT2 | ; - Outpatient Charges
|
|
AMT3 | ; Prosthetic Charges
|
|
AMT4 | ; - Prescription Charges
|
|
QAMT | ||
CLAMT(DFN,EPDT,PT) | ; Returns the Total Amount of Claims for Patient/Episode
|
|
QCLAMT | ||
OPT(IBOE,IBDT) | ; - Has the outpatient encounter been billed?
; Input: IBOE=pointer to outpatient encounter in file #409.68 ; IBDT=event date CLAIMS TRACKING(#356) ; ; ; *Pre-set variables: DFN=patient IEN, RIMB=bill rate ; |
|
OPTQ | ||
AVG(EPDT) | ; Returns the Average Amount of Inpatient Professional per
; Number of Episodes for the previous 12 months |
|
QAVG | ||
PRVSPC(EPS,CLM) | ; Return the Provider and the Specialty
; Input: EPS - Episode(1 = Inpatient OR 2 = Outpatient) ; CLM - Pointer to Claim Tracking File (#356) ; Output: Provider Code (Pointer to #200) ^ Provider Name ^ ; Specialty Code (Pointer to #40.7 or #45.7) ^ Specialty Name |
|
QPS | ||
PHDL | ; - Print the header line for the Excel spreadsheet
|
Name | Field # of Occurrence |
---|---|
$$EXTERNAL^DILFD | EN+42 |
EN^DIQ1 | EN+40, AMT3+3 |
$$INPT^IBAMTS1 | OPT+10 |
$$ENCL^IBAMTS2 | OPT+11 |
BSLOS^IBCRBG | AMT1+11 |
PTF^IBCRBG | AMT1+9 |
PTFDV^IBCRBG | AMT1+10 |
$$BSUPD^IBCRBG2 | AMT1+28 |
$$NODRG^IBCRBG2 | AMT1+23, AMT1+24 |
$$RATECHG^IBCRCC | AMT4+33 |
$$BICOST^IBCRCI | AMT1+20, AMT1+26, AMT1+29, AMT2+5, AMT4+35, OPT+30, OPT+31 |
$$MCCRUTL^IBCRU1 | AMT1+25 |
$$EVNTITM^IBCRU3 | AMT4+14 |
$$DT^IBJD | EN+62, EN+63 |
$$DIV^IBJD1 | EN+24 |
$$INS^IBJD1 | EN+61, EN+71 |
EN^IBJDB22 | EN+74 |
$$FILE^IBRXUTL | AMT4+16 |
$$RFLNUM^IBRXUTL | AMT4+20 |
$$RXZERO^IBRXUTL | AMT4+28 |
$$ZEROSUB^IBRXUTL | AMT4+22 |
$$CKBIL^IBTUBOU | CLAMT+11, OPT+46 |
$$ADMDT^IBTUTL5 | EN+43 |
$$PRSAMT^IBTUTL5 | AMT3+2 |
$$RELBIL^IBTUTL5 | EN+47 |
$$RXAMT^IBTUTL5 | AMT4+6 |
$$CPT^ICPTCOD | OPT+24 |
$$GETOE^SDOE | AMT2+1, OPT+18, PRVSPC+24 |
GETCPT^SDOE | OPT+15 |
GETPRV^SDOE | PRVSPC+18 |
DEM^VADPT | EN+39 |
INP^VADPT | PRVSPC+14 |
$$PRIM^VASITE | EN+25, OPT+18 |
$$DT^XLFDT | AMT1+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^IBT(356 - [#356] | EXTERNAL^DILFD |
^RMPR(660 - [#660] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | EN+59 |
^DGCR(399 - [#399] | CLAMT+8, CLAMT+9, CLAMT+13, OPT+43, OPT+52 |
^DGCR(399.3 - [#399.3] | AMOUNT+16 |
^DGPM - [#405] | AMT1+2, AMT1+5, PRVSPC+13 |
^DIC(40.7 - [#40.7] | PRVSPC+25 |
^IBE(356.19 - [#356.19] | AVG+4, AVG+5 |
^IBE(356.6 - [#356.6] | EN+45 |
^IBE(356.8 - [#356.8] | EN+9, EN+13 |
^IBT(356 - [#356] | EN+10, EN+11, AMOUNT+8, PRVSPC+8 |
^TMP("IBJDB2" | EN+1!, EN+71*, EN+72*, ENQ! |
^TMP($J | AMT1+8!, AMT1+9, AMT1+10, AMT1+11, AMT1+14, AMT1+15, AMT1+37! |
^VA(200 - [#200] | PRVSPC+23 |
Name | Line Occurrences |
---|---|
$$AMOUNT | EN+19 |
$$AVG | AMT1+32 |
$$CLAMT | AMT1+35 |
$$OPT | AMT2+7 |
$$PRVSPC | EN+30 |
@( | AMOUNT+18 |
OPTQ | OPT+7, OPT+10, OPT+11, OPT+15, OPT+38, OPT+64 |
PHDL | EN+6 |
QAMT | AMT1+1, AMT1+2, AMT1+3, AMT1+9, AMT1+10, AMT1+11, AMT1+39, AMT2+4, AMT2+8, AMT3+2 , AMT3+5, AMT4+6 |
QAVG | AVG+4 |
QPS | PRVSPC+12, PRVSPC+17 |
Name | Field # of Occurrence |
---|---|
^( | OPT+52 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADM | AMOUNT+5~, AMOUNT+10*, AMT1+1, AMT1+2, AMT1+11, PRVSPC+6~, PRVSPC+9*, PRVSPC+12, PRVSPC+13 |
ADMDT | AMOUNT+5~, AMT1+4*, AMT1+11 |
AMOUNT | AMOUNT+5~, AMOUNT+8*, AMT1+1*, AMT1+2*, AMT1+3*, AMT1+9*, AMT1+10*, AMT1+11*, AMT1+20*, AMT1+26* , AMT1+29*, AMT1+32*, AMT1+35*, AMT2+5*, AMT2+7*, AMT3+2*, AMT3+4*, AMT4+6*, AMT4+33*, AMT4+35* , QAMT*, QAMT+1 |
AVG | AVG+2~, AVG+3*, AVG+5*, QAVG |
BLBS | AMOUNT+5~, AMT1+16*, AMT1+20, AMT1+25*, AMT1+26, AMT1+28*, AMT1+29 |
BLDT | AMOUNT+5~, AMT1+13*, AMT1+14*, AMT1+15, AMT1+19, AMT1+20, AMT1+26, AMT1+28, AMT1+29 |
CLAMT | CLAMT+6~, CLAMT+7*, CLAMT+13*, QCLAMT |
CLM | AMOUNT~, AMOUNT+8, CLAMT+6~, CLAMT+7*, CLAMT+8*, CLAMT+9, CLAMT+11, CLAMT+13, PRVSPC~, PRVSPC+8 |
CPT | AMOUNT+5~ |
CPTLST | AMOUNT+5~ |
DA | EN+40*, EN+41, ENQ+1!, AMOUNT+5~, AMT3+3*, AMT3+4 |
DAY | CLAMT+6~, CLAMT+7* |
DCHD | AMOUNT+5~, AMT1+5*, AMT1+6*, AMT1+11 |
DFN | EN+38*, EN+43, EN+47, AMOUNT+5~, AMT1+4*, AMT1+35, AMT2+1*, AMT4+16*, AMT4+17, AMT4+22 , AMT4+28, CLAMT~, CLAMT+8, OPT+7, OPT+10, OPT+43, PRVSPC+6~, PRVSPC+9* |
DIC | EN+40*, ENQ+1!, AMOUNT+5~, AMT3+3* |
DIQ | EN+40*, ENQ+1!, AMOUNT+5~, AMT3+3* |
DIV | AMOUNT+5~, AMT1+16*, AMT1+26, AMT1+29, AMT2+1* |
DR | EN+40*, ENQ+1!, AMOUNT+5~, AMT3+3* |
DRG | AMOUNT+5~, AMT1+16*, AMT1+29 |
ENC | AMOUNT+6~, AMOUNT+9*, AMT2+1, AMT2+7, PRVSPC+6~, PRVSPC+9*, PRVSPC+17, PRVSPC+18, PRVSPC+24 |
ENCDT | AMOUNT+6~, AMT2+1*, AMT2+4, AMT2+5 |
ENCTYP | EN+1!, EN+45*, EN+46, EN+47 |
EPDT | EN+45*, EN+47, AMOUNT+6~, AMOUNT+12*, AMT1+32, AMT1+35, AMT2+7, AMT3+2, AMT4+6, AMT4+14 , AMT4+20, AMT4+33, AMT4+35, CLAMT~, CLAMT+7, CLAMT+10, AVG~, AVG+3 |
EPIEN | EN+1!, EN+46*, EN+47 |
EPS | AMOUNT~, AMOUNT+18, PRVSPC~, PRVSPC+12, PRVSPC+17 |
IB | EN+1!, ENQ+1! |
IB( | EN+50*, EN+51*, EN+52* |
IB0 | EN+10*, EN+11, EN+19, EN+24, EN+30, ENQ+1! |
IBADMDT | EN+1!, EN+43*, EN+44*, EN+63, EN+70 |
IBAMT | EN+19*, EN+20, EN+52, EN+64, EN+70, ENQ+1! |
IBAUTH | OPT+8~, OPT+47*, OPT+48 |
>> IBBDT | EN+18 |
IBBI | AMT4+11~, AMT4+14*, AMT4+17, AMT4+32 |
IBCLK | EN+41*, EN+63, EN+69, ENQ+1! |
IBCLK(200 | EN+41 |
IBCN | OPT+8~, OPT+24*, OPT+27 |
IBCOST | AMT4+18~, AMT4+24*, AMT4+30*, AMT4+33 |
IBCPT | OPT+8~, OPT+38, OPT+64, OPT+66, OPTQ! |
IBCPT( | OPT+30*, OPT+31*, OPT+34, OPT+35!, OPT+36!, OPT+60!, OPT+61!, OPT+67, OPT+68, OPT+69 |
IBCPTSUM | OPT+8~ |
IBCPTSUM( | OPT+34*, OPT+60 |
IBCT | OPT+8~, OPT+56*, OPT+58, OPT+61, OPT+66*, OPT+68*, OPT+69 |
IBD | EN+17, CLAMT+6~, CLAMT+11*, CLAMT+12 |
IBDATA | OPT+8~, OPT+46*, OPT+47, OPT+56 |
IBDAY | OPT+8~, OPT+42*, OPT+43 |
IBDEN | EN+16*, EN+17, EN+62, EN+69, ENQ+1! |
IBDIV | EN+23, EN+24*, EN+25*, EN+50, EN+51, EN+52, EN+59, EN+71, EN+72, ENQ+1! , OPT+8~, OPT+18*, OPT+30, OPT+31 |
IBDT | EN+17*, EN+18, ENQ+1!, OPT~, OPT+7, OPT+10, OPT+30, OPT+31, OPT+42 |
IBE | EN+1!, ENQ+1! |
IBE( | EN+3*, EN+60 |
>> IBEDT | EN+18 |
IBEP | EN+12*, EN+19, EN+29, EN+30, EN+32, EN+33, EN+50, EN+51, EN+52, EN+60 , EN+71, EN+72, ENQ+1! |
IBEPD | EN+16*, EN+17, EN+61, EN+62, EN+69, EN+71, ENQ+1! |
>> IBEPS( | EN+3 |
>> IBEXCEL | EN+6, EN+25, EN+58, EN+74 |
IBFEE | AMT4+18~, AMT4+33 |
IBI | ENQ+1! |
IBMRA | OPT+8~ |
IBN0 | EN+11*, EN+12, EN+16, EN+38, EN+42, EN+43, EN+45, EN+46, EN+61, EN+71 , EN+72, ENQ+2! |
IBN1 | EN+11*, EN+16, EN+40, EN+63, EN+67, EN+69, EN+70, ENQ+2! |
IBN2 | ENQ+2! |
IBOE | OPT~, OPT+7, OPT+11, OPT+15, OPT+18 |
IBPRSP | EN+30*, EN+31, EN+32, EN+33, EN+34, EN+35, ENQ+2! |
IBPRV | EN+28*, EN+34*, EN+55, EN+64, EN+70, ENQ+2! |
IBPT | EN+39*, EN+60, EN+71, EN+72, ENQ+2! |
IBQT | EN+28*, EN+29, EN+31*, EN+32*, EN+33*, ENQ+2! |
IBQTY | AMT4+18~, AMT4+23*, AMT4+29*, AMT4+33 |
IBRFNUM | AMT4+18~, AMT4+20*, AMT4+21, AMT4+22 |
IBRNB | EN+9*, EN+10, EN+13, EN+50, EN+51, EN+52, ENQ+2! |
IBRNB1 | EN+13*, EN+63, EN+69, ENQ+2! |
>> IBRPT | EN+53 |
IBRSNEW | AMT4+11~, AMT4+14, AMT4+32*, AMT4+33 |
IBRSNEW( | AMT4+32 |
IBRTN | OPT+7*, OPT+8~, OPT+10*, OPT+11*, OPT+15*, OPT+38*, OPT+64*, OPT+66*, OPT+69*, OPT+70* , OPTQ |
IBRX | AMOUNT+6~, AMOUNT+13*, AMT4+3, AMT4+6 |
IBRXIEN | AMT4+3~*, AMT4+16, AMT4+20, AMT4+22, AMT4+28 |
IBRXNODE | AMT4+18~, AMT4+28*, AMT4+29, AMT4+30 |
>> IBSD | EN+23 |
>> IBSEL | EN+3, EN+12 |
>> IBSISP | EN+32 |
>> IBSISP( | EN+32 |
>> IBSORT | EN+55 |
IBSORT1 | EN+13*, EN+55*, EN+56*, EN+71, EN+72, ENQ+2! |
>> IBSOSP | EN+33 |
>> IBSOSP( | EN+33 |
IBSPC | EN+28*, EN+35*, EN+55, EN+64, EN+70, ENQ+2! |
>> IBSPRV | EN+31 |
>> IBSPRV( | EN+31 |
>> IBSRNB | EN+9 |
>> IBSRNB( | EN+9 |
IBSSN | EN+39*, EN+60, EN+71, EN+72, ENQ+3! |
IBSUBND | AMT4+18~, AMT4+22*, AMT4+23, AMT4+24 |
IBTCHRG | OPT+8~, OPT+57*, OPT+60 |
IBX | PRVSPC+21~, PRVSPC+24* |
>> IBXTRACT | EN+2 |
IBXX | OPT+8~, OPT+21*, OPT+24, OPT+42*, OPT+43*, OPT+46, OPT+52 |
IBYD | OPT+8~, OPT+52*, OPT+55, OPT+56, OPT+57 |
IBYY | OPT+8~, OPT+15, OPT+51*, OPT+52* |
IBYY( | OPT+21, OPT+24 |
IBZ | OPT+8~, OPT+24*, OPT+30, OPT+31, OPT+34, OPT+35, OPT+36, OPT+55*, OPT+58, OPT+60 , OPT+61, OPT+66*, OPT+67*, OPT+68, OPT+69 |
M | AVG+2~, AVG+3*, AVG+4*, AVG+5 |
NTBLD | AMT3+1~, AMT3+2*, AMT4+3~, AMT4+6* |
PFT | AMOUNT+6~ |
PRI | PRVSPC+6~, PRVSPC+19*, PRVSPC+20, PRVSPC+22* |
PRS | PRVSPC+6~, PRVSPC+9* |
PRST | AMOUNT+6~, AMOUNT+11*, AMT3+2, AMT3+3 |
PRV | PRVSPC+6~, PRVSPC+11*, PRVSPC+14*, PRVSPC+15*, PRVSPC+21*, PRVSPC+23*, QPS |
PRVLST | PRVSPC+6~ |
PRVLST( | PRVSPC+20, PRVSPC+21, PRVSPC+22 |
PT | CLAMT~, CLAMT+11 |
PTF | AMOUNT+6~, AMT1+3*, AMT1+9, AMT1+10 |
RELBILL | EN+1!, EN+47*, EN+65, EN+66, EN+70 |
RIMB | AMOUNT+6~, AMOUNT+16*, AMT1+20, AMT1+26, AMT1+29, AMT2+5, AMT4+14, AMT4+35, OPT+7, OPT+30 , OPT+31 |
SPC | PRVSPC+6~, PRVSPC+11*, PRVSPC+14*, PRVSPC+15*, PRVSPC+25*, QPS |
SPCLTY | AMOUNT+5~, AMT1+16*, AMT1+23, AMT1+24, AMT1+28 |
STP | PRVSPC+6~, PRVSPC+24*, PRVSPC+25 |
TTCST | AMOUNT+6~ |
TTCST(660 | AMT3+4 |
U | EN+12, EN+13, EN+16, EN+32, EN+33, EN+34, EN+35, EN+38, EN+39, EN+40 , EN+42, EN+43, EN+45, EN+46, EN+51, EN+52, EN+59, EN+60, EN+61, EN+62 , EN+63, EN+64, EN+67, EN+69, EN+70, EN+71, AMOUNT+9, AMOUNT+10, AMOUNT+11, AMOUNT+12 , AMOUNT+13, AMT1+3, AMT1+4, AMT1+5, AMT1+16, AMT2+1, AMT4+23, AMT4+24, AMT4+29, AMT4+30 , CLAMT+10, CLAMT+12, OPT+18, OPT+47, OPT+55, OPT+56, OPT+57, AVG+5, PRVSPC+9, PRVSPC+13 , PRVSPC+22, PRVSPC+23, PRVSPC+24, PRVSPC+25, QPS |
VADM | ENQ+3! |
VADM(1 | EN+39 |
VADM(2 | EN+39 |
VAIN | PRVSPC+6~ |
VAIN(11 | PRVSPC+14 |
VAIN(3 | PRVSPC+14 |
VAINDT | PRVSPC+6~, PRVSPC+13* |
>> VAUTD | EN+23 |
>> VAUTD( | EN+23 |
VCPT | AMOUNT+6~ |
X | EN+3*, EN+65*, EN+69*, EN+70*, EN+72, AMOUNT+6~, AMOUNT+8*, AMOUNT+9, AMOUNT+10, AMOUNT+11 , AMOUNT+12, AMOUNT+13, AMT1+2*, AMT1+3, AMT1+4, AMT1+5, AMT1+15*, AMT1+16, AMT2+1*, CLAMT+6~ , CLAMT+9*, CLAMT+10, PRVSPC+6~, PRVSPC+8*, PRVSPC+9, PRVSPC+13*, PRVSPC+19*, PRVSPC+20*, PRVSPC+21, PRVSPC+22 , PHDL+1~, PHDL+2*, PHDL+3*, PHDL+4 |
X1 | ENQ+3! |
X2 | ENQ+3! |
Z | AVG+2~, AVG+5* |