Routine: FHORT1

Package	Total	Call Graph
Dietetics	6	TR^FH ^FHDPA ^FHORT10 ^FHORT11 (CAN,DIS)^FHORT2 (TF,TF1)^FHWOR5
Kernel	1	MSG^XQOR

Package	Total	Caller Graph
Dietetics	1	FHORTF3

Entry Points

External References

Name	Field # of Occurrence
TR^FH	E0+5, E31, E5, E6
^FHDPA	FHORT1+2
^FHORT10	E3
^FHORT11	FHORT1+4
CAN^FHORT2	FHORT1+4
DIS^FHORT2	E0+3
TF^FHWOR5	FHORT1+5
TF1^FHWOR5	FHORT1+5
MSG^XQOR	FHORT1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"An ACTVE TUBEFEEDING ORDER exists!" Line Location: E0+3
Function Call: READ	Prompt: "Do You Wish to Cancel the Existing Tubefeeding and Enter a New One? Y// " Formatting: !! Timeout: DTIME Variable: ANS Line Location: E0+4
Function Call: WRITE	Prompt: *7,!!,"No order entered!" Line Location: E0+4
Function Call: WRITE	Prompt: !!,"Answer YES to Cancel Existing Order and Enter a New One.",!,"Answer NO to Edit the Existing Tubefeeding Order.",!,"Enter ""^"" to Exit Completely." Line Location: E0+6
Function Call: WRITE	Prompt: *7,!!,"Edit the Existing Tubefeeding." Line Location: E0+8
Function Call: WRITE	Prompt: !!,*7,"There are FIVE products already!",!,"You may edit them, or delete a product before adding any." Line Location: E0+9
Function Call: WRITE	Prompt: !!,"No Tubefeeding Products selected." Line Location: E3+1
Function Call: WRITE	Prompt: ! Line Location: E3+2
Function Call: WRITE	Prompt: !!,"Total Kcal: ",TK,?36,"Total Quantity: ",TC Line Location: E3+11
Function Call: WRITE	Prompt: *7,!!,"WARNING: Total amount exceeds 5000ml: ",TC," ml",!,"Please Edit the Tubefeeding and Modify." Line Location: E3+12
Function Call: READ	Prompt: "Is this Correct ? Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: E31+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: E31+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: E4+0
Function Call: WRITE	Prompt: *7," ??" Line Location: E4+0
Function Call: WRITE	Prompt: *7,!,"Enter a comment of up to 160 characters" Line Location: E4+1
Function Call: READ	Prompt: "Cancel all current or future tray orders? Y// " Formatting: ! Timeout: DTIME Variable: YN Line Location: E5+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: E5+0
Function Call: READ	Prompt: "Ok to Enter Order? Y// " Formatting: ! Timeout: DTIME Variable: YN Line Location: E6+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: E6+0
Function Call: WRITE	Prompt: *7,!!,"Tubefeeding Order TERMINATED - No order entered!" Line Location: AB+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(118.2 - [#118.2]	E3+7
^FHPT - [#115]	FHORT1+4, E0+2

Label References

Name	Line Occurrences
AB	E3+1, E31, E31+2, E4, E5, E6, E6+1
E0	FHORT1+4, E0+6
E3	E0+2, E3+12, E31+1
E31	E31
E4	E4, E4+1
E5	E5
E6	E6
KIL	FHORT1+2, FHORT1+4, FHORT1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KIL!
%H	KIL!
%I	KIL!
A	KIL!
A1	KIL!
A2	KIL!
A3	KIL!
A4	KIL!
ADM	FHORT1+4, E0+2, KIL!
ALL	FHORT1+2*, KIL!
ANS	E0+4, E0+5, E0+6, E0+7, E0+8, KIL!
BID	KIL!
C	KIL!
CAN	E5+1*, KIL!
COM	KIL!
CS	KIL!
D1	KIL!
D2	KIL!
D3	KIL!
D4	KIL!
DFN	FHORT1+2, FHORT1+4, E0+4, E3, KIL!, AB
DIC	KIL!
DTIME	E0+4, E31, E4, E5, E6
DTP	KIL!
DX	KIL!
E	KIL!
FHD	KIL!
FHDFN	FHORT1+2, FHORT1+4, E0+2, E0+4, E3, KIL!, AB
FHDR	KIL!
FHDU	KIL!
FHLD	KIL!
FHOR	KIL!
FHORD	KIL!
FHORN	KIL+1!
FHPAR	KIL!
FHPV	KIL!
FHSAV	KIL+1!
FHTF	FHORT1+5*, KIL!
FHWF	FHORT1+4, E6, KIL!
FLG	KIL!
FLG1	KIL!
I	KIL!
K	E3+3*, E3+4, E3+5, E3+6, E3+9, KIL!
MNUM	KIL+1!
MSG	FHORT1+6!
NO	E0+1, E0+7, E0+9, KIL!
NOW	KIL!
NU	KIL+1!
OLDT	KIL+1!
P	KIL!
P1	KIL!
P2	KIL!
PID	KIL!
POP	KIL!
PR	KIL+1!
PRO	E0+1, E3+6, E3+7, KIL+1!
QUA	KIL+1!
S1	KIL+1!
S2	KIL+1!
S3	KIL+1!
ST1	KIL+1!
ST3	KIL+1!
STR	E3+5*, E3+8, KIL+1!
T	E0+8, KIL+1!
T1	E0+1*, KIL+1!
T2	E0+1*, KIL+1!
T3	E0+1*, KIL+1!
T4	E0+1*, KIL+1!
TC	E3+2, E3+4, E3+11, E3+12, E31+2, KIL+1!
TF	FHORT1+4, E0+2, KIL+1!
TF2	KIL+1!
TFCOM	E0+1, E0+7, E0+8, E4, E4+2, KIL!
TK	E3+2, E3+5, E3+11, KIL+1!
TP	KIL+1!
TT	KIL+1!
TU	KIL+1!
TUN	E0+1!, E0+7!, KIL+1!
TUN(	FHORT1+5, E3+3, E3+4, E3+5, E3+6, E3+9
TUN(0	E3+1
TW	KIL+1!
TYP	KIL+1!
U	E4
UNT	KIL+1!
WARD	KIL+1!
WRD	KIL+1!
X	E0+5, E31, E31+1, E4, E4+1, E4+2, E5, E6*, KIL+1!
X1	KIL+1!
X2	KIL+1!
XX	FHORT1+5*, KIL+1!
Y	KIL+1!
Y0	KIL+1!
Y2	KIL+1!
YN	E5, E5+1, E6, E6+1, KIL+1!
YY	KIL+1!
Z	KIL+1!
Z1	KIL+1!
ZZ	KIL+1!

Customize PDF page

Package: Dietetics

Routine: FHORT1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
AB
E31
KIL
E5
E4
E6
E0	; Process tubefeeding
E3