Routine: GMTSLRS

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Selected Lab w/Selection Items
PANEL	; Visits "PANEL" multiple to get pointers to atomic tests
WRTHDR	; Prints columnar header
WRT	; Writes the Lab Record ; VMP/RJT - Lab Ref Range update

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+13
Function Call: WRITE	Prompt: "!! Indicates COMMENTS AVAILABLE...Refer to Interim Lab Report.",! Line Location: MAIN+15
Function Call: WRITE	Prompt: "Collection DT",?18,"Specimen" Line Location: WRTHDR+1
Function Call: WRITE	Prompt: ?29,"Test Name",?48,"Result",?58,"Units",?70,"Ref Range",! Line Location: WRTHDR+2
Function Call: WRITE	Prompt: $P(GMX,U),?18,$P($P(GMX,U,2),";",2) Line Location: WRT+4
Function Call: WRITE	Prompt: ?24,"!! " Line Location: WRT+5
Function Call: WRITE	Prompt: ?29,$E($P($P(GMX,U,3),";",2),1,17),?46,$P(GMX,U,4)," ",$P(GMX,U,5) Line Location: WRT+7
Function Call: WRITE	Prompt: ?58,$P(GMX,U,6),?67,$J("NEG",12),! Line Location: WRT+10
Function Call: WRITE	Prompt: ?58,$P(GMX,U,6),?TAB,REF,! Line Location: WRT+15
Function Call: WRITE	Prompt: "Comment: ",^TMP("LRS",$J,"C",IX,GMLINE),! Line Location: WRT+20

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

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142.99 - [#142.99]	MAIN+4
^LAB(60 - [#60]	MAIN+7, PANEL+2
^LR - [#63]	MAIN+2
^TMP("LRS"	MAIN+8, MAIN+9, MAIN+10, MAIN+11, MAIN+16!, WRT+5, WRT+16, WRT+18, WRT+20

Name	Field # of Occurrence
^(	PANEL+2

Name	Field # of Occurrence
BEGIN	MAIN+1~
CNT	MAIN+1~
>> DFN	MAIN+2
END	MAIN+1~
GMCFLAG	MAIN+1~, MAIN+12, WRT+5*
GMCMNT	MAIN+1~, MAIN+4*, WRT+5, WRT+16
GMLINE	MAIN+1~, WRT+17, WRT+18, WRT+20
>> GMTS2	MAIN+10
>> GMTSEG(	MAIN+3, MAIN+5, MAIN+6
>> GMTSEGN	MAIN+3, MAIN+5, MAIN+6
GMTSI	MAIN+1~, MAIN+5, MAIN+6, WRT+3~, WRT+6, WRT+11
>> GMTSNDM	MAIN+3
>> GMTSNPG	WRT+3
>> GMTSOBJ	WRTHDR+3
>> GMTSQIT	MAIN+5, MAIN+8, MAIN+9, MAIN+10, MAIN+13, MAIN+14, WRTHDR+1, WRT+2, WRT+19
GMW	MAIN+1~, PANEL+1~
GMX	MAIN+1~, MAIN+11*, WRT+4, WRT+6, WRT+7, WRT+10, WRT+11, WRT+15
INDX	PANEL+1~, PANEL+2*
ISNEG	WRT+2~, WRT+6*, WRT+10
IT	MAIN+1~, MAIN+9*, MAIN+10, MAIN+11, WRT+16
IX	MAIN+1~, MAIN+10*, MAIN+11, WRT+5, WRT+16, WRT+18, WRT+20
LRDFN	MAIN+1~, MAIN+2*
MAX	MAIN+1~, MAIN+3*
PTEST	MAIN+1~, MAIN+6, PANEL+2
REF	WRT+2~, WRT+11*, WRT+12, WRT+13, WRT+14, WRT+15
RWIDTH	MAIN+1~, MAIN+2*
TAB	WRT+2~, WRT+12, WRT+13, WRT+14*, WRT+15
TEST	MAIN+1~, MAIN+6, MAIN+7, PANEL+1~, PANEL+2
U	MAIN+4, MAIN+7, PANEL+2, WRT+4, WRT+6, WRT+7, WRT+10, WRT+11, WRT+15