How about using iwpt_get_pt_name() and parsing the category/type ? http://server/iw/help/tst/pt/TeamSite__PT__iw_perl.html
or, if one is masochistic, it's possible to get DCR name and then query its EAs and parse them
or if one is really a **** they can work with you for a few months.