Routine: GMRAPEM1

Package	Total	Caller Graph
Adverse Reaction Tracking	8	GMRADSP2 GMRADSP3 GMRAPEE0 GMRAPEH0 GMRAPEM2 GMRAPEO0 GMRAPEV0 GMRASIG1

Entry Points

Name	Comments	DBIA/ICR reference
DISP
HEAD	;print a header
DISP1(GMRAPA,GMRAKIND,GMRAOUT)	;Display comments and reaction for a reaction ; Input variables: ; GMRAPA = Reaction IEN in 120.8 ; GMRAKIND = Kind of comment to display ; O is Originator ; V is Verifier ; E is Entered in Error ; GMRAOUT = Escape variable
EDIT	;Edit the word processing field.
ENDING	;Display and edit the word processing field for a patient reaction.
EXIT	;Exit point.
PRINT	;PRINT OUT THE DATA
OUTPUT	;Display the word processing field for a patient.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: ENDING+1
Function Call: WRITE	Prompt: !!,?5,$S(GMRAKIND="O":"ORIGINATOR",GMRAKIND="V":"VERIFIER",GMRAKIND="E":"ENTERED IN ERROR",1:"") Line Location: DISP1+9
Function Call: WRITE	Prompt: !,?6,"COMMENTS:" Line Location: DISP1+10
Function Call: WRITE	Prompt: !,?10,"Date: ",$$FMTE^XLFDT(GMRAY,1),?52,"User: ",GMRAZN Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?51,"Title: ",GMRAT Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?16,^UTILITY($J,"W",DIWL,GMRAXX,0) Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: PRINT+12
Routine Call	DIE Line Location: EDIT+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(3.1 - [#3.1]	PRINT+4
^GMR(120.8 - [#120.8]	DISP1+8, DISP1+11, DISP1+12, PRINT+7, PRINT+10, EDIT+3, EDIT+6
^UTILITY($J	PRINT+9!, PRINT+11
^VA(200 - [#200]	PRINT+2, PRINT+3

Name	Field # of Occurrence
^(	PRINT+10
^(0	DISP1+12, EDIT+3*

Name	Field # of Occurrence
>> %	EDIT+4
>> DA	EDIT+5*, EDIT+6
>> DA(1	EDIT+4*, EDIT+6
DD	EDIT+4!
DIC	EDIT+4*, EDIT+5!
DIC(0	EDIT+4*
>> DIE	EDIT+5*, EDIT+6
>> DIK	EDIT+6*
DINUM	EDIT+4!
>> DIWF	PRINT+8*
>> DIWL	PRINT+8*, PRINT+9, PRINT+11
>> DIWR	PRINT+8*
DLAYGO	EDIT+4*!
DO	EDIT+4!
DR	EDIT+5!*
DUZ	EDIT+5
GMRA	EDIT+2~
GMRAKIND	DISP1~, DISP1+8, DISP1+9, DISP1+11
GMRAOUT	DISP, DISP+1, DISP1~, DISP1+11, PRINT+11, EDIT+1, EDIT+2
GMRAPA	DISP+1, DISP1~, DISP1+8, DISP1+11, DISP1+12, PRINT+7, PRINT+10, EDIT+3, EDIT+4
GMRAT	PRINT+1~, PRINT+3, PRINT+4*, PRINT+6
GMRAVCM	EDIT+1*, EDIT+5, EXIT+1!
>> GMRAX	DISP1+11*, DISP1+12, PRINT+7, PRINT+10
>> GMRAXX	PRINT+10, PRINT+11
>> GMRAY	DISP1+12*, PRINT+5
>> GMRAYY	DISP+1*
>> GMRAZ	DISP1+12*, PRINT+2, PRINT+3
GMRAZN	PRINT+1~, PRINT+2, PRINT+5
IOF	ENDING+1
IOSL	PRINT+11
U	DISP1+12, PRINT+2, PRINT+3, PRINT+4
>> X	PRINT+10, EDIT+4
>> Y	EDIT+4, EDIT+5