Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBJDB21

Package: Integrated Billing

Routine: IBJDB21


Information

IBJDB21 ;ALB/RB - REASONS NOT BILLABLE REPORT (COMPILE) ;19-JUN-00

Source Information

Source file <IBJDB21.m>

Call Graph

Call Graph

Call Graph Total: 21

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBJDB2  IBTODD  

Entry Points

Name Comments DBIA/ICR reference
QAMT
EN ; - Entry point from IBJDB2.
QCLAMT
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
OPTQ
AMT4 ; - Prescription Charges
AMT2 ; - Outpatient Charges
AMT3 ; Prosthetic Charges
PHDL ; - Print the header line for the Excel spreadsheet
AMT1 ; - Inpatient Charges
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)
QAVG
QPS
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
;
AVG(EPDT) ; Returns the Average Amount of Inpatient Professional per
; Number of Episodes for the previous 12 months
CLAMT(DFN,EPDT,PT) ; Returns the Total Amount of Claims for Patient/Episode

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(RELBILL,";",X)_" "
  • Line Location: EN+65
Function Call: WRITE
  • Prompt: ""
  • Line Location: EN+66
Function Call: WRITE
  • Prompt: !,X
  • Line Location: PHDL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^IBT(356 - [#356] EXTERNAL^DILFD
^RMPR(660 - [#660] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( OPT+52

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All