Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call