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

Package: Lab Service

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

Sub-Field: 68.02


Information

Parent File Name Number Package
68.01 ACCESSION NUMBER 68.02 Lab Service

Details

Field # Name Loc Type Details
.001 LOG NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  MAR 14, 2005
  • HELP-PROMPT:  Type a number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The numeric part of the accession.
.01 LRDFN 0;1 POINTER TO LAB DATA FILE (#63)
************************REQUIRED FIELD************************
LAB DATA(#63)

  • LAST EDITED:  JUL 26, 1989
  • DESCRIPTION:  
    The internal pointer to file 63 is stored here.
  • CROSS-REFERENCE:  68.02^AE^MUMPS
    1)= Q  ;S:ACCESSION HAS BEEN COUNTED FOR WKLD ^LRO(68,LRAA,1,LRAD,1,LRAN,"AE")=""
    2)= Q  ;NOT KILLED
  • CROSS-REFERENCE:  68.02^AVS^MUMPS
    1)= Q  ;S ^LRO("AVS",LRAA,LRAD,LRAN)=LRDFN_U_LRIDT
    2)= Q
.02 PARENT FILE COMPUTED

  • MUMPS CODE:  X ^DD(68.02,.02,9.2) S Y(68.02,.02,101)=$S($D(^LR(D0,0)):^(0),1:"") S X=$S('$D(^DIC(+$P(Y(68.02,.02,101),U,2),0)):"",1:$P(^(0),U,1)) S D0=Y(68.02,.02,2)
    9.2 = S Y(68.02,.02,2)=$S($D(D0):D0,1:""),Y(68.02,.02,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""),D0=$P(Y(68.02,.02,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
  • ALGORITHM:  LRDFN:PARENT FILE
  • DESCRIPTION:  
    The computed field for the File # (field 1).
.03 NAME COMPUTED

  • MUMPS CODE:  X ^DD(68.02,.03,9.2) S Y(68.02,.03,101)=$S($D(^LR(D0,0)):^(0),1:""),Y(68.02,.03,102)=X,Y=$P(Y(68.02,.03,101),U,3) X:$D(^DD(63,.03,2)) ^(2) S X=Y S D0=Y(68.02,.03,2)
    9.2 = S Y(68.02,.03,2)=$S($D(D0):D0,1:""),Y(68.02,.03,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""),D0=$P(Y(68.02,.03,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
  • ALGORITHM:  LRDFN:NAME
  • DESCRIPTION:  
    The computed field for the entity's name.
.09 HOSPITAL ID COMPUTED

  • MUMPS CODE:  X ^DD(68.02,.09,9.2) X $P(^DD(63,.09,0),U,5,99) S Y(68.02,.09,101)=X S X=Y(68.02,.09,101) S D0=Y(68.02,.09,2)
    9.2 = S Y(68.02,.09,2)=$S($D(D0):D0,1:""),Y(68.02,.09,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""),D0=$P(Y(68.02,.09,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
  • ALGORITHM:  LRDFN:HOSPITAL ID
  • LAST EDITED:  JAN 23, 1984
  • DESCRIPTION:  
    The computed field for the entity's hospital ID.
1 FILE # 0;2 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  DEC 11, 2001
  • DESCRIPTION:  
    The pointer to the File of Files for the entity in field .01 is stored here.
2 ORIGINAL ACCN DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 1984
  • DESCRIPTION:  
    The date part of the original accession is stored here.
3 DATE ORDERED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    The date the order was placed is stored here.
4 SPECIMEN NUMBER 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 23, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
  • DESCRIPTION:  
    The internal specimen number is stored here.
5 IDENTITY 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-11 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The identity from e.g. reference labs etc. is stored here.
  • CROSS-REFERENCE:  68.02^C
    1)= S ^LRO(68,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)=""
    2)= K ^LRO(68,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)
6 REPORT ROUTING LOCATION 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X I $D(X) X:X="?" ^DD(68.02,6,4) Q:X="?" S LRLLOC=X,DIC(0)="EQMZ",DIC=44 D ^DIC S:$D(Y(0)) X=$P(Y(0),U,1) X:Y<1 ^DD(68.02,6,9.2) Q:'$D(X) S:X']"" X="UNK" S:$D(LRDFN) ^LR(+LRDFN,.1)=X
    9.2 = K X R !?3,"NON-STANDARD LOCATION!, OK? N//",YN:300 I $T S:YN["Y" X=LRLLOC
  • LAST EDITED:  SEP 18, 1989
  • DESCRIPTION:  
    The service/location from which the original order came.  The report is routed back to this location.
  • EXECUTABLE HELP:  S X="?",DIC(0)="Q",DIC="^SC(",D="B" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6.5 PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
    9.2 = K X R !?3,"PROVIDER NOT ON FILE!,  OK? N//",YN:300 I $T S:YN["Y" X=PROV
  • LAST EDITED:  NOV 30, 1993
  • DESCRIPTION:  
    The internal number of the provider requesting the test(s) is stored here.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Selection must be made from active PROVIDERS who hold the PROVIDER security key.
6.6 TREATING SPECIALITY 0;9 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
************************REQUIRED FIELD************************
FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  FEB 04, 1986
  • DESCRIPTION:  
    The treating specialty of the location requesting the test.
  • TECHNICAL DESCR:  
    This node may be set from the default treating specialty field (#607) of the LABORATORY SITE file (#69.9). The 19th. peice of LRPARAM variable.
6.7 LOG-IN PERSON 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    The pointer to the person (NEW PERSON file) creating this accession is stored here.
8 HARDWARE SPECIAL NUMBERS 2;E1,200 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  MAY 31, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Data from automated instruments may be stored here for debugging purposes.
9 DRAW TIME 3;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 08, 1988
  • DESCRIPTION:  
    The date/time the specimen was taken.
10 DATE/TIME OBTAINED INEXACT 3;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 14, 1987
  • DESCRIPTION:  
    This field has a "NO" if the draw time is estimated or unknown.
11 TESTS 4;0 POINTER Multiple #68.04 68.04

  • DESCRIPTION:  
    The pointers to the Laboratory Tests for this accession.
12 LAB ARRIVAL TIME 3;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    The date/time the specimen arrived at the lab.
  • CROSS-REFERENCE:  68.02^E
    1)= S ^LRO(68,DA(2),1,DA(1),1,"E",$E(X,1,30),DA)=""
    2)= K ^LRO(68,DA(2),1,DA(1),1,"E",$E(X,1,30),DA)
13 DATE/TIME RESULTS AVAILABLE 3;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 13, 1990
  • DESCRIPTION:  
    The date/time all results for the accession are available.
  • CROSS-REFERENCE:  68^AC^MUMPS
    1)= D AC^LRXREF1
    2)= D AC1^LRXREF1
  • CROSS-REFERENCE:  68.02^AVS^MUMPS
    1)= D:$D(DIU(0)) AVS1^LRXREF D:'$D(DIU(0)) AVS3^LRXREF
    2)= D:$D(DIU(0)) AVS2^LRXREF D:'$D(DIU(0)) AVS4^LRXREF
13.5 INVERSE DATE 3;5 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=9999999-Y K:Y<1 X
  • LAST EDITED:  JUL 13, 1987
  • DESCRIPTION:  
    9999999 minus the internal entry in field 9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13.6 COMMENT 3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  APR 11, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    A one line comment for the accession.
14 ORDER # .1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The original order number is stored here.
  • CROSS-REFERENCE:  68.02^D
    1)= S ^LRO(68,DA(2),1,DA(1),1,"D",$E(X,1,30),DA)=""
    2)= K ^LRO(68,DA(2),1,DA(1),1,"D",$E(X,1,30),DA)
