VistA Analysis » VistA Reference » RPCs » ORWRP4 HDR MODIFY

ORWRP4 HDR MODIFY

This RPC looks at data returned from the HDR and makes any modificationsnecessary to make the data compatible with CPRS Reports.

Properties

Property Value
Label HDR
MUMPS Implementation ORWRP4
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
HANDLE LITERAL 30 true Remote Broker ID needed to find data in ^XTMP(HANDLE,"D",
ID LITERAL 30 true Report ID found in field .02 of file 101.24

MUMPS Method Description

Property Value
Method HDR^ORWRP4
Method Comment Extract/Modify data from the HDR
Input Parameters HANDLE, ID
First Comment
HANDLE=Remote Broker ID in ^XTMP(HANDLE,"D",
ID=Report ID found in field .02 file 101.24
Code
 N X,ORIFN,ORID,ORCNT,ORTN,ORENT,ORRTN
S ROOT=""
I $G(HANDLE)="" S ROOT(0)="-1^Bad Handle" Q
I '$D(^XTMP(HANDLE)) S ROOT(0)="-1^Bad Handle" Q
S ORID=$O(^ORD(101.24,"AC",ID,0))
I $G(ORID)="" S ROOT(0)="-1^No ID match" Q
S ORCNT=$O(^ORD(101.24,ORID,3,"C",9999),-1)
I $G(ORCNT)="" S ROOT(0)="-1^No Columns for Report" Q
S ORTN=$P(^ORD(101.24,ORID,4),"^",6),ORENT=$P(^(4),"^",7)
I '$L(ORTN) S ROOT(0)="-1^No HDR Routine exists" Q
S ORRTN=ORENT_"^"_ORTN
I '$L($T(@ORRTN)) S ROOT(0)="-1^HDR Routine non-existant" Q
D @ORRTN

CPRS

File Type Description
Pascal File rReports.pas


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