VistA Analysis » VistA Reference » RPCs » ORWU16 DEVICE

ORWU16 DEVICE

Properties

Property	Value
Label	DEVICE
MUMPS Implementation	ORWU16
Return Type	ARRAY

MUMPS Method Description

Property Value

Method DEVICE^ORWU16

Method Comment Return a list of devices

Code

Property	Value
Method	DEVICE^ORWU16
Method Comment	Return a list of devices
Code	`S I=0,DEV="" F S DEV=$O(^%ZIS(1,"B",DEV)) Q:DEV="" S IEN=$O(^(DEV,0)) D . I $E($G(^%ZIS(2,+$G(^%ZIS(1,IEN,"SUBTYPE")),0)))'="P" Q . I $P($G(^%ZIS(1,IEN,0)),U,12)=2 Q . S I=I+1,Y(I)=IEN_";"_$P(^%ZIS(1,IEN,0),U)_U_DEV_U_$P($G(^(1)),U)_U_$P($G(^(90)),U)_U_$P(^(91),U)_U_$P(^(91),U,3)`

 S I=0,DEV=""
 F  S DEV=$O(^%ZIS(1,"B",DEV)) Q:DEV=""  S IEN=$O(^(DEV,0)) D
 . I $E($G(^%ZIS(2,+$G(^%ZIS(1,IEN,"SUBTYPE")),0)))'="P" Q
 . I $P($G(^%ZIS(1,IEN,0)),U,12)=2 Q
 . S I=I+1,Y(I)=IEN_";"_$P(^%ZIS(1,IEN,0),U)_U_DEV_U_$P($G(^(1)),U)_U_$P($G(^(90)),U)_U_$P(^(91),U)_U_$P(^(91),U,3)

CPRS

File Type	Description
NOT OSEHRA CPRS

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