Routine: FHASN71

Package	Total	Caller Graph
Dietetics	1	FHASN7

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Tabulate status
Q0	; Process Screening all patients
Q3	; Set Classification
Q2	; Unclassified
HDR
GADM	; Get next ADM for pat
CHK	; Check if inpat with ADM
P2
P0	; Print summary
STOR	; Store Nutrition Status by inverse date
P1
C1
NS	; Nutrition Status in inverse date order
CALC	; Calculate Average

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P0+5
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P0+7
Function Call: WRITE	Prompt: $S(X:$J(X,5,0),1:$J("",5)) Line Location: P0+7
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P0+8
Function Call: WRITE	Prompt: !?16,LN,!?16,"Grand Total",?48 Line Location: P0+9
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P0+9
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P0+9
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P0+10
Function Call: WRITE	Prompt: ! Line Location: P0+11
Function Call: WRITE	Prompt: !?16,$P(NAM,"~",1),?48 Line Location: P2+0
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P2+1
Function Call: WRITE	Prompt: $S(X:$J(X,5,0),1:$J("",5)) Line Location: P2+1
Function Call: WRITE	Prompt: $S(X:$J(X,7),1:$J("",7)) Line Location: P2+2
Function Call: WRITE	Prompt: !?16,DTP,!!?42,"N U T R I T I O N S T A T U S A V E R A G E",?109,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(132-$L(DTE)\2),DTE Line Location: HDR+1
Function Call: WRITE	Prompt: !!?16,$S(SRT="C":"CLINICIAN",1:"WARD"),?54,"I % II % III % IV % UNC % TOTAL",!?16,LN,! Line Location: HDR+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	Q1+3, GADM+2
^DGPM("ATID1"	GADM+2
^DIC(42 - [#42]	Q1+6
^FH(119.6 - [#119.6]	Q0+2, Q1+6, Q1+7, CHK+4, GADM+4, P1
^FHPT - [#115]	Q0+3, Q1+4, Q1+8, CHK+1, CHK+2, GADM+3, NS+2, NS+3
^TMP($J	Q1+9, Q1+10, NS+1!, NS+3, STOR+1, P0+3!, P0+4, P1+2
^VA(200 - [#200]	P1+1

Name	Field # of Occurrence
^(	Q0+2, Q1+10, GADM+2, NS+2, NS+3, P0+4
^(0	CHK+1, GADM+3

Name	Field # of Occurrence
>> %	P0+2
>> ADM	Q1+3, Q1+4, CHK+1, CHK+2, GADM+2, GADM+3
>> D1	CHK+3, Q2+1, Q3+1, P0+4, P0+5, P0+7, P0+8, P2+1, P2+2
>> DFN	Q1+1, GADM+1, GADM+2
>> DG1	Q1+2*, Q1+5
>> DGA1	Q1+2*, Q1+3
>> DGT	Q1+2*
>> DGXFR0	Q1+2*
>> DISC	Q1+3, CHK+2, GADM+2
>> DTE	P0+1*, HDR+1
>> DTP	P0+1, P0+2, HDR
>> DW1	Q1+6*
DWRD	Q0+1!
DWRD(	Q0+2*, Q1+5
>> EDT	Q1+2, NS+1, P0+1
>> FHDFN	Q0+3*, Q1+4, Q1+8, CHK+1, CHK+2, GADM+3, NS+2, NS+3
>> FHX1	NS+1, NS+2, NS+3
>> FHX2	NS+1*, NS+2
IOF	HDR
IOSL	P2
IOST	HDR
>> K	C1, C1+1, C1+3, C1+5, P0+7, P0+9, P2+1
>> L	CALC+1, CALC+2, C1+1, C1+2, C1+3, C1+4
>> LN	P0+2*, P0+9, HDR+2
>> LST	Q0+2*
>> MW1	Q1+5*, Q1+6
>> MWRD	Q1+6*
N	Q0+3!
N(	Q3+1*, CALC+2, C1+1
N(0	CALC+1
>> NAM	P0+4, P1, P1+1*, P1+2, P2
>> ND	Q0+3, Q3+1, C1+1
>> NOW	P0+2*
>> NX	Q1+10, GADM+2
>> PG	P0+2, HDR
S	Q0+1!
S(	C1+2, C1+3, C1+4*, P0+3, P1+2
S(0	P0+5
>> S1	CHK+3, CHK+5, Q2+1, Q3+1
>> SDT	NS+1, P0+1
>> SRT	Q3+1, P1, HDR+2
>> TOT	Q0+1, C1+5, C1+6*, P0+9, P0+10
>> W1	Q1+5, Q1+6, Q1+7, CHK+4, Q3+1, GADM+4, P0+3, P0+4, P1, P1+1 , P1+2
>> WD	Q1+7, CHK+4, Q2+1, GADM+4*
>> WRD	Q0+2*
>> X	Q0+2, Q3+1, NS+2, NS+3, STOR+1, STOR+2, C1+1, C1+2, C1+3, C1+4 , C1+5, C1+6, P0+7, P0+8, P0+9, P0+10, P2+1, P2+2
>> X4	Q1+10*
>> X5	Q1+10*, CHK+1, CHK+2, CHK+3, CHK+4, GADM+3
>> XX	Q1+3, GADM+2, GADM+4, NS+2, NS+3, STOR+1
>> ZZ	NS+1, STOR+1, STOR+2