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: 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
  • HELP-PROMPT:  ENTER THE CURRENT DATE@TIME
  • DESCRIPTION:  
    Self explanatory.
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="EPTX" 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
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:  MAR 29, 1989
  • 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",DA(1)_"|"_DA)=""
    2)= K ^LRO(69,"AA",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.
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:Y<1 X
  • LAST EDITED:  AUG 07, 1989
  • DESCRIPTION:  
    This is the date/time ALL results for this specimen are complete.
  • CROSS-REFERENCE:  69.01^AR^MUMPS
    1)= D AR1^LRXREF,AR2^LRXREF
    2)= D AR1^LRXREF,AR3^LRXREF
  • CROSS-REFERENCE:  69.01^AP^MUMPS
    1)= D AP^LRXREF,AP1^LRXREF
    2)= D AP^LRXREF,AP2^LRXREF
  • CROSS-REFERENCE:  69.01^AL^MUMPS
    1)= D AL^LRXREF,AL1^LRXREF
    2)= D AL^LRXREF,AL2^LRXREF
  • CROSS-REFERENCE:  69^AN^MUMPS
    1)= D AN1^LRXREF
    2)= D AN2^LRXREF
  • 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,15),$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,15),$P(^(0),U,1),9999999-$P(^LRO(69,DA(1),1,DA,1),U,1))
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.





21400
PATIENT CONFIRM USER ID
MSC;1
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  DEC 09, 2011
  • DESCRIPTION:  
    The user who did the patient confirmation.





21401
PATIENT CONFIRM DATE/TIME
MSC;2
DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 13, 2012
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field holds the Date/Time that the Patient Confirmation took place.





21402
PATIENT CONFIRM METHOD
MSC;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<3) X
  • LAST EDITED:  DEC 09, 2011
  • HELP-PROMPT:  Answer must be 3-79 characters in length.
  • DESCRIPTION:  
    Free Text entry field that contains the Patient Confirmation Method.





8000000
CC NAME
CC;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.





8000001
CC FAX
CC;2
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Type a number between 0 and 9999999999, 0 decimal digits.





8000002
CC PHONE
CC;3
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Type a number between 0 and 9999999999, 0 decimal digits.





8000003
CC ADDRESS 1
CC;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.





8000004
CC ADDRESS 2
CC;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.





8000005
CC CITY
CC;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.





8000006
CC STATE
CC;7
POINTER TO STATE FILE (#5)
STATE(#5)
  • LAST EDITED:  MAY 09, 2013





8000007
CC ZIP
CC;8
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 09, 2013
  • HELP-PROMPT:  Type a number between 1 and 5, 0 decimal digits.







    



Info | 
Details | 
All