VistA Analysis » VistA Reference » RPCs » XWB REMOTE RPC

XWB REMOTE RPC

This is the RPC that is called to request that an application RPCbe run on a remote system. The data is passed by HL7 to the remote systemas is the return value. This RPC will return a HANDLE that can be used to check if the data hasbeen sent back from the remote system. The HANDLE can be used in anotherRPC to check the status of the RPC.

Properties

Property Value
Label EN1
MUMPS Implementation XWB2HL7
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
LOC LITERAL 30 true This is the Institution's station # to send the RPC to.
RRPC LITERAL 30 true This is the name of the remote RPC to be run.
IP1 LITERAL     This is the first input parameter to the remote RPC.
IP2 LITERAL     This is the second input parameter to the remote RPC.

MUMPS Method Description

Property Value
Method EN1^XWB2HL7
Method Comment Call a remote RPC
Input Parameters LOC, RPC, RPCVER, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10
First Comment 
 with 1-10 parameters.
 (This reworked EN1 emtry point replaces the original EN1 entry point,
 which was renamed OLDEN1.)
Code 
 N I,INX,N,PMAX,RPCIEN,X,XWBDVER,XWBESSO,XWBHDL,XWBHL7,XWBMSG
 N XWBPAR,XWBPCNT,XWBSEC,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
 D SETUP(1) I $G(RET(1))'="" QUIT  ;->
 S ZTSAVE("*")="",ZTRTN="DEQ^XWB2HL7C",ZTDTH=$H,ZTIO=""
 S ZTDESC="RPC Broker queued call from EN1~XWB2HL7"
 D ^%ZTLOAD
 I $G(ZTSK)'>0 S RET(0)="-1^Failed to task" QUIT  ;->
 S RET(0)=XWBHDL
 D SETNODE^XWBDRPC(XWBHDL,"TASK",ZTSK)

CPRS

File Type Description
Pascal File rLabs.pas
Pascal File rReports.pas


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