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.01

Package: Lab Service

LABORATORY TEST(#60)-->60.01

Sub-Field: 60.01


Information

Parent File Name Number Package
LABORATORY TEST(#60) SITE/SPECIMEN 60.01 Lab Service

Details

Field # Name Loc Type Details
.01 SITE/SPECIMEN 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#61)

  • INPUT TRANSFORM:  S %A=$P(^LAB(60,DA(1),0),U,5) K:'$L(%A) X I $D(X) S DINUM=X,%A=$O(^LAB(60,"C",%A,0)) I %A'=DA(1) K X,DINUM W !,"Site/specimens may only be added for ",$P(^LAB(60,%A,0),U,1)
  • LAST EDITED:  MAR 18, 1985
  • HELP-PROMPT:  To enter a Site/specimen, a Data name must be entered.
  • DESCRIPTION:  
    Processing specimen type for each entry in the Lab Collection Sample field.  Example:  Sodium can be determined on serum and urine.  To enter a Site/specimen, a Data name must be entered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  60.01^B
    1)= S ^LAB(60,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(60,DA(1),1,"B",$E(X,1,30),DA)
1 REFERENCE LOW 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1024!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
  • LAST EDITED:  SEP 21, 2011
  • HELP-PROMPT:  ANSWER MUST BE 0-1024 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
  • DESCRIPTION:  This is the user entered reference low value for this test. If both the low and high are defined it will print in this manner:
    low : 10
    high : 50 If only the low is defined and it is numeric it will print in this manner:
    low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
    NORMAL If only the high is defined and it is numeric it will print in this manner:
    high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
    >1000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 REFERENCE HIGH 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1024!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
  • LAST EDITED:  SEP 21, 2011
  • HELP-PROMPT:  ANSWER MUST BE 0-1024 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
  • DESCRIPTION:  This is the user entered reference high value for this test. If both the low and high are defined it will print in this manner:
    low : 10
    high : 50 If only the low is defined and it is numeric it will print in this manner:
    low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
    NORMAL If only the high is defined and it is numeric it will print in this manner:
    high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
    >1000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 CRITICAL LOW 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1024!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
  • LAST EDITED:  JAN 24, 2007
  • HELP-PROMPT:  ANSWER MUST BE 0-1024 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
  • DESCRIPTION:  This is the user entered critical low value for this test. Used to flag results. If both the low and high are defined it will print in this manner:
    low : 10
    high : 50 If only the low is defined and it is numeric it will print in this manner:
    low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
    NORMAL If only the high is defined and it is numeric it will print in this manner:
    high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
    >1000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 CRITICAL HIGH 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1024!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
  • LAST EDITED:  JAN 24, 2007
  • HELP-PROMPT:  ANSWER MUST BE 0-1024 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
  • DESCRIPTION:  This is the user entered critical high value of this test. Used to flag results. If both the low and high are defined it will print in this manner:
    low : 10
    high : 50 If only the low is defined and it is numeric it will print in this manner:
    low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
    NORMAL If only the high is defined and it is numeric it will print in this manner:
    high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
    >1000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5.5 INTERPRETATION 1;0 WORD-PROCESSING #60.07

  • DESCRIPTION:  
    Enter any remark to accompany EVERY test result. These remarks may be edited and formatted with the FileMan text editor.  The text may be other range information, special conditions, etc.
6 UNITS 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X I $D(X) S DIC=90475.3,DIC(0)="MOQTVXZ" D ^DIC K DIC S:Y>0 X=$P(Y(0),"^",3) K:Y<0 X
  • HELP-PROMPT:  Answer must be 1-20 characters in length AND be a valid entry in the IHS UCUM file.
  • DESCRIPTION:  
    UNITS represents such things as grams, number of items per cubic millimeter, or microliter.
  • EXECUTABLE HELP:  S X="?",DIC(0)="Q",DIC=90475.3 D ^DIC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 TYPE OF DELTA CHECK 0;8 POINTER TO DELTA CHECKS FILE (#62.1) DELTA CHECKS(#62.1)

  • DESCRIPTION:  
    Points to DELTA CHECK file.
8 DELTA VALUE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    DELTA VALUE is the value that is passed to the Delta Check Code.
9 DEFAULT VALUE 0;10 FREE TEXT

  • INPUT TRANSFORM:  S %X=U_$P(^LAB(60,DA(1),0),U,12)_"0)" K:'$D(@%X) X Q:'$D(X) S %X=@%X X:$P(%X,U,2)'["S" $P(%X,U,5,99) Q:'$D(X)!($P(%X,U,2)'["S") S %X=";"_$P(%X,U,3) K:'(%X[(";"_X_":")) X
  • LAST EDITED:  DEC 07, 1984
  • HELP-PROMPT:  ANSWER MUST MATCH APPROPRIATE INPUT IN 'LAB DATA' FILE
  • DESCRIPTION:  
    Leave blank or enter the most common (say, >80% of the time) response for the test.
  • EXECUTABLE HELP:  S LRXDP=$P(^LAB(60,D0,0),U,12) I $L(LRXDP) S LRXDP=U_LRXDP_"0)" I $D(@LRXDP) S LRXDP=@LRXDP W:$D(^(3)) ^(3) D:$P(LRXDP,U,2)["S" LRSET^LRVER5
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.2 THERAPEUTIC LOW 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!(X["^") X I $D(X) S X="S X="_X D ^DIM I $D(X) S X=$E(X,5,256)
  • LAST EDITED:  JAN 24, 2007
  • HELP-PROMPT:  ENTER LOW END OF THERAPEUTIC RANGE (USE "QUOTES" AROUND TEXT)
  • DESCRIPTION:  This is the low end value of the therapeutic range. Used to flag results. If both the low and high are defined it will print in this manner:
    low : 10
    high : 50 If only the low is defined and it is numeric it will print in this manner:
    low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
    NORMAL If only the high is defined and it is numeric it will print in this manner:
    high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
    >1000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.3 THERAPEUTIC HIGH 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!(X["^") X I $D(X) S X="S X="_X D ^DIM I $D(X) S X=$E(X,5,256)
  • LAST EDITED:  JAN 24, 2007
  • HELP-PROMPT:  ENTER HIGH END OF THERAPEUTIC RANGE (USE "QUOTES" AROUND TEXT)
  • DESCRIPTION:  This is the high end value of the therapeutic range. Used to flag results. If both the low and high are defined it will print in this manner:
    low : 10
    high : 50 If only the low is defined and it is numeric it will print in this manner:
    low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
    NORMAL If only the high is defined and it is numeric it will print in this manner:
    high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
    >1000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 *AMIS/RCS 14-4 2;0 POINTER Multiple #60.06 60.06

  • DESCRIPTION:  
    No longer used.  Will be deleted after this version
13 USE FOR REFERENCE TESTING .1;1 SET

  • LAST EDITED:  FEB 11, 2003
  • HELP-PROMPT:  Should reference values/units for this specimen type also be used for reference lab results.
  • DESCRIPTION:  
    Indicates if the reference ranges and units associated with this specimen type can be used when manually entering results of testing performed at another laboratory.
15 CPT CODE 3;1 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  JUL 09, 1992
  • HELP-PROMPT:  Enter CPT code for this lab test.
16 PANEL (CPT) 3;2 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  JUL 09, 1992
  • HELP-PROMPT:  Enter CPT panel for this lab test
20 FOREIGN COMPUTER SYSTEM 4;0 Multiple #60.2 60.2

  • LAST EDITED:  JUN 22, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Reserved for future use. Do not use.
95.3 LOINC CODE 95.3;1 POINTER TO LAB LOINC FILE (#95.3)
************************REQUIRED FIELD************************
LAB LOINC(#95.3)

  • OUTPUT TRANSFORM:  I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_"-"_$P(^LAB(95.3,Y,0),U,15),1:Y)
  • LAST EDITED:  JUN 01, 2016
  • DESCRIPTION:  
    This field contains the pointer to the LAB LOINC (#95.3) file.
  • CROSS-REFERENCE:  60^AF
    1)= S ^LAB(60,"AF",$E(X,1,30),DA(1),DA)=""
    2)= K ^LAB(60,"AF",$E(X,1,30),DA(1),DA)
    This cross reference is used to determine which entries and specimens have been mapped/linked to LOINC Codes.
  • CROSS-REFERENCE:  60^AG^MUMPS
    1)= S ^LAB(60,"AG",DA(1),DA,$E(X,1,30))=""
    2)= K ^LAB(60,"AG",DA(1),DA,$E(X,1,30))
    This X-Ref is used to determine which lab test and specimen combination has been mapped/linked to a LOINC code.
96 SPECIMEN CPT 3;0 POINTER Multiple #60.196 60.196
999999 QUALITATIVE VALUES 999999;0 Multiple #60.1999999 60.1999999

  • LAST EDITED:  JUN 18, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
Info |  Details |  All