Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FHPRO1

Package: Dietetics

Routine: FHPRO1


Information

FHPRO1 ; HISC/REL/RVD - Production Processing ;3/6/95 15:45

Source Information

Source file <FHPRO1.m>

Entry Points

Name Comments DBIA/ICR reference
F0
CEFO ;Census and Forcast
R0
CL ;Ask for Communication Office if census is selected.
F1
F2
R1 ;R !!,"Select MEAL (B,N,E, or combination of BNE, or ALL): ALL// ",MEAL:DTIME G:'$T!(MEAL["^") KIL S:MEAL="" MEAL="ALL" S X=MEAL D TR^FH S MEAL=X S:$P("ALL",MEAL,1)="" MEAL="A"
R2
R3
R4
R5
R7
R8
R10
R9
L0
FOR
C1 ;
CHKML ;check meal
KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select PRODUCTION FACILITY: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F0+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Use CENSUS or FORECAST? (C OR F): "
  • Variable: FHP6
  • Timeout: DTIME
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: *7," Enter C or F"
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for that Date!"
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!"
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !!,"***End Date must be on or after Start Date!!!"
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for that Date!"
  • Line Location: F2+3
Function Call: WRITE
  • Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!"
  • Line Location: F2+4
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for Date: ",DTP
  • Line Location: F2+7
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for Date: ",DTP
  • Line Location: F2+8
Function Call: WRITE
  • Prompt: *7,!!,"You may select B for Breakfast, N for Noon, E for Evening, B-N for Breakfast to Noon, N-E for Noon to Evening, or any combination separated by a hyphen, or ALL for all meals"
  • Line Location: R1+4
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, or E for Evening, or any combination of BNE, or ALL for all meals"
  • Line Location: R1+5
Function Call: WRITE
  • Prompt: *7,!!,"*** NO MENU DEFINED FOR THIS MEAL ***"
  • Line Location: R1+8
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want PRODUCTION Summary? (Y/N) N// "
  • Variable: FHP1
  • Timeout: DTIME
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R2+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want MEAL SERVICE Summary? (Y/N) N// "
  • Variable: FHP2
  • Timeout: DTIME
  • Line Location: R3+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R3+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want RECIPE PREPARATION Sheet? (Y/N) N// "
  • Variable: FHP3
  • Timeout: DTIME
  • Line Location: R4+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R4+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want STOREROOM REQUISITION Sheet? (Y/N) N// "
  • Variable: FHP4
  • Timeout: DTIME
  • Line Location: R5+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R5+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want PRINTED RECIPES? (Y/N) N// "
  • Variable: FHP5
  • Timeout: DTIME
  • Line Location: R7+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R7+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Advance Food Prep? (Y/N) N// "
  • Variable: FHP8
  • Timeout: DTIME
  • Line Location: R8+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R8+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Storeroom Requisition for AFP? (Y/N) N// "
  • Variable: FHP10
  • Timeout: DTIME
  • Line Location: R10+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R10+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Printed Recipes for AFP? (Y/N) N// "
  • Variable: FHP9
  • Timeout: DTIME
  • Line Location: R9+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R9+0
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+1
Function Call: WRITE
  • Prompt: !?5,"Forecast Census for ",FHDAY,"DAY, ",DTP," : ",S1," // "
  • Line Location: C1+4
Function Call: WRITE
  • Prompt: *7," Must be a number less than 9999"
  • Line Location: C1+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.71 - [#119.71] Classic Fileman Calls
^FH(119.73 - [#119.73] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call