Index: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/BMXCmdTester.csproj
===================================================================
--- BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/BMXCmdTester.csproj (revision 887)
+++ BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/BMXCmdTester.csproj (revision 887)
@@ -0,0 +1,65 @@
+
+
+
+ Debug
+ AnyCPU
+ 9.0.30729
+ 2.0
+ {25C6E4FD-16F0-49E0-B0BA-6126E451F5D6}
+ Exe
+ Properties
+ BMXCmdTester
+ BMXCmdTester
+ v3.5
+ 512
+
+
+ true
+ full
+ false
+ bin\Debug\
+ DEBUG;TRACE
+ prompt
+ 4
+
+
+ pdbonly
+ true
+ bin\Release\
+ TRACE
+ prompt
+ 4
+
+
+
+
+ 3.5
+
+
+ 3.5
+
+
+ 3.5
+
+
+
+
+
+
+
+
+
+
+ {DE8E4CC9-4F3A-4E32-8DFE-EE5692E8FC45}
+ BMXNet
+
+
+
+
+
Index: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/bin/Debug/BMXCmdTester.vshost.exe.manifest
===================================================================
--- BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/bin/Debug/BMXCmdTester.vshost.exe.manifest (revision 887)
+++ BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/bin/Debug/BMXCmdTester.vshost.exe.manifest (revision 887)
@@ -0,0 +1,11 @@
+
+
+
+
+
+
+
+
+
+
+
Index: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/bmxTesterForVista_0200.cs
===================================================================
--- BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/bmxTesterForVista_0200.cs (revision 887)
+++ BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXCmdTester/bmxTesterForVista_0200.cs (revision 887)
@@ -0,0 +1,103 @@
+using System;
+using IndianHealthService.BMXNet;
+
+namespace SamsStuff.IHS.BMX
+{
+ class MyFirstApp
+ {
+ static void Main()
+ {
+ 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();
+ 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);
+
+ //string result =
+ ConnectionManager.AppContext = "OR CPRS GUI CHART";
+ result = ConnectionManager.TransmitRPC("ORWU NEWPERS","A^1");
+ Console.WriteLine("CPRS RPC with Parameters: ");
+ Console.WriteLine(result);
+ Console.WriteLine();
+ Console.WriteLine("SQL Statement");
+ //string cmd = "SELECT NAME,SEX,DATE_OF_BIRTH FROM PATIENT";
+ string cmd = "SELECT * FROM HOLIDAY";
+ RPMSDb dbTables = new RPMSDb(ConnectionManager);
+ RPMSDb.RPMSDbResultSet rs = new RPMSDb.RPMSDbResultSet();
+ dbTables.Execute(cmd, out rs);
+ for (int i = 0; i < rs.data.GetLength(0); i++)
+ {
+ Console.WriteLine();
+ for (int j = 0; j < rs.data.GetLength(1); j++)
+ {
+ if (rs.data[i, j] != null)
+ Console.Write(rs.data[i, j].ToString() + "\t");
+ }
+ }
+ Console.WriteLine();
+ Console.WriteLine("BMX Schema RPC");
+ ConnectionManager.AppContext = "BMXRPC";
+ BMXNetConnection conn = new BMXNetConnection(ConnectionManager);
+ BMXNetCommand cmd2 = (BMXNetCommand) conn.CreateCommand();
+ cmd2.CommandText = "BMX DEMO^S^10";
+ BMXNetDataAdapter da = new BMXNetDataAdapter();
+ da.SelectCommand = cmd2;
+ System.Data.DataSet ds = new System.Data.DataSet();
+ da.Fill(ds,"BMXNetTable1");
+ System.Data.DataTable dt = new System.Data.DataTable();
+ dt = ds.Tables["BMXNetTable1"];
+ 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++)
+ {
+ sb.Append(dt.Rows[i][j]);
+ sb.Append("\t");
+ }
+ sb.Append("\n");
+ }
+ Console.WriteLine();
+ Console.Write(sb);
+ Console.WriteLine();
+ Console.WriteLine("More complicated SQL\n");
+ BMXNetCommand cmd3 = (BMXNetCommand)conn.CreateCommand();
+ 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;
+ da.Fill(ds, "BMXNetTable2");
+ System.Data.DataTable dt2 = new System.Data.DataTable();
+ dt2 = ds.Tables["BMXNetTable2"];
+ System.Text.StringBuilder sb2 = new System.Text.StringBuilder();
+ for (int i = 0; i < dt2.Columns.Count; i++)
+ {
+ sb2.Append(dt2.Columns[i].ColumnName);
+ sb2.Append("\t");
+ }
+ sb2.Append("\n");
+ for (int i = 0; i < dt2.Rows.Count; i++)
+ {
+ for (int j = 0; j < dt2.Columns.Count; j++)
+ {
+ sb2.Append(dt2.Rows[i][j]);
+ sb2.Append("\t");
+ }
+ sb2.Append("\n");
+ }
+ Console.Write(sb2);
+ Console.ReadKey();
+ ConnectionManager.CloseConnection();
+ }
+ }
+}
Index: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXNet/bmxnet.xml
===================================================================
--- BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXNet/bmxnet.xml (revision 887)
+++ BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/cs/bmx_0200scr/BMX2/BMXNet/bmxnet.xml (revision 887)
@@ -0,0 +1,447 @@
+
+
+
+ BMXNet21
+
+
+
+
+ Prompts for RPMS Server address and port
+ Obtains current values, if any, from isolated storage
+ and uses them as defaults.
+ If OK, then writes values to isolated storage and returns
+ Address and Port as properties.
+
+
+
+
+
+ Required designer variable.
+
+
+
+
+ Clean up any resources being used.
+
+
+
+
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
+
+
+
+
+ If b is true, moves member vars into control data
+ otherwise, moves control data into member vars
+
+
+
+
+
+ Gets/sets the internet address of the RPMS Server
+
+
+
+
+ Gets/sets the namespace of the RPMS Server
+
+
+
+
+ Gets/sets the TCP/IP Port of the RPMS Server
+
+
+
+
+ Summary description for DSelectDivision.
+
+
+
+
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
+
+
+
+
+ If b is true, moves member vars into control data
+ otherwise, moves control data into member vars
+
+
+
+
+
+ Clean up any resources being used.
+
+
+
+
+ BMXNetLib implements low-level socket connectivity to RPMS databases.
+ The VA RPC Broker must be running on the RPMS server in order for
+ BMXNetLib to connect.
+
+
+
+
+ Main constructor with default machine encoding
+
+
+
+
+ Constructor specifiying encoding
+
+ String name of character set
+
+
+
+ Corresponds to M's $L(STRING,DELIMITER)
+
+
+
+
+
+
+
+ Corresponds to M's $$Piece function
+
+
+
+
+
+
+
+
+ Given strInput = "13" builds "013" if nLength = 3. Default for nLength is 3.
+
+
+
+
+
+
+ Given strInput = "13" builds "013" if nLength = 3 Default for nLength is 3.
+
+
+ Default = 3
+
+
+
+
+ Concatenates zero-padded length of sInput to sInput
+ Given "Hello" returns "004Hello"
+ If nSize = 5, returns "00004Hello"
+ Default for nSize is 3.
+
+
+
+
+
+
+ Concatenates zero-padded length of sInput to sInput
+ Given "Hello" returns "004Hello"
+ If nSize = 5, returns "00004Hello"
+ Default for nSize is 3.
+
+
+
+
+
+
+
+ Build protocol header
+
+
+
+
+
+
+
+
+
+ Returns index of first instance of sSubString in sString.
+ If sSubString not found, returns -1.
+
+
+
+
+
+
+
+ Lock a local or global M variable
+ Returns true if lock is obtained during TimeOut seconds
+ Use + to increment, - to decrement lock.
+
+
+
+
+
+
+
+
+ Returns a reference to the internal ReaderWriterLock member.
+
+
+
+
+ Sets and returns the timeout in milliseconds for locking the transmit port.
+ If the transmit port is unavailable an ApplicationException will be thrown.
+
+
+
+
+ Set and retrieve the timeout, in milliseconds, to receive a response from the RPMS server.
+ If the retrieve time exceeds the timeout, an exception will be thrown and the connection will be closed.
+ The default is 30 seconds.
+
+
+
+
+ Gets/sets the Kernel Application context
+ Throws an exception if unable to set the context.
+
+
+
+
+ Gets or Sets the Default Encoder to use
+
+
+
+
+ Custom exception class for BMXNet
+
+
+
+
+ Returns the array of RMPSResultSets retrieved from RPMS
+
+
+
+
+ Sets and Returns the current recordset
+
+
+
+
+ Summary description for DLoginInfo.
+
+
+
+
+ Required designer variable.
+
+
+
+
+ Required method for Designer support - do not modify
+ the contents of this method with the code editor.
+
+
+
+
+ Clean up any resources being used.
+
+
+
+
+ If b is true, moves member vars into control data
+ otherwise, moves control data into member vars
+
+
+
+
+
+ Gets the access code entered by the user.
+
+
+
+
+ Gets the verify code entered by the user.
+
+
+
+
+ Contains methods and properties to support RPMS Login for .NET applications
+
+
+
+
+ BMXNetConnector With Default Encoding (invokes BMXNetLib)
+
+
+
+
+ BMXNetConnector with a specific encoding
+
+ String representation of encoding (e.g. windows-1256 for arabic).
+ If encoding is not found, we fall back to the default windows encoding. A debug message
+ is printed to that effect.
+
+
+
+ Register interest in an RPMS event.
+
+
+
+
+
+
+ Unregister an RPMS event
+
+
+
+
+
+
+ Raise an RPMS event
+
+ The name of the event to raise
+ Parameters associated with the event
+ True if the event should be raised back to the caller
+
+
+
+
+ For backwards compatibility. Internally calls LoadConnectInfo()
+
+
+
+
+ Change the internet address and port of the RPMS server
+ Throws a BMXNetException if user cancels
+
+
+
+
+ Called to connect to an M server
+ Server address, port, Access and Verify codes will be
+ prompted for depending on whether these values are
+ cached.
+
+
+
+
+ Called to connect to the M server specified by
+ server address and listener port. The default namespace on the server will be used.
+ Access and Verify codes will be prompted if
+ valid values for the current Windows Identity are
+ not cached on the server.
+
+ The IP address or name of the MServer
+ The port on which the BMXNet Monitor is listening
+
+
+
+ Called to connect to the M server specified by
+ server address, listener port and namespace.
+ Access and Verify codes will be prompted if
+ valid values for the current Windows Identity are
+ not cached on the server.
+
+ The IP address or name of the MServer
+ The port on which the BMXNet Monitor is listening
+ The namespace in which the BMXNet application will run
+
+
+
+ Called to connect to an M server
+ using specific Access and Verify codes.
+ Server address and port will be prompted if they
+ are not cached in local storage.
+
+ The user's access code
+ The user's verify code
+
+
+
+ Called to connect to a specific M server
+ using specific Access and Verify codes.
+
+ The user's access code
+ The user's verify code
+ The IP address or name of the MServer
+ The port on which the BMXNet Monitor is listening
+
+
+
+ Called to connect to a specific namespace on the M server
+ using specific Access and Verify codes.
+
+ The user's access code
+ The user's verify code
+ The IP address or name of the MServer
+ The port on which the BMXNet Monitor is listening
+ The namespace in which the BMXNet application will run
+
+
+
+ Creates and names a DataTable using the command in CommandString
+ and the name in TableName.
+
+ The SQL or RPC call
+ The name of the resulting table
+
+ Returns the resulting DataTable.
+
+
+
+
+ Creates and names a DataTable using the command in CommandString
+ and the name in TableName then adds it to DataSet.
+
+ The SQL or RPC call
+ The name of the resulting table
+ The dataset in which to place the table
+
+ Returns the resulting DataTable.
+
+
+
+
+ Enables and disables event polling for the RPMS connection
+
+
+
+
+ Sets and retrieves the interval in milliseconds for RPMS event polling
+
+
+
+
+ Sets and retrieves the number of times that the Event Timer will generage a BMXNet AutoFire event.
+ For example, if AutoFire == 3, then every 3rd time the Event Timer fires, it will generate an AutoFire event.
+
+
+
+
+ Set and retrieve the timeout, in milliseconds, to receive a response from the RPMS server.
+ If the retrieve time exceeds the timeout, an exception will be thrown and the connection will be closed.
+ The default is 30 seconds.
+
+
+
+
+ Returns a string representation of DUZ
+
+
+
+
+ Sets and Returns DUZ(2)
+
+
+
+
+ Gets the address of the RPMS Server
+
+
+
+
+ Gets the port on which the MServer is connected
+
+
+
+
+ Serializes RPMS server address and port
+
+
+
+