Routine: GMTSLRSC

Information

GMTSLRSC ; SLC/JER,KER - Sel Cum Lab Comp w/Sel Items ; 01/06/2003

Name	Comments	DBIA/ICR reference
MAIN	; Selected Cumulative Lab w/Selection Items
DISPLAY	; Displays up to 7 tests across page
WRTHDR	; Writes Column Header
WRT	; Writes the Lab Record
WRTCOMM	; Writes the lab Comments
RES(X)	; Results
INVRT	; Inverts Global Array ; ; From: ^TMP("LRS",$J,IT,IX)=CDT^SPC^TNM^RSLT^FLAG^UNIT^LO^HI ; To: ^TMP("LRSR",$J,IX,IT)=GMI,CDT,SPC,RSLT,FLAG

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+10
Function Call: WRITE	Prompt: $C(7),!?10," Additional Results available outside occurrence limit ",! Line Location: DISPLAY+13
Function Call: WRITE	Prompt: "Collection DT" Line Location: WRTHDR+2
Function Call: WRITE	Prompt: ?19,$S(+$G(GMCMNT):" ",1:""),"Spec" Line Location: WRTHDR+3
Function Call: WRITE	Prompt: ?(((8*GMI+25)+(7-$L(HDR(GMI))\2))),$E(HDR(GMI),1,7) Line Location: WRTHDR+4
Function Call: WRITE	Prompt: ! Line Location: WRTHDR+5
Function Call: WRITE	Prompt: ! Line Location: WRTHDR+6
Function Call: WRITE	Prompt: $E($G(GMCOM("DT",IX)),1),?2,$P(GMX,U,2),?19,$E($P($P(GMX,U,3),";",2),1,5) Line Location: WRT+7
Function Call: WRITE	Prompt: $P(GMX,U,2),?19,$E($P($P(GMX,U,3),";",2),1,5) Line Location: WRT+8
Function Call: WRITE	Prompt: ?(8*TAB+25),$P(GMX,U,4)," ",$P(GMX,U,5) Line Location: WRT+9
Function Call: WRITE	Prompt: "COMMENTS:",! Line Location: WRTCOMM+3
Function Call: WRITE	Prompt: "COMMENTS:",! Line Location: WRTCOMM+8
Function Call: WRITE	Prompt: ?3,$G(^TMP("LRS",$J,"C",+IX,GMLINE)),! Line Location: WRTCOMM+10