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 |  Local Variables  | All
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>

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

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRAFN1  GMRAFN4  

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] GMRAFN5+5
^GMR(120.85 - [#120.85] GMRAFN5+2, GMRAFN5+11
^TMP($J CONCO+1!, CONCO+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> GMRACCT CONCO+1, CONCO+5
>> GMRANOC CONCO+5*
>> GMRAPA1 GMRAFN5+2, GMRAFN5+11
>> GMRAPG1 GMRAFN5+3, GMRAFN5+4, GMRAFN5+5, GMRAFN5+9, GMRAFN5+10, GMRAFN5+11, GMRAFN5+15, GMRAFN5+16
GMRAX GMRAFN5+2*, GMRAFN5+3, GMRAFN5+4, GMRAFN5+5, GMRAFN5+9, GMRAFN5+10, GMRAFN5+15, CONCO+1*, CONCO+2, CONCO+3
, CONCO+4!
IOF GMRAFN5+19
>> LINE1 GMRAFN5+6, GMRAFN5+12
>> LINE2 GMRAFN5+4, GMRAFN5+17
U GMRAFN5+3, GMRAFN5+4, GMRAFN5+5, GMRAFN5+9, GMRAFN5+10, GMRAFN5+11, GMRAFN5+15, CONCO+2, CONCO+3
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All