- Balachandiran Ajanthan created an add-on module to deploy reusable “SMART” health care apps inside OpenMRS.
- Christopher Zakian reimagined a “universal” search within OpenMRS that allows users to search for any system data from anywhere within the system
- Gaurav Paliwal created an add-on module to allow OpenMRS users to provide application feedback to their system administrators and the larger open source community.
- Gauthami Pingili improved both the UI of the OpenMRS Patient Matching module and improved its accuracy of finding duplicate patients.
- Goutham Vasireddi helped make it faster and easier for developers to write add-on modules for OpenMRS by creating a “wizard” for Maven.
- Jelena Skorucak reworked the attributes a person has within OpenMRS, giving clinics the flexibility to record more information about the persons.
- João Portela made significant improvements to our HTML Form Entry editor, allowing non-programmers to create more detailed, useful data collection forms for health care.
- Piotr Bryk enhanced our Metadata Sharing module to make it easier to manage the export and import of OpenMRS system configurations.
- Rahul Akula’s work helped make it possible for OpenMRS to interoperate with external laboratory information systems.
- Sai Manohar Nethi worked to create a framework for a comprehensive Human Resource add-on module for OpenMRS, allowing the system to help manage clinic personnel.
- Sreya Janaswamy created a way for OpenMRS users to translate phrases used by the application into other languages, inside the application itself.
- Sriskandarajah Suhothayan created a way for the OpenMRS Notifiable Condition Detector module to watch for certain large-scale patterns and send notifications to clinicians via SMS or e-mail.
- Suranga Kasthurirathne created a new way for OpenMRS to store clinical observations that reference other people or locations.
- Taras Chorny built a system to allow OpenMRS to be installed and upgraded using a variety of languages.
- Victor Chircu built an “Atlas” add-on module that allows OpenMRS users to opt-in to report their location, type of clinic, and number of patients on a shared map to represent the active OpenMRS community.
Write Data From a Recordset into an EXCEL Worksheet using EXCEL’s CopyFromRecordset (VBA)
Code to open a recordset for the data that are to be written into a worksheet in an EXCEL file (for this example, the EXCEL file does not already exist), and then to use EXCEL’s CopyFromRecordset method to copy the data from the recordset into the first worksheet in that EXCEL file, with each record being written into a separate row in the worksheet. The code allows for a header row to be created in the worksheet if this is desired. This code example uses “late binding” for the EXCEL automation.
Dim lngColumn As Long Dim xlx As Object, xlw As Object, xls As Object, xlc As Object Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim strPathFileName As String, strWorksheetName As String Dim strRecordsetDataSource As String Dim blnEXCEL As Boolean, blnHeaderRow As Boolean blnEXCEL = False ' Replace C:\Filename.xls with the actual path and filename ' that will be used to save the new EXCEL file into which you ' will write the data strPathFileName = "C:\Filename.xls" ' Replace QueryOrTableName with the real name of the table or query ' whose data are to be written into the worksheet strRecordsetDataSource = "QueryOrTableName" ' Replace True with False if you do not want the first row of ' the worksheet to be a header row (the names of the fields ' from the recordset) blnHeaderRow = True ' Establish an EXCEL application object On Error Resume Next Set xlx = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set xlx = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change True to False if you do not want the workbook to be ' visible when the code is running xlx.Visible = True ' Create a new EXCEL workbook Set xlw = xlx.Workbooks.Add ' Rename the first worksheet in the EXCEL file to be the first 31 ' characters of the string in the strRecordsetDataSource variable Set xls = xlw.Worksheets(1) xls.Name = Trim(Left(strRecordsetDataSource, 31)) ' Replace A1 with the cell reference of the first cell into which the ' headers will be written (blnHeaderRow = True), or into which the data ' values will be written (blnHeaderRow = False) Set xlc = xls.Range("A1") Set dbs = CurrentDb() Set rst = dbs.OpenRecordset(strRecordsetDataSource, dbOpenDynaset, dbReadOnly) If rst.EOF = False And rst.BOF = False Then ' Write the header row to worksheet If blnHeaderRow = True Then For lngColumn = 0 To rst.Fields.Count - 1 xlc.Offset(0, lngColumn).Value = rst.Fields(lngColumn).Name Next lngColumn Set xlc = xlc.Offset(1,0) End If ' copy the recordset's data to worksheet xlc.CopyFromRecordset rst End If rst.Close Set rst = Nothing dbs.Close Set dbs = Nothing ' Save and close the EXCEL file, and clean up the EXCEL objects Set xlc = Nothing Set xls = Nothing xlw.SaveAs strPathFileName xlw.Close False Set xlw = Nothing If blnEXCEL = True Then xlx.Quit Set xlx = Nothing
The Bureau of the Census reports that the 2010 Census represented “the most massive participation movement ever witnessed in our country” with some 74 percent of the households returning their census forms; the remaining were counted by census workers. Now you can have free access to this valuable national resource with Tetrad’s Sitewise App, PCensus Online or PCensus Desktop.
In any of these platforms you can retrieve information on sex, age, race Hispanic or Latino, household relationship and group quarters. Housing items include occupancy status, vacancy status and tenure (owner occupied or renter occupied).
With the Sitewise App on your iPhone/iPad, Android device, you can retrieve 2010 census data for a circle or drive-time area where you are located (or for a street address or a place name). Then review and email a 20 page report and map to understand the demographics of that location. PCensus Online gives the user the added capability to trace out a polygon or neighborhood area and compare the demographics for many areas. This lets you select the best location for a new outlet or sale territory. Use PCensus Online free with the 2010 Census.
PCensus Desktop users have increased functionality for site location and market analysis. Full mapping functionality for PCensus is provided with MapInfo Professional, Microsoft MapPoint and ArcGIS.
This PCensus trio of products with the 2010 census offers you an edge for location analysis and finding new markets.
For more information:
Sitewise App http://www.sitewiseapp.com
PCensus Online http://pco.tetrad.com/
PCensus Desktop http://www.tetrad.com/demographics/usa/census/2010-sf1.html