Global: ^ADEDIT("GRP"

FileMan FileNo	FileMan Filename	Package
9002007.91	DENTAL CODE EDIT GROUP	IHS Dental System

FileMan FileNo

FileMan Filename

Package

9002007.91

DENTAL CODE EDIT GROUP

Package	Total	Routines
IHS Dental System	9	ADE0602 ADE0608 ADE697B ADECD44 ADEGRL31 ADEGRL5A ADEPENDA ADEPSUB1 ADEUTL

Package

Total

Routines

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: FIELD WILL CONTAIN VALID NAME CROSS-REFERENCE: `9002007.91^B` 1)= S ^ADEDIT("GRP","B",$E(X,1,30),DA)="" 2)= K ^ADEDIT("GRP","B",$E(X,1,30),DA)
1	CODES	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<4) X` LAST EDITED: `DEC 04, 1992` HELP-PROMPT: `Answer must be 4-250 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID CODES

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
```
FIELD WILL CONTAIN VALID NAME
```

CROSS-REFERENCE: 9002007.91^B

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

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

CODES

1;1

FREE TEXT