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

Package: Lab Service

ARCHIVED LR DATA(#63.9999)-->63.999904

Sub-Field: 63.999904


Information

Parent File Name Number Package
ARCHIVED LR DATA(#63.9999) CHEM, HEM, TOX, RIA, SER, etc. 63.999904 Lab Service

Details

Field # Name Loc Type Details
.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X,DINUM
  • HELP-PROMPT:  ENTER DRAW TIME OR VERIFY TIME
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 DATE/TIME TAKEN NOT EXACT 0;2 SET
  • '1' FOR YES;
.03 DATE REPORT COMPLETED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
.04 VERIFY PERSON 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
.05 SPECIMEN TYPE 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61)
************************REQUIRED FIELD************************
TOPOGRAPHY FIELD(#61)
.06 ACCESSION 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!'(X?1N.N) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
.07 *VOLUME 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
.08 METHOD OR SITE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
.09 SUM REPORT NUM. 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
.1 REQUESTING PERSON 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
.11 REQUESTING LOCATION 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
.12 NEW PERSON CONVERSION NPC;1 SET
  • '1' FOR YES;
  • '2' FOR PROCESSED;

  • LAST EDITED:  JUN 03, 1994
  • DESCRIPTION:  
    This field is to indicate that this entry has all of the pointers converted to the NEW PERSON file. The use of the NEW PERSON file began with Version 5.2
  • TECHNICAL DESCR:  
    This field will be used to determine if archive data should be repointed to VA(200 before being restored to the ^LR( global.
.99 COMMENT 1;0 Multiple #63.9999041 63.9999041
Info |  Details