Sub-Field: 9002007.01

Parent File	Name	Number	Package
DENTAL PROCEDURE(#9002007)	ADA CODE	9002007.01	IHS Dental System

Details

Field #	Name	Loc	Type	Details
.01	ADA CODE	0;1	POINTER TO ADA CODE FILE (#9999999.31)	ADA CODE(#9999999.31) LAST EDITED: `NOV 17, 1988` HELP-PROMPT: `ENTER A VALID ADA CODE` DESCRIPTION: FIELD WILL CONTAIN VALID ADA CODE CROSS-REFERENCE: `9002007.01^B` 1)= S ^ADEPCD(DA(1),"ADA","B",$E(X,1,30),DA)="" 2)= K ^ADEPCD(DA(1),"ADA","B",$E(X,1,30),DA)
2	OPERATIVE SITE	0;2	POINTER TO DENTAL OPERATIVE SITE FILE (#9002010.03)	DENTAL OPERATIVE SITE(#9002010.03) LAST EDITED: `NOV 17, 1988` HELP-PROMPT: `ENTER A VALID OPERATIVE SITE` DESCRIPTION: FIELD WILL CONTAIN VALID OPERATIVE SITE
3	FEE	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<0) X` LAST EDITED: `NOV 17, 1988` HELP-PROMPT: `Type a Dollar Amount between 0 and 999, 2 Decimal Digits` DESCRIPTION: FIELD WILL CONTAIN VALID FEE
4	TOOTH SURFACE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `NOV 17, 1992` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID TOOTH SURFACE
5	UNREPORTABLE	0;5	SET	'y' FOR YES; LAST EDITED: `DEC 10, 1992` HELP-PROMPT: `ENTER A VALID UNREPORTABLE` DESCRIPTION: FIELD WILL CONTAIN VALID UNREPORTABLE
100	CODCAL		COMPUTED	MUMPS CODE: `D CODCAL^ADEPQA2 I ADEY` ALGORITHM: `D CODCAL^ADEPQA2 I ADEY` LAST EDITED: `MAY 06, 1993`