IBTUTL ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ;21-JUN-93
Source file <IBTUTL.m>
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 |
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 |