iSharkFly-Open
/
VistA-BMXNET_RPMS_dotNET_UTILITIES-BMX
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated bmxTesterForVista to support RPMS. Compile using VISTA or RPMS flag

This commit is contained in:
sam 2011-03-05 11:32:01 +00:00
parent 7ad0c43a70
commit e6fa474312
3 changed files with 27 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cs/bmx_0200scr/BMX2/BMXCmdTester/BMXCmdTester.csproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@ -10,7 +10,7 @@
<AppDesignerFolder>Properties</AppDesignerFolder>
<RootNamespace>BMXCmdTester</RootNamespace>
<AssemblyName>BMXCmdTester</AssemblyName>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
<FileAlignment>512</FileAlignment>
<FileUpgradeFlags>
</FileUpgradeFlags>
@ -37,9 +37,11 @@
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DefineConstants>DEBUG;TRACE;RPMS</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
<Externalconsole>true</Externalconsole>
<Commandlineparameters>127.0.0.1 9101 system.01 user.003</Commandlineparameters>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
@ -54,14 +56,7 @@
<Reference Include="System.Core">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Xml.Linq">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Data.DataSetExtensions">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Data" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Compile Include="bmxTesterForVista_0200.cs" />
@ -72,9 +67,6 @@
<Name>BMXNet</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<Folder Include="Properties\" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.0">
<Visible>False</Visible>
@ -98,6 +90,7 @@
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

BIN
cs/bmx_0200scr/BMX2/BMXCmdTester/bin/Release/BMXCmdTester.exe
View File

Binary file not shown.

36
cs/bmx_0200scr/BMX2/BMXCmdTester/bmxTesterForVista_0200.cs
View File

@ -5,26 +5,25 @@ namespace SamsStuff.IHS.BMX
{
class MyFirstApp
{
static void Main()
static void Main(string[] args)
{
if (args.Length < 4)
{
Console.WriteLine("Enter parameters as server port ac vc");
return;
}
BMXNetLib ConnectionManager = new BMXNetLib();
Console.Write("Enter IP Address of Server: ");
string ip = Console.ReadLine();
Console.Write("Enter the listener port: ");
string port = Console.ReadLine();
int portno = int.Parse(port);
Console.Write("Enter your Access Code: ");
string accessCode = Console.ReadLine();
Console.Write("Enter your Verify Code: ");
string verifyCode = Console.ReadLine();
string ip = args[0];
int portno = int.Parse(args[1]);
string accessCode = args[2];
string verifyCode = args[3];
ConnectionManager.MServerPort = portno;
bool success = ConnectionManager.OpenConnection(ip, accessCode, verifyCode);
Console.WriteLine("Connected: " + success.ToString() + " DUZ: " + ConnectionManager.DUZ);
ConnectionManager.AppContext = "BMXRPC";
string result = ConnectionManager.TransmitRPC("BMX USER", ConnectionManager.DUZ);
Console.WriteLine("Simple RPC: User Name: " + result);
result = ConnectionManager.TransmitRPC("BMX UTF-8", "");
Console.WriteLine("UTF-8 stuff: " + result);
//string result =
ConnectionManager.AppContext = "OR CPRS GUI CHART";
@ -59,7 +58,7 @@ namespace SamsStuff.IHS.BMX
da.Fill(ds,"BMXNetTable1");
System.Data.DataTable dt = new System.Data.DataTable();
dt = ds.Tables["BMXNetTable1"];
System.Text.StringBuilder sb = new System.Text.StringBuilder();
System.Text.StringBuilder sb = new System.Text.StringBuilder();
for (int i = 0; i < dt.Rows.Count; i++)
{
for (int j = 0; j < dt.Columns.Count; j++)
@ -74,10 +73,17 @@ namespace SamsStuff.IHS.BMX
Console.WriteLine();
Console.WriteLine("More complicated SQL\n");
BMXNetCommand cmd3 = (BMXNetCommand)conn.CreateCommand();
cmd3.CommandText = String.Empty; // Default
#if VISTA
cmd3.CommandText = @"SELECT PATIENT.NAME 'NAME', PATIENT.STATE 'STATE',
STATE.ABBREVIATION 'ABBR', PATIENT.AGE 'AGE' FROM PATIENT, STATE
WHERE INTERNAL[PATIENT.STATE] = STATE.BMXIEN MAXRECORDS:5";
da.SelectCommand = cmd3;
#elif RPMS
cmd3.CommandText = @"SELECT VA_PATIENT.NAME 'NAME', VA_PATIENT.STATE 'STATE',
STATE.ABBREVIATION 'ABBR', VA_PATIENT.AGE 'AGE' FROM VA_PATIENT, STATE
WHERE INTERNAL[VA_PATIENT.STATE] = STATE.BMXIEN MAXRECORDS:5";
#endif
da.SelectCommand = cmd3;
da.Fill(ds, "BMXNetTable2");
System.Data.DataTable dt2 = new System.Data.DataTable();
dt2 = ds.Tables["BMXNetTable2"];
@ -102,4 +108,4 @@ namespace SamsStuff.IHS.BMX
ConnectionManager.CloseConnection();
}
}
}
}