STANDARD DATA DICTIONARY #64.81 -- LAB NLT/CPT CODES FILE 3/24/25 PAGE 1
STORED IN ^LAB(64.81, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used primarily as a National Laboratory Test (NLT) database upgrade source file. When new/additional NLT codes are
released to the field, they are exported in this file. The installation software takes the entries from the LAB NLT/CPT CODES
(#64.81) and adds them to the WKLD CODE (#64) file, then deletes that installed code from this file. If the installation is
successful, this file will be empty.
NORMALLY, THIS FILE HAS NO DATA EXCEPT DURING INITIAL STAGES OF DATABASE UPGRADE.
The end user never uses this file for day to day laboratory activities.
CROSS
REFERENCED BY: DSS Feeder Key(AC), NAME(B), NLT CODE(C), SUFFIX CODE(D)
LAST MODIFIED: JAN 20,2025@16:00:51
64.81,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X
LAST EDITED: JAN 12, 2000
HELP-PROMPT: Answer must be 3-60 characters in length.
CROSS-REFERENCE: 64.81^B
1)= S ^LAB(64.81,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,"B",$E(X,1,30),DA)
64.81,1 NLT CODE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<5) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Answer must be 5-13 characters in length.
DESCRIPTION:
These are codes used to update target files with new procedures.
CROSS-REFERENCE: 64.81^C
1)= S ^LAB(64.81,"C",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,"C",$E(X,1,30),DA)
64.81,2 EXTERNAL CODE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: APR 10, 2000
HELP-PROMPT: Answer must be 5-10 characters in length.
64.81,3 RELEASE DATE 0;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 31, 1996
64.81,4 INACTIVE DATE 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 31, 1996
64.81,5 REPLACEMENT CODE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: JUL 31, 1996
HELP-PROMPT: Answer must be 5-10 characters in length.
64.81,6 TYPE 0;7 SET
'CPT' FOR CPT CODE;
'SNO' FOR SNOMED CODE;
'ICD' FOR ICD9 CODE;
'NOS' FOR NOS;
LAST EDITED: JUL 31, 1996
64.81,7 NAME CHANGE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: JUL 31, 1996
HELP-PROMPT: Answer must be 3-60 characters in length.
64.81,8 INSTALL ERROR 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<2) X
LAST EDITED: JUL 31, 1996
HELP-PROMPT: Answer must be 2-20 characters in length.
64.81,10 SUFFIX CODE 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: NOV 29, 1999
HELP-PROMPT: Answer must be 5-10 characters in length.
CROSS-REFERENCE: 64.81^D
1)= S ^LAB(64.81,"D",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,"D",$E(X,1,30),DA)
64.81,11 SUFFIX CODE CHANGE 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: APR 10, 2000
HELP-PROMPT: Answer must be 5-10 characters in length.
64.81,12 FILE CHANGE 1;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>64.2)!(X<64)!(X?.E1"."2N.N) X
LAST EDITED: NOV 29, 1999
HELP-PROMPT: Type a Number between 64 and 64.2, 1 Decimal Digit
64.81,13 SYNONYM CODE 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: APR 10, 2000
HELP-PROMPT: Answer must be 5-10 characters in length.
64.81,14 SYNONYM CODE CHANGE 1;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: APR 10, 2000
HELP-PROMPT: Answer must be 5-10 characters in length.
64.81,15 SYNONYM NAME 1;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: APR 10, 2000
HELP-PROMPT: Answer must be 3-60 characters in length.
64.81,16 SYNONYM NAME CHANGE 1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: NOV 24, 1999
HELP-PROMPT: Answer must be 3-60 characters in length.
64.81,17 TRANSPORT 2;0 Multiple #64.8117 (Add New Entry without Asking)
LAST EDITED: APR 15, 2000
DESCRIPTION:
This is an entry transported from the Workload Code file (64).
64.8117,.01 TRANSPORT # 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 21, 2000
HELP-PROMPT: Type a Number between 1 and 99999, 0 Decimal Digits
DESCRIPTION: This number represents the IEN number for the reference soruce file being transported.
[^LAM(#,0)]
TECHNICAL DESCR:
This number is the ien of the WKLD Code file (64).
CROSS-REFERENCE: 64.8117^B
1)= S ^LAB(64.81,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,DA(1),2,"B",$E(X,1,30),DA)
64.8117,1 PROCEDURE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Answer must be 2-50 characters in length.
DESCRIPTION:
This is the procedure name.
CROSS-REFERENCE: 64.8117^C
1)= S ^LAB(64.81,DA(1),2,"C",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,DA(1),2,"C",$E(X,1,30),DA)
64.8117,1.02 DESCRIPTION 2;0 WORD-PROCESSING #64.813
LAST EDITED: DEC 27, 2000
DESCRIPTION:
This is a exploded name for the code.
64.8117,1.04 PRINT NAME 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: APR 18, 2000
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This field contains a condensed version of the name.
64.8117,2 WKLD CODE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<10) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Answer must be 10-11 characters in length.
DESCRIPTION:
This is the code number for the procedure.
CROSS-REFERENCE: 64.8117^D
1)= S ^LAB(64.81,DA(1),2,"D",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,DA(1),2,"D",$E(X,1,30),DA)
64.8117,3 WKLD UNIT WEIGHT 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>900)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Type a Number between .1 and 900, 1 Decimal Digit
DESCRIPTION:
The units or weight for this procedure.
64.8117,5 BILLABLE PROCEDURE 0;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 27, 2000
DESCRIPTION:
Indicates if this procedure is billable using LMIP rules.
64.8117,6 Reserve 1 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
Not used.
64.8117,7 UNIT FOR COUNT 0;8 POINTER TO WKLD ITEM FOR COUNT FILE (#64.22)
LAST EDITED: DEC 27, 2000
DESCRIPTION:
Indicate what specimen unit is used for counting.
64.8117,8 COST 0;11 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Type a Dollar amount between 0 and 10000, 2 Decimal Digits
DESCRIPTION:
The cost of this procedure.
64.8117,9 PRICE 0;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01)!(X?.E1"."3.N) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Type a Dollar amount between .01 and 10000, 2 Decimal Digits
DESCRIPTION:
The price of this procedure.
64.8117,10 SORTING GROUP 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
What local sorting group is used to listing of procedures.
64.8117,12 Reserve 3 0;14 SET
'1' FOR YES;
LAST EDITED: DEC 27, 2000
DESCRIPTION:
Not used.
64.8117,13 MANUFACTURER 0;15 POINTER TO WKLD INSTRUMENT MANUFACTURER FILE (#64.3)
LAST EDITED: DEC 27, 2000
DESCRIPTION:
The manufacturer of this procedure or test.
64.8117,14 WKLD CODE LAB SECTION 0;16 POINTER TO WKLD CODE LAB SECT FILE (#64.21)
LAST EDITED: DEC 27, 2000
DESCRIPTION:
What standardized workload section this procedure is assigned.
64.8117,15 DSS Feeder Key 0;17 SET
'1' FOR YES;
LAST EDITED: SEP 12, 2002
DESCRIPTION:
Is this test reportable to DSS API.
CROSS-REFERENCE: 64.81^AC
1)= S ^LAB(64.81,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(64.81,"AC",$E(X,1,30),DA(1),DA)
64.8117,16 ACTIVATE WKLD CODE 0;18 SET
'1' FOR YES;
LAST EDITED: DEC 27, 2000
DESCRIPTION:
This field indicate is this code has been used to report LMIP data.
64.8117,17 BATCH ANALYZER 0;19 SET
'1' FOR YES;
LAST EDITED: DEC 27, 2000
DESCRIPTION:
Not being used.
64.8117,18 CODE 4;0 VARIABLE POINTER Multiple #64.811718
64.811718,.01 CODE 0;1 VARIABLE POINTER (Multiply asked)
FILE ORDER PREFIX LAYGO MESSAGE
81 1 CPT n active CPT code.
61.1 2 SNOMED 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: Only select active CPT codes.
SCREEN ON FILE 80: S DIC("S")="I '$P(^ICD9(Y,0),U,9)"
SCREEN EXPLANATION: No inactive ICD9 codes.
LAST EDITED: APR 01, 2003
DESCRIPTION:
What code is assigned to this procedure.
CROSS-REFERENCE: 64.811718^B
1)= S ^LAB(64.81,DA(2),2,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,DA(2),2,DA(1),4,"B",$E(X,1,30),DA)
3)= Required Index for Variable Pointer
64.811718,2 RELEASE DATE 0;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 27, 2000
DESCRIPTION:
Enter the date that the code becomes 'ACTIVE'.
64.811718,3 INACTIVE DATE 0;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 18, 2000
DESCRIPTION:
Enter the date that the code became 'INACTIVE'.
64.811718,4 REPLACEMENT CODE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: APR 18, 2000
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
Enter the replacing code after inactivation.
64.811718,5 TYPE 0;2 SET
'CPT' FOR CPT CODE;
'SNO' FOR SNOMED CODE;
'ICD' FOR ICD9 CODE;
'NOS' FOR NOS;
LAST EDITED: APR 18, 2000
DESCRIPTION:
Enter the coding system that uses this code.
64.811718,6 CODE NOTES 1;0 WORD-PROCESSING #64.8117186
LAST EDITED: DEC 27, 2000
DESCRIPTION:
Notes about the use of this code. about the use of this code.
64.8117,19 SYNONYM 1;0 Multiple #64.811719
64.811719,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: DEC 27, 2000
HELP-PROMPT: Answer must be 2-50 characters in length.
DESCRIPTION:
Other names for this procedure.
CROSS-REFERENCE: 64.811719^B
1)= S ^LAB(64.81,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.81,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
64.8117,26 DEFAULT LOINC CODE 9;1 POINTER TO LAB LOINC FILE (#95.3)
LAST EDITED: SEP 27, 2005
DESCRIPTION:
Default LOINC code to be used if no specific method is available..
64.8117,64 MI/AP DATABASE CODE 63;1 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
LAST EDITED: FEB 14, 2006
DESCRIPTION: This file is used to link the electronic code that contains data storage mapping for this
WKLD CODE. This mapping is used for HL7 message processing.
FILES POINTED TO FIELDS
LAB ELECTRONIC CODES (#64.061) TRANSPORT:MI/AP DATABASE CODE (#64)
LAB LOINC (#95.3) TRANSPORT:DEFAULT LOINC CODE (#26)
WKLD CODE LAB SECT (#64.21) TRANSPORT:WKLD CODE LAB SECTION (#14)
WKLD INSTRUMENT MANUFACTURER
(#64.3) TRANSPORT:MANUFACTURER (#13)
WKLD ITEM FOR COUNT (#64.22) TRANSPORT:UNIT FOR COUNT (#7)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):