Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRAFN2

Package: Adverse Reaction Tracking

Routine: GMRAFN2


Information

GMRAFN2 ;HIRMFO/WAA-FDA PART 2 MEDWATCH FORM ;11/30/95 15:19

Source Information

Source file <GMRAFN2.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRAFN1  

Entry Points

Name Comments DBIA/ICR reference
FORM ;This is the main form entry point
AGE ;Age at time of event
SEX ;Sex,weight
SUSPECT ;THIS WILL GET THE NEXT SUSPECTED AGENT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"MEDWatch",?80,"Approved by FDA on 10/20/93"
  • Line Location: FORM+1
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,42),?79,$E(LINE1,79,131)
  • Line Location: FORM+2
Function Call: WRITE
  • Prompt: !,"THE FDA MEDICAL PRODUCTS REPORTING PROGRAM",?79,"| Triage unit sequence #",?131,"|"
  • Line Location: FORM+3
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,42),?79,$E(LINE1,79,131)
  • Line Location: FORM+4
Function Call: WRITE
  • Prompt: !,?79,"|",?131,"|"
  • Line Location: FORM+5
Function Call: WRITE
  • Prompt: !,?59,"Page ",GMRAPG1," of ",GMRAPG2,?79,$E(LINE1,79,131)
  • Line Location: FORM+6
Function Call: WRITE
  • Prompt: !,$E(LINE2,1,66),"|",$E(LINE2,68,131)
  • Line Location: FORM+7
Function Call: WRITE
  • Prompt: !,"A. Patient Information",?66,"| C. Suspect Medication(s)"
  • Line Location: FORM+8
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,66),"|",$E(LINE1,68,131)
  • Line Location: FORM+9
Function Call: WRITE
  • Prompt: !,"1. Patient Indentifier|2. DOB: ",+$E(GMRADOB,4,5),"/",+$E(GMRADOB,6,7),"/",$E(GMRADOB,2,3),?43,"|3. Sex|4. Weight",?66,"|1. Name"
  • Line Location: FORM+10
Function Call: WRITE
  • Prompt: !,GMRAID,?22,"| AGE: "
  • Line Location: FORM+11
Function Call: WRITE
  • Prompt: X
  • Line Location: AGE+1
Function Call: WRITE
  • Prompt: ?39,"yrs |"
  • Line Location: AGE+1
Function Call: WRITE
  • Prompt: ?39,"yrs |"
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: ?66
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: ?50,"| kg",?66
  • Line Location: SEX+2
Function Call: WRITE
  • Prompt: "| #",GMRASUS1," : "
  • Line Location: SUSPECT+4
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT1,U),1,30)
  • Line Location: SUSPECT+4
Function Call: WRITE
  • Prompt: !,$E(LINE2,1,66),"|",$E(LINE1,68,131)
  • Line Location: SUSPECT+5
Function Call: WRITE
  • Prompt: !,"B. Adverse Event or Product Problem",?66
  • Line Location: SUSPECT+6
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,66),"|",$E(LINE1,68,131)
  • Line Location: SUSPECT+11
Function Call: WRITE
  • Prompt: !,"1. [X]Adverse Event [ ]Product problem",?66,"|2. Dose,frequency & route used",?99,"| 3. Therapy dates"
  • Line Location: SUSPECT+12
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,66),"| #",GMRASUS1,":"
  • Line Location: SUSPECT+13
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT1,U,2),1,8)
  • Line Location: SUSPECT+13
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT1,U,2),1,8)
  • Line Location: SUSPECT+13
Function Call: WRITE
  • Prompt: ","
  • Line Location: SUSPECT+14
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT1,U,3),1,8),?99,"| #",GMRASUS1," : "
  • Line Location: SUSPECT+15
Function Call: WRITE
  • Prompt: DT
  • Line Location: SUSPECT+16
Function Call: WRITE
  • Prompt: "-",DT
  • Line Location: SUSPECT+17
Function Call: WRITE
  • Prompt: !,"2. Outcomes attributed to adverse event",?66,"|",$E(LINE1,66,97),"|",$E(LINE1,99,130)
  • Line Location: SUSPECT+18
Function Call: WRITE
  • Prompt: !," ["
  • Line Location: SUSPECT+19
Function Call: WRITE
  • Prompt: $E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: SUSPECT+20
Function Call: WRITE
  • Prompt: " ] death:"
  • Line Location: SUSPECT+21
Function Call: WRITE
  • Prompt: ?30,"["
  • Line Location: SUSPECT+22
Function Call: WRITE
  • Prompt: $S($P(^GMR(120.85,GMRAPA1,0),U,10)="y":"X",1:" ")
  • Line Location: SUSPECT+23
Function Call: WRITE
  • Prompt: "] disability"
  • Line Location: SUSPECT+23
Function Call: WRITE
  • Prompt: " ] disability"
  • Line Location: SUSPECT+24
Function Call: WRITE
  • Prompt: " #",GMRASUS2,":"
  • Line Location: SUSPECT+25
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT2,U,2),1,8)
  • Line Location: SUSPECT+25
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT2,U,2),1,8)
  • Line Location: SUSPECT+25
Function Call: WRITE
  • Prompt: ","
  • Line Location: SUSPECT+26
