VistA Analysis » VistA Reference » RPCs » OREVNTX PAT

OREVNTX PAT

Properties

Property Value
Label PAT
MUMPS Implementation OREVNTX
Return Type ARRAY

MUMPS Method Description

Property Value
Method PAT^OREVNTX
Method Comment Returns currently delayed events for patient DFN
Input Parameters DFN
Code 
 N EVT,CNT,X,Y S DFN=+$G(DFN),(EVT,CNT)=0
 F  S EVT=+$O(^ORE(100.2,"AE",DFN,EVT)) Q:EVT<1  S Y=+$O(^(EVT,0)) D
 . I $G(^ORE(100.2,Y,1)) K ^ORE(100.2,"AE",DFN,EVT,Y) Q
 . Q:$$LAPSED(Y)  ;I $$EMPTY(Y) D CANCEL(Y) Q
 . Q:$O(^ORE(100.2,"DAD",Y,0))  ;has children
 . S X=$P($G(^ORD(100.5,EVT,0)),U,8),X="Delayed "_$$LOWER^VALM1(X)
 . S CNT=CNT+1,ORY(CNT)=Y_U_X
 S:CNT ORY(0)=CNT

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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