STANDARD DATA DICTIONARY #63.9999 -- ARCHIVED LR DATA FILE 9/29/25 PAGE 1
STORED IN ^LAR("Z", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is where patient lab data are stored during the archive process. It has the same data definitions as the subfile 63.04
in File #63. This file requires NO editing by the user.
CROSS
REFERENCED BY: PARENT FILE(AZZ), LRDFN(B), NAME(CZX), NAME(CZZ)
63.9999,.01 LRDFN 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: JUL 24, 1984
HELP-PROMPT: Enter the application entry number.
DESCRIPTION:
The internal file number of the "patient" (or other entity)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.9999^B
1)= S ^LAR("Z","B",$E(X,1,30),DA)=""
2)= K ^LAR("Z","B",$E(X,1,30),DA)
63.9999,.02 PARENT FILE 0;2 POINTER TO FILE FILE (#1) (Required)
INPUT TRANSFORM: S DIC("S")="I $D(^(""%"",""B"",""LR""))" D ^DIC:X'?1"?".E K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DD
IFN=X
LAST EDITED: JAN 17, 1984
DESCRIPTION:
The file where the name of this entry may be found.
SCREEN: S DIC("S")="I $D(^(""%"",""B"",""LR""))"
EXPLANATION: Enter the appropriate parent you wish this entry associated with.
EXECUTABLE HELP: W !!,"Allowable Entries: " F IIX=0:0 S IIX=$O(^DIC("AC","LR",IIX)) Q:IIX'>0 W ?20,IIX,?30,$P(^DIC(
IIX,0),"^",1),!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.9999^AZZ^MUMPS
1)= Q
2)= S DOLP=X,L1=^LAR("Z",DA,0),X=$P(L1,"^",3) X ^DD(63.9999,.03,1,1,2) S ^LAR("Z",DA,0)=$P(L1,"^",1
,2)_"^^"_$P(L1,"^",4,99) K DOLP,L1,L Q
63.9999,.03 NAME 0;3 NUMBER (Required)
INPUT TRANSFORM: S PDA=DA,PDIC=DIC,DIC(0)="QEM",DIC=$S($D(DDIFN):DDIFN,$D(^LAR("Z",DA,0)):+$P(^LAR("Z",DA,0),"^",2),
1:""),DDIFN=DIC K:DIC<1 X D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDIC I $D(Y) S X=+Y K:Y'>0 X,Y I $D(
Y) X ^DD(63.9999,.03,.0001)
OUTPUT TRANSFORM: S L1=$S($D(DA):DA,$D(D0):D0,1:"") I L1>0 S L=^LAR("Z",L1,0),Y="" I +$P(L,"^",2)>0 S Y=$P($S($D(@(^D
IC(+$P(L,"^",2),0,"GL")_(+$P(L,"^",3))_",0)")):^(0),1:""),"^",1)
LAST EDITED: JAN 13, 1984
DESCRIPTION:
The internal file number in the parent file for this entry.
EXECUTABLE HELP: S X="?",PDA=DA,PDIC=DIC,DIC=$S($D(DDIFN):DDIFN,$D(^LAR("Z",DA,0)):+$P(^LAR("Z",DA,0),"^",2),1:0),DI
C(0)="QEM" D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDI,X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 63.9999^CZZ^MUMPS
1)= S L=^LAR("Z",DA,0),@(^DIC(+$P(L,"^",2),0,"GL")_(+X)_",""LR"")")=DA
2)= I '$D(DIU(0)) S L=$S($D(DOLP):"^"_DOLP_"^"_X,1:^LAR("Z",DA,0)) K @(^DIC(+$P(L,"^",2),0,"GL")_(+
X)_",""LR"")")
CROSS-REFERENCE: 63.9999^CZX^MUMPS
1)= S %=^LAR("Z",DA,0),%=@(^DIC(+$P(%,U,2),0,"GL")_(+X)_",0)"),^LAR("NAME",$P(%,U,1),DA)="",^LAR("S
SN",$P(%,U,9),DA)=""
2)= S %=^LAR("Z",DA,0),%=@(^DIC(+$P(%,U,2),0,"GL")_(+X)_",0)") K ^LAR("NAME",$P(%,U,1),DA),^LAR("SS
N",$P(%,U,9),DA)
63.9999,4 CHEM, HEM, TOX, RIA, SER, etc. CH;0 DATE Multiple #63.999904
DESCRIPTION:
This is data for Chemistry, Hematology, Toxicology, RIA, Serology, to be archived.
63.999904,.01 DATE/TIME SPECIMEN TAKEN 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X,DINUM
HELP-PROMPT: ENTER DRAW TIME OR VERIFY TIME
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
63.999904,.02 DATE/TIME TAKEN NOT EXACT 0;2 SET
'1' FOR YES;
63.999904,.03 DATE REPORT COMPLETED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
63.999904,.04 VERIFY PERSON 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUN 30, 1991
63.999904,.05 SPECIMEN TYPE 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
63.999904,.06 ACCESSION 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!'(X?1N.N) X
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
63.999904,.07 *VOLUME 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.999904,.08 METHOD OR SITE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
63.999904,.09 SUM REPORT NUM. 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
63.999904,.1 REQUESTING PERSON 0;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
63.999904,.11 REQUESTING LOCATION 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
63.999904,.12 NEW PERSON CONVERSION NPC;1 SET
'1' FOR YES;
'2' FOR PROCESSED;
LAST EDITED: JUN 03, 1994
DESCRIPTION: This field is to indicate that this entry has all of the pointers converted to the NEW PERSON
file. The use of the NEW PERSON file began with Version 5.2
TECHNICAL DESCR: This field will be used to determine if archive data should be repointed to VA(200 before being
restored to the ^LR( global.
63.999904,.99 COMMENT 1;0 Multiple #63.9999041 (Add New Entry without Asking)
63.9999041,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$S($D(^LR(DA(2),"CH",DA(1),1,DA,0)):$S(^(0)["reported incorrectly
as"&'$D(^XUSEC("LRSUPER",DUZ)):1,1:0),1:0) X I $D(X) S Q9="1,68,KL" D COM^LRNUM
9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<0 I "CHOQU"[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5
,Y,0),"^",2) Q:'$D(^(9)) S Y=$P(X," ",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q
9.1 = F I=1:1 Q:$P(X," ",I,99)="" S %Z=$P(X," ",I),Y="" X:%Z]"" ^DD(63.041,.01,9.2) S %L=$L(%S)+$L(%Z) S
:%L'>65 %S=%S_%Z_" " I %L>65 W " too long",! Q
LAST EDITED: OCT 09, 1992
HELP-PROMPT: ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment reported with CHEM, HEM, TOX, etc., data.
EXECUTABLE HELP:S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KL""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DI
C S DIC=DIE D DO^DIC1
DELETE TEST: 1,0)= I $P(^LR(DA(2),"CH",DA(1),0),U,3),'$D(^XUSEC("LRSUPER",DUZ)),$G(^LR(DA(2),"CH",DA(1),1,DA,0))
["reported incorrectly as"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:63.9999041^AC^MUMPS
1)= Q
2)= D AC1^LRXREF
63.9999041,1 PERSON 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 09, 1992
WRITE AUTHORITY:^
63.9999,5 MICROBIOLOGY MI;0 DATE Multiple #63.999905 (Add New Entry without Asking)
DESCRIPTION:
This field contains microbiology data which has been archived from the active on line data base.
63.999905,.01 MICROBIOLOGY 0;1 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 26, 1989
63.999905,38 NEW PERSON CONVERSION NPC;1 SET
'1' FOR YES;
'2' FOR PROCESSED;
LAST EDITED: JUN 03, 1994
DESCRIPTION: This field is to indicate that this entry has all of the pointers converted to the NEW PERSON
file. The use of the NEW PERSON file began with Version 5.2
FILES POINTED TO FIELDS
FILE (#1) PARENT FILE (#.02)
NEW PERSON (#200) CHEM, HEM, TOX, RIA, SER, etc.:VERIFY PERSON (#.04)
REQUESTING PERSON (#.1)
COMMENT:PERSON (#1)
TOPOGRAPHY FIELD (#61) CHEM, HEM, TOX, RIA, SER, etc.:SPECIMEN TYPE (#.05)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):