Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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
Info |  Source |  Entry Points |  Interaction Calls