Routine: FHORD93

Information

FHORD93 ; HISC/NCA/RVD - Diet Census Percentage (Cont.) ;1/23/98 16:09

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Dietetics	4	DTP^FH GETGM^FHOMRBL1 GETSM^FHOMRBLD (GUEST,SPEC,WRD)^FHORD9
VA FileMan	2	^%DT (DOW,NOW)^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Dietetics	1	FHORD92

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Calculate Census
Q2
CEN	;census
OUT	;process outpatient data
REC
COMB	;
D0	;
FOR	;FORCAST
F1
PER
GET
LST
PRO
P1

External References

Name	Field # of Occurrence
^%DT	CEN+1
DOW^%DTC	Q1+1, LST+7
NOW^%DTC	Q1+1
DTP^FH	LST+4, LST+6, LST+8
GETGM^FHOMRBL1	REC+30, GET+28
GETSM^FHOMRBLD	REC+28, GET+26
GUEST^FHORD9	REC+31, GET+29
SPEC^FHORD9	REC+29, GET+27
WRD^FHORD9	CEN+6, CEN+7, GET

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: E C A S T E D" Variable: 1 Timeout: "A Line Location: LST+3
Function Call: WRITE	Prompt: !,DTP,?(L1-$L(Z)\2),Z,?(L1-7),"Page ",PG,!?(L1-21\2),"P E R C E N T A G E S" Line Location: LST+4
Function Call: WRITE	Prompt: !,$G(FHSITENM) Line Location: LST+5
Function Call: WRITE	Prompt: !!?(L1-$L(Z)\2),Z,!!?(L1-$L(X)\2),X Line Location: LST+8
Function Call: WRITE	Prompt: !!?(L1-31\2),"P R O D U C T I O N D I E T S",!!?29 Line Location: LST+9
Function Call: WRITE	Prompt: $P(S(X,K),"^",1)_" %" Line Location: LST+10
Function Call: WRITE	Prompt: ! Line Location: LST+11
Function Call: WRITE	Prompt: !?3,"N P O",?31 Line Location: LST+13
Function Call: WRITE	Prompt: !?3,"P A S S",?31 Line Location: LST+14
Function Call: WRITE	Prompt: !?3,"TF Only",?31 Line Location: LST+15
Function Call: WRITE	Prompt: !?3,"No Order",?31 Line Location: LST+16
Function Call: WRITE	Prompt: ! Line Location: LST+17
Function Call: WRITE	Prompt: !,$P($G(^FH(116.2,K,0)),"^",1),?31 Line Location: PRO+0
Function Call: WRITE	Prompt: $J(Z,8,1)," " Line Location: P1+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(111 - [#111]	REC+9, GET+9
^FH(116.2 - [#116.2]	LST+12, PRO
^FH(119.6 - [#119.6]	CEN+2, REC+7, REC+11, REC+12, GET, GET+8, GET+10, GET+11
^FH(119.71 - [#119.71]	LST+6
^FH(119.72 - [#119.72]	REC+13, REC+15, COMB+7, D0+2, D0+3, FOR+3, F1, PER, GET+12, GET+13 , LST+1
^FH(119.73 - [#119.73]	GET+24
^FH(119.9 - [#119.9]	REC+16, GET+14
^FHPT - [#115]	REC+3, REC+21, REC+22, GET+5, GET+19, GET+20
^FHPT("RM"	REC+1, REC+2, GET+3, GET+4
^TMP($J	COMB+8!, COMB+9, COMB+10, FOR+1!, FOR+2, FOR+3, FOR+4, F1, PER, GET+35!* , GET+37, GET+38, LST+1, LST+12, P1

Label References

Name	Line Occurrences
CEN	Q2
D0	COMB+7
F1	FOR+3
FOR	Q2
GET	Q1+2
LST	Q2
P1	LST+13, LST+14, LST+15, LST+16
PER	FOR+2
PRO	LST+12
Q2	Q1+3, Q1+4

Naked Globals

Name	Field # of Occurrence
^(	CEN+2, COMB+7, D0+3, F1, PER, GET

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	Q1+1
>> %DT	CEN+1*
D	CEN+2!, COMB+1!, COMB+11!, FOR+2!, FOR+5!, GET+31!, GET+39!
D(	COMB+1, COMB+2, COMB+4, COMB+6, COMB+8, COMB+9, FOR+4, F1, PER, GET+31 , GET+32, GET+34, GET+35, GET+36, GET+37
>> D1	Q1+1, CEN+1, REC, REC+27, GET, GET+2, GET+25, LST+6, LST+7, LST+8
>> DOW	Q1+1, D0+3, F1, PER, LST+7
>> DTP	LST+4, LST+6, LST+7, LST+8*
>> FHAN	Q1+2, LST+7
>> FHDA	Q2
>> FHDIET	REC+16, GET+14
>> FHDT	REC+27, GET+25
>> FHDT299	REC*, REC+1
>> FHIDFN	REC+1, REC+2, REC+3, REC+21, REC+22, GET+3, GET+4, GET+5, GET+19, GET+20
>> FHIEN	REC+2, REC+3, REC+21, REC+22, GET+4, GET+5, GET+19, GET+20
>> FHIR	REC+1, REC+2, GET+3, GET+4
>> FHLOC	REC+6, REC+7, REC+10, REC+11, REC+12, GET+6, GET+8, GET+10, GET+11
>> FHP	REC+15, COMB+7, GET+13, LST+6
>> FHP1	Q2, LST+3, LST+13, LST+14, LST+15, LST+16
>> FHPDIET	REC+9, REC+17, REC+18, GET+9, GET+15, GET+16
>> FHPLNM	GET+24*
>> FHRDIET	REC+8, REC+9, GET+9
>> FHREDAT	REC+3, REC+4, REC+5, REC+6, REC+8, GET+5, GET+6, GET+7, GET+9
>> FHSER	CEN+4, CEN+5, REC+11, REC+12, REC+13, REC+14, REC+15, REC+17, REC+18, REC+19 , REC+23, REC+24, REC+25, GET+10, GET+11, GET+12, GET+13, GET+15, GET+16, GET+17 , GET+21, GET+22, GET+23
>> FHSITE	CEN+3, CEN+6, CEN+7, REC+7, REC+28, REC+30, GET, GET+8, GET+24, GET+26 , GET+28
>> FHSITENM	LST+5
>> FHTIM	REC, REC+1, REC+28, REC+30, GET+2, GET+3, GET+26, GET+28
>> FHX1	Q2*
IOF	LST+2
IOST	LST+2
>> K	PER, LST+10, LST+12, LST+13, LST+14, LST+15, LST+16*, PRO, P1
>> K1	P1*
>> K3	Q2*, D0+3, F1, LST+7
>> L1	LST, LST+1, LST+2*, LST+4, LST+8, LST+9
>> LL	COMB+3, COMB+4, COMB+5, COMB+8, COMB+10, D0+3, FOR+4, F1, GET+35, GET+38
>> LP	COMB+1, COMB+2, COMB+6, GET+31, GET+32, GET+33, GET+34, GET+36
>> M2(	FOR+1, FOR+2
>> MEAL	Q1+3, Q1+4*, Q2, CEN+1, REC+4
>> N1	LST+1*
>> N2	LST+1*
>> N3	LST+1*
>> NOW	Q1+1*, LST+4
NP	COMB+1!, GET+31!
NP(	COMB+1, COMB+2, COMB+3, COMB+4, COMB+6, GET+31, GET+32, GET+33, GET+34, GET+36 , LST+13!, LST+14!, LST+15!, LST+16!, P1
P	CEN+2!, COMB+11!, GET+39!
P(	REC+17, REC+18, REC+19, REC+23, REC+24, REC+25, COMB+1, COMB+2!, COMB+3!, COMB+4! , COMB+5!, COMB+8, COMB+10, D0+3, GET+15, GET+16, GET+17, GET+21, GET+22, GET+23 , GET+31, GET+32!, GET+33!, GET+34!, GET+35!*, GET+38
>> P0	COMB+5, COMB+7, COMB+8, COMB+9, D0+1, D0+2, D0+3, FOR+1, FOR+2, FOR+3* , F1, PER, GET+35, GET+37, LST+1*
>> P1	LST+12*
>> PG	Q1+1, LST+2, LST+4
S	LST!
S(	LST+1*, LST+10, P1
>> S0	FOR+2, PER*
>> S1	FOR+2*, PER
>> SP(	CEN+4, CEN+5, REC+11, REC+12, REC+13*, D0+1
T	COMB+1!
T(	COMB+5*, COMB+6
>> TIM	CEN+1, GET
U	CEN+3, CEN+4, CEN+5, CEN+7, REC+4, REC+5, REC+6, REC+7, REC+8, REC+9 , REC+11, REC+12, REC+15, REC+16, REC+22, GET, GET+6, GET+7, GET+8, GET+9 , GET+10, GET+11, GET+13, GET+14, GET+20, GET+24
>> WRD	CEN+2, GET
>> X	Q1+1, CEN+1, CEN+2, CEN+3, CEN+4, CEN+5, CEN+7, GET, LST+1, LST+7 , LST+8, LST+10, P1
>> Y	Q1+1, CEN+1, D0+3, F1, LST+7
>> Z	PER, LST+3, LST+4, LST+6, LST+8, P1

Customize PDF page

Package: Dietetics