Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 NOW^%DTC  ^DIWP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRAFN1  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC GMRAFN3+17
^DIWP DESC+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.85 - [#120.85] GMRAFN3+3, GMRAFN3+6, GMRAFN3+7, GMRAFN3+8, DESC+2, DESC+3, DESC+4
^GMRD(120.83 - [#120.83] DESC+3
^TMP($J GMRAFN3+12, GMRAFN3+15, DESC+8*, DESC1, DESC1+1, DESC1+3, DESC1+5, DESC1+7, DESC1+9, DESC1+10
, DESC1+11, DESC1+13!, DESC1+16!, DESC1+17!
^UTILITY($J DESC+2!, DESC+8

Label References

Name Line Occurrences
DESC1 DESC+1

Naked Globals

Name Field # of Occurrence
^("LIKE" GMRAFN3+12, GMRAFN3+15, DESC1+3, DESC1+10
^(0 GMRAFN3+3, GMRAFN3+6
^(1 DESC1!
^(2 DESC1+5!
^(3 DESC1+7!
^(4 DESC1+11!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GMRAFN3+17*
>> DIWF DESC+2*
>> DIWL DESC+2*
>> DIWR DESC+2*
GMRAGNT1 GMRAFN3+12, DESC1+1, DESC1+16!
GMRAGNT2 GMRAFN3+15, DESC1+8, DESC1+17!
GMRANO DESC+1*, DESC+2*, DESC1*, DESC1+5*, DESC1+7*, DESC1+11*, DESC1+13, DESC1+15!
>> GMRAPA1 GMRAFN3+3, GMRAFN3+6, GMRAFN3+7, GMRAFN3+8, DESC+2, DESC+3, DESC+4
>> GMRAPA1(0 GMRAFN3+17
>> GMRAPG1 GMRAFN3+3, GMRAFN3+4, GMRAFN3+6, GMRAFN3+10, GMRAFN3+11, DESC+1
>> GMRASUS1 GMRAFN3+12, DESC1+1, DESC1+3, DESC1+16
>> GMRASUS2 GMRAFN3+15, GMRAFN3+16, DESC1+8, DESC1+9, DESC1+10, DESC1+17
>> GMRAX DESC+2*, DESC+3*, DESC+4, DESC+5, DESC1+1*, DESC1+2, DESC1+9*
>> LINE1 GMRAFN3+13, GMRAFN3+18, GMRAFN3+19, DESC1+6, DESC1+12, DESC1+15
U GMRAFN3+3, GMRAFN3+6, GMRAFN3+7, GMRAFN3+8, GMRAFN3+12, GMRAFN3+15, GMRAFN3+17, DESC+3, DESC+4, DESC1+1
, DESC1+3, DESC1+8, DESC1+9, DESC1+10
>> X DESC+3*, DESC+4*, DESC+5*, DESC+8*
>> X1 GMRAFN3+3*, GMRAFN3+10
>> X2 GMRAFN3+2*, GMRAFN3+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All