IBARXEU0 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE ; 2-NOV-92
Source file <IBARXEU0.m>
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) |
|
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 |