CSV preproc

I’m not sure I understand the problem.  You seem to mixing apples and oranges.

Is the message coming in an HL7 and you wish to use the CSV file as a lookup table to determine how to route the message?

If so, you will probably need a TRXID proc that will make use of dynamic tables (Since this is a CSV file I assume it is dynamic)

Take a look at the CSV package provided under $HCIROOT/tcl/lib/tcllib1.xx

A plug:

You can attend the UG in Sept.  I will discussing this particular issue  😀

Hi Mike, Charlie knows more than me so he will probably solve your problem.  But I did want to send you a preprocessing proc we used years ago to determine how to route an order to either Lab or Radiology.  The incoming layout was FRL from an old clinical orders system, CCS.  This may be an antiquated way of doing this but you might get it to work:

######################################################################

# Name: CCS_orders_OMFALOIE_routing

# Purpose: This procedure parses the incoming CCS OMFALOIE

# (which is the order modification/additional criteria)

# It examines the ordering_dept field to determine

# whether the order is meant for FlexiRad or FlexiLab.

# Once this has been done it chooses the appropriate

# translation and destination thread.

# 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:

#          

#

########### CHANGE HISTORY ############################################

# Date Task Pgmr Description

# 01/11/01      4471    CEK     Modified code to process RESP orderes

#######################################################################

proc CCS_orders_OMFALOIE_routing { args } {

   keylget args MODE mode               ;# Fetch mode

   set dispList {} ;# Nothing to return

   set DatList [datlist]

   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 GRMin [grmcreate -msg $mh frl CCS.order.OMFALOIE.frl]

   set OrderingDept [datget [grmfetch $GRMin ordering_dept] VALUE]

   if { [cequal $OrderingDept XRAY] || [cequal $OrderingDept PROC] } {

keylset detail

   PREPROCS.ARGS {}      

   PREPROCS.PROCS {}      

   DEST flexirad_out      

   POSTPROCS.ARGS {}      

   POSTPROCS.PROCS {}    

   TYPE xlate    

   XLATE CCS.orders.OMFALOIE.to.FlexiRad.ORM_O01.xlt

lappend xrayRouting $detail

msgrouteset $mh $xrayRouting

lappend dispList “CONTINUE $mh”

   } elseif { [cequal $OrderingDept LAB] } {

keylset detail

   PREPROCS.ARGS {}      

   PREPROCS.PROCS {}      

   DEST flexilab_out      

   POSTPROCS.ARGS {}      

   POSTPROCS.PROCS {}    

   TYPE xlate    

   XLATE CCS.orders.OMFALOIE.to.FlexiLab.ORM_O01.xlt

lappend labRouting $detail

msgrouteset $mh $labRouting

lappend dispList “CONTINUE $mh”

   } elseif { [cequal $OrderingDept RESP] } {

keylset detail

   PREPROCS.ARGS {}      

   PREPROCS.PROCS {}      

   DEST clinivision_out      

   POSTPROCS.ARGS {}      

   POSTPROCS.PROCS {}    

   TYPE xlate    

   XLATE CCS.orders.OMFALOIE.to.Clinivision.ORM_O01.xlt

lappend respRouting $detail

msgrouteset $mh $respRouting

lappend dispList “CONTINUE $mh”

   } else {

lappend dispList “KILL $mh”

error “CCS Order Mod sent for unknown destination -[set OrderingDept]-“

   }

   hcidatlistreset $DatList

   grmdestroy $GRMin

       }

       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 CCS_orders_routing”

       }

   }

   return $dispList

What if your CSV contains embedded commas or control characters

In the startup portion of your proc:

                 package require csv

Replace  set SEGMENTS [split $msg $fldSep]

 with

              set SEGMENTS [csv::split $msg]

I don’t know about the rest of the proc

It is part of the supplied tcllib package

Code:

      set SEGMENTS [split $msg $fldSep]
   
set LOCATION [split [lindex $SEGMENTS 5] $fldSep]  

You are splitting twice with the same separators.

Also, are you removing double quotes?

Simsbury and “Simsbury” are not the same.