[Home] [Help]
1561:
1562:
1563: IF l_count = 0 THEN
1564:
1565: SELECT pa_rbs_elements_s.nextval INTO l_sequence FROM dual ;
1566: PA_RBS_UTILS.Populate_RBS_Element_Name(p_struct_version_id, -1, x_rbs_element_name_id, x_return_status);
1567:
1568: INSERT INTO pa_rbs_elements (
1569: rbs_version_id,
1877: BEGIN
1878:
1879: SELECT 'Y'
1880: INTO l_rbs_assoc_flag
1881: FROM dual
1882: WHERE
1883: EXISTS (
1884: SELECT event_type
1885: FROM pji_pa_proj_events_log
1903: BEGIN
1904:
1905: SELECT 'Y'
1906: INTO l_rbs_prg_flag
1907: FROM dual
1908: WHERE
1909: EXISTS (
1910: SELECT event_type
1911: FROM pji_pa_proj_events_log
3257: AND resource_type_id = p_resource_type_id ;
3258: ELSIF l_count = 0 THEN
3259: SELECT PA_RBS_ELEMENT_MAP_S.nextval
3260: INTO x_resource_id
3261: FROM dual ;
3262:
3263: INSERT INTO PA_RBS_ELEMENT_MAP
3264: (
3265: RESOURCE_TYPE_ID,
3385:
3386:
3387: select PA_RBS_MAPPING_RULE_S.nextval
3388: into l_rule_id
3389: from dual;
3390:
3391: -- commented select below as its not required because rule_flag in pa_rbs_elements is not null column
3392: -- select decode(rule_flag,null,'null',''''||rule_flag||'''') into l_rule_flag from dual ;
3393:
3388: into l_rule_id
3389: from dual;
3390:
3391: -- commented select below as its not required because rule_flag in pa_rbs_elements is not null column
3392: -- select decode(rule_flag,null,'null',''''||rule_flag||'''') into l_rule_flag from dual ;
3393:
3394: l_rule_flag := rule_flag; --l_rule_flag is redundant, we can remove and directly use rule_flag
3395: l_SQL_statement := 'INSERT INTO PA_RBS_MAPPING_RULES' ||
3396: ' (ELEMENT_VERSION_ID, ' ||
3722: pa_debug.g_err_stage:= 'Inside create_mapping_rules- p_rbs_version_id :'|| p_rbs_version_id;
3723: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3724: END IF;
3725:
3726: select count(1) into l_count from dual
3727: where exists
3728: (select 1
3729: from pa_rbs_mapping_rules
3730: where element_version_id = p_rbs_version_id);