jamerfort

# This Cloverleaf TPS script removes all OBX segments prior to the first one that contains "ADDENDUM".
# This script also renumbers the OBX segments.
#
# See http://clovertech.healthvision.com/viewtopic.php?t=5953
proc remove_prior_to_addendum {args} {
	# set the procedure name
	# This is used for error messages
	set procname [lindex [info level [info level]] 0]
	
	# bring some common variables into the scope of this proc