Routine: FHORD1A

Information

FHORD1A ; HISC/REL/NCA - Diet Order Window ;7/11/96 12:21 ;

Source file <FHORD1A.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"You have missed the ",$S(MEAL="B":"BREAKFAST",MEAL="N":"NOON",1:"EVENING")," cut-off." Line Location: W1+2
Function Call: READ	Formatting: !! Prompt: "Do you wish to order a LATE TRAY? (Y/N): " Variable: YN Timeout: DTIME Line Location: W2+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: W2+0
Function Call: WRITE	Prompt: *7,!!,"No Late Tray Delivery Times -- Notify Dietetics" Line Location: W2+4
Function Call: WRITE	Prompt: !,"Select Time ( " Line Location: W3+0
Function Call: WRITE	Prompt: K1,"=",$P(N(K1),"^",1)," " Line Location: W3+0
Function Call: READ	Prompt: "): " Variable: K1 Timeout: DTIME Line Location: W3+1
Function Call: WRITE	Prompt: *7,!,"Enter the number of the desired time" Line Location: W3+1
Function Call: WRITE	Prompt: " .. done" Line Location: W4+1