RPC's with Visual Cpp - Revision history

Cmdupre at 21:08, 20 July 2007

2007-07-20T21:08:19Z

← Older revision		Revision as of 21:08, 20 July 2007
Line 92:		Line 92:

	RPCBroker.RPCBPropSet("Connected","0");		RPCBroker.RPCBPropSet("Connected","0");


			[[User:cmdupre]]

Cmdupre at 21:04, 20 July 2007

2007-07-20T21:04:31Z

← Older revision		Revision as of 21:04, 20 July 2007
Line 1:		Line 1:
	First you will need to install the RPC Broker Kit (available at ftp://ftp.va.gov).		First you will need to install the RPC Broker Kit (available at ftp://ftp.va.gov). For Example1, I created an M program and set-up the Remote Procedures File accordingly.

	Copy Bapi32.hpp into your Visual C++ project's header files directory.		Copy Bapi32.hpp into your Visual C++ project's header files directory.
Line 32:		Line 32:
	for (int j=0;j<num2.GetLength();j++)		for (int j=0;j<num2.GetLength();j++)
	num2c[j]=num2[j];		num2c[j]=num2[j];

			RPCBroker.RPCBPropSet("RemoteProcedure","TEST");
	RPCBroker.RPCBPropSet("ClearParameters","1");		RPCBroker.RPCBPropSet("ClearParameters","1");
	RPCBroker.RPCBPropSet("ClearResults","1");		RPCBroker.RPCBPropSet("ClearResults","1");

Cmdupre at 20:53, 20 July 2007

2007-07-20T20:53:50Z

← Older revision		Revision as of 20:53, 20 July 2007
Line 15:		Line 15:
	Variable declarations for my examples:		Variable declarations for my examples:
	char * result = "";		char * result = "";
	CString num1;		CString num1="";
	CString num2;		CString num2="";
	CString num3;		CString num3="";
	char num1c[10]="";		char num1c[10]="";
	char num2c[10]="";		char num2c[10]="";
	CString name;		CString name="";
	char namec[255]="";		char namec[255]="";
	int Ulocation=0;		int Ulocation=0;
Line 27:		Line 27:

	Example 1: This example takes two user-specified integers, passes those integers to VistA, and receives the sum.		Example 1: This example takes two user-specified integers, passes those integers to VistA, and receives the sum.

			for (int i=0;i<num1.GetLength();i++)
			num1c[i]=num1[i];
			for (int j=0;j<num2.GetLength();j++)
			num2c[j]=num2[j];

	RPCBroker.RPCBPropSet("ClearParameters","1");		RPCBroker.RPCBPropSet("ClearParameters","1");

Cmdupre: Remote Procedure Calls via Visual C++

2007-07-20T20:48:15Z

Remote Procedure Calls via Visual C++

New page

First you will need to install the RPC Broker Kit (available at ftp://ftp.va.gov).

Copy Bapi32.hpp into your Visual C++ project's header files directory.

In Visual Studio, right-click on your "Header Files" folder and click "Add Files to Folder..." Add Bapi32.hpp. Be sure to add an include line for this header file in one of your source files:

#include "Bapi32.hpp"

In your dialog cpp file, create a new global instance of TRPCBroker:

TRPCBroker RPCBroker;

Variable declarations for my examples:
char * result = "";
CString num1;
CString num2;
CString num3;
char num1c[10]="";
char num2c[10]="";
CString name;
char namec[255]="";
int Ulocation=0;

Example 1: This example takes two user-specified integers, passes those integers to VistA, and receives the sum.

RPCBroker.RPCBPropSet("ClearParameters","1");
RPCBroker.RPCBPropSet("ClearResults","1");
RPCBroker.RPCBPropSet("Server","brokerserver");
RPCBroker.RPCBPropSet("ListenerPort","9200");

RPCBroker.RPCBParamSet(0,0,num1c);
RPCBroker.RPCBParamSet(1,0,num2c);

try
{
result = RPCBroker.RPCBCall("");
}
catch ( ... )
{
MessageBox("Runtime Error","RPCBroker Call");
result = "Error";
}
num3=result;

Example 2: This example uses the server settings as shown in Example 1; This code will ask VistA for the user's DUZ, then request the user's name, ip address, current port number, server operating system, and current job number.

RPCBroker.RPCBPropSet("Connected","1"); //Displays VistA sign-on splash screen
RPCBroker.RPCBPropSet("RemoteProcedure","XWB GET VARIABLE VALUE");
RPCBroker.RPCBParamSet(0,1,"DUZ");
result = RPCBroker.RPCBCall("");
name.Format("^VA(200,%s,0)",result);
for (int i1=0;i1<name.GetLength();i1++)
namec[i1]=name[i1];
RPCBroker.RPCBParamSet(0,1,namec);
result = RPCBroker.RPCBCall("");
namebox = result;
for (int i2=0;i2<namebox.GetLength();i2++)
{
if (result[i2]==94)
{
Ulocation=i2;
i2=namebox.GetLength();
}
}
namebox = namebox.Mid(0,Ulocation);
RPCBroker.RPCBParamSet(0,1,"XWBTIP");
result = RPCBroker.RPCBCall("");
ipbox = result;
RPCBroker.RPCBParamSet(0,1,"XWBTSKT");
result = RPCBroker.RPCBCall("");
portbox=result;
RPCBroker.RPCBParamSet(0,1,"$ZV");
result = RPCBroker.RPCBCall("");
osbox = result;
RPCBroker.RPCBParamSet(0,1,"$J");
result = RPCBroker.RPCBCall("");
jobbox = result;

Example 3: This example disconnects the previous server.

RPCBroker.RPCBPropSet("Connected","0");