Routine: FHORT2

Information

FHORT2 ; HISC/REL/NCA - Tubefeeding Inquiry/Cancel ;6/25/96 10:50 ;

Package	Total	Call Graph
Dietetics	6	(DTP,TR)^FH ^FHDPA T0^FHORD3 CUR^FHORD7 ^FHORX CODE^FHWOR5
Kernel	1	MSG^XQOR
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Dietetics	5	FHCTF3 FHORD1 FHORT1 FHORT10 FHORTF4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Tubefeeding Order Exists" Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"Date Ordered: ",DTP Line Location: DIS+1
Function Call: WRITE	Prompt: ! Line Location: DIS+2
Function Call: WRITE	Prompt: !!,"Total KCAL: ",$P(T,"^",7),?42,"Total Quantity: ",$P(T,"^",6)," ml" Line Location: DIS+4
Function Call: WRITE	Prompt: !,"Product: ",$P($G(^FH(118.2,TUN,0)),"^",1),", ",$S(STR=4:"Full",STR=1:"1/4",STR=2:"1/2",1:"3/4")," Str., ",QUA Line Location: D1+2
Function Call: WRITE	Prompt: *7,!!,"Note: NO current DIET ORDER exists for this patient!" Line Location: EN3+2
Function Call: WRITE	Prompt: *7,!!,"Note: Patient is on a WITHHOLD SERVICE Order!" Line Location: EN3+3
Function Call: READ	Prompt: "Do you wish to RESUME Tray Service? N// " Formatting: !! Timeout: DTIME Variable: X Line Location: C1+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: C1+0
Function Call: WRITE	Prompt: *7,!!,"Cannot CANCEL -- Try using Cancel Withhold option!" Line Location: C1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: ASK+2

Name	Line Occurrences (* Changed, ! Killed)
^FH(118.2 - [#118.2]	D1+2
^FHPT - [#115]	EN2+2, DIS+1, DIS+2, C1+1, CAN+2, CAN+3, CAN+4, CAN+5
^FHPT("ADTF"	CAN+2!

Name	Field # of Occurrence
^(	DIS+2, C1+1

Name	Field # of Occurrence
%	CAN+1, CAN+6!, KIL!
%H	KIL!
%I	KIL!
A1	KIL!
A2	C1+1*, C1+2, C1+3, KIL!
ADM	EN2+2, DIS+1, DIS+2, C1+1, CAN+2, CAN+3, CAN+4, CAN+5, CAN+6, KIL!
ALL	EN2+1*, KIL!
BID	KIL!
C	KIL!
COM	CAN+1~, KIL!
D1	KIL!
D2	KIL!
D3	KIL!
DA	KIL!
DFN	EN2+1, KIL!
DT	C1+3*
DTIME	C1, ASK+1
DTP	DIS+1*, KIL!
DUZ	CAN+3
>> EVT	CAN+6*
FHD	EN3+1, ASK+1, ASK+2, ASK+3*, KIL!
FHDFN	EN2+1, EN2+2, DIS+1, DIS+2, C1+1, CAN+2, CAN+3, CAN+4, CAN+5, KIL!
FHDR	KIL!
FHDU	KIL!
FHLD	EN3+3, C1+3, KIL!
FHOR	EN3+3, KIL!
FHORD	C1+1, KIL!
FHORN	CAN+1~, CAN+4*, CAN+6
FHPAR	KIL!
FHPV	KIL!
FHSAV	CAN+5*, CAN+6!
FHWF	KIL!
FILL	CAN+1~, CAN+6*!
I	KIL!
K9	KIL!
KK	C1+1, C1+3, KIL!
MSG	CAN+6!
>> NO	DIS+1, DIS+2
NOW	C1+1, C1+3, CAN+1*, CAN+3, KIL!
OLD	C1+3*, KIL!
P2	KIL!
PID	KIL!
POP	KIL!
QUA	D1, D1+1, D1+2, KIL!
>> QUAFI	D1+1*
>> QUASE	D1+1*
STR	D1*, D1+2, KIL!
T	DIS+1*, DIS+3, DIS+4, KIL!
TF	EN2+1, EN2+2, EN2+3, DIS+1, DIS+2, EN3+1, CAN+3, CAN+4, CAN+5, CAN+6 , KIL!
TF2	DIS+2*, KIL!
TFCOM	DIS+3*, DIS+5, KIL!
TUN	D1*, D1+2, KIL!
TUN(	DIS+2*
WARD	KIL!
X	C1, C1+1, ASK+1, ASK+2*, ASK+3, KIL!
X1	KIL!
X2	KIL!
X9	KIL!
Y	DIS+2*, D1, EN3+2, KIL!