Routine: GMTSLRSE

Information

GMTSLRSE ; SLC/JER,KER - Selected Lab Test Extract ; 09/21/2001

Source file <GMTSLRSE.m>

Package	Total	Call Graph
Health Summary	2	$$RESULT^GMTSLRCE (DEM,REGDTM4)^GMTSU

Package	Total	Caller Graph
Health Summary	2	GMTSLRS7 GMTSLRSC

Name	Comments	DBIA/ICR reference
XTRCT	; Extract Selected Lab Test ; ; Call with LRDFN lab patient ; GMTS1 begin date ; GMTS2 end date ; MAX occurence limit ; SEX "M" or "F" ; TEST IFN to ^LAB(60) ; RWIDTH optional ; ; Returns ^TMP("LRS",$J,GMTSI,IDRWDT)= ; DRWDT^SPEC^TEST^RESULT^FLAG^UNIT^LO^HI ; ; Where GMTSI=Order (1 to MAX) ; IDRWDT=9999999-Draw Date/time ; DRWDT=Draw Date/Time (internal) ; SPEC=Specimen (int;ext) ; TEST=Test (int;ext) ; RESULT=Numeric Result ; FLAG=Reference flag (H,H,L,L) ; UNIT=Unit of measure (ext) ; LO=Reference/Therapeutic Lower bound ; HI=Ref/Ther Upper Bound ;	ICR #293 Status: Retired Usage: Private ICR #2799 Status: Retired Usage: Private
CHEM	; Gets all Chemistry tests w/in time/occurrence constraints
CHSET	; Sets Chemistry locals for printing

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	XTRCT+24, XTRCT+25, CHEM+1, CHSET+6, CHSET+7
^LAB(61 - [#61]	CHSET+5
^LR - [#63]	CHEM+2, CHSET+2, CHSET+5, CHSET+13, CHSET+15
^TMP("LRS"	XTRCT+24!, CHSET+10, CHSET+12, CHSET+15

Name	Line Occurrences
CHEM	XTRCT+25
CHSET	CHEM+2

Name	Field # of Occurrence
^(	CHEM+2, CHSET+2, CHSET+6
^(0	CHSET+6, CHSET+7

Name	Field # of Occurrence
AGE	XTRCT+24~, XTRCT+25*
CNT	XTRCT+24~, XTRCT+25, CHEM+2
COM	XTRCT+24~, CHSET+14, CHSET+15
DESCR	CHSET+1~, CHSET+7*, CHSET+8
DRWDT	CHSET+1~, CHSET+2, CHSET+4, CHSET+12
FLAG	CHSET+1~, CHSET+2*, CHSET+12
GMI	XTRCT+24~, CHSET+15*
GMIDT	CHSET+1~, CHSET+10, CHSET+11, CHSET+12, CHSET+15
>> GMTS1	CHEM+1
>> GMTS2	CHEM+2
>> GMTSAGE	XTRCT+25
>> GMTSI	XTRCT+24, CHSET+10, CHSET+12
HI	CHSET+1~, CHSET+8*, CHSET+9, CHSET+12
IDRWDT	CHEM+1~, CHEM+2, CHSET+2, CHSET+5, CHSET+10, CHSET+11, CHSET+13, CHSET+15
LO	CHSET+1~, CHSET+8*, CHSET+9, CHSET+12
>> LRDFN	CHEM+2, CHSET+2, CHSET+5, CHSET+13, CHSET+15
>> MAX	CHEM+2
PTR	CHEM+1~*, CHEM+2, CHSET+2
RESULT	CHSET+1~, CHSET+2, CHSET+3, CHSET+12
>> RWIDTH	CHSET+3
SITE	CHSET+1~, CHSET+5*, CHSET+7
SPEC	CHSET+1~, CHSET+5*, CHSET+12
>> TEST	XTRCT+24, XTRCT+25, CHEM+1, CHSET+3, CHSET+6, CHSET+7
THER	CHSET+1~, CHSET+7*, CHSET+8
TNM	CHSET+1~, CHSET+6*, CHSET+12
U	XTRCT+24, XTRCT+25, CHEM+1, CHEM+2, CHSET+2, CHSET+5, CHSET+6, CHSET+7, CHSET+8, CHSET+12
UNIT	CHSET+1~, CHSET+8*, CHSET+12
X	XTRCT+24~, CHSET+4*!