VistA Analysis » VistA Reference » RPCs » ORWD1 COMLOC

ORWD1 COMLOC

Returns true if all orders in a list have a common ordering location.

Properties

Property Value
Label COMLOC
MUMPS Implementation ORWD1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method COMLOC^ORWD1
Method Comment Return common location for orders in list, if any
Input Parameters ORDERS
Code 
 N I
 S LOC=0,I=0
 F  S I=$O(ORDERS(I)) Q:'I  D  Q:LOC
 . I $P(ORDERS(I),U,2)'["R",($P(ORDERS(I),U,2)'["S") Q
 . S LOC=+$P($G(^OR(100,+ORDERS(I),0)),U,10)
 I LOC F  S I=$O(ORDERS(I)) Q:'I  D  Q:'LOC
 . I $P(ORDERS(I),U,2)'["R",($P(ORDERS(I),U,2)'["S") Q
 . I (+$P($G(^OR(100,+ORDERS(I),0)),U,10)'=LOC) S LOC=0

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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