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

Package Total Call Graph
VA FileMan 6 (C,NOW)^%DTC  FILE^DICN  ^DIE  IX1^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Integrated Billing 3 ADD^IBAUTL  EN^IBECECQ1  EN^IBECECU1  
Kernel 2 ^%ZTLOAD  ($$FMDIFF,$$HADD,$$NOW)^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
SYNC ; Check if billing clock is out of sync

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**********************************WARNING**********************************"
  • Line Location: SYNC+10
Function Call: WRITE
  • Prompt: !!,"The local billing clock is out of sync with other facility(s) below.",!,"Please sync billing clock information before creating a copayment to ensure",!,"copayment billing accuracy.",!
  • Line Location: SYNC+11
Routine Call
  • DIE
  • Line Location:
    • EVUPD+3
    • CLADD+7
    • CLOCKCL+8
Routine Call
  • DIR
  • Line Location:
    • SYNC+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls
^IBE(351 - [#351] Classic Fileman Calls,  GET1^DIQ
^IBE(351.3 - [#351.3] GETS^DIQ

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, CLADDQ, CLOCK+2, CLDATA+1, CLUPD+5*, CLUPD+8, CLUPD+13
^IBE(351.3 - [#351.3] SYNC+5

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
SYNC CLOCK+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EVADD+9, CLUPD+5
DA EVADD+10*, EVADDQ!, EVUPD+3*!, CLADD+6*, CLADD+7!, CLOCKCL+7*, CLOCKCL+8!, CLUPD+6*!
DD CLADD+4!, CLADDQ!
>> DFN EVFIND+4, CLADD+6, CLADD+10, CLOCK+2, CLOCKCL+3, CLUPD+8, CLUPD+9, CLUPD+13
>> DGPMA SYNC+2
DIC CLADD+4!*, CLADDQ!
DIC(0 CLADD+4*
DIE EVUPD+3*!, CLADD+6*, CLADD+7!, CLOCKCL+7*, CLOCKCL+8!
DIK EVADD+10*, EVADDQ!, CLUPD+6*!
DINUM CLADD+5*, CLADDQ!
>> DIR("?" SYNC+15*
>> DIR("A" SYNC+14*
>> DIR("B" SYNC+15*
>> DIR(0 SYNC+14*
>> 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+5
IB351IEN CLADD+6*, CLUPD+1~, CLUPD+8*
>> 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+5, CLUPD+6, CLUPD+8
, CLUPD+9, CLUPD+13, SYNC+4, SYNC+5, SYNC+16*
>> IBCLDAY CLDATA+1*, CLDATA+2, CLOCKCL+6, CLUPD+5
>> IBCLDOL CLDATA+2*, CLOCKCL+6, CLUPD+5
>> IBCLDT DED+5, CLADD+6, CLDATA+1*, CLOCKCL+4
IBCLENDT CLOCKCL+3~, CLOCKCL+4*, CLOCKCL+5*, CLOCKCL+7
IBCLKST CLUPD+1~, CLUPD+8*
IBD EVFIND+3~*, EVFIND+4
IBDESC EVADD+4~, EVADD+7*, EVADD+8
IBDR EVCLOSE+1~*, EVUPD+2
>> IBDT EVCLOS1+1
IBECARY SYNC+1~
IBECARY( SYNC+9*, SYNC+13
IBECENT SYNC+1~, SYNC+7*, SYNC+8
IBECERR SYNC+1~
IBECREF SYNC+1~, SYNC+5*
IBECREFS SYNC+1~, SYNC+5*, SYNC+6
IBECSITE SYNC+1~, SYNC+8*, SYNC+9
IBECTFL SYNC+1~
IBECTFL( SYNC+7, SYNC+8
IBECVERN SYNC+1~, SYNC+8*, SYNC+9
>> 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+4, SYNC+3
>> IBNH EVADD+6
>> IBNHLTC EVADD+6
>> IBSERV DED+3, DED+4, EVADD+6
>> IBSITE CLADD+5
>> IBSL EVADD+8
>> IBSYNC SYNC+16*
IBVRNST SYNC+1~, SYNC+13*
IBVSRNUP CLUPD+1~, CLUPD+4*, CLUPD+9, CLUPD+13
>> IBY DED+3*, DED+4*, DED+6*, EVADD+3*, EVADD+6*, CLADD+2*, CLADD+3*, CLADD+11*, CLOCKCL+8*, SYNC+16*
J EVFIND+3~*, EVFIND+4*
K CLOCKCL+3~*, CLOCKCL+5
U CLUPD+8, CLUPD+13
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, SYNC+16
ZTDESC CLUPD+1~, CLUPD+9*
ZTDTH CLUPD+1~, CLUPD+10*
ZTIO CLUPD+1~, CLUPD+10*
ZTREQ CLUPD+1~
ZTRTN CLUPD+1~, CLUPD+9*
ZTSAVE CLUPD+1~
ZTSAVE("*" CLUPD+9*
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