VistA Analysis » VistA Reference » RPCs » ORWDPS32 VALROUTE

ORWDPS32 VALROUTE

Returns the IEN for a route if the name is valid.

Properties

Property Value
Label VALROUTE
MUMPS Implementation ORWDPS32
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method VALROUTE^ORWDPS32
Method Comment validates route name & returns IEN + abbreviation
Input Parameters X
Code 
 N ABBR,NAME,IEN
 K ^TMP($J,"ORWDPS32 VALROUTE")
 S X=$$UPPER(X)
 D ALL^PSS51P2(,X,,1,"ORWDPS32 VALROUTE")
 I $P(^TMP($J,"ORWDPS32 VALROUTE",0),U)=-1 K ^TMP($J,"ORWDPS32 VALROUTE") S REC=0 Q
 S IEN=$O(^TMP($J,"ORWDPS32 VALROUTE","B",X,""))
 I IEN'>0 S IEN=$O(^TMP($J,"ORWDPS32 VALROUTE","C",X,""))
 I IEN'>0 S REC=0 Q
 S NAME=$G(^TMP($J,"ORWDPS32 VALROUTE",IEN,.01))
 S ABBR=$G(^TMP($J,"ORWDPS32 VALROUTE",IEN,1))
 I '$L(ABBR) S ABBR=NAME
 I ($$UPPER(NAME)'=X),($$UPPER(ABBR)'=X) S REC=0 K ^TMP($J,"ORWDPS32 VALROUTE") Q
 S REC=IEN_U_ABBR
 K ^TMP($J,"ORWDPS32 VALROUTE")

CPRS

File Type Description
Pascal File Orders/rODBase.pas


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