IBAUTL7 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE (CONT.) ; 2-NOV-92
Source file <IBAUTL7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CURREX(IBSTAT,IBDT) | ;update current status if current year
; input : dfn = patient file pointer ; ibdt = internal form of effective date ; ibstat = status = 1 if exempt, 0 if not exempt |
|
| CURREXQ | ||
| INACT(IBDT) | ; -- must inactivate active exemptions before creating new exemption
; should only be called from addex so event driver logic works |
|
| INACTQ | ||
| DUPL() | ; -- see if entry is a duplicate
|
|
| ALERT() | ; -- use alerts or bulletins
; returns 1 = use alerts ; 0 = use bulletins |
| FileNo | Call Tags |
|---|---|
| ^IBA(354 - [#354] | Classic Fileman Calls |
| ^IBA(354.1 - [#354.1] | Classic Fileman Calls |
