Global: ^ADEDRCP

FileMan FileNo	FileMan Filename	Package
9002002.26	ADE GENERIC RECIPIENT	IHS Dental System

Pointed To By FileMan Files, Total: 1

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

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `OCT 15, 1990` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID CODE NUMBER CROSS-REFERENCE: `9002002.26^B` 1)= S ^ADEDRCP("B",$E(X,1,30),DA)="" 2)= K ^ADEDRCP("B",$E(X,1,30),DA)
1	GROUP NAME	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID GROUP NAME CROSS-REFERENCE: `9002002.26^C` 1)= S ^ADEDRCP("C",$E(X,1,30),DA)="" 2)= K ^ADEDRCP("C",$E(X,1,30),DA)
3	ABBREV.	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2) X` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `Answer must be 2-6 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID ABBREV. CROSS-REFERENCE: `9002002.26^D` 1)= S ^ADEDRCP("D",$E(X,1,30),DA)="" 2)= K ^ADEDRCP("D",$E(X,1,30),DA)

CODE NUMBER

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002002.26^B

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

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

GROUP NAME

0;2

FREE TEXT

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

CROSS-REFERENCE: 9002002.26^C

1)= S ^ADEDRCP("C",$E(X,1,30),DA)=""

2)= K ^ADEDRCP("C",$E(X,1,30),DA)

ABBREV.

0;4

FREE TEXT

CROSS-REFERENCE: 9002002.26^D

1)= S ^ADEDRCP("D",$E(X,1,30),DA)=""

2)= K ^ADEDRCP("D",$E(X,1,30),DA)