Routine: FHNO31

Package	Total	Call Graph
Dietetics	4	DTP^FH ALG^FHCLN PID^FHDPA PATNAME^FHOMUTL
VA Fileman	1	(C,NOW)^%DTC

Package	Total	Caller Graph
Dietetics	1	FHNO3

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	FHNO31+3
NOW^%DTC	FHNO31+3
DTP^FH	FHNO31+3, ING
ALG^FHCLN	L3+8, OL4+8
PID^FHDPA	L3
PATNAME^FHOMUTL	L3, RM+1, OSF+11, OL4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: L2+0
Function Call: WRITE	Prompt: !!,RM,?13,$E($P(Y(0),"^",1),1,24),?38,BID Line Location: L3+6
Function Call: WRITE	Prompt: ?69,$E(LST,4,5),"-",$E(LST,6,7) Line Location: L3+7
Function Call: WRITE	Prompt: "*" Condition for execution: LST<OLD Line Location: L3+7
Function Call: WRITE	Prompt: !,"ALLERGIES: ",$S(ALG="":"NONE ON FILE",1:ALG) Line Location: L3+8
Function Call: WRITE	Prompt: !?8,$P("10AM; 2PM; 8PM",";",K1),?14,N(K1) Line Location: L3+10
Function Call: WRITE	Prompt: @IOF,!,WRDN," INGREDIENT LIST FOR ",DTP Line Location: ING+0
Function Call: WRITE	Prompt: !!,"--- 10 AM ---",?26,"--- 2 PM ---",?52,"--- 8 PM ---",! Line Location: ING+1
Function Call: WRITE	Prompt: ! Line Location: ING+2
Function Call: WRITE	Prompt: ?(K-1*26),$J(^(Z),4,0)," ",$S($D(C(Z)):C(Z),$D(^FH(118,+Z,0)):$P(^(0),"^",1),1:"") Line Location: ING+2
Function Call: WRITE	Prompt: ! Line Location: ING+3
Function Call: WRITE	Prompt: !?10,"W A R D S U P P L E M E N T A L F E E D I N G L I S T",?72,"Page ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"Ward: ",WRDN,?61,DTP Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"ROOM",?13,"PATIENT",?39,"ID# SUPP MENU",?60,"ISOLAT",?69,"REVIEW" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: OL2+0
Function Call: WRITE	Prompt: ! Line Location: OL4+5
Function Call: WRITE	Prompt: !,RM,?13,$E(FHPTNM,1,24),?38,FHBID Line Location: OL4+6
Function Call: WRITE	Prompt: ?69,$E(LST,4,5),"-",$E(LST,6,7) Line Location: OL4+7
Function Call: WRITE	Prompt: "*" Condition for execution: LST<OLD Line Location: OL4+7
Function Call: WRITE	Prompt: !,"ALLERGIES: ",$S(ALG="":"NONE ON FILE",1:ALG) Line Location: OL4+8
Function Call: WRITE	Prompt: !?8,$P("10AM; 2PM; 8PM",";",K1),?14,N(K1) Line Location: OL4+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	OSF+12
^DPT - [#2]	L3, L3+1, RM+2, RM+5, RM+6
^FH(118 - [#118]	FHNO31+2, L3+9, ING+2, OL4+9
^FH(118.1 - [#118.1]	L3+5, OL4+4
^FH(119.4 - [#119.4]	L3+4, OL4+3
^FH(119.6 - [#119.6]	FHNO31+5, F0+3, F2, OSF+9
^FH(119.74 - [#119.74]	F2+7, OSF1
^FHPT - [#115]	L3+2, L3+3, RM+3, C0, C0+1, C2, C2+1, C2+2!, OSF+2, OSF+6 , OL4+1, OL4+2
^FHPT("AW"	F2+2
^FHPT("RM"	OSF+1
^TMP("FH"	FHNO31+4!, FHNO31+6, F0+3*
^TMP($J	F2+2!, F2+4, F2+6, L2, L3, L4, ING, ING+2, RM+8, OSF+14* , OSF+15*, OL2, OL3, OL4

Label References

Name	Line Occurrences
C0	C2+1
C1	CHK, C2+1
C2	CHK+1, C0, C2+2
CHK	RM+4
F0	FHNO31+5
F2	FHNO31+6
HDR	F2+4, F2+6, L3+6, OL4+5
ING	L2, OL2
L2	L3
L3	L3, L3+3, L3+11
L4	L3+9, OL4+9
OL2	OL3
OL3	OL4
OL4	OL4+2, OL4+12
OSF	F2+4
OSF1	F2+4
RM	F2+2

Naked Globals

Name	Field # of Occurrence
^(	FHNO31+5, L3+1, L4*, ING+2
^(0	FHNO31+2, L3+2, L3+5, L3+9, ING+2, RM+3, OSF+6, OL4+4, OL4+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FHNO31+3
A1	C1!, C2*, C2+1, C2+2
>> ADM	F2+2, L3, L3+2, L3+3, RM+2, RM+3, RM+8, C0, C0+1, C2 , C2+1, C2+2, OSF+1, OSF+2, OSF+6, OSF+14, OSF+15, OL2+1, OL4*, OL4+1 , OL4+2
>> ALG	L3+8, OL4+8
>> BID	L3+6
C	FHNO31+2!
C(	FHNO31+2*, L3+9, ING+2, OL4+9
>> DFN	L3, L3+1, RM+1, RM+2, RM+5, RM+6
DT	FHNO31+3*, ING, OSF+1
>> DTP	FHNO31+3, ING, HDR+3
>> FHBID	OL4+6
>> FHDFN	F2+2, L2+1, L3, L3+2, L3+3, RM+3, RM+8, C0, C0+1, C2 , C2+1, C2+2, OSF+1, OSF+2, OSF+6, OSF+14, OSF+15, OL4*, OL4+1, OL4+2
>> FHMEAL	OSF+3*, OSF+4, OSF+8, OSF+10
>> FHNO	OSF+2*, OSF+6
FHORD	CHK, C0, C0+1, C1!, C2+1
>> FHOWARD	OSF+3*, OSF+4, OSF+9
>> FHPAR	F2+7, L2, L3+9, OSF1, OL2, OL4+9
>> FHPTN	OSF1, OL2, OL3, OL3+1, OL4, OL4+5, OL4+11
>> FHPTNM	OSF+14, OSF+15, OL4+6
>> FHPTSAV	OL4+5, OL4+11*
>> FHSFDAT	OSF+5, OSF+6, OSF+7
IOF	ING, HDR+1
IOSL	L3+6, OL4+5
IOST	HDR+1
>> IS	L3+2, L3+4, L3+7, OL4+1, OL4+3, OL4+7
K	L3+9, ING+2, C1!, C2, OL4+9
>> K1	F0, F0+2, F0+3, L3+9, L3+10, L4, OL4+9, OL4+10
>> K2	L3+9, OL4+9
>> KK	FHNO31+5, FHNO31+6, F0+1, F0+3
>> L	FHNO31+2, L3+9, ING+2, OL4+9
>> LST	L3+3, L3+7, OL4+2, OL4+7
>> N(	L3+9, L3+10, ING+2, OL4+9*, OL4+10
>> N(1	ING+1*, ING+2
>> N(2	ING+1*, ING+2
>> N(3	ING+1*, ING+2
>> NM	L3+3, L3+5, L3+7, OL4+2, OL4+4, OL4+7
>> NO	L3+2, L3+3, RM+3, RM+4, C0+1, OL4+1, OL4+2
>> NOW	FHNO31+3*, CHK+1, C2
>> NR	F2+7, L2, L3, L3+1, OL2+1, OL3, OL3+1, OL4
>> NXW	FHNO31+6*
>> OLD	FHNO31+3*, L3+7, OL4+7
>> P0	F0+2*, F0+3
>> P1	OSF+10*
>> PG	FHNO31+4, HDR+1, HDR+2
>> PRN	L3+1, RM+5, OSF+14, OSF+15, OL3+1
>> Q	L3+9, L4, OL4+9
>> RM	F2+7, L3+1, L3+6, RM+5, RM+6, RM+7, RM+8, OSF+8, OSF+12, OSF+13 , OSF+14, OSF+15, OL3+1*, OL4+6
>> RMIEN	OSF+12*
U	L3+9, OSF+2, OSF+3, OSF+7, OSF+9, OSF+12, OL4+9
>> WRD	FHNO31+6*, F2, F2+2, OSF+4
>> WRDN	F0+3, F2, ING, HDR+3, OSF+9*
>> WRDS	F0, F0+1, F2+7, OSF1
>> X	FHNO31+3, FHNO31+5*, F0, F0+2
X1	FHNO31+3, RM+3, CHK, CHK+1, C0+1, C1!, OSF+2*, OSF+3, OSF+12
>> X2	FHNO31+3*
>> XX	F0, F0+1, F0+2, F2+7, OSF1
>> Y	L3+2, L3+3, L3+9, OL4+1, OL4+2, OL4+9
>> Y(0	L3*, L3+6
>> Z	L3+9, L4, ING+2, OL4+9*

Customize PDF page

Package: Dietetics

Routine: FHNO31

Information

Source Information

Call Graph

Call Graph Total: 5

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
F0
OSF1
F2
C0
HDR	; Print Header
OL4
CHK
OL2
L4
OL3
L2
L3
C2
RM	;
C1
ING
OSF	;outpatient SFs