Sub-Field: 694.801

Parent File	Name	Number	Package
PROCEDURE TERM(#694.8)	CODE	694.801	Medicine

Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	VARIABLE POINTER	CPT(#81) ICD OPERATION/PROCEDURE(#80.1) LAST EDITED: `JUN 13, 1996` DESCRIPTION: `This is the reference to the appropriate coding system.` CROSS-REFERENCE: `694.801^B` `1)= S ^MCAR(694.8,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(694.8,DA(1),1,"B",$E(X,1,30),DA)` `3)= Required Index for Variable Pointer`
.02	CODING SYSTEM	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 25, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the name of the coding system which is reference by the CODE field.`
.03	DATE CODED	0;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 25, 1994` DESCRIPTION: `The date coded is stored here for auditing purposes.`
.04	CODER ID	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 25, 1994` DESCRIPTION: `The name of the coder is stored here for auditing purposes.`