VistA Analysis » VistA Reference » RPCs » ORWCV1 COVERSHEET LIST

ORWCV1 COVERSHEET LIST

This remote procedure call returns a list of Cover Sheet reports,There are no input parameters fo this rpc.

Properties

Property Value
Label COVERLST
MUMPS Implementation ORWCV1
Return Type ARRAY

MUMPS Method Description

Property Value
Method COVERLST^ORWCV1
Method Comment return data for coversheet
First Comment
RPC: ORWCV1 COVERSHEET LIST
Code
 N I,J,X,X0,X2,CNT,EOF,ROOT,RPC,LIST,DETAIL,HEAD
S EOF="$$END",ROOT=$NA(LST),(CNT,I)=0
D GETLST^XPAR(.LIST,"ALL","ORWCV1 COVERSHEET LIST")
F S I=$O(LIST(I)) Q:'I Q:'$D(^ORD(101.24,$P(LIST(I),"^",2),0)) S X0=^(0),X2=$G(^(2)) D
. Q:$P(X0,"^",12)="L"
. S RPC=$P($G(^XWB(8994,+$P(X0,"^",13),0)),"^"),DETAIL=""
. I $P(X0,"^",18) S DETAIL=$P($G(^ORD(101.24,+$P(X0,"^",18),0)),"^",13),DETAIL=$P($G(^XWB(8994,+DETAIL,0)),"^")
. S HEAD=$P(X0,"^") I $L($P(X2,"^",3)) S HEAD=$P(X2,"^",3)
. S X=$P(X0,"^",2)_"^"_HEAD_"^"_$P(X0,"^",3)_"^"_$P(X0,"^",12)_"^"_$P(X0,"^",7)_"^"_RPC_"^"_$P(X0,"^",9)
. S X=X_"^"_$P(X0,"^",10)_"^"_$P(X0,"^",11)_"^"_$P(X0,"^",14)_"^"_$P(X0,"^",15)_"^"_$P(X2,"^")_"^"_$P(X0,"^",4)_"^"_$P(X0,"^",16)_"^"_$P(X0,"^",17)_"^"_DETAIL_"^"_LIST(I)
. D SETITEM(.ROOT,X)

CPRS

File Type Description
Pascal File rCover.pas


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