Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
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 D EN^DDIOL("ONLY ONE UNIQUE COLLECTION SAMPLE","","?0") K X
  • LAST EDITED:  AUG 29, 2008
  • HELP-PROMPT:  Enter the appropriate collection sample for standard processing in the lab.
  • 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.
  • AUDIT:  YES, ALWAYS
  • 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
    This cross reference uses the COLLECTION SAMPLE field to navigate to the COLLECTION SAMPLE file and retrieve the TUBE TOP COLOR field value and store in CONTAINER field (#2).
  • 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>120)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 18, 2019
  • HELP-PROMPT:  Enter the timeframe in number of days (between 1 and 120) that the test should be ordered to be collected only once.
  • DESCRIPTION:  Use this field to control how often a test may be ordered to be collected within a certain time period (# of days). If you enter "3", the test should only be ordered to be collected once every three days. The entry will
    then force CPRS to remind the ordering person that the order being placed for this test exceeds the maximum order frequency.
4.5 SINGLE DAY MAX ORDER FREQ 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 18, 2019
  • HELP-PROMPT:  Enter the maximum number of times (between 1 and 50) that a test should be ordered to be collected within a single day.
  • DESCRIPTION:  If this test should not be ordered to be collected more than a certain number of times per day, enter a number (between 1 and 50) specifying the maximum frequency per day. The entry will then cause CPRS to remind the
    ordering person that the order being placed for this test exceeds the "single day maximum frequency" for the specified collection date.
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