Global: ^ADECDE

FileMan FileNo	FileMan Filename	Package
9002002.6	DENTAL CONTINUING EDUCATION	IHS Dental System

Package	Total	FileMan Files
IHS Dental System	1	DENTAL EMPLOYEE(#9002010.01)[.05]

Field #	Name	Loc	Type	Details
.01	BEGINNING DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER A VALID BEGINNING DATE` DESCRIPTION: FIELD WILL CONTAIN VALID BEGINNING DATE CROSS-REFERENCE: `9002002.6^B` 1)= S ^ADECDE("B",$E(X,1,30),DA)="" 2)= K ^ADECDE("B",$E(X,1,30),DA)
.05	EMPLOYEE	0;2	POINTER TO DENTAL EMPLOYEE FILE (#9002010.01)	**********************REQUIRED FIELD********************** DENTAL EMPLOYEE(#9002010.01) HELP-PROMPT: `ENTER A VALID DENTAL EMPLOYEE` DESCRIPTION: FIELD WILL CONTAIN VALID EMPLOYEE CROSS-REFERENCE: `9002002.6^C` 1)= S ^ADECDE("C",$E(X,1,30),DA)="" 2)= K ^ADECDE("C",$E(X,1,30),DA)
2	ENDING DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date the training ended` DESCRIPTION: FIELD WILL CONTAIN VALID ENDING DATE
3	COURSE TITLE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: FIELD WILL CONTAIN VALID COURSE TITLE
4	CONDUCTING AGENCY	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<5) X` LAST EDITED: `MAY 09, 1988` HELP-PROMPT: `ANSWER MUST BE 5-40 CHARACTERS IN LENGTH` DESCRIPTION: FIELD WILL CONTAIN VALID CONDUCTING AGENCY
5	HOURS CE CREDIT	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<0)!(X?.E1"."2N.N) X` HELP-PROMPT: `Enter number hours credit. Can be fractional.` DESCRIPTION: FIELD WILL CONTAIN VALID HOURS CE CREDIT
6	SOURCE OF FUNDING	0;7	SET	'S' FOR SELF-FUNDED; 'G' FOR GOVERNMENT/NON-DENTAL; 'O' FOR OTHER; 'D' FOR DENTAL PROGRAM FUNDS; 'N' FOR NO FUNDS REQUIRED; 'C' FOR COMBINATION OF SOURCES; 'T' FOR TRIBAL FUNDING ONLY; LAST EDITED: `MAY 09, 1988` HELP-PROMPT: `Enter the most accurate choice from those listed.` DESCRIPTION: FIELD WILL CONTAIN VALID SOURCE OF FUNDING
7	LEAVE TYPE	0;8	SET	'R' FOR REGULAR DUTY; 'E' FOR EDUC/ADMIN LEAVE; 'A' FOR OWN TIME/ANNUAL LEAVE; 'O' FOR OTHER, UNSPECIFIED; LAST EDITED: `MAY 09, 1988` HELP-PROMPT: `Enter a code letter from the choices listed.` DESCRIPTION: FIELD WILL CONTAIN VALID LEAVE TYPE
8	TOTAL COST	0;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `JUL 12, 1993` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits` DESCRIPTION: FIELD WILL CONTAIN VALID TOT COST

Field #

Name

Loc

Type

Details

.01

BEGINNING DATE

0;1

DATE

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

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: ENTER A VALID BEGINNING DATE
DESCRIPTION:
```
FIELD WILL CONTAIN VALID BEGINNING DATE
```

CROSS-REFERENCE: 9002002.6^B

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

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

.05

EMPLOYEE

0;2

POINTER TO DENTAL EMPLOYEE FILE (#9002010.01)

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

DENTAL EMPLOYEE(#9002010.01)

HELP-PROMPT: ENTER A VALID DENTAL EMPLOYEE
DESCRIPTION:
```
FIELD WILL CONTAIN VALID EMPLOYEE
```

CROSS-REFERENCE: 9002002.6^C

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

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

2

ENDING DATE

0;3

DATE

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

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date the training ended
DESCRIPTION:
```
FIELD WILL CONTAIN VALID ENDING DATE
```

3

COURSE TITLE

0;4

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
```
FIELD WILL CONTAIN VALID COURSE TITLE
```

4

CONDUCTING AGENCY

0;5

FREE TEXT

INPUT TRANSFORM: K:$L(X)>40!($L(X)<5) X
LAST EDITED: MAY 09, 1988
HELP-PROMPT: ANSWER MUST BE 5-40 CHARACTERS IN LENGTH

DESCRIPTION:

FIELD WILL CONTAIN VALID CONDUCTING AGENCY

5

HOURS CE CREDIT

0;6

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>200)!(X<0)!(X?.E1"."2N.N) X
HELP-PROMPT: Enter number hours credit. Can be fractional.

DESCRIPTION:

FIELD WILL CONTAIN VALID HOURS CE CREDIT

6

SOURCE OF FUNDING

0;7

SET

'S' FOR SELF-FUNDED;
'G' FOR GOVERNMENT/NON-DENTAL;
'O' FOR OTHER;
'D' FOR DENTAL PROGRAM FUNDS;
'N' FOR NO FUNDS REQUIRED;
'C' FOR COMBINATION OF SOURCES;
'T' FOR TRIBAL FUNDING ONLY;

LAST EDITED: MAY 09, 1988
HELP-PROMPT: Enter the most accurate choice from those listed.

DESCRIPTION:

FIELD WILL CONTAIN VALID SOURCE OF FUNDING

7

LEAVE TYPE

0;8

SET

'R' FOR REGULAR DUTY;
'E' FOR EDUC/ADMIN LEAVE;
'A' FOR OWN TIME/ANNUAL LEAVE;
'O' FOR OTHER, UNSPECIFIED;

LAST EDITED: MAY 09, 1988
HELP-PROMPT: Enter a code letter from the choices listed.
DESCRIPTION:
```
FIELD WILL CONTAIN VALID LEAVE TYPE
```

8

TOTAL COST

0;9

NUMBER

INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
LAST EDITED: JUL 12, 1993
HELP-PROMPT: Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
DESCRIPTION:
```
FIELD WILL CONTAIN VALID TOT COST
```

Customize PDF page

Package: IHS Dental System

Global: ^ADECDE

Information

Description

Pointer To FileMan Files, Total: 1

Fields, Total: 9