GMRAHDR ;SLC/DAN - HDR CALLS FOR ART ;01/13/2014 07:54
Source file <GMRAHDR.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 |
Package | Total | Caller Graph |
---|---|---|
Adverse Reaction Tracking | 10 | CONCOMITANT DRUGS GMRADPT GMRAOR0 ^GMR(120.85 P&T ADDENDUM REACTIONS RELEVANT TEST/LAB DATA REPORT SOURCE SUSPECTED AGENT ^GMR(120.86 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETADR | ;Call here when updating data
|
|
KILLADR | ;Call here when data is deleted
|
|
SETAA | ;Action taken when assessment is changed
|
|
KILLAA | ;Action taken when value is deleted
|
|
SETOB | ;Make call to HDR when observation data is added or edited
|
|
KILLOB | ;Action upon deletion of observation data
|
|
TASK(TYPE,IEN) | ;Create task, if needed, and add entry to list of items to be sent to HDR
|
|
DQ | ;Send data to HDR
|
|
TSKOK(ZTSK) | ;Check to see if task is active. Section added in patch 42
|
|
HDRDATA() | ;RETRIEVE HDR DATA
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | TASK+7 |
ISQED^%ZTLOAD | TSKOK+1 |
$$GET^ORRDI1 | HDRDATA+6 |
$$HAVEHDR^ORRDI1 | HDRDATA+5 |
HAVEHDR^ORRDI1 | HDRDATA+4 |
$$TESTPAT^VADPT | SETADR+5, KILLADR+5, SETAA+2, KILLAA+2, SETOB+6, KILLOB+6 |
$$QUEUE^VDEFQM | DQ+4 |
QUEUE^VDEFQM | DQ+4 |
$$FMADD^XLFDT | TASK+5 |
$$FMDIFF^XLFDT | TASK+4 |
$$HADD^XLFDT | TASK+7 |
$$NOW^XLFDT | TASK+4, TASK+5 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^GMR(120.8 - [#120.8] | SETADR+4, SETADR+5, SETADR+7, KILLADR+4, KILLADR+5, SETOB+5, SETOB+6, KILLOB+5, KILLOB+6 |
^GMR(120.85 - [#120.85] | SETADR+7, SETOB+4, KILLOB+4 |
^XTMP("GMRAHDR" | TASK+2, TASK+4!, TASK+5*, TASK+6, TASK+7*, TASK+8*, TASK+9, DQ+2, DQ+3, DQ+4 , DQ+5!, DQ+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | DQ+1~, DQ+4* |
AIEN | SETOB+1~, SETOB+4*, SETOB+5, SETOB+6, KILLOB+1~, KILLOB+4*, KILLOB+5, KILLOB+6 |
>> DA | SETADR+3, KILLADR+3, SETAA+2, SETAA+3, KILLAA+2, KILLAA+3, SETOB+3, KILLOB+3 |
>> DA( | SETADR+3, KILLADR+3, SETOB+3, KILLOB+3 |
>> DA("?" | SETADR+3, KILLADR+3, SETOB+3, KILLOB+3 |
>> DFN | HDRDATA+6 |
DT | TASK+5 |
>> GMRADONT | SETADR+2, KILLADR+2, SETAA+1, KILLAA+1, SETOB+2, KILLOB+2 |
GMRAERR | DQ+1~, DQ+4 |
IEN | SETADR+1~, SETADR+3*, SETADR+4, SETADR+5, SETADR+6, SETADR+7, KILLADR+1~, KILLADR+3*, KILLADR+4, KILLADR+5 , KILLADR+6, SETOB+1~, SETOB+3*, SETOB+4, SETOB+7, KILLOB+1~, KILLOB+3*, KILLOB+4, KILLOB+7, TASK~ , TASK+8, DQ+1~, DQ+4* |
OIEN | SETADR+1~, SETADR+7* |
RETURN | HDRDATA+3~, HDRDATA+6*, HDRDATA+7 |
TYPE | TASK~, TASK+8, DQ+1~, DQ+3*, DQ+4 |
U | SETADR+4, SETADR+5, SETADR+7, KILLADR+4, KILLADR+5, SETOB+4, SETOB+5, SETOB+6, KILLOB+4, KILLOB+5 , KILLOB+6, TASK+4, TASK+5 |
>> XDRDVALF | SETADR+2, KILLADR+2, SETAA+1, KILLAA+1, SETOB+2, KILLOB+2 |
ZTDESC | TASK+1~, TASK+7* |
ZTDTH | TASK+1~, TASK+7* |
ZTIO | TASK+1~, TASK+7* |
ZTRTN | TASK+1~, TASK+7* |
ZTSK | TASK+1~, TASK+7, TSKOK~ |
ZTSK(0 | TSKOK+2 |
Name | Field # of Occurrence |
---|---|
$T(HAVEHDR^ORRDI1 | HDRDATA+4 |
$T(QUEUE^VDEFQM | DQ+4 |