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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: FHOMRE1

Package: Dietetics

Routine: FHOMRE1


Information

FHOMRE1 ;Hines OIFO/RTK-OUTPATIENT MEALS EARLY/LATE TRAY ;5/20/03 08:35

Source Information

Source file <FHOMRE1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Dietetics 5 (SETAET,SETSM)^FHOMRO2  DISP^FHOMRR1  (EXMSG,GETOPT,MSHOM,OKMSG)^FHOMUTL  ERR^FHOMWOR  (EVSEND,GETOR,SEND)^FHWOR  
VA Fileman 4 (,DD)^%DT  (C,NOW)^%DTC  ^DIE  ^DIR  
Kernel 2 $$FMTHL7^XLFDT  $$PATCH^XPDUTL  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Dietetics 3 FHOMRE  FHOMRO1  FHOMWOR  

Entry Points

Name Comments DBIA/ICR reference
SETELSM ; Set E/L for Special Meals
SET
END
REJECT ; Reject if no recurring or special meals found
HL7SET ;
; Entry point for E/L trays placed from CPRS/OERR
EN1
SM ; Check special meals
TIME
RM ; Check recurring meals
ORD
EL1
UPD100 ;Backdoor message to update file #100 with a new EL order

External References

Name Field # of Occurrence
^%DT TIME+6
DD^%DT EL1+3
C^%DTC HL7SET+10
NOW^%DTC TIME+7, SET+2, SETELSM+3
^DIE SET+3, SETELSM+5
^DIR EL1+1, EL1+5, EL1+10, TIME+12
SETAET^FHOMRO2 SET+4
SETSM^FHOMRO2 SETELSM+7
DISP^FHOMRR1 EN1+1
EXMSG^FHOMUTL EL1+10, TIME+4, TIME+12
GETOPT^FHOMUTL EN1
MSHOM^FHOMUTL UPD100+2
OKMSG^FHOMUTL TIME+14
ERR^FHOMWOR HL7SET+4, HL7SET+5, REJECT+2
EVSEND^FHWOR UPD100+7
GETOR^FHWOR HL7SET+4, HL7SET+5, REJECT+2
SEND^FHWOR SM+5
$$FMTHL7^XLFDT UPD100+3
$$PATCH^XPDUTL UPD100+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y,!
  • Line Location: EL1+3
Function Call: WRITE
  • Prompt: !!?3,"The selected order has been cancelled!",!
  • Line Location: EL1+4
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: ") "
  • Timeout: DTIME
  • Variable: FHS
  • Line Location: TIME+4
Function Call: WRITE
  • Prompt: !!,"Invalid time selection!"
  • Line Location: TIME+5
Function Call: WRITE
  • Prompt: !!,"Cannot order for a Date/Time before now!"
  • Line Location: TIME+7
Routine Call
  • DIE
  • Line Location:
    • SET+3
    • SETELSM+5
