Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBTUBO2

Package: Integrated Billing

Routine: IBTUBO2


Information

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

Source Information

Source file <IBTUBO2.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call