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

Call Graph

Call Graph Total: 18

Package Total Call Graph
Dietetics 10 (DTP,TR)^FH  (CPRSF,PPRSF,SFEVNT)^FHNO7  ^FHOMDPA  ORD^FHOMRE1  (CHK1,CHK2,KILL,SETORX,SOSFFP)^FHOMRO2  ^FHOMRO3  DISP^FHOMRR1  (DIETLST,EXMSG,MSHOM,OKMSG,OUTLOC,PATNAME,RMBED,UPDMSG,UPXMSG)^FHOMUTL  
(CPRSO,PPRSO,SOEVNT)^FHSPED  EVSEND^FHWOR  
VA Fileman 6 DD^%DT  (C,DOW,H,NOW)^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Kernel 2 ($$FMTE,$$FMTHL7)^XLFDT  $$PATCH^XPDUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHOMRO  FHOMWOR  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT DATE+3, DATE+8, EDT1+2
C^%DTC FHOMRO1+6, DATE+5, DAYS+9, SETNODE+3, SETNODE+5
DOW^%DTC SETNODE+7
H^%DTC DAYS+9
NOW^%DTC FHOMRO1+6, DATE+5, EDIT+1
^DIC DIETORD+5, EDT1+11, OUTLOC+4
FILE^DICN SET+8
^DIE SET+11, SETEDT+2
^DIR ORDEDT+3, DATE+1, DATE+6, DAYS+3, DAYS+7, DAYS+10, EDT1
DTP^FH MSG1+2
TR^FH DAYCHK+1
CPRSF^FHNO7 SET+5
PPRSF^FHNO7 SET+14
SFEVNT^FHNO7 SETNODE+14
^FHOMDPA FHOMRO1+4
ORD^FHOMRE1 DAYS+20
CHK1^FHOMRO2 DAYS+12
CHK2^FHOMRO2 DAYS+16
KILL^FHOMRO2 END+1
SETORX^FHOMRO2 SETNODE+10
SOSFFP^FHOMRO2 SETNODE+12
^FHOMRO3 MULTDT+2
DISP^FHOMRR1 EDIT+2
DIETLST^FHOMUTL DIETORD+2, EDT1+8
EXMSG^FHOMUTL ORDER+1, DIETORD+1, DIETORD+6, DIETORD+7, DATE+2, DATE+7, DAYS+3, DAYS+7, DAYS+11
MSHOM^FHOMUTL UPD100+2, ED100+2
OKMSG^FHOMUTL DAYS+15
OUTLOC^FHOMUTL ORDER+1
PATNAME^FHOMUTL PREV+4
RMBED^FHOMUTL ORDER+2
UPDMSG^FHOMUTL SETEDT+2
UPXMSG^FHOMUTL EDT1+6, EDT1+7, EDT1+12, EDT1+13
CPRSO^FHSPED SET+4
PPRSO^FHSPED SET+13
SOEVNT^FHSPED SETNODE+13
EVSEND^FHWOR UPD100+16, ED100+10
$$FMTE^XLFDT PREV+4
$$FMTHL7^XLFDT UPD100+9, UPD100+10, ED100+4
$$PATCH^XPDUTL UPD100+1, ED100+1

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
Routine Call
  • DIE
  • Line Location:
    • SET+11
    • SETEDT+2
Routine Call
  • DIC
  • Line Location:
    • DIETORD+5
    • EDT1+11
    • OUTLOC+4
