IBAUTL6 ;AAS/ALB-RX EXEMPTION UTILITY ROUTINE (CONT.);2-NOV-92
Source file <IBAUTL6.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 |
---|---|---|
ADDP | ; -- Add patient to file 354
; -- Input : dfn = entry in patient file ; returns : ibadd = 0 if not added, 1 if added |
|
ADDPQ | ||
ADDEX(IBEXREA,IBDT,IBHOW,IBTYPE,IBOLDAUT) | ; -- add entry to 354.1 and update
; -- this will become the active entry for this effective date ; other entries for this effective date should be cancelled ; prior to making this call |
|
A1 | ||
ADDEXQ | ;
|
|
DUPL() | ; -- see if entry is a duplicate
|
Name | Field # of Occurrence |
---|---|
FILE^DICN | ADDP+10, A1+37 |
DT^DICRW | ADDP+5 |
^DIE | A1+45 |
^IBAERR | ADDEXQ+2 |
^IBARXEB | A1+65 |
$$RXST^IBARXEU | A1+62 |
$$STDATE^IBARXEU | A1+34, A1+62 |
$$VFAOK^IBARXEU | A1+50 |
$$LST^IBARXEU0 | DUPL+3 |
$$MINUS^IBARXEU0 | A1+56 |
CANCEL^IBARXEU3 | A1+64 |
^IBARXEVT | A1+63 |
AFTER^IBARXEVT | A1+61 |
BEFORE^IBARXEVT | A1+13 |
CURREX^IBAUTL7 | A1+56 |
INACT^IBAUTL7 | A1+22, A1+25, A1+31 |
$$DAT1^IBOUTL | A1+58 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
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] | ADDP+8, ADDP+10, ADDP+12, ADDEX+15, A1, ADDEXQ+1 |
^IBA(354.1 - [#354.1] | A1+50 |
^IBE(354.2 - [#354.2] | A1+16, A1+34, A1+58 |
^VA(200 - [#200] | A1+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ADDP+9!, ADDPQ!, A1+38*, A1+50, A1+53!, ADDEXQ+3! |
DD | ADDP+9!, ADDPQ!, A1+37!, ADDEXQ+3! |
>> DFN | ADDP+8, ADDP+10, ADDP+12, ADDEX+15, A1, A1+62, ADDEXQ+1, DUPL+3 |
DGMTA | A1+3, A1+4~, A1+5* |
DGMTINF | A1+3, A1+4~, A1+5* |
DGMTP | A1+3, A1+4~, A1+5* |
DIC | ADDP+9!*, ADDPQ!, A1+37*, A1+53!, ADDEXQ+3! |
DIC(0 | ADDP+9*, A1+37* |
DIE | ADDP+9!, ADDPQ!, A1+41*, A1+53!, ADDEXQ+3! |
DINUM | ADDP+4~, ADDP+10* |
DLAYGO | ADDP+4~, ADDP+9* |
DO | ADDP+9!, ADDPQ!, A1+37!, ADDEXQ+3! |
DR | ADDP+9!, ADDPQ!, A1+41*, A1+53!, ADDEXQ+3! |
DT | ADDP+5, A1+56 |
DUZ | A1+10 |
>> IBADD | ADDP+7*, ADDP+10*, ADDP+11 |
>> IBADDE | A1+6*, A1+47*, A1+58 |
IBARCAN | ADDEXQ+3! |
IBASIG | ADDEXQ+3! |
IBCNT | A1+4~ |
>> IBCONVER | A1+34, A1+60 |
IBDGMTA | A1+2~, A1+3*, A1+5 |
IBDGMTF | A1+2~, A1+3*, A1+5 |
IBDGMTP | A1+2~, A1+3*, A1+5 |
IBDT | ADDEX~, A1+9, A1+31, A1+34*, A1+37, A1+47, A1+56, A1+62, DUPL+3, DUPL+4 |
IBEVT | A1+62*, ADDEXQ+3! |
IBEVTA | ADDEXQ+3! |
IBEVTP | ADDEXQ+3! |
IBEXDA | A1+15~, A1+38* |
>> IBEXERR | ADDP+6*, ADDP+11*, ADDEX+15*, A1, A1+6*, A1+9*, A1+10*, A1+31, A1+38*, A1+46* , A1+56, ADDEXQ+2 |
IBEXREA | ADDEX~, A1+16, A1+34, A1+47, DUPL+4 |
>> IBFORCE | A1+25, A1+28 |
IBHOW | ADDEX~, A1+17* |
IBOLDAUT | ADDEX~, A1+22, A1+28 |
IBSTAT | A1+15~, A1+16*, A1+56, A1+64 |
>> IBTALK | ADDEX+15, A1+28, A1+38, A1+58 |
IBTYPE | ADDEX~, A1+18*, DUPL+4 |
IBVFAOK | A1+2~, A1+50*, A1+56 |
>> IBWHER | ADDP+6*, A1+6* |
X | ADDP+4~, ADDP+10*, A1+4~, A1+37*, DUPL+1~, DUPL+2*, DUPL+4*, DUPL+5 |
X1 | A1+4~ |
X2 | A1+4~ |
Y | ADDP+10, A1+4~, A1+38, A1+46, DUPL+1~, DUPL+3*, DUPL+4 |
>> ZTQUEUED | ADDEX+15, A1+28, A1+38, A1+58 |