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

Package: Lab Service

LAB ORDER ENTRY(#69)-->69.01

Sub-Field: 69.01


Information

Parent File Name Number Package
LAB ORDER ENTRY(#69) SPECIMEN # 69.01 Lab Service

Details

Field # Name Loc Type Details
.001 SPECIMEN # NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
  • DESCRIPTION:  
    The sequence number of individual specimens on orders for a given date.
.01 LRDFN 0;1 POINTER TO LAB DATA FILE (#63)
************************REQUIRED FIELD************************
LAB DATA(#63)

  • OUTPUT TRANSFORM:  S Y1=^DIC($P(^LR(Y(0),0),U,2),0,"GL")_$P(^LR(Y(0),0),U,3)_",0)",Y=$P(@Y1,U) K Y1
  • LAST EDITED:  AUG 30, 1990
  • DESCRIPTION:  
    The internal number in the Lab Data file 63.
  • CROSS-REFERENCE:  69.01^AA
    1)= S ^LRO(69,DA(1),1,"AA",$E(X,1,30),DA)=""
    2)= K ^LRO(69,DA(1),1,"AA",$E(X,1,30),DA)
  • CROSS-REFERENCE:  69^D^MUMPS
    1)= S ^LRO(69,"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^LRO(69,"D",$E(X,1,30),DA(1),DA)
.02 PARENT FILE COMPUTED

  • MUMPS CODE:  X ^DD(69.01,.02,9.2) S Y(69.01,.02,101)=$S($D(^LR(D0,0)):^(0),1:"") S X=$S('$D(^DIC(+$P(Y(69.01,.02,101),U,2),0)):"",1:$P(^(0),U,1)) S D0=Y(69.01,.02,2)
    9.2 = S Y(69.01,.02,2)=$S($D(D0):D0,1:""),Y(69.01,.02,1)=$S($D(^LRO(69,D0,1,D1,0)):^(0),1:""),D0=$P(Y(69.01,.02,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
  • ALGORITHM:  LRDFN:PARENT FILE
  • DESCRIPTION:  
    Computed field to give the parent file of the data in file 63.
.03 NAME COMPUTED

  • MUMPS CODE:  X ^DD(69.01,.03,9.2) S Y(69.01,.03,101)=$S($D(^LR(D0,0)):^(0),1:""),Y(69.01,.03,102)=X,Y=$P(Y(69.01,.03,101),U,3) X:$D(^DD(63,.03,2)) ^(2) S X=Y S D0=Y(69.01,.03,2)
    9.2 = S Y(69.01,.03,2)=$S($D(D0):D0,1:""),Y(69.01,.03,1)=$S($D(^LRO(69,D0,1,D1,0)):^(0),1:""),D0=$P(Y(69.01,.03,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
  • ALGORITHM:  LRDFN:NAME
  • DESCRIPTION:  
    Computed field to give the name of the entry of the data in file 63 from the parent file for that entry.
.11 OERR ORDER # 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  APR 09, 1996
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This field is used to store the OE/RR order number that links Lab with OE/RR.
1 ENTERING PERSON 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    Points to NEW PERSON file. Automatically stored.
2 SPECIMEN 4;0 POINTER Multiple #69.02 69.02

  • DESCRIPTION:  
    Points to the specimen(s) for the given order. (Some areas of lab treat a collection of samples as a SINGLE collection "sample").
3 COLLECTION SAMPLE 0;3 POINTER TO COLLECTION SAMPLE FILE (#62)
************************REQUIRED FIELD************************
COLLECTION SAMPLE(#62)

  • DESCRIPTION:  
    Points to the collection sample appropriate for the test(s) ordered.
4 LAB,IMM OR WARD COLLECT 0;4 SET

  • LAST EDITED:  JUN 01, 2001
  • DESCRIPTION:  
    This designates how the sample or specimen is to reach the lab.
5 DATE/TIME ORDERED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 07, 1995
  • HELP-PROMPT:  ENTER THE CURRENT DATE@TIME
  • DESCRIPTION:  
    Self explanatory.
  • CROSS-REFERENCE:  69^AZ
    1)= S ^LRO(69,"AZ",$E(X,1,30),DA(1),DA)=""
    2)= K ^LRO(69,"AZ",$E(X,1,30),DA(1),DA)
5.5 EST. DATE/TIME OF COLLECTION 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 16, 1985
  • DESCRIPTION:  
    This is the estimated time of the collection.
6 TEST 2;0 POINTER Multiple #69.03 69.03

  • DESCRIPTION:  
    The tests for the specimen.
7 PROVIDER 0;6 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="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 04, 1992
  • DESCRIPTION:  
    The person signing for the order.
  • 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.
8 REPORT ROUTING LOCATION 0;7 POINTER TO HOSPITAL LOCATION FILE (#44)
************************REQUIRED FIELD************************
HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  K:$L(X)<2!($L(X)>30) X I $D(X) X:X="?" ^DD(69.01,8,4) Q:X="?" S L1=X,DIC(0)="EQMZ",DIC=44 D ^DIC S:$D(Y(0)) X=$P(Y(0),U,1) X:Y<1 ^DD(69.01,8,9.2) Q:'$D(X) S:X']"" X="UNK" S:$D(LRDFN) ^LR(+LRDFN,.1)=X
  • OUTPUT TRANSFORM:  S Y(0)=Y
    9.2 = K X R !?3,"NON-STANDARD LOCATION!, OK? N//",YN:300 I $T S:YN["Y" X=L1
  • LAST EDITED:  FEB 09, 1995
  • DESCRIPTION:  
    The service or location from which the order is originating, and where the report will be returned.
  • 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
  • CROSS-REFERENCE:  69.01^AC
    1)= S ^LRO(69,DA(1),1,"AC",$E(X,1,30),DA)=""
    2)= K ^LRO(69,DA(1),1,"AC",$E(X,1,30),DA)
    3)= AC x-ref is set equal to 1 if the entry is on the collection list
  • CROSS-REFERENCE:  69.01^AD^MUMPS
    1)= I $P(^LRO(69,DA(1),1,DA,0),U,4)="LC" S ^LRO(69,DA(1),1,"AD",$E(X,1,30),$P(^LRO(69,DA(1),1,DA,0),U,1),DA)=""
    2)= K ^LRO(69,DA(1),1,"AD",$E(X,1,30),$P(^LRO(69,DA(1),1,DA,0),U,1),DA)
9.5 ORDER # .1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The unique assigned order number for an ordering session for one "patient".
  • CROSS-REFERENCE:  69^C^MUMPS
    1)= D C^LRXREF1
    2)= K ^LRO(69,"C",+X,DA(1),DA)
10 DATE/TIME OF COLLECTION 1;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT(0)="-N",%DT="EPSTX" D ^%DT K %DT(0) S X=Y K:Y<1 X
  • LAST EDITED:  MAR 18, 1994
  • HELP-PROMPT:  DATE/TIME CAN'T BE IN THE FUTURE
  • DESCRIPTION:  
    When the specimen was collected from the "patient".
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69^AZZ^MUMPS
    1)= S ^LRO(69,"AZZ",X,DA(1),DA)=""
    2)= K ^LRO(69,"AZZ",X,DA(1),DA)
    3)= FOR 5.2 CONVERSION CLEANUP
11 DATE/TIME OBTAINED INEXACT 1;2 SET

  • LAST EDITED:  JUL 14, 1987
  • DESCRIPTION:  
    If the time the specimen is obtained is not even approximate, this field is set to yes.
12 COLLECTOR 1;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  MAR 31, 1992
  • DESCRIPTION:  
    The phlebotomist who is accessioning the collected order.
13 COLLECTION STATUS 1;4 SET

  • LAST EDITED:  JUL 12, 2016
  • DESCRIPTION:  
    This indicates whether the order is collected or uncollected.
  • CROSS-REFERENCE:  69^AA^MUMPS
    1)= S:'$P(^LRO(69,DA(1),1,DA,0),U,10) ^LRO(69,"AA",+$G(^LRO(69,DA(1),1,DA,.1)),DA(1)_"|"_DA)=""
    2)= K ^LRO(69,"AA",+$G(^LRO(69,DA(1),1,DA,.1)),DA(1)_"|"_DA)
    This cross reference is used to tally WKLD work load. It is deleted after the tally has been made.
14 *VOLUME 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    No longer used.
15 COMMENT 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Single line comment about the order.
16 WARD COMMENTS ON SPECIMEN 6;0 WORD-PROCESSING #69.04

  • DESCRIPTION:  
    Comments about the order.
  • LAST EDITED:  OCT 01, 1984
  • DESCRIPTION:  
    Comments about the order.