Routine Call
  • DIR
  • Line Location:
    • ORDEDT+3
    • DATE+1
    • DATE+6
    • DAYS+3
    • DAYS+7
    • DAYS+10
    • EDT1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(111 - [#111] DIETORD+3, EDT1+9, UPD100+8, UPD100+15, ED100+6
^FH(119.6 - [#119.6] DIETORD+1, DATE+4, EDT1+7, OUTLOC+6
^FHPT - [#115] FHOMRO1+5, DAYS+17, DAYS+18, DAYS+19, SETNODE+1, PREV+1, PREV+2, PREV+3, CHECK+1, CHECK+2
, CHECKSM+2, CHECKSM+3, CHECKSM+4, CHECKSM+5, EDT1+4, EDT1+5, EDT1+9, ED100+3, ED100+5

Label References

Name Line Occurrences
CHECK FHOMRO1+6
CHECKSM DAYS+9
DATE DIETORD+1
DAYCHK DAYS+4
DAYS DAYS+4
ED100 SETEDT+2
EDIT ORDEDT+6
EDT1 EDT1+4
END FHOMRO1+7, FHOMRO1+8
MSG1 DAYS+9
MULTDT DIETORD+1, EDT1+7
ORDEDT FHOMRO1+7
ORDER FHOMRO1+8, ORDEDT+5
OUTLOC EDT1+6
PREV SET+1
SET SETNODE+8
SETEDT EDT1+7
SETNODE DAYS+13
SHDAYS DAYS+1
UPD100 DAYS+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FHOMRO1+6, DATE+5, EDIT+1
>> %Y DAYS+9
>> ADM SET+12*
>> CCC SETNODE+3*, SETNODE+5*
>> CONT DAYS+11*
>> DA SET+10*, SET+12, EDT1+3*, EDT1+4, EDT1+5, EDT1+9, SETEDT+1
>> DA(1 SET+6*, SET+9*, EDT1+3*
>> DFN UPD100+2, ED100+2
DIC DIETORD+4!*, SET+6!*, EDT1+10!*, OUTLOC+2!*
DIC("A" DIETORD+4*, EDT1+10*, OUTLOC+3*
DIC("B" DIETORD+5*, EDT1+11*, OUTLOC+2*
DIC("S" DIETORD+5*, EDT1+11*, OUTLOC+4*
DIC(0 DIETORD+4*, SET+7*, EDT1+10*, OUTLOC+2*
DIE SET+9!*, EDT1+3*
DIR ORDEDT+2!, DATE+1!, DATE+6!, DAYS+2!, DAYS+5!, DAYS+10!, EDT1!
DIR("A" ORDEDT+3*, DATE+1*, DATE+6*, DAYS+2*, DAYS+5*, DAYS+10*, EDT1*
DIR("B" DAYS+10*
DIR(0 ORDEDT+2*, DATE+1*, DATE+6*, DAYS+2*, DAYS+6*, DAYS+10*, EDT1*
>> DIRUT ORDEDT+4, DATE+2, DATE+7, DAYS+3, DAYS+7, EDT1+1
DO SET+6!
>> DR SET+11*, SETEDT+1*
DT DAYS+9, DAYS+12, CHECKSM+2, MSG1+2
>> DTP MSG1+2*
>> DUOUT DIETORD+6, EDT1+12, OUTLOC+5
>> ENDL SETNODE+4*, SETNODE+6*
>> ENDT DATE+8*, DAYS+9, SETNODE+6, UPD100+9, UPD100+11
>> FH1 UPD100+4*
>> FHACT SETNODE+10*
>> FHADSFF SETNODE+1*
>> FHCUT DATE+5*, DATE+6
>> FHD0 MULTDT+3*
>> FHDAYS DAYS+4*, DAYS+9, SETNODE+8, DAYCHK+1*, DAYCHK+2, UPD100+4, UPD100+11
>> FHDEF DIETORD+2, DIETORD+3*, DIETORD+5, EDT1+8, EDT1+9*, EDT1+11
>> FHDEF2 EDT1+9*
>> FHDFN FHOMRO1+4, FHOMRO1+5, DAYS+17, DAYS+18, DAYS+19, SETNODE+1, SET+6, SET+9, PREV+1, PREV+2
, PREV+3, CHECK+1, CHECK+2, CHECKSM+2, CHECKSM+3, CHECKSM+4, CHECKSM+5, EDT1+3, EDT1+4, EDT1+5
, EDT1+9, ED100+3, ED100+5
>> FHDI( MULTDT+3
>> FHDI(0 MULTDT+2
>> FHDIET FHOMRO1+3*, DIETORD+8*, SETNODE+11, MULTDT+1*, EDT1+7*, EDT1+14*, UPD100+8, UPD100+13, UPD100+14, ED100+6
, ED100+9
>> FHDIETX( FHOMRO1+3*, MULTDT+1*, MULTDT+2*, MULTDT+3*, EDT1+14*, UPD100+15
>> FHDIETX(1 DIETORD+1, EDT1+7
>> FHDPATT SETNODE+11*, MULTDT+1*, MULTDT+3*
>> FHDTRLE EDIT+1*
>> FHDX FHOMRO1+3*, MULTDT+1*, MULTDT+2*, MULTDT+3*, EDT1+14*
>> FHEL DAYS+20*
>> FHEXST FHOMRO1+7, CHECK+1*, CHECK+2*
>> FHHL7 PREV+4
>> FHIFLG DAYS+1*, DAYS+4, DAYCHK+2, DAYCHK+3*, DAYCHK+4*, DAYCHK+6
>> FHLIST( EDT1+2, EDT1+3
>> FHLOC ORDER+1, DIETORD+1, DATE+4, EDT1+6, EDT1+7, OUTLOC+1*, OUTLOC+6*
>> FHLPT EDT1+5*, OUTLOC+2
>> FHLTFLG DAYS+16*, DAYS+17
>> FHMAX DATE+4*, DATE+5
>> FHMEAL DAYS+8*, DAYS+18, PREV+2, PREV+6, CHECKSM+3, MSG1+3, EDT1+5*, UPD100+7, UPD100+11, ED100+7
>> FHMPNUM SETNODE+1*, SETNODE+2*, UPD100+11
>> FHMSG1 FHOMRO1+4*, DAYS+15*
>> FHNOW FHOMRO1+6*, CHECK+1, CHECK+2
>> FHODAYS UPD100+3*, UPD100+5*, UPD100+6*, UPD100+12
>> FHODNM UPD100+8*, UPD100+13, UPD100+15*, ED100+6*, ED100+9
>> FHOENDT UPD100+9*, UPD100+12, ED100+3*, ED100+4*, ED100+8
>> FHOMEAL UPD100+7*, UPD100+13, UPD100+15, ED100+7*, ED100+9
>> FHOPTY SETNODE+10*
>> FHORN SET+10*, ED100+5*, ED100+8
>> FHOSTDT DATE+3*, UPD100+9*, UPD100+11, UPD100+12, ED100+3*, ED100+4*, ED100+8
>> FHOTDAY UPD100+10*, UPD100+12
>> FHOUT OUTLOC+1*
>> FHPREDT PREV+4*, PREV+7
>> FHPREVML SET+1*, PREV+1, PREV+8*
>> FHPTNM PREV+5
>> FHRMDT DAYS+20*, CHECK+2*
>> FHRNUM DAYS+17*, DAYS+18, DAYS+19, PREV+1*, PREV+2, PREV+3, CHECK+2*
>> FHSETFLG DAYS+14, SETNODE+2*, SET+2*
>> FHSMYES DAYS+9, CHECKSM+1*, CHECKSM+6*
>> FHTDTMP DAYS+12*, DAYS+16
>> FHTODAY DATE+5*, DAYS+12, DAYS+17, DAYS+20, UPD100+10
>> FHZ CHECKSM+2*, CHECKSM+3, CHECKSM+4, CHECKSM+5
>> FHZDA SETEDT+1*, ED100+3, ED100+5
>> FILL UPD100+11*, UPD100+12, ED100+5*, ED100+8
>> K DAYCHK+2*
>> M UPD100+4*
MSG UPD100+2!, ED100+2!
MSG( UPD100+15*
MSG(4 UPD100+12*, ED100+8*
MSG(5 UPD100+13*, ED100+9*
>> N UPD100+4*, UPD100+5*, UPD100+15*
N1 UPD100+3!
N1( UPD100+4*, UPD100+5
>> NUM EDT1
ODAYS SETNODE+3!
ODAYS( SETNODE+8*
>> ORDNUM EDT1+2*, EDT1+3
>> STDT DATE+3*, DATE+6, DAYS+9*, DAYS+12, SETNODE+3*, SETNODE+5*, SETNODE+6, SETNODE+7, SETNODE+8, SET+6
, PREV+1, PREV+4, EDIT+1*
>> STDTMP DAYS+12*, DAYS+16
U DIETORD+1, DIETORD+3, DATE+4, DAYS+18, DAYS+19, PREV+2, PREV+3, CHECK+2, CHECKSM+3, CHECKSM+4
, CHECKSM+5, EDT1+2, EDT1+3, EDT1+4, EDT1+5, EDT1+7, EDT1+9, UPD100+8, UPD100+15, ED100+3
, ED100+5, ED100+6
>> X FHOMRO1+6, DATE+5, DAYS+9*, SETNODE+3, SETNODE+5, SETNODE+7*, DAYCHK+1*
>> X1 FHOMRO1+6*, DATE+5*, DAYS+9*, SETNODE+3*, SETNODE+5*, DAYCHK+2*, DAYCHK+3, DAYCHK+5*
>> X2 FHOMRO1+6*, DATE+5*, DAYS+9*, SETNODE+3*, SETNODE+5*
>> Y ORDEDT+5, ORDEDT+6, DIETORD+7, DIETORD+8, DATE+3*, DATE+8*, DAYS+4, DAYS+8, DAYS+11, SETNODE+8
, SET+6*, SET+8, SET+10, EDT1+2*, EDT1+13, EDT1+14, OUTLOC+5, OUTLOC+6
>> Z DAYCHK+2*, DAYCHK+3, DAYCHK+4, DAYCHK+5
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