Sub-Field: 9999999.6517

Parent File	Name	Number	Package
COVERAGE TYPE(#9999999.65)	DENTAL CATEGORIES UNBILLABLE	9999999.6517	Utility Tables

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DENTAL CATEGORIES UNBILLABLE	0;1	SET	'0' FOR LEVEL 0; '1' FOR LEVEL 1; '2' FOR LEVEL 2; '3' FOR LEVEL 3; '4' FOR LEVEL 4; '5' FOR LEVEL 5; '6' FOR LEVEL 6; '9' FOR LEVEL 9; LAST EDITED: `JUL 22, 1990` CROSS-REFERENCE: `9999999.6517^B` 1)= S ^AUTTPIC(DA(1),17,"B",$E(X,1,30),DA)="" 2)= K ^AUTTPIC(DA(1),17,"B",$E(X,1,30),DA)
.02	ADA CODE EXCEPTIONS	0;2	POINTER TO ADA CODE FILE (#9999999.31)	ADA CODE(#9999999.31) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^AUTTPIC(DA(1),17,DA,0),U)" D ^DIC K DIC S DIC=DIE,(DINUM,X)=+Y K:Y<0 X` LAST EDITED: `JUL 24, 1990` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUTTPIC(DA(1),17,DA,0),U)"` EXPLANATION: `ADA CATEGORIES` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

DENTAL CATEGORIES UNBILLABLE

0;1

SET

CROSS-REFERENCE: 9999999.6517^B

1)= S ^AUTTPIC(DA(1),17,"B",$E(X,1,30),DA)=""

2)= K ^AUTTPIC(DA(1),17,"B",$E(X,1,30),DA)

ADA CODE EXCEPTIONS

0;2

POINTER TO ADA CODE FILE (#9999999.31)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)=$P(^AUTTPIC(DA(1),17,DA,0),U)" D ^DIC K DIC S DIC=DIE,(DINUM,X)=+Y K:Y<0 X
LAST EDITED: JUL 24, 1990
SCREEN: S DIC("S")="I $P(^(0),U,5)=$P(^AUTTPIC(DA(1),17,DA,0),U)"
EXPLANATION: ADA CATEGORIES
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER