STANDARD DATA DICTIONARY #69.2 -- LAB SECTION PRINT FILE 9/29/25 PAGE 1
STORED IN ^LRO(69.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file used to hold print headers for anatomic path reports and as a temporary holding file for path cumulative, incomplete and
complete reports.
It may also be used for any accession area file since the NAME (.01) field is a pointer to the accession area file (68).
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(C)
69.2,.01 NAME 0;1 POINTER TO ACCESSION FILE (#68) (Required)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: JUL 30, 1992
DESCRIPTION:
The name of the Lab section print pointed to the Accession file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.2^B
1)= S ^LRO(69.2,"B",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,"B",$E(X,1,30),DA)
69.2,.02 ABBREVIATION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>5!($L(X)<2)!'(X?.AN) X
LAST EDITED: JAN 16, 1987
HELP-PROMPT: ANSWER MUST BE 2-5 CHARACTERS IN LENGTH
DESCRIPTION:
Abbreviation to the name of the Lab section print
CROSS-REFERENCE: 69.2^C
1)= S ^LRO(69.2,"C",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,"C",$E(X,1,30),DA)
69.2,.03 REPORT HEADER 1 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 18, 1985
HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
DESCRIPTION: First header in path report after Post operative Diagnosis. The routine used is LRSPRPT (CY/EM/SP
patient report).
EXECUTABLE HELP: W !,"Enter the heading you want displayed when path report is printed.",!
69.2,.04 REPORT HEADER 2 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 18, 1985
HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
DESCRIPTION: Second header in path report after Post operative Diagnosis. The routine used is LRSPRPT (CY/EM/SP
patient report).
EXECUTABLE HELP: W !,"Enter the heading you want displayed when path report is printed.",!
69.2,.05 PRINT SNOMED/ICD CODES 0;5 SET
'1' FOR LOWER CASE;
'0' FOR UPPER CASE;
LAST EDITED: JUL 09, 1986
DESCRIPTION:
If lower case is to be printed for SNOMED and ICD9CM codes enter 1 or LOWER CASE.
69.2,.06 GROSS DESCRIPTION SPACING 0;6 SET
'D' FOR DOUBLE;
'S' FOR SINGLE;
LAST EDITED: AUG 09, 1985
DESCRIPTION: If double spacing, gross descriptions for anatomic path microscopic examinations will be double
spaced, otherwise single spacing will be used.
69.2,.07 LINES IN A LABEL 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<5)!(X?.E1"."1N.N) X
LAST EDITED: MAY 29, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 5 AND 20
DESCRIPTION: The number of lines from the top of one label to the top of the
next label. This is used as the default value when printing
various labels.
69.2,.08 ACCESSION PREFIX 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION: If accession prefix is entered the path report will
have the accession number printed as follows:
PREFIX yr accession#
Ex. If S entered for the prefix, accession # is 123 and year 87
the path report will print the accession as S87 123
If you want a space after S enter a space after the 'S'.
To eliminate the prefix and date delete the entry. (ex. S//@ ).
69.2,.09 PRINT SF-515 LINES 0;9 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 13, 1988
DESCRIPTION: YES- Prints all dashed lines in the SF-515 form
NO- Does not print all lines
69.2,.1 ASK TC CODES 0;10 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: DEC 05, 1989
DESCRIPTION:
Allows coding cases for tissue committee
69.2,.11 ROUTINE PROCEDURE 1 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 23, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: Number of times procedure is routinely performed.
For EM the number of thick sections made per block.
69.2,.12 ROUTINE PROCEDURE 2 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: Number of times routine procedure is performed.
For EM the number of grids routinely made per block.
69.2,.13 REPORT HEADER 3 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 01, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: Third header in path report after Post operative Diagnosis. The routine used is LRSPRPT CY/EM/SP
patient report).
For surgical pathology this header will be the frozen section report.
69.2,.14 REPORT HEADER 4 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 15, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: Fourth header in path report after post op dx.
The routine used is LRSPRPT.
For surgical pathology this header will be the diagnosis field.
69.2,.21 NEW PG FOR SUPPLEMENTARY RPT .2;1 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: SEP 28, 1993
DESCRIPTION:
If a page feed is wanted before printing the supplementary report a 'YES' is entered.
69.2,.3 SLIDE LABEL .3;0 Multiple #69.22 (Add New Entry without Asking)
DESCRIPTION:
Enter the name of the type of preparation or technique used for specimens.
69.22,.01 SLIDE LABEL 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 01, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
CROSS-REFERENCE: 69.22^B
1)= S ^LRO(69.2,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(1),.3,"B",$E(X,1,30),DA)
69.22,.02 PRINT NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: APR 01, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
Enter the actual text you want printed on the slide label.
69.2,1 INCOMPLETE REPORTS QUEUE 1;0 Multiple #69.21 (Add New Entry without Asking)
DESCRIPTION: Here are stored the temporary list of specimens logged-in for printing at time of microscopic exam.
The report will contain all past specimens with their SNOMED coding in free text form for Surg
path, cytopath, and EM.
If there are gross descriptions they will be part of the print-out.
69.21,.01 LRDFN 0;1 NUMBER (Multiply asked)
Internal entry in lab data file
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 01, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999
UNEDITABLE
69.21,1 INVERSE DATE 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
LAST EDITED: JUL 23, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999.99999
69.21,2 ACCESSION DATE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 16, 1987
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION: When specimen was accessioned. Stored in external date format.
Usually only the year will be present.
69.2,2 COMPLETED REPORTS QUEUE 2;0 Multiple #69.23 (Add New Entry without Asking)
DESCRIPTION: This is a temporary list of final path reports to be printed on demand.
Entries automatically are entered when the microscopic diagnoses or supplementary are entered for
Surg path, Cytopath or Electron microscopy.
69.23,.01 LRDFN 0;1 NUMBER (Multiply asked)
Internal entry number in labata file
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
DESCRIPTION: This is a temporary list of final path reports to be printed on demand. Entries automatically
are entered when the microscopic diagnoses or supplementary are entered for Surg path, Cytopath
or Electron microscopy.
69.23,1 INVERSE DATE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
LAST EDITED: JUL 23, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999.99999
69.23,2 ACCESSION DATE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 16, 1987
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION: When specimen accessioned. Stored in external date format.
Usually only the year will be stored.
69.2,3 INTERIM REPORT NUMBER 3;0 Multiple #69.29 (Add New Entry without Asking)
DESCRIPTION:
This field contains the numeric sequence of this particular interim report.
69.29,.01 INTERIM REPORT NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X S DINUM=X
LAST EDITED: JUN 08, 1984
HELP-PROMPT: Enter internal number of Lab Results File
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.29,1 LOCATION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUN 08, 1984
HELP-PROMPT: Enter patient location
CROSS-REFERENCE: 69.29^C
1)= S ^LRO(69.2,DA(1),3,"C",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(1),3,"C",$E(X,1,30),DA)
69.2,4 REPORTS ON DEMAND 4;0 POINTER Multiple #69.27 (Add New Entry without Asking)
DESCRIPTION:
Name of the report on demand from the Lab Data file
69.27,.01 REPORTS ON DEMAND 0;1 POINTER TO LAB DATA FILE (#63) (Multiply asked)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: OCT 24, 1984
DESCRIPTION:
Pointer to LAB DATA file (#63).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.27,.02 NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
69.27,.03 SEX 0;3 SET
'M' FOR MALE;
'F' FOR FEMALE;
LAST EDITED: NOV 01, 1985
69.27,.04 DOB 0;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 01, 1985
DESCRIPTION:
Date of Birth.
69.27,.1 ID 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Usually the SSN of the patient.
69.2,5 ENTRY NUMBER 5;0 Multiple #69.24 (Add New Entry without Asking)
DESCRIPTION:
Entry number to appropriate file
69.24,.01 ENTRY NUMBER 0;1 NUMBER (Multiply asked)
Entry number in appropriate file
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: APR 12, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.24,.02 PARENT FILE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<2)!(X?.E1"."5N.N) X
LAST EDITED: APR 12, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 2 AND 999
69.24,.03 NAME 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
LAST EDITED: APR 12, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Name of the patient.
CROSS-REFERENCE: 69.24^C
1)= S ^LRO(69.2,DA(1),5,"C",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(1),5,"C",$E(X,1,30),DA)
69.2,6 GENERIC LIST 6;0 Multiple #69.26 (Add New Entry without Asking)
DESCRIPTION:
Generic label name
69.26,.01 GENERIC LABEL 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 16, 1987
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the generic label.
69.26,.02 ITEM 2 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 19, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
First line of the label.
69.26,.03 ITEM 3 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 19, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
The second line of the label.
69.26,.04 ITEM 4 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 19, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Third line of the label.
69.26,.05 ITEM 5 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 19, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
The forth line of the label.
69.2,7 USER REQUEST LIST 7;0 POINTER Multiple #69.28 (Add New Entry without Asking)
DESCRIPTION:
Names of users from file 200
69.28,.01 USER 0;1 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JAN 17, 1993
DESCRIPTION:
Points to the NEW PERSON file (#200).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.28,.02 LAST DATE USED 0;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 02, 1985
DESCRIPTION:
The last date this was printed.
69.28,1 LRDFN 1;0 POINTER Multiple #69.3 (Add New Entry without Asking)
69.3,.01 LRDFN 0;1 POINTER TO LAB DATA FILE (#63) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: NOV 02, 1985
DESCRIPTION:
Internal file number in the LAB DATA file (#63).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.3,.02 PATIENT NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
Patient's name.
CROSS-REFERENCE: 69.3^C
1)= S ^LRO(69.2,DA(2),7,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(2),7,DA(1),1,"C",$E(X,1,30),DA)
69.3,.03 SEX 0;3 SET
'F' FOR FEMALE;
'M' FOR MALE;
LAST EDITED: NOV 02, 1985
69.3,.04 DOB 0;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 02, 1985
DESCRIPTION:
Date of birth.
69.3,.05 LOCATION 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 26, 1986
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
69.3,.06 VA PATIENT NUMBER 0;6 POINTER TO PATIENT FILE (#2)
LAST EDITED: JUN 12, 1988
DESCRIPTION: If patient is entered in file 2 the internal file number (DFN)
for file 2 will appear here.
UNEDITABLE
69.3,.1 ID 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
69.3,1 PATIENT GROUP 1;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X?1AN.ANP) X
LAST EDITED: MAY 26, 1987
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH AND BEGIN WITH A LETTER OR DIGIT
DESCRIPTION:
To print only a specific group of patients enter that group name here.
EXECUTABLE HELP:I $D(LRAA) W !?5,"Your present patient groups are:" S A=0 F A(1)=0:0 S A=$O(^LRO(69.2,LRAA,7,DUZ,
1,"D",A)) Q:A="" W !?9,A
CROSS-REFERENCE:69.3^D
1)= S ^LRO(69.2,DA(2),7,DA(1),1,"D",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(2),7,DA(1),1,"D",$E(X,1,30),DA)
69.28,60 LAB TEST GROUP 60;0 Multiple #69.35 (Add New Entry without Asking)
69.35,.01 LAB TEST GROUP 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: MAR 25, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
You can have one or more groups. Each group can have up to 7 tests.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.35,1 TEST 1;0 POINTER Multiple #69.36 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects chem, hem, ser, tox, RIA tests
69.36,.001 NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 13, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 7
69.36,.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 25, 1986
DESCRIPTION: Up to 7 tests allowed. The number will determine placement of the
test on the display or print.
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Tests with results stored in CH subscript of file 63
69.2,8 FILE 8;0 Multiple #69.31 (Add New Entry without Asking)
DESCRIPTION:
Files for temporary lists of entries.
69.31,.01 FILE 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>68)!(X<63)!(X?.E1"."3N.N) X I $D(X) S DINUM=X
LAST EDITED: JAN 01, 1986
HELP-PROMPT: TYPE A NUMBER BETWEEN 63 AND 68
DESCRIPTION:
List of selected entries in a file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.31,.02 START DATE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JAN 01, 1986
HELP-PROMPT: ENTER FREE TEXT DATE AS mmm dd yyyy
69.31,.03 END DATE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JAN 01, 1986
HELP-PROMPT: ENTER FREE TEXT DATE AS mmm dd yyyy
69.31,.04 USER 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 07, 1993
DESCRIPTION:
Person who created list of entries
69.31,1 FILE ENTRY 1;0 Multiple #69.32 (Add New Entry without Asking)
69.32,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 01, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999
69.32,.01 FILE ENTRY NAME 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: JAN 01, 1986
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Enter the name of the entry in the file (.01 field)
CROSS-REFERENCE: 69.32^B
1)= S ^LRO(69.2,DA(2),8,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(2),8,DA(1),1,"B",$E(X,1,30),DA)
69.32,.02 ENTRY COMMENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: SEP 02, 1987
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Description to identify the specific entry
69.32,1 DATE 1;0 DATE Multiple #69.321 (Add New Entry without Asking)
69.321,.01 DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 02, 1987
69.321,.02 RELATED TEXT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X
LAST EDITED: SEP 02, 1987
HELP-PROMPT: ANSWER MUST BE 2-40 CHARACTERS IN LENGTH
69.321,.03 MORE RELATED TEXT 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X
LAST EDITED: SEP 02, 1987
HELP-PROMPT: ANSWER MUST BE 2-40 CHARACTERS IN LENGTH
69.321,.04 DATE ENTRY PRINTED? 0;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 02, 1987
DESCRIPTION: If entry was printed then 'YES' should be entered.
If entry was not printed then it should not be deleted.
69.321,1 COMMENT 1;0 Multiple #69.3211 (Add New Entry without Asking)
69.3211,.01 COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<2) X
LAST EDITED: SEP 02, 1987
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
69.2,9 LABELS 9;0 Multiple #69.25 (Add New Entry without Asking)
DESCRIPTION:
ID number of label
69.25,.01 LABEL ID 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: AUG 14, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
69.25,.02 LINE 1 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>42!($L(X)<2) X
LAST EDITED: AUG 14, 1985
HELP-PROMPT: ANSWER MUST BE 2-42 CHARACTERS IN LENGTH
69.25,.03 LINE 2 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>42!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-42 CHARACTERS IN LENGTH
69.25,.04 LINE 3 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>42!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-42 CHARACTERS IN LENGTH
69.25,.05 LINE 4 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>42!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-42 CHARACTERS IN LENGTH
69.2,10 SNOMED & TC CODING 10;0 WORD-PROCESSING #69.38
DESCRIPTION:
Text entered here will appear on the preliminary pathology report after the cum path summary.
LAST EDITED: DEC 05, 1989
DESCRIPTION:
Text entered here will appear on the preliminary pathology report after the cum path summary.
69.2,11 TOPOGRAPHY CATEGORY 11;0 Multiple #69.211 (Add New Entry without Asking)
DESCRIPTION:
SNOMED coded topography categories
IDENTIFIED BY: COMMENT(#.02)[R]
69.211,.01 TOPOGRAPHY CATEGORY 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X?1UN.UN) X I $D(X) F X(1)=1:1:$L(X) I "0123456789XY"'[$E(X,X(1)) K X Q
LAST EDITED: JUL 26, 1990
HELP-PROMPT: Answer must be 1-7 characters in length and contain only digits, and/or the letters ABCDEFXY.
DESCRIPTION: Provides a default list of topography selections for anatomic pathology searches and reports.
For example if 28 is a selection then all SNOMED coded topographies beginning with 28 will be
selected.
EXECUTABLE HELP: W !?5,"One character entered -> most general",!?5,"All 7 characters entered -> most specific"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.211^B
1)= S ^LRO(69.2,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(1),11,"B",$E(X,1,30),DA)
69.211,.02 COMMENT 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: JUL 26, 1990
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
Enter a comment associated with the topography category entry.
69.2,12 MORPHOLOGY ENTRY 12;0 POINTER Multiple #69.212 (Add New Entry without Asking)
DESCRIPTION:
SNOMED morphology entries
69.212,.01 MORPHOLOGY ENTRY 0;1 POINTER TO MORPHOLOGY FIELD FILE (#61.1) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: JAN 02, 1992
DESCRIPTION: List of SNOMED morphology entries for various reports are kept here.
For cytopathology option [LRAPCYPCT] this is a default list for
calculating %normal, atypical, suspicious and malignant cases.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.2,60 TEST LIST NUMBER 60;0 Multiple #69.33 (Add New Entry without Asking)
DESCRIPTION:
The list number for a group of selected lab tests.
69.33,.01 TEST LIST NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: MAR 24, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.33,1 TEST 1;0 POINTER Multiple #69.34 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects only chem, heme, tox, ser, etc.
69.34,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 10, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 7
69.34,.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 10, 1986
69.34,.02 SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
INPUT TRANSFORM:I $D(X) S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,"Not in SITE/SPE
CIMEN FIELD OF LAB TEST FILE for this test.",! K X
LAST EDITED: FEB 17, 1988
HELP-PROMPT: Specimen test is performed on. This must be a specimen entered in the lab test file for the test
specified.
EXECUTABLE HELP:S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I $O(^LAB(60,X(1),0)) W !?5,"SELECT FROM " F II=0:0 S II
=+$O(^LAB(60,X(1),1,II)) Q:II<1 I $D(^(II,0)) W !?20,$P(^(0),U)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.34,.03 VALUE 0;3 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X I $D(X) K:$E(X)'="<"&($E(X)'=">")&($E(X)'="[")&($E(X)'="=") X
LAST EDITED: FEB 17, 1988
HELP-PROMPT: Enter <,>,[ or = followed by the value
EXECUTABLE HELP:W " Answer must be 2-10 characters in length."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.2,61 TOPOGRAPHY 61;0 POINTER Multiple #69.61 (Add New Entry without Asking)
DESCRIPTION: For entries the most recent results of tests selected below will be displayed or printed.
Ex. You may want to know the results of selected chemistries for a patient who has just had a
liver biopsy. Topography entered would be LIVER
For blood bank the tests entered will be displayed whenever a
crossmatch is ordered or when components are displayed.
69.61,.01 TOPOGRAPHY 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUN 04, 1985
DESCRIPTION: Enter here the specimen or organ/tissue that will be associated with the preselected tests to be
displayed or printed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.61,1 TEST TO DISPLAY 1;0 POINTER Multiple #69.62 (Add New Entry without Asking)
DESCRIPTION: Most recent results, if any, will be displayed for tests selected associated with a specific
topography indicated above when that organ or tissue is submitted to anatomic pathology.
IDENTIFIED BY: SPECIMEN(#.02)[R]
69.62,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 19, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
69.62,.01 TEST TO DISPLAY 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 18, 1989
DESCRIPTION: Most recent results, if any, will be displayed for tests selected
associated with a specimen.
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects only single chem, hem, tox, ser, etc. tests
69.62,.02 SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
INPUT TRANSFORM:I $D(X) S X(1)=+^LRO(69.2,DA(2),61,DA(1),1,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,"Not in SITE/SPE
CIMEN FIELD OF LAB TEST FILE for this test",! K X
LAST EDITED: NOV 04, 1985
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.61,2 TEST TO PRINT 2;0 POINTER Multiple #69.63 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects only tests with the 'CH' subscript
IDENTIFIED BY:SPECIMEN(#.02)[R]
69.63,.001 NUMBER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 01, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
69.63,.01 TEST TO PRINT 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 18, 1989
69.63,.02 SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
INPUT TRANSFORM:I $D(X) S X(1)=+^LRO(69.2,DA(2),61,DA(1),2,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,"Not in SITE/S
PECIMEN FIELD OF LAB TEST FILE for this test",! K X
LAST EDITED: FEB 01, 1986
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.2,999 DATA CHANGE DATE 999;0 DATE Multiple #69.299 (Add New Entry without Asking)
DESCRIPTION:
Date of the Data change
69.299,.01 DATA CHANGE DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=Y
LAST EDITED: JUN 05, 1985
DESCRIPTION:
Date the data was changed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.299,.02 PERSON CHANGING DATA 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 15, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
69.299,.03 DATA ELEMENT 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 15, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Name of the test being edited.
69.299,.04 OLD VALUE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: MAR 11, 1988
HELP-PROMPT: ANSWER MUST BE 1-45 CHARACTERS IN LENGTH
DESCRIPTION:
Previous test result.
69.299,.05 NEW VALUE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: MAR 11, 1988
HELP-PROMPT: ANSWER MUST BE 1-45 CHARACTERS IN LENGTH
DESCRIPTION:
New test result.
69.299,.06 FILE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>38!($L(X)<2) X
LAST EDITED: JUN 06, 1985
HELP-PROMPT: ANSWER MUST BE 2-38 CHARACTERS IN LENGTH
DESCRIPTION:
File where the data is stored.
69.299,.07 FILE ENTRY 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: JUN 05, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
The numeric entry of the file.
69.299,.08 INTERNAL FILE # 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAY 17, 1986
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
The internal number where the data is stored.
69.299,1 SUBFILE FIELD NAME 1;0 Multiple #69.37 (Add New Entry without Asking)
69.37,.01 SUBFILE FIELD NAME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 12, 1986
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
CROSS-REFERENCE: 69.37^B
1)= S ^LRO(69.2,DA(2),999,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(69.2,DA(2),999,DA(1),1,"B",$E(X,1,30),DA)
69.37,.02 SUBFILE FIELD ENTRY 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAY 12, 1986
HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
69.37,.03 SUBFILE FIELD # 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: MAY 12, 1986
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
FILES POINTED TO FIELDS
ACCESSION (#68) NAME (#.01)
LAB DATA (#63) REPORTS ON DEMAND:REPORTS ON DEMAND (#.01)
LRDFN:LRDFN (#.01)
LABORATORY TEST (#60) TEST:TEST (#.01)
TEST:TEST (#.01)
TEST TO DISPLAY:TEST TO DISPLAY (#.01)
TEST TO PRINT:TEST TO PRINT (#.01)
MORPHOLOGY FIELD (#61.1) MORPHOLOGY ENTRY:MORPHOLOGY ENTRY (#.01)
NEW PERSON (#200) USER REQUEST LIST:USER (#.01)
FILE:USER (#.04)
PATIENT (#2) LRDFN:VA PATIENT NUMBER (#.06)
TOPOGRAPHY FIELD (#61) TEST:SPECIMEN (#.02)
TOPOGRAPHY:TOPOGRAPHY (#.01)
TEST TO DISPLAY:SPECIMEN (#.02)
TEST TO PRINT:SPECIMEN (#.02)
INPUT TEMPLATE(S):
LRAPHDR APR 01, 1994@15:03 USER #0
PRINT TEMPLATE(S):
LRUCNG JUL 16, 1990@10:27 USER #0 DATA CHANGES
SORT TEMPLATE(S):
LRUCNG MAY 23, 1986 USER #0
SORT BY: NAME// (User is asked range)
WITHIN NAME, SORT BY: DATA CHANGE DATE//
DATA CHANGE DATE SUB-FIELD: DATA CHANGE DATE// (User is asked range)
FORM(S)/BLOCK(S):