VistA Analysis » VistA Reference » RPCs » ORWORR GET

ORWORR GET

Returns a list of orders & and associated fields and text.

Properties

Property Value
Label GET
MUMPS Implementation ORWORR
Return Type ARRAY

MUMPS Method Description

Property Value
Method GET^ORWORR
Method Comment procedure
Input Parameters DFN, FILTER, GROUPS
Code
 Q  ; don't call until using same treating specialty logic as AGET
N ORLIST,ORIFN,X0,X3,X8,IDX,IFN,ACT,PRV,LN,TXT,STRT,STOP,CSTS,EYE,DEA ;PKI
K ^TMP("ORR",$J)
S (IDX,LST)=0 S:'$D(GROUPS) GROUPS=1 S:'$D(FILTER) FILTER=2
D EN^ORQ1(DFN_";DPT(",GROUPS,FILTER,"","","",0,1)
S EYE=0 F S EYE=$O(^TMP("ORR",$J,ORLIST,EYE)) Q:'EYE S IFN=^(EYE) D
. S ACT=$P(IFN,";",2),IFN=+IFN,X0=^OR(100,IFN,0),X3=^(3),X8=^(8,ACT,0)
. D GETFLDS
K ^TMP("ORR",$J)
G EXIT

CPRS

File Type Description
Pascal File Orders/rOrders.pas


Document generated on August 31st 2022, 2:55:43 pm