©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
GMRAEF1 ;HIRMFO/WAA-FDA EXCEPTION REPORT ; 11/25/92
Source file <GMRAEF1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIC ^DIR |
| Adverse Reaction Tracking | 1 | EN1^GMRAEF |
| Kernel | 1 | KILL^XUSCLEAN |
| Package | Total | Caller Graph |
|---|---|---|
| Adverse Reaction Tracking | 2 | GMRA PRINT-FDA EXCEPT BY PT GMRAEF2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1Q | ||
| EN1 | ; Entry to PRINT PATIENT FDA EXCEPTION DATA option
|
|
| EN2 | ;
|
|
| EXIT | ;EXIT OF ROUTINE
|
|
| CMPFDA(DA) | ; GIVEN DA ENTRY IN 120.8 RETURN 0 IF THERE IS INCOMPLETE
; FDA DATA, ELSE RETURN 1 |
|
| DDATE | ;Select discharge date
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | EN2+2, DDATE+8, DDATE+9, DDATE+10 |
| ^GMR(120.85 - [#120.85] | CMPFDA+5, CMPFDA+6, CMPFDA+12, CMPFDA+13 |
| ^GMR(120.86 - [#120.86] | EN2+1 |
| ^TMP($J | DDATE+17* |
| Name | Line Occurrences |
|---|---|
| $$CMPFDA | DDATE+15 |
| EN1 | EN1+4 |
| EN1Q | EN1+3 |
| EN2 | EN1+4 |
| EXIT | EN1Q+1, DDATE+5, DDATE+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | CMPFDA~, CMPFDA+5 |
| DIC | EN1+1!, EN1+2*, EN1+3!, EN1Q!, EXIT+1! |
| DIC(0 | EN1+2* |
| DIR | DDATE+1!, DDATE+4! |
| DIR("?" | DDATE+3* |
| DIR("A" | DDATE+1* |
| DIR("B" | DDATE+2* |
| DIR(0 | DDATE+2* |
| >> DIRUT | DDATE+6 |
| DLAYGO | EN1+3! |
| >> GMRA(0 | DDATE+10*, DDATE+11, DDATE+12, DDATE+13, DDATE+14, DDATE+16 |
| >> GMRABGDT | DDATE+16*, DDATE+17 |
| >> GMRAIEN | DDATE+8*, DDATE+9, DDATE+10, DDATE+15, DDATE+17 |
| GMRAOUT | EN1+1*, EN1+4, EN1Q!, DDATE+5* |
| >> GMRASTDT | DDATE+7*, DDATE+14 |
| GMRAX | EN2+1*! |
| GMRDFN | EN1+4*, EN1Q!, EN2+1, EN2+2, DDATE+8, DDATE+17 |
| U | EN2+1, DDATE+12, DDATE+13, DDATE+14, DDATE+16, CMPFDA+8, CMPFDA+9, CMPFDA+10, CMPFDA+11, CMPFDA+15 , CMPFDA+16, CMPFDA+17, CMPFDA+18, CMPFDA+19, CMPFDA+20, CMPFDA+21, CMPFDA+22, CMPFDA+23, CMPFDA+24 |
| X | EN2+2*, EN2+3, CMPFDA+2~, CMPFDA+3*, CMPFDA+5*, CMPFDA+6, CMPFDA+12, CMPFDA+13 |
| X(0 | CMPFDA+6*, CMPFDA+8, CMPFDA+9, CMPFDA+10, CMPFDA+11, CMPFDA+15, CMPFDA+16, CMPFDA+17, CMPFDA+18, CMPFDA+19 , CMPFDA+20, CMPFDA+21, CMPFDA+22, CMPFDA+23, CMPFDA+24 |
| >> Y | EN1+3, EN1+4, DDATE+5, DDATE+7, CMPFDA+3*, CMPFDA+5, CMPFDA+14*, CMPFDA+25*, CMPFDA+27 |