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 |