tps_expr_filter

[David Barr]

This is a proc that filters messages based on a TCL expression that is passed as an argument. You can include HL7 field specifiers (like %PID.3%) or user metadata fields (like %u|VARNAME%).

Example arguments:

{ EXPRESSION {! [regexp {^NC} %PID.18%] } }

 Kills a message if PID.18 starts with NC

{ EXPRESSION {%OBX(3.1=SmokingStatus).1% eq ” }}

 Kills a message if it contains an OBX with SmokingStatus in OBX.3.1

{ EXPRESSION {! [regexp {^EC} %u|DEPT%] } }

 Kills message if DEPT variable in user metadata starts with EC.

The code was inspired by discussion in this thread.

Topic

[Amdy Diene]

Dave, from where do you call this TCL proc?

[David Barr]

You can call it from any context that want. All the script does is evaluate the expression and return a CONTINUE if it matches and a KILL if it doesn’t.

[Author]

Replies