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 |  Marked Items  | All
Print Page as PDF
Routine: IBAECU

Package: Integrated Billing

Routine: IBAECU


Information

IBAECU ;ALB/BGA - LTC UTILITIES DETERMINE LTC ELIG ; 25-SEPT-01

Source Information

Source file <IBAECU.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 6 ^IBAECU1  $$GETEXPDT^IBAECU4  SITE^IBAUTL  COST^IBAUTL2  DIQ407^IBEMTSCU  SCAN^IBSDU  
VA FileMan 3 C^%DTC  FILE^DICN  ^DIE  
Registration 2 $$GET^DGENCDA  DEM^VADPT  
Enrollment Application System 1 $$COPAY^EASECCAL  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Integrated Billing 18 IBAECC  IBAECI  IBAECM1  IBAECM2  IBAECM3  IBAECN1  IBAECO  IBAECP1  
IBAECU2  IBAECU3  IBAECU4  IBAECU5  IBAMTC2  IBAMTS  IBAUTL4  IBECEA3  
IBECEAU2  IBOVOP1  
Enrollment Application System 2 EASECCAL  EASECPC  

Entry Points

Name Comments DBIA/ICR reference
LTCST(DFN,IBDT,LOS) ; returns LTC status from API
; input: Patient's DFN, Date of Care, Length of stay
MAXRATE(IBDT) ; returns the max rates for the effective date
; the rates retuned are the max daily rates for any and all LTC
; copayments. The return is: outpatient^inpatient
  • ICR #3717
    • Status: Active
    • Usage: Private
    FACSPEC(IBSPEC) ; returns the treating specialty for 42.4 from a facility sp
    LTCSPEC(IBSPEC)
    LTCSTOP(IB407)
    CLOCK(DFN,IBDATE) ; verfiy a clock exists, if not, one will be added
    YR(IBRTED,IBFR) ; is the effective date of the clock too old?
    ; Input: IBRTED -- Effective Date
    ; IBFR -- Event Date
    ; Output: 1 -- Effective Date is too old
    ; 0 -- Not
    ADDCL(DFN,IBADT) ; adds a LTC clock, returns LTC Clock IEN
    ; needs DFN and IBADT (clock begin date)
    ADDCLQ
    LTCENC(DFN,DATE) ; Did the patient have LTC on a specified date?
    ; Input: DFN -- Pointer to the patient in file #2
    ; DATE -- Date of the Outpatient Visit
    ; Output: 0 -- Patient did not have a LTC on the visit date
    ; 1 -- Patient had a LTC on the visit date
    LTCENCQ
    XMBACK(DFN,IBM) ; send a message saying LTC processing has stoped for an event
    XMNOEC(DFN,IBDT,IBE) ; send a message saying no 1010EC on file for LTC pt.
    ; IBE is optional additional text
    XMDEM(DFN,IBT,IBL) ; Sets basic demographics in text
    LASTDT(X) ; compute the last day of the month in X
    TOT ; calculates the total charged for a patient (for the month)
    ; requires IBFR, IBLTCST, DFN
    ; returns IBT (total amount already billed), IBTYP (inpt or opt)
    LASTMJ() ; function to return when the Monthly Job was last run or 0
    CDEXMPT(DFN,IBDT) ; determine if the patient is exempt from non-institutional
    ; ltc charges because of Catastrophically Disabled status
    ; 0 - not exempt from LTC, 1 - exempt from LTC
    LTCCHK(IBAT) ; Check to see if the action type is an LTC Action Type
    ; Input: IBZ - Action type data from IBE(350.1,,0)

    External References

    Name Field # of Occurrence
    C^%DTC LASTDT+7
    $$GET^DGENCDA CDEXMPT+4
    FILE^DICN ADDCL+9
    ^DIE CLOCK+14, ADDCL+10
    $$COPAY^EASECCAL LTCST+5
    ^IBAECU1 MAXRATE+11, MAXRATE+12, LTCSPEC+10, LTCSTOP+16
    $$GETEXPDT^IBAECU4 ADDCL+7
    SITE^IBAUTL ADDCL+6
    COST^IBAUTL2 MAXRATE+11, MAXRATE+12
    DIQ407^IBEMTSCU LTCSTOP+12
    SCAN^IBSDU LTCENC+13
    DEM^VADPT XMDEM+4
    $$FMDIFF^XLFDT YR+6
    $$FMTE^XLFDT XMNOEC+13
    ^XMD XMBACK+10, XMNOEC+21

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(351.81 - [#351.81] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(45.7 - [#45.7] FACSPEC+2
    ^IB - [#350] TOT+8, TOT+16
    ^IB("AFDT" TOT+8
    ^IBA(351.81 - [#351.81] CLOCK+5, CLOCK+7, CLOCK+8, CLOCK+13, ADDCL+4, ADDCL+5, ADDCL+9, ADDCL+11
    ^IBE(350.1 - [#350.1] MAXRATE+11, MAXRATE+12, TOT+14, TOT+17, LTCCHK+4
    ^IBE(350.21 - [#350.21] TOT+11
    ^IBE(350.9 - [#350.9] LASTMJ+2
    ^TMP("DIERR" LTCENC+13!
    ^XTMP("IB1010EC" XMNOEC+6, XMNOEC+7*

    Label References

    Name Line Occurrences
    $$ADDCL CLOCK+16
    $$LASTDT LTCST+5
    $$LTCCHK TOT+8
    ADDCLQ ADDCL+4, ADDCL+5
    LTCENCQ LTCENC+6
    XMDEM XMBACK+4, XMNOEC+9

    Naked Globals

    Name Field # of Occurrence
    ^(0 ADDCL+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT ADDCL+3~
    DA CLOCK+1~, CLOCK+14*, CLOCK+16*, ADDCL+3~, ADDCL+10*
    DATE LTCENC~, LTCENC+6, LTCENC+8
    DD ADDCL+3~
    DFN LTCST~, LTCST+5, CLOCK~, CLOCK+5, CLOCK+7, CLOCK+16, ADDCL~, ADDCL+10, LTCENC~, LTCENC+6
    , LTCENC+8, XMBACK~, XMBACK+4, XMNOEC~, XMNOEC+6, XMNOEC+7, XMNOEC+9, XMDEM~, TOT+8, CDEXMPT~
    , CDEXMPT+4
    DIC ADDCL+3~, ADDCL+8*
    DIC(0 ADDCL+8*
    DIE CLOCK+1~, CLOCK+14*, CLOCK+16*, ADDCL+3~, ADDCL+10*
    DINUM ADDCL+3~, ADDCL+9*
    DLAYGO ADDCL+3~, ADDCL+8*
    DO ADDCL+3~
    DR CLOCK+1~, CLOCK+14*, CLOCK+16*, ADDCL+3~, ADDCL+10*
    DUZ ADDCL+10
    IB407 LTCSTOP~, LTCSTOP+12, LTCSTOP+13
    IBADT ADDCL~, ADDCL+7, ADDCL+10
    IBAEXDT ADDCL+7~*, ADDCL+10
    IBAT TOT+4~, TOT+8*, TOT+17, LTCCHK~, LTCCHK+3, LTCCHK+4
    IBATDT LTCCHK+2~, LTCCHK+4*, LTCCHK+5
    IBATYP MAXRATE+4~, MAXRATE+11*, MAXRATE+12*
    IBBG LTCCHK+2~, LTCCHK+5*, LTCCHK+6, LTCCHK+7
    IBCBK LTCENC+5~, LTCENC+11*, LTCENC+13
    IBCHG MAXRATE+4~, MAXRATE+11, MAXRATE+12
    IBCL CLOCK+1~, CLOCK+6*, CLOCK+7*, CLOCK+8, CLOCK+9
    IBDATE CLOCK~, CLOCK+16
    IBDG CDEXMPT+3~, CDEXMPT+4*
    IBDG("DATE" CDEXMPT+6
    IBDG("VCD" CDEXMPT+5
    IBDT LTCST~, LTCST+5, MAXRATE~, MAXRATE+9*, XMNOEC~, XMNOEC+13, TOT+4~, TOT+8*, CDEXMPT~, CDEXMPT+6
    IBE XMNOEC~, XMNOEC+19
    IBE( XMNOEC+19
    IBFAC ADDCL+3~
    IBFILTER LTCENC+5~, LTCENC+10*, LTCENC+13
    IBFLG CLOCK+1~, CLOCK+4*, CLOCK+5, CLOCK+7, CLOCK+9*, CLOCK+12, CLOCK+13, CLOCK+14
    IBFR YR~, YR+6, TOT+8
    IBL MAXRATE+4~, MAXRATE+11*, MAXRATE+12*, XMBACK+2~, XMBACK+4, XMBACK+8*, XMNOEC+3~, XMNOEC+9, XMNOEC+13*, XMNOEC+14*
    , XMNOEC+15*, XMNOEC+16*, XMNOEC+17*, XMNOEC+18*, XMNOEC+19*, XMDEM~, XMDEM+9*
    IBLSTDT LASTMJ+1~, LASTMJ+2*, LASTMJ+3
    IBLTC LTCENC+5~, LTCENC+12*, LTCENC+14
    IBM XMBACK~
    IBM( XMBACK+8
    IBN ADDCL+3~, ADDCL+10*, ADDCLQ
    IBN1 ADDCL+3~, ADDCL+9*, ADDCL+11
    IBNUM YR+5~, YR+6*, YR+7
    IBR MAXRATE+4~, MAXRATE+6*, MAXRATE+11*, MAXRATE+12*, MAXRATE+13
    IBRTED YR~, YR+6
    IBSCDATA LTCSTOP+9~
    IBSCDATA( LTCSTOP+13
    IBSITE ADDCL+3~, ADDCL+9
    IBSPEC FACSPEC~, FACSPEC+2, LTCSPEC~
    IBSTOP LTCSTOP+9~, LTCSTOP+16*, LTCSTOP+18
    IBT MAXRATE+4~, MAXRATE+11*, MAXRATE+12*, XMBACK+2~, XMBACK+4, XMNOEC+3~, XMNOEC+9, XMDEM~, TOT+5*, TOT+16*
    IBT( XMBACK+8*, XMNOEC+13*, XMNOEC+14*, XMNOEC+15*, XMNOEC+16*, XMNOEC+17*, XMNOEC+18*, XMNOEC+19*
    IBT(1 XMDEM+6*
    IBT(2 XMDEM+8*
    IBT(3 XMDEM+7*
    IBT(4 XMDEM+8*
    IBTS LTCSPEC+7~, LTCSPEC+10*, LTCSPEC+12
    >> IBTYP TOT+5*, TOT+17*
    IBVAL LTCENC+5~, LTCENC+13
    IBVAL("BDT" LTCENC+8*
    IBVAL("DFN" LTCENC+8*
    IBVAL("EDT" LTCENC+8*
    IBX CLOCK+1~, CLOCK+4*, CLOCK+5*, CLOCK+7, XMBACK+2~, XMBACK+8*, TOT+4~, TOT+8*, TOT+16
    IBYR YR+5~, YR+6*, YR+7
    IBZ TOT+4~, TOT+8*, TOT+11, TOT+14
    LOS LTCST~, LTCST+5
    U TOT+17, LTCCHK+5
    VA XMDEM+2~
    VADM XMDEM+2~
    VADM(1 XMDEM+6
    VADM(2 XMDEM+7
    VAERR XMDEM+2~
    X CLOCK+1~, ADDCL+3~, ADDCL+5*, ADDCL+9*, LTCENC+5~, XMNOEC+3~, XMNOEC+19*, LASTDT~, LASTDT+2, LASTDT+3
    , LASTDT+5, LASTDT+8
    X1 LASTDT+1~, LASTDT+5*
    X2 LASTDT+1~, LASTDT+6*
    XM LASTDT+1~, LASTDT+3*, LASTDT+4*, LASTDT+5
    XMDUZ XMBACK+2~, XMBACK+6*, XMNOEC+3~, XMNOEC+11*
    XMMG XMBACK+2~, XMNOEC+3~
    XMSUB XMBACK+2~, XMBACK+6*, XMNOEC+3~, XMNOEC+11*
    XMTEXT XMBACK+2~, XMBACK+6*, XMNOEC+3~, XMNOEC+11*
    XMY XMBACK+2~, XMNOEC+3~
    XMY("G.IB LTC 1010EC MISSING" , XMNOEC+11*,  BACK BILLING" , XMBACK+6*
    XMZ XMBACK+2~, XMNOEC+3~
    Y CLOCK+1~, CLOCK+17, ADDCL+3~, ADDCL+4*, ADDCL+5*, ADDCL+9, ADDCL+10, ADDCL+12*, ADDCLQ, LTCENC+5~
    , LTCENC+14*, LTCENCQ
    Y0 LTCENC+5~

    Marked Items

    Name Field # of Occurrence
    $T(@(3)^IBAECU1 LTCSPEC+10
    $T(@(6)^IBAECU1 LTCSTOP+16
    $T(SPEC+IBL^IBAECU1 MAXRATE+12
    $T(STOP+IBL^IBAECU1 MAXRATE+11
    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 |  Marked Items  | All