Sub-Field: 117.338

Parent File	Name	Number	Package
ANNUAL REPORT(#117.3)	DIETETIC EQUIPMENT	117.338	Dietetics

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIETETIC EQUIPMENT	0;1	POINTER TO DIETETIC REPORT CATEGORIES FILE (#117.4)	DIETETIC REPORT CATEGORIES(#117.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""E""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 15, 1992` DESCRIPTION: This field contains the pointer to The Dietetic Report Category file. SCREEN: `S DIC("S")="I $P(^(0),U,2)=""E"""` EXPLANATION: `SELECT ONLY THE DIETETIC SERVICE EQUIPMENT.` CROSS-REFERENCE: `117.338^B` 1)= S ^FH(117.3,DA(1),"EQUI","B",$E(X,1,30),DA)="" 2)= K ^FH(117.3,DA(1),"EQUI","B",$E(X,1,30),DA)
1	BRAND	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `FEB 07, 1992` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: This field contains the Brand of the Dietetic Equipment Service.

DIETETIC EQUIPMENT

0;1

POINTER TO DIETETIC REPORT CATEGORIES FILE (#117.4)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""E""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 15, 1992

DESCRIPTION:

This field contains the pointer to The Dietetic Report Category file.

CROSS-REFERENCE: 117.338^B

1)= S ^FH(117.3,DA(1),"EQUI","B",$E(X,1,30),DA)=""

2)= K ^FH(117.3,DA(1),"EQUI","B",$E(X,1,30),DA)

BRAND

0;2

FREE TEXT

DESCRIPTION:

This field contains the Brand of the Dietetic Equipment Service.