Routine: ORWDXR

Information

ORWDXR ;SLC/KCM/JDL - Utilites for Order Actions ;Sep 01, 2021@10:05:23

Source file <ORWDXR.m>

Name	Comments	DBIA/ICR reference
ACTDCREA(DCIEN)	; Valid DC Reason
ISREL(VAL,ORIFN)	; Return true if an order has been released
RENEW(REC,ORIFN,ORVP,ORNP,ORL,FLDS,CPLX,ORAPPT)	; Renew an order
RNWFLDS(LST,ORIFN)	; Return fields for renew action ; LST(0)=RenewType^Start^Stop^Refills^Pickup^Days Supply^Quantity^DispUnits^Clozapine ; LST(n)=Comments
DISPUNIT(OIEN,ORDISPDRG,ORTYPE)	; Returns the dispense unit
VAL(ORIFN,ID)	; Return value for order response
WPVAL(TXT,ORIFN,ID)	; Return word processing value
STR(PTR)	; -- Return word processing text as long string for comparison
CHKACT(ORDERID,ORWSIG,ORWREL,ORWNATR)	; Return error if can't sign/release order
XC1	; end case
GTORITM(Y,ORIFN)	;-- Get back the orderable item IEN
GETPKG(Y,IFN)	;Get package for an order
ISCPLX(ORY,ORID)	; 1: is complex order 0: is not
ORCPLX(ORY,ORID,ORACT)	;Return children orders of the complex order
CANRN(ORY,ORID)	; Check conjunction for renew. ; All conjunctioni = "And" return 1 ; Has a "Then" return 0
ISNOW(ORY,ORID)	; Is first time now order?