Select the objects that you wish to see in the downloaded PDF
K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
MAY 03, 1993
Answer must be 3-30 characters in length.
Name of the research animal.
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)
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)
K:$L(X)>10!($L(X)<1) X
ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
Location of animal.
OCT 14, 1993
Name of provider
Sex of animal. Set of codes; F for female, M for male.
S %DT="E" D ^%DT S X=Y K:Y<1 X
Date of birth of the animal.
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",!
MAR 29, 1991
ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
A short description categorizing the animal.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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)
K X
APR 25, 1985
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.
Animal's record number in the Lab data file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^