VistA Analysis » VistA Reference » RPCs » ORWDPS32 ALLROUTE

ORWDPS32 ALLROUTE

Returns a list of all available medication routes.

Properties

Property	Value
Label	ALLROUTE
MUMPS Implementation	ORWDPS32
Return Type	ARRAY

MUMPS Method Description

Property Value

Method ALLROUTE^ORWDPS32

Method Comment returns a list of all available med routes

Code

Property	Value
Method	ALLROUTE^ORWDPS32
Method Comment	returns a list of all available med routes
Code	`N I,X,ILST S ILST=0 K ^TMP($J,"ORWDPS32 ALLROUTE") D ALL^PSS51P2(,"??",,,"ORWDPS32 ALLROUTE") S I=0 F S I=$O(^TMP($J,"ORWDPS32 ALLROUTE",I)) Q:'I D . I +$P(^TMP($J,"ORWDPS32 ALLROUTE",I,3),U)>0 S LST($$NXT)=I_U_^TMP($J,"ORWDPS32 ALLROUTE",I,.01)_U_^TMP($J,"ORWDPS32 ALLROUTE",I,1) K ^TMP($J,"ORWDPS32 ALLROUTE")`

 N I,X,ILST
 S ILST=0
 K ^TMP($J,"ORWDPS32 ALLROUTE")
 D ALL^PSS51P2(,"??",,,"ORWDPS32 ALLROUTE")
 S I=0 F  S I=$O(^TMP($J,"ORWDPS32 ALLROUTE",I)) Q:'I  D
 . I +$P(^TMP($J,"ORWDPS32 ALLROUTE",I,3),U)>0 S LST($$NXT)=I_U_^TMP($J,"ORWDPS32 ALLROUTE",I,.01)_U_^TMP($J,"ORWDPS32 ALLROUTE",I,1)
 K ^TMP($J,"ORWDPS32 ALLROUTE")

CPRS

File Type	Description
Pascal File	Orders/rODBase.pas

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