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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LRT(67.3

Package: Lab Service

Global: ^LRT(67.3


Information

FileMan FileNo FileMan Filename Package
67.3 ENVIRONMENTAL Lab Service

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IHS Changes To Lab 1 BLRTNORD    
Lab Service 1 ^LRT(67.3    

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

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    Name of the environmental factor within the VAMC.
  • CROSS-REFERENCE:  67.3^B
    1)= S ^LRT(67.3,"B",$E(X,1,30),DA)=""
    2)= K ^LRT(67.3,"B",$E(X,1,30),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 the environmental factor.
.104 PROVIDER .104;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 14, 1993
  • DESCRIPTION:  
    Name of provider
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.3,"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:  
    Short description of the name.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  67.3^C
    1)= S ^LRT(67.3,"C",$E(X,1,30),DA)=""
    2)= K ^LRT(67.3,"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:  
    The environmental sample's record number in the lab data file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), 9(XREF 1S), 9(XREF 1K)
U ID.1+1, ID9+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .1+1!, 9+1!, 9(XREF 1S), 9(XREF 1K), 63+1!
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All