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.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:  D IT600101^LRXREF1(.DA,.DINUM,.X)
  • LAST EDITED:  SEP 08, 2016
  • HELP-PROMPT:  To enter a Site/specimen, a Data name must be entered and Site/specimen must be active.
  • 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.
  • AUDIT:  YES, ALWAYS
  • 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)
  • FIELD INDEX:  ASPECCR (#1423) MUMPS ACTION
    Short Descr: Cross Reference for the Specimen create date
    Description: This cross reference is to set the specimen create date if this is a new specimen for the test.
    Set Logic: D NSP^LRMLED(DA,$G(DA(1)))
    Set Cond: S X=$S('$D(LRMLTFREC):1,1:0)
    Kill Logic: Q
    Kill Cond: S X=0
    X(1): SITE/SPECIMEN (60.01,.01) (forwards)
1 REFERENCE LOW 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($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:  APR 10, 2016
  • HELP-PROMPT:  ANSWER MUST BE 0-50 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
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AMLTFNTRT (#1422)
2 REFERENCE HIGH 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($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:  APR 10, 2016
  • HELP-PROMPT:  ANSWER MUST BE 0-50 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
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AMLTFNTRT (#1422)
3 CRITICAL LOW 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($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:  APR 10, 2016
  • HELP-PROMPT:  ANSWER MUST BE 0-50 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
  • RECORD INDEXES:  AMLTFNTRT (#1422)
4 CRITICAL HIGH 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($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:  APR 10, 2016
  • HELP-PROMPT:  ANSWER MUST BE 0-50 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
  • RECORD INDEXES:  AMLTFNTRT (#1422)
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)>10!($L(X)<1) X
  • LAST EDITED:  APR 10, 2016
  • HELP-PROMPT:  ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    UNITS represents such things as grams, number of items per cubic millimeter, or microliter.
  • RECORD INDEXES:  AMLTFNTRT (#1422)
7 TYPE OF DELTA CHECK 0;8 POINTER TO DELTA CHECKS FILE (#62.1) DELTA CHECKS(#62.1)

  • LAST EDITED:  APR 10, 2016
  • DESCRIPTION:  
    Points to DELTA CHECK file.
  • RECORD INDEXES:  AMLTFNTRT (#1422)
8 DELTA VALUE 0;9 FREE TEXT

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

  • INPUT TRANSFORM:  N LRX S LRX=U_$P(^LAB(60,DA(1),0),U,12)_"0)" K:'$D(@LRX) X Q:'$D(X) S LRX=@LRX X:$P(LRX,U,2)'["S" $P(LRX,U,5,99) Q:'$D(X)!($P(LRX,U,2)'["S") S LRX=";"_$P(LRX,U,3) K:'(LRX[(";"_X_":")) X
  • LAST EDITED:  APR 10, 2016
  • 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:  N LRXDP S LRXDP=$P(^LAB(60,D0,0),U,12) I LRXDP'="" S LRXDP=U_LRXDP_"0)" I $D(@LRXDP) S LRXDP=@LRXDP D:$D(^(3)) EN^DDIOL(^(3)) D:$P(LRXDP,U,2)["S" LRSET^LRVER5
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AMLTFNTRT (#1422)
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:  APR 10, 2016
  • 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
  • RECORD INDEXES:  AMLTFNTRT (#1422)
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:  APR 10, 2016
  • 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
  • RECORD INDEXES:  AMLTFNTRT (#1422)
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:  APR 10, 2016
  • 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.
  • RECORD INDEXES:  AMLTFNTRT (#1422)
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.
30 MLTF NUMBER 6;1 POINTER TO MASTER LABORATORY TEST FILE (#66.3) MASTER LABORATORY TEST(#66.3)

  • INPUT TRANSFORM:  S DIC("S")="I '$$SCREEN^XTID(66.3,.01,+Y_"","")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 02, 2016
  • HELP-PROMPT:  Enter a partial match for the Master Lab Test Name and select an Item displayed or '^' to quit.
  • DESCRIPTION:  
    This is the MLTF pointer to 66.3.
  • SCREEN:  S DIC("S")="I '$$SCREEN^XTID(66.3,.01,+Y_"","")"
  • EXPLANATION:  Inactive MLTF items will not be selectable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^60.01^31
    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,1,D1,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="" I +DIV>0 S X=$$GET1^DIQ(66.3,DIV_",",.01) X ^DD(60.01,30,1,1,1.4)
    1.4)= S DIH=$G(^LAB(60,DIV(0),1,DIV(1),6)),DIV=X S $P(^(6),U,2)=DIV,DIH=60.01,DIG=31 D ^DICR
    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,1,D1,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LAB(60,DIV(0),1,DIV(1),6)),DIV=X S $P(^(6),U,2)=DIV,DIH=60.01,DIG=31 D ^DIC
    R
    CREATE VALUE)= S X="" I +DIV>0 S X=$$GET1^DIQ(66.3,DIV_",",.01)
    DELETE VALUE)= @
    FIELD)= MLTF NAME
    This picks up the MLTF Name for the MLTF Number and saves it in the MLTF NAME.
  • RECORD INDEXES:  AMLTFEDIT (#1421)
31 MLTF NAME 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  JUN 08, 2016
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    This is the MLTF Test Name from 66.3.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the MLTF NUMBER field of the SITE/SPECIMEN sub-field of the LABORATORY TEST File
32 RESULT/SPECIMEN INACTIVE 5;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAR 10, 2016
  • HELP-PROMPT:  Enter Y if specimen is inactive, N if the specimen is active.
  • DESCRIPTION:  
    This field indicates if the Specimen is inactive.
    WRITE AUTHORITY:^
    UNEDITABLE
  • NOTES:  TRIGGERED by the RESULT/SPECIMEN INACTIVE DATE field of the SITE/SPECIMEN sub-field of the LABORATORY TEST File
33 RESULT/SPECIMEN INACTIVE DATE 5;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 29, 2016
  • HELP-PROMPT:  Enter the date that the Specimen was determined to be inactive.
  • DESCRIPTION:  
    This is the date that a Specimen is determined to be inactive.
  • CROSS-REFERENCE:  ^^TRIGGER^60.01^32
    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,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X="Y" X ^DD(60.01,33,1,2,1.4)
    1.4)= S DIH=$G(^LAB(60,DIV(0),1,DIV(1),5)),DIV=X S $P(^(5),U,1)=DIV,DIH=60.01,DIG=32 D ^DICR
    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,1,D1,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^LAB(60,DIV(0),1,DIV(1),5)),DIV=X S $P(^(5),U,1)=DIV,DIH=60.01,DIG=32 D ^DIC
    R
    CREATE VALUE)= "Y"
    DELETE VALUE)= @
    FIELD)= RESULT/SPECIMEN INACTIVE
    if there is a inactivation date set field 32 to Y for yes.
  • RECORD INDEXES:  AMLTFEDIT (#1421)
34 EXCEPTION FLAG 5;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 10, 2016
  • HELP-PROMPT:  Enter Y if the specimen has been sent to NTRT
  • DESCRIPTION:  
    If the Exception Flag is Y the Test/Specimen has been sent to NTRT for evaluation.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:^
    UNEDITABLE
  • RECORD INDEXES:  AMLTFEDIT (#1421)
35 SPECIMEN CREATE DATE 5;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 29, 2016
  • HELP-PROMPT:  Enter the date that the Specimen was created.
  • DESCRIPTION:  
    The date the specimen was created.
  • RECORD INDEXES:  AMLTFEDIT (#1421), AMLTFNTRT (#1422)
95.3 LOINC CODE 95.3;1 POINTER TO LAB LOINC FILE (#95.3) 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:  DEC 11, 2001
  • DESCRIPTION:  
    This field contains the pointer to the LAB LOINC (#95.3) file.
  • AUDIT:  YES, ALWAYS
  • 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
Info |  Details