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 |
| VA FileMan | 3 | $$EXTERNAL^DILFD $$GET1^DIQ EN^DIQ1 |
| Registration | 2 | (DEM,INP)^VADPT $$PRIM^VASITE |
| 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 |
| 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 |
| $$GET1^DIQ | EN+68, EN+72 |
| 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+73 |
| EN^IBJDB22 | EN+76 |
| $$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 |
| 356.04 | GET1^DIQ |
| ^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, EN+68, EN+72, AMOUNT+8, PRVSPC+8 |
| ^TMP("IBJDB2" | EN+1!, EN+73*, EN+74*, 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, EN+68, EN+72, ENQ+1! |
| IBADMDT | EN+1!, EN+43*, EN+44*, EN+63, EN+72 |
| IBAMT | EN+19*, EN+20, EN+52, EN+64, EN+72, 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+70, 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+70, ENQ+1! |
| IBDIV | EN+23, EN+24*, EN+25*, EN+50, EN+51, EN+52, EN+59, EN+73, EN+74, 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+73, EN+74, ENQ+1! |
| IBEPD | EN+16*, EN+17, EN+61, EN+62, EN+70, EN+73, ENQ+1! |
| >> IBEPS( | EN+3 |
| >> IBEXCEL | EN+6, EN+25, EN+58, EN+76 |
| 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+73 , EN+74, ENQ+2! |
| IBN1 | EN+11*, EN+16, EN+40, EN+63, 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+72, ENQ+2! |
| IBPT | EN+39*, EN+60, EN+73, EN+74, 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+70, 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+73, EN+74, ENQ+2! |
| >> IBSOSP | EN+33 |
| >> IBSOSP( | EN+33 |
| IBSPC | EN+28*, EN+35*, EN+55, EN+64, EN+72, ENQ+2! |
| >> IBSPRV | EN+31 |
| >> IBSPRV( | EN+31 |
| >> IBSRNB | EN+9 |
| >> IBSRNB( | EN+9 |
| IBSSN | EN+39*, EN+60, EN+73, EN+74, 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+72 |
| 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+68, EN+70, EN+72, EN+73, 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+70*, EN+72*, EN+74, 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* |