Global: ^ADERSC

FileMan FileNo	FileMan Filename	Package
9002005	DENTAL RESOURCE	IHS Dental System

Package	Total	Routines
IHS Dental System	1	ADELR

Package	Total	FileMan Files
IHS Dental System	1	DENTAL RESOURCE TYPE(#9002010.05)[1]
Kernel	1	STATE(#5)[5]

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>28!($L(X)<3)!'(X?.ANP) X` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `Answer must be 3-28 characters in length.` DESCRIPTION: FIELD CONTAINING NAMES OF ALTERNATE RESOURCES FOR DENTAL CROSS-REFERENCE: `9002005^B` 1)= S ^ADERSC("B",$E(X,1,30),DA)="" 2)= K ^ADERSC("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002005^E^KWIC` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^ADERSC("E",I,DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31 K ^ADERSC("E",I,DA)
1	RESOURCE TYPE	0;2	POINTER TO DENTAL RESOURCE TYPE FILE (#9002010.05)	**********************REQUIRED FIELD********************** DENTAL RESOURCE TYPE(#9002010.05) LAST EDITED: `MAY 06, 1988` HELP-PROMPT: `ENTER THE TYPE OR CATEGORY OF THE DENTAL RESOURCE BEING ENTERED` DESCRIPTION: FIELD WILL CONTAIN VALID RESOURCE TYPE CROSS-REFERENCE: `9002005^C` 1)= S ^ADERSC("C",$E(X,1,30),DA)="" 2)= K ^ADERSC("C",$E(X,1,30),DA) CROSS-REFERENCE: `9002005^B^MNEMONIC` 1)= S:'$D(^ADERSC("B",$E(X,1,30),DA)) ^(DA)=1 2)= I $D(^ADERSC("B",$E(X,1,30),DA)),^(DA) K ^(DA)
2	PHONE	1;0	Multiple #9002005.01	9002005.01
2.5	FACILITY	2;5	SET	**********************REQUIRED FIELD********************** 'IHS' FOR IHS CLINIC; 'PVT' FOR PRIVATE OFFICE; 'ADMIN' FOR ADMINISTRATIVE OFFICE; 'B' FOR PLACE OF BUSINESS; LAST EDITED: `MAY 06, 1988` HELP-PROMPT: `ENTER A VALID FACILITY` DESCRIPTION: FIELD WILL CONTAIN VALID FACILITY
3	STREET	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` HELP-PROMPT: `ENTER STREET OR BOX NUMBER OF ALTERNATE RESOURCE` DESCRIPTION: FIELD WILL CONTAIN VALID STREET
4	CITY	2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `Answer must be 1-25 characters in length.` DESCRIPTION: FIELD WILL CONTAIN VALID CITY CROSS-REFERENCE: `9002005^D` 1)= S ^ADERSC("D",$E(X,1,30),DA)="" 2)= K ^ADERSC("D",$E(X,1,30),DA)
5	STATE	2;3	POINTER TO STATE FILE (#5)	STATE(#5) HELP-PROMPT: `ENTER THE STATE ADDRESS OF ALTERNATE RESOURCE` DESCRIPTION: FIELD WILL CONTAIN VALID STATE
6	ZIP	2;4	FREE TEXT	LAST EDITED: `MAY 30, 1986` HELP-PROMPT: `ENTER ZIP CODE FOR ALTERNATE RESOURCE` DESCRIPTION: FIELD WILL CONTAIN VALID ZIP
7	CHS AUTH. #	2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAY 05, 1988` HELP-PROMPT: `ENTER AUTHORIZATION NUMBER FROM HSA 57 IF APPLICABLE.` DESCRIPTION: FIELD WILL CONTAIN VALID CHS AUTH. #

Field #

Name

Loc

Type

Details

.01

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>28!($L(X)<3)!'(X?.ANP) X
LAST EDITED: MAY 03, 1993
HELP-PROMPT: Answer must be 3-28 characters in length.

DESCRIPTION:

FIELD CONTAINING NAMES OF ALTERNATE RESOURCES FOR DENTAL

CROSS-REFERENCE: 9002005^B

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

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

CROSS-REFERENCE: 9002005^E^KWIC

1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^ADERSC("E",I,DA)=""

2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31 K ^ADERSC("E",I,DA)

1

RESOURCE TYPE

0;2

POINTER TO DENTAL RESOURCE TYPE FILE (#9002010.05)

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

DENTAL RESOURCE TYPE(#9002010.05)

LAST EDITED: MAY 06, 1988
HELP-PROMPT: ENTER THE TYPE OR CATEGORY OF THE DENTAL RESOURCE BEING ENTERED
DESCRIPTION:
```
FIELD WILL CONTAIN VALID RESOURCE TYPE
```

CROSS-REFERENCE: 9002005^C

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

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

CROSS-REFERENCE: 9002005^B^MNEMONIC

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

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

2

PHONE

1;0

Multiple #9002005.01

9002005.01

2.5

FACILITY

2;5

SET

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

'IHS' FOR IHS CLINIC;
'PVT' FOR PRIVATE OFFICE;
'ADMIN' FOR ADMINISTRATIVE OFFICE;
'B' FOR PLACE OF BUSINESS;

LAST EDITED: MAY 06, 1988
HELP-PROMPT: ENTER A VALID FACILITY
DESCRIPTION:
```
FIELD WILL CONTAIN VALID FACILITY
```

3

STREET

2;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
HELP-PROMPT: ENTER STREET OR BOX NUMBER OF ALTERNATE RESOURCE
DESCRIPTION:
```
FIELD WILL CONTAIN VALID STREET
```

4

CITY

2;2

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAY 03, 1993
HELP-PROMPT: Answer must be 1-25 characters in length.
DESCRIPTION:
```
FIELD WILL CONTAIN VALID CITY
```

CROSS-REFERENCE: 9002005^D

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

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

5

STATE

2;3

POINTER TO STATE FILE (#5)

STATE(#5)

HELP-PROMPT: ENTER THE STATE ADDRESS OF ALTERNATE RESOURCE
DESCRIPTION:
```
FIELD WILL CONTAIN VALID STATE
```

6

ZIP

2;4

FREE TEXT

LAST EDITED: MAY 30, 1986
HELP-PROMPT: ENTER ZIP CODE FOR ALTERNATE RESOURCE
DESCRIPTION:
```
FIELD WILL CONTAIN VALID ZIP
```

7

CHS AUTH. #

2;6

FREE TEXT

INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: MAY 05, 1988
HELP-PROMPT: ENTER AUTHORIZATION NUMBER FROM HSA 57 IF APPLICABLE.
DESCRIPTION:
```
FIELD WILL CONTAIN VALID CHS AUTH. #
```

Customize PDF page

Package: IHS Dental System

Global: ^ADERSC

Information

Description

Directly Accessed By Routines, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 9