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

Package: Dietetics

Routine: FHOMRO1


Information

FHOMRO1 ;Hines OIFO/RTK RECURRING MEALS ORDER EDIT ;2/04/03 14:05

Source Information

Source file <FHOMRO1.m>

Entry Points

Name Comments DBIA/ICR reference
ORDEDT ;
ORDER ;
DIETORD ;
DATE ;
DAYS ;
SETNODE ;
SET ;
MULTDT ;
SHDAYS ;
DAYCHK ;
PREV ;
CHECK ;
CHECKSM ; Check if the OP has an existing SM for this date/meal
MSG1 ;
END ;Kill local variables before exiting
EDIT ;
EDT1
SETEDT ;
OUTLOC ;Prompt for outpatient location - screen for ONLY Outpatient Locations
UPD100 ;Backdoor message to update file #100 with a new RM order
ED100 ;Backdoor message to update file #100 with an edited RM order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"UNKNOWN SELECTION !"
  • Line Location: FHOMRO1+5
Function Call: WRITE
  • Prompt: !!,"This person has an existing outpatient diet order."
  • Line Location: ORDEDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: !!,"NO DEFAULT OUTPATIENT DIET SET!!",!
  • Line Location: DIETORD+2
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DAYS+8
Function Call: WRITE
  • Prompt: !!!?5,"No meals ordered!",!
  • Line Location: DAYS+14
Function Call: WRITE
  • Prompt: !!," Mon Tues Wed Thur Fri Sat Sun"
  • Line Location: SHDAYS+1
Function Call: WRITE
  • Prompt: !," M T W R F S X"
  • Line Location: SHDAYS+2
Function Call: WRITE
  • Prompt: !!,"Enter string of characters for desired days of week: e.g., MWF",!
  • Line Location: SHDAYS+3
Function Call: WRITE
  • Prompt: !!,"Please enter the desired days of the week.",!
  • Line Location: DAYCHK+6
Function Call: WRITE
  • Prompt: !!,"This patient already has a Special Meal ordered for "
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: DTP," "
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: $S(FHMEAL="B":"Breakfast",FHMEAL="N":"Noon",1:"Evening"),!
  • Line Location: MSG1+3
Function Call: WRITE
  • Prompt: !,Y,!
  • Line Location: EDT1+2
Function Call: WRITE
  • Prompt: !!?3,"The selected order has been cancelled!",!
  • Line Location: EDT1+4
Function Call: WRITE
  • Prompt: !!,"NO DEFAULT OUTPATIENT DIET SET!!",!
  • Line Location: EDT1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SETEDT+1
Function Call: WRITE
  • Prompt: !!,"The selected location does not have an Associated Hospital Location."
  • Line Location: OUTLOC+6

FileMan Files Accessed Via FileMan Db Call

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