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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FHOMSR1

Package: Dietetics

Routine: FHOMSR1


Information

FHOMSR1 ;Hines OIFO/RTK SPECIAL MEALS REQUEST MEAL ;4/02/03 15:05

Source Information

Source file <FHOMSR1.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;Prompt for outpatient location
DIET ;Prompt for diet
MEAL ;Prompt for meal
PRINT ;If user has key allow printing without sending alert to authorizor(s)
ALERT ;Send alert to 15 Authorizors set up in file #119.9 (fields 9-13,40-49)
SETNODE ;
MSG1 ;
MSG2 ;
CHECKRM ; Check if the OP has an existing RM for this date/meal
END ;Kill local variables before exiting
LATE ;
TIME
ORDEL ;
UPD100 ;Backdoor message to update file #100 with a new SM order
UPDE100 ;Backdoor message to update file #100 with a new SM Late Tray order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"UNKNOWN SELECTION !"
  • Line Location: FHOMSR1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !!,"NO DEFAULT OUTPATIENT DIET SET!!",!
  • Line Location: DIET+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MEAL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"This patient already has a pending Special Meal request for "
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: DTP," "
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: !!,"This patient already has a Recurring Meal ordered for "
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: DTP," "
  • Line Location: MSG2+2
Function Call: WRITE
  • Prompt: $S(FHMEAL="B":"Breakfast",FHMEAL="N":"Noon",1:"Evening")
  • Line Location: MSG2+3
Function Call: WRITE
  • Prompt: !,"Select Time: ( "
  • Line Location: TIME+3
Function Call: WRITE
  • Prompt: J,"=",FHTM(J)," "
  • Line Location: TIME+3
Function Call: READ
  • Prompt: ") "
  • Variable: FHS
  • Timeout: DTIME
  • Line Location: TIME+4
Function Call: WRITE
  • Prompt: !!,"Invalid time selection!"
  • Line Location: TIME+5
Function Call: WRITE
  • Prompt: !!,"Cannot order for a time before now!"
  • Line Location: TIME+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(111 - [#111] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call