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

Package: Dietetics

Routine: FHORE1


Information

FHORE1 ; HISC/REL - Early/Late Trays ;8/8/96 13:57 ;

Source Information

Source file <FHORE1.m>

Entry Points

Name Comments DBIA/ICR reference
F1 ; Process order
F2
F3
OK
F4
F6
F7
F8
F9
F10
DP
F15
F16
DTP ; Printable Date
CUR
AB
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: *7,!," [ Cannot schedule more than 31 days in the future ]"
  • Line Location: F2+2
Function Call: WRITE
  • Prompt: *7," [ End before Start? ] "
  • Line Location: F3+2
Function Call: WRITE
  • Prompt: *7,!," [ Cannot schedule for more than 31 days in the future ]"
  • Line Location: F3+3
Function Call: WRITE
  • Prompt: !!?10,"Mon Tues Wed Thur Fri Sat Sun"
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !?10," M T W R F S X"
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !!,"Enter string of characters for desired days of week: e.g., MWF",!
  • Line Location: OK+2
Function Call: READ
  • Formatting: !
  • Prompt: "Days of Week: "
  • Variable: WKD
  • Timeout: DTIME
  • Line Location: F4+0
Function Call: WRITE
  • Prompt: !,"Please enter the desired days of the week."
  • Line Location: F4+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: F6+0
Function Call: WRITE
  • Prompt: *7,!,"Enter B for Breakfast, N for Noon , or E for Evening"
  • Line Location: F6+1
Function Call: WRITE
  • Prompt: *7,!!,"Early/Late Meal Already Ordered for this Date!"
  • Line Location: F6+2
Function Call: READ
  • Formatting: !
  • Prompt: "Early or Late (E or L): "
  • Variable: X1
  • Timeout: DTIME
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: *7,!,"Enter E for early tray, L for late tray"
  • Line Location: F7+2
Function Call: WRITE
  • Prompt: *7,!!,"No Early/Late Delivery Times -- Notify Dietetics"
  • Line Location: F7+5
Function Call: WRITE
  • Prompt: !,"Select Time: ( "
  • Line Location: F8+0
Function Call: WRITE
  • Prompt: K1,"=",N(K1)," "
  • Line Location: F8+0
Function Call: READ
  • Prompt: ") "
  • Variable: K1
  • Timeout: DTIME
  • Line Location: F8+1
Function Call: WRITE
  • Prompt: *7,!,"Enter the number of the desired time"
  • Line Location: F8+1
Function Call: WRITE
  • Prompt: *7,!!,"Patient is on a WITHHOLD ORDER at that time!"
  • Line Location: F9+1
Function Call: WRITE
  • Prompt: *7,!!,"Patient has NO DIET ORDER at that time!"
  • Line Location: F9+2
Function Call: READ
  • Formatting: !
  • Prompt: "Bagged Meal: NO// "
  • Variable: BAG
  • Timeout: DTIME
  • Line Location: F10+0
Function Call: WRITE
  • Prompt: *7," Enter Y or N"
  • Line Location: F10+0
Function Call: WRITE
  • Prompt: !?5
  • Line Location: F10+1
Function Call: WRITE
  • Prompt: *7,!!,"Cannot Order a Meal for a Date/Time before now!"
  • Line Location: F15+0
Function Call: WRITE
  • Prompt: *7,!," Error - Illegal character or repeated day"
  • Line Location: F16+0
Function Call: WRITE
  • Prompt: *7,!!,"Early/Late Tray operation TERMINATED - No change!"
  • Line Location: AB+0
Info |  Source |  Entry Points |  Interaction Calls