15 ACCESSION .2;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7) X
  • LAST EDITED:  MAR 03, 2005
  • HELP-PROMPT:  ANSWER MUST BE ACCESSION, e.g., CH 0428 125
  • DESCRIPTION:  
    The printable form of the Accession is stored here.
15.1 IN COMMON ACCESSION AD;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<7) X
  • LAST EDITED:  MAR 03, 2005
  • HELP-PROMPT:  Answer must be 7-15 characters in length
  • DESCRIPTION:  
    When this accession area is 'in common' with another accession area the printable form of the 'in common' accession is stored here.
16 UID .3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<10) X
  • LAST EDITED:  FEB 26, 1997
  • HELP-PROMPT:  Answer must be 10-15 characters in length.
  • DESCRIPTION:  This is the UID used by the HOST LEDI system for this order/accession.
    This field is used by the LEDI software.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  68^C
    1)= S:'$D(^LRO(68,"C",$E(X,1,30))) ^LRO(68,"C",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^LRO(68,"C",$E(X,1,30),DA(2),DA(1),DA)
    3)= DO NOT DELETE THIS XREF
16.1 ORDERING SITE .3;2 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $G(^DIC(4,Y,99))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 26, 1997
  • DESCRIPTION:  This field contains the pointer to the INSTITUTION file for the MailMan domain location of the computer system. All LEDI results are returned to the Ordering computer system.
    Location to send LEDI HL7 result messages.
    This field is used by LEDI software.
  • SCREEN:  S DIC("S")="I $G(^DIC(4,Y,99))"
  • EXPLANATION:  Select Sites with station numbers only
  • CROSS-REFERENCE:  68^AF
    1)= S ^LRO(68,"AF",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^LRO(68,"AF",$E(X,1,30),DA(2),DA(1),DA)
16.2 COLLECTING SITE .3;3 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 26, 1997
  • DESCRIPTION:  This field contain the pointer to the INSTITUTION file for the actual collection site. The ordering site is the MailMan location of the computer system. MailMan domain location and the collecting site may be different.
    This field is used by LEDI software.
16.3 HOST UID .3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<10) X
  • LAST EDITED:  FEB 26, 1997
  • HELP-PROMPT:  Answer must be 10-15 characters in length.
  • DESCRIPTION:  Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software is used to accession specimens, usually the collecting sites UID is used to track specimens. If the collecting UID conflict
    is the HOST system number sequence, the HOST UID will be used instead of the collecting site's UID.
    This field is used by LEDI software.
  • CROSS-REFERENCE:  68^D
    1)= S:'$D(^LRO(68,"D",$E(X,1,30))) ^LRO(68,"D",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^LRO(68,"D",$E(X,1,30),DA(2),DA(1),DA)
16.4 ORDERING SITE UID .3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<10) X
  • LAST EDITED:  FEB 26, 1997
  • HELP-PROMPT:  Answer must be 10-15 characters in length.
  • DESCRIPTION:  This field contains the collecting sites UID for this specimen.
    This field is used by LEDI software.
26 DIV .4;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  AUG 10, 1995
  • DESCRIPTION:  
    This field contains the division of the person ordering the test for this accession number. The DUZ(2) is used to determine the division pointer. In some cases this field may be blank, example auto accession controls.
  • CROSS-REFERENCE:  68.01^AC
    1)= S ^LRO(68,DA(2),1,"AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^LRO(68,DA(2),1,"AC",$E(X,1,30),DA(1),DA)
    This cross reference is used to determine which accession belong to a particular division. Every accession may not appear in this X-Ref. Care should be taken when using the X-Ref.
30 PCE ENC # PCE;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 05, 2002
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  This field contains a list of PCE Encounters generated for this accession. If there are multiple encounter numbers for this accession, they are separated by ';'.
    This field is only populated if professional service PCE workload is generated. This is usually the type of PCE workload generated by Pathologist reporting anatomical pathology services.
    PCE workload is only generated for those hospital locations with the type of clinic, module or other. No PCE workload is generated for in-patient locations.
50 SPECIMEN 5;0 POINTER Multiple #68.05 68.05

  • DESCRIPTION:  
    The site/specimen from the Topography Field file.  There may be more than one specimen for certain types of accessions.
60 NUMBER OF SLIDES 6;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 02, 1983
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 20
  • DESCRIPTION:  
    The number of slides prepared for path examination.
61 PARAFFIN BLOCK(S) 6;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 02, 1983
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  
    The number of paraffin blocks prepared for path examination.
80 PROGRESS NOTES 7;0 Multiple #68.06 68.06

  • DESCRIPTION:  
    Progress notes on the accession.
91 CURRENT ACCESSION DATE 9;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 01, 1985
  • HELP-PROMPT:  Don't change
  • DESCRIPTION:  
    This field is set by the roll-over routine in the original accession to point to the current accession date for accessions that have rolled over.
92 LOCATION TYPE 0;11 SET

  • LAST EDITED:  JAN 20, 1996
  • DESCRIPTION:  This field holds the type of hospital location. $P(^SC(X,0),U,3) It is used primarily for WKLD calculations. Since the patient may be discharged or admitted before the WKLD calculation routines run. This field
    holds a permanent location type.
93 COUNT FOR WKLD 0;12 SET

  • LAST EDITED:  NOV 05, 1993
  • HELP-PROMPT:  Enter 1 if this accession number has been counted for WKLD
  • DESCRIPTION:  This field is set to 1 if this accession has been counted for workload. This is set automatically by the tally routines.
    NOTE: THIS FIELD SHOULD NOT BE SET MANUALLY.
  • CROSS-REFERENCE:  68.02^AE^MUMPS
    1)= I $D(^LRO(68,DA(2),1,DA(1),DA,0)),$P(^(0),U,12) S ^("AE")=""
    2)= I $D(^LRO(68,DA(2),1,DA(1),DA,0)),'$P(^(0),U,12) K ^("AE")
94 ORDERING LOCATION 0;13 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JAN 10, 1990
  • HELP-PROMPT:  This is the location that is ordering the test.
  • DESCRIPTION:  
    This field contains the location placing the order for this patient.
Info |  Details |  All