Routine: FHORD13

Package	Total	Call Graph
Dietetics	7	(DTP,EN2,TR)^FH ALG^FHCLN ^FHDEV PID^FHDPA (DPLL,LAB)^FHLABEL (,CHECK)^FHOMDPA PATNAME^FHOMUTL
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA Fileman	3	NOW^%DTC ^DIC ^DIR

Package	Total	Caller Graph
Dietetics	1	FHORD14

Entry Points

Name	Comments	DBIA/ICR reference
F0
Q1	; Reprint the Diet Labels
P0
P1	;
L1
F1
KIL
LL
W0
Q3
OUTW	;set all outpt data for printing
LST	;
Q2
PPT
PROUT	;print outptlabels
D2
OUTP	;process outpatient dat

External References

Name	Field # of Occurrence
NOW^%DTC	Q1+1
^%ZIS	P1+3
^%ZISC	P1+5
^DIC	W0, D2
^DIR	P1+1
DTP^FH	Q1+3
EN2^FH	P1+4
TR^FH	F0
ALG^FHCLN	L1
^FHDEV	Q1+3
PID^FHDPA	LST+4
DPLL^FHLABEL	Q1+10, Q2+4
LAB^FHLABEL	LL
^FHOMDPA	P0
CHECK^FHOMDPA	Q1+6
PATNAME^FHOMUTL	F1+4, Q2, OUTW+1
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?21,"R E P R I N T D I E T L A B E L S" Line Location: FHORD13+2
Function Call: READ	Timeout: DTIME Line Location: F0+0
Function Call: WRITE	Prompt: *7,!!," Answer with C, L, P or A" Line Location: F0+1
Function Call: WRITE	Prompt: ! Line Location: W0+0
Function Call: WRITE	Prompt: ! Line Location: D2+0
Function Call: WRITE	Prompt: ! Line Location: P1+1
Function Call: WRITE	Prompt: ! Line Location: P1+3
Function Call: WRITE	Prompt: ! Line Location: Q1+11
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: WRITE	Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: L1+2
Function Call: WRITE	Prompt: !,$S(ALG="":"",1:"*ALG"),!,Y,!! Line Location: L1+2
Function Call: WRITE	Prompt: !!,$P(Y,",",1,L) Line Location: L1+3
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: L1+3
Function Call: WRITE	Prompt: !,$E($P(Y,",",L+1,5),2,99),! Line Location: L1+3
Function Call: WRITE	Prompt: @FHIO("EOF") Line Location: L1+4
Function Call: WRITE	Prompt: ?(S2-20),DTP,!! Condition for execution: LAB=2 Line Location: L1+4
Routine Call	DIC Line Location: W0 D2
Routine Call	DIR Line Location: P1+1
Routine Call	%ZIS Line Location: P1+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.02	LST+8
^DG(405.4 - [#405.4]	OUTW+28
^DPT - [#2]	P0+4, F1+6, F1+8, LST+3, LST+4
^DPT("CN"	P0+5
^FH(111 - [#111]	LST+9, OUTW+11, OUTW+12, OUTW+15, OUTW+18, OUTW+21, OUTW+24
^FH(119.4 - [#119.4]	LST+10
^FH(119.6 - [#119.6]	Q1+5, F1+8, F1+9, LST+3, OUTP+22, OUTP+39, OUTP+56, OUTW+3, OUTW+4, OUTW+6 , OUTW+7, OUTW+8
^FH(119.72 - [#119.72]	OUTW+9, OUTW+10
^FH(119.9 - [#119.9]	Q1+1
^FHPT - [#115]	LST+1, LST+6, OUTP+9, OUTP+24, OUTP+32, OUTP+41, OUTP+48, OUTP+50, OUTP+58
^FHPT("AW"	F1+3, F1+5
^FHPT("GM"	OUTP+29, OUTP+30
^FHPT("RM"	OUTP+6, OUTP+7, OUTP+8
^FHPT("SM"	OUTP+45, OUTP+46
^TMP($J	Q1+4!, Q1+6, F1+11, OUTW+30, PROUT+2, PROUT+3, PROUT+4, KIL!

Label References

Name	Line Occurrences
D2	F0+2, D2
F0	F0+1
F1	Q1+5
KIL	F0, W0, D2, PPT+1, P1+3, P1+4, P1+5, Q1+10, Q1+12, Q2+4 , Q3+1
L1	LST+7, LST+8, PROUT+11
LL	L1+1
LST	Q1+6, Q2
OUTP	Q1+8, Q2+2
OUTW	OUTP+26, OUTP+43, OUTP+60
P0	F0+2, PPT
P1	F0+2, W0, D2, P0
PPT	P0+3
PROUT	Q1+9, Q2+3
Q1	P1+5
Q2	Q1+3
W0	W0

Naked Globals

Name	Field # of Occurrence
^(	Q1+5, Q1+6
^(0	LST+1, LST+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+1, LST+8*
%ZIS	P1+3!*, P1+5!
%ZIS("A"	P1+3*
>> A1	LST+9*
>> ADM	P0+2, P0+5, PPT, Q1+6, F1+5, F1+11, Q2*, LST+1, LST+6
>> ALG	L1*, L1+2
>> ALL	F0+2*
>> BID	L1+2, PROUT+7*
>> COUNT	Q1+2*
>> D3	LST+9*
>> DFN	P0+3, P0+4, P0+5, Q1+6*, F1+4, F1+6, F1+8, F1+11, LST+3, LST+4
DIC	W0!, D2!
DIC("A"	W0, D2
DIC(0	W0, D2
DIR	P1+1!
DIR("A"	P1+1*
DIR("B"	P1+1*
DIR(0	P1+1*
>> DIRUT	P1+2
DT	OUTP+4
DTIME	F0
>> DTOUT	W0, D2
>> DTP	Q1+3*, L1+4
>> FHALL	P0*
>> FHBID	OUTW+30
>> FHD1	OUTP+4*, OUTP+6, OUTP+29, OUTP+45
>> FHD2	OUTP+4*, OUTP+6, OUTP+29, OUTP+45
>> FHDFN	P0, P0+1, P0+3, PPT, Q1+6, F1+3, F1+5, Q2, LST+1, LST+6 , OUTP+7, OUTP+8, OUTP+9, OUTP+18, OUTP+20, OUTP+24, OUTP+30, OUTP+31, OUTP+32, OUTP+37 , OUTP+41, OUTP+46, OUTP+47, OUTP+48, OUTP+50, OUTP+54, OUTP+58, OUTW+30, PROUT+3, PROUT+4
>> FHDFN1	OUTP+24, OUTP+41, OUTP+50, OUTP+58
>> FHDFNSAV(	Q2*, OUTP+18, OUTP+20, OUTP+31, OUTP+37, OUTP+47, OUTP+54
>> FHDIET	OUTP+11, OUTP+35, OUTP+51, OUTW+11, OUTW+13, OUTW+14, OUTW+16, OUTW+17, OUTW+19, OUTW+20 , OUTW+22, OUTW+23, OUTW+25, OUTW+26, OUTW+30, PROUT+8*
FHDIET1	OUTP+13, OUTP+28!, OUTW+12, OUTW+13, OUTW+14
FHDIET2	OUTP+14, OUTP+28!, OUTW+15, OUTW+16, OUTW+17
FHDIET3	OUTP+15, OUTP+28!, OUTW+18, OUTW+19, OUTW+20
FHDIET4	OUTP+16, OUTP+28!, OUTW+21, OUTW+22, OUTW+23
FHDIET5	OUTP+17, OUTP+28!, OUTW+24, OUTW+25, OUTW+26
>> FHDU	LST+8*
>> FHFHPSAV	OUTP+1, OUTP+3, OUTP+23, OUTP+40, OUTP+57
>> FHIO("EOF"	L1+2, L1+4
>> FHIO("EON"	L1+2
>> FHK1	OUTP+6*, OUTP+7, OUTP+8
>> FHKD	OUTP+8, OUTP+9, OUTP+29, OUTP+30, OUTP+32, OUTP+45*, OUTP+46, OUTP+48
>> FHKDAT	OUTP+9, OUTP+10, OUTP+11, OUTP+13, OUTP+14, OUTP+15, OUTP+16, OUTP+17, OUTP+25, OUTP+32 , OUTP+33, OUTP+34, OUTP+35, OUTP+42, OUTP+48*, OUTP+49, OUTP+51, OUTP+59
>> FHLD	LST+7*, LST+8
>> FHLOC	OUTP+21, OUTP+22, OUTP+23, OUTP+38, OUTP+39, OUTP+40, OUTP+55, OUTP+56, OUTP+57
>> FHLST	P1+4*
>> FHMEAL	OUTP+11, OUTP+35, OUTP+51*
>> FHOR	LST+7*, LST+9
>> FHORD	LST+2*, LST+6
>> FHOU	PROUT+4*, PROUT+5, PROUT+6, PROUT+7, PROUT+8, PROUT+9, PROUT+10
>> FHPGM	P1+4*
>> FHPR	F0+2*, F1, F1+1, OUTP+2, OUTP+3, OUTP+18, OUTP+31, OUTP+47
>> FHPTNM	OUTW+30
>> FHRGS	OUTP+21*
>> FHRM	OUTW+27, OUTW+28, OUTW+29*, OUTW+30
>> FHRMB	OUTP+25, OUTP+42, OUTP+59*, OUTW+28
>> FHSTAT	OUTP+11, OUTP+12, OUTP+51, OUTP+52
>> FHTC	OUTW+2, OUTW+9, OUTW+10*, OUTW+30
>> FHTC5	OUTW+7*, OUTW+9
>> FHTC6	OUTW+8*, OUTW+10
>> FHW1	OUTP+10, OUTP+19, OUTP+22, OUTP+34, OUTP+36, OUTP+39, OUTP+49*, OUTP+53, OUTP+56, OUTW+3 , OUTW+4, OUTW+6, OUTW+7, OUTW+8
>> FHW1N	OUTW+6*, OUTW+30
>> FHW1SAV	OUTP+1, OUTP+2, OUTP+19, OUTP+36, OUTP+53
>> FHX1	F0+2, W0, D2, P0, PPT, PPT+1, Q1+3, Q1+4, Q2, OUTP+2 , OUTP+3
>> FHX2	F0+2, PPT, Q2
>> FHZ115	Q1+6*
IO	P1+5
IO("Q"	P1+4
IOF	FHORD13+2
IOP	P1+3!, P1+5!
>> IOS	Q1+1
>> IS	LST+10*
>> K1	Q1+5*, F1+1, F1+3, F1+5, F1+8, F1+9
>> K7	Q1+11, Q2, Q3*
>> KK	F1, F1+1
>> L	L1+3*
>> LAB	Q1+1*, Q1+10, Q1+11, Q2+4, Q3, L1+1, L1+2, L1+3, L1+4
LABSTART	P1+1!, P1+2*
>> LINE	Q1+2*
>> N1	LST+5, L1+2, PROUT+5
>> NOW	Q1+1*, Q1+3
>> P0	F1+2, F1+11, OUTW+4, OUTW+5*, OUTW+30
>> POP	P1+3
>> R0	F1+9, F1+10, F1+11
>> R1	LST+3, L1+2, OUTP+1, PROUT+10*
>> RE	F1+8*, F1+9
>> RI	F1+8*
>> RM	Q1+6, F1+6, F1+7, F1+11, PROUT+1, PROUT+2*, PROUT+3, PROUT+4
>> S2	Q1+1*, L1+2, L1+3, L1+4
U	OUTP+10, OUTP+11, OUTP+13, OUTP+14, OUTP+15, OUTP+16, OUTP+17, OUTP+22, OUTP+24, OUTP+25 , OUTP+33, OUTP+34, OUTP+35, OUTP+39, OUTP+41, OUTP+42, OUTP+49, OUTP+50, OUTP+51, OUTP+56 , OUTP+58, OUTP+59, OUTW+4, OUTW+6, OUTW+7, OUTW+8, OUTW+9, OUTW+10, OUTW+11, OUTW+12 , OUTW+15, OUTW+18, OUTW+21, OUTW+24, OUTW+28, PROUT+5, PROUT+6, PROUT+7, PROUT+8, PROUT+9 , PROUT+10
>> W1	LST+3, LST+5, L1+2, OUTP+10, OUTP+34, OUTP+49, PROUT+6
>> WARD	P0+4*, P0+5
>> WRD	Q1+4*, F1, F1+1
>> X	F0, F0+1, F0+2, W0, D2, Q1+5, F1, F1+1, F1+2, LST+6* , LST+7, LST+10
>> X0	LST+1*, LST+2, LST+3, LST+10
>> X1	LST+2, LST+7, LST+10, L1+2, PROUT+1, PROUT+9*
>> Y	W0, D2, P1+2, LST+7, LST+8, LST+9, L1+2, L1+3, PROUT+8
>> Y0	LST+4*, LST+5

Customize PDF page

Package: Dietetics

Routine: FHORD13

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: