IBARXEU1 ;ALB/AAS - RX EXEMPTION UTILITY ROUTINE (CONT.);3/27/07 3:10pm ; 31 Jan 2019 3:51 PM
Source file <IBARXEU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STATUS(DFN,IBDT) | ; -- Determine medication copayment exemption status
; -- requests data from MAS |
|
| STATUSQ | ||
| AUTOST(DFN,IBDT) | ; -- Determine automatically exempt patients.
; input : dfn = patient file pointer ; ibdt = internal form of effective date |
|
| AUTOSTQ | ||
| INCST(DFN,IBDT) | ; -- return medication copayment exemption reason/date
; -- ask mas for income data |
|
| INCSTQ | ||
| INCDT(IBDATA) | ; -- calcualtes copay exemption status based on income
; and net worth ; input := zeroth node from 408.31 ; output := 1 = exempt ^date of test^ exemption reason ; 2 = non-exempt^... ; 3 = pending adjudication (if active)^... |
|
| NO | ; -- not enough information
|
|
| INCDTQ | ||
| THRES(DATE,TYPE,DEPEND) | ; -- return threshold amount
|
|
| THRESQ | ||
| NETW() | ; -- use networth in determining copay exemptions - specs keep changing
; returns 1 if should use networth in exemption determination ; returns 0 if should not use networth in exemption |
