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

Package: Integrated Billing

Routine: IBARXEU0


Information

IBARXEU0 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE ; 2-NOV-92

Source Information

Source file <IBARXEU0.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Integrated Billing 3 ($$STDATE,$$VFAOK)^IBARXEU  $$STATUS^IBARXEU1  (ADDEX,ADDP)^IBAUTL6  

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

Package Total Caller Graph
Integrated Billing 25 IB20P385  IBAERR2  IBAMTED1  IBAMTED2  IBARX  IBARXEB  IBARXEC3  IBARXEI  
IBARXEL  IBARXEL1  IBARXEPL  IBARXET  IBARXEU  IBARXEU1  IBARXEU3  IBARXEU4  
IBARXEU5  IBARXEVT  IBARXEX  IBARXEX1  IBARXMB  IBAUTL6  IBAUTL7  IBNCPNB  
^IBE(350.1  

Entry Points

Name Comments DBIA/ICR reference
RXEXMT(DFN,IBDT) ; -- Check income exemption status of patient
; -- Warning, this function may cause new entries to be created
; when no data exists of new entry for current caledar year exists.
RXEXMTQ ;I $D(XRT0),$D(XRTN) D T1^%ZOSV
AEX(DFN,IBDT) ; -- add exemption
; set exemption effective date to means test dates
IBX(DFN,IBDT) ; -- format output from current status
IBXOLD(DFN,IBDT) ; -- format output from old exemption
ON() ; -- is copay exemption testing on
; output 1 = exemption testing is active
; 0 = exemption testing is inactive (everybody non-exempt)
; -1 = copay is off (everybody exempt)
  • ICR #5389
    • Status: Withdrawn
    • Usage: Controlled Subscription
    PLUS(X1) ; -- computes plus 1 year (into future)
    ; if x1=2920930 + 1 year = +10000 = 2930930
    MINUS(X1) ; -- computes minus 1 year (into past)
    ACODE(Y) ; -- return lookup code of reason, input zeroth node of exemption
    REASON(Y) ; -- return reason description, input zeroth node of exemption
    TEXT(X) ; -- convert 0 or 1 to text
    LST(DFN,IBDT) ; -- returns last exemption entry before date x
    LSTAC(DFN) ; -- computes last reason code and date for a patient
    ; -- returns exemption reason ^ exemption date

    External References

    Name Field # of Occurrence
    $$STDATE^IBARXEU RXEXMT+22
    $$VFAOK^IBARXEU RXEXMT+36, RXEXMT+53
    $$STATUS^IBARXEU1 AEX+4
    ADDEX^IBAUTL6 AEX+5
    ADDP^IBAUTL6 RXEXMT+30

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^IBA(354 - [#354] RXEXMT+24, RXEXMT+30, IBX+2
    ^IBA(354.1 - [#354.1] RXEXMT+45, LST+5, LSTAC+3
    ^IBE(354.2 - [#354.2] IBXOLD+3, ACODE+1, REASON+1, LSTAC+4

    Label References

    Name Line Occurrences
    $$ACODE IBX+3, IBXOLD+4
    $$IBX RXEXMT+27, RXEXMT+30, RXEXMT+36, RXEXMT+39, RXEXMT+53
    $$IBXOLD RXEXMT+59
    $$LST RXEXMT+36, IBX+2, IBXOLD+2
    $$ON RXEXMT+15
    $$PLUS RXEXMT+27, RXEXMT+33, RXEXMT+50
    $$REASON IBX+3, IBXOLD+4
    $$TEXT IBX+3, IBXOLD+4
    AEX RXEXMT+30, RXEXMT+39, RXEXMT+47, RXEXMT+56
    RXEXMTQ RXEXMT+22, RXEXMT+27, RXEXMT+30, RXEXMT+33

    Naked Globals

    Name Field # of Occurrence
    ^( RXEXMT+45, LST+5, LSTAC+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA RXEXMT+13~
    DFN RXEXMT~, RXEXMT+24, RXEXMT+27, RXEXMT+30, RXEXMT+36, RXEXMT+39, RXEXMT+45, RXEXMT+47, RXEXMT+53, RXEXMT+56
    , RXEXMT+59, AEX~, AEX+4, IBX~, IBX+2, IBXOLD~, IBXOLD+2, LST~, LST+5, LSTAC~
    , LSTAC+3
    DIC RXEXMT+13~
    DIE RXEXMT+13~
    DR RXEXMT+13~
    DT RXEXMT+18, RXEXMT+19, LST+4, LSTAC+3
    IBDT RXEXMT~, RXEXMT+18*, RXEXMT+19*, RXEXMT+22, RXEXMT+27, RXEXMT+30, RXEXMT+33, RXEXMT+36, RXEXMT+39, RXEXMT+42
    , RXEXMT+45, RXEXMT+47, RXEXMT+50, RXEXMT+53, RXEXMT+56, RXEXMT+59, AEX~, AEX+4, IBX~, IBX+2
    , IBXOLD~, IBXOLD+2, LST~, LST+4*, LST+5
    IBEXERR RXEXMT+13~, RXEXMT+17*, RXEXMT+30
    IBJOB RXEXMT+13~, RXEXMT+17*
    IBON RXEXMT+13~, RXEXMT+15*
    IBOUT RXEXMT+13~, RXEXMT+17*, RXEXMT+50, RXEXMT+53*
    IBWHER RXEXMT+13~
    IBX RXEXMT+13~, RXEXMT+17*, RXEXMT+22*, RXEXMT+27*, RXEXMT+30*, RXEXMT+36*, RXEXMT+39*, RXEXMT+53*, RXEXMT+59*, RXEXMTQ+2
    X RXEXMT+13~, RXEXMT+24*, RXEXMT+27, RXEXMT+30*, RXEXMT+33, RXEXMT+42, AEX+3~, AEX+4*, AEX+5, IBX+1~
    , IBX+2*, IBX+3, IBXOLD+1~, IBXOLD+3*, IBXOLD+4, TEXT~, TEXT+1
    X1 PLUS~, PLUS+2, PLUS+3, MINUS~, MINUS+1, LSTAC+2~, LSTAC+3*, LSTAC+4
    Y RXEXMT+13~, RXEXMT+45*, RXEXMT+47, RXEXMT+50, RXEXMT+53, IBX+1~, IBX+2*, IBX+3, IBXOLD+1~, IBXOLD+2*
    , IBXOLD+3, IBXOLD+4, ACODE~, ACODE+1, REASON~, REASON+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All