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
Print Page as PDF
Routine: FHNU11

Package: Dietetics

Routine: FHNU11


Information

FHNU11 ; HISC/REL - Recipe Analysis ;3/10/95 12:17

Source Information

Source file <FHNU11.m>

Entry Points

Name Comments DBIA/ICR reference
T0
T1
D0
D1
D2
D3
D4
KIL
LI
L1
ED
E1
E2
E3
E4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Title of Recipe: "
  • Variable: TIT
  • Timeout: DTIME
  • Line Location: T0+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: T0+0
Function Call: WRITE
  • Prompt: *7,!,"Answer must be 3-60 characters in length"
  • Line Location: T0+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Number of Portions: "
  • Variable: POR
  • Timeout: DTIME
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: *7,"Enter number from 1 to 1000"
  • Line Location: T1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to use common units rather than grams? YES// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: D0+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: D0+1
Function Call: WRITE
  • Prompt: !!!,"We will now build the ingredient list."
  • Line Location: D0+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to edit this list? NO// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: D3+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D3+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you wish to analyze another Recipe? NO// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: D4+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D4+0
Function Call: WRITE
  • Prompt: @IOF,!!,"Here is your final ingredient list:",!
  • Line Location: LI+0
Function Call: WRITE
  • Prompt: !,$J(NM,4,0)," ",$P(^FHNU(NX,0),"^",1)," ",AMT," ",UNIT
  • Line Location: L1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to change any amounts? NO// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: ED+0
Function Call: READ
  • Formatting: !
  • Prompt: "Change item # : "
  • Variable: X
  • Timeout: DTIME
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: *7," Enter an item #."
  • Line Location: E1+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: *7," Enter a number from 1 to 99999."
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: " ",UNIT
  • Line Location: E1+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to delete any items? NO// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: E2+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E2+0
Function Call: READ
  • Formatting: !
  • Prompt: "Delete item # : "
  • Variable: X
  • Timeout: DTIME
  • Line Location: E3+0
Function Call: WRITE
  • Prompt: *7," Enter an item #."
  • Line Location: E3+0
Function Call: WRITE
  • Prompt: " ... deleted"
  • Line Location: E3+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to add more ingredients? NO// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: E4+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: E4+0
Info |  Source |  Entry Points |  Interaction Calls