VistA Analysis » VistA Reference » RPCs » ORWRP2 COMPABV

ORWRP2 COMPABV

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

Properties

Property	Value
Label	COMPABV
MUMPS Implementation	ORWRP2
Return Type	ARRAY

MUMPS Method Description

Property Value

Method COMPABV^ORWRP2

Method Comment Get ADHOD sub components listed by Abbreviation

Code

Property	Value
Method	COMPABV^ORWRP2
Method Comment	Get ADHOD sub components listed by Abbreviation
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=X2_" - "_$P(X,"^",5)_" ",$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=X2_"   - "_$P(X,"^",5)_" ",$P(ORY(I),"^",2)=X3

CPRS

File Type	Description
Pascal File	rReports.pas

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