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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBAMTS1

Package: Integrated Billing

Routine: IBAMTS1


Information

IBAMTS1 ;ALB/CPM - PROCESS NEW OUTPATIENT ENCOUNTERS ; 22-JUL-93

Source Information

Source file <IBAMTS1.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 10 ^IBAERR1  ^IBAFIL  BULL^IBAMTS  CANC^IBAMTS2  $$CHKHRFS^IBAMTS3  TYPE^IBAUTL2  CLADD^IBAUTL3  ADD^IBECEAU3  
($$IGN,$$NBCL,$$NBCSC,$$NBDIS)^IBEFUNC  $$GETSC^IBEMTSCU  
Registration 2 $$BIL^DGMTUB  ADM^VADPT2  
Scheduling 2 CL^SDCO21  $$EXOE^SDCOU2  
Kernel 1 $$FMDIFF^XLFDT  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Integrated Billing 9 IBAMTEDU  IBAMTS  IBAMTS2  IBECEAU5  IBEMTO  IBJDB21  IBJDI11  IBTUBO1  
IBTUTL5  

Entry Points

Name Comments DBIA/ICR reference
NEW ; Appointment fully processed - prepare a new charge.
BLD ; - build the charge. May also enter from IBAMTS2 (requires IBSL)
CLOCK
NEWQ
CHKS() ; Perform a batch of edits to determine whether to bill.
; Input variables required: IBEVT -- encounter
; IBAPTY -- appt type
; IBDAT -- appt date
; IBDT -- appt date/time
; IBORG -- originating process
; IBDISP -- disposition (if registration)
IBFLR ; Drop the charge into the IB Background filer.
CLPT(DFN,VDATE) ; Should the patient be asked the classification questions?
; Input: DFN -- Pointer to the patient in file #2
; VDATE -- Visit date
INPT(DFN,VAINDT) ; Was the patient an inpatient at VAINDT?
; Input: DFN -- Pointer to the patient in file #2
; VAINDT -- Date/time to check for inpatient status
; Output: 1 - inpatient | 0 - not an inpatient
CLSF(IBUPD,Y) ; Examine classification questions.
; Input: IBUPD -- 0 if event just checked out
; 1 if event is being updated
; Y -- array to place output
; Output: indicators returned as ao^ir^sc^swa^mst^hnc^cv^shad [1|yes, 0|no]
; if IBUPD=0, Y is returned as a single string
; if IBUPD=1, Y("BEFORE"),Y("AFTER") are defined.
OLDRATE(IBRTED,IBFR) ; See if the copay rate effective date is too old.
; Input: IBRTED -- Charge Effective Date
; IBFR -- Visit Date
; Output: 1 -- Effective Date is too old
; 0 -- Not
CHKPRIM ; check to see if patient has been billed for primary
; and this is a specialty stop. if so, cancel the primary
; bill and let the software create the new specialty charge
; input ibbilled = last parent bill to check (ien 350)
; used to check the rate
; output ibbilled = last parent bill number to prevent
; adding specialty charge

External References

