Routine: FHOMRR1

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	C^%DTC ^DIR
Dietetics	1	(ENDATE,GETOPT,PATNAME)^FHOMUTL

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

VA Fileman

C^%DTC ^DIR

Dietetics

(ENDATE,GETOPT,PATNAME)^FHOMUTL

Package	Total	Caller Graph
Dietetics	15	FHDCR11 FHDCR1D FHNO7 FHOMCBRP FHOMELT FHOMPP FHOMRA1 FHOMRC1 FHOMRE1 FHOMRL1 FHOMRO1 FHOMRP1 FHOMRR FHOMRT1 FHSP

Package

Total

Caller Graph

Dietetics

FHDCR11 FHDCR1D FHNO7 FHOMCBRP FHOMELT FHOMPP FHOMRA1 FHOMRC1
FHOMRE1 FHOMRL1 FHOMRO1 FHOMRP1 FHOMRR FHOMRT1 FHSP

Name	Comments	DBIA/ICR reference
DISP	;
END	;
HDR	;
DEV	;get device and set up queue
STRT
DIETPAT	;
PG	;

Name	Field # of Occurrence
C^%DTC	DISP+1
^%ZIS	DEV+1
^%ZISC	DEV+2, DEV+6
^%ZTLOAD	DEV+5
^DIR	PG+2
ENDATE^FHOMUTL	STRT+2
GETOPT^FHOMUTL	STRT
PATNAME^FHOMUTL	HDR+3
$$FMTE^XLFDT	DISP+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STRT+5
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"No Recurring Meals to Display" Line Location: DISP+2
Function Call: WRITE	Prompt: !,PAD,NUM Line Location: DISP+8
Function Call: WRITE	Prompt: ?5,$E(FHDTP,1,12) Line Location: DISP+10
Function Call: WRITE	Prompt: ?63,$E(FHDIETP,1,17) Line Location: DISP+20
Function Call: WRITE	Prompt: ?63,$E($P($G(^FH(111,FHDPTR,0)),U,1),1,17) Line Location: DISP+21
Function Call: WRITE	Prompt: !?7,"Comment: ",FHTCOMM Line Location: DISP+47
Function Call: WRITE	Prompt: !,?23 Line Location: DISP+61
Function Call: WRITE	Prompt: ", ",FHTZSON,FHTZSOCN," = ",FHTZSO8 Line Location: DISP+62
Function Call: WRITE	Prompt: " ",FHTZSON,FHTZSOCN," = ",FHTZSO8 Line Location: DISP+63
Function Call: WRITE	Prompt: $P(^(0),U,1) Line Location: DISP+73
Function Call: WRITE	Prompt: ! Line Location: DISP+89
Function Call: WRITE	Prompt: !?5,"R E C U R R I N G M E A L D I S P L A Y" Line Location: HDR+2
Function Call: WRITE	Prompt: !!?3,"OUTPATIENT NAME: " Line Location: HDR+3
Function Call: WRITE	Prompt: FHPTNM," ",FHSSN Line Location: HDR+3
Function Call: WRITE	Prompt: ?65,FHSEX," Age ",FHAGE Line Location: HDR+4
Function Call: WRITE	Prompt: !!," #",?5,"Date/Time",?19,"Location Room-Bed",?44,"Service Pnt" Line Location: HDR+5
Function Call: WRITE	Prompt: ?57,"Meal",?63,"Diet Ordered" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"===",?5,"============",?19,"=========== ===========" Line Location: HDR+7
Function Call: WRITE	Prompt: ?44,"===========",?57,"====",?63,"=================" Line Location: HDR+8
Routine Call	DIR Line Location: PG+2
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	DISP+12
^FH(111 - [#111]	DISP+21, DIETPAT+5, DIETPAT+6
^FH(118 - [#118]	DISP+79, DISP+83, DISP+87
^FH(118.1 - [#118.1]	DISP+73
^FH(118.2 - [#118.2]	DISP+38
^FH(118.3 - [#118.3]	DISP+58, DISP+59
^FH(119.6 - [#119.6]	DISP+13, DISP+20, DISP+21
^FH(119.72 - [#119.72]	DISP+17
^FHPT - [#115]	DISP+2, DISP+4, DISP+5, DISP+23, DISP+24, DISP+26, DISP+27, DISP+31, DISP+32, DISP+35 , DISP+36, DISP+48, DISP+52, DISP+53, DISP+65, DISP+66, DISP+68, DISP+70, DIETPAT+1, PG+1

Name	Line Occurrences
DEV	STRT+4
DIETPAT	DISP+20
DISP	DEV+2
END	DEV+2, DEV+7
HDR	DISP+3, PG+3
PG	DISP+22, DISP+45, DISP+49, DISP+72, DISP+81, DISP+85
STRT	STRT+4

Name	Field # of Occurrence
^(0	DISP+68, DISP+73

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*, DEV+6!
BID	END+1!
DFN	END+1!
DIR	PG+2!, END+1!
DIR(0	PG+2*
ENDT	STRT+2, STRT+3, DISP+3, DISP+4, END+1!
EX	DISP+3, DISP+4, DISP+22, DISP+35, DISP+45, DISP+48, DISP+49, DISP+65, DISP+72, DISP+81 , DISP+84, DISP+85, PG+2, END+1!
FHAGE	HDR+4, END+2!
FHBID	END+2!
FHDFN	DISP+2, DISP+4, DISP+5, DISP+23, DISP+24, DISP+26, DISP+27, DISP+31, DISP+32, DISP+35 , DISP+36, DISP+48, DISP+52, DISP+53, DISP+65, DISP+66, DISP+68, DISP+70, DIETPAT+1, PG+1 , END+1!, END+2!
FHDIET	END+1!
FHDIETP	DISP+20, DIETPAT+2, DIETPAT+7, DIETPAT+8*, END+1!
FHDIETS	DIETPAT+1*, DIETPAT+4, END+1!
FHDNM	DIETPAT+5, DIETPAT+6, DIETPAT+7, END+2!
FHDOB	END+2!
FHDOW	END+2!
FHDPTR	DISP+21, DIETPAT+4, DIETPAT+5, DIETPAT+6, END+2!
FHDTDF	END+2!
FHDTP	DISP+10*, END+1!
>> FHEL	DISP+28*, DISP+29, DISP+30
FHFIND	STRT, END+1!
FHI	DISP+79, DISP+83, DISP+87*, END+2!
FHLIST	DISP+3!, END+2!
FHLIST(	DISP+9*
FHLOC	DISP+14*, DISP+19, END+1!
FHLOCZN	DISP+13*, DISP+14, DISP+15, END+2!
FHLPT	DISP+13*, DISP+20, DISP+21, END+1!
FHNODE	DISP+5*, DISP+6, DISP+7, DISP+11, DISP+13, DISP+19, DISP+21, END+1!
>> FHNODE1	DISP+24*, DISP+25
>> FHNODE2	DISP+27*, DISP+28
>> FHNODE3	DISP+32*, DISP+33
FHPCZN	END+2!
FHPP	HDR+1, HDR+2!
FHPSDT	STRT!
FHPTNM	HDR+3, END+3!
FHRM	DISP+7*, DISP+9, DISP+10, END+1!
>> FHRMBD	DISP+11*, DISP+12
>> FHRMBNM	DISP+11, DISP+12, DISP+19
FHRMDT	DISP+4*, PG+1, END+3!
FHRNUM	DISP+4*, DISP+5, DISP+9, DISP+23, DISP+24, DISP+26, DISP+27, DISP+31, DISP+32, DISP+35 , DISP+36, DISP+48, DISP+52, DISP+53, DISP+65, DISP+66, DISP+68, DISP+70, DIETPAT+1, END+2!
FHSERV	DISP+14*, DISP+15, END+3!
FHSEX	HDR+4, END+3!
FHSF1	DISP+79, DISP+83, DISP+87*, END+3!
FHSF10	DISP+74*, DISP+77, DISP+79, END+3!
FHSF2	DISP+75*, DISP+80, DISP+83, END+3!
FHSF8	DISP+76*, DISP+84, DISP+87, END+3!
FHSFDAT	DISP+70*, DISP+71, DISP+73, DISP+74, DISP+75, DISP+76, END+3!
FHSRV	DISP+15*, DISP+16, DISP+17, END+3!
FHSRVPT	DISP+16, DISP+17, DISP+19, END+3!
FHSSN	HDR+3, END+3!
>> FHTCOMM	DISP+47*
>> FHTU	DISP+33*, DISP+46, DISP+47
>> FHTUPTR	DISP+37*, DISP+38
>> FHTUSTR	DISP+37*, DISP+39
>> FHTUZN	DISP+36, DISP+37, DISP+40, DISP+41, DISP+43, DISP+44
FHTZ	DISP+35, DISP+36, DISP+52, DISP+53, END+3!
FHTZCNT	DISP+51, DISP+61, DISP+62, DISP+64*, END+3!
FHTZSO	DISP+53*, DISP+54, DISP+55, DISP+56, END+3!
FHTZSO2	DISP+54*, DISP+58, DISP+59, END+4!
FHTZSO6	DISP+55*, DISP+57, END+4!
FHTZSO8	DISP+56*, DISP+62, DISP+63, END+4!
FHTZSOCN	DISP+57*, DISP+60, DISP+61, DISP+62, DISP+63, END+4!
FHTZSOL	DISP+51, DISP+60, DISP+61*, END+4!
FHTZSON	DISP+59*, DISP+60, DISP+61, DISP+62, DISP+63, END+4!
FHZ115	END+4!
FILE	END+4!
FLAG	END+4!
IEN	END+4!
IEN200	END+4!
IO	DEV+2
IO("Q"	DEV+2
IOF	HDR+1
IOP	DEV+1!, DEV+6!
IOSL	DISP+22, DISP+45, DISP+49, DISP+72, DISP+81, DISP+85
IOST	PG+2
J	END+4!
NUM	DISP+3, DISP+8, DISP+9, END+4!
PAD	DISP+8*, END+4!
PCE	DIETPAT+3*, DIETPAT+4, END+4!
PID	END+4!
POP	DEV+1, END+4!
>> QUA	DISP+41*, DISP+42
>> QUAFI	DISP+42*, DISP+43
>> QUASE	DISP+42*, DISP+43
SF	DISP+67, DISP+68, DISP+69, DISP+70, DISP+71, END+4!
STDT	STRT+1, DISP+1*, DISP+2, DISP+4, END+4!
U	DISP+4, DISP+6, DISP+7, DISP+11, DISP+12, DISP+13, DISP+14, DISP+15, DISP+17, DISP+19 , DISP+20, DISP+21, DISP+22, DISP+24, DISP+25, DISP+28, DISP+29, DISP+30, DISP+33, DISP+35 , DISP+37, DISP+38, DISP+40, DISP+41, DISP+43, DISP+44, DISP+45, DISP+46, DISP+47, DISP+48 , DISP+49, DISP+54, DISP+55, DISP+56, DISP+59, DISP+65, DISP+68, DISP+71, DISP+72, DISP+73 , DISP+74, DISP+75, DISP+76, DISP+79, DISP+81, DISP+83, DISP+84, DISP+85, DISP+87, DIETPAT+1 , DIETPAT+4, DIETPAT+5, DIETPAT+6, PG+2
>> X	DISP+1
>> X1	DISP+1*
>> X2	DISP+1*
>> Y	PG+2
>> ZTDESC	DEV+5*
>> ZTRTN	DEV+3*
>> ZTSAVE("FHDFN"	DEV+4*
>> ZTSAVE("STDT"	DEV+4*

Customize PDF page

Package: Dietetics

Routine: FHOMRR1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: