[Home] [Help]
86: );
87: END LOOP; -- end of for
88:
89: FOR i in 0 .. l_risk_type_list.LAST LOOP
90: delete from AMW_RISK_TYPE
91: where RISK_TYPE_CODE = (
92: select RISK_TYPE_CODE
93: from AMW_SETUP_RISK_TYPES_B
94: where SETUP_RISK_TYPE_ID = l_risk_type_list(i)
232: n number;
233: BEGIN
234: select count(*)
235: into n
236: from amw_risk_type
237: where risk_rev_id = p_risk_rev_id
238: and risk_type_code = p_risk_type_code;
239:
240: if n > 0 then
262: no varchar2(80);
263: BEGIN
264: select count(*)
265: into n
266: from amw_risk_type
267: where risk_rev_id = p_risk_rev_id
268: and risk_type_code = p_risk_type_code;
269:
270: select meaning
314:
315: -- find if specified risk type or any of its descendants are associated with the specified risk_rev_id
316: cursor is_assoc_risk_c (l_setup_risk_type_id IN NUMBER, l_risk_rev_id IN NUMBER, l_compliance_env_id IN NUMBER) is
317: SELECT assoc.risk_type_id
318: from amw_risk_type assoc,
319: amw_setup_risk_types_b rt,
320: amw_compliance_env_assocs compEnv
321: where assoc.risk_rev_id = l_risk_rev_id
322: and rt.setup_risk_type_id = l_setup_risk_type_id
356: -- ===============================================================
357: -- Procedure name
358: -- PROCESS_RISK_TYPE_ASSOCS
359: -- Purpose
360: -- Update the risk-riskTypes associations(store in table AMW_RISK_TYPE)
361: -- depending on the specified p_select_flag .
362: -- ===============================================================
363: PROCEDURE PROCESS_RISK_TYPE_ASSOCS (
364: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
394:
395: -- initialize return status to success
396: x_return_status := fnd_api.g_ret_sts_success;
397:
398: delete from amw_risk_type
399: where risk_rev_id = p_risk_rev_id
400: and risk_type_code = p_risk_type_code;
401:
402: if (p_select_flag = 'Y') then
406: l_last_updated_by := FND_GLOBAL.USER_ID;
407: l_last_update_login := FND_GLOBAL.USER_ID;
408: l_object_version_number := 1;
409:
410: select amw_risk_type_s.nextval into l_risk_type_assoc_id from dual;
411:
412: insert into amw_risk_type (risk_type_id,
413: risk_rev_id,
414: risk_type_code,
408: l_object_version_number := 1;
409:
410: select amw_risk_type_s.nextval into l_risk_type_assoc_id from dual;
411:
412: insert into amw_risk_type (risk_type_id,
413: risk_rev_id,
414: risk_type_code,
415: creation_date,
416: created_by,
732:
733: -- find if there's associated risk of specified setup risk type
734: cursor get_assoc_risk_count_c (l_setup_risk_type_id IN NUMBER) is
735: SELECT count(*)
736: from amw_risk_type assoc,
737: amw_setup_risk_types_b rt
738: where rt.setup_risk_type_id = l_setup_risk_type_id
739: and assoc.risk_type_code = rt.risk_type_code;
740: