Routine: GMRALAB0

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC D^DIQ ^DIR
Adverse Reaction Tracking	2	^GMRADSP7 ($$LDATE,ADD,DEL,EDIT)^GMRALAB1
Health Summary	1	(GMTSLRCE,XTRCT)^GMTSLRCE
Kernel	1	$$VERSION^XPDUTL

Package

Total

Call Graph

VA Fileman

^%DT C^%DTC D^DIQ ^DIR

Adverse Reaction Tracking

^GMRADSP7 ($$LDATE,ADD,DEL,EDIT)^GMRALAB1

Health Summary

(GMTSLRCE,XTRCT)^GMTSLRCE

Kernel

$$VERSION^XPDUTL

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRAFDA GMRALAB1 GMRAROBS

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRAFDA GMRALAB1 GMRAROBS

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;DISPLAY ALL THE LABTEST FOR THIS PATIENT
DTEX
EN1	;THIS PROGRAM IS TO FIND AND PRINT ALL LAB TEST FOR A PATIENT
LST	;This entry point is to display patient lab test adverse reaction.
EXIT	;EXIT THE PROGRAM
DT	;SELECT LOOKUP DATE RANGE
DISP2
SELECT

External References

Name	Field # of Occurrence
^%DT	DT+4, DT+6
C^%DTC	DT+4, DT+6
D^DIQ	DT+4, DT+5, DT+6, DT+7
^DIR	SELECT+6, DISP2+4, LST+6
^GMRADSP7	EN1+7
$$LDATE^GMRALAB1	LST+13
ADD^GMRALAB1	SELECT+8
DEL^GMRALAB1	SELECT+9
EDIT^GMRALAB1	SELECT+10
GMTSLRCE^GMTSLRCE	EN1+3
XTRCT^GMTSLRCE	DISP+5
$$VERSION^XPDUTL	EN1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: SELECT+0
Function Call: WRITE	Prompt: ! Line Location: SELECT+9
Function Call: WRITE	Prompt: ! Line Location: SELECT+10
Function Call: WRITE	Prompt: @IOF,!,"LAB TEST:",!,?3,"Collection DT",?19,"Test Name",?39,"Specimen",?52,"Results",?68,"Hi/Low",!! Line Location: DISP2+0
Function Call: WRITE	Prompt: ?50,$P(^TMP($J,"GMRALAB","L",GMRACH),U,5) Line Location: DISP2+12
Function Call: WRITE	Prompt: $P(^TMP($J,"GMRALAB","L",GMRACH),U,8),"/",$P(^TMP($J,"GMRALAB","L",GMRACH),U,7) Line Location: DISP2+14
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS NO LAB TEST ON FILE FOR THIS ADVERSE REACTION REPORT" Line Location: LST+1
Function Call: WRITE	Prompt: @IOF,!,"This patient has the following Test selected: " Line Location: LST+2
Function Call: WRITE	Prompt: !,"TEST/TX",?33,"RESULTS",?64,"DRAW DATE/TIME" Line Location: LST+3
Function Call: WRITE	Prompt: ! Line Location: DT+3
Routine Call	DIR Line Location: SELECT+6 DISP2+4 LST+6

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DISP+5
^GMR(120.85 - [#120.85]	EN1+6, LST+1, LST+4, LST+11, LST+12, LST+13
^TMP($J	EN1+5!, DISP+1!, DISP+9*, DISP2+1, DISP2+2, DISP2+9, DISP2+10, DISP2+11, DISP2+12, DISP2+13 , DISP2+14, EXIT+1!

Name	Line Occurrences
DT	DISP+3
DTEX	DT+4, DT+6
EXIT	EN1+1, SELECT+6, SELECT+8, SELECT+9, SELECT+10
LST	SELECT
SELECT	SELECT+8, SELECT+9, SELECT+10, SELECT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DT+4!, DT+6!, DTEX!
%DT("A"	DT+4, DT+6
%DT("B"	DT+4, DT+6
%DT(0	DT+6*
DA	EN1+2~
>> DFN	DISP+2*, DISP+5
DIE	EN1+2~
DIR	SELECT+3!, SELECT+6!, SELECT+7!, DISP2+5!, LST+7!, EXIT+1!
DIR("?"	SELECT+4, SELECT+5
DIR("A"	SELECT+3*
DIR(0	SELECT+3, DISP2+4, LST+6*
DIROUT	DISP2+4, DISP2+5!, LST+6, LST+7!
DIRUT	DISP2+5!, LST+7!
DTOUT	DISP2+5!, LST+7!
DUOUT	DISP2+5!, LST+7!
GMRABGDT	DISP+5, DISP2+1!, LST+1!, DT+2, DT+4, DT+5, DT+6, EXIT+1!
GMRACH	DISP+1, DISP2+2, DISP2+9, DISP2+10, DISP2+11, DISP2+12, DISP2+13, DISP2+14, DISP2+17!
GMRACT	DISP+1, DISP+7, DISP+9*, DISP2+17!
GMRADFL	SELECT+7!, SELECT+8, DT+3!, DT+4, DT+6, EXIT+1!
GMRADT	EN1+6*, DT+4, DT+6, EXIT+1!
GMRAENDT	DISP+5, DISP2+1!, LST+1!, DT+2, DT+6, DT+7, EXIT+1!
GMRAGHC	EN1+2~
GMRALOOK	SELECT+8!, DISP+4, DT+1, EXIT+1!
>> GMRALRCG	EN1+4*, EN1+5, DISP+1, DISP+7, DISP+8, DISP+9, EXIT+1
>> GMRALRCV	EN1+3*, EN1+4, DISP+5, DISP2+1
>> GMRAOUT	EN1+1, SELECT+2, SELECT+6, SELECT+8, SELECT+9, SELECT+10, DISP+3, DISP2+2, DISP2+3, DISP2+4* , DISP2+6, LST+4, LST+5, LST+6, LST+8, DT+4, DT+6*
>> GMRAPA	EN1+7
>> GMRAPA(0	DISP+2
>> GMRAPA1	EN1+6, LST+1, LST+4, LST+11, LST+12, LST+13
GMRASEL	SELECT+7*, SELECT+8, SELECT+9, SELECT+10, EXIT+1!
>> GMRASEX	DISP+5
GMRAX	EN1+2~, DISP+7, DISP2+17!, LST+4, LST+11, LST+12, LST+13, LST+16!
GMRAXX	LST+4, LST+11, LST+14, LST+16!
GMRAXXX	EN1+2~
GMRAY	DISP+8*, DISP2+17!
GMRAZ	DISP2+17!
GMTS1	DISP+5*, DISP+6!
GMTS2	DISP+5*, DISP+6!
IOF	EN1+2, DISP2, DISP2+7, LST+2, LST+9
IOSL	DISP2+3, LST+5
LRDFN	DISP+5*, DISP+6!
MAX	DISP+5*, DISP+6!
SEX	DISP+5*, DISP+6!
U	EN1+6, DISP+5, DISP2+9, DISP2+10, DISP2+11, DISP2+12, DISP2+13, DISP2+14, LST+11, LST+12 , LST+13, DT+5, DT+7
X	DISP2+17!, DT+4, DT+6, DTEX!, EXIT+1!
X1	DT+4, DT+6, DTEX!
X2	DT+4, DT+6, DTEX!
Y	SELECT+6, SELECT+7, DISP2+4, DISP2+5!, DISP2+17!, LST+6, LST+7!, DT+4, DT+5, DT+6 , DT+7, DTEX!, EXIT+1!
>> Z	DISP2*, DISP2+9

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRALAB0

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items