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

Package: Integrated Billing

Routine: IBAUTL3


Information

IBAUTL3 ;ALB/CPM - MEANS TEST BILLING UTILITIES (CON'T.) ; 31 May 2022 12:59 PM

Source Information

Source file <IBAUTL3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 (C,NOW)^%DTC  FILE^DICN  ^DIE  IX1^DIK  
Integrated Billing 3 ADD^IBAUTL  EN^IBECECQ1  EN^IBECECU1  
Kernel 2 ^%ZTLOAD  $$HADD^XLFDT  
Registration 1 $$BILST^DGMTUB  

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

Package Total Caller Graph
Integrated Billing 19 IBAECN1  IBAMTC  IBAMTD  IBAMTD1  IBAMTS1  IBAMTV2  IBAUTL4  IBECEA1  
IBECEA21  IBECEA3  IBECEA31  IBECEA32  IBECEA33  IBECEA34  IBECEAU1  IBECEAU5  
IBOMTE  IBOMTE1  IBOMTE2  

Entry Points

Name Comments DBIA/ICR reference
DED ; Find Medicare deductible rate on the billing clock date.
; Input: IBSERV, IBCLDT Output: IBMED - Medicare deductible
DEDQ
EVADD ; Add a new billable event in File #350.
; Input: IBSITE, DFN, IBSL, IBEVDT, IBSERV, IBNH Output: IBEVDA
; IBNHLTC (optional for LTC only)
EVADDQ
EVFIND ; Find most recent active (incomplete - still being billed)
; inpatient/NHCU event since original admission.
; Input: DFN, IBADMDT Output: IBEVDT, IBEVDA, IBEVCAL
EVCLOS1 ; Set Last Calc date to yesterday before closing event. Input: IBDT
EVCLOSE ; Close event record. Input: IBEVDA, IBEVCLD
EVUPD ; Update event record. Input: IBEVDA, IBEVCLD
CLADD ; Add a new billing clock in File #351. (Rewritten in IB*2*704)
; Input: IBSITE, DFN, IBCLDT, IBSERV Output: IBCLDA, IBMED
CLADDQ
CLOCK ; Determine if the patient has an active billing clock.
; Input: IBSERV Output: IBCLDA, IBCLDT, IBCLDAY, IBCLDOL
CLDATA ; Return data from the current billing clock.
CLOCKCL ; Close out the current billing clock.
; Input: DFN, IBCLDA, IBCLDT; IBCLDOL, IBCLDAY {opt}
; Output: IBCLDA=0
CLUPD ; - update billing clock. Input: IBCLDA, IBCLDOL, IBCLDAY

External References

Name Field # of Occurrence
C^%DTC EVCLOS1+1, CLOCKCL+4
NOW^%DTC EVADD+9, CLUPD+1
^%ZTLOAD CLUPD+7
$$BILST^DGMTUB CLOCKCL+3
FILE^DICN CLADD+5
^DIE EVUPD+3, CLADD+7, CLOCKCL+8
IX1^DIK EVADD+10, CLUPD+3
ADD^IBAUTL EVADD+3
EN^IBECECQ1 CLADD+10, CLUPD+5
EN^IBECECU1 CLUPD+10
$$HADD^XLFDT CLUPD+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] EVADD+8*, EVADD+9*, EVFIND+4
^IB("AFDT" EVFIND+4
^IBE(350.1 - [#350.1] DED+4, EVADD+6, EVADD+7
^IBE(350.2 - [#350.2] DED+5, DED+6
^IBE(351 - [#351] CLADD+2, CLADD+3, CLADD+5, CLADD+7, CLADDQCLOCK+2, CLDATA+1, CLUPD+2*, CLUPD+5, CLUPD+10

Label References

Name Line Occurrences
CLADDQ CLADD+2, CLADD+3
CLDATA CLOCK+3
CLUPD CLOCKCL+6
DED CLADD+11, CLOCK+3
DEDQ DED+3, DED+4
EVADDQ EVADD+3, EVADD+6

Naked Globals

Name Field # of Occurrence
^( DED+5
^(0 EVFIND+4, CLADD+3, CLUPD+2*
^(1 EVADD+9*, CLUPD+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EVADD+9, CLUPD+2
DA EVADD+10*, EVADDQ!, EVUPD+3*!, CLADD+6*, CLADD+7!, CLOCKCL+7*, CLOCKCL+8!, CLUPD+3*!
DD CLADD+4!, CLADDQ!
>> DFN EVFIND+4, CLADD+6, CLADD+10, CLOCK+2, CLOCKCL+3, CLUPD+5, CLUPD+6, CLUPD+10
DIC CLADD+4!*, CLADDQ!
DIC(0 CLADD+4*
DIE EVUPD+3*!, CLADD+6*, CLADD+7!, CLOCKCL+7*, CLOCKCL+8!
DIK EVADD+10*, EVADDQ!, CLUPD+3*!
DINUM CLADD+5*, CLADDQ!
>> DLAYGO CLADD+4*
DO CLADD+4!, CLADDQ!
DR EVUPD+1*, EVUPD+2*, EVUPD+3!, CLADD+4!, CLADD+6*, CLADD+7!, CLOCKCL+7*, CLOCKCL+8!
DT EVFIND+3
DUZ EVADD+9, EVUPD+1, CLADD+6, CLOCKCL+7, CLUPD+2
>> IBADMDT EVFIND+3
IBATYP EVADD+4~, EVADD+6*, EVADD+7, EVADD+8
>> IBCCUPDF CLADD+10
>> IBCLDA CLADD+6*, CLADD+7, CLOCK+2*, CLOCK+3, CLDATA+1, CLOCKCL+7, CLOCKCL+8*, CLUPD+2, CLUPD+3, CLUPD+5
CLUPD+6, CLUPD+10
>> IBCLDAY CLDATA+1*, CLDATA+2, CLOCKCL+6, CLUPD+2
>> IBCLDOL CLDATA+2*, CLOCKCL+6, CLUPD+2
>> IBCLDT DED+5, CLADD+6, CLDATA+1*, CLOCKCL+4
IBCLENDT CLOCKCL+3~, CLOCKCL+4*, CLOCKCL+5*, CLOCKCL+7
IBD EVFIND+3~*, EVFIND+4
IBDESC EVADD+4~, EVADD+7*, EVADD+8
IBDR EVCLOSE+1~*, EVUPD+2
>> IBDT EVCLOS1+1
>> IBEVCAL EVFIND+3*, EVFIND+4*
>> IBEVCLD EVCLOS1+1*, EVUPD+1
>> IBEVDA EVADD+5*, EVFIND+3*, EVFIND+4*, EVUPD+3
>> IBEVDT EVADD+8, EVFIND+3*, EVFIND+4*
>> IBFAC EVADD+8
>> IBMED DED+2*, DED+6*
>> IBN EVADD+5, EVADD+8, EVADD+9, EVADD+10
>> IBNGHTSK CLUPD+5*
>> IBNH EVADD+6
>> IBNHLTC EVADD+6
>> IBSERV DED+3, DED+4, EVADD+6
>> IBSITE CLADD+5
>> IBSL EVADD+8
>> IBY DED+3*, DED+4*, DED+6*, EVADD+3*, EVADD+6*, CLADD+2*, CLADD+3*, CLADD+11*, CLOCKCL+8*
J EVFIND+3~*, EVFIND+4*
K CLOCKCL+3~*, CLOCKCL+5
U CLUPD+5, CLUPD+10
X DED+2~, DED+4*, DED+5*, DED+6, EVCLOS1+1, CLADD+3*, CLADD+5*, CLDATA+1~*, CLDATA+2, CLOCKCL+4
>> X1 EVCLOS1+1*, CLOCKCL+4*
>> X2 EVCLOS1+1*, CLOCKCL+4*
>> Y EVADD+3, CLADD+5, CLADD+6, CLADD+11, CLOCKCL+8
>> ZTDESC CLUPD+6*
>> ZTDTH CLUPD+7*
>> ZTIO CLUPD+7*
>> ZTRTN CLUPD+6*
>> ZTSAVE("*" CLUPD+6*
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