STANDARD DATA DICTIONARY #64.7 -- CUMULATIVE FILE 3/24/25 PAGE 1
STORED IN ^LAC("LRAC", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores temporary pages of the cumulative report.
The data in this file is maintained by the cumulative routines. Because patient care can be effected if the cumulative report has
incomplete lab results, you should not edit this file or data contained within it. Contact your ISC for technical support if
problems arise.
Cross-reference descriptions:
^LAC("LRKILL",LRDFN,MAJOR HDR #,MINOR HDR #,CDT,0) = minor hdr #^CDT^IDT
^LAC("LRKILL",LRDFN,MAJOR HDR #,MINOR HDR #,CDT,IFN) = test location
^LAC("LRKILL",LRDFN,"MISC",1,CDT,0) = IDT^CDT^verify date/time^accession^topography
^LAC("LRKILL",LRDFN,"MISC",1,CDT,IFN)= test location
CROSS
REFERENCED BY: LRDFN(B)
64.7,.01 LRDFN 0;1 POINTER TO LAB DATA FILE (#63) (Required)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: APR 28, 1987
DESCRIPTION:
This is the internal entry in the LAB DATA File.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.7^B
1)= S ^LAC("LRAC","B",$E(X,1,30),DA)=""
2)= K ^LAC("LRAC","B",$E(X,1,30),DA)
64.7,1 PRINT DATE 0;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the date the report is printed.
64.7,10 MAJOR HEADER 1;0 Multiple #64.701
DESCRIPTION:
These are the major or general headings of the report.
64.701,.01 MAJOR HEADER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 18, 1989
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
CROSS-REFERENCE: 64.701^LGOT^MUMPS
1)= I $D(^LAC("LRAC",DA(1),1,DA,.5)),$P(^(.5),"^",1)=1 S ^LAC("LGOT",DA(1),DA)=""
2)= Q
CROSS-REFERENCE: 64.701^LGOT^MUMPS
1)= Q ;S ^LAC("LGOT",LRDFN,LRMH)="" SET BY PROGRAM (Patient,major header)
2)= Q
64.701,.5 NEW DATA .5;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 18, 1989
64.701,1 PAGE NUMBER 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
64.701,10 MINOR HEADER 1;0 Multiple #64.703
64.703,.01 MINOR HEADER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 12, 1987
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
64.703,1 TOPOGRAPHY 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61)
64.703,2 NUMBER OF TESTS 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 05, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
Number of tests on this minor header.
64.703,3 FORMAT 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
64.703,10 COLLECTION DATE/TIME 1;0 DATE Multiple #64.704
64.704,.01 COLLECTION DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y,DINUM=X K:Y<1 X
LAST EDITED: JUL 19, 1989
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.704^LRKILL^MUMPS
1)= D LRKILL^LRXREF
2)= D LRKILL^LRXREF
64.704,1 LOCATION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
64.704,2 VERIFY DATE/TIME 0;3 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
64.704,3 ACCESSION 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
64.704,4 INVERSE DATE/TIME 0;5 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X I $D(X) S X=9999999-X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
64.704,10 RESULTS 1;0 Multiple #64.705
64.705,.01 RESULTS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUL 12, 1987
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
64.705,1 FLAG 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
64.705,2 TEST LOCATION 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 19, 1989
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999999
CROSS-REFERENCE: 64.705^LRKILL^MUMPS
1)= D LRKILL^LRXREF
2)= D LRKILL^LRXREF
CROSS-REFERENCE: 64.705^LRKILL^MUMPS
1)= Q ;S ^LAC("LRKILL",LRDFN,LRMH,LRSH,CDT,IFN)=TEST LOCATION
2)= Q
64.704,11 COMMENTS TX;0 WORD-PROCESSING #64.706
64.7,11 MISCELLANEOUS MISC;0 Multiple #64.702
DESCRIPTION:
These are test(s) not defined under a major header.
64.702,.01 MISCELLANEOUS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 18, 1989
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
CROSS-REFERENCE: 64.702^LGOT1^MUMPS
1)= I $D(^LAC("LRAC",DA(1),"MISC",1,.5)),$P(^(.5),"^",1)=1 S ^LAC("LGOT",DA(1),"MISC")=""
2)= Q
64.702,.5 NEW DATA .5;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 18, 1989
64.702,1 PAGE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
64.702,10 COLLECTION DATE/TIME 1;0 DATE Multiple #64.707
64.707,.01 INVERSE DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y,X=9999999-X K:Y<1 X I $D(X) S DINUM=9999999-X
LAST EDITED: JUL 19, 1989
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.707^LRKILL^MUMPS
1)= Q ;S ^LAC("LRKILL",LRDFN,"MISC",1,CDT,0)=CDT^IDT^VIDT^ACCESSION^TOPOGRAPHY
2)= Q
64.707,1 COLLECTION DATE/TIME 0;2 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 22, 1987
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
64.707,2 VERIFY DATE/TIME 0;3 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 16, 1986
64.707,3 ACCESSION 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUL 22, 1987
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
64.707,10 RESULT 1;0 Multiple #64.708
64.708,.01 RESULT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: DEC 16, 1986
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
64.708,1 TOPOGRAPHY 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: DEC 16, 1986
64.708,2 TEST 0;3 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: DEC 16, 1986
64.708,3 FLAG 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: DEC 16, 1986
HELP-PROMPT: ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
64.708,4 TEST LOCATION 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 19, 1989
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999999
CROSS-REFERENCE: 64.708^LRKILL^MUMPS
1)= D LRKILL^LRXREF
2)= D LRKILL^LRXREF
64.707,11 COMMENTS TX;0 WORD-PROCESSING #64.709
LAST EDITED: DEC 16, 1986
FILES POINTED TO FIELDS
LAB DATA (#63) LRDFN (#.01)
LABORATORY TEST (#60) RESULT:TEST (#2)
TOPOGRAPHY FIELD (#61) MINOR HEADER:TOPOGRAPHY (#1)
RESULT:TOPOGRAPHY (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):