VistA Analysis » VistA Reference » RPCs » ORWDLR OIPARAM

ORWDLR OIPARAM

No longer used.

Properties

Property Value
Label LOAD
MUMPS Implementation ORWDLR
Return Type ARRAY

MUMPS Method Description

Property Value
Method LOAD^ORWDLR
Method Comment procedure
Input Parameters TESTID
First Comment
 Return sample, specimen, & urgency info about a lab test
Code
 N X,Y,ILST,PARAM S ILST=0
S LST($$NXT)="~Test Name="_$P(^ORD(101.43,TESTID,0),U,1)
I $D(^ORD(101.43,TESTID,8))>1 S LST($$NXT)="~OIMessage"
S I=0 F S I=$O(^ORD(101.43,TESTID,8,I)) Q:'I S LST($$NXT)="t"_^(I,0)
S TESTID=+$P(^ORD(101.43,TESTID,0),U,2)
D TEST^LR7OR3(TESTID,.Y)
S PARAM="" F S PARAM=$O(Y(PARAM)) Q:PARAM="" D
. S LST($$NXT)="~"_PARAM_$S($D(Y(PARAM))>1:"",1:"="_$G(Y(PARAM)))
. I $D(Y(PARAM))>1 S I=0 F S I=$O(Y(PARAM,I)) Q:'I D
. . I PARAM="Specimens" S LST($$NXT)="i"_Y(PARAM,I) Q
. . I PARAM="Urgencies" S LST($$NXT)="i"_Y(PARAM,I) Q
. . S LST($$NXT)="i"_I_U_Y(PARAM,I)
. . I PARAM="CollSamp" D
. . . I $G(Y("Lab CollSamp")) S $P(LST(ILST),U,8)=1
. . . S X=+$P(Y(PARAM,I),U,3)
. . . I X S $P(LST(ILST),U,10)=$P($G(^LAB(61,X,0)),U,1)
. . I $D(Y(PARAM,I,"WP")) S J=0 F S J=$O(Y(PARAM,I,"WP",J)) Q:'J D
. . . S LST($$NXT)="t"_Y(PARAM,I,"WP",J,0)

CPRS

File Type Description
NOT OSEHRA CPRS  


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