IBAUTL7 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE (CONT.) ; 2-NOV-92
Source file <IBAUTL7.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 1 | $$LST^IBARXEU0 |
VA FileMan | 1 | ^DIE |
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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBAERR2 IBARXEB IBAUTL6 |
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 |