IBARXEU5 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE (CONT.) ; 2-NOV-92
Source file <IBARXEU5.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 |
---|---|---|
DIFF | ; -- supported call for mas
; -- compare current exemption reason and date with what currently ; computes from the patient record. Automatically update if needed. ; input: dfn = patient to update ; Ibdt = date of change (optional, default is dt) ; output: none |
|
DIFFQ | ||
MTCOMP(STATUS,IBDATA) | ; -- compare income determination with current mt status
|
|
MTDONE | ||
MTCOMPQ | ||
MOSTR(X1,IBEXREA) | ; -- if status date is most recent but last exemption date
; is later, inactivate last exemption |
|
REGAUTO | ; -- will automatically update in background autoexempt
; called from registration |
|
REGQ |
Name | Field # of Occurrence |
---|---|
$$LST^DGMTCOU1 | MOSTR+17 |
$$CODE^IBAMTED1 | MTCOMP+13, MTCOMP+23, MTCOMP+25 |
UP1^IBARXEPV | DIFF+28 |
$$LSTAC^IBARXEU0 | MOSTR+12 |
$$MINUS^IBARXEU0 | MOSTR+14 |
$$PLUS^IBARXEU0 | DIFF+22 |
$$NETW^IBARXEU1 | MTCOMP+2 |
$$STATUS^IBARXEU1 | DIFF+19, REGAUTO+9 |
OLDAUT^IBARXEX1 | REGAUTO+14 |
ADDEX^IBAUTL6 | REGAUTO+16 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGMT(408.31 - [#408.31] | MOSTR+17 |
^IBA(354 - [#354] | DIFF+13, DIFF+16, REGAUTO+7, REGAUTO+13, REGAUTO+17 |
^IBE(354.2 - [#354.2] | DIFF+17, MTDONE, MOSTR+10, REGAUTO+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CODE | MTCOMP+4~, MTCOMP+13*, MTCOMP+18, MTCOMP+20 |
>> DFN | DIFF+9, DIFF+13, DIFF+16, DIFF+19, MOSTR+12, MOSTR+17, REGAUTO+4, REGAUTO+7, REGAUTO+9, REGAUTO+13 , REGAUTO+17 |
DT | DIFF+10, DIFF+22, MOSTR+14, MOSTR+17, REGAUTO+9 |
I | DIFF+7~, REGAUTO+5~ |
IBADDE | DIFF+7~ |
IBDATA | MTCOMP~, MTCOMP+8, MTCOMP+13, MTCOMP+18, MTCOMP+20, MTCOMP+23, MTCOMP+25 |
IBDT | DIFF+7~, DIFF+10*, DIFF+19 |
IBEXDA | DIFF+7~ |
IBEXREA | MTCOMP+4~*, MTCOMP+8*, MTCOMP+18*, MTCOMP+20*, MTCOMP+23*, MTCOMP+25*, MTDONE, MOSTR~, MOSTR+10, REGAUTO+5~ , REGAUTO+7*, REGAUTO+8, REGAUTO+10 |
IBEXREAN | DIFF+7~, DIFF+19*, DIFF+22, DIFF+25 |
IBEXREAO | DIFF+7~, DIFF+16*, DIFF+17, DIFF+25 |
IBFORCE | DIFF+7~, REGAUTO+5~, REGAUTO+15* |
IBJOB | DIFF+7~, DIFF+8*, REGAUTO+5~, REGAUTO+6* |
IBMESS | DIFF+7~ |
IBNSTAT | REGAUTO+5~, REGAUTO+9*, REGAUTO+10, REGAUTO+14, REGAUTO+15, REGAUTO+16 |
IBOLDAUT | DIFF+7~, MOSTR+9, MOSTR+20*, REGAUTO+5~, REGAUTO+16 |
IBWHER | DIFF+7~, DIFF+8* |
IBX | DIFF+7~, DIFF+16* |
J | DIFF+7~, REGAUTO+5~ |
STATUS | MTCOMP~, MTCOMP+11, MTDONE*, MTCOMPQ |
X | DIFF+7~, MTCOMP+8*, MOSTR+11~, MOSTR+12*, MOSTR+13, MOSTR+20, REGAUTO+5~ |
X1 | MOSTR~, MOSTR+8, MOSTR+13, MOSTR+14, MOSTR+20 |
Y | DIFF+7~, MOSTR+17*, MOSTR+20, REGAUTO+5~ |
>> ZTREQ | REGAUTO+3* |