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

Package: Lab Service

LAB SECTION PRINT(#69.2)-->69.28-->69.3

Sub-Field: 69.3


Information

Parent File Name Number Package
69.28 LRDFN 69.3 Lab Service

Details

Field # Name Loc Type Details
.01 LRDFN 0;1 POINTER TO LAB DATA FILE (#63) LAB DATA(#63)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  NOV 02, 1985
  • DESCRIPTION:  
    Internal file number in the LAB DATA file (#63).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 PATIENT NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 02, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Patient's name.
  • CROSS-REFERENCE:  69.3^C
    1)= S ^LRO(69.2,DA(2),7,DA(1),1,"C",$E(X,1,30),DA)=""
    2)= K ^LRO(69.2,DA(2),7,DA(1),1,"C",$E(X,1,30),DA)
.03 SEX 0;3 SET
  • 'F' FOR FEMALE;
  • 'M' FOR MALE;

  • LAST EDITED:  NOV 02, 1985
.04 DOB 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 02, 1985
  • DESCRIPTION:  
    Date of birth.
.05 LOCATION 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 26, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
.06 VA PATIENT NUMBER 0;6 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  JUN 12, 1988
  • DESCRIPTION:  If patient is entered in file 2 the internal file number (DFN)
    for file 2 will appear here.
    UNEDITABLE
.1 ID 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 02, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
1 PATIENT GROUP 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X?1AN.ANP) X
  • LAST EDITED:  MAY 26, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH AND BEGIN WITH A LETTER OR DIGIT
  • DESCRIPTION:  
    To print only a specific group of patients enter that group name here.
  • EXECUTABLE HELP:  I $D(LRAA) W !?5,"Your present patient groups are:" S A=0 F A(1)=0:0 S A=$O(^LRO(69.2,LRAA,7,DUZ,1,"D",A)) Q:A="" W !?9,A
  • CROSS-REFERENCE:  69.3^D
    1)= S ^LRO(69.2,DA(2),7,DA(1),1,"D",$E(X,1,30),DA)=""
    2)= K ^LRO(69.2,DA(2),7,DA(1),1,"D",$E(X,1,30),DA)
Info |  Details |  All