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 |
FileNo | Call Tags |
---|---|
^DGPM - [#405] | GET1^DIQ |
^DIC(42 - [#42] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |