Routine: GMTSLRS

Information

GMTSLRS ; SLC/JER,KER - Sel Lab Component w/Selection Items ; 01/06/2003

Source file <GMTSLRS.m>

Package	Total	Call Graph
Health Summary	1	CKP^GMTSUP
VA Fileman	1	$$GET1^DIQ

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

Name	Field # of Occurrence
$$GET1^DIQ	MAIN+2
CKP^GMTSUP	MAIN+13, MAIN+14, WRTHDR+1, WRT+1, WRT+11

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",?68,"Ref Range",! Line Location: WRTHDR+2
Function Call: WRITE	Prompt: $P(GMX,U),?18,$P($P(GMX,U,2),";",2) Line Location: WRT+3
Function Call: WRITE	Prompt: ?24,"!! " Line Location: WRT+4
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+6
Function Call: WRITE	Prompt: ?58,$P(GMX,U,6),?68,$J($P(GMX,U,7),4),?73,"-",?74,$J(GMTSI,4),! Line Location: WRT+7
Function Call: WRITE	Prompt: "Comment: ",^TMP("LRS",$J,"C",IX,GMLINE),! Line Location: WRT+12

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+4, WRT+8, WRT+10, WRT+12

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+4*
GMCMNT	MAIN+1~, MAIN+4*, WRT+4, WRT+8
GMLINE	MAIN+1~, WRT+9, WRT+10, WRT+12
>> 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+2~, WRT+5, WRT+7
>> GMTSNDM	MAIN+3
>> GMTSNPG	WRT+2
>> GMTSOBJ	WRTHDR+3
>> GMTSQIT	MAIN+5, MAIN+8, MAIN+9, MAIN+10, MAIN+13, MAIN+14, WRTHDR+1, WRT+1, WRT+11
GMW	MAIN+1~, PANEL+1~
GMX	MAIN+1~, MAIN+11*, WRT+3, WRT+5, WRT+6, WRT+7
INDX	PANEL+1~, PANEL+2*
IT	MAIN+1~, MAIN+9*, MAIN+10, MAIN+11, WRT+8
IX	MAIN+1~, MAIN+10*, MAIN+11, WRT+4, WRT+8, WRT+10, WRT+12
LRDFN	MAIN+1~, MAIN+2*
MAX	MAIN+1~, MAIN+3*
PTEST	MAIN+1~, MAIN+6, PANEL+2
RWIDTH	MAIN+1~, MAIN+2*
TEST	MAIN+1~, MAIN+6, MAIN+7, PANEL+1~, PANEL+2
U	MAIN+4, MAIN+7, PANEL+2, WRT+3, WRT+5, WRT+6, WRT+7