VistA Analysis » VistA Reference » RPCs » OREVNTX ACTIVE

OREVNTX ACTIVE

Properties

Property Value
Label ACTIVE
MUMPS Implementation OREVNTX
Return Type ARRAY

MUMPS Method Description

Property Value
Method ACTIVE^OREVNTX
Method Comment Returns all active events [of TYPE] from #100.5
Input Parameters TYPE
First Comment
  where TYPE=string containing any of the codes from the TYPE field
Code
 N NM,IEN,CNT,X0,X S CNT=0,TYPE=$G(TYPE)
S NM="" F S NM=$O(^ORD(100.5,"C",NM)) Q:NM="" D
. S IEN=0 F S IEN=+$O(^ORD(100.5,"C",NM,IEN)) Q:IEN<1 D
.. S X0=$G(^ORD(100.5,IEN,0)) I '$L($P(X0,U,2)) D ;Child event
... S X=$P(X0,U,12) S:X $P(X0,U,2)=$P($G(^ORD(100.5,+X,0)),U,2)
.. I $L(TYPE),TYPE'[$P(X0,U,2) Q
.. Q:$O(^ORD(100.5,"DAD",IEN,0)) ;Parent event
.. S CNT=CNT+1,ORY(CNT)=IEN_U_X0
S:CNT ORY(0)=CNT

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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