Routine: GMTSLRA

Package	Total	Call Graph
Health Summary	4	^GMTSLRAE $$WRAP^GMTSORC REGDTM4^GMTSU CKP^GMTSUP
VA FileMan	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Surgical Pathology
WRT	; Writes Surgical Pathology Record
WRTSPC	; Writes Specimen field entries
TEXT	; Handles GROSS DESCRIPTION & MICROSCOPIC EXAM/DX Print
SUPPR	; Writes Supplementary Report
WRTTM	; Writes Topography and Morphology
WRTP	; Writes Procedure field

Name	Field # of Occurrence
$$GET1^DIQ	MAIN+2
^GMTSLRAE	MAIN+3
$$WRAP^GMTSORC	TEXT+5, SUPPR+6, WRTP+6
REGDTM4^GMTSU	SUPPR+3
CKP^GMTSUP	MAIN+6, WRT+3, WRT+5, WRTSPC+2, WRTSPC+4, TEXT+2, TEXT+6, TEXT+7, SUPPR+3, SUPPR+8 , WRTTM+2, WRTTM+3, WRTTM+6, WRTTM+9, WRTTM+13, WRTP+2, WRTP+7, WRTP+8

Name	Line Occurrences
Function Call: WRITE	Prompt: ?8,"Collected:",?19,$P(X,U),?31,"Acc:",?36,$P(X,U,2),! Line Location: WRT+4
Function Call: WRITE	Prompt: "Surgeon/Physician:",?19,$G(SP),! Line Location: WRT+6
Function Call: WRITE	Prompt: ?9,"Specimen:" Line Location: WRTSPC+2
Function Call: WRITE	Prompt: ?19,^TMP("LRA",$J,IX,.1,GMS),! Line Location: WRTSPC+4
Function Call: WRITE	Prompt: ?(17-$L(X)),X_":",! Line Location: TEXT+2
Function Call: WRITE	Prompt: $P(GMTSLN,"\|"),! Line Location: TEXT+6
Function Call: WRITE	Prompt: "Supplementary Rpt: ",X,! Line Location: SUPPR+3
Function Call: WRITE	Prompt: ?7,"Topography:",?19,$P(X,U),! Line Location: WRTTM+2
Function Call: WRITE	Prompt: ?9,"Disease:" Condition for execution: GMD=1 Line Location: WRTTM+5
Function Call: WRITE	Prompt: ?21,^TMP("LRA",$J,IX,IX0,IX1,1,GMD),! Line Location: WRTTM+5
Function Call: WRITE	Prompt: ?7,"Morphology:",?21,^TMP("LRA",$J,IX,IX0,IX1,2,GMT),! Line Location: WRTTM+10
Function Call: WRITE	Prompt: ?9,"Etiology:" Condition for execution: GME=1 Line Location: WRTTM+13
Function Call: WRITE	Prompt: ?23,^TMP("LRA",$J,IX,IX0,IX1,2,GMT,1,GME),! Line Location: WRTTM+13
Function Call: WRITE	Prompt: ?7,"Procedures:" Line Location: WRTP+2
Function Call: WRITE	Prompt: ?21,$P(GMQ,"\|"),! Line Location: WRTP+7

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRA"	MAIN+4, MAIN+5, MAIN+7, MAIN+8, MAIN+9, MAIN+10, MAIN+11!, WRT+9, WRTSPC+4, TEXT+4 , SUPPR+3, SUPPR+5, WRTTM+3, WRTTM+5, WRTTM+6, WRTTM+8, WRTTM+10, WRTTM+12, WRTTM+13, WRTP+2 , WRTP+4, WRTP+5

Name	Field # of Occurrence
^(	WRT+9, TEXT+4, SUPPR+5

Name	Field # of Occurrence
>> DFN	MAIN+2
GMD	WRTTM+1~, WRTTM+4, WRTTM+5
GME	WRTTM+1~, WRTTM+11, WRTTM+12, WRTTM+13
GMI	MAIN+1~, MAIN+5*, MAIN+6
GMJ	WRT+1~
GMK	WRTP+1~, WRTP+8*
GMQ	WRTP+1~, WRTP+5, WRTP+6, WRTP+7, WRTP+8
GMS	WRTSPC+1~, WRTSPC+3, WRTSPC+4
GMT	WRTTM+1~, WRTTM+7, WRTTM+8, WRTTM+9, WRTTM+10, WRTTM+12, WRTTM+13, WRTP+3, WRTP+4, WRTP+5
GMTSLN	TEXT+1~, TEXT+4, TEXT+5, TEXT+6, TEXT+7
GMTSLNI	TEXT+1~, TEXT+7*
>> GMTSNDM	MAIN+3
>> GMTSNPG	MAIN+6
>> GMTSQIT	MAIN+5, MAIN+6, WRT+3, WRT+5, WRTSPC+2, WRTSPC+4, TEXT+2, TEXT+6, TEXT+7, SUPPR+3 , SUPPR+8, WRTTM+2, WRTTM+3, WRTTM+6, WRTTM+9, WRTTM+13, WRTP+2, WRTP+7, WRTP+8
GMTSR	SUPPR+1~, SUPPR+4, SUPPR+5
GMTSRL	SUPPR+1~, SUPPR+5, SUPPR+6, SUPPR+7, SUPPR+8
GMTSRLI	SUPPR+1~, SUPPR+8*
IX	MAIN+1~, MAIN+5*, MAIN+7, MAIN+8, MAIN+9, MAIN+10, WRT+9, WRTSPC+4, TEXT+4, SUPPR+3 , SUPPR+5, WRTTM+3, WRTTM+5, WRTTM+6, WRTTM+8, WRTTM+10, WRTTM+12, WRTTM+13, WRTP+2, WRTP+4 , WRTP+5
IX0	MAIN+1~, MAIN+7*, MAIN+8, WRT+2, WRT+7, WRT+8, WRT+9, TEXT+4, WRTTM+3, WRTTM+5 , WRTTM+6, WRTTM+8, WRTTM+10, WRTTM+12, WRTTM+13, WRTP+2, WRTP+4, WRTP+5
IX1	WRT+1~, WRT+9, SUPPR+2, SUPPR+3*, SUPPR+5, WRTTM+3, WRTTM+5, WRTTM+6, WRTTM+8, WRTTM+10 , WRTTM+12, WRTTM+13, WRTP+2, WRTP+4, WRTP+5
LN	TEXT+1~, TEXT+3, TEXT+4
LRDFN	MAIN+1~, MAIN+2*
MAX	MAIN+1~, MAIN+3*, MAIN+5
SP	MAIN+1~, MAIN+9*, WRT+5, WRT+6
SRDATE	SUPPR+1~, SUPPR+3*
U	WRT+4, WRTTM+2, WRTP+5
X	MAIN+1~, MAIN+8, WRT+4, WRT+9, TEXT+2, SUPPR+1~, SUPPR+3*, WRTTM+2