Routine: GMRASIG1

Package	Total	Call Graph
Adverse Reaction Tracking	4	ENDPG^GMRADSP3 OUTPUT^GMRAPEM1 EN1^GMRAPET0 ALLSNG^GMRASIGN
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package

Total

Call Graph

ENDPG^GMRADSP3 OUTPUT^GMRAPEM1 EN1^GMRAPET0 ALLSNG^GMRASIGN

$$FMTE^XLFDT

^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRASIGN

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PRINT	;Print out data to be signed off on
PNOTE	; Generate a Progress Note for a patient
ENCNT	; Count how many entries where selected and set up Sort order
PAGE	;PAGE
YNSO	;Select sign off for a patient

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"ADVERSE REACTION",!,"----------------" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?12,"Obs d/t: ",$$FMTE^XLFDT($P(^GMR(120.85,$O(^GMR(120.85,"C",GMRAPA,0)),0),U)) Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+22
Function Call: WRITE	Prompt: (GMRACNTT+1),") All of the above",! Line Location: PRINT+27
Function Call: WRITE	Prompt: (GMRACNTT+2),") None of the above",! Line Location: PRINT+28
Function Call: WRITE	Prompt: @IOF,! Line Location: PAGE+3
Function Call: WRITE	Prompt: @IOF,!,"Causative Agent Data edited this Session:" Line Location: YNSO+1
Function Call: WRITE	Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+1,") All by itself." Line Location: YNSO+11
Function Call: WRITE	Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+2,") None by itself." Line Location: YNSO+12
Routine Call	DIR Line Location: YNSO+7

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	PRINT+8, PRINT+12, PRINT+14, PRINT+15, PNOTE+7
^GMR(120.85 - [#120.85]	PRINT+10
^GMRD(120.83 - [#120.83]	PRINT+13, PRINT+15
^TMP($J	PRINT+6, ENCNT+2!, ENCNT+3, ENCNT+5, ENCNT+6, ENCNT+7, ENCNT+9!, ENCNT+10*, ENCNT+11!

Name	Field # of Occurrence
>> DFN	PNOTE+11
DIR	PRINT+1~, PAGE+1~, YNSO+3!, YNSO+7!
DIR("?"	YNSO+6*
DIR("A"	YNSO+5*
DIR(0	YNSO+3, YNSO+4
>> DTOUT	YNSO+8
>> DUOUT	YNSO+8
>> GMRACNT	PRINT+5, PRINT+6, PRINT+7, YNSO+11, YNSO+12
>> GMRACNTT	PRINT+7, PRINT+25, PRINT+27, PRINT+28, ENCNT+2, ENCNT+4, ENCNT+6, ENCNT+7, YNSO+3
>> GMRADRG	PRINT+8*
GMRAFLL	PNOTE+4~, PNOTE+10, PNOTE+11
GMRAFLL(	PNOTE+8*
>> GMRAG	PRINT+8*, PRINT+9, PRINT+10
GMRAHEAD	PRINT+11!
>> GMRAI	PRINT+5*
>> GMRALL	YNSO+3*, YNSO+9, YNSO+11
>> GMRANON	YNSO+3*, YNSO+8, YNSO+10, YNSO+12
>> GMRAOTH	PRINT+13*, PRINT+15
GMRAOUT	PRINT+6, PRINT+21, PRINT+22, PRINT+23, PAGE+2, PNOTE+2~*, PNOTE+11
>> GMRAPA	PRINT+2, PRINT+6, PRINT+8, PRINT+10, PRINT+12, PRINT+14, PRINT+15
GMRAREC	PRINT+12!, PRINT+14, PRINT+15, PRINT+16, PRINT+19, PRINT+21*
GMRAREC(	PRINT+15, PRINT+16, PRINT+19, PRINT+21
GMRAREC(""	PRINT+19
>> GMRASIGN	PRINT+3, PRINT+26
>> GMRASLL	PNOTE+3
>> GMRASLL(	PNOTE+5, PNOTE+6
>> GMRAUSER	PNOTE+1
IOF	PRINT+3, PAGE+3, YNSO+1
IOSL	PRINT+6, PRINT+21, PRINT+22
SUB	ENCNT+1~, ENCNT+5*, ENCNT+6, ENCNT+7
U	PRINT+8, PRINT+9, PRINT+10, PRINT+15, PRINT+16, PRINT+19, PRINT+21, PNOTE+7
X	PRINT+1~, PRINT+15, PRINT+16, PNOTE+4~, PNOTE+5, PNOTE+6, PNOTE+7, PNOTE+8, ENCNT+2, ENCNT+3 , ENCNT+5, ENCNT+6, ENCNT+7, YNSO+2!
Y	PRINT+1~, YNSO+8, YNSO+9, YNSO+10, YNSO+11, YNSO+12

Information