Routine: FHORD2

Information

FHORD2 ; HISC/REL/NCA - Review Diet Orders ;11/7/92 09:57

Source file <FHORD2.m>

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: F01+0
Function Call: WRITE	Prompt: !!,"List Orders from Date/Time: "_DTP_" // " Line Location: F01+0
Function Call: WRITE	Prompt: !,"Comment: ",^(1) Line Location: F01+2
Function Call: WRITE	Prompt: !,"Expires: ",DTP Line Location: F01+3
Function Call: WRITE	Prompt: !!,"Tubefeed Ordered: ",DTP Line Location: F01+7
Function Call: WRITE	Prompt: !,"Total Quantity: ",TQU," ml",?42,"Total KCAL: ",CAL Line Location: F01+9
Function Call: WRITE	Prompt: !!,"No Diet Orders Entered",! Line Location: F1+2
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: LP+2
Function Call: WRITE	Prompt: !!,"Saved Additional Orders:",! Line Location: L1+0
Function Call: WRITE	Prompt: !,DTP,?20,$P(X,"^",3) Line Location: L1+1
Function Call: WRITE	Prompt: !!," Effective Expires Type Order",! Line Location: LST+1
Function Call: WRITE	Prompt: !,DTP Line Location: LST+3
Function Call: WRITE	Prompt: ?20,DTP Line Location: LST+3
Function Call: WRITE	Prompt: ?40,TYP,?44 Line Location: LST+4
Function Call: WRITE	Prompt: Y Line Location: LST+4
Function Call: WRITE	Prompt: !!?24,"----- Diet Orders Time Line -----",!," Effective Type Order",! Line Location: TLN+0
Function Call: WRITE	Prompt: !,DTP,?20,TYP,?24 Line Location: T1+2
Function Call: WRITE	Prompt: Y Line Location: T1+2
Function Call: WRITE	Prompt: $P(Y,", ",1,4),",",!?24,$P(Y,", ",5) Line Location: T1+3