Name Field # of Occurrence
NOW^%DTC IBFLR+2
$$BIL^DGMTUB NEW+14
^IBAERR1 NEWQ
^IBAFIL IBFLR+4
BULL^IBAMTS BLD+17
CANC^IBAMTS2 CHKPRIM+28
$$CHKHRFS^IBAMTS3 NEW+24
TYPE^IBAUTL2 BLD+12
CLADD^IBAUTL3 CLOCK
ADD^IBECEAU3 BLD+14
$$IGN^IBEFUNC CHKS+18, CHKS+34
$$NBCL^IBEFUNC CHKS+21
$$NBCSC^IBEFUNC CHKS+22
$$NBDIS^IBEFUNC CHKS+23
$$GETSC^IBEMTSCU BLD+6, CHKPRIM+10
CL^SDCO21 CLPT+3
$$EXOE^SDCOU2 BLD+17
ADM^VADPT2 INPT+4
$$FMDIFF^XLFDT OLDRATE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] CHKPRIM+19, CHKPRIM+23, CHKPRIM+26
^IBE(350.1 - [#350.1] IBFLR+3
^IBE(351 - [#351] CLOCK
^IBE(352.5 - [#352.5] BLD+9, CHKPRIM+13, CHKPRIM+19
^SC - [#44] CHKS+15, CHKS+37
^TMP("SDEVT" NEW+9, NEW+11, CLSF+8

Label References

Name Line Occurrences
$$CHKS NEW+17
$$CLPT BLD+17
$$INPT CHKS+26, CHKS+40
CHKPRIM NEW+5
CLSF NEW+20
IBFLR BLD+24
NEWQ NEW+5, NEW+8, NEW+14, NEW+17, NEW+21, NEW+24, BLD+12, BLD+14, BLD+24

Naked Globals

Name Field # of Occurrence
^( CLSF+8
^("AFTER" CLSF+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BLD+5~, BLD+6*, IBFLR+2, CHKPRIM+7~
DFN NEW+14, NEW+24, BLD+17, CLOCK, CHKS+26, CHKS+40, CLPT~, CLPT+3, INPT~
DT CHKS+26, CHKS+40
IBAFY IBFLR+1~
>> IBAPTY CHKS+18, CHKS+34
IBARR CLPT+3~, CLPT+4
IBARTYP IBFLR+1~
IBATYP NEWQ+2!, IBFLR+3
>> IBBILLED NEW+5, CHKPRIM+19, CHKPRIM+23, CHKPRIM+26, CHKPRIM+31*
IBBS NEWQ+1!
IBCHG NEWQ+2!
IBCLDA NEWQ+1!
IBCLDT CLOCK*, NEWQ+1!
IBCLSF NEW+20, NEW+21, NEWQ+1!
IBCRES CHKPRIM+7~, CHKPRIM+23*
>> IBDAT NEW+5, NEW+12*, NEW+24, BLD+6, BLD+13, BLD+17, CLOCK, CHKS+13, CHKS+18, CHKS+26
, CHKS+34, CHKS+40, CHKPRIM+10
IBDESC NEWQ+2!
IBDISP NEW+8, NEW+9*, NEW+10, NEWQ+1!, CHKS+23
>> IBDT NEW+12*, NEW+14, CHKS+21, CHKS+22, CHKS+23
IBEVDA BLD+13*, NEWQ+2!
>> IBEVT CHKS+15, CHKS+21, CHKS+22, CHKS+37
IBFAC IBFLR+1~
IBFR BLD+13*, NEWQ+2!, OLDRATE~, OLDRATE+7
IBI CHKPRIM+7~, CHKPRIM+26*
IBIL IBFLR+1~
IBMED NEWQ+1!
IBN NEWQ+1!, IBFLR+2
IBNOS IBFLR+1~, IBFLR+2*
IBNOW IBFLR+1~, IBFLR+2*
IBNUM OLDRATE+6~, OLDRATE+7*, OLDRATE+8
>> IBOE NEW+26, BLD+17, CLSF+8, CHKPRIM+10
>> IBOEN BLD+17
>> IBORG NEW+8, NEW+9, NEW+11, CHKS+21, CHKS+22, CHKS+23, CLSF+8
IBRESULT CHKS+7~, CHKS+10*, CHKS+13, CHKS+29*
IBRTED OLDRATE~, OLDRATE+7
IBS CHKPRIM+7~, CHKPRIM+23*, CHKPRIM+26*
IBSEQNO IBFLR+1~, IBFLR+3*
IBSERV IBFLR+1~
IBSITE IBFLR+1~
IBSL NEW+26*, BLD+6, NEWQ+2!
IBSTOPDA BLD+5~, BLD+6*, BLD+9, CHKPRIM+7~, CHKPRIM+10*, CHKPRIM+13
IBTEMP NEW+11*, NEW+12, NEWQ+1!
IBTO BLD+13*, NEWQ+2!
IBTOTL IBFLR+1~
IBTRAN IBFLR+1~
IBTYPE BLD+5~, BLD+9*, BLD+11*, CHKPRIM+7~, CHKPRIM+13*, CHKPRIM+16
IBUNIT BLD+13*, NEWQ+2!
IBUPD CLSF~, CLSF+7, CLSF+9
IBWHER IBFLR+1~
IBX BLD+12*, NEWQ+2!
>> IBY BLD+12, BLD+14, BLD+24, NEWQIBFLR+3*, IBFLR+4
IBYR OLDRATE+6~, OLDRATE+7*, OLDRATE+8
>> SDHDL NEW+9, NEW+11, CLSF+8
VADMVT INPT+4~, INPT+5
VAINDT INPT~
VDATE CLPT~, CLPT+3
X CLSF+7~, CLSF+8*
Y CLSF~, CLSF+7*, CLSF+9*
Y("AFTER" CLSF+7*, CLSF+10*
Y("BEFORE" CLSF+7*, CLSF+10*
ZA CLSF+7~, CLSF+8*, CLSF+9, CLSF+10
ZB CLSF+7~, CLSF+8*, CLSF+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All