The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_update_login number := FND_GLOBAL.LOGIN_ID;
l_insert_m1 varchar2(1);
l_insert_m2 varchar2(1);
l_insert_m3 varchar2(1);
select decode((select 'Y' from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim1_mem and level_num =0),'Y','N','Y') into l_insert_m1 from dual;
if(l_insert_m1 = 'Y') then
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,0,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select row_num into l_row_num from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim1_mem and level_num = 0;
select decode((select 'Y' from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim2_mem and level_num = 1 and parent_row_num = l_parent_row_num),'Y','N','Y') into l_insert_m2 from dual;
if(l_insert_m2 = 'Y') then
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,0,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select row_num into l_row_num from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim2_mem and level_num = 1 and parent_row_num = l_parent_row_num;
select decode((select 'Y' from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim3_mem and level_num =2 and parent_row_num = l_parent_row_num),'Y','N','Y') into l_insert_m3 from dual;
if(l_insert_m3 = 'Y') then
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,0,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select row_num into l_row_num from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim3_mem and level_num = 2 and parent_row_num = l_parent_row_num;
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,p_amount,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
l_update_login number := FND_GLOBAL.LOGIN_ID;
l_insert_m1 varchar2(1);
l_insert_m2 varchar2(1);
l_insert_m3 varchar2(1);
select decode((select 'Y' from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim1_mem and level_num =0),'Y','N','Y') into l_insert_m1 from dual;
if(l_insert_m1 = 'Y') then
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,l_amount,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select row_num into l_row_num from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim1_mem and level_num = 0;
select decode((select 'Y' from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim2_mem and level_num = 1 and parent_row_num = l_parent_row_num),'Y','N','Y') into l_insert_m2 from dual;
if(l_insert_m2 = 'Y') then
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,l_amount,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select row_num into l_row_num from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim2_mem and level_num = 1 and parent_row_num = l_parent_row_num;
select decode((select 'Y' from fem_factor_table_fctrs where object_definition_id = g_object_definition_id and dim_member = p_matching_dim3_mem and level_num =2 and parent_row_num = l_parent_row_num),'Y','N','Y') into l_insert_m3 from dual;
if(l_insert_m3 = 'Y') then
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,p_amount,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
l_update_login number := FND_GLOBAL.LOGIN_ID;
select FEM_FACTORS_ROW_NUM_SEQ.NEXTVAL into l_row_num from dual;
insert into FEM_FACTOR_TABLE_FCTRS(OBJECT_DEFINITION_ID,ROW_NUM,PARENT_ROW_NUM,LEVEL_NUM,DIM_MEMBER,FACTOR_VALUE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_row_num,l_parent_row_num,l_level_num,l_dimension_member,P_AMOUNT,sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
l_update_login number := FND_GLOBAL.LOGIN_ID;
select folder_id into l_folder_id from fem_folders_vl where folder_name = P_FOLDER_NAME;
select lookup_code into l_object_access_code from fem_lookups where lookup_type = 'FEM_EDIT_PERMISSION_DSC' and meaning = p_object_access_code;
select decode((select 'Y' from fem_object_catalog_vl where object_name = p_rule_name),'Y','Y',NULL) into l_old_rule from dual;
select FEM_OBJECT_ID_SEQ.NEXTVAL into G_OBJECT_ID from dual;
INSERT INTO FEM_OBJECT_CATALOG_B(OBJECT_ID,OBJECT_TYPE_CODE,FOLDER_ID,LOCAL_VS_COMBO_ID,CREATION_DATE,CREATED_BY,OBJECT_ACCESS_CODE,OBJECT_ORIGIN_CODE,LAST_UPDATED_BY,
LAST_UPDATE_DATE,LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
VALUES(G_OBJECT_ID,l_object_type_code,l_folder_id,l_local_vs_combo_id,sysdate,l_user_id,l_object_access_code,
l_object_origin_code,l_user_id,sysdate,l_update_login,0);
INSERT INTO FEM_OBJECT_CATALOG_TL(OBJECT_ID,OBJECT_NAME,LANGUAGE,SOURCE_LANG,DESCRIPTION,CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN)
SELECT G_OBJECT_ID,P_RULE_NAME,LANGUAGE_CODE,'US',P_RULE_DESCRIPTION,l_user_id,sysdate,l_user_id,sysdate,l_update_login
FROM FND_LANGUAGES WHERE INSTALLED_FLAG IN ('I','B');
select FEM_OBJECT_DEFINITION_ID_SEQ.NEXTVAL into G_OBJECT_DEFINITION_ID from dual;
INSERT INTO FEM_OBJECT_DEFINITION_B(OBJECT_DEFINITION_ID,OBJECT_ID,EFFECTIVE_START_DATE,EFFECTIVE_END_DATE,OBJECT_ORIGIN_CODE,CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,
LAST_UPDATE_DATE,APPROVAL_STATUS_CODE,OLD_APPROVED_COPY_FLAG,OLD_APPROVED_COPY_OBJ_DEF_ID,APPROVED_BY,APPROVAL_DATE,LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER)
VALUES(G_OBJECT_DEFINITION_ID,G_OBJECT_ID,to_date(P_START_DATE,'DD-MM-RRRR'),to_date(P_END_DATE,'DD-MM-RRRR'),l_object_origin_code,sysdate,
l_user_id,l_user_id,sysdate,'NOT_APPLICABLE','N',NULL,NULL,NULL,l_update_login,0);
INSERT INTO FEM_OBJECT_DEFINITION_TL(OBJECT_DEFINITION_ID,OBJECT_ID,LANGUAGE,SOURCE_LANG,OLD_APPROVED_COPY_FLAG,DISPLAY_NAME,DESCRIPTION,CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,
LAST_UPDATE_DATE,LAST_UPDATE_LOGIN)
SELECT G_OBJECT_DEFINITION_ID,G_OBJECT_ID,LANGUAGE_CODE,'US','N',P_VERSION_NAME,P_VERSION_DESCRIPTION,l_user_id,sysdate,l_user_id,sysdate,
l_update_login FROM FND_LANGUAGES WHERE INSTALLED_FLAG IN ('I','B');
select object_id into G_OBJECT_ID from fem_object_catalog_vl where object_name = p_rule_name;
select object_definition_id into G_OBJECT_DEFINITION_ID from fem_object_definition_vl where object_id = G_OBJECT_ID and display_name = p_version_name;
l_update_login number := FND_GLOBAL.LOGIN_ID;
select lookup_code into l_factor_type_code from fem_lookups where lookup_type = 'FEM_FACTOR_TABLE_TYPES_DSC' and meaning = p_factor_type;
insert into FEM_FACTOR_TABLES(OBJECT_DEFINITION_ID,
FACTOR_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER)
values(
G_OBJECT_DEFINITION_ID,
l_factor_type_code,
sysdate,
l_user_id,
l_user_id,
sysdate,
l_update_login,
0);
select dimension_id into l_dim_id from fem_dimensions_vl where dimension_name = p_matching_dim1;
select object_id into l_hier_obj_id from fem_object_catalog_vl where object_name = p_hierarchy1 and object_type_code = 'HIERARCHY';
select object_definition_id into l_hier_obj_def_id from fem_object_definition_vl where display_name = p_hier1_ver and object_id = l_hier_obj_id;
select dimension_group_id into l_level_id from fem_dimension_grps_vl where dimension_group_name = p_level1;
select lookup_code into l_hierarchy_rel from fem_lookups where lookup_type = 'FEM_COND_HIER_RELATIONS' and meaning = p_hierarchy_rel1;
insert into fem_factor_table_dims(OBJECT_DEFINITION_ID,LEVEL_NUM,DIMENSION_ID,DIM_USAGE_CODE,FORCE_PERCENT_FLAG,HIER_OBJECT_ID,HIER_OBJ_DEF_ID,HIER_GROUP_ID,HIER_RELATION_CODE,
CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_level_num,l_dim_id,'MATCH',NULL,l_hier_obj_id,l_hier_obj_def_id,l_level_id,l_hierarchy_rel,
sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select dimension_id into l_dim_id from fem_dimensions_vl where dimension_name = p_matching_dim2;
select object_id into l_hier_obj_id from fem_object_catalog_vl where object_name = p_hierarchy2 and object_type_code = 'HIERARCHY';
select object_definition_id into l_hier_obj_def_id from fem_object_definition_vl where display_name = p_hier2_ver and object_id = l_hier_obj_id;
select dimension_group_id into l_level_id from fem_dimension_grps_vl where dimension_group_name = p_level2;
select lookup_code into l_hierarchy_rel from fem_lookups where lookup_type = 'FEM_COND_HIER_RELATIONS' and meaning = p_hierarchy_rel2;
insert into fem_factor_table_dims(OBJECT_DEFINITION_ID,LEVEL_NUM,DIMENSION_ID,DIM_USAGE_CODE,FORCE_PERCENT_FLAG,HIER_OBJECT_ID,HIER_OBJ_DEF_ID,HIER_GROUP_ID,HIER_RELATION_CODE,
CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_level_num,l_dim_id,'MATCH',NULL,l_hier_obj_id,l_hier_obj_def_id,l_level_id,l_hierarchy_rel,
sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select dimension_id into l_dim_id from fem_dimensions_vl where dimension_name = p_matching_dim3;
select object_id into l_hier_obj_id from fem_object_catalog_vl where object_name = p_hierarchy3 and object_type_code = 'HIERARCHY';
select object_definition_id into l_hier_obj_def_id from fem_object_definition_vl where display_name = p_hier3_ver and object_id = l_hier_obj_id;
select dimension_group_id into l_level_id from fem_dimension_grps_vl where dimension_group_name = p_level3;
select lookup_code into l_hierarchy_rel from fem_lookups where lookup_type = 'FEM_COND_HIER_RELATIONS' and meaning = p_hierarchy_rel3;
insert into fem_factor_table_dims(OBJECT_DEFINITION_ID,LEVEL_NUM,DIMENSION_ID,DIM_USAGE_CODE,FORCE_PERCENT_FLAG,HIER_OBJECT_ID,HIER_OBJ_DEF_ID,HIER_GROUP_ID,HIER_RELATION_CODE,
CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_level_num,l_dim_id,'MATCH',NULL,l_hier_obj_id,l_hier_obj_def_id,l_level_id,l_hierarchy_rel,
sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);
select lookup_code into l_force_to_hundred from fem_lookups where lookup_type = 'FEM_WEBADI_YES_NO' and meaning = p_force_to_hundred;
select dimension_id into l_dim_id from fem_dimensions_vl where dimension_name = p_distribution_dim;
insert into fem_factor_table_dims(OBJECT_DEFINITION_ID,LEVEL_NUM,DIMENSION_ID,DIM_USAGE_CODE,FORCE_PERCENT_FLAG,HIER_OBJECT_ID,HIER_OBJ_DEF_ID,HIER_GROUP_ID,HIER_RELATION_CODE,
CREATION_DATE,CREATED_BY,LAST_UPDATED_BY,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN,OBJECT_VERSION_NUMBER)
values(G_OBJECT_DEFINITION_ID,l_level_num,l_dim_id,'DISTRIBUTE',l_force_to_hundred,l_hier_obj_id,l_hier_obj_def_id,l_level_id,null,
sysdate,l_user_id,l_user_id,sysdate,l_update_login,0);