VistA Analysis » VistA Reference » RPCs » ORWDOR LKSCRN

ORWDOR LKSCRN

Does a lookup similar to GENERIC^ORWU. Also allows passing of a referenceto a screen in the Order Dialog file to screen to lookup.

Properties

Property	Value
Label	LKSCRN
MUMPS Implementation	ORWDOR
Return Type	ARRAY

MUMPS Method Description

Property	Value
Method	LKSCRN^ORWDOR
Method Comment	Return a set of entries from xref in REF
Input Parameters	FROM, DIR, REF, GBL, SCR
First Comment	`.Y=returned list, FROM=text to $O from, DIR=$O direction, REF=subscript indirection global ref including xref, GBL=standard FM global ref, SCR=reference to screen in 101.41`
Code	`N I,IEN,CNT,X,Y,D,ORTYPE S I=0,CNT=44,SCR=$G(SCR) I $L(SCR) S SCR=$G(^ORD(101.41,+SCR,10,+$P(SCR,":",2),4)) S D=$P(REF,"""",2),ORTYPE="D" ;for OI screen F Q:I' . S IEN=0 F S IEN=$O(@REF@(FROM,IEN)) Q:'IEN D . . ; if screen, set naked ref & Y, then execute screen . . I $L(SCR) S Y=IEN,X=$P($G(@(GBL_"Y,0)")),U) X SCR Q:'$T . . S I=I+1,ORLST(I)=IEN_"^"_FROM`

CPRS

File Type	Description
Pascal File	Orders/rODBase.pas

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