Global: ^LAB(64.81

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Desc
Accessed By FileMan Db Calls
Pointer To FileMan Files
Fields
Found Entries

FileMan FileNo	FileMan Filename	Package
64.81	LAB NLT/CPT CODES	Lab Service

FileMan FileNo

FileMan Filename

Package

64.81

LAB NLT/CPT CODES

Lab Service

Description

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.

Package	Total	Routines
Lab Service	21	LR127PO LR258PO LR302PO LR334PO LR451 LR477 LR493 LR502 LR511 LR515 LR525 LR532 LR539 LR542 LR550 LR556 LR560 LR563 LR567 LR571 LR576

Package	Total	FileMan Files
Lab Service	6	MORPHOLOGY FIELD(#61.1)[#64.811718(.01)] LAB ELECTRONIC CODES(#64.061)[#64.8117(64)] WKLD CODE LAB SECT(#64.21)[#64.8117(14)] WKLD ITEM FOR COUNT(#64.22)[#64.8117(7)] WKLD INSTRUMENT MANUFACTURER(#64.3)[#64.8117(13)] LAB LOINC(#95.3)[#64.8117(26)]
CPT HCPCS Codes	1	CPT(#81)[#64.811718(.01)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#64.811718(.01)]

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
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)`
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.`
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`
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`
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.`
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`
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.`
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.`
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)`
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.`
12	FILE CHANGE	1;4	NUMBER	**********************REQUIRED FIELD********************** 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`
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.`
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.`
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.`
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.`
17	TRANSPORT	2;0	Multiple #64.8117	64.8117 LAST EDITED: `APR 15, 2000` DESCRIPTION: `This is an entry transported from the Workload Code file (64).`

Customize PDF page

Package: Lab Service

Global: ^LAB(64.81

Information

Description

Accessed By FileMan Db Calls, Total: 21

Pointer To FileMan Files, Total: 8

Fields, Total: 17

Found Entries, Total: 1