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: GMRAFN5

Package: Adverse Reaction Tracking

Routine: GMRAFN5


Information

GMRAFN5 ;HIRMFO/WAA-FDA MEDWATCH FORM ;11/30/95 15:36

Source Information

Source file <GMRAFN5.m>

Entry Points

Name Comments DBIA/ICR reference
CONCO ;PRINT CONCOMITANT DRUG DATA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?66,"|1. Name, address & phone #: "
  • Line Location: GMRAFN5+3
Function Call: WRITE
  • Prompt: $P(GMRAX,U)
  • Line Location: GMRAFN5+3
Function Call: WRITE
  • Prompt: !,$E(LINE2,1,66),"|"
  • Line Location: GMRAFN5+4
Function Call: WRITE
  • Prompt: $E($P(GMRAX,U,2)_" "_$P(GMRAX,U,3)_" "_$P(GMRAX,U,4),1,63)
  • Line Location: GMRAFN5+4
Function Call: WRITE
  • Prompt: !,?66,"|"
  • Line Location: GMRAFN5+5
Function Call: WRITE
  • Prompt: $E($P(GMRAX,U,5),1,63)
  • Line Location: GMRAFN5+5
Function Call: WRITE
  • Prompt: $P(GMRAX,U,7)
  • Condition for execution: $P(GMRAX,U,6)'="" ", ",$P(^DIC(5,$P(GMRAX,U,6),0),U)," " W:$P(GMRAX,U,7)'=""
  • Line Location: GMRAFN5+5
Function Call: WRITE
  • Prompt: " ",$P(GMRAX,U,8)
  • Line Location: GMRAFN5+5
Function Call: WRITE
  • Prompt: !,"Mail to: MedWatch or FAX to:",?66,"|",$E(LINE1,68,131)
  • Line Location: GMRAFN5+6
Function Call: WRITE
  • Prompt: !," 5600 Fishers Lane 1-800-FDA-0178",?66,"|2. Health professional? |3. Occupation |4. Reported to Mfr."
  • Line Location: GMRAFN5+7
Function Call: WRITE
  • Prompt: !," Rockville, MD 20852-9787",?66,"|"
  • Line Location: GMRAFN5+8
Function Call: WRITE
  • Prompt: ?70,"[",$S($P(GMRAX,U,9)="n":"NO",$P(GMRAX,U,9)="y":"YES",1:" "),"]"
  • Line Location: GMRAFN5+9
Function Call: WRITE
  • Prompt: ?91,"|"
  • Line Location: GMRAFN5+10
Function Call: WRITE
  • Prompt: $E($P(GMRAX,U,11),1,14)
  • Line Location: GMRAFN5+10
Function Call: WRITE
  • Prompt: !,?66,"|",$E(LINE1,68,131)
  • Line Location: GMRAFN5+12
Function Call: WRITE
  • Prompt: !,?66,"|5. If you don't want your identity disclosed to the Manufacturer,"
  • Line Location: GMRAFN5+13
Function Call: WRITE
  • Prompt: !,?66,"| place an ""X"" in the box.["
  • Line Location: GMRAFN5+14
Function Call: WRITE
  • Prompt: $S($P(GMRAX,U,10)="n":"X",1:" "),"]"
  • Line Location: GMRAFN5+15
Function Call: WRITE
  • Prompt: " ]"
  • Line Location: GMRAFN5+16
Function Call: WRITE
  • Prompt: !,"FDA Form 3500",?66,"|",$E(LINE2,68,131)
  • Line Location: GMRAFN5+17
Function Call: WRITE
  • Prompt: !!,"Submission of a report does not constitute an admission that medical personnel or the product caused or contributed to the event."
  • Line Location: GMRAFN5+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GMRAFN5+19
Function Call: WRITE
  • Prompt: $E($P(GMRAX,U,2),4,5),"/",$E($P(GMRAX,U,2),6,7),"/",$E($P(GMRAX,U,2),2,3)
  • Line Location: CONCO+2
Function Call: WRITE
  • Prompt: "-",$E($P(GMRAX,U,3),4,5),"/",$E($P(GMRAX,U,3),6,7),"/",$E($P(GMRAX,U,3),2,3)
  • Line Location: CONCO+3
Info |  Source |  Entry Points |  Interaction Calls