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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBAUTL5

Package: Integrated Billing

Routine: IBAUTL5


Information

IBAUTL5 ;ALB/CPM - MEANS TEST BILLING UTILITIES (CON'T.) ; 02-JAN-92

Source Information

Source file <IBAUTL5.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 (C,H,NOW)^%DTC  ^DIE  
Accounts Receivable 1 $$PST^PRCAFN  
Integrated Billing 1 ^IBR  

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: 11

Package Total Caller Graph
Integrated Billing 11 IBAECU5  IBAMTC  IBAMTC2  IBAMTD  IBAMTD1  IBAMTD2  IBAMTV1  IBAUTL4  
IBECEA3  IBOMTE  IBOMTE1  

Entry Points

Name Comments DBIA/ICR reference
PASS ; Find unbilled charges for an event and pass to Accounts Receivable.
; Input: IBEVDA, IBY Output: IBCHCDA, IBCHPDA are reset to 0.
FILER ; Pass charge to Accounts Receivable. Input: IBNOS
; - first, get a bill number and build a complete charge..
FILERQ
LAST ; Find Last Billed date, if one exists, for pts. w/o billable events
; Input: DFN, IBADMDT Output: IBBDT (if past event exists)
DIEM() ; Find the earliest date for which the per diem charge may be billed.
SECT(FTS) ; Find the billable bedsection.
; Input: Facility Treating Specialty (IEN from file #45.7)
; Returned: Billable bedsection from file 399.1 (MCCR UTILITY), or
; 0 if the specialty does not have a corresp. bedsection
CONT(DFN) ; Find continuous patient discharge date.
; Input: DFN Returned: 0 - not continuous
; 9999999 - still continuous, or
; actual discharge date from continuous stay
STD(DFN) ; Is the patient's A/R Statement date 4 days from now?
; Input: DFN Returned: Statement date in 4 days? (1 - yes, 0 - no)
OE(DGPMDA) ; Was the patient admitted for Observation & Examination?
; Input: DGPMDA - pointer to 0th node of pt mvt (adm) in file #405
; Returned: O&E Admission? (1 - yes, 0 - no)
ASIH(PM) ; Is patient movement an ASIH movement?
; Input: PM - 0th node of patient movement in file #405
; Returned: ASIH Movement? (1 - yes, 0 - no)
CVA(DFN) ; Is CHAMPVA the patient's Primary Eligibility?
; Input: DFN Returned: Prim Elig = CHAMPVA? (1 - yes, 0 - no)

External References

Name Field # of Occurrence
C^%DTC STD+2
H^%DTC LAST+8
NOW^%DTC FILER+2
^DIE FILER+9
^IBR FILER+12
$$PST^PRCAFN STD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] SECT+5
^DGPM - [#405] OE+4
^DGPT - [#45] OE+5
^DIC(42.4 - [#42.4] SECT+4
^DIC(43.4 - [#43.4] OE+6
^DIC(45.1 - [#45.1] OE+6
^DIC(45.7 - [#45.7] SECT+4
^DIC(8 - [#8] CVA+2
^DPT - [#2] CVA+2
^IB - [#350] PASS+3, LAST+5
^IB("AF" PASS+3
^IB("AFDT" LAST+3, LAST+4
^IBE(350.9 - [#350.9] DIEM+1
^IBE(351.1 - [#351.1] CONT+5

Label References

Name Line Occurrences
FILER PASS+3
FILERQ FILER+9, FILER+13

Naked Globals

Name Field # of Occurrence
^(0 LAST+5, DIEM+1, CONT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FILER+2
>> %H LAST+8
AR OE+3~, OE+5*, OE+6
DA FILER+9*!, LAST+2~*, LAST+4*, LAST+5
DFN LAST+3, LAST+4, CONT~, CONT+5, STD~, STD+3, CVA~, CVA+2
DGPM0 OE+3~, OE+4*, OE+5
DGPMDA OE~, OE+4
DIE FILER+9*!
DR FILER+9*!
DT STD+2
DUZ FILER+12
FTS SECT~, SECT+4*, SECT+5
IBACTN PASS+2~, PASS+3*
>> IBADMDT LAST+2
IBARTYP FILER+12!
IBATYP FILER+2~
>> IBBDT LAST+8*
>> IBCHCDA PASS+4*
>> IBCHPDA PASS+4*
IBD LAST+2~*, LAST+3
IBDATE LAST+2~*, LAST+6*, LAST+7*, LAST+8
IBDUZ FILER+12*!
>> IBEVDA PASS+3
>> IBJOB FILER+9
IBN FILER+12!
IBNOS PASS+2~, PASS+3*, FILER+9
IBNOW FILER+2~*
IBSEQNO FILER+12*!
IBTEMP LAST+2~, LAST+5*, LAST+6, LAST+7
>> IBWHER FILER+13*
>> IBY PASS+3, FILER+13*
J LAST+2~*, LAST+3*, LAST+4
PM ASIH~, ASIH+3
SOA OE+3~, OE+5*, OE+6
X LAST+8*, CONT+4~*, CONT+5*, CONT+6, STD+3
>> X1 STD+2*
>> X2 STD+2*
>> Y FILER+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All