STANDARD DATA DICTIONARY #116 -- MENU CYCLE FILE 9/29/25 PAGE 1
STORED IN ^FH(116, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
A menu cycle consists of some specified number of days each day of which is associated with a breakfast, noon, and evening meal.
An effective date determines the start of the cycle and it will repeat until the effective date of another menu cycle begins.
DD ACCESS: #
RD ACCESS: #F
WR ACCESS: #f
DEL ACCESS: #f
LAYGO ACCESS: #f
CROSS
REFERENCED BY: EFFECTIVE DATE(AB), NAME(B)
116,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This is the name of a menu cycle, and is often 'Summer cycle' or 'Winter cycle.'
CROSS-REFERENCE: 116^B
1)= S ^FH(116,"B",$E(X,1,30),DA)=""
2)= K ^FH(116,"B",$E(X,1,30),DA)
This is the normal B cross-reference of the NAME field.
116,1 DAY DA;0 Multiple #116.01
DESCRIPTION: This field contains the day number within the cycle and is therefore 1 to the number of days in the
cycle.
116.01,.01 DAY 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>$P(^FH(116,DA(1),0),"^",2))!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: APR 21, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND THE # OF DAYS IN THE CYCLE
DESCRIPTION:
This is the day number within the cycle.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
116.01,1 BREAKFAST MEAL 0;2 POINTER TO MEAL FILE (#116.1) (Required)
LAST EDITED: AUG 18, 1986
DESCRIPTION:
This is the meal (File 116.1) which will be served for breakfast on this cycle day.
116.01,2 NOON MEAL 0;3 POINTER TO MEAL FILE (#116.1) (Required)
LAST EDITED: AUG 18, 1986
DESCRIPTION:
This is the meal (File 116.1) which will be served for Noon or Lunch on this cycle day.
116.01,3 EVENING MEAL 0;4 POINTER TO MEAL FILE (#116.1) (Required)
LAST EDITED: AUG 18, 1986
DESCRIPTION:
This is the meal (File 116.1) which will be served in the evening of this cycle day.
116,2 NO. DAYS IN CYCLE 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 13, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 365
DESCRIPTION: This is the number of days in the cycle, after which it will repeat. The day numbers in the Day
Field (Field 1) should run from 1 to this number.
116,3 EFFECTIVE DATE DT;0 DATE Multiple #116.02
DESCRIPTION: This multiple contains dates upon which this cycle will become effective and will continue until
superceded by the effective date of this or another cycle. The date becomes Day 1 of the selected
cycle.
116.02,.01 EFFECTIVE DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 18, 1986
DESCRIPTION:
This is the date upon which this cycle will become effective.
CROSS-REFERENCE: 116^AB
1)= S ^FH(116,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^FH(116,"AB",$E(X,1,30),DA(1),DA)
FILES POINTED TO FIELDS
MEAL (#116.1) DAY:BREAKFAST MEAL (#1)
NOON MEAL (#2)
EVENING MEAL (#3)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):