
if {![exists -proc get_channel_attr]} {
	require rsv.class

	proc get_channel_attr {channel {field hSvc}} {
		global rsvdb

		set ff [$rsvdb query "
			select $field
			from channel.TBL_SVC
			where szSvcName = '$channel'
			or szSvcname = '\025$channel'
			limit 1
		"]

		if {[llength $ff] == 1} {
			return [lindex [lindex $ff 0] 1]
		}
		return ""
	}

	proc get_channel_attr_bylcn {lcn {field hSvc}} {
		global rsvdb

		set ff [$rsvdb query "
			select $field
			from channel.TBL_SVC
			where usLcn = $lcn
			limit 1
		"]

		if {[llength $ff] == 1} {
			return [lindex [lindex $ff 0] 1]
		}
		return 0
	}

	proc get_channel_attr_byorglcn {lcn {field hSvc}} {
		global rsvdb

		set ff [$rsvdb query "
			select $field
			from channel.TBL_SVC
			where usOrgLcn = $lcn
			and usLcn < 800
			limit 1
		"]

		if {[llength $ff] == 1} {
			return [lindex [lindex $ff 0] 1]
		}
		return 0
	}

	proc get_channel_attr_byhsvc {hsvc {field usLcn}} {
		global rsvdb

		set ff [$rsvdb query "
			select $field
			from channel.TBL_SVC
			where hSvc = $hsvc
			limit 1
		"]

		if {[llength $ff] == 1} {
			return [lindex [lindex $ff 0] 1]
		}
		return 0
	}
}

