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

Package: Dietetics

Routine: FHPRC13


Information

FHPRC13 ; HISC/NCA - Enter/Edit Recipe Menu ;3/13/95 11:16

Source Information

Source file <FHPRC13.m>

Entry Points

Name Comments DBIA/ICR reference
GET
SEL
S1
S2
S3
S4
R1 ; Edit Recipe and Portion
R2
STOR
E5
DEL ; Delete Meal
A1
A2
E6
E7
E8
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select Day #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+2
Function Call: READ
  • Formatting: !
  • Prompt: "Select Meal #: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: S2+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S3+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S4+1
Function Call: WRITE
  • Prompt: !,"Select Production Diet: "
  • Line Location: S4+1
Function Call: WRITE
  • Prompt: $S($G(^FH(116.2,+PD,0))'="":$P(^FH(116.2,+PD,0),"^",1)_" // ",1:"") R X:DTIME G:'$T!(X["^")
  • Condition for execution: PD
  • Line Location: S4+1
Function Call: WRITE
  • Prompt: *7,?27,"No Production Diet to Delete!"
  • Line Location: S4+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Recipe: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: *7,!,"Enter amount of serving portion. Enter 0 to omit recipe;",!,"otherwise enter a number greater than 0 but less than 9999."
  • Line Location: R2+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Okay to Save the Menu? YES// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: STOR+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: STOR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: STOR+1
Function Call: WRITE
  • Prompt: !,"...Storing Recipes and Food Nutrient"
  • Line Location: E5+0
Function Call: WRITE
  • Prompt: !,"...Done"
  • Line Location: E5+2
Function Call: WRITE
  • Prompt: *7,?17,"No Meal to Delete!"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"No Meal-Meal Deleted"
  • Line Location: E6+0
Function Call: WRITE
  • Prompt: !,"No Meals Remains-Day Deleted"
  • Line Location: E7+1
Function Call: WRITE
  • Prompt: !
  • Line Location: E7+3
Function Call: WRITE
  • Prompt: !,"...Menu Deleted"
  • Line Location: E8+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E8+1

FileMan Files Accessed Via FileMan Db Call

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