©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRAU85 ;HIRMFO/RFM,WAA-UTILITIES FOR FILE 120.85 ;02-Nov-2010 16:37;DU
Source file <GMRAU85.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC IX1^DIK ^DIR |
| Adverse Reaction Tracking | 1 | ($$LOCK,SITE)^GMRAUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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. |
|
| OBSDRG(GMRA) | ; GIVEN GMRA AS ENTRY IN 120.8, FUNCTION RETURNS 1 IF OBS. DRUG
; ELSE IT RETURNS 0 |
|
| EN1 | ; LOOKUP FOR FILE 120.85 ENTRY IF PATIENT IS NOT 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. |
|
| SCR03 | ; SCREEN FOR .03 FIELD OF FILE 120.85
|
|
| SCR02 | ; SCREEN FOR .02 FIELD OF FILE 120.85
|
| 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 | Line Occurrences |
|---|---|
| ADR | EN1+4 |
| EN1 | EN1+5 |
| EN2 | ADR+16 |
| Q1 | EN1+3 |
| 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 | EN2+8*, EN2+15*, EN2+16, EN2+17, EN2+27! |
| >> GMRAX85 | ADR+11* |
| 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 |