VistA Analysis » VistA Reference » RPCs » OREVNTX1 MATCH

OREVNTX1 MATCH

Properties

Property Value
Label MATCH
MUMPS Implementation OREVNTX1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method MATCH^OREVNTX1
Method Comment If Pt's current data match selected event
Input Parameters DFN, EVT
First Comment
DFN: patient DFN
EVT: ptr to #100.5
Code
 S ORY=0
Q:('+DFN)!('+EVT)
S ORY=$$MATCH^OREVNT(DFN,EVT)
N TS,TSNM
S TS=$S($G(ORTS):+ORTS,1:+$G(^DPT(DFN,.103)))
S TSNM=$P($G(^DIC(45.7,TS,0)),U)
S:ORY ORY=ORY_U_TSNM

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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