INSERT ALL
          INTO object
        VALUES (object_seq.nextval, const_object.OT_CREDIT_PARTNER, const_general.NO)
          INTO credit_partner 
        VALUES (object_seq.currval, t_numinlist, partner_name, NULL, const_general.NO, const_general.NO) 
          log errors into err_credit_partner reject limit unlimited
          INTO object_code
        VALUES (object_seq.currval, const_credit.PARTNER_TCODE_RS, to_char(t_attrid))
        SELECT attr.t_attrid,   --Сохраним в кодах
               attr.t_numinlist,--Сохраним в карточке партнера
               substr(nvl(attr.t_name, 'Без имени'), 1, 99) partner_name
          FROM dwmain.cobjattr_dbt attr
         WHERE attr.t_objecttype = 400
           AND attr.t_groupid = 101
           AND NOT attr.t_numinlist IN (SELECT code FROM credit_partner) ;

-- Create table
create table CREDIT_PARTNER
(
  id        NUMBER(10) not null,
  code      VARCHAR2(10) not null,
  name      VARCHAR2(100) not null,
  parent_id NUMBER(10),
  is_market NUMBER(1) not null,
  is_delete NUMBER(1) not null
)
create unique index CREDIT_PARTNER_IDX_CODE on CREDIT_PARTNER (CODE)
 
create index         CREDIT_PARTNER_IDX_PARENT on CREDIT_PARTNER (PARENT_ID)
 
-- Create/Recreate primary, unique and foreign key constraints 
alter table CREDIT_PARTNER
  add constraint PK_CREDIT_PARTNER primary key (ID)
  using index 
  
alter table CREDIT_PARTNER
  add constraint FK_CRD_PARTN_REF_OBJECT foreign key (ID)
  references OBJECT (ID);

CREATE TABLE "IBS"."OBJECT" 
   (	"ID" NUMBER(10,0) NOT NULL ENABLE, 
	    "OBJECT_TYPE_ID" NUMBER(2,0) NOT NULL ENABLE, 
	    "IS_DELETE" NUMBER(1,0) NOT NULL ENABLE, 
	    CONSTRAINT "PK_OBJECT" PRIMARY KEY ("ID")
      USING INDEX 
     
	  CONSTRAINT "FK_OBJECT_REF_OBJECT_TYPE" FOREIGN KEY ("OBJECT_TYPE_ID")
	  REFERENCES "IBS"."OBJECT_TYPE" ("ID") ENABLE
   )