Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^LRT(67.1

Package: Lab Service

Global: ^LRT(67.1


Information

FileMan FileNo FileMan Filename Package
67.1 RESEARCH Lab Service

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Lab Service 2 LREGFR    LREGFR2    
VistA Integration Adapter 1 VIABEFR    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Lab Service 2 WKLD LOG FILE(#64.03)[2]    WKLD DATA(#64.1)[#64.1111(9)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.104]    
Lab Service 1 LAB DATA(#63)[63]    

Fields, Total: 7

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  MAY 03, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Name of the research animal.
  • CROSS-REFERENCE:  67.1^B
    1)= S ^LRT(67.1,"B",$E(X,1,30),DA)=""
    2)= K ^LRT(67.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  67.1^D^MUMPS
    1)= D UP^LRXREF S ^LRT(67.1,"D",X,DA)=""
    2)= D UP^LRXREF K ^LRT(67.1,"D",X,DA)
.1 LOCATION .1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Location of animal.
.104 PROVIDER .104;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 14, 1993
  • DESCRIPTION:  
    Name of provider
2 SEX 0;2 SET
  • 'F' FOR FEMALE;
  • 'M' FOR MALE;

  • DESCRIPTION:  
    Sex of animal. Set of codes; F for female, M for male.
3 DOB 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    Date of birth of the animal.
9 IDENTIFIER 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67.1,"C",X,0))>0 K X W *7,!,"Already exists",!
  • LAST EDITED:  MAR 29, 1991
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    A short description categorizing the animal.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67.1^C
    1)= S ^LRT(67.1,"C",$E(X,1,30),DA)=""
    2)= K ^LRT(67.1,"C",$E(X,1,30),DA)
63 LABORATORY REFERENCE LR;1 POINTER TO LAB DATA FILE (#63) LAB DATA(#63)

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  APR 25, 1985
  • HELP-PROMPT:  Any changes to this entry must be made from the lab data entry routines. This is the patient's record number in the lab data file.
  • DESCRIPTION:  
    Animal's record number in the Lab data file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6476
  • VistA Integration Adapter
    		•  NAME (.01).
    Access: Read w/Fileman

    IDENTIFIER (9).
    Access: Read w/Fileman

    LABORATORY REFERENCE (63).
    Access: Read w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All