Routine: GMRAFN3

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

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

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

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!

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

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFN3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: