Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRAEF1

Package: Adverse Reaction Tracking

Routine: GMRAEF1


Information

GMRAEF1 ;HIRMFO/WAA-FDA EXCEPTION REPORT ; 11/25/92

Source Information

Source file <GMRAEF1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
Adverse Reaction Tracking 1 EN1^GMRAEF  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA PRINT-FDA EXCEPT BY PT  GMRAEF2  

Entry Points

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

External References

Name Field # of Occurrence
^DIC EN1+3
^DIR DDATE+4
EN1^GMRAEF DDATE+19
KILL^XUSCLEAN EN1Q+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"This patient has No Known Allergies"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"This patient has no allergies on file"
  • Line Location: EN2+3
Routine Call
  • DIC
  • Line Location:
    • EN1+3
Routine Call
  • DIR
  • Line Location:
    • DDATE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
$$CMPFDA DDATE+15
EN1 EN1+4
EN1Q EN1+3
EN2 EN1+4
EXIT EN1Q+1, DDATE+5, DDATE+6

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All