VistA Analysis » VistA Reference » RPCs » OREVNTX1 PROMPT IDS

OREVNTX1 PROMPT IDS

Properties

Property Value
Label PRTIDS
MUMPS Implementation OREVNTX1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method PRTIDS^OREVNTX1
Method Comment Return some prompt ids from #101.41
Input Parameters IDS
First Comment 
 treating specialty Id^attending provider id
Code 
 N IDX,ORTS,ORATT
 S (ORY,ORTS,ORATT)=""
 S IDX=$O(^ORD(101.41,"B","OR GTX TREATING SPECIALTY",0))
 S:$D(^ORD(101.41,IDX,1)) ORTS=$P($G(^ORD(101.41,IDX,1)),U,2,3)
 S IDX=$O(^ORD(101.41,"B","OR GTX PROVIDER",0))
 S:$D(^ORD(101.41,IDX,1)) ORATT=$P($G(^ORD(101.41,IDX,1)),U,2,3)
 S ORY=ORTS_"~"_ORATT

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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