Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call