CREATE PROCEDURE CLONE_OBJECT (
    SOURCE_ID INTEGER,
    NEW_CODE VARCHAR( 80 ),
    RECURS INTEGER)
RETURNS (
    ID INTEGER)
AS
DECLARE VARIABLE LTYPEID INTEGER;
DECLARE VARIABLE FINDEX INTEGER;
DECLARE VARIABLE CODE VARCHAR( 128 );
DECLARE VARIABLE OTYPEID INTEGER;
DECLARE VARIABLE GID INTEGER;
begin
  SELECT ID FROM SP_GEN_OBJECTS_ID INTO :ID;
  SELECT OTYPEID FROM OBJECTS WHERE (ID = :SOURCE_ID) INTO :OTYPEID;
  SELECT ID FROM GET_ID_BY_CODE('CONTENT', 'LINK_TYPE') INTO :LTYPEID;
  INSERT INTO OBJECTS(ID, OTYPEID, CODE)
         SELECT :ID, OTYPEID, :NEW_CODE
         FROM OBJECTS
         WHERE ID = :SOURCE_ID;
  EXECUTE PROCEDURE ASSIGN_PROPERTIES(:SOURCE_ID, :ID);

  INSERT INTO LINKS(PARENTID, CHILDID, LTYPEID)
         SELECT :ID, CHILDID, LTYPEID
         FROM LINKS
         WHERE (PARENTID = :SOURCE_ID)
               AND NOT (LTYPEID = :LTYPEID);

  IF (RECURS =  1 ) THEN
    INSERT INTO LINKS(PARENTID, CHILDID, LTYPEID)
           SELECT PARENTID, :ID, LTYPEID
           FROM LINKS
           WHERE (CHILDID = :SOURCE_ID)
                 AND NOT (LTYPEID = :LTYPEID);
  ELSE
    INSERT INTO LINKS(PARENTID, CHILDID, LTYPEID)
           SELECT PARENTID, :ID, LTYPEID
           FROM LINKS
           WHERE (CHILDID = :SOURCE_ID);

  INSERT INTO PRICES(OWNERID, PTYPEID, CURRENCYID, OLINKID, VALUE_NUMERIC, VALUE_DATE)
         SELECT :ID, PTYPEID, CURRENCYID, OLINKID, VALUE_NUMERIC, VALUE_DATE
         FROM PRICES
         WHERE OWNERID = :SOURCE_ID;

  FOR SELECT CHILDID, FINDEX
      FROM LINKS
      WHERE (PARENTID = :SOURCE_ID)
            AND (LTYPEID = :LTYPEID)
      INTO :GID, :FINDEX
  DO
  BEGIN
    CODE = NULL;
    IF (EXISTS (SELECT ID FROM OBJECTS WHERE ID = :OTYPEID AND CODE = 'DATASET')) THEN
    BEGIN
      SELECT CODE FROM OBJECTS WHERE ID = :ID INTO :CODE;
      SELECT :CODE || '.' || VALUE_STRING FROM GET_PROPERTY_VALUE(:GID, 'CODE', NULL,  0 , NULL) INTO :CODE;
    END
    INSERT INTO LINKS(PARENTID, CHILDID, LTYPEID, FINDEX)
           SELECT :ID, ID, :LTYPEID, :FINDEX
           FROM CLONE_OBJECT(:GID, :CODE,  1 );
  END

  SUSPEND;
end