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: 68.04

Package: Lab Service

ACCESSION(#68)-->68.01-->68.02-->68.04

Sub-Field: 68.04


Information

Parent File Name Number Package
68.02 TESTS 68.04 Lab Service

Details

Field # Name Loc Type Details
.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  MAR 25, 1993
  • DESCRIPTION:  
    The pointers to the Laboratory Tests for this accession.
  • CROSS-REFERENCE:  68.04^B
    1)= S ^LRO(68,DA(3),1,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(68,DA(3),1,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)
1 URGENCY OF TEST 0;2 POINTER TO URGENCY FILE (#62.05)
************************REQUIRED FIELD************************
URGENCY(#62.05)

  • LAST EDITED:  NOV 09, 1984
  • DESCRIPTION:  
    The urgency of the test being completed, e.g. stat, routine, etc.
2 LOAD LIST ENTRY 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  JAN 23, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The load/work list location is stored here in ";" piece format.  "load list pointer;tray;cup"
3 TECHNOLOGIST 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 02, 1992
  • DESCRIPTION:  
    The DUZ of the person verifying the test.  NOTE: This field previously contained technologist initials.  Converted with the release of version 5.2.
4 COMPLETE DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 14, 1991
  • HELP-PROMPT:  Null or 0 represents an incomplete test, date/time represents when completed.
  • DESCRIPTION:  
    If null, the test is incomplete.  Otherwise, it is the date/time of completion.
  • CROSS-REFERENCE:  68.04^AC^MUMPS
    1)= S ^LRO(68,DA(3),1,DA(2),1,"AC",X,DA(1))=""
    2)= K ^LRO(68,DA(3),1,DA(2),1,"AC",X,DA(1))
  • CROSS-REFERENCE:  68.04^AD^MUMPS
    1)= S ^LRO(68,DA(3),1,DA(2),1,"AD",+$P(X,".",1),DA(1))=""
    2)= K ^LRO(68,DA(3),1,DA(2),1,"AD",+$P(X,".",1),DA(1))
  • CROSS-REFERENCE:  68^AA^MUMPS
    1)= S A=$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7) S:'A ^LRO(68,"AA",DA(3)_"|"_DA(2)_"|"_DA(1)_"|"_DA)=""
    2)= K ^LRO(68,"AA",DA(3)_"|"_DA(2)_"|"_DA(1)_"|"_DA)
    Sets x-ref for WKLD workload
  • CROSS-REFERENCE:  ^^TRIGGER^68.04^5.1
    1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(68.04,4,1,4,1.1) X ^DD(68.04,4,1,4,1.4
    )
    1.1)= S X=DIV S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
    1.4)= S DIH=$S($D(^LRO(68,DIV(0),1,DIV(1),1,DIV(2),4,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=68.04,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(68.04,4,1,4,2.1) X ^DD(68.04,4,1,4,2.4
    )
    2.1)= S X=DIV S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
    2.4)= S DIH=$S($D(^LRO(68,DIV(0),1,DIV(1),1,DIV(2),4,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=68.04,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= Use to indicate some change has be make to the complete date.
    CREATE VALUE)= S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
    DELETE VALUE)= S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
    FIELD)= TALL
    This trigger sets the Amis Tally field to 0
5 DISPOSITION 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  NOV 19, 1998
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
5.1 TALLY TO WKLD 0;7 SET
  • '1' FOR YES;
  • '0' FOR HAS NOT;

  • LAST EDITED:  NOV 05, 1993
  • DESCRIPTION:  If test was counted for WKLD workload, workload file entry
    is entered here.
    This flag prevents the test from being counted
    more than once.
    UNEDITABLE
  • NOTES:  TRIGGERED by the COMPLETE DATE field of the TESTS sub-field of the ACCESSION NUMBER sub-field of the DATE sub-field of the ACCESSION File
6 WKLD CODE 1;0 POINTER Multiple #68.14 68.14

  • DESCRIPTION:  
    This sub file is devoted entirely to workload functions. The data is stuffed automatically by routines at the time of verification of the test.
7 *IDENTITY 7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  JAN 10, 1991
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    Will deleted in future versions.
8 WKLD SUFFIX 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  FEB 08, 1991
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  This field contains the WKLD code suffix used to identify the method used to verify this particular test. The suffix is stuffed at the time of verification automatically. This field can be used to sort methods used to
    assay various test.
    The decimal point of the WKLD code suffix is stripped off.
8.1 PARENT TEST 0;9 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  DEC 11, 1996
  • DESCRIPTION:  
    This field contains the parent ordered test. In the case of panel test, this field will contain the original ordered test.
9 SHIPPING MANIFEST 0;10 POINTER TO LAB SHIPPING MANIFEST FILE (#62.8) LAB SHIPPING MANIFEST(#62.8)

  • LAST EDITED:  APR 22, 1997
  • HELP-PROMPT:  Enter the shipping manifest that this test is on.
  • DESCRIPTION:  This fields is used at the collection site to determine the exact placement of each test. This field will contain the shipping manifest code for referral or send out lab tests. For all local tests the field will be
    null.
Info |  Details |  All