Sub-Field: 399.096

Parent File	Name	Number	Package
BILL/CLAIMS(#399)	TOOTH NUMBER	399.096	Integrated Billing

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TOOTH NUMBER	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>32)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(^DGCR(399,DA,"DEN1","B",X)) K X` LAST EDITED: `FEB 26, 2026` HELP-PROMPT: `Enter the tooth number between 1 and 32, 0 decimal digits.` DESCRIPTION: `This is the tooth number (between 1 and 32) that is either missing or is to be extracted.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `399.096^B` `1)= S ^DGCR(399,DA(1),"DEN1","B",$E(X,1,30),DA)=""` `2)= K ^DGCR(399,DA(1),"DEN1","B",$E(X,1,30),DA)`
.02	STATUS CODE	0;2	SET	'E' FOR EXTRACTED; 'M' FOR MISSING; LAST EDITED: `JUN 28, 2017` HELP-PROMPT: `Select the code that indicates whether a tooth will be extracted or is missing.` DESCRIPTION: `This code indicates whether a tooth will be extracted or is missing.`

TOOTH NUMBER

0;1

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>32)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(^DGCR(399,DA,"DEN1","B",X)) K X
LAST EDITED: FEB 26, 2026
HELP-PROMPT: Enter the tooth number between 1 and 32, 0 decimal digits.
DESCRIPTION:
This is the tooth number (between 1 and 32) that is either missing or is to be extracted.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 399.096^B
1)= S ^DGCR(399,DA(1),"DEN1","B",$E(X,1,30),DA)=""
2)= K ^DGCR(399,DA(1),"DEN1","B",$E(X,1,30),DA)

STATUS CODE

0;2

SET

LAST EDITED: JUN 28, 2017
HELP-PROMPT: Select the code that indicates whether a tooth will be extracted or is missing.
DESCRIPTION:
This code indicates whether a tooth will be extracted or is missing.