VistA Analysis » VistA Reference » RPCs » OREVNTX1 DEFLTS

OREVNTX1 DEFLTS

Properties

Property Value
Label DEFLTS
MUMPS Implementation OREVNTX1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method DEFLTS^OREVNTX1
Method Comment Return default specialty for EVTID(#100.5)
Input Parameters EVTID
Code 
 Q:'+EVTID
 N PRTEVT
 S PRTEVT=0
 S PRTEVT=$P(^ORD(100.5,+EVTID,0),U,12)
 I PRTEVT>0 S EVTID=PRTEVT
 S ORY=$$DEFTS^ORCDADT(EVTID)

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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