VistA Analysis » VistA Reference » RPCs » ORWDPS5 ISVTP

ORWDPS5 ISVTP

Properties

Property Value
Label ISVTP
MUMPS Implementation ORWDPS5
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method ISVTP^ORWDPS5
Method Comment True: is verbal or telephoned or policy order
Input Parameters ODIEN
Code 
 S ORY=0
 Q:'$D(^OR(100,+ODIEN,0))
 N VERB,TEL,POL,LSTACT,NATR
 S (VERB,TEL,POL,LSTACT)=0,NATR=""
 S VERB=$O(^ORD(100.02,"B","VERBAL",0))
 S TEL=$O(^ORD(100.02,"B","TELEPHONED",0))
 S POL=$O(^ORD(100.02,"B","POLICY",0))
 S LSTACT=$O(^OR(100,+ODIEN,8,"?"),-1)
 S NATR=$P(^OR(100,+ODIEN,8,LSTACT,0),U,12)
 I (NATR=VERB)!(NATR=TEL)!(NATR=POL) S ORY=1

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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