Kdtop at 16:42, 8 July 2015

2015-07-08T16:42:35Z

← Older revision		Revision as of 16:42, 8 July 2015
Line 10:		Line 10:
	Public strBuffer As String * 40000		Public strBuffer As String * 40000

	'''2.''' Set the [[RPC_HELP_TRPCBroker_RemoteProcedure\|RemoteProcedure]] property of the TRPCBroker component to the RPC to execute:		'''2.''' Set the [[RPC_HELP_TRPCBroker_RemoteProcedure\|RemoteProcedure]] property of the [[RPC_HELP_TRPCBroker\|TRPCBroker]] component to the RPC to execute:
	Call RPCBPropSet(intRPCBHandle, "RemoteProcedure", "XWB GET VARIABLE VALUE")		Call RPCBPropSet(intRPCBHandle, "RemoteProcedure", "XWB GET VARIABLE VALUE")

	'''3.''' Set the [[RPC_HELP_TRPCBroker_Param\|Param]] values for any parameters needed by the [[RPC_HELP_RPCs\|RPC]]. In the following example, one TRPCBroker [[RPC_HELP_TRPCBroker_Param\|Param]]node is set (the equivalent of [[RPC_HELP_TRPCBroker_Param\|Param]][0]):		'''3.''' Set the [[RPC_HELP_TRPCBroker_Param\|Param]] values for any parameters needed by the [[RPC_HELP_RPCs\|RPC]]. In the following example, one [[RPC_HELP_TRPCBroker\|TRPCBroker]] [[RPC_HELP_TRPCBroker_Param\|Param]] node is set (the equivalent of [[RPC_HELP_TRPCBroker_Param\|Param]][0]):

	'''3a.''' A value of 0 for parameter 2 denotes the integer index of the Param node being set ([[RPC_HELP_TRPCBroker_Param\|Param]][0]).		'''3a.''' A value of 0 for parameter 2 denotes the integer index of the Param node being set ([[RPC_HELP_TRPCBroker_Param\|Param]][0]).

Kdtop: Created page with " RPC Broker Help Home DLL Interface Home

Visual Basic: Execute RPCs

If you can make a successful connection..."

2015-07-08T16:41:35Z

Created page with " RPC Broker Help Home DLL Interface Home <h2>Visual Basic: Execute RPCs</h2> If you can make a successful connection..."

New page

[[RPC_Broker_Help| RPC Broker Help Home]]

[[RPC_HELP_Other_DLL_Interface_List|DLL Interface Home]]
<h2>Visual Basic: Execute RPCs</h2>
If you can make a successful connection to the RPC Broker VistA M Server, and create an application context, you can execute any RPCs registered to your context.

To execute RPCs from your Visual Basic program:

'''1.''' Create a character buffer large enough to hold your [[RPC_HELP_RPCs|RPC]]'s return value:
Public strBuffer As String * 40000

'''2.''' Set the [[RPC_HELP_TRPCBroker_RemoteProcedure|RemoteProcedure]] property of the TRPCBroker component to the RPC to execute:
Call RPCBPropSet(intRPCBHandle, "RemoteProcedure", "XWB GET VARIABLE VALUE")

'''3.''' Set the [[RPC_HELP_TRPCBroker_Param|Param]] values for any parameters needed by the [[RPC_HELP_RPCs|RPC]]. In the following example, one TRPCBroker [[RPC_HELP_TRPCBroker_Param|Param]]node is set (the equivalent of [[RPC_HELP_TRPCBroker_Param|Param]][0]):

'''3a.''' A value of 0 for parameter 2 denotes the integer index of the Param node being set ([[RPC_HELP_TRPCBroker_Param|Param]][0]).

'''3b.''' A value of reference for parameter 3 denotes the setting for the equivalent of [[RPC_HELP_TRPCBroker_Param|Param]][0].[[RPC_HELP_TParamRecord_PType_Property|PType]]. This uses the enumerated values for [[RPC_HELP_TParamRecord_PType_Property|PType]] declared in the header file.

'''3c.''' A value of "DUZ" for parameter 4 denotes that the equivalent of [[RPC_HELP_TRPCBroker_Param|Param]][0].[[RPC_HELP_TParamRecord_Value_Property|Value]] is "DUZ":
Call RPCBParamSet(intRPCBHandle, 0, reference, "DUZ");

'''4.''' Use the ** [[RPC_HELP_DLL_ExportFN_RPCBCall|RPCBCall]] method to execute the RPC:
Call RPCBCall(intRPCBHandle, strBuffer)

The return value from the [[RPC_HELP_RPCs|RPC]] is returned in the second parameter (in this case, the Value character buffer).

RPC HELP DLL GuideLines VB Execute RPCs - Revision history

Kdtop at 16:42, 8 July 2015

Kdtop: Created page with " RPC Broker Help Home DLL Interface Home

Visual Basic: Execute RPCs