Routine: GMRAFN2

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRAFN1

Entry Points

Name	Comments	DBIA/ICR reference
AGE	;Age at time of event
SUSPECT	;THIS WILL GET THE NEXT SUSPECTED AGENT
FORM	;This is the main form entry point
SEX	;Sex,weight

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SUSPECT+20
^GMR(120.85 - [#120.85]	SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
^TMP($J	SUSPECT+1, SUSPECT+2, SUSPECT+7, SUSPECT+9, SUSPECT+13, SUSPECT+14, SUSPECT+16, SUSPECT+17, SUSPECT+25, SUSPECT+26 , SUSPECT+28, SUSPECT+29

Name	Field # of Occurrence
^(0	SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36
^(1	SUSPECT+16, SUSPECT+17, SUSPECT+28, SUSPECT+29

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	SUSPECT+20
DT	SUSPECT+16, SUSPECT+17, SUSPECT+28, SUSPECT+29
>> GMRADOB	FORM+10, AGE+1
>> GMRAGNT1	SUSPECT+2*, SUSPECT+4, SUSPECT+13, SUSPECT+14, SUSPECT+15
>> GMRAGNT2	SUSPECT+9*, SUSPECT+10, SUSPECT+25, SUSPECT+26, SUSPECT+27
>> GMRAID	FORM+11
>> GMRAPA1	SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
>> GMRAPA1(0	AGE+1
>> GMRAPG1	FORM+6, AGE+1, AGE+2, SEX+1, SEX+2, SUSPECT+20, SUSPECT+21, SUSPECT+23, SUSPECT+24, SUSPECT+33 , SUSPECT+34, SUSPECT+36, SUSPECT+37, SUSPECT+38, SUSPECT+43
>> GMRAPG2	FORM+6
>> GMRASEX	SEX+1
>> GMRASUS	SUSPECT+1, SUSPECT+2, SUSPECT+3, SUSPECT+7, SUSPECT+8, SUSPECT+9
>> GMRASUS1	SUSPECT+1, SUSPECT+2, SUSPECT+3, SUSPECT+4, SUSPECT+13, SUSPECT+14, SUSPECT+15, SUSPECT+16, SUSPECT+17
>> GMRASUS2	SUSPECT+7, SUSPECT+8, SUSPECT+10, SUSPECT+25, SUSPECT+26, SUSPECT+27, SUSPECT+28, SUSPECT+29, SUSPECT+31
>> GMRAWEI	SEX+1
>> LINE1	FORM+2, FORM+4, FORM+6, FORM+9, SUSPECT+5, SUSPECT+11, SUSPECT+13, SUSPECT+18, SUSPECT+36, SUSPECT+37
>> LINE2	FORM+7, SUSPECT+5
U	AGE+1, SEX+1, SUSPECT+4, SUSPECT+10, SUSPECT+13, SUSPECT+14, SUSPECT+15, SUSPECT+16, SUSPECT+17, SUSPECT+20 , SUSPECT+23, SUSPECT+25, SUSPECT+26, SUSPECT+27, SUSPECT+28, SUSPECT+29, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
X	AGE+1*!
X1	AGE+1!, SUSPECT+19, SUSPECT+20, SUSPECT+23, SUSPECT+33, SUSPECT+36, SUSPECT+39, SUSPECT+40
X2	AGE+1!, SUSPECT+32, SUSPECT+35*
>> Y	SUSPECT+20*

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFN2

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: