Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Dietetics 6 DTP^FH  ^FHOMDPA  (SETSM,SMGM)^FHOMRO2  DEV^FHOMSP1  (DIETLST,EXMSG,MSHOM,OKMSG,OUTLOC,PATNAME,RMBED,SMSTAT)^FHOMUTL  EVSEND^FHWOR  
VA FileMan 6 ^%DT  NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Kernel 3 $$FMTHL7^XLFDT  $$PATCH^XPDUTL  SETUP^XQALERT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHOMSR  FHOMWOR  

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

External References

Name Field # of Occurrence
^%DT TIME+6
NOW^%DTC MEAL+9, TIME+7
^DIC DIET+5
FILE^DICN SETNODE+4
^DIE SETNODE+8, ORDEL+2
^DIR MEAL+3, MEAL+7, PRINT+1, TIME+10
DTP^FH MSG1+2, MSG2+2
^FHOMDPA FHOMSR1+4
SETSM^FHOMRO2 SETNODE+11
SMGM^FHOMRO2 MEAL+9
DEV^FHOMSP1 PRINT+3
DIETLST^FHOMUTL DIET+1
EXMSG^FHOMUTL LOC+1, DIET+6, DIET+7, MEAL+3, MEAL+8, MEAL+10, MEAL+11
MSHOM^FHOMUTL UPD100+2, UPDE100+2
OKMSG^FHOMUTL MEAL+14
OUTLOC^FHOMUTL LOC+1
PATNAME^FHOMUTL ALERT+6
RMBED^FHOMUTL LOC+2
SMSTAT^FHOMUTL FHOMSR1+6
EVSEND^FHWOR UPD100+8, UPDE100+8
$$FMTHL7^XLFDT UPD100+5, UPDE100+3, UPDE100+4
$$PATCH^XPDUTL UPD100+1, UPDE100+1
SETUP^XQALERT ALERT+8

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
Routine Call
  • DIC
  • Line Location:
    • DIET+5
Routine Call
  • DIE
  • Line Location:
    • SETNODE+8
    • ORDEL+2
