Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Details | All

Print Page as PDF

Sub-Field: 60.03

Package: Lab Service

LABORATORY TEST(#60)-->60.03

Sub-Field: 60.03

Information

Parent File	Name	Number	Package
LABORATORY TEST(#60)	COLLECTION SAMPLE	60.03	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	COLLECTION SAMPLE	0;1	POINTER TO COLLECTION SAMPLE FILE (#62)	COLLECTION SAMPLE(#62) INPUT TRANSFORM: `I $P(^LAB(60,DA(1),0),U,8),$O(^(3,0))>0 W " ONLY ONE UNIQUE COLLECTION SAMPLE" K X` LAST EDITED: `MAR 11, 1993` DESCRIPTION: `Enter the appropriate collection sample(s) for standard processing in the lab. These are the common names the phlebotomists and ward personnel use and would recognize. The first entry will be the "default " collection` sample. Points to the COLLECTION SAMPLE file. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^60.03^2` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(60.03,.01,1,1,1.1) X ^DD(60.03,.01,1,1,1.4) 1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=Y(1) 1.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=60.03,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(60.03,.01,1,1,2.1) X ^DD(60.03,.01,1,1,2.4) 2.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=Y(1) 2.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=60.03,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= COLLECTION SAMPLE:TUBE TOP COLOR DELETE VALUE)= COLLECTION SAMPLE:TUBE TOP COLOR FIELD)= CONTAINER CROSS-REFERENCE: `60.03^AB` 1)= S ^LAB(60,DA(1),3,"AB",$E(X,1,30),DA)="" 2)= K ^LAB(60,DA(1),3,"AB",$E(X,1,30),DA) CROSS-REFERENCE: `60.03^B` 1)= S ^LAB(60,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^LAB(60,DA(1),3,"B",$E(X,1,30),DA)
1	FORM NAME/NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: The identification of the proper Lab slip for this test.
2	CONTAINER		COMPUTED	MUMPS CODE: `X ^DD(60.03,2,9.2) S D0=$P(Y(60.03,2,1),U,1) S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(60.03,2,101)=$S($D(^LAB(62,D0,0)):^(0),1:"") S X=$P(Y(60.03,2,101),U,3) S D0=Y(60.03,2,80) S D1=Y(60.03,2,81)` 9.2 = S Y(60.03,2,81)=$S($D(D1):D1,1:""),Y(60.03,2,80)=$S($D(D0):D0,1:""),Y(60.03,2,1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"") ALGORITHM: `COLLECTION SAMPLE:TUBE TOP COLOR` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: This entry uses the COLLECTION SAMPLE field to navigate to the COLLECTION SAMPLE file and retrieve the TUBE TOP COLOR field value. NOTES: `TRIGGERED by the COLLECTION SAMPLE field of the COLLECTION SAMPLE sub-field of the LABORATORY TEST File`
3	MIN VOL (in mls.)	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JAN 26, 1984` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 9999` DESCRIPTION: Number of milliliters required to perform the test. This number is summed during the creation of the routine phlebotomy collection list to compute the minimum number of samples to collect.
4	MAX. ORDER FREQ.	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3650)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 15, 2016` HELP-PROMPT: `Type an integer between 1 and 3650.` DESCRIPTION: `Use this field to control how often a test may be ordered within a certain time period (# of days). The entry will then force the system to remind the ordering person that the order they are placing for this test exceeds` the maximum order frequency. If you enter 3, the test may only be ordered once every three days.
4.5	SINGLE DAY MAX ORDER FREQ	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 28, 1989` HELP-PROMPT: `Type a Number between 1 and 50, 0 Decimal Digits -- Enter the number of times this test may be ordered in one day.` DESCRIPTION: Enter a number specifying the maximum number of times a test can be ordered in a single day.
5	WARD REMARKS	1;0	WORD-PROCESSING #60.04	DESCRIPTION: Text to be seen by the ward each time the test is ordered for a specific collection sample.
6	LAB PROCESSING INSTRUCTIONS	2;0	WORD-PROCESSING #60.05	DESCRIPTION: Text seen by the lab as the test is received in the accession room.
7	REQUIRED COMMENT	0;6	POINTER TO EXECUTE CODE FILE (#62.07)	EXECUTE CODE(#62.07) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 27, 1984` DESCRIPTION: Enter a comment or statement that may be required in regards to this test. Points to EXECUTE CODE file. SCREEN: `S DIC("S")="I $P(^(0),U,3)=""C"""` EXPLANATION: `ONLY ALLOW COMMENTS CODE`
500	SAMPLE WKLD CODE	9;0	POINTER Multiple #60.14	60.14 LAST EDITED: `MAR 15, 1991` DESCRIPTION: `If there is a particular WKLD code which is associate the assaying this type of specimen, enter that WKLD code here. For example spinal fluid electrophoresis, this specimen must be concentrated before the procedure can` be performed.

Info | Details | All