FHOMSR1 ;Hines OIFO/RTK SPECIAL MEALS REQUEST MEAL ;4/02/03 15:05
Source file <FHOMSR1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LOC | ;Prompt for outpatient location
|
|
DIET | ;Prompt for diet
|
|
MEAL | ;Prompt for meal
|
|
;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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^FH(111 - [#111] | Classic Fileman Calls |