Global: ^ADEEMP

FileMan FileNo	FileMan Filename	Package
9002010.01	DENTAL EMPLOYEE	IHS Dental System

FileMan FileNo

FileMan Filename

Package

9002010.01

DENTAL EMPLOYEE

Package	Total	FileMan Files
IHS Dental System	3	DENTAL CONTINUING EDUCATION(#9002002.6)[.05] DENTAL FLUORIDATION SURVEILLANCE(#9002002.1)[#9002002.11(3)] DENTAL STERILIZER TEST(#9002002.51)[#9002002.511(3)]

Package

Total

FileMan Files

Package	Total	FileMan Files
Kernel	1	PERSON(#16)[.01]

Package

Total

FileMan Files

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PERSON FILE (#16)	**********************REQUIRED FIELD********************** PERSON(#16) INPUT TRANSFORM: `S:$D(X) DINUM=X` HELP-PROMPT: `ENTER A VALID NAME` DESCRIPTION: FIELD WILL CONTAIN VALID NAME NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002010.01^B` 1)= S ^ADEEMP("B",$E(X,1,30),DA)="" 2)= K ^ADEEMP("B",$E(X,1,30),DA)
8801	MNEMONIC	88;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `Answer must be 1-2 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID MNEMONIC CROSS-REFERENCE: `9002010.01^B^MNEMONIC` 1)= S:'$D(^ADEEMP("B",$E(X,1,30),DA)) ^(DA)=1 2)= I $D(^ADEEMP("B",$E(X,1,30),DA)),^(DA) K ^(DA)

NAME

0;1

POINTER TO PERSON FILE (#16)

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

CROSS-REFERENCE: 9002010.01^B

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

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

MNEMONIC

88;1

FREE TEXT

CROSS-REFERENCE: 9002010.01^B^MNEMONIC

1)= S:'$D(^ADEEMP("B",$E(X,1,30),DA)) ^(DA)=1

2)= I $D(^ADEEMP("B",$E(X,1,30),DA)),^(DA) K ^(DA)