VistA Analysis » VistA Reference » RPCs » ORWUL QVSUB

ORWUL QVSUB

Properties

Property Value
Label QVSUB
MUMPS Implementation ORWUL
Return Type ARRAY

MUMPS Method Description

Property Value
Method QVSUB^ORWUL
Method Comment return subset of orders in view
Input Parameters IEN, FIRST, LAST
Code 
 N I,J,ID ;117
 I $L(FIRST),$L(LAST) D
 . F I=+FIRST:1:+LAST D
 .. I $D(^ORD(101.44,IEN,10,I,0))>0 D
 ... I '$$QODIS(IEN,I) S LST(I)=^ORD(101.44,IEN,10,I,0)
 E  D
 . S (I,J)=0 F  S I=$O(^ORD(101.44,IEN,10,I)) Q:'+I  I '$$QODIS(IEN,I) S J=J+1,LST(J)=^ORD(101.44,IEN,10,I,0) ;117

CPRS

File Type Description
Pascal File Orders/rODLab.pas
Pascal File Orders/rODMeds.pas


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