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

Package: Dietetics

Routine: FHORD1A


Information

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

Source Information

Source file <FHORD1A.m>

Entry Points

Name Comments DBIA/ICR reference
WIN
W1
W2
W3
W4
W5

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls