Routine: GMTSLRPE

Package	Total	Call Graph
Health Summary	1	REGDT4^GMTSU
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Health Summary	1	GMTSLRCP

Entry Points

Name	Comments	DBIA/ICR reference
XTRCT	; Extract	ICR #2770 Status: Active Usage: Controlled Subscription
E	; Get Etiology Field data
D	; Get Disease Field data
M	; Get Morphology Field data
P	; Get Procedure Field data
CYSET	; Sets ^TMP("LRCY",$J, with appropriate data elements

Name	Field # of Occurrence
$$GET1^DIQ	D+3, M+3, E+3, P+3
REGDT4^GMTSU	CYSET+4

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	XTRCT+2, CYSET+2, CYSET+6, CYSET+8, CYSET+9, CYSET+10, CYSET+11, CYSET+12, CYSET+13, CYSET+14 , CYSET+15, CYSET+16, CYSET+17, D+1, D+2, M+1, M+2, E+1, E+2, P+1 , P+2
^TMP("LRCY"	XTRCT+1!, CYSET+5, CYSET+6, CYSET+8, CYSET+9, CYSET+10, CYSET+11, CYSET+14, CYSET+16, CYSET+17* , D+3, M+3, E+3, P+3

Name	Line Occurrences
CYSET	XTRCT+2
E	M+4

Name	Field # of Occurrence
^(0	CYSET+2

Name	Field # of Occurrence
ACC	CYSET+1~, CYSET+2*, CYSET+3, CYSET+5
CDT	CYSET+1~, CYSET+2, CYSET+4, CYSET+5
D1	CYSET+1~
D2	CYSET+1~
D3	CYSET+1~
DA	CYSET+1~
DIC	CYSET+1~
DIQ	CYSET+1~
DIS	D+1~
DR	CYSET+1~
DX	CYSET+1~
ETIOL	E+1~
GMD	D+1~*, D+2, D+3, M+2
GME	E+1~*, E+2, E+3
GMI	D+1~, D+2, D+3, M+1~, M+2, M+3, E+1~, E+2, E+3, P+1~ , P+2, P+3
GMM	M+1~*, M+3, E+1, E+2, E+3
GMP	P+1~*, P+2, P+3
>> GMTS1	XTRCT+1
>> GMTS2	XTRCT+2
ICD	CYSET+1~
IX	XTRCT+1~, XTRCT+2, CYSET+2, CYSET+5, CYSET+6, CYSET+8, CYSET+9, CYSET+10, CYSET+11, CYSET+12 , CYSET+13, CYSET+14, CYSET+15, CYSET+16, CYSET+17, D+1, D+2, D+3, M+1, M+2 , M+3, E+1, E+2, E+3, P+1, P+2, P+3
IX0	XTRCT+1~, XTRCT+2, CYSET+3
>> LRDFN	XTRCT+2, CYSET+2, CYSET+6, CYSET+8, CYSET+9, CYSET+10, CYSET+11, CYSET+12, CYSET+13, CYSET+14 , CYSET+15, CYSET+16, CYSET+17, D+1, D+2, M+1, M+2, E+1, E+2, P+1 , P+2
>> MAX	XTRCT+2
MORPH	M+1~
OT	CYSET+1~, CYSET+9, CYSET+10, CYSET+11, CYSET+12, CYSET+13, CYSET+14, CYSET+15, CYSET+16, CYSET+17* , D+1, D+2, D+3, M+1, M+2, M+3, E+1, E+2, E+3, P+1 , P+2, P+3
PROC	P+1~
RELEASE	CYSET+1~, CYSET+2*, CYSET+6, CYSET+7
SITE	CYSET+1~
SN	CYSET+1~, CYSET+8*
SR	CYSET+1~, CYSET+15*, CYSET+16
U	CYSET+2, CYSET+5, CYSET+6, CYSET+8, CYSET+13, CYSET+14, CYSET+16, CYSET+17
X	CYSET+1~, CYSET+4*!
YR	CYSET+1~