@gjacks02
Forum Replies Created
-
AuthorReplies
-
We at Mount Sinai in Manhattan would be interested in sending a few up for training. Can you let us know? Thanks June 28, 2011 at 11:41 am in reply to: Is anyone using CL to connect medical devices to EHRs or HIS #74659hey Ray,
At Mt. Sinai, we are interfacing all devices thru Capsule, and then from Capsule thru cloverleaf to Epic. Capsule is fed by all patient monitoring equipment in the facility. We are using Raw routes, and capsule is translating. We decided not to save any messages, and we have alerts that go off if there are more than 10 messages in 2 minutes, and if connection drops for 2 mintues. We are moving close to 300,000 messages per day, as vitals are pushed out about every 2minutes.
Hello all!
we execute a script from alert configurator, we have them for many interfaces.
# called from: hcialertd
# condition: # queue > 10
/usr/bin/ksh -c ‘eval `/qdx/qdx5.3/integrator/bin/hcisetenv -root ksh /qdx/qdx5.
3/integrator/lab`;hcienginestop -p scc;sleep 60; hcienginerun -p scc’
b
Here at Mount Sinai, NY, we have split up our sites so that there are now 4 adt sites for the IP Cerner fed adt systems, 1 adt site for our IP IDXFlow adt systems, we have 2 lab sites, a radiology site, a charge site for charge processes, an “aps” site for miscellaneous interfaces. We also have a dedicated site for our Epic interfaces. As we move to migrate again to upgrade, we will most probably split out to a few more sites as they are getting crowded again!
May 27, 2006 at 3:49 pm in reply to: What is the best way to document existing translations ? #58896Dan, would it be possible to get a copy of your visio document? We are in the process of documenting our engines here at Mt.Sinai, and that would be a great start.
thanks so much
Thanks to Ron, I have been able to do as requested. Here is how to use the math function: set the variable:
=0 @obx
use the Math ADD function
input: output:
=1 @obx
@obx
next line w/in the translation file
@obx 1(%g1).OBX.00569(0)
works like a charm!
Thanks so much to Jim Kosloskey
😆 Gerri
Here at Mt.Sinai, we have a separate box for our developement, and qual regions. We are in the process of upgrading our production environment to 5.3, on two new servers. The current production servers will become our test and qual regions, with HACMP running. We have always done this here for several reasons. We use the devl region (with multiple sites) to develop and test new and upgraded interfaces. Our Qual region mimics production, and this is the region we test our code for end user sign off prior to production move. We have several systems that also have 3 regions and the philosophy is the same for them. There are many reasons for our set up, we can test HA upgrades with out affecting production, run all testing with out taking the chance of any interferance to our production environments. I hope this helps. 🙂 Thanks Charlie, i know this was a topic in the archives, and i just could not make it work. Now it does, i thank you so much!! Now I am once again a happy cloverleaf analyst!!
😆 hope this script helps. you can modify to add whatever msg. type you want to suppress. We use it as an ibtps proc on the thread. We have some that kill multiple ADT types, just add an else if.
######################################################################
# Name: tpsKillA04
# Purpose: Kill A04 before gets to threads
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
# MODE run mode (“start”, “run” or “time”)
# MSGID message handle
# ARGS user-supplied arguments:
#
#
# Returns: tps disposition list:
#
#
proc tpsKillA04 { args } {
keylget args MODE mode ;# Fetch mode
set dispList {} ;# Nothing to return
switch -exact — $mode {
start {
# Perform special init functions
# N.B.: there may or may not be a MSGID key in args
}
run {
# ‘run’ mode always has a MSGID; fetch and process it
keylget args MSGID mh
set inmsg [msgget $mh]
#Check Event
set msgSegments [split $inmsg r]
set mshSeg [lindex $msgSegments 0]
set event [getHL7Field $mshSeg 8] ;# event is th
e 9th field
if {[cequal $event “ADT^A04”]} {
lappend dispList “KILL $mh”
} else {
lappend dispList “CONTINUE $mh”
} ;# end of if-else
}
time {
# Timer-based processing
# N.B.: there may or may not be a MSGID key in args
}
shutdown {
# Doing some clean-up work
}
default {
error “Unknown mode ‘$mode’ in tpsKillMsg”
}
}
return $dispList
}
Here is one that we use here at Mt. Sinai. Name: tpsKillA28
# Purpose: Kill A28 before gets to threads
# added 7/2/03 by gerri jackson along w/other adt a28 suppression
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
# MODE run mode (“start”, “run” or “time”)
# MSGID message handle
# ARGS user-supplied arguments:
#
#
# Returns: tps disposition list:
#
#
proc tpsKillA28 { args } {
keylget args MODE mode ;# Fetch mode
set dispList {} ;# Nothing to return
switch -exact — $mode {
start {
# Perform special init functions
# N.B.: there may or may not be a MSGID key in args
}
run {
# ‘run’ mode always has a MSGID; fetch and process it
keylget args MSGID mh
set inmsg [msgget $mh]
#Check Event
set msgSegments [split $inmsg r]
set mshSeg [lindex $msgSegments 0]
set event [getHL7Field $mshSeg 8] ;# event is th
e 9th field
if {[cequal $event “ADT^A28”]} {
lappend dispList “KILL $mh”
} else {
lappend dispList “CONTINUE $mh”
} ;# end of if-else
}
time {
# Timer-based processing
# N.B.: there may or may not be a MSGID key in args
}
shutdown {
# Doing some clean-up work
}
default {
error “Unknown mode ‘$mode’ in tpsKillMsg”
}
}
return $dispList
}
(END)
-
AuthorReplies
