ObjectsPlus.Net

When writing a custom tab for Sunrise 5.5, if you want to instantiate the patient list grid from the Patient List tab, it turns out it is an Infragistics UltraWinGrid control, version 9.2. Which is tricky, since the only DLL’s in the application folder reference version 7.1.

The app is actually pulling the 9.2 version from the GAC, which is in c:\windows\assembly, but to get to the DLL’s there you have to rename the desktop.ini so Explorer won’t override the default view.

Once you have a copy of the patient list grid control in memory, access its DataSource property to get a DataSet that contains all the data on the grid, including several hidden columns – the first of which is the ClientVisitGUID.

FYI – In 5.0, the grid was a 6.x version of the control, and worked with the DLL’s in the application directory.

In the code snippet below, I’m using the AutoITX library to easily get me a handle (retval) to the PatientListTab control. Then I iterate through the child controls of the PatientListTab until I find the one that is an UltraGrid, and return its DataSource (which is a DataSet).

Dim retval As New StringBuilder

Dim ctrlPtListTab As Eclipsys.Clinicals.PatientList.Windows.PatientListTab = Nothing

retval.Length = 2000

AutoItX3Declarations.AU3_AutoItSetOption("WinTitleMatchMode", 2)

AutoItX3Declarations.AU3_ControlGetHandle("Eclipsys Gateway", "", "[NAME:PatientListTab]", retval, retval.Length)

ctrlPtListTab = Eclipsys.Clinicals.PatientList.Windows.PatientListTab.FromHandle(Convert.ToInt64(retval.ToString, 16))

For Each uc As Control In ctrlPtListTab.Controls

   Dim c As Infragistics.Win.UltraWinGrid.UltraGrid = TryCast(uc, Infragistics.Win.UltraWinGrid.UltraGrid)

   If c IsNot Nothing Then

      Return c.DataSource

   End If

Next