STANDARD DATA DICTIONARY #64 -- WKLD CODE FILE 9/29/25 PAGE 1
STORED IN ^LAM( (24819 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the list of WKLD Codes, which are used to compile Laboratory workload statistics. The WKLD codes which refer to
specific methods (ie. suffixed codes) are created at the local site level. They are created either by manual entry via a special
option or automatically during verification. THIS FILE SHOULD NOT BE EDITED DIRECTLY. IT IS A STANDARDIZED NATIONAL FILE WITH
SPECIFIC INFORMATION AT SPECIFIC INTERNAL FILE NUMBERS. NONE THE ENTRIES SHOULD NEVER BE DELETED. ADDITIONAL ENTRIES WILL BE
DISTRIBUTED VIA GLOBAL TAPE WHEN NECESSARY.
THIS FILE SHOULD NOT BE EDITED DIRECTLY. IT IS A STANDARDIZED NATIONAL
FILE WITH SPECIFIC INFORMATION AT SPECIFIC INTERNAL FILE NUMBERS. NO ENTRIES SHOULD EVER BE DELETED. ADDITIONAL ENTRIES WILL BE
DISTRIBUTED VIA GLOBAL TAPE WHEN NECESSARY.
IDENTIFIED BY: WKLD CODE (#1)[R]
POINTED TO BY: NATIONAL VA LAB CODE field (#64) of the LABORATORY TEST File (#60)
RESULT NLT CODE field (#64.1) of the LABORATORY TEST File (#60)
*AMIS/RCS 14-4 field (#.01) of the *AMIS/RCS 14-4 sub-field (#60.06) of the SITE/SPECIMEN sub-field (#60.01) of the
LABORATORY TEST File (#60)
VERIFY WKLD CODE field (#.01) of the VERIFY WKLD CODE sub-field (#60.12) of the LABORATORY TEST File (#60)
ACCESSION WKLD CODE field (#.01) of the ACCESSION WKLD CODE sub-field (#60.13) of the LABORATORY TEST File (#60)
SAMPLE WKLD CODE field (#.01) of the SAMPLE WKLD CODE sub-field (#60.14) of the COLLECTION SAMPLE sub-field (#60.03)
of the LABORATORY TEST File (#60)
ETIOLOGY WKLD CODE field (#.01) of the ETIOLOGY WKLD CODE sub-field (#61.211) of the ETIOLOGY FIELD File (#61.2)
WKLD CODE field (#.01) of the WKLD CODE sub-field (#61.34) of the FUNCTION FIELD File (#61.3)
NATIONAL VA LAB CODE field (#64) of the ANTIMICROBIAL SUSCEPTIBILITY File (#62.06)
EXECUTE WKLD CODE field (#.01) of the EXECUTE WKLD CODE sub-field (#62.09) of the EXECUTE CODE File (#62.07)
WKLD CODE field (#.01) of the WKLD CODE sub-field (#62.211) of the LAB TEST sub-field (#62.21) of the COLLECTION
WKLD CODE sub-field (#62.02) of the COLLECTION SAMPLE File (#62)
RELATED ENTRY field (#.06) of the CODE SYSTEM REFERENCE sub-field (#63.00014) of the LAB DATA File (#63)
WKLD CODE field (#10) of the WKLD LOG FILE File (#64.03)
WKLD CODE field (#.01) of the WKLD CODE sub-field (#64.111) of the DATE sub-field (#64.11) of the WKLD DATA File
(#64.1)
WKLD CODE field (#.01) of the WKLD CODE COMMENTS sub-field (#64.13) of the WKLD DATA File (#64.1)
NLT CODE field (#3) of the RESULTS sub-field (#64.368) of the LAB DSS LAR EXTRACT File (#64.036)
WKLD CODE field (#.01) of the WKLD CODE sub-field (#65.311) of the COMPLETE DATE/TIME sub-field (#65.31) of the
TEST/PROCEDURE sub-field (#65.3) of the BLOOD INVENTORY File (#65)
WKLD CODE field (#.01) of the WKLD CODE sub-field (#65.59911) of the COMPLETE DATE/TIME sub-field (#65.5991) of the
WORKLOAD TEST/PROCEDURE sub-field (#65.599) of the DONATION OR DEFERRAL DATE sub-field (#65.54) etc...
WKLD CODE field (#.01) of the WKLD CODE sub-field (#66.06) of the BLOOD PRODUCT File (#66)
WKLD CODE field (#.01) of the WKLD CODE sub-field (#68.14) 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)
WHITE BLOOD COUNT field (#.01) of the CLOZAPINE LAB TEST File (#603.02)
NEUTROPHIL COUNT field (#1) of the CLOZAPINE LAB TEST File (#603.02)
WORKLOAD CODE field (#6) of the VBECS WORKLOAD CAPTURE File (#6002.01)
CROSS
REFERENCED BY: CODE(AB), ACTIVATE WKLD CODE(AC), TYPE(AD), ASSOCIATED NAME(AE), DSS Feeder Key(AF), DSS Feeder Key(AG),
DEFAULT LOINC CODE(AH), LOINC CODE(AI), LOINC CODE(AJ), ES DISPLAY ORDER(AK), TEST(AL), TEST(AM), PROCEDURE(B),
SYNONYM(B), WKLD CODE(C), PROCEDURE(D), WKLD CODE(E), PRINT NAME(F), SYNONYM(G), PROCEDURE(VR)
LAST MODIFIED: JAN 20,2025@16:00:50
64,.01 PROCEDURE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X
OUTPUT TRANSFORM: I $L($G(Y)) S:$P($G(^LAM(+$O(^LAM("B",Y,0)),0)),U,5) Y="+"_Y
LAST EDITED: MAR 14, 2006
HELP-PROMPT: Answer must be 2-60 characters in length.
DESCRIPTION: The procedure or test name.
The names contained in this file are derived from a national list of laboratory procedures. This
file is updated as needed from VACO Pathology.
THIS FILE SHOULD NOT BE EDITED BY FILEMAN AT THE LOCAL LEVEL.
Utilities are provided for local sites to manipulate distributed file data to meet their needs. If
a site determines a procedure which they perform is not in this file, they are to contact VACO
pathology for procedures to obtain new entries.
When attempting to look up data in this file, do not use commas, dash hyphens or slash.
AS A GENERAL RULE THE SYNONYM FIELD HAS THE FIRST WORD AND THE SECOND WORD OF A PROCEDURE
REVERSED TO PERMIT EASIER LOOK UP. YOU MAY LOOKUP DATA USING EITHER UP OR LOWER CASE NAMES.
TECHNICAL DESCR: The entries from 0-99999 are nationally distributed procedures The entries above 99999 are
additional procedures required by this site to report LMIP/Workload data. Data found between
0-99999 will be periodically purged/over written during file updating with addition procedure
codes.
DELETE TEST: 1,0)= I 1
UNEDITABLE
CROSS-REFERENCE: 64^B
1)= S ^LAM("B",$E(X,1,60),DA)=""
2)= K ^LAM("B",$E(X,1,60),DA)
CROSS-REFERENCE: 64^D^MUMPS
1)= D UP^LRXREF S ^LAM("D",X,DA)=""
2)= D UP^LRXREF K ^LAM("D",X,DA)
The name is converted to upper case and stored in the "D" x-ref for easier lookup.
^LAM("D",UPPERCASE NAME,IEN)
CROSS-REFERENCE: 64^VR^MUMPS
1)= S ^LAM("VR")=$G(^LAM("VR"))
2)= Q
3)= Indicate which data version
This X-Ref is to track installation of new released workload procedures.
64,.02 DESCRIPTION 2;0 WORD-PROCESSING #64.04
DESCRIPTION:
This field is used to further explain the procedure if required.
LAST EDITED: APR 30, 1987
64,.04 PRINT NAME 3;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAR 14, 1994
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This field contains a condensed version of the name.
CROSS-REFERENCE: 64^F
1)= S ^LAM("F",$E(X,1,30),DA)=""
2)= K ^LAM("F",$E(X,1,30),DA)
64,1 WKLD CODE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<10)!'(X?5N1"."4N.5N) X I '$D(DIU(0)),$D(X),'$D(^LAM
("E",X,DA)),$D(^LAM("E",X)) D EN^DDIOL("Already Exist ","","!?20") K X
LAST EDITED: MAR 03, 2017
HELP-PROMPT: Answer must be 10-11 characters in length. ie XXXXX.YYYY
DESCRIPTION:
The code number of the AMIS report for the procedure.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64^C
1)= S ^LAM("C",$E(X,1,30)_" ",DA)=""
2)= K ^LAM("C",$E(X,1,30)_" ",DA)
CROSS-REFERENCE: 64^E
1)= S ^LAM("E",$E(X,1,30),DA)=""
2)= K ^LAM("E",$E(X,1,30),DA)
64,2 WKLD UNIT WEIGHT 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>900)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: NOV 14, 1988
HELP-PROMPT: Type a Number between .1 and 900, 1 Decimal Digit
DESCRIPTION:
The AMIS unit weight.
64,4 BILLABLE PROCEDURE 0;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 26, 1993
DESCRIPTION: If this test is considered to be a billable LMIP procedure enter yes to this prompt.
These procedure will be cumulated and sent to the national data base for LMIP reporting. On
certain reports a '+' will appear in front of the name of the procedure to indicate it is defined
as billable.
TECHNICAL DESCR: Use this field to determine if this procedure should be included in the total number of billable
test(s) performed on patients. Not all procedures are done on patient's specimen(s) or results in a
billable clinical value.
64,5 Reserve 1 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1) X
LAST EDITED: DEC 28, 2000
HELP-PROMPT: Answer must be 1-5 characters in length
DESCRIPTION: This field is not presently used at this time. The field is not obsolete but will be converted to
other functions in a later version.
64,6 UNIT FOR COUNT 0;7 POINTER TO WKLD ITEM FOR COUNT FILE (#64.22) (Required)
LAST EDITED: APR 16, 1990
DESCRIPTION:
E.g., case, std, qc, test, spec, etc.
64,7 COST 0;10 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0) X
LAST EDITED: OCT 29, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 10000, 2 Decimal Digits
DESCRIPTION:
The cost of the procedure being done.
64,8 PRICE 0;11 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01) X
LAST EDITED: MAY 06, 1997
HELP-PROMPT: Type a Dollar Amount between .01 and 10000, 2 Decimal Digits
DESCRIPTION: This field contains the price charged to another facility. This field differs from the COST field
(#7) in that this figure includes profit margin.
If PRICE is required for custom reports and this field is blank, the COST field amount will be
used. If the COST field is blank the value of 1 will be used as the default amount.
64,9 SORTING GROUP 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 26, 1993
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION: If the site would like to attach some arbitrary value to this code, it may be done in this field.
The system makes no use of this field, it is designed solely for the site's use.
64,11 Reserve 3 0;13 SET
'1' FOR YES;
LAST EDITED: MAR 25, 1993
DESCRIPTION: This field is not presently used by the system. It will be converted to other uses in later
software versions.
64,12 MANUFACTURER 0;14 POINTER TO WKLD INSTRUMENT MANUFACTURER FILE (#64.3)
LAST EDITED: DEC 20, 1989
DESCRIPTION:
This field is used to identify the vender/manufacturer of this particular procedure or instrument.
64,13 WKLD CODE LAB SECTION 0;15 POINTER TO WKLD CODE LAB SECT FILE (#64.21) (Required)
LAST EDITED: APR 01, 1995
DESCRIPTION: This field is a nationally defined category. This field will provide a method of group data on the
national level.
64,14 DSS Feeder Key 0;16 SET
'1' FOR YES;
LAST EDITED: OCT 16, 1996
DESCRIPTION: This field is used to indicate that this code Wkld Code should be used for DSS Laboratory data
collection. Codes that are defined as YES will be extracted and passed to the DSS Laboratory API.
Guidelines for the use of this field will be jointly issued by the Pathology & Laboratory Medicine
Service Headquarters and the DSS Program Office.
General guidelines for the defining Wkld Codes as DSS Feeder Key should pass the following tests:
1) Patient's test results are entered via the Laboratory Package. 2) The person's salary that
actually performs the test analysis and supply costs does not come from a Laboratory fund control
point. 3) The test/Wkld Code is not required to be reported for CAP LMIP purposes. 4) The Wkld
Code is not marked as billable.
NOTES: TRIGGERED by the ES DISPLAY ORDER field of the WKLD CODE File
CROSS-REFERENCE: 64^AF^MUMPS
1)= S ^LAM("AF",$P(^LAM(DA,0),U,2),DA)=""
2)= K ^LAM("AF",$P(^LAM(DA,0),U,2),DA)
If the DSS Feeder key field is set Yes, then creat a cross reference containing the WKLD CODE
number, field #1
^LAM("AF",WKLD CODE,IEN)
CROSS-REFERENCE: 64^AG^MUMPS
1)= S ^LAM("AG",DA,$P(^LAM(DA,0),U,2))=""
2)= K ^LAM("AG",DA,$P(^LAM(DA,0),U,2))
If the DSS Feeder key field is set to yes, creat a cross reference contain the WKLD CODE number,
field #1.
^LAM("AG",IEN,WKLD CODE)
64,15 ACTIVATE WKLD CODE 0;17 SET
'1' FOR YES;
LAST EDITED: APR 26, 1993
DESCRIPTION: If the workload code has ever been reported by this institution, this field will be set to yes by
the system.
CROSS-REFERENCE: 64^AC
1)= S ^LAM("AC",$E(X,1,30),DA)=""
2)= K ^LAM("AC",$E(X,1,30),DA)
3)= Use to determine
64,16 BATCH ANALYZER 0;18 SET
'1' FOR YES;
LAST EDITED: AUG 22, 1991
DESCRIPTION:
If this procedure code is for a batch analyzer, this field should be set to yes.
64,18 CODE 4;0 VARIABLE POINTER Multiple #64.018
LAST EDITED: FEB 25, 1993
HELP-PROMPT: Answer must be 1-20 characters in length.
64.018,.01 CODE 0;1 VARIABLE POINTER (Multiply asked)
FILE ORDER PREFIX LAYGO MESSAGE
81 1 CPT n active CPT code.
61.1 2 SNO n SNOMED Code
80 3 ICD9 n active ICD9 Code.
SCREEN ON FILE 81: S DIC("S")="I $P($$CPT^ICPTCOD(+Y,,,),U,7)"
SCREEN EXPLANATION: Select only active CPT codes.
SCREEN ON FILE 80: S DIC("S")="I '$P(^ICD9(Y,0),U,9)"
SCREEN EXPLANATION: Select only active ICD9 codes.
OUTPUT TRANSFORM: I $G(Y) S Y=$P(@(U_$P(Y,";",2)_+Y_",0)"),U)_" "_$S($D(^(80))#2:^(80),1:$P(^(0),U,2))
LAST EDITED: DEC 19, 2000
DESCRIPTION: This field links WKLD code to other codes including CPT, SNOMED, and ICD9. This field will be
maintained by Pathology and Laboratory Medicine Service.
CROSS-REFERENCE: 64.018^B
1)= S ^LAM(DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^LAM(DA(1),4,"B",$E(X,1,30),DA)
3)= Cross reference codes
CROSS-REFERENCE: ^^TRIGGER^64.018^5
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"") S X=$
P(Y(1),U,2),X=X S DIU=X K Y S X=DIV D LAM185^LRXREF X ^DD(64.018,.01,1,2,1.4)
1.4)= S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 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(^LAM(D0,4,D1,0)):^(0),1:"") S X=$
P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(64.018,.01,1,2,2.4)
2.4)= S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^
DICR:$O(^DD(DIH,DIG,1,0))>0
3)= Set TYPE of code.
CREATE VALUE)= D LAM185^LRXREF
DELETE VALUE)= @
FIELD)= TYPE
CROSS-REFERENCE:64^AB
1)= S ^LAM("AB",$E(X,1,30),DA(1),DA)=""
2)= K ^LAM("AB",$E(X,1,30),DA(1),DA)
3)= Cross reference coding schemes
This cross reference is used to provide a listing of all WKLD CODE that have codes defined. It is
to be used for quick lookup.
^LAM("AB",CODE VARIABLE POINTER,IEN,MULTIPLE LOCATION)=""
64.018,2 RELEASE DATE 0;3 DATE (Required)
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: AUG 31, 2000
HELP-PROMPT: (No range limit on date)
DESCRIPTION: Enter the date that the code becomes 'ACTIVE'
64.018,3 INACTIVE DATE 0;4 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1!($P(^LAM(DA(1),4,DA,0),U,3)'=""&(Y'>$P(^LAM(DA(1),4,DA,0),U,3))) X
LAST EDITED: JUL 12, 1996
DESCRIPTION: Enter the date that the code becomes inactive. The code is considered active if a date has not been
entered.
EXECUTABLE HELP:W !!,?10,"Inactive Date cannot be Prior to Release Date",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
64.018,4 REPLACEMENT CODE 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
Enter the replacing code after inactivation.
64.018,5 TYPE 0;2 SET (Required)
'CPT' FOR CPT CODE;
'SNO' FOR SNOMED CODE;
'ICD' FOR ICD9 CODE;
'NOS' FOR NOS;
LAST EDITED: APR 18, 2000
HELP-PROMPT: Enter coding system
DESCRIPTION:
Enter the coding system that uses this code.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the CODE field of the CODE sub-field of the WKLD CODE File
CROSS-REFERENCE:64^AD^MUMPS
1)= S ^LAM("AD",DA(1),X,DA)=""
2)= K ^LAM("AD",DA(1),X,DA)
Creat a cross reference by linked coding systems.
^LAM("AD",SUBFILE,CODING SYSTEM,IEN)
CROSS-REFERENCE:64.018^AC
1)= S ^LAM(DA(1),4,"AC",$E(X,1,30),DA)=""
2)= K ^LAM(DA(1),4,"AC",$E(X,1,30),DA)
64.018,6 CODE NOTES 1;0 WORD-PROCESSING #64.186
DESCRIPTION:
This field is used for tracking general notes regarding a particular code.
LAST EDITED: SEP 09, 1999
DESCRIPTION: Enter notes concering this specific code. Use this field to record the history of code usage or
special comments of historical nature.
64,19 SYNONYM 1;0 Multiple #64.019 (Add New Entry without Asking)
LAST EDITED: APR 25, 1993
DESCRIPTION:
This is a synonym field.
64.019,.01 SYNONYM 0;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X
LAST EDITED: APR 25, 1993
HELP-PROMPT: Answer must be 2-50 characters in length.
DESCRIPTION:
This is the .01 field of the multiple field, SYNONYM.
CROSS-REFERENCE: 64.019^B
1)= S ^LAM(DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAM(DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 64^B^MNEMONIC
1)= S:'$D(^LAM("B",$E(X,1,30),DA(1),DA)) ^(DA)=1
2)= I $D(^LAM("B",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)
This field contain alternate names or inverted combination to allow easier lookup.
CROSS-REFERENCE: 64^G^MUMPS
1)= D UP^LRXREF S ^LAM("G",X,DA(1),DA)=""
2)= D UP^LRXREF K ^LAM("G",X,DA(1),DA)
Convert name to upper case for easier lookup.
^LAM("G",UPPERCASE SYNONYM,SUBFILE,IEN)
64,20 SPECIMEN 5;0 POINTER Multiple #64.01 (Add New Entry without Asking)
DESCRIPTION:
Specimen associated with the test
64.01,.01 SPECIMEN 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: JUL 17, 1993
DESCRIPTION:
Specimen associated with this procedure.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.01^B
1)= S ^LAM(DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^LAM(DA(1),5,"B",$E(X,1,30),DA)
64.01,1 SP COST 0;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01) X
OUTPUT TRANSFORM: S Y=$J(Y,5,2)
LAST EDITED: JUN 01, 1997
HELP-PROMPT: Type a Dollar Amount between .01 and 10000, 2 Decimal Digits
DESCRIPTION:
This is the cost specific to this specimen. Cost and price are determined locally.
64.01,2 SP PRICE 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01) X
LAST EDITED: JUN 01, 1997
HELP-PROMPT: Type a Dollar Amount between .01 and 10000, 2 Decimal Digits
DESCRIPTION: This field contains the price for this specific specimen. The price figure includes fixed
cost(s), direct and indirect cost. Cost is determined locally.
64.01,30 TIME ASPECT 1;0 POINTER Multiple #64.02 (Add New Entry without Asking)
DESCRIPTION:
This field contains the timing of the measurement or observation for this test for this specimen.
64.02,.01 TIME ASPECT 0;1 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,7)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: NOV 27, 1998
DESCRIPTION: This field contains the timing of the measurement or observation for this test for this
specimen.
SCREEN: S DIC("S")="I $P(^(0),U,7)=""S"""
EXPLANATION: TYPE=SPECIMEN
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.02^B
1)= S ^LAM(DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAM(DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
64.02,1 UNITS 0;2 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
LAST EDITED: OCT 27, 1998
DESCRIPTION:
This field contains the units of measure for the test for this specimen.
64.02,2 DATA LOCATION 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: OCT 27, 1998
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This field contains the data storage location of the result. It comes from the FIELD field
(#13) in file 60 and it's the Data Dictionary field in file 63.
64.02,3 TEST 0;4 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: AUG 07, 2001
DESCRIPTION:
This field contains the backward pointer to Laboratory Test file (#60).
CROSS-REFERENCE: 64^AL
1)= S ^LAM("AL",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LAM("AL",$E(X,1,30),DA(2),DA(1),DA)
3)= Used as backpointer to test
This cross reference is used to track what test have be mapped to a particular NLT code/LOINC
code. Can be used to determine those test if unlinking is required.
64.02,4 LOINC CODE 1;1 POINTER TO LAB LOINC FILE (#95.3)
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: JAN 24, 2005
CROSS-REFERENCE: 64^AI
1)= S ^LAM("AI",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LAM("AI",$E(X,1,30),DA(2),DA(1),DA)
3)= Identify spec/time/code
This cross reference is to identify mapped LOINC codes that are not Default LOINC codes. These
LOINC codes are store under the Specimen multiple, Time Aspect multiple.
The construction of the cross reference is: ^LAM("AI",LOINC CODE POINTER,IEN,SPECIMEN
POINTER,TIME ASPECT POINTER)=""
CROSS-REFERENCE: 64^AJ^MUMPS
1)= S ^LAM("AJ",DA(2),DA(1),DA,$E(X,1,30))=""
2)= K ^LAM("AJ",DA(2),DA(1),DA,$E(X,1,30))
3)= List IEN LOINC CODES
This cross reference is used to identify linked LOINC codes by SPECIMEN multiple, TIME ASPECT
multiple.
The construction of the cross reference is: ^LAM("AJ",IEN,SPECIMEN POINTER,TIME ASPECT
POINTER,LOINC CODE POINTER)
64,21 LOCAL ACC AREA 6;1 POINTER TO ACCESSION FILE (#68)
LAST EDITED: MAR 27, 1995
DESCRIPTION: This field is used to link workload codes to accession area on the local system. Select the
accession area this workload code should be associate with. Later enhancements will allow certain
LMIP reports to sorted based on this field.
When new reports become available, this field will be used instead of the WKLD CODE LAB SECT
(pointer to file #64.21) which is assigned nationally. If this field is blank, file #64.21 lab
section will be used. The reports will indicate those entries not pointed to any local accession
area.
CROSS-REFERENCE: ^^TRIGGER^64^22
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X
K Y X ^DD(64,21,1,1,1.1) X ^DD(64,21,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LRO(68,+D0,0)) D0=-1 S Y(101)=$S($D(^LRO(68
,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
1.4)= S DIH=$S($D(^LAM(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,2)=DIV,DIH=64,DIG=22 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(^LAM(D0,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X
K Y S X="" S DIH=$S($D(^LAM(DIV(0),6)):^(6),1:""),DIV=X S $P(^(6),U,2)=DIV,DIH=64,DIG=22 D ^DICR:$O
(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= LOCAL ACC AREA:AREA
DELETE VALUE)= @
FIELD)= ACC AREA NAME
This field contains the free text name of the LOCAL ACC AREA field #21. This field is not
editable by the user.
64,22 ACC AREA NAME 6;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<2) X
LAST EDITED: MAR 27, 1995
HELP-PROMPT: Answer must be 2-20 characters in length.
DESCRIPTION: This field contains the free text name of the LOCAL ACC AREA pointer. It is triggered by field #21
and not editable by user.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: TRIGGERED by the LOCAL ACC AREA field of the WKLD CODE File
64,23 ASSOCIATED NAME 7;0 VARIABLE POINTER Multiple #64.023
DESCRIPTION:
Associated or linked names from local laboratory tables (files).
64.023,.01 ASSOCIATED NAME 0;1 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
60 1 LAB(60, n LAB TEST
61.2 2 LAB(61.2, n ETIOLOGY
62.06 3 LAB(62.06, n ANTIBIOTIC
66 4 LAB(66, n BLD PROD
OUTPUT TRANSFORM: S Y=$S($D(@("^"_$P(Y,";",2)_+Y_",0)")):$P(^(0),U)_" [ "_$P(Y,";",2)_" ]",1:Y)
LAST EDITED: JUN 08, 1998
DESCRIPTION: This field is use to link NLT file to other laboratory standard files. This will provide a
standardize table of names for most if not all laboratory test or results.
UNEDITABLE
CROSS-REFERENCE: 64.023^B
1)= S ^LAM(DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^LAM(DA(1),7,"B",$E(X,1,30),DA)
3)= Required Index for Variable Pointer
CROSS-REFERENCE: 64^AE^MUMPS
1)= S ^LAM("AE",$P(X,";",2),$P(X,";"),DA(1))=""
2)= K ^LAM("AE",$P(X,";",2),$P(X,";"),DA(1))
3)= Used to sort associated files
This will provide a sorted table of linked codes by file root.
The composition of the cross reference of this variable pointer field is: ^LAM("AE",Global Root
of the Point to file,IEN of the entry,DA)="" ^LAM("AE","LAB(60,",IEN,DA)=""
64,24 WKLD CODE NOTES 8;0 WORD-PROCESSING #64.024
DESCRIPTION:
This field is used for storing general notes regarding inactive or erroneous code(s).
LAST EDITED: SEP 09, 1999
DESCRIPTION: You may enter notes about this specific WKLD CODE for historical purposes. Enter notes that
would be useful when reviewing how the code is or was used.
64,25 DEFAULT LOINC CODE 9;1 POINTER TO LAB LOINC FILE (#95.3)
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: JUN 07, 2005
DESCRIPTION: This field is used to identify the default LOINC code. This field is usually used when the
specimen is not clinically significant (i.e. body fluids).
CROSS-REFERENCE: 64^AH
1)= S ^LAM("AH",$E(X,1,30),DA)=""
2)= K ^LAM("AH",$E(X,1,30),DA)
This X-ref is used to identify all WKLD CODE that have a DEFAULT LOINC CODE assigned.
CROSS-REFERENCE: ^^TRIGGER^64^25.2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,2)=DIV,DIH
=64,DIG=25.2 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,2)=DIV,DIH
=64,DIG=25.2 D ^DICR
3)= Remove TIME ASPECT if LOINC DEFAULT CODE is changed.
CREATE CONDITION)= I '$D(DIU(0))
CREATE VALUE)= @
DELETE CONDITION)= I '$D(DIU(0))
DELETE VALUE)= @
FIELD)= TIME ASPECT
Remove old TIME ASPECT date when LOINC DEFAULT CODE is changed or deleted.
CROSS-REFERENCE: ^^TRIGGER^64^25.3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,3)=DIV,DIH
=64,DIG=25.3 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,3)=DIV,DIH
=64,DIG=25.3 D ^DICR
3)= Remove UNITS when LOINC DEFAULT CODE is changed.
CREATE CONDITION)= I '$D(DIU(0))
CREATE VALUE)= @
DELETE CONDITION)= I '$D(DIU(0))
DELETE VALUE)= @
FIELD)= UNITS
Remove old UNITS data when LOINC DEFAULT CODE is changed or deleted.
CROSS-REFERENCE: ^^TRIGGER^64^25.4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,4)=DIV,DIH
=64,DIG=25.4 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,4)=DIV,DIH
=64,DIG=25.4 D ^DICR
3)= Remove DATA LOCATION when LOINC DEFAULT CODE is changed.
CREATE CONDITION)= I '$D(DIU(0))
CREATE VALUE)= @
DELETE CONDITION)= I '$D(DIU(0))
DELETE VALUE)= @
FIELD)= DATA LOCATION
Remove old DATA LOCATION date when LOINC DEFAULT CODE is changed or deleted.
CROSS-REFERENCE: ^^TRIGGER^64^25.5
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,5)=DIV,DIH
=64,DIG=25.5 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),
1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,5)=DIV,DIH
=64,DIG=25.5 D ^DICR
3)= Remove TEST when DEFAULT LOINC CODE is changed.
CREATE CONDITION)= I '$D(DIU(0))
CREATE VALUE)= @
DELETE CONDITION)= I '$D(DIU(0))
DELETE VALUE)= @
FIELD)= TEST
Remove old TEST when DEFAULT LOINC CODE is changed.
64,25.2 TIME ASPECT 9;2 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,7)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 07, 2001
DESCRIPTION: This field contains the timing of the measurement or observation for this test for this WKLD CODE
LOINC default code.
SCREEN: S DIC("S")="I $P(^(0),U,7)=""S"""
EXPLANATION: Select only specimen codes
NOTES: TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
64,25.3 UNITS 9;3 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
LAST EDITED: AUG 07, 2001
NOTES: TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
64,25.4 DATA LOCATION 9;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 07, 2001
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This field contains the data storage location of the result. It comes from the FIELD field (#13) in
file 60 and it is the data dictionary field in file 63, subfile 63.04 ['CH' subcript tests].
NOTES: TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
64,25.5 TEST 9;5 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: AUG 07, 2001
DESCRIPTION:
This field contains the backward pointer to the Laboratory Test file (#60).
NOTES: TRIGGERED by the DEFAULT LOINC CODE field of the WKLD CODE File
CROSS-REFERENCE: 64^AM
1)= S ^LAM("AM",$E(X,1,30),DA)=""
2)= K ^LAM("AM",$E(X,1,30),DA)
3)= Contain the link to Laboratory Test file
This cross reference is used to identify the laboratory test that set the default LOINC code.
64,26 ES DISPLAY ORDER 10;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X I $D(X),'$D(DIU(0)),$D(^LAM("AK",X)) D EN^DDIOL("Already Exi
st on "_$P($G(^LAM($O(^LAM("AK",X,0)),0)),U),"","!?20") K X
LAST EDITED: AUG 26, 2002
HELP-PROMPT: Type a Number between 1 and 500, 0 Decimal Digits
DESCRIPTION: This field is used to by the LAB CPT BILLING option to display those CPT codes defined by this NLT
codes and will be referenced by this number. The number entered must be unique between 1-500.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64^AK
1)= S ^LAM("AK",$E(X,1,30),DA)=""
2)= K ^LAM("AK",$E(X,1,30),DA)
3)= Display Order Field
This cross ref is used to determine the display order of NLT code that are associated with ES CPT
encoding.
CROSS-REFERENCE: ^^TRIGGER^64^14
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X
K Y S X=DIV S X=1 S DIH=$G(^LAM(DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=64,DIG=14 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X
K Y S X="" S DIH=$G(^LAM(DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=64,DIG=14 D ^DICR
3)= Indicate Professional CPT code
CREATE VALUE)= S X=1
DELETE VALUE)= @
FIELD)= DSS Feeder Key
In order to ensure that DSS workload extract will capture professional related NLT/CPT codes. This
trigger will automatically set the DSS Feeder Key to yes.
Note: Only techinical workload should be reported as LMIP workload. Professional NLT codes should
NOT be marked as billable.
64,63 MI/AP DATABASE CODE 63;1 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
INPUT TRANSFORM: N DIC,Y,LRX S LRX=X S:'$G(LRFPRIV) DIC("S")="I $P(^(0),U)[""Rpt Date""" S DIC=64.061,DIC(0)="NM" D
^DIC K:Y'>0 X I $D(X) S X=+Y
LAST EDITED: FEB 27, 2007
HELP-PROMPT: Select 'Rpt Date' for subscript of ordered test
DESCRIPTION: Used for Microbiology ("MI" subscript) and Anatomic Pathology ("SP", "EM", "CY" subscripts) to link
the reportable components of a report with its corresponding orderable test.
TECHNICAL DESCR: Used by LDSI II message building software to determine which reports should be contained out-going
HL7 messages.
Example 1:
Select LABORATORY TEST NAME: CULTURE & SUSCEPTIBILITY NATIONAL VA LAB CODE: Culture &
Sensitivity// MI/AP DATABASE CODE: MI Bacteria Rpt Date//
Orderable test in LABORATORY TEST (#60) is "Culture and Sensitivity."
The "NATIONAL VA LAB CODE" (#64) field is linked to "Culture & Sensitivity".
Now the "Culture & Sensitivity" code in WKLD CODE (#64) field "MI/AP DATABASE CODE" (#63) field
would point to "MI Bacteriology Rpt Date"
Example 2:
Select LABORATORY TEST NAME: VIRAL CULTURE NATIONAL VA LAB CODE: Culture Viral// MI/AP DATABASE
CODE: MI Virology Rpt Date//
Orderable test in LABORORATORY TEST (#60) is "VIRAL CULTURE."
The "NATIONAL VA LAB CODE" (#64) field is linked to "Culture Viral."
Now the "Culture Viral" code in WKLD CODE (#64) file field "MI/AP DATABASE" field (#63) is linked
to "MI Virology Rpt Date"
Example 3:
Select LABORATORY TEST NAME: TISSUE EXAM NATIONAL VA LAB CODE: Surgical Pathology Tissue Exam//
MI/AP DATABASE CODE: SP Complete Rpt Date//
Orderable test in LABORORATORY TEST (#60) is "TISSUE EXAM."
The "NATIONAL VA LAB CODE" (#64) field is linked to "Surgical Pathology Tissue Exam."
Now the "Culture Viral" code in WKLD CODE (#64) file field "MI/AP DATABASE" field (#63) is linked
to "SP Complete Rpt Date"
SCREEN: S DIC("S")="I $P(^(0),U)[""Rpt Date""" S DIC=64.061,DIC(0)="NM"
EXPLANATION: Select only report complete date entries
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
ACCESSION (#68) LOCAL ACC AREA (#21)
LAB ELECTRONIC CODES (#64.061) TIME ASPECT (#25.2)
UNITS (#25.3)
MI/AP DATABASE CODE (#63)
TIME ASPECT:TIME ASPECT (#.01)
UNITS (#1)
LAB LOINC (#95.3) DEFAULT LOINC CODE (#25)
TIME ASPECT:LOINC CODE (#4)
LABORATORY TEST (#60) TEST (#25.5)
TIME ASPECT:TEST (#3)
TOPOGRAPHY FIELD (#61) SPECIMEN:SPECIMEN (#.01)
WKLD CODE LAB SECT (#64.21) WKLD CODE LAB SECTION (#13)
WKLD INSTRUMENT MANUFACTURER
(#64.3) MANUFACTURER (#12)
WKLD ITEM FOR COUNT (#64.22) UNIT FOR COUNT (#6)
INPUT TEMPLATE(S):
LR WKLD EDIT MAY 08, 1997@06:38 USER #0
LR WKLD EDIT ALL JUL 16, 2002@12:51 USER #0
LR WKLD ES CPT MAY 24, 2001@00:09 USER #0
PRINT TEMPLATE(S):
LR WKLD CODE BY SECTION MAY 22, 1992@11:36 USER #0 WKLD CODE BY SECTION LIST
LR WKLD CODE LIST BY NAME SEP 19, 1989@16:25 USER #0 WKLD CODE LIST BY NAME
LR WKLD CODE LIST BY WKLD CODENOV 27, 1991@12:17 USER #0 WKLD CODE LIST BY WKLD CODE
SORT TEMPLATE(S):
LR WKLD CODE BY SECTION MAY 22, 1992@11:35 USER #0
SORT BY: #WKLD CODE LAB SECTION//
WITHIN WKLD CODE LAB SECTION, SORT BY: PROCEDURE//
LR WKLD CODE LIST BY NAME SEP 19, 1989@16:24 USER #0
SORT BY: ]@PROCEDURE//
LR WKLD CODE LIST BY WKLD CODESEP 19, 1989@16:20 USER #0
SORT BY: ]@WKLD CODE//
FORM(S)/BLOCK(S):