RPC HELP DLL GuideLines VB Execute RPCs
Visual Basic: Execute RPCs
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's return value:
Public strBuffer As String * 40000
2. Set the RemoteProcedure property of the TRPCBroker component to the RPC to execute:
Call RPCBPropSet(intRPCBHandle, "RemoteProcedure", "XWB GET VARIABLE VALUE")
3. Set the Param values for any parameters needed by the RPC. In the following example, one TRPCBroker Param node is set (the equivalent of Param[0]):
3a. A value of 0 for parameter 2 denotes the integer index of the Param node being set (Param[0]).
3b. A value of reference for parameter 3 denotes the setting for the equivalent of Param[0].PType. This uses the enumerated values for PType declared in the header file.
3c. A value of "DUZ" for parameter 4 denotes that the equivalent of Param[0].Value is "DUZ":
Call RPCBParamSet(intRPCBHandle, 0, reference, "DUZ");
4. Use the ** RPCBCall method to execute the RPC:
Call RPCBCall(intRPCBHandle, strBuffer)
The return value from the RPC is returned in the second parameter (in this case, the Value character buffer).
