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: FHORD92

Package: Dietetics

Routine: FHORD92


Information

FHORD92 ; HISC/NCA - Diet Census Percentage ;6/8/93 08:54

Source Information

Source file <FHORD92.m>

Entry Points

Name Comments DBIA/ICR reference
R0
F0
F1
R1
R2
L0
C0
C1
KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want DIET CENSUS PERCENTAGE for MEAL? (Y/N): "
  • Variable: FHAN
  • Timeout: DTIME
  • Line Location: R0+0
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: R0+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Select PRODUCTION FACILITY: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7,!!,"No MENU CYCLE Defined for that Date!"
  • Line Location: F1+2
Function Call: WRITE
  • Prompt: *7,!!,"MENU CYCLE DAY Not Defined for that Date!"
  • Line Location: F1+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: *7,!,"Select B for Breakfast, N for Noon, or E for Evening or ALL for all meals"
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: *7,!!,"*** NO MENU DEFINED FOR THIS MEAL ***"
  • Line Location: R1+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Use CENSUS or FORECAST? (C OR F): "
  • Variable: FHP1
  • Timeout: DTIME
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: *7," Enter C or F"
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: !!,"Forecasting ..."
  • Line Location: R2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !!?5,"Service Point: ",$P(^FH(119.72,P0,0),"^",1)
  • Line Location: C0+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: *7," Must be a number less than 9999"
  • Line Location: C1+1

FileMan Files Accessed Via FileMan Db Call

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