IBAUTL7 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE (CONT.) ; 2-NOV-92
Source file <IBAUTL7.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(354 - [#354] | CURREX+9 |
| ^IBA(354.1 - [#354.1] | INACT+4, INACT+6 |
| ^IBE(350.9 - [#350.9] | ALERT+4 |
| Name | Line Occurrences |
|---|---|
| CURREXQ | CURREX+6, CURREX+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | CURREX+5~, CURREX+15*, INACT+3~, INACT+5*, INACT+6, INACT+8*! |
| >> DFN | CURREX+6, CURREX+9, CURREX+15, INACT+4, DUPL+3 |
| DIC | CURREX+5~, INACT+3~, INACT+8! |
| DIE | CURREX+5~, CURREX+15*, INACT+3~, INACT+8*! |
| DR | CURREX+5~, CURREX+15*, INACT+3~, INACT+8*! |
| IBDT | CURREX~, CURREX+10, INACT~, INACT+4, DUPL+3, DUPL+4 |
| >> IBEXERR | CURREX+16*, INACT+9* |
| >> IBEXREA | DUPL+4 |
| >> IBFORCE | CURREX+10 |
| >> IBOLDAUT | CURREX+10 |
| IBSTAT | CURREX~, CURREX+6 |
| >> IBTALK | INACT+7* |
| >> IBTYPE | DUPL+4 |
| >> IBWHER | CURREX+16*, INACT+9* |
| IBX | INACT+3~, INACT+4*, INACT+5, INACT+8 |
| X | CURREX+5~, CURREX+9*, CURREX+10, INACT+3~, DUPL+1~, DUPL+2*, DUPL+4*, DUPL+5 |
| Y | CURREX+5~, CURREX+16, INACT+3~, INACT+9, DUPL+1~, DUPL+3*, DUPL+4 |
| >> ZTQUEUED | INACT+7 |