James Nimmo jnimmo

jnimmo / MindrayUltrasoundtoProfileChannel.xml

Created January 20, 2015 22:01

MirthConnect Channel - Mindray Ultrasound DICOM to HL7 message for Intrahealth Profile

	<channel version="3.1.1">
	<id>b5e5f65c-36c8-4b8c-bb67-ec4db347e603</id>
	<nextMetaDataId>5</nextMetaDataId>
	<name>Mindray Ultrasound to Profile</name>
	<description>Accepts DICOM images, builds a HL7 file and embeds the images as JPEGs ready for automatic import to Profile</description>
	<enabled>true</enabled>
	<lastModified>
	<time>1419210099205</time>
	<timezone>Pacific/Auckland</timezone>
	</lastModified>

jnimmo / RoomieCodes.plist

Last active August 29, 2015 14:07

Roomie Remote Codes for PJ-Link Projector

	<?xml version="1.0" encoding="UTF-8"?>
	<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
	<plist version="1.0">
	<array>
	<dict>
	<key>codes</key>
	<dict>
	<key>.POWER STATUS</key><string>%1POWR ?</string>
	<key>POWER OFF</key><string>%1POWR 0</string>
	<key>POWER ON</key><string>%1POWR 1</string>

jnimmo / GetPSAsForListOfPatients

Created August 22, 2014 02:17

Intrahealth Profile - Get a table of results for a given set of patients

	'library:C:\Program Files\Intrahealth\Profile\bin\IHProfBL.bpl
	'library:C:\Program Files\Intrahealth\Profile\bin\Profile.exe
	Dim Profile 'As ISProfile
	Dim client 'As ProfileClient

	Set client = CreateObject("Profile.ProfileClient")
	If IsNull(client) Then
	WScript.Quit
	Else
	Set Profile = client.Login("","","")