Routine Call
  • DIR
  • Line Location:
    • EL1+1
    • EL1+5
    • EL1+10
    • TIME+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(119.6 - [#119.6] ORD+2, HL7SET+9
^FH(119.73 - [#119.73] ORD+2, TIME+10, HL7SET+9
^FHPT - [#115] EL1+4, EL1+5, ORD, ORD+1, ORD+3, RM+1, RM+2, RM+3, RM+4, SM+1
, SETELSM+1, SETELSM+6

Label References

Name Line Occurrences
EL1 EL1+4
EN1 FHOMRE1+5
END FHOMRE1+5, TIME+14
REJECT SM+3, SM+4
SET TIME+14, RM+5
SETELSM SM+1
SM RM+1
TIME TIME+5, TIME+7
UPD100 TIME+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TIME+7, SET+2, SETELSM+3
>> %DT TIME+6*
A END!
>> DA SET*, SETELSM+2*
>> DA(1 SET*, SETELSM+2*
>> DFN UPD100+2
>> DIE SET*, SETELSM+2*
DIR EL1!, EL1+5!, EL1+9!, TIME+11!
DIR("A" EL1*, EL1+5*, EL1+9*, TIME+11*
DIR("B" EL1+5*, TIME+11*
DIR(0 EL1*, EL1+5*, EL1+9*, TIME+11*
>> DIRUT EL1+1, EL1+5, EL1+10, TIME+12
>> DR SET+3*, SETELSM+5*
DTIME TIME+4
>> ENDT HL7SET+6*, RM+2, SM+1
FH1 ORD+4*, TIME, END!, HL7SET+7*, HL7SET+8*, HL7SET+10
FH3 TIME*, END!
>> FHACT SET+4*, SETELSM+7*
>> FHAET SET+4*
>> FHBAG TIME+10*, TIME+13*, UPD100+4
FHC EL1+2*, END!
FHCLST END!
FHCNT TIME*, TIME+2*, TIME+3, TIME+5, END+1!
FHCOMM ORD+2*, TIME+10, END!, HL7SET+9*
FHCOMM1 ORD+2*, TIME+1, TIME+2, END+1!, HL7SET+9*, HL7SET+10
>> FHDFN EL1+4, EL1+5, ORD, ORD+1, ORD+3, SET, RM+1, RM+2, RM+3, RM+4
, SM+1, SETELSM+1, SETELSM+2, SETELSM+6
>> FHDIET ORD+1*
>> FHDTM TIME+6*, TIME+7
>> FHEL EL1+11*, ORD+4, HL7SET+3*, HL7SET+4, HL7SET+7, UPD100+4, UPD100+6
FHFIND EN1, END!
>> FHLIST( EL1+2, EL1+3
>> FHLOC ORD*, ORD+2, HL7SET+9
>> FHMEAL ORD+3*, ORD+4, HL7SET+2*, HL7SET+7, RM+3, SETELSM+1, UPD100+4
>> FHMSG1 FHOMRE1+5*, ORD*
>> FHOBAG UPD100+4*, UPD100+6
>> FHODT UPD100+3*, UPD100+5
>> FHOMELN UPD100+4*, UPD100+6
>> FHOPDT SETELSM+7*
>> FHOPTY SET+4*, SETELSM+7*
>> FHORN ORD*, SET+1*, SETELSM+4*
>> FHRFLG HL7SET+2*, RM+5*, SM+3
>> FHRMDT EL1+3*, TIME+6, HL7SET+6*, RM+1, RM+2*, UPD100+3
>> FHRMSEL EL1+2*, EL1+3
>> FHRNUM EL1+2*, EL1+4, EL1+5, ORD, ORD+1, ORD+3, SET, RM+2*, RM+3, RM+4
, RM+5, UPD100+3
>> FHRNUM1 RM+5*, RM+6
FHS TIME+4*, TIME+5, TIME+6, END+1!, UPD100+4
FHSEL END+1!
>> FHSFLG HL7SET+2*, SM+3, SETELSM+2*
>> FHSMDT SM+1*, SETELSM+1, SETELSM+2, SETELSM+4, SETELSM+6
>> FHSTAT SETELSM+7*
>> FHSVCP HL7SET+2, HL7SET+3
FHT TIME*, TIME+1, TIME+2, END+1!
FHTEXT END!
>> FHTIME TIME+6*, SET+4, HL7SET+10*
>> FHTM HL7SET+3*, HL7SET+5, HL7SET+8
>> FHTM( TIME+2*, TIME+3, TIME+6
>> FHTODAY SET+2*, SETELSM+3*, SETELSM+7, UPD100+5
>> FHZN SETELSM+6*
>> FILL HL7SET+2*, RM+6*, SM+4, SETELSM+4*, UPD100+3*, UPD100+5
>> J TIME+3*
MSG UPD100+2!
MSG(4 UPD100+5*
MSG(5 UPD100+6*
NUM EN1+1!, EL1, END!
>> STDT HL7SET+6, HL7SET+10, SM+1
>> STDT1 HL7SET+10*, RM+2
>> TXT HL7SET+4*, HL7SET+5*, REJECT+1*
U EL1+2, EL1+3, EL1+4, ORD, ORD+1, ORD+2, ORD+3, TIME+1, TIME+2, TIME+10
, HL7SET+9, HL7SET+10, RM+3, RM+4, SETELSM+1
>> X TIME+6*, HL7SET+10
>> X1 HL7SET+10*
>> X2 HL7SET+10*
>> Y EL1+2, EL1+3*, EL1+5, EL1+11, TIME+6, TIME+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All