Function Call: WRITE
  • Prompt: $E($P(GMRAGNT2,U,3),1,(24-$L($E($P(GMRAGNT2,U,2),1,12)))),?99,"| #",GMRASUS2," : "
  • Line Location: SUSPECT+27
Function Call: WRITE
  • Prompt: DT
  • Line Location: SUSPECT+28
Function Call: WRITE
  • Prompt: "-",DT
  • Line Location: SUSPECT+29
Function Call: WRITE
  • Prompt: ?99,"|"
  • Line Location: SUSPECT+31
Function Call: WRITE
  • Prompt: !," ["
  • Line Location: SUSPECT+32
Function Call: WRITE
  • Prompt: $S($P(^GMR(120.85,GMRAPA1,0),U,5)="y":"X",1:" ")
  • Line Location: SUSPECT+33
Function Call: WRITE
  • Prompt: "] life-threatening"
  • Line Location: SUSPECT+33
Function Call: WRITE
  • Prompt: " ] life-threatening"
  • Line Location: SUSPECT+34
Function Call: WRITE
  • Prompt: ?30,"["
  • Line Location: SUSPECT+35
Function Call: WRITE
  • Prompt: $S($P(^GMR(120.85,GMRAPA1,0),U,16)="y":"X",1:" ")
  • Line Location: SUSPECT+36
Function Call: WRITE
  • Prompt: "] congenital anomaly",?66,"|",$E(LINE1,68,131)
  • Line Location: SUSPECT+36
Function Call: WRITE
  • Prompt: " ] congenital anomaly",?66,"|",$E(LINE1,68,131)
  • Line Location: SUSPECT+37
Function Call: WRITE
  • Prompt: !," ["
  • Line Location: SUSPECT+38
Function Call: WRITE
  • Prompt: "X"
  • Line Location: SUSPECT+39
Function Call: WRITE
  • Prompt: "X"
  • Line Location: SUSPECT+40
Function Call: WRITE
  • Prompt: " "
  • Line Location: SUSPECT+43

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SUSPECT+20
^GMR(120.85 - [#120.85] SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
^TMP($J SUSPECT+1, SUSPECT+2, SUSPECT+7, SUSPECT+9, SUSPECT+13, SUSPECT+14, SUSPECT+16, SUSPECT+17, SUSPECT+25, SUSPECT+26
, SUSPECT+28, SUSPECT+29

Naked Globals

Name Field # of Occurrence
^(0 SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36
^(1 SUSPECT+16, SUSPECT+17, SUSPECT+28, SUSPECT+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN SUSPECT+20
DT SUSPECT+16*, SUSPECT+17*, SUSPECT+28*, SUSPECT+29*
>> GMRADOB FORM+10, AGE+1
>> GMRAGNT1 SUSPECT+2*, SUSPECT+4, SUSPECT+13, SUSPECT+14, SUSPECT+15
>> GMRAGNT2 SUSPECT+9*, SUSPECT+10, SUSPECT+25, SUSPECT+26, SUSPECT+27
>> GMRAID FORM+11
>> GMRAPA1 SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
>> GMRAPA1(0 AGE+1
>> GMRAPG1 FORM+6, AGE+1, AGE+2, SEX+1, SEX+2, SUSPECT+20, SUSPECT+21, SUSPECT+23, SUSPECT+24, SUSPECT+33
, SUSPECT+34, SUSPECT+36, SUSPECT+37, SUSPECT+38, SUSPECT+43
>> GMRAPG2 FORM+6
>> GMRASEX SEX+1
>> GMRASUS SUSPECT+1*, SUSPECT+2, SUSPECT+3, SUSPECT+7*, SUSPECT+8, SUSPECT+9
>> GMRASUS1 SUSPECT+1*, SUSPECT+2, SUSPECT+3*, SUSPECT+4, SUSPECT+13, SUSPECT+14, SUSPECT+15, SUSPECT+16, SUSPECT+17
>> GMRASUS2 SUSPECT+7*, SUSPECT+8*, SUSPECT+10, SUSPECT+25, SUSPECT+26, SUSPECT+27, SUSPECT+28, SUSPECT+29, SUSPECT+31
>> GMRAWEI SEX+1
>> LINE1 FORM+2, FORM+4, FORM+6, FORM+9, SUSPECT+5, SUSPECT+11, SUSPECT+13, SUSPECT+18, SUSPECT+36, SUSPECT+37
>> LINE2 FORM+7, SUSPECT+5
U AGE+1, SEX+1, SUSPECT+4, SUSPECT+10, SUSPECT+13, SUSPECT+14, SUSPECT+15, SUSPECT+16, SUSPECT+17, SUSPECT+20
, SUSPECT+23, SUSPECT+25, SUSPECT+26, SUSPECT+27, SUSPECT+28, SUSPECT+29, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
X AGE+1*!
X1 AGE+1*!, SUSPECT+19*, SUSPECT+20*, SUSPECT+23*, SUSPECT+33*, SUSPECT+36*, SUSPECT+39*, SUSPECT+40*
X2 AGE+1*!, SUSPECT+32*, SUSPECT+35*
>> Y SUSPECT+20*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All