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

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
    Info |  Source |  Entry Points