GMRAU85 ;HIRMFO/RFM,WAA-UTILITIES FOR FILE 120.85 ; 1/6/93
Source file <GMRAU85.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | ^DIC IX1^DIK ^DIR |
Adverse Reaction Tracking | 1 | ($$LOCK,SITE)^GMRAUTL |
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 |
---|---|---|
EN1 | ; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT IS NOT KNOWN
; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT. |
|
Q1 | ;
|
|
ADR | ; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT (DFN) IS KNOWN,
; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT. |
|
EN2 | ; LOOKUP 120.85 ENTRY IF PATIENT (DFN) KNOWN, AND 120.8 ENTRY (GMRAPA)
; IS KNOWN. ; THEN 120.85 ENTRY (GMRAPA1) IS RETURNED AND GMRAOUT IF ABNORMAL EXIT. |
|
SCR02 | ; SCREEN FOR .02 FIELD OF FILE 120.85
|
|
SCR03 | ; SCREEN FOR .03 FIELD OF FILE 120.85
|
|
OBSDRG(GMRA) | ; GIVEN GMRA AS ENTRY IN 120.8, FUNCTION RETURNS 1 IF OBS. DRUG
; ELSE IT RETURNS 0 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^GMR(120.8 - [#120.8] | Classic Fileman Calls |
^GMR(120.85 - [#120.85] | Classic Fileman Calls |
^DPT - [#2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | ADR+11 |
^GMR(120.8 - [#120.8] | ADR+3, EN2+15, EN2+16, EN2+17, SCR02+4, SCR03+2, SCR03+5, OBSDRG+3, OBSDRG+5 |
^GMR(120.85 - [#120.85] | EN2+15*, EN2+17*, EN2+20*, EN2+21*, EN2+22*, SCR02+2, SCR03+2, OBSDRG+2 |
^GMRD(120.84 - [#120.84] | EN2+20 |
Name | Field # of Occurrence |
---|---|
^(0 | ADR+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA | EN2+23*, SCR02+1, SCR02+2, SCR03+1, SCR03+2 |
>> DFN | EN1+3*, ADR+3, ADR+11, EN2+10 |
DIC | EN1+3*!, ADR+11*!, EN2+8*, EN2+10! |
DIC("DR" | EN2+10* |
DIC("S" | ADR+11*, EN2+9* |
DIC("W" | ADR+11*, EN2+10* |
DIC(0 | EN1+3*, ADR+11*, EN2+8* |
>> DIK | EN2+23* |
DIR | ADR+8!, ADR+9!, EN2+5!, EN2+6! |
DIR("?" | ADR+8*, EN2+6* |
DIR("??" | ADR+9*, EN2+6* |
DIR("A" | ADR+8*, EN2+5* |
DIR(0 | ADR+8*, EN2+5* |
>> DIRUT | ADR+9, EN2+7 |
DLAYGO | EN2+9*, EN2+10! |
>> DTOUT | ADR+12, EN2+7, EN2+10 |
>> DUOUT | ADR+12, EN2+7, EN2+10 |
DUZ | EN2+10, EN2+17 |
GMRA | SCR02+2*, SCR02+3!, SCR02+4!, SCR02+6!, SCR03+2*, SCR03+3!, SCR03+4!, SCR03+5!, SCR03+7!, OBSDRG~ , OBSDRG+2*, OBSDRG+3*, OBSDRG+5*, OBSDRG+8*, OBSDRG+9 |
GMRA(0 | SCR03+2*, SCR03+3, OBSDRG+3*, OBSDRG+5 |
>> GMRALAGO | EN2+8, EN2+9 |
>> GMRAN85 | EN2+13* |
GMRANAM | EN1+3*, Q1+1! |
>> GMRAOUT | EN1+2*, EN1+5, ADR+7, ADR+9*, ADR+10*, ADR+12*, ADR+15*, EN2+4, EN2+7*, EN2+10* , EN2+26* |
>> GMRAPA | ADR+7*, EN2+10, EN2+15, EN2+16, EN2+17 |
>> GMRAPA(0 | ADR+7*, EN2+22 |
>> GMRAPA1 | EN1+3*, EN1+5, ADR+3*, EN2+3*, EN2+4*, EN2+11*, EN2+12*, EN2+15, EN2+17, EN2+20 , EN2+21, EN2+22, EN2+23 |
>> GMRASITE | EN2+19, EN2+20 |
GMRAX | ADR+11*, EN2+8*, EN2+15*, EN2+16, EN2+17, EN2+27! |
U | ADR+3, EN2+13, EN2+15, EN2+17, EN2+20, EN2+22, SCR02+3, SCR02+4, SCR03+3, SCR03+4 , SCR03+5, OBSDRG+2, OBSDRG+5 |
>> X | ADR+3*, ADR+6, ADR+11*, EN2+8* |
>> Y | EN1+3, ADR+3*, ADR+7, ADR+11, EN2+4, EN2+8, EN2+11, EN2+12*, EN2+13, SCR02+4 , SCR03+2, SCR03+5, OBSDRG+2 |
>> Y(0 | ADR+7 |