Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 5 $$BILLCK^IBAMTEDU  $$PTCOV^IBCNSU3  ($$M1,E)^IBJDE  ($$DAT2,$$DAT3)^IBOUTL  ($$SCE,SCAN)^IBSDU  
VA FileMan 4 C^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Scheduling 1 GETGEN^SDOE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Integrated Billing 8 IBJDB21  IBTUBAV  IBTUBO  IBTUBO1  IBTUBO2  IBTUBOA  IBTUBUL  IBTUTL5  

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

External References

Name Field # of Occurrence
C^%DTC YR2+1
^DIE LD+6
$$GET1^DIQ MCCFCKX+4
^DIR DT1+12, DT1+24, DT2+13
$$BILLCK^IBAMTEDU CKENC+4
$$PTCOV^IBCNSU3 COV+6
$$M1^IBJDE DT2+7
E^IBJDE XTRACT+11
$$DAT2^IBOUTL DT2+6, DT2+7
$$DAT3^IBOUTL DT1+3, DT1+13, DT1+15
$$SCE^IBSDU PTCHK+6, NCCL+4
SCAN^IBSDU SCAN+4
GETGEN^SDOE CKENC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: DT2+14
Routine Call
  • DIE
  • Line Location:
    • LD+6
Routine Call
  • DIR
  • Line Location:
    • DT1+12
    • DT1+24
    • DT2+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(356.19 - [#356.19] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CKBIL+5, CKBIL+11, CKBIL+17, NOTRX+5, NOTRX+6
^DGCR(399.1 - [#399.1] NOTRX+6
^DGPM - [#405] HOSP+5
^DGPT - [#45] SC+3, SC+4, SC+5
^DIC(8 - [#8] PTCHK+6
^DPT - [#2] PTCHK+5
^IBE(356.19 - [#356.19] INPAVG+5, INPAVG+6, INPAVG+8
^IBT(356 - [#356] DT1+2
^SC - [#44] NCCL+5

Label References

Name Line Occurrences
$$INPAVG XTRACT+3
$$MCCFCKX CKBIL+15
$$NOTRX CKBIL+7
CKBL1 CKBIL+18
CKBLQ CKBIL+4, CKBIL+5, CKBIL+6, CKBIL+7, CKBIL+8, CKBIL+9, CKBIL+10, CKBIL+12, CKBIL+13, CKBIL+15
, CKBIL+20
COVQ COV+4
DT1Q DT1+12, DT1+24
DT2 DT2+14
DT2Q DT2+13
LDQ LD+3
NOTRXQ NOTRX+5
PTCKQ PTCHK+4
SCQ SC+3
YR2Q YR2+1

Naked Globals

Name Field # of Occurrence
^("VET" PTCHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM HOSP~, HOSP+5
AVGI INPAVG+4~, INPAVG+7*, INPAVG+9*, INPAVG+11
AVGP INPAVG+4~, INPAVG+7*, INPAVG+10*, INPAVG+11
AVGS XTRACT+2~, XTRACT+3*, XTRACT+4, XTRACT+5
BILL NOTRX~, NOTRX+5, NOTRX+6
D YR2~, YR2+1
DA LD+4*, LD+6!
DFN PTCHK~, PTCHK+4, PTCHK+5, CKBIL+6, SCAN~, SCAN+2
DIE LD+4*, LD+6!
DIR DT1+12!, DT1+24!, DT2+13!
DIR("?" DT1+5*, DT1+6*, DT1+7*, DT1+8*, DT1+9*, DT1+10*, DT1+11*, DT1+17*, DT1+18*, DT1+19*
, DT1+20*, DT1+21*, DT1+22*, DT1+23*, DT2+10*, DT2+11*, DT2+12*
DIR("A" DT1+4*, DT1+16*, DT2+9*
DIR("B" DT1+3*, DT1+15*, DT2+7*
DIR(0 DT1+4*, DT1+16*, DT2+8*
DIRUT DT2+4~, DT2+13
DR LD+5*, LD+6!
DT DT1+4, DT1+15, DT1+16, DT2+7
DT0 DT1+1~, DT1+2*, DT1+3, DT1+4, DT2+4~, DT2+6*, DT2+8
DT1 DT1+1~, DT1+2*, DT1+3*, DT1+9, DT1+13*, DT1+18, DT1+19, DT1+22, DT2+4~, DT2+6*
, DT2+11
DT2 DT2+4~, DT2+7*, DT2+8
DTOUT DT1+1~, DT1+12, DT1+24
DUOUT DT1+1~, DT1+12, DT1+24
E COV~, COV+4, COV+6
ENC NCCL~, NCCL+4
FILE MCCFCKX~, MCCFCKX+2, MCCFCKX+4
FLD MCCFCKX~, MCCFCKX+2, MCCFCKX+4
HLOC NCCL+3~, NCCL+4*, NCCL+5
HOSP HOSP+4~, HOSP+5*, HOSP+7
>> IB( XTRACT+8*
>> IB(1 XTRACT+4
>> IB(10 XTRACT+9
>> IB(11 XTRACT+7
>> IB(12 XTRACT+9
>> IB(13 XTRACT+7*
>> IB(14 XTRACT+7
>> IB(15 XTRACT+7*
>> IB(16 XTRACT+9*, XTRACT+10
>> IB(18 XTRACT+10
>> IB(19 XTRACT+10*
>> IB(2 XTRACT+4*, XTRACT+6
>> IB(3 XTRACT+5
>> IB(4 XTRACT+5*, XTRACT+6
>> IB(6 XTRACT+6*, XTRACT+10
>> IB(7 XTRACT+7
>> IB(8 XTRACT+9
>> IB(9 XTRACT+7
>> IBBDT DT1+12*, DT1+13*, DT1+16, DT1+24*
IBCBK SCAN+1~, SCAN+3*, SCAN+4
IBCK CKENC+1~
IBCK( CKENC+3*
IBDT SCAN~, SCAN+2
>> IBEDT DT1+25*
IBFILTER SCAN+1~, SCAN+2*, SCAN+4
IBFLAG PTCHK+4~*, PTCHK+5*, PTCHK+6*, PTCKQ
IBM SC+3~*, SC+4, SC+5*, SCQ
>> IBMCCF CKBIL+15, MCCFCKX+5
>> IBMCCF( MCCFCKX+5
IBNDT SCAN+1~, SCAN+4*
IBNODE PTCHK~, PTCHK+6
IBOE CKENC~, CKENC+2, CKENC+4
IBOE0 CKENC~, CKENC+2*, CKENC+4
IBPB CKENC+1~
IBQUERY SCAN~, SCAN+4
IBQUIT CKENC~, CKENC+4*
IBRX CKBIL+7, NOTRX+4~, NOTRX+5*, NOTRX+6*, NOTRXQ
>> IBTIMON DT2+13*, DT2+15*, XTRACT+3
IBVAL SCAN+1~, SCAN+4
IBVAL("BDT" SCAN+2*
IBVAL("DFN" SCAN+2*
IBVAL("EDT" SCAN+2*
IBYRMO INPAVG~, INPAVG+4, INPAVG+5, INPAVG+6*, INPAVG+7, INPAVG+8
IBZ CKENC+1~, CKENC+3*
IBZ(0 CKENC+2
IBZERR CKENC+1~
IEN MCCFCKX~, MCCFCKX+2, MCCFCKX+4
L LD~, LD+3, LD+5
M SC+3~*, SC+4*, SC+5, LD~, LD+3, LD+4
NCCL NCCL+3~, NCCL+4*, NCCL+5*, NCCL+7
ND INPAVG+4~, INPAVG+8*, INPAVG+9, INPAVG+10, MCCFCKX~, MCCFCKX+2, MCCFCKX+5
P COV~, COV+4, COV+6
PTF SC~, SC+3, SC+4, SC+5
RC NOTRX+4~, NOTRX+5*, NOTRX+6*
STR DT2~, DT2+9
T COV~, COV+4, COV+5
U PTCHK+6, CKBIL+6, CKBIL+8, CKBIL+9, CKBIL+10, CKBIL+11, CKBIL+12, CKBIL+13, CKBIL+16, CKBIL+17
, CKBIL+18, CKBIL+19, CKBIL+20, CKBL1, SC+5, NOTRX+6
VAL MCCFCKX+3~, MCCFCKX+4*, MCCFCKX+5
X YR2+1~*, YR2Q, COV+4~, COV+5*, COV+6, HOSP+4~, HOSP+5*, CKBIL~, CKBIL+4, CKBIL+5
, CKBIL+7, CKBIL+11, CKBIL+15, CKBIL+17, XTRACT+2~, XTRACT+8*, NOTRX+4~
X1 YR2+1~*, CKBIL+4~, CKBIL+5*, CKBIL+6, CKBIL+8, CKBIL+9, CKBIL+10, CKBIL+12, CKBIL+13, CKBIL+16
, CKBIL+17, CKBIL+18, CKBIL+19
X2 YR2+1~*, CKBIL+4~, CKBIL+11*, CKBIL+12, CKBIL+16
XY COV+4~, COV+6
Y DT1+1~, DT1+13, DT1+25, DT2+4~, DT2+14, DT2+15, COV+4~*, COV+6*, COVQ, CKBIL~
, CKBIL+4*, CKBIL+7, CKBIL+8, CKBIL+9, CKBL1
Y1 CKBIL+4~, CKBIL+16*, CKBIL+18, CKBL1
Z CKBIL+4~*, CKBIL+16*, CKBIL+17*, CKBIL+18*, CKBIL+19*, CKBIL+20*, CKBL1*, CKBLQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All