VistA Analysis » VistA Reference » RPCs » ORWRP2 COMPDISP

ORWRP2 COMPDISP

This RPC returns an array of the ADHOC Health Summary components by display name.

Properties

Property	Value
Label	COMPDISP
MUMPS Implementation	ORWRP2
Return Type	ARRAY

MUMPS Method Description

Property Value

Method COMPDISP^ORWRP2

Method Comment Get ADHOD sub components listed by Display Name

Code

Property	Value
Method	COMPDISP^ORWRP2
Method Comment	Get ADHOD sub components listed by Display Name
Code	`N I,X,X1,X2,X3 D COMP^GMTSADH5(.ORY) S I=0 F S I=$O(ORY(I)) Q:'I S X=ORY(I) D . S X1=$P($P(X,"^",2),"["),X1=$E(X1,1,$L(X1)-1),X2=$P($P(X,"^",2),"[",2),X2=$E(X2,1,$L(X2)-1) . S X3=$P(X,"^",5)_" ["_X2_"]",$P(ORY(I),"^",2)=X3`

 N I,X,X1,X2,X3
 D COMP^GMTSADH5(.ORY)
 S I=0
 F  S I=$O(ORY(I)) Q:'I  S X=ORY(I) D
 . S X1=$P($P(X,"^",2),"["),X1=$E(X1,1,$L(X1)-1),X2=$P($P(X,"^",2),"[",2),X2=$E(X2,1,$L(X2)-1)
 . S X3=$P(X,"^",5)_"   ["_X2_"]",$P(ORY(I),"^",2)=X3

CPRS

File Type	Description
Pascal File	rReports.pas

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