STANDARD DATA DICTIONARY #117.2 -- DIETETIC COST OF MEALS FILE 3/24/25 PAGE 1 STORED IN ^FH(117.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.5) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file is used to store the monthly costs of the various food groups. Data is used to calculate the cost of meals served as well as ensure an adequate distribution of food across the food groups. DD ACCESS: # RD ACCESS: #F WR ACCESS: #F DEL ACCESS: #F LAYGO ACCESS: #F CROSS REFERENCED BY: MONTH/YEAR(B) 117.2,.01 MONTH/YEAR 0;1 DATE (Required) 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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. 117.2,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. INPUT TEMPLATE(S): FHCMSR FEB 20, 1992@15:46 USER #0 This template is used to enter values into File 117.2, the Dietetic Cost of Meals file used to generate the Dietetic Cost of Meals Report. PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):