Global: ^ADEDPUR

FileMan FileNo	FileMan Filename	Package
9002002.25	ADE GENERIC PURPOSE	IHS Dental System

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Dental System	1	ADE GENERIC RECORD(#9002002.23)[4, 5]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `JUL 13, 1990` HELP-PROMPT: `Answer must be 1-5 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID CODE CROSS-REFERENCE: `9002002.25^B` 1)= S ^ADEDPUR("B",$E(X,1,30),DA)="" 2)= K ^ADEDPUR("B",$E(X,1,30),DA)
1	NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>51!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-51 CHARACTERS IN LENGTH` DESCRIPTION: FIELD WILL CONTAIN VALID NAME
2	CATEGORY	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: FIELD WILL CONTAIN VALID CATEGORY

CODE

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002002.25^B

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

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

NAME

0;2

FREE TEXT

************************REQUIRED FIELD************************

CODE: ACC	CODE: BBTD	CODE: CHRON	CODE: DECAY	CODE: DEV	CODE: DIAB	CODE: DWI	CODE: EPI
CODE: FAMLY	CODE: FUNDS	CODE: HST	CODE: OTR	CODE: PERIO	CODE: QA	CODE: SD	CODE: ST