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

Package: Lab Service

LAB REPORTS(#64.5)-->64.51-->64.52

Sub-Field: 64.52


Information

Parent File Name Number Package
64.51 MINOR HEADER 64.52 Lab Service

Details

Field # Name Loc Type Details
.001 ORDER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 16, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
.01 MINOR HEADER 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X Q:$D(DIU(0)) I $D(X) F ZI=0:0 S ZI=$O(^LAB(64.5,1,1,DA(1),1,ZI)) Q:ZI<1 S F=$S($P(^(ZI,0),U,3)="V":1,1:"") I F W !,"NO CAN DO" K X Q
  • LAST EDITED:  FEB 05, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH AND ONLY 1 VERTICAL FORMAT IS ALLOWED PER MAJOR HEADER
  • DESCRIPTION:  
    The minor, or sub, heading.
  • DELETE TEST:  1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64.52^B
    1)= S ^LAB(64.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(64.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1 PROFILE SITE/SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61)
************************REQUIRED FIELD************************
TOPOGRAPHY FIELD(#61)

  • LAST EDITED:  JUL 27, 1988
  • DESCRIPTION:  
    The Site/Specimen for the Minor Header must be defined.
  • CROSS-REFERENCE:  64.52^AR^MUMPS
    1)= Q
    2)= Q  ;W !,"Re-index ""AR"" x-ref under Lab Test."
  • CROSS-REFERENCE:  64.52^AZ^MUMPS
    1)= S ^LAB(64.5,"AZ",DA(1),DA)=""
    2)= S ^LAB(64.5,"AZ",DA(1),DA)=""
2 TYPE OF DISPLAY 0;3 SET
************************REQUIRED FIELD************************
  • 'H' FOR HORIZONTAL;
  • 'V' FOR VERTICAL;

  • LAST EDITED:  DEC 17, 1986
  • HELP-PROMPT:  FORMATS CANNOT BE MIXED WITHIN A MAJOR HEADER
  • DESCRIPTION:  
    'HORIZONTAL' & 'VERTICAL' refer to the placement of the test names.
  • CROSS-REFERENCE:  64.52^C^MUMPS
    1)= F I=0:0 S I=$O(^LAB(64.5,1,1,DA(1),1,I)) Q:I<1  S F=$P(^(I,0),U,3) I X="V",F="H" W !!,*7,"WARNING: MIXING VERT. & HOR. FORMATS WITHIN A MAJOR HEADER ",!,"MAY CORRUPT THE CUMULATIVE!" Q
    2)= Q
  • CROSS-REFERENCE:  64.52^AZZ^MUMPS
    1)= S ^LAB(64.5,"AZ",DA(1),DA)=""
    2)= S ^LAB(64.5,"AZ",DA(1),DA)=""
3 LOCALE FIELD 0;4 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 19, 1984
  • HELP-PROMPT:  Setting this field will put an additional field on output, specifing locale of patient at time of test.
  • DESCRIPTION:  
    Yes, if the requesting location is to be displayed with the data.
10 LAB TEST 1;0 POINTER Multiple #64.53 64.53

  • IDENTIFIED BY:  TEST LOCATION(#4)[R]
Info |  Details |  All