Routine: FHORD6

Package	Total	Call Graph
Dietetics	7	(DTP,EN2)^FH ALG^FHCLN ^FHOMDPA ^FHOMPP MONUM^FHOMUTL ^FHORD61 CUR^FHORD7
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Dietetics	2	FHORD61 FHORD9

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	F0+1
^%ZIS	FHORD6+6
^%ZISC	FHORD6+8
DTP^FH	F1+3, F1+7, F2+2
EN2^FH	FHORD6+7
ALG^FHCLN	F0+6
^FHOMDPA	FHORD6+2
^FHOMPP	FHORD6+4, FHORD6+5
MONUM^FHOMUTL	FHORD6+3
^FHORD61	F3
CUR^FHORD7	F1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FHORD6+6
Function Call: WRITE	Prompt: !!,"Allergies: ",ALG Line Location: F0+6
Function Call: WRITE	Prompt: !!,"No Food Preferences on file",! Line Location: F0+8
Function Call: WRITE	Prompt: !!,"Food Preferences Currently on file",!!?23,"Likes",?57,"Dislikes",! Line Location: F0+9
Function Call: WRITE	Prompt: ! Line Location: F0+10
Function Call: WRITE	Prompt: $P(M,"~",2) Line Location: F0+10
Function Call: WRITE	Prompt: ! Line Location: F0+13
Function Call: WRITE	Prompt: !!,"Isolation/Precaution Type is ",$P($G(^FH(119.4,X,0)),"^",1) Line Location: A0+1
Function Call: WRITE	Prompt: !,"Service: ",$S(TYP="T":"Tray",TYP="D":"Dining Room",1:"Cafeteria") Line Location: F1+2
Function Call: WRITE	Prompt: !,"Expires: ",DTP Line Location: F1+3
Function Call: WRITE	Prompt: !!,"Tubefeed Ordered: ",DTP Line Location: F1+7
Function Call: WRITE	Prompt: !,"Total Quantity: ",TQU," ml",?42,"Total KCAL: ",CAL Line Location: F1+9
Function Call: WRITE	Prompt: !!,"Supplemental Feeding: ",$S('L:"No Order",1:$P(^FH(118.1,L,0),"^",1)) G:'NO Line Location: F2+1
Function Call: WRITE	Prompt: ?50,"Reviewed: ",DTP Line Location: F2+2
Function Call: WRITE	Prompt: !?5,$P("10am; 2pm; 8pm",";",K1),":",?13,N(K1) Line Location: F2+4
Function Call: WRITE	Prompt: !,"Product: ",$P($G(^FH(118.2,TUN,0)),"^",1),", ",$S(STR=4:"Full",STR=1:"1/4",STR=2:"1/2",1:"3/4")," Str., ",QUA Line Location: LP+2
Function Call: WRITE	Prompt: ?12 Line Location: W0+0
Function Call: WRITE	Prompt: ?46 Line Location: W0+1
Function Call: WRITE	Prompt: ! Line Location: W0+2
Function Call: WRITE	Prompt: X Line Location: W1+0
Function Call: WRITE	Prompt: $E(X,1,KK-2) Line Location: W1+2
Function Call: READ	Prompt: "Press return to continue " Formatting: !! Timeout: DTIME Variable: YN Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,"Enter a RETURN to Continue." Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,PID,?16,$P(Y(0),"^",1),?48,SEX," Age ",AGE,?(79-$L(RM)),RM Line Location: HDR+3
Routine Call	%ZIS Line Location: FHORD6+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	FHORD6+5, F0+3, F0+4
^FH(115.2 - [#115.2]	SP
^FH(118 - [#118]	F2+3
^FH(118.1 - [#118.1]	F2+1
^FH(118.2 - [#118.2]	LP+2
^FH(119.4 - [#119.4]	A0+1
^FH(119.6 - [#119.6]	F0+2
^FHPT - [#115]	F0+2, F0+7, A0, F1+1, F1+5, F1+8, F2

Label References

Name	Line Occurrences
A0	F0+8
F0	FHORD6+8
F1	A0
F2	F1+4
F3	F2+1
FHORD6	FHORD6+8
HDR	F0+5, A0+1, F1, F2, F2+4, W0+2
KIL	FHORD6+2, FHORD6+6, FHORD6+7, F0+14, A0+1, F1, F2, F2+4
LP	F1+8
PAUSE	PAUSE+1, HDR+1
SP	F0+7
SP1	SP+2
W0	F0+11, W0+2
W1	W0, W0+1

Naked Globals

Name	Field # of Occurrence
^(	F0+7, F1+8
^(1	F1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	F0+1, KIL+1!
%H	KIL+1!
%I	KIL+1!
%T	KIL+1!
%ZIS	FHORD6+6*!, FHORD6+8!, KIL+1!
%ZIS("B"	FHORD6+6*
A1	KIL+1!
ADM	F0+2, A0, F1+1, F1+5, F1+8, F2, KIL+1!
AGE	F0+4*, HDR+3, KIL+1!
ALG	F0+6, KIL+1!
ALL	KIL+1!
BAG	KIL+1!
BID	KIL+2!
C	KIL+1!
CAL	F1+6*, F1+9, KIL+1!
COM	F1+1, F1+6, F1+10, KIL+1!
CON	KIL+1!
CT	KIL+1!
D3	KIL+1!
DA	KIL+1!
DAS	SP*, SP1, SP1+1, KIL+1!
DFN	FHORD6+4, FHORD6+5, F0+3, F0+4, KIL+1!
DOB	F0+3*, F0+4, KIL+1!
DT	F0+1*
DTIME	PAUSE+1
DTP	F1+3, F1+6, F1+7, F2+2*, KIL+1!
>> FHALL	FHORD6+2*
FHDFN	FHORD6+2, FHORD6+4, FHORD6+5, F0+2, F0+7, A0, F1+1, F1+5, F1+8, F2 , KIL+1!
FHDU	KIL+1!
FHLD	KIL+1!
>> FHLST	FHORD6+7*
>> FHNUM	FHORD6+3
FHOR	KIL+1!
FHORD	F1+1, KIL+1!
>> FHPGM	FHORD6+7*
FHPV	KIL+1!
FHWF	KIL+1!
I	KIL+1!
IO	FHORD6+8
IO("Q"	FHORD6+7
IOF	HDR+2
IOP	FHORD6+6!, FHORD6+8!, KIL+1!
IOSL	A0+1, F1, F2, F2+4, W0+2
IOST	PAUSE+1, HDR+2
K	F0+7, F2+3, SP1+1, KIL+1!
K1	F2+3, F2+4, KIL+1!
K2	F2+3*, KIL+1!
KK	SP, SP+1, SP1, SP1+1, W1+1, W1+2, KIL+1!
L	F0+13!, F2+1, F2+3, KIL+1!
L1	SP, SP+1, SP1, SP1+1, KIL+1!
LST	KIL+1!
M	F0+7, F0+10, F0+11, F0+13!, SP+2, SP+3, SP+4
M1	F0+13!, SP, SP+2, SP+3, SP+4, SP1, SP1+1
M2	F0+13!
MEAL	KIL+1!
>> MM	F0+10*, F0+11
N	F0+7!, F0+13!, KIL+1!
N(	F0+10, F0+11, F2+3, F2+4, SP1, SP1+1*
N(""	F0+8
NO	F2*, F2+1, KIL+1!
NOW	F0+1*, F0+4, KIL+1!
>> P1	F0+7, F0+11, SP1, SP1+1*
>> P2	F0+11*
>> PG	F0+5, PAUSE+1, HDR+2
PID	HDR+3, KIL+2!
POP	FHORD6+6, KIL+2!
Q	F2+3, SP+1, KIL+2!
QT	F0+1, F0+5, F0+10, F0+11, F0+14, A0+1, F1, F2, F2+4, W0+2 , PAUSE+1*, HDR+1, KIL+2!
QTY	KIL+2!
QUA	LP, LP+1, LP+2, KIL+2!
>> QUAFI	LP+1*
>> QUASE	LP+1*
RM	F0+4*, HDR+3, KIL+2!
SEX	F0+3*, HDR+3, KIL+2!
STR	LP*, LP+2, KIL+2!
TF	F1+4*, F1+5, F1+8, KIL+2!
TF2	F1+8*, KIL+2!
TIM	KIL+2!
TQU	F1+6*, F1+9, KIL+2!
TUN	LP*, LP+2, KIL+2!
TYP	F1+2*, KIL+2!
U	F2+3
WARD	F0+2*, F0+4, KIL+2!
X	F0+4, F0+7, A0, A0+1, F1+2, SP, SP+1, W0, W0+1, W1 , W1+1, W1+2*, KIL+2!
X(0	A0*, F1+3, F1+4, F2
X1	F0+11, W0, W0+2, KIL+2!
X2	F0+11, W0+1, W0+2, KIL+2!
XY	F1+8*, LP, KIL+2!
Y	F1, F1+1, F1+5, F1+6, F2, F2+1, F2+2, F2+3, KIL+2!
Y(0	F0+3*, HDR+3
YN	PAUSE+1*, KIL+2!
Z	F2+3, SP, KIL+2!
Z1	SP+3, SP+4, KIL+2!

Customize PDF page

Package: Dietetics

Routine: FHORD6

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
F0	; Display Diet
F1
F2
F3
W1
SP1
SP
A0
PAUSE	; Pause For Scroll
LP
W0
KIL	; Final variable kill
HDR	; Print Header