Routine Call
  • DIR
  • Line Location:
    • MEAL+3
    • MEAL+7
    • PRINT+1
    • TIME+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(111 - [#111] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115 SETNODE+3
^FH(111 - [#111] DIET+3, UPD100+5
^FH(119.6 - [#119.6] LATE+1
^FH(119.73 - [#119.73] LATE+1, TIME+8
^FH(119.9 - [#119.9] ALERT+1
^FHPT - [#115] FHOMSR1+5, SETNODE+10, CHECKRM+2, CHECKRM+3, CHECKRM+4
^XUSEC("FHAUTH" FHOMSR1+7

Label References

Name Line Occurrences
ALERT MEAL+16
CHECKRM MEAL+5
END MEAL+17
LATE MEAL+11
MSG1 FHOMSR1+6
MSG2 MEAL+5
ORDEL SETNODE+9
PRINT MEAL+15
SETNODE MEAL+12
TIME TIME+5, TIME+7
UPD100 MEAL+12
UPDE100 MEAL+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MEAL+9, TIME+7
>> %DT TIME+6*
A ALERT+2*, END+1!
AA END+1!
AB ALERT+2*, END+1!
>> AUDUZ SETNODE+1*
>> AUFHNOW SETNODE+1*
BAG END+1!
CCC END+1!
CONT MEAL+8*, END+1!
>> DA SETNODE+6*, ORDEL+1*
>> DA(1 SETNODE+2*, SETNODE+5*, ORDEL+1*
>> DFN UPD100+2, UPDE100+2
DIC DIET+4!*, MEAL+1!, SETNODE+2!*, END+1!
DIC("A" DIET+4*
DIC("B" DIET+5*
DIC("P" SETNODE+3*
DIC("S" DIET+5*
DIC(0 DIET+4*, SETNODE+3*
DIE SETNODE+5!*, ORDEL+1*
>> DINUM SETNODE+3*
DIR MEAL+1!, MEAL+6!, END+1!, TIME+9!
DIR("A" MEAL+1*, MEAL+6*, PRINT+1*, TIME+9*
DIR("B" MEAL+6*, PRINT+1*, TIME+9*
DIR(0 MEAL+2*, MEAL+6*, PRINT+1*, TIME+9*
>> DIRUT MEAL+3, PRINT+2, TIME+10
DO SETNODE+2!
>> DR SETNODE+7*, ORDEL+2*
DT MEAL+9, MSG1+2, MSG2+2, CHECKRM+2
DTIME TIME+4
>> DTP MSG1+2*, MSG2+2*
>> DUOUT DIET+6
DUZ FHOMSR1+7, SETNODE+1
ENDL END+1!
ENDT END+1!
>> FH1 LATE+2*, TIME
>> FH3 TIME*
>> FHACT SETNODE+11*
>> FHALL FHOMSR1+3*
FHAU15 ALERT+1!*, ALERT+2
>> FHBAG TIME+8*, TIME+11*, UPDE100+5
>> FHCDT PRINT+3*
>> FHCNT TIME*, TIME+2*, TIME+3, TIME+5
>> FHCOMM LATE+1*, TIME+8
>> FHCOMM1 LATE+1*, TIME+1, TIME+2
>> FHDA SETNODE+6*, SETNODE+10
FHDAYS END+1!
FHDEF DIET+2, DIET+3*, DIET+5, END+1!
FHDFN FHOMSR1+4, FHOMSR1+5, PRINT+3, SETNODE+2, SETNODE+5, SETNODE+10, CHECKRM+2, CHECKRM+3, CHECKRM+4, END+1!
, ORDEL+1
FHDIET FHOMSR1+3*, DIET+8*, END+2!, UPD100+5, UPD100+7
>> FHDIETNM UPD100+5*, UPD100+7
FHDIETS END+2!
>> FHEL MEAL+11*, LATE+2
>> FHKEY FHOMSR1+3*, FHOMSR1+7*, MEAL+12, MEAL+15, MEAL+16
>> FHLOC LOC+1, LATE+1
>> FHLTFLG MEAL+9*, MEAL+11
>> FHMEAL MEAL+4*, MSG2+3, CHECKRM+3, LATE+2, UPD100+4, UPDE100+5
>> FHMSG1 FHOMSR1+3*
>> FHNOW MEAL+9*, MEAL+11, PRINT+3, SETNODE+1, SETNODE+2, SETNODE+11, TIME+6, UPD100+3, UPD100+5, UPDE100+3
>> FHOBAG UPDE100+5*, UPDE100+7
>> FHODT UPD100+5*, UPD100+6, UPDE100+3*, UPDE100+6
>> FHOMEAL UPD100+4*, UPD100+7
>> FHOMELN UPDE100+5*, UPDE100+7
>> FHOPDT SETNODE+11*
>> FHOPTY SETNODE+11*
>> FHORN FHOMSR1+3*
>> FHPTNM ALERT+7
>> FHQEL MEAL+11*, MEAL+13, SETNODE+9, TIME+4*, TIME+10*
FHREQPR PRINT+3*!
>> FHRMYES MEAL+5, CHECKRM+1*, CHECKRM+5*
>> FHS TIME+4*, TIME+5, TIME+6, UPDE100+5
>> FHSM MEAL+11*, ORDEL+1
>> FHSMID SETNODE+2*
>> FHSSN ALERT+7
FHSTAT FHOMSR1+6, MEAL+12*, SETNODE+1, END+2!
>> FHT TIME*, TIME+1, TIME+2
>> FHTIME TIME+6*
>> FHTM( TIME+2*, TIME+3, TIME+6
>> FHTRAY TIME+6*, TIME+7, UPDE100+4*, UPDE100+6
FHZ CHECKRM+2*, CHECKRM+3, CHECKRM+4, END+2!
>> FHZN SETNODE+10*
>> FILL UPD100+3*, UPD100+6, UPDE100+3*, UPDE100+6
>> J TIME+3*
MSG UPD100+2!, UPDE100+2!
MSG(4 UPD100+6*, UPDE100+6*
MSG(5 UPD100+7*, UPDE100+7*
>> PRINT PRINT+2*
>> SKIP MEAL+10
STDT MEAL+9*, END+2!
STDTIM END+2!
U DIET+3, ALERT+1, ALERT+2, SETNODE+3, CHECKRM+3, CHECKRM+4, LATE+1, TIME+1, TIME+2, TIME+8
, UPD100+5
>> X SETNODE+3*, TIME+6*
XQA ALERT+1!, ALERT+3
XQA( ALERT+2*
>> XQAMSG ALERT+7*, ALERT+8*
>> Y DIET+7, DIET+8, MEAL+4, MEAL+8, PRINT+2, SETNODE+2*, SETNODE+3, SETNODE+4, SETNODE+6, TIME+6
, TIME+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All