Routine: FHASE1A

Package	Total	Call Graph
Dietetics	2	DTP^FH PID^FHDPA

Package	Total	Caller Graph
Dietetics	1	FHASE1

Entry Points

External References

Name	Field # of Occurrence
DTP^FH	R2+11, P1
PID^FHDPA	P5+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P1+2
Function Call: WRITE	Prompt: ! Line Location: P1+3
Function Call: WRITE	Prompt: ! Line Location: P1+3
Function Call: WRITE	Prompt: ! Line Location: D0+1
Function Call: WRITE	Prompt: !!,NX Line Location: P2+0
Function Call: WRITE	Prompt: ! Line Location: P2+1
Function Call: WRITE	Prompt: ! Line Location: P2+2
Function Call: WRITE	Prompt: !?7,S1,?17,BID,?26,$P(Y,"^",1) Line Location: P5+2
Function Call: WRITE	Prompt: !?7,S1,?17,$P(DFN,"^",2) Line Location: P6+0
Function Call: WRITE	Prompt: !?5,X1,?47,$J($P(S1,"^",1),6,0) Line Location: PP+0
Function Call: WRITE	Prompt: $S(K=3!(K=6):$S(Z:$J(Z,8,1),1:$J("",8)),1:$J($S(Z:Z,1:""),6)) Line Location: PP+1
Function Call: WRITE	Prompt: $J($P(S1,"^",2),8,1) Line Location: PP+6
Function Call: WRITE	Prompt: !?3,X Line Location: PR+1
Function Call: WRITE	Prompt: !?5,"Subtotal",?47,$J(J(1),6) Line Location: STOT+0
Function Call: WRITE	Prompt: $S(K=3!(K=6):$S(J(K+2):$J(J(K+2),8,1),1:$J("",8)),1:$J($S(J(K+2):J(K+2),1:""),6)) Line Location: STOT+0
Function Call: WRITE	Prompt: ?97,$S(J(9):$J(J(9),6),1:$J("",6)),$S(J(10):$J(J(10),8,1),1:$J("",8)) Line Location: STOT+1
Function Call: WRITE	Prompt: ?113,$S(J(11):$J(J(11),6),1:$J("",6)),$S(J(2):$J(J(2),8,1),1:$J("",8)) Line Location: STOT+2
Function Call: WRITE	Prompt: !?3,X,?47,$J(I(1),6) Line Location: TOT+0
Function Call: WRITE	Prompt: $S(K=3!(K=6):$S(I(K+2):$J(I(K+2),8,1),1:$J("",8)),1:$J($S(I(K+2):I(K+2),1:""),6)) Line Location: TOT+0
Function Call: WRITE	Prompt: ?97,$S(I(9):$J(I(9),6),1:$J("",6)),$S(I(10):$J(I(10),8,1),1:$J("",8)) Line Location: TOT+1
Function Call: WRITE	Prompt: ?113,$S(I(11):$J(I(11),6),1:$J("",6)),$S(I(2):$J(I(2),8,1),1:$J("",8)) Line Location: TOT+2
Function Call: WRITE	Prompt: !?30,"D I E T E T I C E N C O U N T E R S T A T I S T I C S",?120,"Page ",PG Line Location: HEAD+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !?30,"D I E T E T I C E N C O U N T E R S T A T I S T I C S",?120,"Page ",PG Line Location: HEAD+1
Function Call: WRITE	Prompt: !!?(114-$L(DTE)\2),DTE,!?47,"Number Inpatients Outpatients Others Total" Line Location: HEAD+2
Function Call: WRITE	Prompt: !?56,"Pat Col Units Pat Col Units",?98,"Persn Units Persn Units",! Line Location: HEAD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.6	Q1+2
^DPT - [#2]	P5+1
^FH(115.6 - [#115.6]	R2+4
^FHEN - [#115.7]	R2+1, R2+12, R2+13, CNT+1
^FHEN("AT"	R1, R2
^SC - [#44]	C1
^TMP($J	Q1+1!, R2+8, R2+9, R2+10, R2+11, R3, R3+1*, P1+2, D0, P2+1 , P4, P5
^VA(200 - [#200]	R2+9

Label References

Name	Line Occurrences
C1	CNT+1
C2	C1
CNT	R2+3
D0	P1
HEAD	P1, P1+3, P2, PP, PR+1
P1	R1
P2	D0
P3	P2+1
P4	P5
P5	P5+1, P5+2, P6
P6	P5
PP	P1+2, P2+1
PR	P1+2, P2+1
R1	R2
R2	R2+2, R2+4, R2+6, R2+9, R2+10, R2+14, R4
R3	R2+13, R4
R4	R2+12
STOT	P1+2, P1+3, P2+1, P2+2
TOT	P1+3, P2+2
UPD	R2+8, R2+10

Naked Globals

Name	Field # of Occurrence
^(	R2+11*, CNT+1, P2+1, P4, P5
^(0	R3*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BID	P5+2
>> C(	UPD+1
>> C(1	CNT, CNT+2, CNT+3, C1+1
>> C(2	CNT, CNT+2, C1+1
>> C(3	CNT, CNT+3, C1+1*
>> C(4	CNT, CNT+2, CNT+3, C2
>> C(5	CNT, CNT+2, C2
>> C(6	CNT, CNT+3, C2*
>> C(7	CNT, CNT+2, CNT+3
>> C(8	CNT*, CNT+2
>> CT	P1+1, P1+2, P2, P2+1
>> D1	R2+2, R2+9, R2+10, R2+11, R3, R3+1, D0, P2+1, P4, P5
>> D2	R2+2, R2+4, R2+5, R2+7, R2+8, R2+10, R2+11, R3, R3+1, P2+1* , P4, P5
>> D3	R2+3*, CNT+3, C1+1, C2, UPD
>> D5	R2+3*, R4
>> D6	R2+3*, R2+7
>> D8	R2+6, R2+8, R2+10, R2+11, R3, R3+1, P1+1, P1+2, P2, P2+1* , P4, P5, PR
>> D9	R2+3*, CNT+3, C1+1, C2
>> DFN	R2+13, R3+1, R4, CNT+1, P5, P5+1, P6
>> DTE	P1*, HEAD+2
>> DTP	R2+11, P1, P3, P4, P5
>> E1	R1+1, R2, R2+1, R2+12, R2+13, CNT+1
>> EDT	Q1+1, P1
>> FHX1	R2+2, R2+9, P1, P1+3
>> FHX2	R2+10, P2+1
>> I(	P1+1, P2, PP+1*, TOT
>> I(1	PP*, TOT
>> I(10	PP+3*, TOT+1
>> I(11	PP+5*, TOT+2
>> I(2	PP+6*, TOT+2
>> I(9	PP+2*, TOT+1
IOF	HEAD+1
IOSL	P2, PP, PR+1
>> J(	P1+1, P2, PP+1, STOT, STOT+3
>> J(1	PP*, STOT
>> J(10	PP+3*, STOT+1
>> J(11	PP+5*, STOT+2
>> J(2	PP+6*, STOT+2
>> J(9	PP+2*, STOT+1
>> K	UPD+1, P1+1, P1+2, D0, P2, PP+1, STOT, STOT+3, TOT*
>> KK	P1+2*
>> L	R3, R3+1, P2+1
>> L1	P2+1*
>> NAM	R2+9*
>> NX	P1+2, D0, P2
>> PG	P1, HEAD+1
>> S1	R2+8, R2+10, UPD, UPD+1, P1+2, P2+1, P4*, P5+2, P6, PP , PP+1, PP+2, PP+3, PP+5, PP+6
>> SDT	Q1+1, P1
>> TIT	Q1+2*, R2+6, PR
>> TM	CNT+3*
>> W1	R2+11, R3, R3+1, P4, P5*
>> X	CNT+1, C1, C1+1, C2, P1+3, P2+2, PR, PR+1, TOT
>> X1	Q1+1, R1, R2, P1+2, P2+1, PP
>> X2	Q1+1*, R1
>> Y	R2+1, R2+2, R2+3, R2+11, CNT, P5+1, P5+2
>> Z	C1, PP+1, PP+2, PP+3, PP+4, PP+5*
>> Z1	R2+5*, R2+6

Customize PDF page

Package: Dietetics

Routine: FHASE1A

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1	; Calculate the Encounters
R4
CNT
P1
P6
R1
R2
R3
P4
UPD
P5
P2
PP
STOT
HEAD	;W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !?30,"D I E T E T I C E N C O U N T E R S T A T I S T I C S",?120,"Page ",PG
P3
TOT
C2
C1
D0
PR