20 LAB ARRIVAL TIME 3;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 29, 2000
  • DESCRIPTION:  
    Self explanatory.
21 DATE/TIME RESULTS AVAILABLE 3;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 06, 2011
  • HELP-PROMPT:  Enter the date/time the tests results were made available/released.
  • DESCRIPTION:  
    This is the date/time ALL results for this specimen are complete. The field is set by the software when the results are released and reported outside the laboratory system.
  • CROSS-REFERENCE:  69.01^AR^MUMPS
    1)= D AR2^LRXREF
    2)= D AR3^LRXREF
    Sets "AR" cross reference used to identify new lab results by date results available/location/patient ^LRO(69,'DATE RESULTS AVAILABLE',1,"AR",'LOCATION','PT. NAME',LRDFN)
  • CROSS-REFERENCE:  69.01^AP^MUMPS
    1)= D AP1^LRXREF
    2)= D AP2^LRXREF
    Sets "AP" cross-reference used to identify new lab results by date results available/provider/patient ^LRO(69,'DRAW DATE',1,"AP",'DOC NAME',PNM,LRDFN) = ""
  • CROSS-REFERENCE:  69.01^AL^MUMPS
    1)= D AL1^LRXREF
    2)= D AL2^LRXREF
    Sets "AL" cross-reference used to identify new lab results by date specimen collected/location/patient. ^LRO(69,'DRAW DATE',1,"AL",'LOCATION',PNM,LRDFN) = ""
  • CROSS-REFERENCE:  69^AN^MUMPS
    1)= D AN1^LRXREF
    2)= D AN2^LRXREF
    Sets "AN" cross-reference used to identify new lab results by location, patient and date. LRO(69,"AN",'LOCATION',LRDFN,LRIDT) = ""
  • CROSS-REFERENCE:  69.01^AN2^MUMPS
    1)= S ^LRO(69,DA(1),1,"AN",$E($P(^LRO(69,DA(1),1,DA,0),U,7),1,20),$P(^(0),U,1),9999999-$P(^LRO(69,DA(1),1,DA,1),U,1))=""
    2)= K ^LRO(69,DA(1),1,"AN",$E($P(^LRO(69,DA(1),1,DA,0),U,7),1,20),$P(^(0),U,1),9999999-$P(^LRO(69,DA(1),1,DA,1),U,1))
    Sets "AN" cross reference within an order date for location, patient and specimen date/time. LRO(69,DT,1,"AN",'LOCATION',LRDFN,LRIDT) = ""
22 MERGE ORDER # 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  MAR 29, 1989
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    If this order was merged with another order, the order number for that order is entered here. Automatically stuffed by the system.
23 ORDERING LOCATION 0;9 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  DEC 12, 1989
  • HELP-PROMPT:  This is the location that is ordering the test.
  • DESCRIPTION:  
    This field contains the location ordering the test and to whom completed results will be sent.
24 COUNTED FOR WORKLOAD 0;10 SET

  • LAST EDITED:  MAR 21, 1991
  • DESCRIPTION:  
    If this accession has been tallied to wkld totals, a yes will be stuffed into this field by the software which runs in the background.
25 INSTITUTION 1;8 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  APR 10, 1991
  • DESCRIPTION:  
    This field contains the institution entering the request for this particular test. This field becomes very important when dealing with multi-divisional sites.
30 PCE ENC # PCE;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 18, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  This field contains a list of PCE Encounters generated for this specimen. If ther are multiple laboratory accession areas required for this order, encounter numbers will be stored separated by
    semi-colons.
    This field is also used to control the building of the ^LRO(69,"AE") should LAB ORDER ENTRY (#69) file were to be re-indexed. If the field is defined then the Cancel By field DD(69.03,10,0) will not
    recreate the X-Reference. The ^LRO(69,"AE") cross reference is used to pass deleted test information to PCE so that the billing record can be updated.
21661.71 SUBSCRIPT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<2) X
    MAXIMUM LENGTH: 5
  • LAST EDITED:  NOV 17, 2016
  • HELP-PROMPT:  Enter accession abbrevation 2-5 characters
  • DESCRIPTION:  
    This is the accession subscsript of the ordered test.
21661.72 CPRS AP SCREEN 11;2 POINTER TO LR CPRS PARAMETERS FILE (#69.71) LR CPRS PARAMETERS(#69.71)

  • LAST EDITED:  DEC 07, 2015
  • HELP-PROMPT:  Select an entry that matches the AP dialog.
  • DESCRIPTION:  
    This is the CPRS AP Screen used to build the dialog for the order.
21661.73 SURGEON/PHYSICIAN 11;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 17, 2016
  • HELP-PROMPT:  If surgery case select surgeon if not leave blank
  • DESCRIPTION:  
    Enter surgeon if this is a surgery case.
21661.811 SPECIMEN SUBMITTED BY 12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
    MAXIMUM LENGTH: 50
  • LAST EDITED:  NOV 17, 2016
  • HELP-PROMPT:  Enter person submitting the specimen 2-50 characters
  • DESCRIPTION:  
    This the person that collected the specimen(s). May not be the ordering physiciam identified.
21661.813 BRIEF CLINICAL HISTORY 13;0 WORD-PROCESSING #69.2166113

  • DESCRIPTION:  
    This field contain patient's brief clinical history.
  • LAST EDITED:  NOV 26, 2015
  • HELP-PROMPT:  Enter patient's brief clinical history for this specimen
  • DESCRIPTION:  
    This field contain the brief clinical history entered during CPRS AP order.
21661.814 PREOPERATIVE DIAGNOSIS 14;0 WORD-PROCESSING #69.2166114

  • DESCRIPTION:  
    This field contains pre-operative diagnosis.
  • LAST EDITED:  NOV 26, 2015
  • HELP-PROMPT:  Enter the pre-operative diagnosis for this specimen.
  • DESCRIPTION:  
    This field contains the preoperative diagnosis.
21661.815 OPERATIVE FINDINGS 15;0 WORD-PROCESSING #69.2166115

  • LAST EDITED:  JUN 28, 2016
  • DESCRIPTION:  
    This field contains the operative diagnosis.
  • LAST EDITED:  JUN 28, 2016
  • HELP-PROMPT:  Enter Operatiave Findings
  • DESCRIPTION:  
    This field contains the Operative Findings entered during CPRS AP order.
21661.816 POSTOPERATIVE DIAGNOSIS 16;0 WORD-PROCESSING #69.2166116

  • DESCRIPTION:  
    This field contains post operative diagnosis.
  • LAST EDITED:  NOV 26, 2015
  • HELP-PROMPT:  Enter the post operative finding for this specimen.
  • DESCRIPTION:  
    This field contains the PostOperative Diagnosis entered during CPRS AP Order.
Info |  Details