Управление ОКПД

/* @var nsiOKPD $object*/
$q = $modx->newQuery('nsiOKPD');
$q->limit(4000, 41000);
if($objectList = $modx->getCollection('nsiOKPD', $q)) {
    foreach ($objectList as $object) {
        $object->setParents();
        $object->save();
    }
}