VistA Analysis » VistA Reference » RPCs » ORWDXM LOADSET

ORWDXM LOADSET

Return the contents of an order set in the following format: LST(0): SetDisplayText^Key Variables LST(n): DlgIEN^DlgType^DisplayText

Properties

Property	Value
Label	LOADSET
MUMPS Implementation	ORWDXM
Return Type	ARRAY

MUMPS Method Description

Property	Value
Method	LOADSET^ORWDXM
Method Comment	Return the contents of an order set
Input Parameters	DLG
First Comment	`LST(0): SetDisplayText^Key Variables LST(n): DlgIEN^DlgType^DisplayText^OrderableItemIENs(OIIEN;OIIEN;..)`
Code	N SEQ,DA,ITM,TYP,ILST,X,OIENS,PKGINFO S LST(0)=$P(^ORD(101.41,DLG,0),U,2)_U_$$KEYVAR^ORWDXM3(DLG),ILST=0 S SEQ="" F S SEQ=$O(^ORD(101.41,DLG,10,"B",SEQ)) Q:SEQ="" D . S DA=0 F S DA=$O(^ORD(101.41,DLG,10,"B",SEQ,DA)) Q:'DA D . . S X=$G(^ORD(101.41,DLG,10,DA,0)),ITM=$P(X,U,2),X=$P(X,U,4) . . Q:'ITM Q:'$D(^ORD(101.41,+ITM,0)) . . S (OIENS,PKGINFO)="" . . S TYP=$P(^ORD(101.41,ITM,0),U,4) . . S OIENS=$$OIIFN(+ITM) . . S PKGINFO=$$PKGINF(+ITM) . . I '$L(X) S X=$P($G(^ORD(101.41,ITM,5)),U,4) . . I '$L(X) S X=$P($G(^ORD(101.41,ITM,0)),U,2) . . I '$L(X) S X="Display Name Missing" . . S ILST=ILST+1,LST(ILST)=ITM_U_TYP_U_X_U_OIENS_U_PKGINFO

CPRS

File Type	Description
Pascal File	Orders/rOrders.pas

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