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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBTUBOU

Package: Integrated Billing

Routine: IBTUBOU


Information

IBTUBOU ;ALB/RB - UNBILLED AMOUNTS (UTILITIES) ;03 Aug 2004 7:21 AM

Source Information

Source file <IBTUBOU.m>

Entry Points

Name Comments DBIA/ICR reference
DT1 ; - Select date range (returns variables IBBDT and IBEDT).
DT1Q
DT2(STR) ; - Select re-compile date (returns variable IBTIMON).
; Input: STR - String that describe the type of data that will be
; re-compiled: "Unbilled Amounts", "Average Bill Amounts", etc...
DT2Q
YR2(D) ; - Return a date two years from date D.
YR2Q
COV(P,E,T) ; - Check if patient has insurance coverage.
; Input: P=patient IEN, E=event date,
; T=1-inpatient/2-outpatient/3-pharmacy
; Output: Y=1-patient has coverage/0-no coverage or unknown
COVQ
PTCHK(DFN,IBNODE) ; - See if patient has a non-veteran eligibility.
; Input: DFN=patient IEN
; IBNODE=zero node to CT entry
; Output: IBFLAG=0-nonbillable, 1-billable
PTCKQ
NCCL(ENC) ; - Check if Encounter is NON-COUNT CLINIC
; Input: ENC = Pointer to the ENCOUNTER file (#409.69)
; Output: NCCL= 1 - NON-COUNT CLINIC / 0 - NO NON-COUNT CLINIC
HOSP(ADM) ; Is the patient still hospitalized (not discharged)?
; Input: ADM = Pointer to the PATIENT MOVEMENT file (#405)
CKBIL(X,Y) ; - Return valid claim data.
; Input: X=IEN from file #399, Y=0-outpatient, 1-inpatient
; Output: Z=rate^status^auth date^1-inst claim/2-prof claim^
; event date (if Y=1), or null^req MRA date
CKBL1
CKBLQ
CKENC(IBOE,IBOE0,IBQUIT) ; - Check outpatient encounters.
SCAN(DFN,IBDT,IBQUERY) ; - Look at all visits for a day.
SC(PTF) ; - If patient is SC, are movements for SC care.
; Input: PTF=PTF record
; Output: IBM=1-all movements PTF, 0-one or more not flagged as SC
SCQ
LD(L,M) ; - Load average/unbilled totals into file #356.19
; Input: L=1-average (mon), 2-average (12m), 3-unbilled
; M=file #356.19 IEN
LDQ
XTRACT ; - Calculate remaining extract totals and load into file #351.71
; - Set IB with the average and total amounts and call E^IBJDE
INPAVG(IBYRMO) ; - Calculate the Average Inpatient INST. & PROF. Billed Amounts
; Input: IBYRMO - YEAR/MONTH (YYYMM00) being calculated/updated
; Output: Avg.Inpt.Inst.Bill Amount ^ Avg.Inpt.Prof. Bill Amount
NOTRX(BILL) ; - Determine if bill contains outpatient visit (use this check
; to make sure not just rx bill returns one if contains a revenue
; code for outpatient visit or a zero if no outpatient visit code
; on bill).
NOTRXQ
MCCFCKX(FILE,IEN,FLD,ND) ;JRA;IB*2.0*608 Check if Eligibility of Encounter, Appointment Type, and Rate Type meet MCCF/non-MCCF criteria

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: DT2+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(356.19 - [#356.19] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call