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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBAMTS2

Package: Integrated Billing

Routine: IBAMTS2


Information

IBAMTS2 ;ALB/CPM - PROCESS UPDATED OUTPATIENT ENCOUNTERS ; 25-AUG-93

Source Information

Source file <IBAMTS2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 3 ($$CHKS,BLD,CLSF,NEW)^IBAMTS1  CANCH^IBECEAU4  ($$DISND,SCAN)^IBSDU  
Registration 1 $$BIL^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: 10

Package Total Caller Graph
Integrated Billing 10 IBAMTEDU  IBAMTS  IBAMTS1  IBJDB21  IBJDI7  IBOVOP2  IBTRED  IBTRKR41  
IBTUBO1  IBTUTL5  

Entry Points

Name Comments DBIA/ICR reference
UPD ; Perform encounter update actions.
UPDQ
BEDIT(IBOEN,IBEVT) ; - perform batch edit
CRES ; List of cancellation reasons
LINK(IBOE,IBEVT,IBN) ; Was the billed charge for the current appointment?
; Input: IBOE -- Pointer to outpatient encounter in file #409.68
; IBEVT -- Zeroth node of encounter in file #409.68
; IBN -- Pointer to charge in file #350
; Output: 0 -- Charge was not for current appointment
; 1 -- Charge was for current appointment
LINKQ
CLUPD() ; Examine changes in the classification.
; Output: 0 -- no changes
; 1 -- changes require charges to be cancelled
; 2 -- changes require appt to be billed
; 3 -- [ec/swa] cancel charge, create deferred charge
; 4 -- [ec/swa] pass deferred charge, disposition case
CLUPDQ
CANC ; Determine cancellation reason and cancel charge
; Input variables: IBCRES -- Code for reason to be determined
; IBBILLED -- Charge to be cancelled
ENCL(IBOE) ; Return classification results for an encounter.
; Input: IBOE -- Pointer to outpatient encounter in file #409.68
; Output: ao^ir^sc^swa^mst^hnc^cv^shad, where, for each piece,
; 1 - care was related to condition, and
; 0 (or null) - care not related to condition

External References

Name Field # of Occurrence
$$BIL^DGMTUB UPD+18
$$CHKS^IBAMTS1 BEDIT+4
BLD^IBAMTS1 BEDIT+12
CLSF^IBAMTS1 UPD+7
NEW^IBAMTS1 UPD+9
CANCH^IBECEAU4 CANC+4
$$DISND^IBSDU BEDIT+3
SCAN^IBSDU UPD+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] LINK+8
^IBE(350.3 - [#350.3] CANC+3
^SDD(409.42 - [#409.42] ENCL+6
^TMP("DIERR" UPD+26!

Label References

Name Line Occurrences
$$CLUPD UPD+7
$$ENCL BEDIT+7
$$LINK UPD+14
CANC UPD+15
CLUPDQ CLUPD+7, CLUPD+8
LINKQ LINK+7, LINK+9
UPDQ UPD+7, UPD+13, UPD+14, UPD+15, UPD+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CL ENCL+5~, ENCL+6*
CLD ENCL+5~, ENCL+6*
>> DFN UPD+18, UPD+21
I CLUPD+6~, CLUPD+8*, CLUPD+9*
IBACT UPD+7*, UPD+8, UPD+9, UPDQ!
>> IBAPTY BEDIT+2*
>> IBAST UPD+4, UPD+7
>> IBBILLED UPD+14, UPD+19*, BEDIT+12*, CANC+4
>> IBBST UPD+4, UPD+7
IBC UPDQ!
IBCBK UPD+1~, UPD+25*, UPD+26
IBCLSF UPD+7, UPD+9~, UPDQ!, BEDIT+7*, BEDIT+8
IBCLSF("AFTER" CLUPD+7, CLUPD+8, CLUPD+9
IBCLSF("BEFORE" CLUPD+7, CLUPD+8, CLUPD+9
>> IBCRES UPD+4*, UPD+8*, UPD+13, CANC+3*, CANC+4
>> IBDAT UPD+21
>> IBDISP BEDIT+3*
>> IBDT UPD+18
>> IBEV0 UPD+14
IBEVT UPD+14, UPDQ!, BEDIT~, BEDIT+1, BEDIT+2, BEDIT+3, LINK~, LINK+7, LINK+9
IBFILTER UPD+1~, UPD+22*, UPD+26
IBN LINK~, LINK+7, LINK+8
IBOE UPD+14, LINK~, LINK+7, LINK+10, ENCL~, ENCL+6
IBOEN UPDQ!, BEDIT~, BEDIT+3, BEDIT+7, BEDIT+9
>> IBORG BEDIT+2*, BEDIT+3
IBSL BEDIT+9*, LINK+6~, LINK+8*, LINK+9, LINK+10
IBVAL UPD+1~, UPD+26
IBVAL("BDT" UPD+21*
IBVAL("DFN" UPD+21*
IBVAL("EDT" UPD+21*
>> IBY UPD+15
U BEDIT+1, BEDIT+2, CLUPD+8, CLUPD+9, ENCL+6
>> UNBILLED BEDIT+1*
X ENCL+5~
Y LINK+6~, LINK+9*, LINK+10*, LINKQ, CLUPD+6~*, CLUPD+8*, CLUPD+9*, CLUPDQ, ENCL+5~*, ENCL+6*
, ENCL+7

Marked Items

Name Field # of Occurrence
$T(CRES+IBCRES CANC+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All