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 |