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

Package: Lab Service

COLLECTION LIST(#69.1)-->69.11

Sub-Field: 69.11


Information

Parent File Name Number Package
COLLECTION LIST(#69.1) TEST 69.11 Lab Service

Details

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

  • LAST EDITED:  AUG 07, 1989
  • CROSS-REFERENCE:  69.11^B
    1)= S ^LRO(69.1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(69.1,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  69.1^LRPH^MUMPS
    1)= S ^LRO(69.1,"LRPH",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5),$P(^(0),U,10),$P(^(0),U,11),$P(^(0),U,1))=$P(^(0),U,1)
    2)= K ^LRO(69.1,"LRPH",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5),$P(^(0),U,10),$P(^(0),U,11),$P(^(0),U,1))
1 LOCATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  S DIC=44,DIC(0)="QELM" K DO D ^DIC S:Y>0 X=$P(^SC(+Y,0),U,2) S DIC=DIE K:Y<0!('$L(X)) X
  • DESCRIPTION:  
    The location of the patient in the hospital.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 ROOM/BED 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The room and bed of the patient in the hospital ward.
3 LRDFN 0;4 POINTER TO LAB DATA FILE (#63) LAB DATA(#63)
4 SPECIMEN # 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 19, 1989
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
  • CROSS-REFERENCE:  69.1^LRPH1^MUMPS
    1)= S ^LRO(69.1,"LRPH",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5))=$P(^(0),U,6)_"^"_"LC"_"^"_$P(^(0),U,8)_"^"_$P(^(0),U,9)_"^"_DA
    2)= K ^LRO(69.1,"LRPH",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5))
5 COLLECTION SAMPLE 0;6 POINTER TO COLLECTION SAMPLE FILE (#62) COLLECTION SAMPLE(#62)
6 LAB COLLECT 0;7 SET
  • 'LC' FOR LAB COLLECT;
  • 'WC' FOR WARD COLLECT;
7 BUILD DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    The date the collection list was built.
8 ACCESSION DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    The date the specimen was accessioned.
9 ACCESSION AREA 0;10 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • INPUT TRANSFORM:  S DIC("S")="I '$L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 06, 1992
  • DESCRIPTION:  
    The accession area where this test will be performed.
  • SCREEN:  S DIC("S")="I '$L($P(^(0),U,17))"
  • EXPLANATION:  Can not select Work Area accession area.
10 ACCESSION NUMBER 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999
  • DESCRIPTION:  
    The accession number for the specimen.
11 ORDERING LOCATION 0;12 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  DEC 12, 1989
  • HELP-PROMPT:  This is the location that is ordered the test.
  • DESCRIPTION:  
    The location that orginated this order.
Info |  Details