VistA Analysis » VistA Reference » RPCs » ORWDLR32 ALLSPEC

ORWDLR32 ALLSPEC

Returns a list of specimens from the TOPOGRAPHY FIELD file (#61).

Properties

Property Value
Label ALLSPEC
MUMPS Implementation ORWDLR33
Return Type ARRAY

MUMPS Method Description

Property Value
Method ALLSPEC^ORWDLR33
Method Comment Return a set of specimens from topography file
Input Parameters FROM, DIR
Code 
 N I,IEN,CNT,A,%,NOW,B
 D NOW^%DTC S NOW=$P(%,".")
 S I=0,CNT=44
 F  Q:I' . S IEN=0 F  S IEN=$O(^LAB(61,"B",FROM,IEN)) Q:'IEN  D
 . . S A=$G(^LAB(61,IEN,64.91)) S B=$P(A,"^",3) I B]"",B'>NOW Q
 . . S I=I+1,Y(I)=IEN_U_FROM_"  ("_$P($G(^LAB(61,IEN,0)),U,2)_")"

CPRS

File Type Description
Pascal File Orders/rODLab.pas


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