[Home] [Help]
111: fnd_msg_pub.add();
112: END IF;
113:
114: IF (p_validate_only <> fnd_api.g_true AND x_return_status = 'S') THEN
115: SELECT pa_ci_types_b_s.NEXTVAL
116: INTO x_ci_type_id
117: FROM sys.dual;
118:
119: pa_ci_types_pkg.insert_row(
351: -- has been recorded, then user is not allowed to change the approval type.
352: cursor c_pco_st_exists is
353: select 1
354: from pa_control_items ci,
355: pa_ci_types_b cip
356: where ci.ci_type_id = cip.ci_type_id
357: and cip.ci_type_class_code = 'CHANGE_REQUEST'
358: and cip.ci_type_id = p_ci_type_id
359: and cip.approval_type_code = 'EXTERNAL_APPROVAL'
362: -- end: 26-Jun-2009 cklee Modified for the Bug# 8633676
363:
364: -- start: cklee 09/30/09 bug: 8974414
365: -- get budget update method before user make changes
366: CURSOR budget_options_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type) is
367: select ci.IMPACT_BUDGET_TYPE_CODE,
368: ci.COST_COL_FLAG,
369: ci.REV_COL_FLAG,
370: ci.DIR_COST_REG_FLAG,
369: ci.REV_COL_FLAG,
370: ci.DIR_COST_REG_FLAG,
371: ci.SUPP_COST_REG_FLAG,
372: ci.DIR_REG_REV_COL_FLAG
373: from pa_ci_types_b ci
374: where ci.ci_type_id = p_ci_type_id;
375:
376: budget_options_rec budget_options_csr%ROWTYPE;
377:
375:
376: budget_options_rec budget_options_csr%ROWTYPE;
377:
378: -- check if impacts exists for control item type
379: CURSOR validate_impacts_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type) is
380: select 1
381: from pa_control_items pci,
382: pa_ci_impacts pc
383: where pci.ci_type_id = p_ci_type_id
398:
399:
400: -- end: cklee 09/30/09 bug: 8974414
401:
402: CURSOR val_impacts_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type,
403: p_impact_type_code varchar2) is
404: select pc.impact_type_code,
405: luk.meaning impact_type_name
406: from pa_control_items pci,
413: and pc.impact_type_code = p_impact_type_code;
414:
415: val_impacts_rec val_impacts_csr%ROWTYPE;
416: /* future use
417: CURSOR val_Dir_impacts_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type,
418: p_impact_type_code varchar2) is
419: select pc.impact_type_code,
420: luk.meaning impact_type_name
421: from pa_control_items pci,
438: and sup_det.resource_list_member_id=pra.resource_list_member_id);
439:
440: val_Dir_impacts_rec val_Dir_impacts_csr%ROWTYPE;
441:
442: CURSOR val_Supp_impacts_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type,
443: p_impact_type_code varchar2) is
444: select pc.impact_type_code,
445: luk.meaning impact_type_name
446: from pa_control_items pci,
465: val_Supp_impacts_rec val_Supp_impacts_csr%ROWTYPE;
466: */
467:
468: -- Check if direct/supplier cost regions have been created in budgets?
469: CURSOR new_fin_impacts_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type) is
470: select 1
471: from pa_ci_types_v pct,
472: pa_control_items pci,
473: pa_budget_versions pbv
477:
478: l_new_fin_imp_exists boolean := false;
479: l_new_fin_imp_dummy number;
480:
481: CURSOR imp_code_csr (p_ci_type_id pa_ci_types_b.CI_TYPE_ID%type,
482: p_impact_type_code varchar2) is
483: select luk.meaning impact_type_name
484: from pa_lookups luk
485: where luk.lookup_type = 'PA_CI_IMPACT_TYPES'
874: IF p_auto_number_flag = 'Y' THEN
875: BEGIN
876: SELECT 'X'
877: INTO l_temp
878: FROM pa_ci_types_b cit,
879: pa_control_items ci
880: WHERE cit.ci_type_id = p_ci_type_id
881: AND cit.auto_number_flag <> 'Y'
882: AND ci.ci_type_id = p_ci_type_id