Routine: FHNU7

Information

FHNU7 ; HISC/REL - Food Item Search ;5/17/93 08:50

Source file <FHNU7.m>

Name	Line Occurrences
Function Call: READ	Formatting: !!?2 Prompt: "Select Food Item: " Variable: Y Timeout: DTIME Line Location: FHNU7+3
Function Call: WRITE	Prompt: !,"Enter first few characters of food name, e.g., MILK" Line Location: FHNU7+4
Function Call: WRITE	Prompt: !!?2,"Food item not found " Line Location: SD+0
Function Call: WRITE	Prompt: ! Line Location: TOO+0
Function Call: WRITE	Prompt: !,$J(LL,3,0),?6,$P(X,"^",1) Line Location: TOO+0
Function Call: WRITE	Prompt: !!?2,"Select Food Item #, '",$S(YN:"^",1:"RETURN"),"' to Quit" Line Location: TOO+1
Function Call: WRITE	Prompt: ",",!?2,"or 'RETURN' to continue list" Condition for execution: YN Line Location: TOO+1
Function Call: READ	Prompt: " => " Variable: YN Timeout: DTIME Line Location: TOO+2
Function Call: WRITE	Prompt: *7," ??" Line Location: TOO+5
Function Call: READ	Variable: Y Timeout: DTIME Line Location: D2+0
Function Call: WRITE	Prompt: *7,!," Enter amount of item. Enter 0 to delete;",!," otherwise enter a number greater than 0 but less than 99999." Line Location: D2+2
Function Call: WRITE	Prompt: " ... ",Y*WT," grams" Line Location: D2+3
Function Call: WRITE	Prompt: !!?2,"You have already selected ",NAM Line Location: ED+0
Function Call: READ	Variable: Y Timeout: DTIME Line Location: E1+0
Function Call: WRITE	Prompt: *7,!," Enter an amount greater than 0 but less than 99999" Line Location: E1+1
Function Call: WRITE	Prompt: " ",UNIT Line Location: E1+2