IBARXEU5 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE (CONT.) ; 2-NOV-92
Source file <IBARXEU5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIFF | ; -- supported call for mas
; -- compare current exemption reason and date with what currently ; computes from the patient record. Automatically update if needed. ; input: dfn = patient to update ; Ibdt = date of change (optional, default is dt) ; output: none |
|
| DIFFQ | ||
| MTCOMP(STATUS,IBDATA) | ; -- compare income determination with current mt status
|
|
| MTDONE | ||
| MTCOMPQ | ||
| MOSTR(X1,IBEXREA) | ; -- if status date is most recent but last exemption date
; is later, inactivate last exemption |
|
| REGAUTO | ; -- will automatically update in background autoexempt
; called from registration |
|
| REGQ |
