Sub-Field: 64.811718

Parent File	Name	Number	Package
64.8117	CODE	64.811718	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	VARIABLE POINTER	CPT(#81) MORPHOLOGY FIELD(#61.1) ICD DIAGNOSIS(#80) EXPLANATION: `Only select active CPT codes.` `SCREEN ON FILE 80: S DIC("S")="I '$P(^ICD9(Y,0),U,9)"` 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`
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'.`
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'.`
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.`
5	TYPE	0;2	SET	LAST EDITED: `APR 18, 2000` DESCRIPTION: `Enter the coding system that uses this code.`
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.`