sub getDivisionListNodes {
    my($agency) = @_;

    return undef unless defined($agency);

    return new($agency)->{ts}->get_node_list('division');
}

sub getDivisionNameToIdMap {
    my($agency) = @_;

    return undef unless defined($agency);

    my %nameToId;
    foreach my $node ( getDivisionListNodes($agency) ) {
        $nameToId{$node->value{'divname')} = $node->value('siebel_id');
    }
    return %nameToId;
}