Routine: FHORT2

Information

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

Source file <FHORT2.m>

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	Formatting: !! Prompt: "Do you wish to RESUME Tray Service? N// " Variable: X Timeout: DTIME 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	Variable: X Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: ASK+2