VistA Analysis » VistA Reference » RPCs » OREVNTX1 CURSPE

OREVNTX1 CURSPE

Properties

Property Value
Label CURSPE
MUMPS Implementation OREVNTX1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method CURSPE^OREVNTX1
Method Comment Return current treating specialty
Input Parameters PTIFN
Code
 Q:'PTIFN
N SPEC S SPEC=$$PT^DGPMOBS(PTIFN),ORY=""
I SPEC'<0 S ORY=$P(SPEC,U,3)_U_$P(SPEC,U,2)_U_$P(SPEC,U) ;name^ien^obs flag

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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