Global: ^FH(117.2

FileMan FileNo	FileMan Filename	Package
117.2	DIETETIC COST OF MEALS	Dietetics

Package	Total	Routines
Dietetics	5	DRUG CLASSIFICATIONS FHCMSR ^FH(117.2 FHADR81 FHCMSR1

Package	Total	Routines
Dietetics	1	FHCMSR

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	MONTH/YEAR	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=$E(Y,1,5)_"00" K:Y<1 X I $D(X) S DINUM=X` LAST EDITED: `OCT 27, 1993` HELP-PROMPT: `ENTER A MONTH AND A YEAR, ej. 1 92, 11-92, 3/92.` DESCRIPTION: `Enter Month and Year.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `117.2^B` `1)= S ^FH(117.2,"B",$E(X,1,30),DA)=""` `2)= K ^FH(117.2,"B",$E(X,1,30),DA)` `This is the normal B cross-reference of the MONTH/YEAR field.`
1	BEG INV GRP 1	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 17, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Beg Inv Cost for Food Group I` DESCRIPTION: `Enter Beginning Inventory Cost for Food Group I.`
2	BEG INV GRP 2	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group II` DESCRIPTION: `Enter Beginning Inventory Cost For Food Group II.`
3	BEG INV GRP 3	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group III` DESCRIPTION: `Enter the Beginning Inventory Cost of Food Group III.`
4	BEG INV GRP 4	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group IV` DESCRIPTION: `Enter the Beginning Inventory Cost for Food Group IV.`
5	BEG INV GRP 5	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group V` DESCRIPTION: `Enter the Beginning Inventory Cost for Food Group V.`
6	BEG INV GRP 6	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group VI` DESCRIPTION: `Enter the Beginning Inventory Cost for Food Group VI.`
7	ISSUE COST GRP 1	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 17, 1991` HELP-PROMPT: `Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group I` DESCRIPTION: `Enter the Issue Cost For Food Group I.`
8	ISSUE COST GRP 2	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 9999999 for Issue Cost of Food Group II` DESCRIPTION: `Enter The Issue Cost for Food Group II.`
9	ISSUE COST GRP 3	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 9999999 for Issue Cost of Food Group III` DESCRIPTION: `Enter the Issue Cost for Food Group III.`
10	ISSUE COST GRP 4	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 9999999 for Issue Cost of Food Group IV` DESCRIPTION: `Enter the Issue Cost for food Group IV.`
11	ISSUE COST GRP 5	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 9999999 for Issue Cost of Food Group V` DESCRIPTION: `Enter the Issue Cost of Food Group V.`
12	ISSUE COST GRP 6	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group VI` DESCRIPTION: `Enter the Issue Cost of Food Group VI.`
13	CLOS INV GRP 1	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Closing Inventory of Food Group I` DESCRIPTION: `Enter the Closing Inventory Cost for Food Group I.`
14	CLOS INV GRP 2	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group II` DESCRIPTION: `Enter the Closing Inventory Cost for Food Group II.`
15	CLOS INV GRP 3	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group III` DESCRIPTION: `Enter the Closing Inventory Cost for Food Group III.`
16	CLOS INV GRP 4	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group IV` DESCRIPTION: `Enter the Closing Inventory Cost for Food Group IV.`
17	CLOS INV GRP 5	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group V` DESCRIPTION: `Enter the Closing Inventory Cost for Food Group V.`
18	CLOS INV GRP 6	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group VI` DESCRIPTION: `Enter the Closing Inventory Cost for Food Group VI.`
19	% COST GRP 1	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter a Number between 1 and 99 for % Cost Recommended` DESCRIPTION: `The Percent Cost Recommended for Food Group I.`
20	% COST GRP 2	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter a Number between 1 and 99 for % Cost Recommended of Food Group II` DESCRIPTION: `The Percent Cost Recommended for Food Group II.`
21	% COST GRP 3	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter a Number between 1 and 99 for % Cost Recommended of Food Group III` DESCRIPTION: `The Percent Cost Recommended for Food Group III.`
22	% COST GRP 4	0;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter a Number between 1 and 99 for % Cost Recommended of Food Group IV.` DESCRIPTION: `The Percent Cost Recommended for Food Group IV.`
23	% COST GRP 5	0;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter a Number between 1 and 99 for % Cost Recommended of Food Group V` DESCRIPTION: `The % Cost Recommended for Food Group V.`
24	% COST GRP 6	0;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 06, 1991` HELP-PROMPT: `Enter a Number between 1 and 99 for % Cost Recommended of Food Group VI` DESCRIPTION: `The % Cost Recommended for Food Group VI.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
>> DA	.01(XREF 1S), .01(XREF 1K)
>> DINUM	.01+1*
X	.01+1*!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1! , 8+1!, 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16+1!, 17+1! , 18+1!, 19+1!, 20+1!, 21+1!, 22+1!, 23+1!, 24+1!
>> Y	.01+1

Customize PDF page

Package: Dietetics

Global: ^FH(117.2

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 1

Fields, Total: 25

External References

Global Variables Directly Accessed

Local Variables

Legend: