The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_LAST_UPDATE_DATE DATE := sysdate ;
G_LAST_UPDATED_BY NUMBER := fnd_global.user_id ;
G_LAST_UPDATE_LOGIN NUMBER := fnd_global.login_id ;
SELECT cn_objects_s.NEXTVAL
INTO l_object_id
FROM sys.dual;
PROCEDURE insert_into_cn_objects( p_table_rec IN OUT NOCOPY table_rec_type,
x_ext_obj_id OUT NOCOPY NUMBER
)
IS
l_new_object_id NUMBER;
P_OPERATION => 'INSERT'
, P_OBJECT_ID => p_table_rec.object_id
, P_NAME => p_table_rec.name
, P_DESCRIPTION => p_table_rec.description
, P_DEPENDENCY_MAP_COMPLETE => 'N'
, P_STATUS => 'A'
, P_REPOSITORY_ID => p_table_rec.repository_id
, P_ALIAS => p_table_rec.alias
, P_TABLE_LEVEL => NULL
, P_TABLE_TYPE => 'T'
, P_OBJECT_TYPE => 'TBL'
, P_SCHEMA => p_table_rec.schema
, P_CALC_ELIGIBLE_FLAG => p_table_rec.calc_eligible_flag
, P_USER_NAME => p_table_rec.user_name
, p_data_length => NULL
, p_data_type => NULL
, p_calc_formula_flag => NULL
, p_table_id => NULL
, p_column_datatype => NULL
, x_object_version_number =>l_new_object_version_no
, p_org_id =>p_table_rec.org_id
);
END insert_into_cn_objects;
PROCEDURE insert_ext_cols(p_table_rec IN OUT NOCOPY table_rec_type,
p_ext_tbl_id IN NUMBER
)
IS
CURSOR ext_cols_cur IS
SELECT column_name,
data_type,
data_length
FROM all_tab_columns
WHERE owner = p_table_rec.schema
AND table_name = p_table_rec.name
AND data_type IN ('CHAR','NCHAR','VARCHAR2','VARCHAR','NVARCHAR2','LONG','NUMBER','DATE');
P_OPERATION => 'INSERT'
, P_OBJECT_ID => l_new_object_id
, P_NAME => l_col_name
, P_DESCRIPTION => p_table_rec.description
, P_DEPENDENCY_MAP_COMPLETE => 'N'
, P_STATUS => 'A'
, P_REPOSITORY_ID => p_table_rec.repository_id
, P_ALIAS => p_table_rec.alias
, P_TABLE_LEVEL => NULL
, P_TABLE_TYPE => NULL
, P_OBJECT_TYPE => 'COL'
, P_SCHEMA => p_table_rec.schema
, P_CALC_ELIGIBLE_FLAG => p_table_rec.calc_eligible_flag
, P_USER_NAME => l_col_name
, p_data_type => l_data_type
, p_data_length => l_data_len
, p_calc_formula_flag => 'N'
, p_table_id => p_table_rec.object_id
, p_column_datatype => l_column_data_type
, x_object_version_number => l_new_object_version_no
, p_org_id => p_table_rec.org_id
);
x_loading_status := 'CN_INSERTED';
insert_into_cn_objects( p_table_rec,l_ext_obj_id);
insert_ext_cols(p_table_rec,l_ext_obj_id);