Routine: FHNO7

Package	Total	Call Graph
Dietetics	8	DTP^FH ALG^FHCLN ADDOUT^FHNO5 ^FHOMDPA DIETPAT^FHOMRR1 PATNAME^FHOMUTL CUR^FHORD7 OPFILE^FHORX
VA FileMan	3	NOW^%DTC ^DIC ^DIR
Kernel	1	KILL^XUSCLEAN

Package	Total	Caller Graph
Dietetics	5	FHCTF3 FHNO1I FHNO5 FHNO8 FHOMRO1

Entry Points

Name	Comments	DBIA/ICR reference
LIS	; Display Feeding
L1	; Display SF Order
EN2	; Supplemental Feeding Inquiry
SF	;LIST outpatient SF
SF0	;ask for outpatient SF.
OIS	;Outpatient Individualized SF
G0	;process each meals for individualized SF.
G1
G2
G3
G4
G5
G6
CPRSF	;check previous SF
CPRS1
PPRSF	;PROCESS previous SF
SFEVNT	;
KIL

External References

Name	Field # of Occurrence
NOW^%DTC	PPRSF+2
^DIC	SF0+6, G2+3
^DIR	SF+8
DTP^FH	LIS+8, L1+2, SFEVNT+3, SFEVNT+4
ALG^FHCLN	LIS+10
ADDOUT^FHNO5	PPRSF+3
^FHOMDPA	EN2+2
DIETPAT^FHOMRR1	LIS+5
PATNAME^FHOMUTL	LIS+4
CUR^FHORD7	LIS+2
OPFILE^FHORX	SFEVNT+6
KILL^XUSCLEAN	KIL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: LIS+7
Function Call: WRITE	Prompt: !!,NAM," " Line Location: LIS+7
Function Call: WRITE	Prompt: "( ",FHLOCN," )" Condition for execution: WARD'="" "( ",WARD," )" W:FHLOCN'="" Line Location: LIS+7
Function Call: WRITE	Prompt: ?50,"Outpatient Date: ",DTP Line Location: LIS+8
Function Call: WRITE	Prompt: !," Allergies: ",$S(ALG="":"None on file",1:ALG) Line Location: LIS+10
Function Call: WRITE	Prompt: !,"Feeding Menu: ",$S('NM:"None",1:$P(^FH(118.1,NM,0),"^",1)) Q:'NO Line Location: L1+2
Function Call: WRITE	Prompt: ?50,"Reviewed: ",DTP Line Location: L1+2
Function Call: WRITE	Prompt: !!,"10AM",?26,"2PM",?52,"8PM",!,"----------------------- ----------------------- -----------------------" Line Location: L1+3
Function Call: WRITE	Prompt: !!,"10AM",!,"----------------------------------------------------------------------------" Line Location: L1+4
Function Call: WRITE	Prompt: !!,"2PM",!,"-----------------------------------------------------------------------------" Line Location: L1+5
Function Call: WRITE	Prompt: !!,"8PM",!,"-----------------------------------------------------------------------------" Line Location: L1+6
Function Call: WRITE	Prompt: !,N(1,K2),?26,N(2,K2),?52,N(3,K2) Line Location: L1+9
Function Call: WRITE	Prompt: !,$S(FHMEAL="B":N(1,K2),FHMEAL="N":N(2,K2),1:N(3,K2)) Line Location: L1+10
Function Call: WRITE	Prompt: !,"NO OUTPATIENT DATA ON FILE for today's date and the future!!" Line Location: EN2+5
Function Call: WRITE	Prompt: @IOF,!,"Outpatient Recurring Meals... " Line Location: SF+1
Function Call: WRITE	Prompt: ! Line Location: SF+18
Function Call: READ	Variable: X Timeout: DTIME Line Location: G2+0
Function Call: WRITE	Prompt: *7," .. DUPLICATE OF EXISTING ITEM!" Line Location: G2+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: G4+0
Function Call: WRITE	Prompt: *7," ??" Line Location: G4+2
Function Call: WRITE	Prompt: !?5,"Enter a whole number between 1 and 20" Line Location: G4+3
Function Call: READ	Variable: Y Timeout: DTIME Line Location: G6+0
Function Call: WRITE	Prompt: *7,!?5," Answer D for Dietary use or T for Therapeutic use" Line Location: G6+2
Routine Call	DIC Line Location: SF0+6 G2+3
Routine Call	DIR Line Location: SF+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FHPT - [#115]	Classic Fileman Calls
^FH(118 - [#118]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SF+6
^DPT - [#2]	LIS+2, EN2+3
^FH(111 - [#111]	LIS+5
^FH(118 - [#118]	L1+8, G1+5
^FH(118.1 - [#118.1]	L1+2, SF+16
^FH(119.6 - [#119.6]	LIS+6, SF+5, SFEVNT+2
^FHPT - [#115]	LIS+4, LIS+6, LIS+8, LIS+11, LIS+12, SF+3, SF+4, SF+12, SF+14, SF0+8 , CPRS1, CPRS1+1, CPRS1+3, CPRS1+4, CPRS1+5, CPRS1+6
^FHPT("RM"	SF+3

Label References

Name	Line Occurrences
CPRS1	CPRS1+4, CPRS1+7
EN2	EN2+3, EN2+5, EN2+7
G0	OIS+6
G1	G2+1, G2+2, G4+1, G4+4, G4+5
G2	G2+3, G2+4
G3	G2+1
G4	G4+3
G5	G1, G1+1, G2, G4
G6	OIS+7, G6+2
KIL	EN2+2
LIS	EN2+3, EN2+7
SF	EN2+4
SF0	EN2+6

Naked Globals

Name	Field # of Occurrence
^(0	SFEVNT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PPRSF+2
ADM	LIS+3, LIS+4, LIS+5, LIS+6, LIS+8, LIS+11, LIS+12, EN2+1!, EN2+7, SF0+7* , SF0+8
>> ALG	LIS+10
>> DFN	LIS+2, EN2+3
DIC	SF0+1!, SF0+4, SF0+6!, G0+4
DIC("?"	SF0+5*
DIC("A"	SF0+6, G1+4, G1+5*, G2
DIC("S"	SF0+3, G0+4
DIC("W"	SF0+2*
DIC(0	SF0+1, G0+4
DIR	SF+8!
DIR("A"	SF+8*
DIR(0	SF+8*
DT	SF+3
DTIME	G2, G4, G6
>> DTOUT	SF0+6
>> DTP	LIS+8, L1+2, SF+6, SF+10, SF+11, SFEVNT+3, SFEVNT+4*, SFEVNT+5
DUZ	CPRS1+9
>> ENDT	SFEVNT+4
>> FH11	SF+5*, SF+10, SF+11
>> FHACT	SFEVNT+6*
>> FHADSFF	SFEVNT+6
>> FHALL	EN2+2*
>> FHCOFLG	SF+7*
>> FHDA15	SF+4*, SF+5, SF+6
>> FHDA15SF	SF+14*, SF+15, SF+16
>> FHDASFNM	SF+16*, SF+17
>> FHDAT	CPRSF+2, CPRS1+3
>> FHDATL	SF+7, SF+11
FHDFN	LIS+4, LIS+6, LIS+8, LIS+11, LIS+12, EN2+1!, EN2+2, SF+3, SF+4, SF+12 , SF+14, SF0+8, CPRS1, CPRS1+1, CPRS1+3, CPRS1+4, CPRS1+5, CPRS1+6
>> FHDIET	LIS+4*, LIS+5
>> FHDIETP	LIS+5
>> FHDTC	SFEVNT+1, SFEVNT+3
>> FHDTP	SFEVNT+3, SFEVNT+5, SFEVNT+6
>> FHI	SF+3, CPRS1+5, CPRS1+6
>> FHIDFLG	G6+6*
>> FHIDI	OIS+3, OIS+4, OIS+5*, OIS+6
>> FHII	OIS+6*
>> FHJ	SF+3*, SF+4, SF+12, SF+14
>> FHLOC	LIS+6, SF+5, SFEVNT+2
>> FHLOCN	LIS+1, LIS+6, LIS+7, SF+5, CPRS1+3, SFEVNT+2*, SFEVNT+6
FHMEAL	LIS+13, L1+4, L1+5, L1+6, L1+10, EN2+1!, SF+5, SF0+8, OIS+6*, G0+1 , G0+2, G1+1, CPRS1+4, SFEVNT+6
>> FHNMSAV	CPRS1+9*
>> FHOSTDT	SFEVNT+3
>> FHPNNSV	G6+5*
>> FHPRCN	CPRS1+3*, CPRS1+4
>> FHPRML	CPRS1+3*, CPRS1+4
FHPTNM	LIS+4, EN2+1!
>> FHQ	SF+2, SF+3, SF+8
>> FHRNUM	LIS+5*
>> FHSF	SF+7, SF+12, SF+13, SF+14, CPRSF+2, CPRS1, CPRS1+1*, CPRS1+2, CPRS1+3, CPRS1+4 , CPRS1+5, CPRS1+6
>> FHSFCX	CPRS1+6*, CPRS1+7
FHSFLG	EN2+1!, EN2+5, SF+9*
>> FHSFMEN	SFEVNT+6
>> FHTXT	SFEVNT+6*
>> FHX	OIS+2*, OIS+3, OIS+4, OIS+5
IOF	LIS+7, SF+1, SF+8
IOSL	SF+8
IOST	LIS+7
>> K	L1+8*
>> K1	L1+7, L1+8, G2+3*, G2+4
>> K2	L1+7, L1+8, L1+9, L1+10
>> KK	G0+2, G1, G1+1, G1+3, G2+1, G2+2, G2+3, G2+4, G4+1, G4+4* , G4+5, G5
>> L	L1+8, G2+4
N	L1+7!
N(	L1+7, L1+8
N(1	L1+9, L1+10
N(2	L1+9, L1+10
N(3	L1+9, L1+10
>> NAM	LIS+2, LIS+4, LIS+7
>> NM	L1+2*, OIS+1
NO	LIS+11, LIS+12, L1+2, EN2+1!
>> NOW	PPRSF+2*
>> OLD	G1+5, G2+1, G2+2, G2+5, G3, G4, G4+1
>> P1	G1+3, G1+5, G2+2, G2+5, G3, G4+1, G4+4, G4+5, G5, G6*
PNN	G1+5, G2+2, G2+4, G2+5, G3, G4+1, G4+4, G4+5, G5, G6 , G6+3, G6+5, CPRSF+1!, CPRS1+6, CPRS1+7!, CPRS1+8!, CPRS1+9, PPRSF+1
>> Q	L1+8*
>> T1	G0+1, G1+4, G4, G5
>> T2	G1+3, G1+4, G4, G5
U	LIS+4, LIS+5, LIS+6, LIS+8, SF+3, SF+5, SF+6, SF+12, SF+15, SF+16 , SF0+8, CPRS1+3, CPRS1+5, CPRS1+6, CPRS1+8, CPRS1+9, SFEVNT+2
>> WARD	LIS+2, LIS+3, LIS+4, LIS+7, LIS+8, LIS+11, LIS+12, LIS+13, L1+1, L1+3 , L1+4, L1+5, L1+6, L1+9, L1+10, EN2+3, EN2+4, G1+1
X	EN2+1!, G2, G2+1, G2+2, G4, G4+1, G4+2, G4+3, G4+4, G4+5 , G5, G6+3
Y	LIS+1, LIS+5, LIS+9, LIS+11, LIS+12, L1+2, L1+8, L1+11, EN2+1!, SF+6* , SF+8, SF0+6, SF0+7, G2+3, G2+4, G2+5, G6, G6+1*, G6+2, G6+3
>> Z	L1+8*

Customize PDF page

Package: Dietetics

Routine: FHNO7

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: