Routine: IBTUTL1

Information

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

Source file <IBTUTL1.m>

Name	Comments	DBIA/ICR reference
OPT(DFN,IBETYP,IBTDT,ENCTR,IBRMARK,IBVSIT)	; -- add outpatient care entries ; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date ; enctr := pointer to opt. encounter file (optional) ; ibrmark := text of reason not billable (optional) ; ibvsit := pointer to visit file (optional)
OPTQ
REFILL(DFN,IBETYP,IBTDT,IBRXN,IBRXN1,IBRMARK,IBEABD,IBSCROI)	; -- add refill ; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date (refill date) ; ibrxn := pointer to 52 ; ibrxn1 := refill multiple entry ; ibrmark := non billable reason if unsure ; ibeabd := optional, can specify an earliest auto bill date ; ibscroi := special consent roi
REFILLQ
PRO(DFN,IBTDT,IBPRO,IBRMARK)	; -- add prosthetic entries ; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date
PROQ
PT(DFN)	; -- format patient name - last 4 for output
PTQ
PRODATA(IBDA)	; -- return data from prosthetics file
DIQ
PRODAQ
OPTSCRN	; -- add outpatient care entries with user feedback ; called from OPT^IBTUTL1 which has following inputs ; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date ; enctr := pointer to opt. encounter file (optional) ; ibrmark := text of reason not billable (optional) ; ibvsit := pointer to visit file (optional)
OPTSCRNQ