Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  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

Directly Accessed By Routines, Total: 3

Package Total Routines
Lab Service 2 LRCAPDSS    ^LRT(67.1    
IHS Changes To Lab 1 BLRTNORD    

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

    External References

    Name Field # of Occurrence
    ^%DT 3+1
    UP^LRXREF .01(XREF 2S), .01(XREF 2K)
    $$FMTE^XLFDT ID3+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LRT(67.1 - [#67.1] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 9+1, 9(XREF 1S), 9(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(".1" ID.1+1
    ^("0" ID2+1, ID3+1, ID9+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 3+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 9(XREF 1S), 9(XREF 1K)
    U ID.1+1, ID2+1, ID3+1, ID9+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .1+1!, 3+1*!, 9+1!, 9(XREF 1S), 9(XREF 1K)
    , 63+1!
    >> Y 3+1
    Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All