Routine: GMRAPT

Package	Total	Call Graph
Adverse Reaction Tracking	6	^GMRADSP7 EN1^GMRAPET0 PN^GMRAPT EN1^GMRAU85 UNLOCK^GMRAUTL $$DATE^GMRAUTL1
VA Fileman	5	NOW^%DTC FILE^DICN ^DIE ^DIK ^DIWP
Kernel	2	EN^XQOR KILL^XUSCLEAN
Registration	1	INP^VADPT

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA P&T EDIT GMRAPT

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;DISPLAY AND EDIT COMMENTS
HEAD	;
EXIT1	;EXIT IF NOT LOCKED
EDIT	;EDIT PT COMMENTS
REP1
EN1	; Entry for ENTER/EDIT P&T COMMITTEE DATA option
EXIT	; EXIT OF ROUTINE
PRINT	;PRINT OUT THE DATA
MAIN	;MAIN STARTING POINT
PN	;ENTER PROGRESS NOTE FOR A MedWATCH REPORT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",! Line Location: MAIN+4
Function Call: WRITE	Prompt: !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",! Line Location: MAIN+6
Function Call: WRITE	Prompt: @IOF,!,"P&T Report Completion" Line Location: REP1+0
Function Call: WRITE	Prompt: @IOF Line Location: REP1+9
Function Call: WRITE	Prompt: ! Line Location: REP1+24
Function Call: WRITE	Prompt: !,"P&T COMMITTEE ADDENDUM COMMENTS:" Line Location: DISP+3
Function Call: WRITE	Prompt: !!,"Date: ",$$DATE^GMRAUTL1(GMRAY) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?5,^UTILITY($J,"W",DIWL,GMRAXX,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"Press RETURN to continue or ""^"" to stop display or ""^^"" to QUIT: " Line Location: HEAD+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"ENTER 'RETURN' TO CONTINUE '^' TO STOP LISTING OR '^^' TO QUIT",$C(7) Line Location: HEAD+3
Routine Call	DIE Line Location: REP1+6 REP1+20 EDIT+5

FileNo	Call Tags
^GMR(120.85 - [#120.85]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	PN+3
^GMR(120.85 - [#120.85]	REP1+9, DISP+2, DISP+4, DISP+5, PN+4, PRINT+2, PRINT+5, EDIT+3, EDIT+6
^ORD(101 - [#101]	PN+6
^TMP("GMRA"	EXIT1+1!
^TMP($J	EXIT1+1!
^UTILITY($J	PRINT+4!, PRINT+6

Name	Field # of Occurrence
^(	PRINT+5
^(0	EDIT+3*

Name	Field # of Occurrence
>> %	EDIT+4
DA	REP1+2~, REP1+4, REP1+15~, REP1+17, EDIT+5*, EDIT+6
DA(1	EDIT+4*, EDIT+6
DD	EDIT+4!
DFN	PN+5~*
DIC	EDIT+4*, EDIT+5!
DIC(0	EDIT+4*
DIE	REP1+2~, REP1+3, REP1+15~, REP1+16, EDIT+5*, EDIT+6
DIE("NO^"	REP1+4, REP1+17
>> DIK	EDIT+6*
DINUM	EDIT+4!
>> DIWF	PRINT+3*
>> DIWL	PRINT+3*, PRINT+4, PRINT+6
>> DIWR	PRINT+3*
DLAYGO	EDIT+4*!
DO	EDIT+4!
DR	REP1+2~, REP1+5, REP1+15~, REP1+19, EDIT+5*
DTIME	HEAD+2
>> GMRALAGO	MAIN+1*
>> GMRAOUT	MAIN+1, REP1+8, REP1+9, REP1+10, REP1+13, REP1+22, REP1+23, REP1+24, DISP+1, DISP+4 , PN+1, PRINT+6, HEAD+2, EDIT+1, EDIT+2, EDIT+5
>> GMRAPA	MAIN+2*, PN+1, PN+3
>> GMRAPA(0	MAIN+4, PN+1, PN+3*, PN+5
>> GMRAPA1	MAIN+1, REP1+4, REP1+9, REP1+17, REP1+25, DISP+2, DISP+4, DISP+5, PN+4, PRINT+2 , PRINT+5, EDIT+3, EDIT+4, EXIT+1
>> GMRAPA1(0	PN+4*
>> GMRAX	DISP+4*, DISP+5, PRINT+2, PRINT+5
>> GMRAXX	PRINT+5, PRINT+6
>> GMRAY	DISP+5*, PRINT+1
IOF	REP1, REP1+9, HEAD+2
IOSL	PRINT+6
OROLD	PN+5~
U	MAIN+4, REP1+9, DISP+5, PN+1, PN+5
VAIN	PN+6!
X	REP1+12!, PN+6!, PRINT+5, HEAD+2!, EDIT+4
Y	REP1+8, REP1+12!, REP1+22, EDIT+4, EDIT+5