STANDARD DATA DICTIONARY #60 -- LABORATORY TEST FILE 9/29/25 PAGE 1
STORED IN ^LAB(60, (1039 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the file that holds the names and ordering, display of tests.
APPLICATION GROUP(S): ORE, GMTS, PXRM
IDENTIFIED BY: SUBSCRIPT (#4), HIGHEST URGENCY ALLOWED (#17)[R], PRINT NAME (#51)[R], DATA NAME (#400)
POINTED TO BY: LAB TEST MONITOR field (#17.2) of the DRUG File (#50)
*LAB TEST MONITOR field (#623002) of the DRUG File (#50)
LAB TEST MONITOR field (#.01) of the CLOZAPINE LAB TEST sub-field (#50.02) of the DRUG File (#50)
LAB TEST field (#.01) of the LAB TEST INCLUDED IN PANEL sub-field (#60.02) of the LABORATORY TEST File (#60)
LOCAL TEST ENTRY field (#2) of the TEST CODE sub-field (#61.393) of the LABORATORY INSTRUMENT CODE File (#61.39)
TEST NAME FOR INPUT VALUE 1 field (#60.1) of the DELTA CHECKS File (#62.1)
TEST NAME FOR INPUT VALUE 2 field (#60.2) of the DELTA CHECKS File (#62.1)
TEST NAME FOR INPUT VALUE 3 field (#60.3) of the DELTA CHECKS File (#62.1)
TEST NAME FOR OUTPUT VALUE 1 field (#61.1) of the DELTA CHECKS File (#62.1)
LAB TEST field (#.01) of the LAB TEST sub-field (#62.21) of the COLLECTION WKLD CODE sub-field (#62.02) of the
COLLECTION SAMPLE File (#62)
TEST field (#.01) of the TEST sub-field (#62.31) of the LAB CONTROL NAME File (#62.3)
ACCESSION TEST field (#.01) of the ACCESSION TEST sub-field (#62.32) of the LAB CONTROL NAME File (#62.3)
DEFAULT AUTO MICRO TEST field (#106) of the AUTO INSTRUMENT File (#62.4)
TEST field (#.01) of the LABORATORY TESTS sub-field (#62.41) of the AUTO INSTRUMENT File (#62.4)
TEST field (#.01) of the TEST sub-field (#62.61) of the ACCESSION TEST GROUP File (#62.6)
TEST field (#.02) of the SPECIMENS sub-field (#62.801) of the LAB SHIPPING MANIFEST File (#62.8)
LAB TEST field (#.08) of the LAB SHIPPING EVENT File (#62.85)
TEST/PROFILE field (#.01) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION File (#62.9)
LAB TEST ORDERED field (#13) of the ORDERED TEST sub-field (#63.07) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field
(#63.04) of the LAB DATA File (#63)
PARENT TEST field (#14) of the ORDERED TEST sub-field (#63.07) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field
(#63.04) of the LAB DATA File (#63)
EM PROCEDURE field (#.01) of the EM PROCEDURE sub-field (#63.20211) of the EPON BLOCK sub-field (#63.2021) of the
SPECIMEN sub-field (#63.202) of the EM sub-field (#63.02) of the LAB DATA File (#63)
STAIN/PROCEDURE field (#.01) of the STAIN/PROCEDURE sub-field (#63.3311) of the PARAFFIN BLOCK sub-field (#63.331)
of the AUTOPSY SPECIMEN sub-field (#63.033) of the LAB DATA File (#63)
LAB TEST ORDERED field (#13) of the ORDERED TEST sub-field (#63.5) of the MICROBIOLOGY sub-field (#63.05) of the LAB
DATA File (#63)
PARENT TEST field (#14) of the ORDERED TEST sub-field (#63.5) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA
File (#63)
LAB TEST ORDERED field (#13) of the ORDERED TEST sub-field (#63.51) of the CYTOPATHOLOGY sub-field (#63.09) of the
LAB DATA File (#63)
PARENT TEST field (#14) of the ORDERED TEST sub-field (#63.51) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB
DATA File (#63)
LAB TEST ORDERED field (#13) of the ORDERED TEST sub-field (#63.52) of the EM sub-field (#63.02) of the LAB DATA
File (#63)
PARENT TEST field (#14) of the ORDERED TEST sub-field (#63.52) of the EM sub-field (#63.02) of the LAB DATA File
(#63)
LAB TEST ORDERED field (#13) of the ORDERED TEST sub-field (#63.53) of the SURGICAL PATHOLOGY sub-field (#63.08) of
the LAB DATA File (#63)
PARENT TEST field (#14) of the ORDERED TEST sub-field (#63.53) of the SURGICAL PATHOLOGY sub-field (#63.08) of the
LAB DATA File (#63)
SURGICAL WORKLOAD PROFILE field (#.02) of the SPECIMEN sub-field (#63.812) of the SURGICAL PATHOLOGY sub-field
(#63.08) of the LAB DATA File (#63)
STAIN/PROCEDURE field (#.01) of the STAIN/PROCEDURE sub-field (#63.8122) of the PARAFFIN BLOCK sub-field (#63.8121)
of the SPECIMEN sub-field (#63.812) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63)
PLASTIC STAIN/PROCEDURE field (#.01) of the PLASTIC STAIN/PROCEDURE sub-field (#63.823) of the PLASTIC BLOCK
sub-field (#63.822) of the SPECIMEN sub-field (#63.812) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB
DATA File (#63)
STAIN/PROCEDURE field (#.01) of the STAIN/PROCEDURE sub-field (#63.825) of the FROZEN TISSUE BLOCK sub-field
(#63.824) of the SPECIMEN sub-field (#63.812) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File
(#63)
WORKLOAD PROFILE field (#.02) of the SPECIMEN sub-field (#63.902) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB
DATA File (#63)
PREPARED SLIDES STAIN field (#.01) of the PREPARED SLIDES STAIN sub-field (#63.90241) of the PREPARED SLIDES
sub-field (#63.9024) of the SPECIMEN sub-field (#63.902) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA
File (#63)
CYTOSPIN STAIN field (#.01) of the CYTOSPIN STAIN sub-field (#63.90251) of the CYTOSPIN sub-field (#63.9025) of the
SPECIMEN sub-field (#63.902) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
STAIN/PROCEDURE field (#.01) of the STAIN/PROCEDURE sub-field (#63.9122) of the SMEAR PREP sub-field (#63.9121) of
the SPECIMEN sub-field (#63.902) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
CELL BLOCK STAIN field (#.01) of the CELL BLOCK STAIN sub-field (#63.923) of the CELL BLOCK sub-field (#63.922) of
the SPECIMEN sub-field (#63.902) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63)
MEMBRANE FILTER STAIN field (#.01) of the MEMBRANE FILTER STAIN sub-field (#63.9241) of the MEMBRANE FILTER
sub-field (#63.924) of the SPECIMEN sub-field (#63.902) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA
File (#63)
TEST field (#25.5) of the WKLD CODE File (#64)
TEST field (#3) of the TIME ASPECT sub-field (#64.02) of the SPECIMEN sub-field (#64.01) of the WKLD CODE File (#64)
ASSOCIATED NAME field (#.01) of the ASSOCIATED NAME sub-field (#64.023) of the WKLD CODE File (#64)
LAB TEST NAME field (#7) of the WKLD LOG FILE File (#64.03)
LAB TEST field (#1) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field (#64.111) of the
DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
LAB TEST field (#.01) of the LAB TEST sub-field (#64.53) of the MINOR HEADER sub-field (#64.52) of the MAJOR HEADER
sub-field (#64.51) of the LAB REPORTS File (#64.5)
TEST field (#2) of the RESULT sub-field (#64.708) of the COLLECTION DATE/TIME sub-field (#64.707) of the
MISCELLANEOUS sub-field (#64.702) of the CUMULATIVE File (#64.7)
TEST/PROCEDURE field (#.01) of the TEST/PROCEDURE sub-field (#65.3) of the BLOOD INVENTORY File (#65)
WORKLOAD TEST/PROCEDURE field (#.01) of the WORKLOAD TEST/PROCEDURE sub-field (#65.599) of the DONATION OR DEFERRAL
DATE sub-field (#65.54) of the BLOOD DONOR File (#65.5)
TESTS TO CHECK field (#.01) of the TESTS TO CHECK sub-field (#66.04) of the BLOOD PRODUCT File (#66)
PRE-OP TESTS TO CHECK field (#.01) of the PRE-OP TESTS TO CHECK sub-field (#66.08) of the BLOOD PRODUCT File (#66)
TEST field (#.01) of the TESTS sub-field (#68.04) of the ACCESSION NUMBER sub-field (#68.02) of the DATE sub-field
(#68.01) of the ACCESSION File (#68)
PARENT TEST field (#8.1) of the TESTS sub-field (#68.04) of the ACCESSION NUMBER sub-field (#68.02) of the DATE
sub-field (#68.01) of the ACCESSION File (#68)
CONTROL DATA field (#.01) of the CONTROL DATA sub-field (#68.12) of the MULTI-RULE VA QC sub-field (#68.11) of the
DATE sub-field (#68.01) of the ACCESSION File (#68)
TEST field (#.01) of the TEST sub-field (#68.13) of the SPECIMEN sub-field (#68.05) of the ACCESSION NUMBER
sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File (#68)
TESTS field (#.01) of the TESTS sub-field (#68.222) of the SEQUENCE or CUP NUMBER sub-field (#68.22) of the RUN or
TRAY NUMBER sub-field (#68.21) of the LOAD/WORK LIST File (#68.2)
TEST field (#.01) of the TEST sub-field (#68.24) of the PROFILE sub-field (#68.23) of the LOAD/WORK LIST File
(#68.2)
ADDITIONAL LAB TESTS field (#.01) of the ADDITIONAL LAB TESTS sub-field (#68.3) of the LOAD/WORK LIST File (#68.2)
TEST/PROCEDURE field (#.01) of the TEST sub-field (#69.03) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER
ENTRY File (#69)
TEST field (#.01) of the TEST sub-field (#69.11) of the COLLECTION LIST File (#69.1)
TEST field (#.01) of the TEST sub-field (#69.34) of the TEST LIST NUMBER sub-field (#69.33) of the LAB SECTION PRINT
File (#69.2)
TEST field (#.01) of the TEST sub-field (#69.36) of the LAB TEST GROUP sub-field (#69.35) of the USER REQUEST LIST
sub-field (#69.28) of the LAB SECTION PRINT File (#69.2)
LAB TEST field (#.01) of the LAB TEST sub-field (#69.52) of the LAB SEARCH/EXTRACT File (#69.5)
TEST TO DISPLAY field (#.01) of the TEST TO DISPLAY sub-field (#69.62) of the TOPOGRAPHY sub-field (#69.61) of the
LAB SECTION PRINT File (#69.2)
TEST TO PRINT field (#.01) of the TEST TO PRINT sub-field (#69.63) of the TOPOGRAPHY sub-field (#69.61) of the LAB
SECTION PRINT File (#69.2)
HOST TEST field (#11) of the ORDERED TESTS sub-field (#69.64) of the LAB PENDING ORDERS ENTRY File (#69.6)
LAB TEST (TO EXCLUDE) field (#.01) of the LAB TEST (TO EXCLUDE) sub-field (#69.862) of the HOWDY SITE FILE File
(#69.86)
ORDER LABEL TESTS field (#.01) of the ORDER LABEL TESTS sub-field (#69.8625) of the HOWDY SITE FILE File (#69.86)
ITEM ORDERED field (#7) of the ORDER File (#100)
NAME field (#.01) of the ORDER STATISTICS File (#100.1)
FILE LINK field (#6) of the PROTOCOL File (#101)
LAB TEST field (#.01) of the LAB TEST sub-field (#104.15) of the MDRO TOOLS LAB SEARCH/EXTRACT File (#104.1)
LAB TEST field (#1) of the LAB DATA sub-field (#115.021) of the NUTRITION ASSESSMENT sub-field (#115.011) of the
NUTRITION PERSON File (#115)
LAB TEST field (#.01) of the LAB TEST sub-field (#119.9001) of the FH SITE PARAMETERS File (#119.9)
SELECTION ITEM field (#.01) of the SELECTION ITEM sub-field (#142.14) of the STRUCTURE sub-field (#142.01) of the
HEALTH SUMMARY TYPE File (#142)
LAB TEST field (#5) of the CLINICAL EVENTS File (#234)
TEST NAME field (#.01) of the TEST NAME sub-field (#603.41) of the CLOZAPINE TESTS File (#603.04)
LAB CHEM field (#614) of the RHEUMATOLOGY File (#701)
LOCAL LAB TEST NAME field (#.01) of the LOCAL LAB TEST NAME sub-field (#727.211) of the DSS LAB TEST sub-field
(#727.21) of the DSS LAB TESTS File (#727.2)
TEST field (#11) of the LABORATORY EXTRACT File (#727.813)
LOCAL TEST NAME field (#.01) of the LOCAL TEST NAME sub-field (#798.128) of the ROR REGISTRY PARAMETERS File
(#798.1)
FINDING ITEM field (#.04) of the EXTRACT FINDINGS sub-field (#810.31) of the REMINDER EXTRACT SUMMARY File (#810.3)
FINDING ITEM field (#.01) of the LREPI FINDING TOTALS sub-field (#810.32) of the REMINDER EXTRACT SUMMARY File
(#810.3)
FINDING ITEM field (#.01) of the FINDINGS sub-field (#811.52) of the REMINDER TERM File (#811.5)
FINDING ITEM field (#.01) of the FINDINGS sub-field (#811.902) of the REMINDER DEFINITION File (#811.9)
GLUCOSE NAMES field (#.01) of the REPORT GLUCOSE NAMES sub-field (#815.0802) of the PCE PARAMETERS File (#815)
CHOLESTEROL NAMES field (#.01) of the REPORT CHOLESTEROL NAMES sub-field (#815.0803) of the PCE PARAMETERS File
(#815)
LDL CHOLESTEROL NAMES field (#.01) of the REPORT LDL CHOLESTEROL NAMES sub-field (#815.0804) of the PCE PARAMETERS
File (#815)
HBA1C NAMES field (#.01) of the REPORT HBA1C NAMES sub-field (#815.0805) of the PCE PARAMETERS File (#815)
TEST PERFORMED field (#12) of the VBECS WORKLOAD CAPTURE File (#6002.01)
CROSS
REFERENCED BY: LAB TEST(AB), NATIONAL VA LAB CODE(AC), NATIONAL VA LAB CODE(AD), RESULT NLT CODE(AE), LOINC CODE(AF),
LOINC CODE(AG), CPRS SCREEN(AV1), AOE SCREEN(AV2), NAME(AX0), TYPE(AX1), TEST COST(AX2), SUBSCRIPT(AX3),
NATIONAL VA LAB CODE(AX4), NAME(B), SYNONYM(B), LOCATION (DATA NAME)(C), PRINT NAME(D)
INDEXED BY: TYPE & CREATION DATE & TEST INACTIVE DATE (AMLTFEDITS)
LAST MODIFIED: AUG 22,2024@15:20
60,.01 NAME 0;1 FREE TEXT (Required) (audited)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3)!(X'?.ANP) X I $D(X) K:X[""""!(X<0) X
LAST EDITED: JUL 28, 2016
HELP-PROMPT: ANSWER MUST BE 3-40 CHARACTERS IN LENGTH AND NOT ALREADY A SYNONYM
DESCRIPTION:
This is the name of the Laboratory test you are defining in this entry.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 60^B
1)= S ^LAB(60,"B",$E(X,1,40),DA)=""
2)= K ^LAB(60,"B",$E(X,1,40),DA)
CROSS-REFERENCE: 60^AX0^MUMPS
1)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
2)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
Trigger update to CPRS.
CROSS-REFERENCE: ^^TRIGGER^60^131
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CTCHK^LRMLED(+DA) I X S X=DIV S Y(1)=$S($D(^LAB(60
,D0,14)):^(14),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(60,.01,1,3
,1.4)
1.4)= S DIH=$G(^LAB(60,DIV(0),14)),DIV=X S $P(^(14),U,1)=DIV,DIH=60,DIG=131 D ^DICR
2)= Q
CREATE CONDITION)= S X=$$CTCHK^LRMLED(+DA)
CREATE VALUE)= TODAY
DELETE VALUE)= NO EFFECT
FIELD)= CREATION DATE
This will populate field 131 creation date when a test is added.
60,1 TEST COST 0;11 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999)!(X<.01) X
LAST EDITED: NOV 18, 1997
HELP-PROMPT: TYPE A NUMBER BETWEEN .01 AND 9999
DESCRIPTION:
Enter the cost of the test.
CROSS-REFERENCE: 60^AX2^MUMPS
1)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
2)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
Trigger update to CPRS.
60,2 SYNONYM 5;0 Multiple #60.1 (Add New Entry without Asking)
DESCRIPTION:
This is another name for the test. It may be the locally preferred name, or a common misspelling.
60.1,.01 SYNONYM 0;1 FREE TEXT (Multiply asked) (audited)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:(X'?.ANP)!($L(X)>60) X
LAST EDITED: APR 11, 2006
HELP-PROMPT: ANSWER MUST BE 1-60 CHARACTERS IN LENGTH AND NOT ALREADY IN USE
DESCRIPTION: This is another name for the test. It may be the locally preferred name, or a common
misspelling.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 60^B^MNEMONIC
1)= S ^LAB(60,"B",$E(X,1,30),DA(1))=1
2)= K ^LAB(60,"B",$E(X,1,30),DA(1))
CROSS-REFERENCE: 60.1^B
1)= S ^LAB(60,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 60.1^AX5^MUMPS
1)= N TEST S TEST=DA(1) N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
2)= N TEST,KSYN S TEST=DA(1),KSYN=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD2^LR7OV0(TEST,KSYN)
Trigger update to CPRS
60,3 TYPE 0;3 SET (Required) (audited)
'I' FOR INPUT (CAN BE ORDERED);
'O' FOR OUTPUT (CAN BE DISPLAYED);
'B' FOR BOTH;
'N' FOR NEITHER;
LAST EDITED: DEC 16, 2016
HELP-PROMPT: Enter The Method (Type) for how the test is to be treated.
DESCRIPTION: I == (Input) test can be ordered but not displayed by the computer. O == (Output) test can be
displayed but never ordered by itself. B == (Both) test can be ordered and displayed. N ==
(Neither) test is internal to lab only.
AUDIT: YES, ALWAYS
CROSS-REFERENCE: 60^AX1^MUMPS
1)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
2)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
Trigger update to CPRS.
RECORD INDEXES: AMLTFEDITS (#1420)
60,4 SUBSCRIPT 0;4 SET (audited)
'CH' FOR CHEM, HEM, TOX, SER, RIA, ETC.;
'MI' FOR MICROBIOLOGY;
'BB' FOR BLOOD BANK;
'EM' FOR ELECTRON MICROSCOPY;
'SP' FOR SURGICAL PATHOLOGY;
'CY' FOR CYTOLOGY;
'AU' FOR AUTOPSY;
'WK' FOR WORKLOAD;
INPUT TRANSFORM: S LW=X Q
LAST EDITED: NOV 18, 1997
DESCRIPTION: SUBSCRIPT is the pointer to the legal subscripts in the LR SUBSCRIPT file. CH for Chem, Hem, Tox,
Ser, Ria, etc., MI for Microbiology, BB for Blood Bank, EM for Electron Microscopy, SP for Surgical
Pathology, CY for Cytology, AU for Autopsy. This field is required for all orderable tests.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 60^AX3^MUMPS
1)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
2)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
Trigger update to CPRS.
60,5 LOCATION (DATA NAME) 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<4)!'(X?2A1P.ANP) X
LAST EDITED: JUN 12, 1984
HELP-PROMPT: ANSWER MUST BE 4-12 CHARACTERS IN LENGTH
DESCRIPTION: LOCATION (DATA NAME) is the exact character representation of the corresponding entry in the
RESULTS file. The input transform receives from SUBSCRIPT of the previously defined piece, as well
as the node and piece information from the data definition file for the result.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
WRITE AUTHORITY: @
UNEDITABLE
NOTES: TRIGGERED by the DATA NAME field of the LABORATORY TEST File
CROSS-REFERENCE: 60^C
1)= S ^LAB(60,"C",$E(X,1,30),DA)=""
2)= K ^LAB(60,"C",$E(X,1,30),DA)
60,6 ACCESSION AREA 8;0 POINTER Multiple #60.11 (Add New Entry without Asking)
LAST EDITED: SEP 06, 1984
DESCRIPTION:
This is the appropriate institution/division this test is performed at.
60.11,.01 INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4) (audited)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUL 31, 1985
DESCRIPTION: This is the appropriate institution/division this test is performed at. If this test is part of
a panel that does not have an accession area defined for the panel, that panel will be expanded
based on the institution/division the program is operating under. I.e., if the institution
doesn't find a match, the panel test ordered will not include this test.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60.11,1 ACCESSION AREA 0;2 POINTER TO ACCESSION FILE (#68) (audited)
INPUT TRANSFORM: S DIC("S")="I '$L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 05, 1992
DESCRIPTION: This is the appropriate accession area for this test. If the test is a panel, all tests on that
panel will be assigned to the entered accession area. If some of the panel's tests go to other
accession areas, leave this field blank. This will be the default accession area for this test.
SCREEN: S DIC("S")="I '$L($P(^(0),U,17))"
EXPLANATION: You can not select an accession area designated Work Area only.
AUDIT: YES, ALWAYS
60.11,2 BLOCK ORDERING 0;3 SET (BOOLEAN Data Type)
LAST EDITED: DEC 26, 2023
HELP-PROMPT: Answer 'YES' to prevent users signed in to this division from ordering this test or answer 'NO'
(or leave blank) to enable ordering this test.
DESCRIPTION: This field provides multi-divisional sites with an additional level of filtering when displaying
orderable laboratory tests. It designates whether this test is orderable by users signed in to
the selected INSTITUTION. A value of 'YES' means users signed in to this division CANNOT order
this test. A value of 'NO' (or when this field is empty) means users signed in to this division
CAN order this test.
60,7 UNIQUE ACCESSION # 0;7 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION: If this field contains YES then this test will have a unique accession number whenever it is
accessioned, even though it may be ordered with other tests. If the test may be performed with
other tests on the same specimen, this field should be blank.
60,8 UNIQUE COLLECTION SAMPLE 0;8 SET (audited)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 21, 2015
DESCRIPTION: This field should be entered only if the test is never done on any other collection sample than the
ONE designated in Select COLLECTION SAMPLE: The system will then not bother asking if the sample is
the correct one.
AUDIT: YES, ALWAYS
60,9 LAB COLLECTION SAMPLE 0;9 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: SEP 14, 1983
DESCRIPTION: This entry, for the given Laboratory Test, is THE collection sample brought back on routine
phlebotomy collection by the lab when they make rounds on the wards. If blank, the test CANNOT be
ordered for routine collection.
SCREEN: S DIC("S")="I $$ACTV62^LRJUTL3(Y,DT)"
EXPLANATION: Select an active collection sample.
60,10 REQUIRED TEST 0;17 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 23, 1984
HELP-PROMPT: If the test is mandatory and no data is reported, the default is "pending"
DESCRIPTION: This field should be YES if this is a mandatory test, i.e., if no data is reported, the default
status is "pending".
60,13 FIELD 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<2)!'(X?1"DD(".ANP) X
LAST EDITED: JUN 12, 1984
HELP-PROMPT: ANSWER MUST BE 2-13 CHARACTERS IN LENGTH
DESCRIPTION:
Data Dictionary field in file 63.
DELETE TEST: 1,0)= I DUZ(0)'="@"
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: TRIGGERED by the DATA NAME field of the LABORATORY TEST File
60,14 PROCEDURE (SNOMED) 0;10 POINTER TO PROCEDURE FIELD FILE (#61.5)
DESCRIPTION:
This is the SNOMED name or code of this test.
60,15 *QUICK INDEX 0;13 SET
'1' FOR YES;
LAST EDITED: SEP 06, 1984
HELP-PROMPT: YES FOR QUICK INDEX, "@" TO REMOVE FROM QUICK INDEX
DESCRIPTION:
No longer used. Will be deleted after this version.
60,16 EXTRA LABELS 0;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<-1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 14, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN -1 AND 99
DESCRIPTION: If blank, the minimum number of labels (accounting for required volume) is generated. Enter a
positive number for extra copies, -1 if NO label is desired.
60,16.1 INSTITUTION EXTRA LABELS 13;0 POINTER Multiple #60.15
DESCRIPTION: This field allows selection of a division in order to set the number of If present, this value is
used for any user signed into this division.
60.15,.01 INSTITUTION EXTRA LABELS 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
LAST EDITED: SEP 02, 2016
DESCRIPTION: This field allows selection of a division in order to set the number of labels for a given test
for the selected division.
CROSS-REFERENCE: 60.15^B
1)= S ^LAB(60,DA(1),13,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),13,"B",$E(X,1,30),DA)
60.15,1 NUMBER OF LABELS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 01, 2016
HELP-PROMPT: Type a number between 0 and 999, 0 decimal digits.
DESCRIPTION: Enter the desired number of extra labels for the test for the current division. If omitted, the
number of labels in the Extra Labels field (#16) for the test will be used. If no value is
present in either field (16 or this Institution Extra Labels field), then the computed default
number of labels for this test will print.
60,17 HIGHEST URGENCY ALLOWED 0;16 POINTER TO URGENCY FILE (#62.05) (Required) (audited)
LAST EDITED: MAY 13, 1985
HELP-PROMPT: Enter the urgency with the lowest number allowed for this test.
DESCRIPTION:
The highest urgency allowed must be stored here. The smaller the number, the more urgent.
AUDIT: YES, ALWAYS
60,18 FORCED URGENCY 0;18 POINTER TO URGENCY FILE (#62.05) (audited)
LAST EDITED: OCT 22, 1984
DESCRIPTION:
This specifies the default urgency status of this test. It points to the URGENCY file.
AUDIT: YES, ALWAYS
60,51 PRINT NAME .1;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X I $D(X),$D(^LAB(60,"D",X)),'$D(^LAB(
60,"D",X,DA)) K X
LAST EDITED: OCT 18, 2007
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
Default test heading for cumulative results reports. (May be different in LAB REPORTS file 64.5.)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 60^D
1)= S ^LAB(60,"D",$E(X,1,30),DA)=""
2)= K ^LAB(60,"D",$E(X,1,30),DA)
3)= Do not delete - used to insure unique print names
60,52 Reserved .1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
DESCRIPTION:
Reserved for future use.
60,53 PRINT CODE .1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>240!($L(X)<2) X I $D(X) S X="W "_X D ^DIM I $D(X) S X=$E(X,3,256)
LAST EDITED: OCT 26, 1984
HELP-PROMPT: ANSWER MUST BE 2-240 CHARACTERS IN LENGTH, AND VALID MUMPS CODE
DESCRIPTION: Represents MUMPS code for extraction or justification of the value that is in the file. It's
particularly useful for displaying abbreviated information for sets. It could be used to append
trailing zeros after a decimal point.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60,54 PRETTY PRINT ENTRY .1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
DESCRIPTION: This is the Pretty Print Routine (see next field) line entry point. Some programs have more than
one entry to give a "special" display.
60,55 PRETTY PRINT ROUTINE .1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
DESCRIPTION: If no entry is made, (and the test is type 'O'utput or 'B'oth), display output from the [LRGEN]
menu option is a general cumulative. With a program name here, [LRGEN] instead runs the alternate
program for display.
60,56 PRINT ORDER .1;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."4N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the print order of the test within its accession area.
60,64 NATIONAL VA LAB CODE 64;1 POINTER TO WKLD CODE FILE (#64)
LAST EDITED: MAY 17, 2005
HELP-PROMPT: Enter the VA National Code that corresponds to this lab test.
DESCRIPTION:
This field is used to map tests in file 60 to the VA National Lab codes found in file 64.
CROSS-REFERENCE: 60^AC
1)= S ^LAB(60,"AC",$E(X,1,30),DA)=""
2)= K ^LAB(60,"AC",$E(X,1,30),DA)
CROSS-REFERENCE: 60^AD^MUMPS
1)= S ^LAB(60,"AD",DA,$E(X,1,30))=""
2)= K ^LAB(60,"AD",DA,$E(X,1,30))
CROSS-REFERENCE: 60^AX4^MUMPS
1)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
2)= N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)
Trigger update to CPRS.
60,64.1 RESULT NLT CODE 64;2 POINTER TO WKLD CODE FILE (#64) (audited)
LAST EDITED: JUL 19, 2001
HELP-PROMPT: Enter the workload procedure code for this test.
DESCRIPTION: This is the workload procedure code associated with this test. It is used in compiling laboratory
workload statistics.
AUDIT: YES, ALWAYS
CROSS-REFERENCE: 60^AE^MUMPS
1)= S ^LAB(60,"AE",$P($G(^LAM(X,0)),U,2),DA)=""
2)= K ^LAB(60,"AE",$P($G(^LAM(X,0)),U,2),DA)
This MUMPS cross reference is used for sorting LABORATORY TEST entries by workload code number.
The format for the cross reference nodes is shown below.
^LAB(60,"AE",Workload Code Number,IEN)=""
60,64.2 CATALOG ITEM 64;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 06, 1997
HELP-PROMPT: Answer Yes to include this item in the Electronic Catalog
DESCRIPTION:
This field is used to indicate that this entry is to be included in the Electronic Catalog.
60,98 EDIT CODE 0;14 POINTER TO EXECUTE CODE FILE (#62.07)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""E""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 26, 1984
DESCRIPTION:
Points to EXECUTE CODE file.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""E"""
EXPLANATION: Only allow 'EDIT' type of the EXECUTE CODE file
60,99.1 *BATCH DATA CODE 4;1 POINTER TO EXECUTE CODE FILE (#62.07)
LAST EDITED: JUL 25, 1984
DESCRIPTION:
No longer used. Will be deleted after 1/89.
60,99.2 EXECUTE ON DATA REVIEW 4;2 POINTER TO EXECUTE CODE FILE (#62.07)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 15, 1986
DESCRIPTION:
At the time a test or panel of tests is reviewed, the execute code is run.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""D"""
EXPLANATION: Only allow the use of data type code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60,100 SITE/SPECIMEN 1;0 POINTER Multiple #60.01
LAST EDITED: JUN 12, 2016
DESCRIPTION: Processing specimen type for each entry in the Lab Collection Sample field. Example: Sodium can
be determined on serum and urine. Entries in this field are not appropriate (or even used) if the
test is a panel of
tests.
INDEXED BY: MLTF NUMBER & RESULT/SPECIMEN INACTIVE DATE & EXCEPTION FLAG & SPECIMEN CREATE DATE (AMLTFEDIT),
REFERENCE LOW & REFERENCE HIGH & CRITICAL LOW & CRITICAL HIGH & UNITS & TYPE OF DELTA CHECK & DELTA
VALUE & DEFAULT VALUE & THERAPEUTIC LOW & THERAPEUTIC HIGH & USE FOR REFERENCE TESTING & SPECIMEN
CREATE DATE (AMLTFNTRT), SITE/SPECIMEN (ASPECCR)
60.01,.01 SITE/SPECIMEN 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked) (audited)
INPUT TRANSFORM: D IT600101^LRXREF1(.DA,.DINUM,.X)
LAST EDITED: SEP 08, 2016
HELP-PROMPT: To enter a Site/specimen, a Data name must be entered and Site/specimen must be active.
DESCRIPTION: Processing specimen type for each entry in the Lab Collection Sample field. Example: Sodium can
be determined on serum and urine. To enter a Site/specimen, a Data name must be entered.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 60.01^B
1)= S ^LAB(60,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),1,"B",$E(X,1,30),DA)
FIELD INDEX: ASPECCR (#1423) MUMPS ACTION
Short Descr: Cross Reference for the Specimen create date
Description: This cross reference is to set the specimen create date if this is a new specimen for the test.
Set Logic: D NSP^LRMLED(DA,$G(DA(1)))
Set Cond: S X=$S('$D(LRMLTFREC):1,1:0)
Kill Logic: Q
Kill Cond: S X=0
X(1): SITE/SPECIMEN (60.01,.01) (forwards)
60.01,1 REFERENCE LOW 0;2 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>50!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
DESCRIPTION: This is the user entered reference low value for this test. If both the low and high are defined
it will print in this manner:
low : 10
high : 50 If only the low is defined and it is numeric it will print in this manner:
low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
NORMAL If only the high is defined and it is numeric it will print in this manner:
high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
>1000
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,2 REFERENCE HIGH 0;3 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>50!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
DESCRIPTION: This is the user entered reference high value for this test. If both the low and high are
defined it will print in this manner:
low : 10
high : 50 If only the low is defined and it is numeric it will print in this manner:
low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
NORMAL If only the high is defined and it is numeric it will print in this manner:
high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
>1000
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,3 CRITICAL LOW 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
DESCRIPTION: This is the user entered critical low value for this test. Used to flag results. If both the
low and high are defined it will print in this manner:
low : 10
high : 50 If only the low is defined and it is numeric it will print in this manner:
low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
NORMAL If only the high is defined and it is numeric it will print in this manner:
high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
>1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,4 CRITICAL HIGH 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($E(X,1)?1A)!(X["^") X I $D(X) S X="S X="_X D ^DIM Q:'$D(X) S X=$P(X,"=",2,99)
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE "QUOTES" AROUND TEXT)
DESCRIPTION: This is the user entered critical high value of this test. Used to flag results. If both the
low and high are defined it will print in this manner:
low : 10
high : 50 If only the low is defined and it is numeric it will print in this manner:
low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
NORMAL If only the high is defined and it is numeric it will print in this manner:
high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
>1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,5.5 INTERPRETATION 1;0 WORD-PROCESSING #60.07
DESCRIPTION: Enter any remark to accompany EVERY test result. These remarks may be edited and formatted with
the FileMan text editor. The text may be other range information, special conditions, etc.
60.01,6 UNITS 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
UNITS represents such things as grams, number of items per cubic millimeter, or microliter.
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,7 TYPE OF DELTA CHECK 0;8 POINTER TO DELTA CHECKS FILE (#62.1)
LAST EDITED: APR 10, 2016
DESCRIPTION:
Points to DELTA CHECK file.
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,8 DELTA VALUE 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1) X
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
DESCRIPTION:
DELTA VALUE is the value that is passed to the Delta Check Code.
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,9 DEFAULT VALUE 0;10 FREE TEXT
INPUT TRANSFORM:N LRX S LRX=U_$P(^LAB(60,DA(1),0),U,12)_"0)" K:'$D(@LRX) X Q:'$D(X) S LRX=@LRX X:$P(LRX,U,2)'["S"
$P(LRX,U,5,99) Q:'$D(X)!($P(LRX,U,2)'["S") S LRX=";"_$P(LRX,U,3) K:'(LRX[(";"_X_":")) X
LAST EDITED: APR 10, 2016
HELP-PROMPT: ANSWER MUST MATCH APPROPRIATE INPUT IN 'LAB DATA' FILE
DESCRIPTION:
Leave blank or enter the most common (say, >80% of the time) response for the test.
EXECUTABLE HELP:N LRXDP S LRXDP=$P(^LAB(60,D0,0),U,12) I LRXDP'="" S LRXDP=U_LRXDP_"0)" I $D(@LRXDP) S LRXDP=@LRXDP
D:$D(^(3)) EN^DDIOL(^(3)) D:$P(LRXDP,U,2)["S" LRSET^LRVER5
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,9.2 THERAPEUTIC LOW 0;11 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1)!(X["^") X I $D(X) S X="S X="_X D ^DIM I $D(X) S X=$E(X,5,256)
LAST EDITED: APR 10, 2016
HELP-PROMPT: ENTER LOW END OF THERAPEUTIC RANGE (USE "QUOTES" AROUND TEXT)
DESCRIPTION: This is the low end value of the therapeutic range. Used to flag results. If both the low and
high are defined it will print in this manner:
low : 10
high : 50 If only the low is defined and it is numeric it will print in this manner:
low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
NORMAL If only the high is defined and it is numeric it will print in this manner:
high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
>1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,9.3 THERAPEUTIC HIGH 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1)!(X["^") X I $D(X) S X="S X="_X D ^DIM I $D(X) S X=$E(X,5,256)
LAST EDITED: APR 10, 2016
HELP-PROMPT: ENTER HIGH END OF THERAPEUTIC RANGE (USE "QUOTES" AROUND TEXT)
DESCRIPTION: This is the high end value of the therapeutic range. Used to flag results. If both the low and
high are defined it will print in this manner:
low : 10
high : 50 If only the low is defined and it is numeric it will print in this manner:
low: 10 If only the low is defined and it is alphanumeric it will print in this manner:
NORMAL If only the high is defined and it is numeric it will print in this manner:
high: 50 If only the high is defined and it is alphanumeric it will print in this manner:
>1000
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,10 *AMIS/RCS 14-4 2;0 POINTER Multiple #60.06 (Add New Entry without Asking)
DESCRIPTION:
No longer used. Will be deleted after this version
60.06,.01 *AMIS/RCS 14-4 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
LAST EDITED: DEC 28, 1983
DESCRIPTION:
No longer used. Will be deleted after this version
60.01,13 USE FOR REFERENCE TESTING .1;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 10, 2016
HELP-PROMPT: Should reference values/units for this specimen type also be used for reference lab results.
DESCRIPTION: Indicates if the reference ranges and units associated with this specimen type can be used when
manually entering results of testing performed at another laboratory.
RECORD INDEXES: AMLTFNTRT (#1422)
60.01,20 FOREIGN COMPUTER SYSTEM 4;0 Multiple #60.2
ITEM # OF ANOTHER SYSTEM
LAST EDITED: JUN 22, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
DESCRIPTION:
Reserved for future use. Do not use.
60.2,.01 FOREIGN COMPUTER SYSTEM 0;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
LAST EDITED: NOV 23, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
Reserved for future use. Do not use.
CROSS-REFERENCE:60.2^B
1)= S ^LAB(60,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)
CROSS-REFERENCE:60.01^AC^MUMPS
1)= S ^LAB(60,DA(2),1,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(60,DA(2),1,"AC",$E(X,1,30),DA(1),DA)
To allow look up of foreign computer symbols for this test and sample.
60.2,1 FOREIGN ITEM # 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: NOV 23, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
RESERVED FOR FUTURE USE
60.2,2 INTEGER 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 23, 1993
HELP-PROMPT: ENTER 'YES' IF THE FOREIGN COMPUTER EXPECTS THIS VALUE TO BE AN INTEGER.
DESCRIPTION:
RESERVED FOR FUTURE USE
60.2,3 UNIT CONVERSION 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 23, 1993
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
RESERVED FOR FUTURE USE
EXECUTABLE HELP:Q
60.01,30 MLTF NUMBER 6;1 POINTER TO MASTER LABORATORY TEST FILE (#66.3)
INPUT TRANSFORM:S DIC("S")="I '$$SCREEN^XTID(66.3,.01,+Y_"","")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 02, 2016
HELP-PROMPT: Enter a partial match for the Master Lab Test Name and select an Item displayed or '^' to quit.
DESCRIPTION:
This is the MLTF pointer to 66.3.
SCREEN: S DIC("S")="I '$$SCREEN^XTID(66.3,.01,+Y_"","")"
EXPLANATION: Inactive MLTF items will not be selectable.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^60.01^31
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,1,D1,6)):^(6),1:"") S
X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="" I +DIV>0 S X=$$GET1^DIQ(66.3,DIV_",",.01) X ^DD(60.01
,30,1,1,1.4)
1.4)= S DIH=$G(^LAB(60,DIV(0),1,DIV(1),6)),DIV=X S $P(^(6),U,2)=DIV,DIH=60.01,DIG=31 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,1,D1,6)):^(6),1:"") S
X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LAB(60,DIV(0),1,DIV(1),6)),DIV=X S $P(^(6),U,2)=DIV
,DIH=60.01,DIG=31 D ^DICR
CREATE VALUE)= S X="" I +DIV>0 S X=$$GET1^DIQ(66.3,DIV_",",.01)
DELETE VALUE)= @
FIELD)= MLTF NAME
This picks up the MLTF Name for the MLTF Number and saves it in the MLTF NAME.
RECORD INDEXES: AMLTFEDIT (#1421)
60.01,31 MLTF NAME 6;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>120!($L(X)<1) X
LAST EDITED: JUN 08, 2016
HELP-PROMPT:Answer must be 1-120 characters in length.
DESCRIPTION:
This is the MLTF Test Name from 66.3.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the MLTF NUMBER field of the SITE/SPECIMEN sub-field of the LABORATORY TEST File
60.01,32 RESULT/SPECIMEN INACTIVE 5;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 10, 2016
HELP-PROMPT:Enter Y if specimen is inactive, N if the specimen is active.
DESCRIPTION:
This field indicates if the Specimen is inactive.
WRITE AUTHORITY:^
UNEDITABLE
NOTES: TRIGGERED by the RESULT/SPECIMEN INACTIVE DATE field of the SITE/SPECIMEN sub-field of the
LABORATORY TEST File
60.01,33 RESULT/SPECIMEN INACTIVE DATE 5;2 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 29, 2016
HELP-PROMPT:Enter the date that the Specimen was determined to be inactive.
DESCRIPTION:
This is the date that a Specimen is determined to be inactive.
CROSS-REFERENCE:^^TRIGGER^60.01^32
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,1,D1,5)):^(5),1:"") S
X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X="Y" X ^DD(60.01,33,1,2,1.4)
1.4)= S DIH=$G(^LAB(60,DIV(0),1,DIV(1),5)),DIV=X S $P(^(5),U,1)=DIV,DIH=60.01,DIG=32 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,1,D1,5)):^(5),1:"") S
X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^LAB(60,DIV(0),1,DIV(1),5)),DIV=X S $P(^(5),U,1)=DIV
,DIH=60.01,DIG=32 D ^DICR
CREATE VALUE)= "Y"
DELETE VALUE)= @
FIELD)= RESULT/SPECIMEN INACTIVE
if there is a inactivation date set field 32 to Y for yes.
RECORD INDEXES: AMLTFEDIT (#1421)
60.01,34 EXCEPTION FLAG 5;3 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 10, 2016
HELP-PROMPT:Enter Y if the specimen has been sent to NTRT
DESCRIPTION:
If the Exception Flag is Y the Test/Specimen has been sent to NTRT for evaluation.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
RECORD INDEXES: AMLTFEDIT (#1421)
60.01,35 SPECIMEN CREATE DATE 5;4 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 29, 2016
HELP-PROMPT:Enter the date that the Specimen was created.
DESCRIPTION:
The date the specimen was created.
RECORD INDEXES: AMLTFEDIT (#1421), AMLTFNTRT (#1422)
60.01,95.3 LOINC CODE 95.3;1 POINTER TO LAB LOINC FILE (#95.3) (audited)
OUTPUT TRANSFORM:I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_"-"_$P(^LAB(95.3,Y,0),U,15),1:Y)
LAST EDITED: DEC 11, 2001
DESCRIPTION:
This field contains the pointer to the LAB LOINC (#95.3) file.
AUDIT: YES, ALWAYS
CROSS-REFERENCE:60^AF
1)= S ^LAB(60,"AF",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(60,"AF",$E(X,1,30),DA(1),DA)
This cross reference is used to determine which entries and specimens have been mapped/linked to
LOINC Codes.
CROSS-REFERENCE:60^AG^MUMPS
1)= S ^LAB(60,"AG",DA(1),DA,$E(X,1,30))=""
2)= K ^LAB(60,"AG",DA(1),DA,$E(X,1,30))
This X-Ref is used to determine which lab test and specimen combination has been mapped/linked to a
LOINC code.
60.01,96 SPECIMEN CPT 3;0 POINTER Multiple #60.196
60.196,.01 SPECIMEN CPT 0;1 POINTER TO CPT FILE (#81)
LAST EDITED: AUG 07, 2003
DESCRIPTION:
A CPT associated with the specimen
CROSS-REFERENCE:60.196^B
1)= S ^LAB(60,DA(2),1,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(2),1,DA(1),3,"B",$E(X,1,30),DA)
60.196,1 ACTIVE DATE (CSV) 0;2 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 07, 2003
DESCRIPTION:
This the active date of the SPECIMEN CPT for CSV purposes.
60,110 GENERAL PROCESSING INST. 7;0 WORD-PROCESSING #60.09
DESCRIPTION:
This may include any processing instructions pertinent to this test.
LAST EDITED: OCT 22, 1984
DESCRIPTION:
This may include any processing instructions pertinent to this test.
60,131 CREATION DATE 14;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 29, 2016
HELP-PROMPT: Enter the date this test was created and submitted to NTRT.
DESCRIPTION:
The creation date of the test.
NOTES: TRIGGERED by the NAME field of the LABORATORY TEST File
RECORD INDEXES: AMLTFEDITS (#1420)
60,132 TEST INACTIVE 14;2 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 10, 2016
HELP-PROMPT: Enter Y if the test is inactive.
DESCRIPTION:
This field indicates if a test is inactive. If it is Y the test is inactive.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: TRIGGERED by the TEST INACTIVE DATE field of the LABORATORY TEST File
60,133 TEST INACTIVE DATE 14;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 29, 2016
HELP-PROMPT: Enter the Date the Test was inactivated.
DESCRIPTION:
This is the date that a Test was determined to be inactive.
CROSS-REFERENCE: ^^TRIGGER^60^132
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,14)):^(14),1:"") S X=$P(Y(1),U,2),X=X S D
IU=X K Y S X=DIV S X="Y" S DIH=$G(^LAB(60,DIV(0),14)),DIV=X S $P(^(14),U,2)=DIV,DIH=60,DIG=132 D ^D
ICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,14)):^(14),1:"") S X=$P(Y(1),U,2),X=X S D
IU=X K Y S X="" S DIH=$G(^LAB(60,DIV(0),14)),DIV=X S $P(^(14),U,2)=DIV,DIH=60,DIG=132 D ^DICR
CREATE VALUE)= "Y"
DELETE VALUE)= @
FIELD)= TEST INACTIVE
If there is a test inactivation date then set field 132 to Y for yes.
RECORD INDEXES: AMLTFEDITS (#1420)
60,134 IN HOUSE TEST 14;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter Yes if tests are performed on-site using instruments or manual methods, otherwise enter No.
DESCRIPTION:
Tests are performed on-site using instruments or manual methods.
60,135 POC TEST 14;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter Yes if tests are performed using POC equipment.
DESCRIPTION: Tests performed using POC equipment, ie, glucometers, coagulation, INR, etc, that are performed
outside the main laboratory, ie, wards, ICU, OR, etc.
60,136 CALCULATION TEST 14;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter Yes if test result produced by calculation.
DESCRIPTION:
Whether the test result is calculated (not directly measured)
60,137 SCANNED IMAGE TEST 14;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter Yes if the Results were scanned into VistA Imaging due to complexity.
DESCRIPTION:
This field indicates if the result is scanned due to complexity.
60,138 BILLABLE 14;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter Yes if this test relates to Standardized Billable Tests (SBT) for LMP.
DESCRIPTION: Yes: Test satisfies definition of a Standardized Billable Test (SBT) and will count for Laboratory
workload. Is a test that a provider can order, has its own published CPT Code and is performed by
Lab personnel. No: Test is not an SBT because it is either not separately orderable by a provider,
does not have its own CPT Code, is a calculated test result, or is a test that is performed by
non-lab personnel.
60,139 WORKLOAD CAPTURE 14;9 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter Yes if this test is a stand alone product,ie, is an SBT, that has its own labor and supply
costs. This setting relates to Managerial Cost Accounting (MCA).
DESCRIPTION: Yes: The test is a stand-alone product, ie, is an SBT, that has its own labor and supply costs. No:
There is no labor or supply cost associated with producing the test because the test is already
part of the labor/supply costs of another test.
60,140 AUDIT DATE/TIME 15;0 DATE Multiple #60.28
DESCRIPTION:
This is the audit multiple for changes to select fields.
60.28,.01 AUDIT DATE/TIME 0;1 DATE
INPUT TRANSFORM: S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 14, 2016
HELP-PROMPT: Enter the date and time that the edit occurred.
DESCRIPTION:
This is date/time that the audit change was saved.
CROSS-REFERENCE: 60.28^B
1)= S ^LAB(60,DA(1),15,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),15,"B",$E(X,1,30),DA)
60.28,.02 EDIT USER 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 14, 2016
HELP-PROMPT: Enter the user who performed the edits.
DESCRIPTION:
The user who edited the field.
60.28,.03 EDIT FIELD 0;3 SET
'M' FOR MLTF VUID;
'C' FOR TEST CREATION DATE;
'T' FOR TEST INACTIVE DATE;
'R' FOR SPECIMEN INACTIVE DATE;
'E' FOR NTRT EXCEPTION FLAG;
'Y' FOR TEST TYPE;
'S' FOR SPECIMEN CREATION DATE;
LAST EDITED: DEC 14, 2016
HELP-PROMPT: Select from the list the field that was edited.
DESCRIPTION:
These are the fields that have the changes tracked for NTRT.
60.28,.04 EDIT OLD VALUE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: DEC 14, 2016
HELP-PROMPT: Enter the value of the field before the edit was done, from 1 to 40 characters.
DESCRIPTION:
This is the original value (old) before the edit was done.
60.28,.05 EDIT NEW VALUE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: DEC 14, 2016
HELP-PROMPT: Enter the new value of the field that was edited, from 1 to 40 characters.
DESCRIPTION:
This is the (New) value of the field after the edit was performed.
60.28,.06 SPECIMEN NUMBER 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 14, 2016
HELP-PROMPT: Type a number between 0 and 999999, 0 decimal digits.
DESCRIPTION:
This is the internal IEN for the Specimen that was edited.
60,141 PERFORMING LAB 16;0 SET Multiple #60.16
DESCRIPTION: This indicates the performing lab for this test. There can be multiple performing labs with each
having a single order code.
60.16,.01 PERFORMING LAB 0;1 SET
'IH' FOR IN-HOUSE;
'CL' FOR CONTRACT REF LAB;
'VAL' FOR VA REFERENCE LAB;
'AL' FOR AFFILIATE REF LAB;
LAST EDITED: MAR 23, 2018
HELP-PROMPT: Enter IH if In-House, CL if Contract Reference Lab, VAL if VA Reference Lab, AL if Affiliate
Reference Lab.
DESCRIPTION: (IH) In-house: Test performed by lab personnel on equipment within the laboratory facility that
are not part of a contract/purchase order. (CL) Contract Reference Lab: VISN/Regional contracted
laboratories such as Quest, LabCorp, ARUP, etc. (VAL) VA Reference Lab. (AL) Affiliate
Reference Lab: Local hospital laboratories or other special reference labs that perform tests
requested, ie, STATUS, tests with special handling requirements, or tests not available from
Contract Ref Lab, etc.
CROSS-REFERENCE: 60.16^B
1)= S ^LAB(60,DA(1),16,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),16,"B",$E(X,1,30),DA)
60.16,1 ORDER CODE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
MAXIMUM LENGTH: 120
LAST EDITED: APR 13, 2018
HELP-PROMPT: For on-site tests use National VA Lab Code entry, for Reference Lab tests use Order Code provided
by performing lab. Can be 1-120 char in length.
DESCRIPTION:
Use Order Code if contract lab Use Panel Name if VistA or a VA lab
60,200 LAB TEST INCLUDED IN PANEL 2;0 POINTER Multiple #60.02
DESCRIPTION: Enter only if this is a panel of other tests, e.g. if the "Laboratory Test" is ELECTROLYTES, the
entries here might be, NA, CL, K, CO2. If it's an ADMIT PROFILE, they might be ELECTROLYTES, LIVER
FUNCTION, CARDIAC ENZYMES.
60.02,.001 NUMBER 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
DESCRIPTION: This number signifies the order the tests are displayed in the Load/work lists under each
appropriate accession, in the Enter/Edit options, and in the interim reports.
60.02,.01 LAB TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked) (audited)
INPUT TRANSFORM: D IT600201^LRXREF
LAST EDITED: MAR 04, 1988
HELP-PROMPT: Select only if the panel does not have a data name.
DESCRIPTION: If the entry is to be changed or the number sequence is to be changed, the entry must be first
deleted to be moved to a different position in the panel.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 60^AB
1)= S ^LAB(60,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(60,"AB",$E(X,1,30),DA(1),DA)
60.02,.02 AP MULTIPLY FACTOR 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 07, 1991
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: For workload if procedure is counted more than once the number
of times counted is entered here.
Used only for cytology workload and labels.
60,300 COLLECTION SAMPLE 3;0 POINTER Multiple #60.03 (Add New Entry without Asking)
DESCRIPTION: Enter the appropriate collection sample(s) for standard processing in the lab. These are the
common names that the phlebotomists and ward personnel would recognize. The first entry is the
"default" collection sample.
IDENTIFIED BY: CONTAINER(#2)
60.03,.01 COLLECTION SAMPLE 0;1 POINTER TO COLLECTION SAMPLE FILE (#62) (audited)
INPUT TRANSFORM:I $P(^LAB(60,DA(1),0),U,8),$O(^(3,0))>0 D EN^DDIOL("ONLY ONE UNIQUE COLLECTION SAMPLE","","?0") K X
LAST EDITED: AUG 29, 2008
HELP-PROMPT: Enter the appropriate collection sample for standard processing in the lab.
DESCRIPTION: Enter the appropriate collection sample(s) for standard processing in the lab. These are the
common names the phlebotomists and ward personnel use and would recognize. The first entry will be
the "default " collection sample. Points to the COLLECTION SAMPLE file.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^60.03^2
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"") S
X=$P(Y(1),U,3) S DIU=X K Y X ^DD(60.03,.01,1,1,1.1) X ^DD(60.03,.01,1,1,1.4)
1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62,D0,0)):^(
0),1:"") S X=$P(Y(101),U,3) S D0=Y(1)
1.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S D
IH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=60.03,DIG=2 D ^DICR:$O
(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"") S
X=$P(Y(1),U,3) S DIU=X K Y X ^DD(60.03,.01,1,1,2.1) X ^DD(60.03,.01,1,1,2.4)
2.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62,D0,0)):^(
0),1:"") S X=$P(Y(101),U,3) S D0=Y(1)
2.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S D
IH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=60.03,DIG=2 D ^DICR:$O
(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= COLLECTION SAMPLE:TUBE TOP COLOR
DELETE VALUE)= COLLECTION SAMPLE:TUBE TOP COLOR
FIELD)= CONTAINER
This cross reference uses the COLLECTION SAMPLE field to navigate to the COLLECTION SAMPLE file and
retrieve the TUBE TOP COLOR field value and store in CONTAINER field (#2).
CROSS-REFERENCE:60.03^B
1)= S ^LAB(60,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),3,"B",$E(X,1,30),DA)
60.03,1 FORM NAME/NUMBER 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
The identification of the proper Lab slip for this test.
60.03,2 CONTAINER ; COMPUTED
MUMPS CODE: X ^DD(60.03,2,9.2) S D0=$P(Y(60.03,2,1),U,1) S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(60.03,2,101)=$S($D(^LA
B(62,D0,0)):^(0),1:"") S X=$P(Y(60.03,2,101),U,3) S D0=Y(60.03,2,80) S D1=Y(60.03,2,81)
9.2 = S Y(60.03,2,81)=$S($D(D1):D1,1:""),Y(60.03,2,80)=$S($D(D0):D0,1:""),Y(60.03,2,1)=$S($D(^LAB(6
0,D0,3,D1,0)):^(0),1:"")
ALGORITHM: COLLECTION SAMPLE:TUBE TOP COLOR
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: This entry uses the COLLECTION SAMPLE field to navigate to the COLLECTION SAMPLE file and retrieve
the TUBE TOP COLOR field value.
NOTES: TRIGGERED by the COLLECTION SAMPLE field of the COLLECTION SAMPLE sub-field of the LABORATORY TEST
File
60.03,3 MIN VOL (in mls.) 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: JAN 26, 1984
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999
DESCRIPTION: Number of milliliters required to perform the test. This number is summed during the creation of
the routine phlebotomy collection list to compute the minimum number of samples to collect.
60.03,4 MAX. ORDER FREQ. 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>120)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: JUN 18, 2019
HELP-PROMPT: Enter the timeframe in number of days (between 1 and 120) that the test should be ordered to be
collected only once.
DESCRIPTION: Use this field to control how often a test may be ordered to be collected within a certain time
period (# of days). If you enter "3", the test should only be ordered to be collected once every
three days. The entry will then force CPRS to remind the ordering person that the order being
placed for this test exceeds the maximum order frequency.
60.03,4.5 SINGLE DAY MAX ORDER FREQ 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>50)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: JUN 18, 2019
HELP-PROMPT: Enter the maximum number of times (between 1 and 50) that a test should be ordered to be collected
within a single day.
DESCRIPTION: If this test should not be ordered to be collected more than a certain number of times per day,
enter a number (between 1 and 50) specifying the maximum frequency per day. The entry will then
cause CPRS to remind the ordering person that the order being placed for this test exceeds the
"single day maximum frequency" for the specified collection date.
60.03,5 WARD REMARKS 1;0 WORD-PROCESSING #60.04
DESCRIPTION:
Text to be seen by the ward each time the test is ordered for a specific collection sample.
60.03,6 LAB PROCESSING INSTRUCTIONS 2;0 WORD-PROCESSING #60.05
DESCRIPTION:
Text seen by the lab as the test is received in the accession room.
60.03,7 REQUIRED COMMENT 0;6 POINTER TO EXECUTE CODE FILE (#62.07)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 27, 1984
DESCRIPTION: Enter a comment or statement that may be required in regards to this test. Points to EXECUTE CODE
file.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: ONLY ALLOW COMMENTS CODE
60.03,500 SAMPLE WKLD CODE 9;0 POINTER Multiple #60.14
LAST EDITED: MAR 15, 1991
DESCRIPTION: If there is a particular WKLD code which is associate the assaying this type of specimen, enter
that WKLD code here. For example spinal fluid electrophoresis, this specimen must be concentrated
before the procedure can be performed.
60.14,.01 SAMPLE WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM:I $D(X) S DINUM=X
LAST EDITED: MAR 07, 1991
DESCRIPTION: If this test has a sample type which should have a specific WKLD code associate with it, enter
the WKLD code here.
Example: Urine electrophoresis always has a urine protein performed. enter the WKLD code for
that procedure here. It will only be counted for collection sample of urine.
Note: This field is similar to Verify WKLD code sub-file except for the treatment of the suffix
and collection sample specific.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^60.14^1
1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(60,D0,3,D
1,9,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(60.14,.
01,1,1,1.4)
1.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),9,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.1
4,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(60,D0,3,D
1,9,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(60.14,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),9,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.1
4,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)
DELETE VALUE)= @
FIELD)= WKLD CODE
60.14,1 SAMPLE WKLD CODE # 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<9) X
LAST EDITED: JUL 07, 1992
HELP-PROMPT: Answer must be 9 characters in length.
DESCRIPTION:
This field contains the actual WKLD Code number.
TECHNICAL DESCR:
This field is triggered, the user cannot edit this field.
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the SAMPLE WKLD CODE field of the SAMPLE WKLD CODE sub-field of the COLLECTION SAMPLE
sub-field of the LABORATORY TEST File
60.14,2 TEST MULTIPLY FACTOR 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 16, 1994
HELP-PROMPT: Type a Number between 0 and 20, 0 Decimal Digits
DESCRIPTION: If this particular WKLD code should be multiplied in order to receive proper count. Enter that
number here. The default is 1.
NOTE: This field is identical the field found in the Verify WKLD code field sub file.
60,310 GENERAL WARD INSTRUCTIONS 6;0 WORD-PROCESSING #60.08
DESCRIPTION: Text to be seen by the ward each time the test is ordered regardless of the type of collection
sample.
LAST EDITED: OCT 10, 1984
DESCRIPTION: Text to be seen by the ward each time the test is ordered regardless of the type of collection
sample.
60,320 REQUIRED COMMENT 0;19 POINTER TO EXECUTE CODE FILE (#62.07)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 04, 1984
DESCRIPTION:
Points to EXECUTE CODE file.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: ONLY ALLOW COMMENTS CODE
60,400 DATA NAME .2;1 POINTER TO CHEM, HEM, TOX, RIA, SER, etc. SUB-FIELD FILE (#63)
INPUT TRANSFORM: S DIC("S")="I Y>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S Y=$O(^LAB(60,"C","CH;"_X_";1",0))
I Y>0 W !,*7," WILL PRINT AS ",$P(^LAB(60,Y,0),U,1)
LAST EDITED: FEB 15, 1985
DESCRIPTION: If the test is a panel, skip this entry! If it is an individual test, AND IS PART OF THE CHEM,
HEM, TOX, SER, RIA, ETC. area, in order to be able to ENTER results, must have an entry! Micro,
Blood Bank, Anatomic Path, excluded.
SCREEN: S DIC("S")="I Y>1"
EXPLANATION: THIS IS TO GET ONLY TEST NAMES
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^60^5
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K
Y X ^DD(60,400,1,1,1.1) X ^DD(60,400,1,1,1.4)
1.1)= S X=DIV S X="CH;"_$P(^DD(63.04,DIV,0),"^",4)
1.4)= S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U"
S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=60,DIG=5 D ^DICR:$O(^DD(DIH,DIG
,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K
Y S X=DIV S X="" X ^DD(60,400,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U"
S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=60,DIG=5 D ^DICR:$O(^DD(DIH,DIG
,1,0))>0
CREATE VALUE)= S X="CH;"_$P(^DD(63.04,DIV,0),"^",4)
DELETE VALUE)= @
FIELD)= LOCATION
CROSS-REFERENCE: ^^TRIGGER^60^13
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"") S X=$P(Y(1),U,12) S DIU=X
K Y X ^DD(60,400,1,2,1.1) X ^DD(60,400,1,2,1.4)
1.1)= S X=DIV S X="DD(63.04,"_DIV_","
1.4)= S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99)) S DIH=DIH_U
" S %=$P(DIH,U,13,999),^(0)=$P(DIH,U,1,11)_U_DIV_$S(%]"":U_%,1:""),DIH=60,DIG=13 D ^DICR:$O(^DD(DIH
,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"") S X=$P(Y(1),U,12) S DIU=X
K Y S X=DIV S X="" X ^DD(60,400,1,2,2.4)
2.4)= S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11,99)) S DIH=DIH_U
" S %=$P(DIH,U,13,999),^(0)=$P(DIH,U,1,11)_U_DIV_$S(%]"":U_%,1:""),DIH=60,DIG=13 D ^DICR:$O(^DD(DIH
,DIG,1,0))>0
CREATE VALUE)= S X="DD(63.04,"_DIV_","
DELETE VALUE)= @
FIELD)= FIELD
60,410 INPUT TRANSFORM ; COMPUTED
MUMPS CODE: S X=$P(^LAB(60,D0,0),U,12) I X]"" S Y=@(U_X_"0)"),X=$S($P(Y,U,2)["S":$P(Y,U,3),1:$P(Y,U,5,99))
ALGORITHM: S X=$P(^(0),U,12),X=$P(@(X_"0)"),U,5,99)
DESCRIPTION:
Computed field.
60,411 DATA TYPE ; COMPUTED
MUMPS CODE: S X=$P(^LAB(60,D0,0),U,12) I X]"" S X=$P(@(U_X_"0)"),U,2),X=$S(X["F":"FREE TEXT",X["N":"NUMERIC",X[
"S":"SET",1:"OTHER")
ALGORITHM: S X=$P(^(0),U,12),X=$P(@(U_X_"0)"),U,2),X=$S(X["F":"FREE TEXT",X["N":"NUMERIC",X["S":"SET",1:"OTHER
")
DESCRIPTION:
Computed field.
60,412 CULTURE ID PREFIX 0;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 17, 1989
HELP-PROMPT: Number from 0-9 inclusive. ie 0=culture & susep 1= gram stain, etc.
DESCRIPTION: Used by the Vitek to make the accession number unique for down load.
This number should be zero to nine. This number is appended to the front of the accession number.
If there is no entry in this field, this test will not be downloaded.
60,500 VERIFY WKLD CODE 9;0 POINTER Multiple #60.12
LAST EDITED: FEB 25, 1991
DESCRIPTION: The College of American Pathologists Workload codes for
the test/procedure are entered here.
IDENTIFIED BY: VERIFY WKLD CODE #(#1)[R]
60.12,.01 VERIFY WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked) (audited)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: NOV 12, 1991
DESCRIPTION: The WKLD codes for this test are entered here. Enter only the WKLD codes for the procedures that
are done at your hospital for this test.
TECHNICAL DESCR: The verification programs look here to determine the prefix to be used to record workload. The
suffix is determined by the method defined at the beginning of the verificaton process.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^60.12^1
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9,D1,0)):^(0),1:"") S
X=$P(Y(1),U,2) S DIU=X K Y X ^DD(60.12,.01,1,1,1.1) X ^DD(60.12,.01,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1 S Y(101)=$S($D(^LAM(D0,0)
):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
1.4)= S DIH=$S($D(^LAB(60,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),
^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=60.12,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9,D1,0)):^(0),1:"") S
X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X="" X ^DD(60.12,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(60,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),
^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=60.12,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= WKLD CODE TEST:WKLD CODE
DELETE VALUE)= @
FIELD)= WKLD CODE
CROSS-REFERENCE:60.12^B
1)= S ^LAB(60,DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),9,"B",$E(X,1,30),DA)
60.12,1 VERIFY WKLD CODE # 0;2 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>10!($L(X)<9) X
LAST EDITED: JUL 07, 1992
HELP-PROMPT: ANSWER MUST BE 9-10 CHARACTERS IN LENGTH
DESCRIPTION:
This contains the WKLD codes for this test.
TECHNICAL DESCR:
This number is suffed by a trigger. The user is not allowed to edit this field.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the VERIFY WKLD CODE field of the VERIFY WKLD CODE sub-field of the LABORATORY TEST
File
60.12,2 TEST MULTIPLY FACTOR 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 25, 1991
HELP-PROMPT: Type a Number between 1 and 20, 0 Decimal Digits
DESCRIPTION: If this WKLD code should be counted more than once, enter the number of times it should be counted
to get the total correct workload. If the field is blank, then it will automatically be counted 1
time.
Note: In version prior to V5.2, this field was named the Default Yes field. That field is not
used with V5.2 and greater.
60.12,3 PROTECT SUFFIX 0;4 SET
'1' FOR YES;
LAST EDITED: APR 11, 1991
DESCRIPTION: If you wish to prevent the suffix from being converted to another suffix during verification. Enter
YES in this field.
Codes which do not have a .0000 suffix need not be protected. They are not changed during
verification.
TECHNICAL DESCR: YES in this field will prevent the suffix from being changed during verification.
NOTE: Suffixes are only changed for the Verification WKLD codes. The WKLD codes found in other
files and fields do not have their suffix changed.
60,500.1 ACCESSION WKLD CODE 9.1;0 POINTER Multiple #60.13
LAST EDITED: FEB 25, 1991
DESCRIPTION:
This subfile holds the WKLD codes to be credited during the accession process.
TECHNICAL DESCR: Note: None of the suffixes are changed in this sub file. Only those WKLD codes found in the
verification WKLD code sub file have the potential to have the suffix changed.
IDENTIFIED BY: ACCESSION WKLD CODE #(#1)
60.13,.01 ACCESSION WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked) (audited)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: MAR 26, 1991
DESCRIPTION: Enter the WKLD code used to identify the accession workload for this test. This field can be
also used for prep procedures, ie inoculating culture plates. This WKLD code count will appear on
the date the specimen was accessioned into the laboratory.
This field functions in the same manner as the WKLD codes, except it doesn't require a
completion date to be counted.
For CYTOLOGY SCREENING WORKLOAD the appropriate WKLD codes are
entered here.
TECHNICAL DESCR: The accession programs look to this field to determine if any accession workload should be
credited for this test.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^60.13^1
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9.1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(60.13,.01,1,1,1.4)
1.4)= S DIH=$S($D(^LAB(60,DIV(0),9.1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.13,DIG=1
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9.1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(60.13,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(60,DIV(0),9.1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.13,DIG=1
D ^DICR:$O(^DD(DIH,DIG,1,0))>0
3)= I need the data for WKLD Workload
CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)
DELETE VALUE)= @
FIELD)= WKLD CODE NUMBER
This data is used for lookup when computing WKLD Workload
60.13,1 ACCESSION WKLD CODE # 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>90000)!(X<10000)!(X?.E1"."3N.E)!(X?.E1".".E.A) X
LAST EDITED: JUL 07, 1992
HELP-PROMPT: Type a Number between 10000 and 90000, 3-4 Decimal Digits
DESCRIPTION:
This field contains the actual WKLD Code number.
TECHNICAL DESCR:
This field is stuffed by a trigger. The user cannot edit this field
WRITE AUTHORITY:^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the ACCESSION WKLD CODE field of the ACCESSION WKLD CODE sub-field of the LABORATORY
TEST File
60.13,2 TEST MULTIPLY FACTOR 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 25, 1991
HELP-PROMPT: Type a Number between 1 and 100, 0 Decimal Digits
DESCRIPTION: If this WKLD code should be counted more than once, enter that number here. The default is 1.
This field is identical to the multiply field in the verification WKLD code sub file.
60,501 *ASK AMIS/CAP CODES 0;2 SET
'1' FOR YES;
LAST EDITED: MAR 07, 1991
DESCRIPTION: This field is not longer used by AMIS/WORKLOAD. It will be made obsolete with V5.2 and will be
deleted in later release. Consult the section on workload in your implementation guide.
60,503 COMBINE TEST DURING ORDER 0;20 SET
'1' FOR NO;
'0' FOR YES;
LAST EDITED: DEC 14, 1988
HELP-PROMPT: Should this test be combined with any other test during order ?
DESCRIPTION: This field works in conjunction with combine test field in 69.9 If you do not want this to be
combined with any other test answer
NO --- A NULL ANSWER MEANS YES
60,504 CIS TEST CODE 10;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: MAR 26, 1990
HELP-PROMPT: Answer must be 5 characters in the following format AAnnn (AA001)
DESCRIPTION: This field is used by Clinical Information System such as those found in MICU. This field is not
used with the laboratory package it self but is a special field for interface with external system
computer systems.
60,505 SITE NOTES DATE 11;0 DATE Multiple #60.0505
DESCRIPTION:
This is the date of this particular note.
60.0505,.01 SITE NOTES DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1993
DESCRIPTION:
Date of the note.
CROSS-REFERENCE: 60.0505^B
1)= S ^LAB(60,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),11,"B",$E(X,1,30),DA)
60.0505,1 TEXT 1;0 WORD-PROCESSING #60.5051
LAST EDITED: SEP 12, 1993
DESCRIPTION:
Actual text of the note for this test.
LAST EDITED: SEP 12, 1993
60,506 DEFAULT SITE/SPECIMEN CPT 1.1;1 POINTER TO CPT FILE (#81)
LAST EDITED: NOV 05, 2004
DESCRIPTION: If a CPT cannot be determined by the SPECIMEN CPT (#96) field within the SITE/SPECIMEN (#100)
multiple, or by the HCPCS CODE (#507) field, or by locating an active CPT Code in the WKLD CODE
file (#64) entry pointed to by the NATIONAL VA LAB CODE (#64) field, then the CPT in this field is
the default.
60,507 HCPCS CODE 1.1;2 POINTER TO CPT FILE (#81)
LAST EDITED: NOV 05, 2004
DESCRIPTION: HCFA Common Procedure Coding System (HCPCS) is a coding system that is composed of Level I codes
(CPT codes), Level II codes (national codes), and Level III codes (local codes). Level I (CPT)
codes are five digit numeric codes that describe procedures and tests. CPT codes are developed and
maintained by the AMA with annual updates. Level II (national) codes are five digit alpha numeric
codes that describe pharmaceuticals, supplies, procedures, tests and services. Level II codes are
developed and maintained by CMS with quarterly updates. Level III (local) codes are five digit
alpha numeric codes that are being phased out by the fiscal intermediaries.
60,508 AMA COMPLIANT/BILLABLE PANEL 12;1 SET
'0' FOR No;
'1' FOR Yes;
LAST EDITED: MAR 03, 2006
DESCRIPTION: If this panel test is an AMA compliant or otherwise billable panel, enter a 'Yes' in this field.
If this field is set to 'Yes' and a valid CPT code is on file, the CPT code for the panel will be
sent to PCE for billing purposes as a bundled panel.
If this field is set to 'No', the panel will be unbundled into it's individual atomic tests and the
CPT codes for those atomic tests will be sent to PCE for billing purposes.
Note: This field is only functional for a panel test. This field is ignored for an atomic test.
Refer to the Clinical Indicator Data Capture (CIDC) implementation guide for further instruction
for managing this field.
60,21661 CPRS SCREEN 21661;0 POINTER Multiple #60.021661
LAST EDITED: SEP 23, 2015
DESCRIPTION: This field point to the CPRS Screen for this test. The test SubScript (CH,EM,CY...) must match the
SubScript of the CPRS Screen.
60.021661,.01 CPRS SCREEN 0;1 POINTER TO LR CPRS PARAMETERS FILE (#69.71) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="N LRSS S LRSS=$P(^LAB(60,D0,0),U,4) I $P(^LAB(60,D0,0),U,5)="""",$P(^LAB(69.71,Y,0),U,3
),$P(^(0),U,4)=LRSS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 15, 2015
HELP-PROMPT: Select the subscript that matches the CPRS Dialog
DESCRIPTION: This field contains the LR CPRS PARAMETERS (#69.71) sreen that links this test to a specific CPRS
Dialog Test. 102-BRONCHIAL CYTOLOGY. This will prevent user linking test that do not have the same
subscript as the CPRS AP Dialog parameter.
SCREEN: S DIC("S")="N LRSS S LRSS=$P(^LAB(60,D0,0),U,4) I $P(^LAB(60,D0,0),U,5)="""",$P(^LAB(69.71,Y,0),U,3
),$P(^(0),U,4)=LRSS"
EXPLANATION: CPRS AP DIALOG SCREEN
CROSS-REFERENCE:60.021661^B
1)= S ^LAB(60,DA(1),21661,"B",$E(X,1,30),DA)=""
2)= K ^LAB(60,DA(1),21661,"B",$E(X,1,30),DA)
CROSS-REFERENCE:60^AV1^MUMPS
1)= S ^LAB(60,"AV1",DA(1),$E(X,1,30),DA)=""
2)= K ^LAB(60,"AV1",DA(1),$E(X,1,30),DA)
FILES POINTED TO FIELDS
ACCESSION (#68) ACCESSION AREA:ACCESSION AREA (#1)
CHEM, HEM, TOX, RIA, SER, etc.
(#63) DATA NAME (#400)
COLLECTION SAMPLE (#62) LAB COLLECTION SAMPLE (#9)
COLLECTION SAMPLE:COLLECTION SAMPLE (#.01)
CPT (#81) DEFAULT SITE/SPECIMEN CPT (#506)
HCPCS CODE (#507)
SPECIMEN CPT:SPECIMEN CPT (#.01)
DELTA CHECKS (#62.1) SITE/SPECIMEN:TYPE OF DELTA CHECK (#7)
EXECUTE CODE (#62.07) EDIT CODE (#98)
*BATCH DATA CODE (#99.1)
EXECUTE ON DATA REVIEW (#99.2)
REQUIRED COMMENT (#320)
COLLECTION SAMPLE:REQUIRED COMMENT (#7)
INSTITUTION (#4) ACCESSION AREA:INSTITUTION (#.01)
INSTITUTION EXTRA LABELS:INSTITUTION EXTRA LABELS (#.01)
LAB LOINC (#95.3) SITE/SPECIMEN:LOINC CODE (#95.3)
LABORATORY TEST (#60) LAB TEST INCLUDED IN PANEL:LAB TEST (#.01)
LR CPRS PARAMETERS (#69.71) CPRS SCREEN:CPRS SCREEN (#.01)
MASTER LABORATORY TEST (#66.3) SITE/SPECIMEN:MLTF NUMBER (#30)
NEW PERSON (#200) AUDIT DATE/TIME:EDIT USER (#.02)
PROCEDURE FIELD (#61.5) PROCEDURE (SNOMED) (#14)
TOPOGRAPHY FIELD (#61) SITE/SPECIMEN:SITE/SPECIMEN (#.01)
URGENCY (#62.05) HIGHEST URGENCY ALLOWED (#17)
FORCED URGENCY (#18)
WKLD CODE (#64) NATIONAL VA LAB CODE (#64)
RESULT NLT CODE (#64.1)
*AMIS/RCS 14-4:*AMIS/RCS 14-4 (#.01)
VERIFY WKLD CODE:VERIFY WKLD CODE (#.01)
ACCESSION WKLD CODE:ACCESSION WKLD CODE (#.01)
SAMPLE WKLD CODE:SAMPLE WKLD CODE (#.01)
File #60
Record Indexes:
AMLTFEDITS (#1420) RECORD MUMPS ACTION
Short Descr: Track edits for MLTF NTRT selected items.
Description: This is to track edits to selected fields in support of the MLTF NTRT process. The items tracked by this cross
reference are: CREATION DATE (131), TEST INACTIVE DATE (133), and TYPE (3). The edits will be stored in the
60.28
AUDIT DATE/TIME multiple (140).
Set Logic: D BED^LRMLED(DA)
Set Cond: S X=$S('$D(LRMLTFREC):1,1:0)
Kill Logic: Q
Kill Cond: S X=0
X(1): TYPE (60,3) (forwards)
X(2): CREATION DATE (60,131) (forwards)
X(3): TEST INACTIVE DATE (60,133) (forwards)
Subfile #60.01
Record Indexes:
AMLTFEDIT (#1421) RECORD MUMPS ACTION
Short Descr: This tracks the edits for select MLTF NTRT items.
Description: This tracks the edits for site specimen fields (30, 33, 34, and 35) this is to update the AUDIT DATE/TIME
multiple 140
Set Logic: D SED^LRMLED(DA,$G(DA(1)))
Set Cond: S X=$S('$D(LRMLTFREC):1,1:0)
Kill Logic: Q
Kill Cond: S X=0
X(1): MLTF NUMBER (60.01,30) (forwards)
X(2): RESULT/SPECIMEN INACTIVE DATE (60.01,33) (forwards)
X(3): EXCEPTION FLAG (60.01,34) (forwards)
X(4): SPECIMEN CREATE DATE (60.01,35) (forwards)
AMLTFNTRT (#1422) RECORD MUMPS ACTION
Short Descr: If a specimen is created call NTRT.
Description: If a specimen is created call NTRT if it does not have a link to the MLTF
Set Logic: D EN^LRMLED(DA,DA(1))
Set Cond: S X=$S('$D(LRMLTFREC):1,1:0)
Kill Logic: Q
Kill Cond: S X=0
X(1): REFERENCE LOW (60.01,1) (forwards)
X(2): REFERENCE HIGH (60.01,2) (forwards)
X(3): CRITICAL LOW (60.01,3) (forwards)
X(4): CRITICAL HIGH (60.01,4) (forwards)
X(5): UNITS (60.01,6) (forwards)
X(6): TYPE OF DELTA CHECK (60.01,7) (forwards)
X(7): DELTA VALUE (60.01,8) (forwards)
X(8): DEFAULT VALUE (60.01,9) (forwards)
X(9): THERAPEUTIC LOW (60.01,9.2) (forwards)
X(10): THERAPEUTIC HIGH (60.01,9.3) (forwards)
X(11): USE FOR REFERENCE TESTING (60.01,13) (forwards)
X(12): SPECIMEN CREATE DATE (60.01,35) (forwards)
INPUT TEMPLATE(S):
LA7S ENTRY MAY 07, 1997@15:08 USER #0
LAB ENTRY NTRT APR 03, 2016@17:13 USER #0
LAB NTRT ASSOCIATE FEB 24, 2016@13:36 USER #0
LR ATOMIC TESTS APR 19, 2016@14:49 USER #0
LR COSMIC TESTS APR 19, 2016@14:57 USER #0
LR VERIFY WKLD CODE FEB 03, 1993@16:55 USER #0
LR7OAP CPRS 60 EDIT MAR 03, 2016@04:07 USER #0
LRCYTOEDIT APR 27, 1992@14:41 USER #0
PRINT TEMPLATE(S):
LA7S PRINT MAY 02, 2001@16:23 USER #0 Electronic Test Catalog
LR TEST DICTIONARY APR 16, 1986 USER #0 LABORATORY TEST LIST
SORT TEMPLATE(S):
LA7S SORT MAY 30, 1997@15:05 USER #0
SORT BY: @CATALOG ITEM// (CATALOG ITEM not null)
WITHIN CATALOG ITEM, SORT BY: @#NAME// (NAME not null)
LR TEST DICTIONARY APR 16, 1986 USER #0 'LR TEST DICTIONARY' Print Template always used
SORT BY: NAME//
FORM(S)/BLOCK(S):