VistA Analysis » VistA Reference » RPCs » ORWDLR32 ONE SAMPLE

ORWDLR32 ONE SAMPLE

Returns data for one collection sample in the format: n^SampIEN^SampName^SpecPtr^TubeTop^^^LabCollect^^SpecName

Properties

Property	Value
Label	ONESAMP
MUMPS Implementation	ORWDLR32
Return Type	ARRAY

Input Parameters

Name	Type	Maximum Data Length	Required	Description
COLL SAMP IEN	LITERAL	32	true

MUMPS Method Description

Property	Value
Method	ONESAMP^ORWDLR32
Method Comment	Return data for one colelction sample
Input Parameters	IEN
First Comment	`n^SampIEN^SampName^SpecPtr^TubeTop^^^LabCollect^^SpecName`
Code	`N SPC,ILST,X,X0 Q:+$G(IEN)=0 S ILST=0,LST($$NXT)="~CollSamp" S X0=^LAB(62,IEN,0) S X="i1"_U_IEN_U_$P(X0,U,1)_U_$P(X0,U,2)_U_$P(X0,U,3)_U_U_U_$P(X0,U,7) I $P(X0,U,2) D . S $P(X,U,10)=$P(^LAB(61,+$P(X0,U,2),0),U,1) . S SPC($P(X,U,4))=$P(X,U,10) S LST($$NXT)=X S LST($$NXT)="~Specimens" S SPC=0 F S SPC=$O(SPC(SPC)) Q:'SPC S LST($$NXT)=SPC_U_SPC(SPC)`

CPRS

File Type	Description
Pascal File	Orders/rODLab.pas

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