function gt_hxs, item, header=header, string=string, short=short, spaces=spaces, title=title
;
;
;title = 'WBS HXS (20-600 keV)'
title = 'WBS HXS (20-657 keV)'
header_array = "HXS Cnts "
header_array = [header_array, header_array] ;no short option at this time
fmt = "(i9)"
;
siz = size(item)
typ = siz( siz(0)+1 )
if (typ eq 8) then begin
    ;Check to see if an index was passed (which has the tag
    ;nested under "wbs", or a roadmap or observing log entry was passed
    tags = tag_names(item)
    case tags(0) of
    'GEN':      out = item.wbs.hxs
    'ENTRY_TYPE':   out = fix(item.wbs_hxs)^2       ;data is stored compressed
    else:       out = item.hxs
    endcase
end else begin
    out = item
end
;
ss = where(out lt 0, count) ;added 12-Oct-92
if (count ne 0) then begin
    out = long(out)
    out(ss) = out(ss) + long(2)^16
end
;
out = gt_conv2str(out, conv2str, conv2short, header_array, header=header, $
    string=string, short=short, spaces=spaces, fmt=fmt)
;
return, out
end