Routine: FHMASE1A

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

Package	Total	Caller Graph
Dietetics	1	FHMASE1

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Calculate the Encounters
P2	;load data for each clinician
Q2	;Get Communications Offices
P2A
STOT	;Print sub-totals for Communications Office and Clinician
TOT	;
DEL	;DELETE RECORDS FROM ^TMP
SETX1	;
PR	;
PP	;Print totals for Communications Offices
P4	;
R11
PX	;Accumulate amount for final total
P5	;
ALLTOT	;
C2	;
C1	;
C0	;
R4	;
P3	;
HEAD	;Print page headers
P1	;load data by paramters/totals for each Communication Office
P6	;
R1
R2	;Find Patient records within parameters
R3	;
UPD	;Update S1 record
Q	;
QUIT	;
D0	;Get Clinician Name

External References

Name	Field # of Occurrence
DTP^FH	R11+16, P1+1
PID^FHDPA	P5+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P1+4
Function Call: WRITE	Prompt: ! Line Location: P1+5
Function Call: WRITE	Prompt: ! Line Location: P1+5
Function Call: WRITE	Prompt: ! Line Location: P2A+0
Function Call: WRITE	Prompt: @IOF Line Location: P2A+0
Function Call: WRITE	Prompt: !,NAM Line Location: D0+2
Function Call: WRITE	Prompt: !?7,S1,?17,BID,?26,$P(Y,"^",1) Line Location: P5+3
Function Call: WRITE	Prompt: !?7,S1,?17,$P(DFN,"^",2) Line Location: P6+1
Function Call: WRITE	Prompt: !?5,X1,?47,$J($P(S1,"^",1),6,0) Line Location: PP+1
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+2
Function Call: WRITE	Prompt: $J($P(S1,"^",2),8,1) Line Location: PP+9
Function Call: WRITE	Prompt: !?3,X Line Location: PR+2
Function Call: WRITE	Prompt: !?5,"Subtotal",?47,$J(J(1),6) Line Location: STOT+1
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+1
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+2
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+3
Function Call: WRITE	Prompt: ! Line Location: STOT+3
Function Call: WRITE	Prompt: !?3,NAME,X,?47,$J(I(1),6) Line Location: TOT+2
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+2
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+3
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+4
Function Call: WRITE	Prompt: !,XS,?47,$J(II(1),6) Line Location: ALLTOT+2
Function Call: WRITE	Prompt: $S(K=3!(K=6):$S(II(K+2):$J(II(K+2),8,1),1:$J("",8)),1:$J($S(II(K+2):II(K+2),1:""),6)) Line Location: ALLTOT+2
Function Call: WRITE	Prompt: ?97,$S(II(9):$J(I(9),6),1:$J("",6)),$S(II(10):$J(II(10),8,1),1:$J("",8)) Line Location: ALLTOT+3
Function Call: WRITE	Prompt: ?113,$S(II(11):$J(II(11),6),1:$J("",6)) Line Location: ALLTOT+4
Function Call: WRITE	Prompt: $S(II(5):$J(II(5),8,1),1:$J("",6)) Line Location: ALLTOT+4
Function Call: WRITE	Prompt: !?30,"D I E T E T I C E N C O U N T E R ",?69,HEADER,?120,"Page ",PG Line Location: HEAD+1
Function Call: WRITE	Prompt: !?2,NAME,?(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
Function Call: WRITE	Prompt: !! Line Location: DEL+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.6	Q1+3
^DPT - [#2]	P5+2
^FH(115.6 - [#115.6]	R11+10
^FH(119.73 - [#119.73]	Q1+7, Q2+3, R2+1, R2+2, R11+8
^FHEN - [#115.7]	R11+2, R11+5, R11+16, R11+17, C0+2
^FHEN("AT"	R1, R11
^SC - [#44]	C1+1
^TMP($J	Q1+1!, R11+14, R11+15, R11+16, R3+1, R3+2, P1+4, P2+3, P4+1, P5+1 , DEL+1!
^VA(200 - [#200]	D0+2

Label References

Name	Line Occurrences
ALLTOT	Q2+2, Q2+3
C0	R11+9
C1	C0+2
C2	C1+1
D0	P1+1, P2+3
DEL	Q2+1, P2A, ALLTOT+5
HEAD	P1+1, P1+5, P2+1, PP+1, PR+2
P1	R1
P2	P2+4
P2A	P2+3
P3	P2+3
P4	P5+1
P5	P5+2, P5+3, P6+1
P6	P5+1
PP	P1+4, P2+3
PR	P1+4, P2+3
PX	P1+5
Q2	R2+1, R2+2, P1+5, P2A
R11	R11+21
R2	R4+1
R3	R11+16, R11+17, R4+1
SETX1	P2+3
STOT	P1+4, P1+5, P2+3, P2+4, P2A
TOT	P1+5, P2A
UPD	R11+14, R11+15

Naked Globals

Name	Field # of Occurrence
^(	R11+16*, C0+2, P4+1, P5+1
^(0	R3+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BID	P5+3
>> C(	UPD+2
>> C(1	C0+1, C0+3, C0+4, C1+2
>> C(2	C0+1, C0+3, C1+2
>> C(3	C0+1, C0+4, C1+2*
>> C(4	C0+1, C0+3, C0+4, C2+1
>> C(5	C0+1, C0+3, C2+1
>> C(6	C0+1, C0+4, C2+1*
>> C(7	C0+1, C0+3, C0+4
>> C(8	C0+1*, C0+3
>> CO	Q2+2
>> CONAME	Q2+2
>> CONUMX	Q2+2*
>> COUNT	Q1+6, Q2+3, R2+2, R11+4
>> COXX	Q2+2*, R2+1, R11+3
>> COXX1	Q2+1*
>> CT	P1+2, P1+4, P2+1, P2+3
>> D1	R11+6, R11+7, R11+15, R11+16, R3+1, R3+2, P2+3, D0+1*, D0+2, P4+1 , P5+1
>> D1CNTX	Q1+6, Q2+1
>> D1F	Q1+6*
>> D1X	Q2+1*
>> D1XX	Q1+4*
>> D2	R11+6, R11+10, R11+11, R11+13, R11+14, R11+15, R11+16, R3+1, R3+2, P2+3 , SETX1+1, P4+1, P5+1
>> D3	R11+9, R11+16, C0+4, C1+2, C2+1, UPD+1
>> D4	R11+6, R11+8, R11+14, R11+15, R11+16, R3+1, R3+2, P1+4, P2+3, P4+1 , P5+1
>> D5	R11+9*, R11+16, R4+1
>> D6	R11+9*, R11+13
>> D8	R11+12, R11+14, R11+15, R11+16, R3+1, R3+2, P1+2, P1+4, P2+1, P2+2* , P2+3*, P4+1, P5+1, PR+1
>> D9	R11+9*, C0+4, C1+2, C2+1
>> DD1	Q2+1, R11+15
>> DD2	Q2+1, R11+15, R11+16
>> DD3	Q2+1*, R11+16
>> DD4	Q2+1, R11+15, R11+16
>> DD8	R11+15*
>> DFN	R11+16, R11+17, R3+2, R4+1, C0+2, P5+1*, P5+2, P6+1
>> DIF	Q2+1*
>> DTE	P1+1*, HEAD+2
>> DTP	R11+16, P1+1, P3+1, P4+1, P5+1
>> E1	Q2+1, R11, R11+2, R11+5, R11+16, R11+17, C0+2
>> EDT	Q1+2, R2+4, P1+1
>> FHX1	R11+7, P1+1, P1+5, D0+1
>> FHX2	R11+15, P1+5, P2+3
>> HEADER	HEAD+1
>> I(	P1+2, P1+5, PP+2, PX+2, TOT+2, TOT+5
>> I(1	PP+1*, PX+1, TOT+2
>> I(10	PP+5*, PX+3, TOT+3
>> I(11	PP+8*, PX+3, TOT+4
>> I(2	PP+9*, TOT+4
>> I(9	PP+3*, PX+3, TOT+3, ALLTOT+3
>> II(	Q1+8, PX+2, ALLTOT+2
>> II(1	PX+1*, ALLTOT+2
>> II(10	PX+3*, ALLTOT+3
>> II(11	PX+3*, ALLTOT+4
>> II(5	ALLTOT+4
>> II(9	PX+3*, ALLTOT+3
IOF	P2A, HEAD+1
IOST	HEAD+1
>> J(	P1+2, P1+5, PP+2, STOT+1, STOT+4
>> J(1	PP+1*, STOT+1
>> J(10	PP+5*, STOT+2
>> J(11	PP+8*, STOT+3
>> J(2	PP+9*, STOT+3
>> J(9	PP+3*, STOT+2
>> JJ(	Q1+8*
>> K	Q1+8, UPD+2, P1+2, P1+4, P1+5, PP+2, PX+2, STOT+1, STOT+4, TOT+2 , TOT+5, ALLTOT+2
>> KK	P1+4*
>> L	Q1+6, R3+1, R3+2
>> L1	P2+3*
>> LL	Q1+6*
>> NAM	P1+1, P2+1, D0+2*
>> NAME	Q2+2, Q2+3, TOT+2, HEAD+2
>> NUMBER	Q1+6*
>> NX	Q2+1, P1+2, P1+4*
>> PG	P1+1, HEAD+1
>> REC	Q2+3*
>> S1	R11+14, R11+15, UPD+1, UPD+2, P1+4, P2+3, P4+1*, P5+3, P6+1, PP+1 , PP+2, PP+3, PP+5, PP+8, PP+9
>> SDT	Q1+2, R2+4, P1+1, P2A
>> SS1	Q2+1*
>> TIT	Q1+3*, R11+12, PR+1
>> TM	C0+4*
>> W1	R11+16, R3+1, R3+2, P4+1, P5+1*
>> WW1	Q2+1, R3+1
>> X	C0+2, C1+1, C1+2, C2+1, P1+5, P2A, PR+1, PR+2, TOT+2
>> X1	P1+4, P2A, SETX1+1*, PP+1
>> X3	Q1+6*
>> XS	ALLTOT+2*
>> XX1	Q1+5, R2+4, R1*, R11, R11+1
>> XX2	Q1+6, R11+2, R11+3, R11+4
>> XX3	Q1+6*
>> XXX	Q1+6, R11
>> XY	Q1+6, R11+3, R11+4*
>> Y	R11+5, R11+6, R11+9, R11+16, C0+1, P5+2, P5+3
>> YX1	Q1+2, Q1+5, R2+4
>> YX2	Q1+2, R2+4, R1, R11+1
>> YY1	Q1+6*
>> Z	C1+1, PP+2, PP+3, PP+5, PP+7, PP+8*
>> Z1	R11+11*, R11+12
>> ZCO	Q2+2, Q2+3, R2+1, R2+2, R11+3, R11+4
>> ZOUT	Q1+7*, Q2+3
>> ZZCOUNT	Q1+7*

Customize PDF page

Package: Dietetics

Routine: FHMASE1A

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: