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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBTUTL

Package: Integrated Billing

Routine: IBTUTL


Information

IBTUTL ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ;21-JUN-93

Source Information

Source file <IBTUTL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 6 SITE^IBAUTL  ($$INSURED,ALL)^IBCNS1  $$BILLED^IBCU8  $$SCH^IBTRKR2  PRE^IBTUTL2  COM^IBTUTL3  
VA FileMan 5 (C,NOW)^%DTC  $$FIND1^DIC  FILE^DICN  (,FILE,UPDATE)^DIE  $$GET1^DIQ  
Kernel 1 $$FMADD^XLFDT  
Registration 1 INP^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Integrated Billing 13 IBCNRDV  IBCNSBL  IBCONS3  IBNCPDP4  IBNCPDPU  IBNCPNB  IBTOAT  IBTRE2  
IBTRHLI2  IBTRKR  IBTUTL1  IBTUTL2  ^IBT(356  

Entry Points

Name Comments DBIA/ICR reference
ADM(DGPMCA,VAINDT,RANDOM,IBVSIT) ; -- set up info for adding a current admission
; -- Input DGPMCA = pointer for an admission to patient movement file
; VAINDT = optional date for admission (default is dt)
; RANDOM = whether or not this is a random sample
; IBVSIT = Pointer to visit file (optional)
ADMQ
ADDT ; -- add new entry to tracking, ibt(356
ADDTQ ;I +Y<0 D ^IBTERR
OTH(DFN,IBETYP,IBTDT) ; -- add miscellaneous entries, care may not be in data base
; -- input dfn := patient pointer to 2
; ibetyp := pointer to type entry in 356.6
; ibtdt := episode date
OTHQ
IBSITE() ; -- calculate site from site parameters
; -- output ibsite = station number
ADMDR(IBADMDT,IBETYP,DGPMCA,RANDOM) ; -- set up dr string for admissions
ADMDRQ
EABD(IBETYP,IBTDT) ; -- compute earliest auto bill date: date entered plus days delay for event type
; -- input IBETYPE = pointer to type of entry file
; IBTDT = episode date, if not passed in uses DT
EABDQ
BILL(IBTRN) ;check if event is billable, return EABD if it is
BILLQ
STOBIL
KTOBIL
FNDHCSR(DFN,IBADMDT) ; find matching HCSR response in file 356.22
; DFN - file 2 ien
; IBADMDT - event date
HCSRCPY(HCSRIEN,IBTRN,DFN,EVNTDT) ; copy ref. # and auth. # from file 356.22 into file 356.2
; HCSRIEN - file 356.22 ien
; IBTRN - file 356 ien
; DFN - file 2 ien
; EVNTDT - event date from 356.22/.07
ADD(EVNTDT,IBTRN,DFN,NUM,FLD,IIEN) ; -- add initial entry
; EVNTDT - EVNTDT (in internal fileman format)
; IBTRN - file 356 ien
; DFN - file 2 ien
; NUM - authorization or referral number
; FLD - field to file it it.
; IIEN - Insurance Company IEN

External References

Name Field # of Occurrence
C^%DTC EABD+8
NOW^%DTC ADD+44
$$FIND1^DIC ADD+26
FILE^DICN ADDT+7
^DIE ADM+21, ADM+22, OTH+12
FILE^DIE HCSRCPY+25
UPDATE^DIE ADD+48
$$GET1^DIQ FNDHCSR+14, HCSRCPY+9, HCSRCPY+10, HCSRCPY+11, HCSRCPY+13, HCSRCPY+23
SITE^IBAUTL IBSITE+4
$$INSURED^IBCNS1 OTH+10, ADMDR+3
ALL^IBCNS1 ADD+11
$$BILLED^IBCU8 BILL+4
$$SCH^IBTRKR2 ADM+15
PRE^IBTUTL2 ADM+29
COM^IBTUTL3 ADM+36
INP^VADPT ADM+8
$$FMADD^XLFDT ADD+40

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 GET1^DIQ
^IBT(356 - [#356] Classic Fileman Calls
^IBE(356.11 - [#356.11] FIND1^DIC
^IBT(356.2 - [#356.2] GET1^DIQ
^IBT(356.22 - [#356.22] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] ADM+12, ADM+26
^IBE(356.6 - [#356.6] ADM+14, EABD+5
^IBT(356 - [#356] ADM+11, ADM+15, ADM+19, ADM+22, ADM+23, ADM+29, ADM+36, ADDT+3, ADDT+5, ADDT+7
, ADDT+8, OTH+6, OTH+11, OTH+13, BILL+1, BILL+8
^IBT(356.2 - [#356.2] HCSRCPY+18, HCSRCPY+21, HCSRCPY+24
^IBT(356.22 - [#356.22] FNDHCSR+10, FNDHCSR+12, HCSRCPY+18

Label References

Name Line Occurrences
$$ADMDR ADM+20
$$EABD OTH+10, ADMDR+3, BILL+9
$$FNDHCSR ADM+24
$$IBSITE ADDT+7
ADD HCSRCPY+18
ADDT ADM+16, OTH+7
ADMDRQ ADMDR+2
ADMQ ADM+11, ADM+17, ADM+19, ADM+33
BILLQ BILL+1, BILL+4, BILL+7
EABDQ EABD+4, EABD+6
HCSRCPY ADM+24
OTHQ OTH+6, OTH+8, OTH+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADD+45
%DT ADDT+2~
CERT HCSRCPY+6~, HCSRCPY+9*, HCSRCPY+15
DA ADM+6~, ADM+18*, ADM+21!, ADM+22*!, OTH+5~, OTH+9*, OTH+12!
DD ADDT+2~
DFN ADM+11, ADM+24, OTH~, OTH+6, OTH+10, ADMDR+3, FNDHCSR~, FNDHCSR+8, FNDHCSR+10, FNDHCSR+12
, HCSRCPY~, HCSRCPY+12, HCSRCPY+18, ADD~, ADD+11, ADD+30
DGPMCA ADM~, ADM+8*, ADM+9, ADM+11, ADM+12, ADM+15, ADM+20, ADM+26, ADMDR~, ADMDR+3
, ADMDR+4
DIC ADM+6~, ADDT+2~, ADDT+6*, OTH+5~
DIC(0 ADDT+6*
DIE ADM+6~, ADM+18*, ADM+21!, ADM+22*!, ADDT+2~, OTH+5~, OTH+9*, OTH+12!
DINUM ADDT+2~, ADDT+7*
DLAYGO ADDT+2~, ADDT+6*
DO ADDT+2~
DR ADM+6~, ADM+20*, ADM+21!, ADM+22*!, ADDT+2~, OTH+5~, OTH+10*, OTH+12!, ADMDR+1*, ADMDR+3*
, ADMDR+4*, ADMDRQ
DT ADM+29, ADM+36, EABD+5, BILL+8, ADD+39, ADD+40
DUZ OTH+10, ADMDR+3, ADD+46
EVDT FNDHCSR+6~, FNDHCSR+10*, FNDHCSR+12
EVNTDT HCSRCPY~, HCSRCPY+18, ADD~, ADD+11, ADD+19, ADD+40
FDA HCSRCPY+6~, HCSRCPY+25!, ADD+8~, ADD+48!
FDA( HCSRCPY+24*, ADD+19*, ADD+22*, ADD+23*, ADD+27*, ADD+30*, ADD+33*, ADD+36*, ADD+41*, ADD+45*
, ADD+46*
FLD HCSRCPY+6~, HCSRCPY+14*, HCSRCPY+15*, HCSRCPY+18, HCSRCPY+24, ADD~, ADD+9, ADD+36
HCSRIEN ADM+6~, ADM+24*, FNDHCSR+6~, FNDHCSR+12*, FNDHCSR+14, HCSRCPY~, HCSRCPY+7, HCSRCPY+8
HCSRIENS HCSRCPY+6~, HCSRCPY+8*, HCSRCPY+9, HCSRCPY+10, HCSRCPY+11
HIP ADD+8~, ADD+15, ADD+16*, ADD+17, ADD+33
IBADMDT ADM+12*, ADM+20, ADM+24, ADMDR~, ADMDR+2, ADMDR+3, FNDHCSR~, FNDHCSR+8, FNDHCSR+12
IBDD ADD+8~
IBDD( ADD+16
IBDD("S" ADD+15, ADD+16
IBDD(0 ADD+12
IBETYP ADM+14*, ADM+20, ADM+24, OTH~, OTH+6, OTH+10, ADMDR~, ADMDR+2, ADMDR+3, EABD~
, EABD+4, EABD+5
IBETYPD EABD+4~, EABD+5*, EABD+6, EABD+7
IBFAC IBSITE+3~
>> IBNEW ADDTQ+1*
IBNXRV ADD+8~, ADD+39*, ADD+40*, ADD+41
IBSCH ADM+6~, ADM+15*, ADM+33
IBSCHED ADM+6~, ADM+26*, ADM+29, ADM+36
IBSITE IBSITE+3~, IBSITE+5
IBTDT OTH~, OTH+6, OTH+10, EABD~, EABD+5*, EABD+8
IBTOC ADD+8~, ADD+26*, ADD+27
IBTR1 ADDT+2~, ADDT+7*, ADDT+8
IBTRN ADM+11*, ADM+15*, ADM+16, ADM+17, ADM+18, ADM+19, ADM+22, ADM+23, ADM+24, ADM+29
, ADM+36, ADDTQ+1*, OTH+6*, OTH+8, OTH+9, OTH+11, OTH+13, BILL~, BILL+1, BILL+4
, BILL+8, HCSRCPY~, HCSRCPY+7, HCSRCPY+18, HCSRCPY+21, ADD~, ADD+22
IBTRND BILL+1~*, BILL+4, BILL+7, BILL+9
>> IBTRV ADM+36
IBVSIT ADM~, ADMDR+3
IENS HCSRCPY+6~, HCSRCPY+12*, HCSRCPY+13
IIEN HCSRCPY+6~, HCSRCPY+13*, HCSRCPY+18, HCSRCPY+23, ADD~, ADD+9, ADD+16
IMIEN HCSRCPY+6~, HCSRCPY+11*, HCSRCPY+12
IRIEN HCSRCPY+6~, HCSRCPY+21*, HCSRCPY+22, HCSRCPY+24
IRIENS HCSRCPY+6~, HCSRCPY+22*, HCSRCPY+23, HCSRCPY+24
NUM HCSRCPY+6~, HCSRCPY+10*, HCSRCPY+18, HCSRCPY+24, ADD~, ADD+9, ADD+36
ORDER ADD+8~, ADD+15*, ADD+16
RANDOM ADM~, ADM+10*, ADM+20, ADMDR~, ADMDR+4
RES FNDHCSR+6~, FNDHCSR+7*, FNDHCSR+14*, FNDHCSR+18
>> RESIEN HCSRCPY+18
STOP ADD+8~
STOPFLG FNDHCSR+6~, FNDHCSR+10*, FNDHCSR+12, FNDHCSR+14*
U ADM+24, ADM+26, ADM+29, ADM+36, BILL+4, BILL+7, BILL+9, HCSRCPY+15, HCSRCPY+18, HCSRCPY+24
VA ADM+6~
>> VA200 ADM+8*
VAIN ADM+6~
VAIN(1 ADM+8
VAINDT ADM~, ADM+7!
X ADM+6~, ADM+11*, ADDT+5*, ADDT+7*, OTH+5~, OTH+6*, EABD+4~, EABD+8, BILL+1~*, BILL+9*
, BILLQ
X1 EABD+4~, EABD+8*
X2 EABD+4~, EABD+7*
Y ADDT+7, ADDT+9*, ADDTQ+1, OTH+5~, EABD+4~*, EABD+8*, EABDQ, BILL+1~*, BILL+4*, BILL+8*
, BILL+9
Z BILL+1~, BILL+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All