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 |
