Routine: ORWDXA

Information

ORWDXA ; SLC/KCM/JLI - Utilities for Order Actions ; May 20, 2024@11:05

Source file <ORWDXA.m>

Name	Comments	DBIA/ICR reference
VALID(VAL,ORID,ACTION,ORNP,ORWNAT)	; Is action valid for order?
HOLD(REC,ORID,ORNP)	; Place order on hold
UNHOLD(REC,ORID,ORNP)	; Release order from hold
DC(REC,ORID,ORNP,ORL,REASON,DCORIG,ISNEWORD)	; Discontinue/Cancel/Delete order
DCREQIEN(VAL)	; Return IEN for Req Phys Cancelled reason
COMPLETE(REC,ORID,ESCODE)	; Complete order (generic) ; validate ESCode
VERIFY(REC,ORID,ESCODE,ORVER)	; Verify order ; validate ESCode
ALERT(DUMMY,ORID,ORDUZ)	; alert user (ORDUZ) when order (ORID) resulted
FLAG(REC,ORIFN,OREASON,ORNP,OREXP,ORLIST)	; Flag order ;p539
BULLETIN	; flagged order bulletin
UNFLAG(REC,ORIFN,OREASON)	; Unflag order ;p539
FLAGTXT(LST,ORID)	; flag reason
WCGET(LST,ORID)	; ward comments
WCPUT(ERR,ORID,WCLST)	; Set ward comments
OFCPLX(ORY,ORID,PRTORDER)	; is ORID child of PRTORDER
ISACTOI(ORY,OI)	; Is ord item active?
UPCTCHK(ORID)	;
SAVFLG(ORIFN,ORFH)	;File flag history ;p539