VistA Analysis » VistA Reference » RPCs » ORWDXR ISCPLX

ORWDXR ISCPLX

Properties

Property Value
Label ISCPLX
MUMPS Implementation ORWDXR
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method ISCPLX^ORWDXR
Method Comment 1: is complex order 0: is not
Input Parameters ORID
Code
 Q:'$D(^OR(100,+ORID,0))
N PKG
S PKG=$P($G(^OR(100,+ORID,0)),U,14)
S PKG=$$NMSP^ORCD(PKG)
I PKG'="PS" Q
N NUMCHDS,NOWID,NOWVAL
S (NOWVAL,NOWID)=0
S NUMCHDS=$P($G(^OR(100,+ORID,2,0)),U,4)
I NUMCHDS>2 S ORY=1 Q
I NUMCHDS=2 D
. S ORY=1
. S:$D(^OR(100,+ORID,4.5,"ID","NOW")) NOWID=$O(^("NOW",0))
. S:NOWID NOWVAL=$G(^OR(100,+ORID,4.5,NOWID,1))
I NOWVAL=1 S ORY=0 Q

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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