[Home] [Help]
1558:
1559:
1560: IF l_count = 0 THEN
1561:
1562: SELECT pa_rbs_elements_s.nextval INTO l_sequence FROM dual ;
1563: PA_RBS_UTILS.Populate_RBS_Element_Name(p_struct_version_id, -1, x_rbs_element_name_id, x_return_status);
1564:
1565: INSERT INTO pa_rbs_elements (
1566: rbs_version_id,
1860: BEGIN
1861:
1862: SELECT 'Y'
1863: INTO l_rbs_assoc_flag
1864: FROM dual
1865: WHERE
1866: EXISTS (
1867: SELECT event_type
1868: FROM pji_pa_proj_events_log
1886: BEGIN
1887:
1888: SELECT 'Y'
1889: INTO l_rbs_prg_flag
1890: FROM dual
1891: WHERE
1892: EXISTS (
1893: SELECT event_type
1894: FROM pji_pa_proj_events_log
2922: AND resource_type_id = p_resource_type_id ;
2923: ELSIF l_count = 0 THEN
2924: SELECT PA_RBS_ELEMENT_MAP_S.nextval
2925: INTO x_resource_id
2926: FROM dual ;
2927:
2928: INSERT INTO PA_RBS_ELEMENT_MAP
2929: (
2930: RESOURCE_TYPE_ID,
3050:
3051:
3052: select PA_RBS_MAPPING_RULE_S.nextval
3053: into l_rule_id
3054: from dual;
3055:
3056: -- commented select below as its not required because rule_flag in pa_rbs_elements is not null column
3057: -- select decode(rule_flag,null,'null',''''||rule_flag||'''') into l_rule_flag from dual ;
3058:
3053: into l_rule_id
3054: from dual;
3055:
3056: -- commented select below as its not required because rule_flag in pa_rbs_elements is not null column
3057: -- select decode(rule_flag,null,'null',''''||rule_flag||'''') into l_rule_flag from dual ;
3058:
3059: l_rule_flag := rule_flag; --l_rule_flag is redundant, we can remove and directly use rule_flag
3060: l_SQL_statement := 'INSERT INTO PA_RBS_MAPPING_RULES' ||
3061: ' (ELEMENT_VERSION_ID, ' ||
3385: pa_debug.g_err_stage:= 'Inside create_mapping_rules- p_rbs_version_id :'|| p_rbs_version_id;
3386: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
3387: END IF;
3388:
3389: select count(1) into l_count from dual
3390: where exists
3391: (select 1
3392: from pa_rbs_mapping_rules
3393: where element_version_id = p_rbs_version_id);