Routine: PSIVORA1

Information

PSIVORA1 ;BIR/MLM-UTILITIES FOR IV FLUIDS - OE/RR INTERFACE (CONT) ;05 FEB 97 / 1:30 PM

Name	Comments	DBIA/ICR reference
LOCKERR	; Display msg. if lock is unsuccessful.
EDIT	; Edit an existing order.
RENEW	;Renew order through OE/RR.
REDIT	; Set edit string for OE/RR renew.
FLUIDQO	; Process IV Fluid quick order.
DONE	; Kill variables and exit

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This order is being edited by another user." Line Location: LOCKERR+1
Function Call: WRITE	Prompt: !,$C(7),"Order must be removed from HOLD before editing." Line Location: EDIT+1
Function Call: WRITE	Prompt: !,$C(7),"Expired orders cannot be edited." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"...updating order..." Line Location: EDIT+8
Function Call: WRITE	Prompt: !,"...creating new order..." Line Location: EDIT+10
Function Call: WRITE	Prompt: !,$C(7),"Only ACTIVE OR EXPIRED orders may be RENEWED." Line Location: RENEW+1
Function Call: WRITE	Prompt: !,"...creating new order..." Line Location: RENEW+4
Function Call: WRITE	Prompt: !!,"...transcribing this order..." Line Location: FLUIDQO+11
Function Call: WRITE	Prompt: ! Line Location: FLUIDQO+11