VistA Analysis » VistA Reference » RPCs » OREVNTX1 GTEVT1

OREVNTX1 GTEVT1

Properties

Property Value
Label GTEVT1
MUMPS Implementation OREVNTX1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method GTEVT1^OREVNTX1
Method Comment Return Event information based on EVT ptr #100.5
Input Parameters EVT
First Comment 
EVT    ptr #100.5
Code 
 Q:'+EVT
 N EVTTYPE,EVTNAME,EVTDISP,EVTDLG,PRTEVT
 S (EVTDLG,PRTEVT)=0
 S PRTEVT=$P(^ORD(100.5,+EVT,0),U,12)
 I PRTEVT>0 S EVTTYPE=$P(^ORD(100.5,PRTEVT,0),U,2)
 E  S EVTTYPE=$P(^ORD(100.5,+EVT,0),U,2)
 S EVTNAME=$P($G(^ORD(100.5,+EVT,0)),U,1)
 S EVTDISP=$P($G(^ORD(100.5,+EVT,0)),U,8)
 S EVTDLG=$P($G(^ORD(100.5,+EVT,0)),U,4)
 S ORY=EVTTYPE_U_EVT_U_EVTNAME_U_EVTDISP_U_EVTDLG

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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