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

Package: Integrated Billing

Routine: IBARXEU


Information

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

Source Information

Source file <IBARXEU.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Integrated Billing 1 ($$ACODE,$$IBX,$$LST,$$MINUS,$$ON,$$PLUS,$$REASON,$$TEXT)^IBARXEU0  
Registration 1 $$LST^DGMTCOU1  
VA FileMan 1 ($$GET1,DT)^DIQ  

Caller Graph

Caller Graph Total: 52

Package Total Caller Graph
Integrated Billing 22 IB20P336  IB20P385  IBAERR3  IBAMTED1  IBAMTED2  IBARXEC  IBARXEC1  IBARXEC3  
IBARXEL  IBARXEL1  IBARXEPL  IBARXEU0  IBARXEU1  IBARXEU3  IBARXEU4  IBARXEX  
IBAUTL6  IBECEA3  IBFBWL2  IBJDF41  IBOLK  IBTRKR3  
Outpatient Pharmacy 7 PSOCPBAK  PSOCPBK1  PSOCPBK4  PSOCPF1  PSOCPIB3  PSOFIXIB  PSOPOST4  
Accounts Receivable 6 PRCAAPR1  RCDPAPLM  RCDPEAA2  RCDPEWL1  RCDPURED  RCYDD1  
Enrollment Application System 6 EASCM  EASPREC6  EASPREC7  EASUM1  EASUM6  EASUM8  
Income Verification Match 3 IVMCM  IVMUM1  IVMUM6  
Order Entry Results Reporting 3 ORBCMA32  ORCDPS  ORWDPS33  
Registration 3 DGMTCOU  DGRPD  VAFHLZPD  
Fee Basis 1 FBPCR  
VA Point of Service 1 VPSRPC26  

Entry Points

Name Comments DBIA/ICR reference
RXST(DFN,IBDT) ; -- Check rx income exemption status of patient
  • ICR #1194
    • Status: Retired
    • Usage: Private
  • ICR #10147
    • Status: Active
    • Usage: Supported
    RXSTQ
    DISP(DFN,IBDT,NO,NULL) ; -- formats text to display
    ; -- input = dfn
    ; ibdt = date to check for
    ; no = number of lines to print (1, 2, or 3)
    ; null = if zero print unknown, if non-zero quit
  • ICR #3791
    • Status: Pending
    • Usage: Controlled Subscription
  • ICR #10147
    • Status: Active
    • Usage: Supported
    DISPQ
    STDATE() ; -- legislative start date for income exemption
    ACTIVE(IBZ) ; -- SCREEN for active field of billing exemptions file
    ; only one entry per effective date can be active
    ACTIVEQ
    VFA() ; -- returns VFA (no longer asking for mt income info) start date
    ; less One year
    ; ICR #431
    VFAOK(X) ; - under VFA (veterans financial assestment) rules, MT no
    ; longer required if within one year of VFA start date, use last test.
    ; Pass in the zeroth node of the 354.1 exemption.
    ; Output = OK under VFA rules or not (1 or 0)

    External References

    Name Field # of Occurrence
    $$LST^DGMTCOU1 VFAOK+12
    $$GET1^DIQ VFA+4
    DT^DIQ DISP+15
    $$ACODE^IBARXEU0 RXST+35, RXST+37, RXST+55, RXST+65, RXST+67, VFAOK+8
    $$IBX^IBARXEU0 RXST+26
    $$LST^IBARXEU0 RXST+31, RXST+43
    $$MINUS^IBARXEU0 VFA+5
    $$ON^IBARXEU0 RXST+11, DISP+11
    $$PLUS^IBARXEU0 RXST+26, RXST+30, RXST+53, RXST+60
    $$REASON^IBARXEU0 RXST+35, RXST+37, RXST+55, RXST+65, RXST+67
    $$TEXT^IBARXEU0 RXST+35, RXST+37, RXST+55, RXST+65, RXST+67

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Medication Copayment Exemption Status: ",$P(X,U,2)
    • Line Location: DISP+13
    Function Call: WRITE
    • Prompt: !,$P(X,U,4)
    • Line Location: DISP+14
    Function Call: WRITE
    • Prompt: !,"Last Rx Copay Exemption date: "
    • Line Location: DISP+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DG(43 - [#43] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^IBA(354 - [#354] RXST+21, RXST+50
    ^IBA(354.1 - [#354.1] RXST+22, ACTIVE+7, ACTIVE+8
    ^IBE(354.2 - [#354.2] RXST+54, RXST+61

    Label References

    Name Line Occurrences
    $$RXST DISP+10
    $$STDATE RXST+18
    $$VFA VFAOK+16
    $$VFAOK RXST+35, RXST+65
    ACTIVEQ ACTIVE+6
    DISPQ DISP+12, DISP+13, DISP+14
    RXSTQ RXST+18, RXST+22, RXST+26, RXST+40

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA ACTIVE+7, ACTIVE+9
    DFN RXST~, RXST+21, RXST+22, RXST+26, RXST+31, RXST+43, RXST+50, DISP~, DISP+10
    DT RXST+14, RXST+15, DISP+6, DISP+8
    IBACODE VFAOK+5~, VFAOK+8*, VFAOK+9
    IBDT RXST~, RXST+14*, RXST+15*, RXST+18, RXST+26, RXST+30, RXST+31, RXST+40, RXST+43, RXST+53
    , RXST+60, DISP~, DISP+6*, DISP+8*, DISP+10, VFA+3~, VFA+4*, VFA+5*, VFA+6
    IBLST VFAOK+5~, VFAOK+12*, VFAOK+13
    IBON RXST+9~, RXST+11*, DISP+11*
    >> IBTALK ACTIVE+10
    IBX RXST+9~, RXST+13*, RXST+18*, RXST+22*, RXST+26*, RXST+35*, RXST+37*, RXST+47*, RXST+55*, RXST+65*
    , RXST+67*, RXSTQ, ACTIVE+3~, ACTIVE+7*, ACTIVE+8
    IBY ACTIVE+3~, ACTIVE+8*, ACTIVE+9
    IBZ ACTIVE~, ACTIVE+5*, ACTIVE+6
    NO DISP~, DISP+9*, DISP+13, DISP+14
    NULL DISP~, DISP+7*, DISP+12
    T ACTIVE+3~, ACTIVE+4*, ACTIVE+6*, ACTIVE+9*, ACTIVEQ
    U RXST+26, RXST+30, RXST+35, RXST+37, RXST+40, RXST+50, RXST+54, RXST+55, RXST+61, RXST+65
    , RXST+67, DISP+13, DISP+14, DISP+15, ACTIVE+8
    X RXST+9~, RXST+21*, RXST+22, RXST+26, RXST+30, RXST+35, RXST+37, RXST+40, RXST+54*, RXST+55
    , RXST+61*, RXST+65, RXST+67, DISP+10*, DISP+11*, DISP+12, DISP+13, DISP+14, DISP+15, VFAOK~
    , VFAOK+8, VFAOK+12, VFAOK+13, VFAOK+16
    Y RXST+9~, RXST+31*, RXST+35, RXST+37, RXST+43*, RXST+46, RXST+53, RXST+54, RXST+55, RXST+60
    , RXST+61, RXST+65, RXST+67, DISP+15*
    Z RXST+9~, RXST+50*
    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 |  Local Variables  | All