©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
GMRAEER0 ;HIRMFO/RM,WAA-ENTER AN ALLERGY RECORD IN ERROR ; 8/20/92
Source file <GMRAEER0.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 5 | EN1^GMRADPT EN1^GMRADSP0 EN1^GMRAPEE0 EN1^GMRAPES0 ($$LOCK,UNLOCK)^GMRAUTL |
| Kernel | 1 | KILL^XUSCLEAN |
| Registration | 1 | (1,KVAR)^VADPT |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| Q1 | ||
| EN1 | ; ENTRY FROM 'GMRA ENTER A/AR IN ERROR' OPTION
|
|
| EN2 | ; EDIT A PATIENT A/AR WHERE DFN KNOWN
; INPUT VAR: DFN = PTR TO 2 ; OUTPUT VAR: DFN AND GMRAOUT = 0 IF NORMAL EXIT ELSE 1 |
|
| Q2 | ;
|
|
| SELECT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMRD(120.83 - [#120.83] | EN2+3 |
| Name | Line Occurrences |
|---|---|
| EN1 | EN1+1 |
| EN2 | EN1+1, SELECT |
| Q1 | EN1+1 |
| Q2 | EN2+4, SELECT |
| SELECT | SELECT+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | EN1+1*, EN2+3 |
| DIC | EN1+1*! |
| DIC(0 | EN1+1* |
| DLAYGO | EN1+1! |
| GMRADRUG | Q2+1! |
| GMRAER | EN2+4*!, Q2+1! |
| GMRAERR | Q2+1! |
| GMRAHEAD | Q2+1! |
| >> GMRAL | EN2+4 |
| GMRALAGO | SELECT*, Q2+1! |
| GMRALOC | EN2+3*, Q2+1! |
| GMRANAM | EN2+3*, Q2+1! |
| GMRANEW | Q2+1! |
| GMRAOTH | EN2+3*, Q2+1! |
| >> GMRAOUT | EN1+1, EN2+3*, EN2+4, SELECT, Q2+2* |
| GMRAPA | SELECT, SELECT+1, SELECT+3, Q2+1! |
| GMRAPG | Q2+1! |
| GMRAPRNT | Q2+1! |
| GMRASEX | EN2+3*, Q2+1! |
| GMRASWH | Q2+1! |
| U | EN2+3 |
| VA | EN2+3! |
| >> VADM(1 | EN2+3 |
| >> VADM(5 | EN2+3 |
| >> VAIN(4 | EN2+3 |
| VAROOT | EN2+3! |
| >> Y | EN1+1 |