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

Package: Adverse Reaction Tracking

Routine: GMRAFN3


Information

GMRAFN3 ;HIRMFO/WAA-FDA PART 3 MEDWATCH FORM ;11/30/95 15:19

Source Information

Source file <GMRAFN3.m>

Entry Points

Name Comments DBIA/ICR reference
DESC ;This code is to find and print the reaction description
DESC1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "] Hospitalization",?30,"["
  • Line Location: GMRAFN3+2
Function Call: WRITE
  • Prompt: "] required intervention to",?66,"|4. Diagnosis for use(indication)|5. Event abated after use"
  • Line Location: GMRAFN3+4
Function Call: WRITE
  • Prompt: !," initial or prolonged prevent impairment/damage",?66,"|",?99,"| stopped or dose reduced?"
  • Line Location: GMRAFN3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRAFN3+6
Function Call: WRITE
  • Prompt: ?7,"-------"
  • Line Location: GMRAFN3+7
Function Call: WRITE
  • Prompt: ?18,"---------"
  • Line Location: GMRAFN3+8
Function Call: WRITE
  • Prompt: " ] other"
  • Line Location: GMRAFN3+11
Function Call: WRITE
  • Prompt: ?66,"| #",GMRASUS1,":",$E($P(GMRAGNT1,U,4),1,27),?99,"| #",GMRASUS1,": [",$S(GMRASUS1="":" ",$P($G(^TMP($J,"GMR","A",GMRASUS1,"LIKE")),U,3)="y":"YES",$P($G(^("LIKE")),U,3)="n":"NO",1:"N/A")
  • Line Location: GMRAFN3+12
Function Call: WRITE
  • Prompt: "]"
  • Line Location: GMRAFN3+12
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,66),"|",$E(LINE1,68,99),"|",$E(LINE1,101,131)
  • Line Location: GMRAFN3+13
Function Call: WRITE
  • Prompt: !,"3. Date of event",?33,"|4. Date of this report"
  • Line Location: GMRAFN3+14
Function Call: WRITE
  • Prompt: " #",GMRASUS2,":",$E($P(GMRAGNT2,U,4),1,27),?99,"| #",GMRASUS2,": [",$S($P($G(^TMP($J,"GMR","A",GMRASUS2,"LIKE")),U,3)="y":"YES",$P($G(^("LIKE")),U,3)="n":"NO",1:"N/A")
  • Line Location: GMRAFN3+15
Function Call: WRITE
  • Prompt: "]"
  • Line Location: GMRAFN3+15
Function Call: WRITE
  • Prompt: ?99,"|"
  • Line Location: GMRAFN3+16
Function Call: WRITE
  • Prompt: !
  • Line Location: GMRAFN3+17
Function Call: WRITE
  • Prompt: ?4,$E(%,4,5)_"/"_$E(%,6,7)_"/"_$E(%,2,3),?33,"|",?37
  • Line Location: GMRAFN3+17
Function Call: WRITE
  • Prompt: ?4,$E(%,4,5)_"/"_$E(%,6,7)_"/"_$E(%,2,3),?33,"|",?37
  • Line Location: GMRAFN3+17
Function Call: WRITE
  • Prompt: ?66,"|",$E(LINE1,68,131)
  • Line Location: GMRAFN3+18
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,66),"|6. Lot # (if known) |7. Exp. date|8. Event reappeared after"
  • Line Location: GMRAFN3+19
Function Call: WRITE
  • Prompt: !,"5. Describe event or problem",?66,"|",?88,"|",?101,"| reintroduction"
  • Line Location: GMRAFN3+20
Function Call: WRITE
  • Prompt: $E(GMRAX,4,5),"/",$E(GMRAX,6,7),"/",$E(GMRAX,2,3)
  • Line Location: DESC1+2
Function Call: WRITE
  • Prompt: ?66,"|",$E(LINE1,68,88),"|",$E(LINE1,90,101),"|",$E(LINE1,103,131)
  • Line Location: DESC1+6
Function Call: WRITE
  • Prompt: "#",GMRASUS2,":",$E($P(GMRAGNT2,U,8),1,16)
  • Line Location: DESC1+8
Function Call: WRITE
  • Prompt: ?88,"| "
  • Line Location: DESC1+9
Function Call: WRITE
  • Prompt: $E(GMRAX,4,5),"/",$E(GMRAX,6,7),"/",$E(GMRAX,2,3)
  • Line Location: DESC1+9
Function Call: WRITE
  • Prompt: "#",GMRASUS2,": [",$S($P($G(^TMP($J,"GMR","A",GMRASUS2,"LIKE")),U,6)="y":"YES",$P($G(^("LIKE")),U,6)="n":"NO",1:" "),"]"
  • Line Location: DESC1+10
Function Call: WRITE
  • Prompt: ?66,"|",$E(LINE1,67,130)
  • Line Location: DESC1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DESC1+13
Function Call: WRITE
  • Prompt: $S('$D(^TMP($J,"GMR","R",6)):^TMP($J,"GMR","R",5),1:" SEE ATTACHED") K:'$D(^TMP($J,"GMR","R",6))
  • Line Location: DESC1+13
Function Call: WRITE
  • Prompt: ?66,"|9. (Not applicable to adverse drug event reports)"
  • Line Location: DESC1+14
Function Call: WRITE
  • Prompt: !,$E(LINE1,1,66),"|",$E(LINE1,68,131)
  • Line Location: DESC1+15
Info |  Source |  Entry Points |  Interaction Calls