Routine: IBTUBO2

Information

IBTUBO2 ;ALB/AAS - UNBILLED AMOUNTS - GENERATE UNBILLED REPORTS ;03 Aug 2004 8:21 AM

Source file <IBTUBO2.m>

Name	Comments	DBIA/ICR reference
INPT(DGPM)	; - Check if inpatient episode has bills or final bill; if not, ; ^TMP($J,"IBTUB",DIVISION,"INPT",NAME@@DFN,DATE,IBX)=bill status ; ^TMP($J,"IBTUB",DIVISION,"INPT_MRA",NAME@@DFN,DATE,IBX)=1 if MRA request ; *Pre-set variables: DFN=patient IEN, DGPM=pointer to file #405, ; IBDT=event date, IBRT=bill rate, ; IBEDT=reporting period date
INPTQ
RX(IBRX)	; - Check if prescription has been billed; if not, ; ^TMP($J,"IBTUB",DIVISION,"RX",NAME@@DFN,DATE@RX#,IBX)=bill status^drug name^ ; original fill date ; ^TMP($J,"IBTUB",DIVISION,"RX_MRA",NAME@@DFN,DATE@RX#,IBX)=1 if req MRA
RX1	; - Calculate unbilled amounts.
RXQ