521: BEGIN
522:
523: select 1
524: into dummy
525: from dual
526: where exists
527: (select 1
528: from pa_budget_versions bv, pa_budget_types bt
529: where bv.project_id = x_project_id
553: So adding a join to pa_fin_plan_types_b and
554: checking status of use_for_workplan_flag */
555: select 1
556: into dummy
557: from dual
558: where exists
559: (select 1
560: from pa_budget_versions bv
561: where bv.project_id = x_project_id
578: BEGIN
579:
580: select 1
581: into dummy
582: from dual
583: where exists
584: (select 1
585: from pa_budget_versions bv, pa_budget_types bt
586: where bv.project_id = x_project_id
603: BEGIN
604:
605: select 1
606: into dummy
607: from dual
608: where exists
609: (select 1
610: from pa_budget_versions bv
611: where bv.project_id = x_project_id
628: BEGIN
629:
630: select 1
631: into dummy
632: from dual
633: where exists
634: (select 1
635: from pa_budget_versions bv, pa_budget_types bt
636: where bv.project_id = x_project_id
653: BEGIN
654:
655: select 1
656: into dummy
657: from dual
658: where exists
659: (select 1
660: from pa_budget_versions bv
661: where bv.project_id = x_project_id
706: THEN
707:
708: select 1
709: into dummy
710: from dual
711: where exists
712: (select 1
713: from pa_budget_versions bv
714: where bv.project_id = x_project_id
722:
723:
724: select 1
725: into dummy
726: from dual
727: where exists
728: (select 1
729: from pa_budget_versions bv
730: where bv.project_id = x_project_id
752: THEN
753:
754: select 1
755: into dummy
756: from dual
757: where exists
758: (select 1
759: from pa_budget_versions bv
760: where bv.project_id = x_project_id
768: -- Must be 'AR'
769:
770: select 1
771: into dummy
772: from dual
773: where exists
774: (select 1
775: from pa_budget_versions bv
776: where bv.project_id = x_project_id
802: BEGIN
803:
804: select 1
805: into dummy
806: from dual
807: where exists
808: (select 1
809: from pa_budget_versions bv, pa_budget_types bt
810: where bv.project_id = x_project_id
828: BEGIN
829:
830: select 1
831: into dummy
832: from dual
833: where exists
834: (select 1
835: from pa_budget_versions bv
836: where bv.project_id = x_project_id
947: BEGIN
948:
949: select 1
950: into dummy
951: from dual
952: where exists
953: (select 1
954: from pa_budget_versions bv
955: , pa_budget_types bt
983: checking status of use_for_workplan_flag */
984:
985: select 1
986: into dummy
987: from dual
988: where exists
989: (select 1
990: from pa_budget_versions bv
991: , pa_resource_assignments a
1011: BEGIN
1012:
1013: select 1
1014: into dummy
1015: from dual
1016: where exists
1017: (select 1
1018: from pa_budget_versions bv
1019: , pa_budget_types bt
1040: BEGIN
1041:
1042: select 1
1043: into dummy
1044: from dual
1045: where exists
1046: (select 1
1047: from pa_budget_versions bv
1048: , pa_resource_assignments a
1067: BEGIN
1068:
1069: select 1
1070: into dummy
1071: from dual
1072: where exists
1073: (select 1
1074: from pa_budget_versions bv
1075: , pa_budget_types bt
1096: BEGIN
1097:
1098: select 1
1099: into dummy
1100: from dual
1101: where exists
1102: (select 1
1103: from pa_budget_versions bv
1104: , pa_resource_assignments a
1148: THEN
1149:
1150: select 1
1151: into dummy
1152: from dual
1153: where exists
1154: (select 1
1155: from pa_budget_versions bv
1156: , pa_tasks t
1166: -- Must be 'AR'
1167:
1168: select 1
1169: into dummy
1170: from dual
1171: where exists
1172: (select 1
1173: from pa_budget_versions bv
1174: , pa_tasks t
1204: * the following select to avoid full index scan on PA_PROJ_ELEM_VER_SCHEDULE_N1
1205: */
1206: select 1
1207: into dummy
1208: from dual
1209: where exists
1210: (select 1
1211: from pa_budget_versions bv
1212: ,pa_tasks t --Bug 4176059: Performance Fix: FP.M -B12: re-used pa_tasks
1231: * the following select to avoid full index scan on PA_PROJ_ELEM_VER_SCHEDULE_N1
1232: */
1233: select 1
1234: into dummy
1235: from dual
1236: where exists
1237: (select 1
1238: from pa_budget_versions bv
1239: ,pa_tasks t -- Bug 4176059: Performance Fix: FP.M -B12: re-used pa_tasks
1270: BEGIN
1271:
1272: select 1
1273: into dummy
1274: from dual
1275: where exists
1276: (select 1
1277: from pa_budget_versions bv
1278: , pa_budget_types bt
1307: */
1308:
1309: select 1
1310: into dummy
1311: from dual
1312: where exists
1313: (select 1
1314: from pa_budget_versions bv
1315: ,pa_tasks t -- Bug 4176059: Performance Fix: FP.M -B12: re-used pa_tasks
1399: if (x_parent_member_id = 0) then
1400:
1401: select 1
1402: into dummy
1403: from sys.dual
1404: where exists
1405: (select 1
1406: from pa_resource_list_members m,
1407: pa_resource_assignments a
1412:
1413: else
1414: select 1
1415: into dummy
1416: from sys.dual
1417: where exists
1418: (select 1
1419: from pa_resource_assignments a
1420: where a.budget_version_id = x_budget_version_id
1918:
1919: -- Included this select to return the newly create budget version id
1920: SELECT pa_budget_versions_s.nextval
1921: INTO x_budget_version_id
1922: FROM dual;
1923: insert into pa_budget_versions(
1924: budget_version_id,
1925: project_id,
1926: budget_type_code,
2016: x_pm_budget_reference,
2017: NULL,
2018: decode(x_budget_type_code,'AC','Y','N'),
2019: decode(x_budget_type_code,'AR','Y','N')
2020: from sys.dual;
2021:
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.g_err_stage:= 'End of pa_budget create_draft';
2024: pa_debug.write('create_draft: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2209: END IF;
2210:
2211: select pa_resource_assignments_s.nextval
2212: into x_resource_assignment_id
2213: from sys.dual;
2214:
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2216: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2217: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2331:
2332: /* FPB2 */
2333: SELECT pa_budget_lines_s.nextval
2334: INTO l_budget_line_id
2335: FROM DUAL;
2336:
2337: IF P_PA_DEBUG_MODE = 'Y' THEN
2338: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2339: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2775:
2776: BEGIN
2777: select 1
2778: into l_dummy
2779: from sys.dual
2780: where exists
2781: (select 1
2782: from pa_resource_assignments
2783: where budget_version_id = p_draft_version_id);
2824: || to_char(p_draft_version_id) || '>';
2825:
2826: select 'T'
2827: into l_entry_level_code
2828: from sys.dual
2829: where exists
2830: (select 1
2831: from pa_resource_assignments
2832: where budget_version_id = p_draft_version_id
3041: l_err_stage VARCHAR2(120) :=NULL;
3042: l_err_stack VARCHAR2(630) :=NULL;
3043: l_old_stack VARCHAR2(630) :=NULL;
3044:
3045: l_Dual_Bdgt_Cntrl_Flag VARCHAR2(1) :=NULL;
3046: l_CC_Budget_Version_id NUMBER := 0;
3047: l_gl_new_base_ver_id NUMBER := 0;
3048: l_cc_new_base_ver_id NUMBER := 0;
3049: l_gl_budget_type_code pa_budget_types.budget_type_code%TYPE :=NULL;
3102:
3103: -- When commitment budget support is reinstated, then either a SQL or a procedure
3104: -- call will be required to populate the following parameters:
3105: --
3106: -- 1) l_Dual_Bdgt_Cntrl_Flag
3107: -- 2) l_CC_Budget_Version_id
3108:
3109: --Bug 6524116
3110: begin
3108:
3109: --Bug 6524116
3110: begin
3111: select 'Y'
3112: into l_dual_bdgt_cntrl_flag
3113: from dual
3114: where exists
3115: (select 1
3116: from pa_budgetary_control_options a
3109: --Bug 6524116
3110: begin
3111: select 'Y'
3112: into l_dual_bdgt_cntrl_flag
3113: from dual
3114: where exists
3115: (select 1
3116: from pa_budgetary_control_options a
3117: where project_id = p_project_id
3124: and external_budget_code = 'GL'
3125: and bdgt_cntrl_flag = 'Y');
3126: exception
3127: when no_data_found then
3128: l_Dual_Bdgt_Cntrl_Flag := 'N';
3129: end;
3130:
3131: begin
3132: SELECT budget_version_id
3146: l_CC_Budget_Version_id := 0;
3147: end;
3148: --END Bug 6524116
3149:
3150: IF (nvl(l_Dual_Bdgt_Cntrl_Flag,'N') = 'Y'
3151: AND nvl(l_CC_Budget_Version_id,0) > 0 )
3152: THEN
3153: --dbms_output.put_line('-- Baseline Commitment Control draft budget: '||to_char(l_CC_Budget_Version_id) );
3154:
3192: THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: END IF;
3195:
3196: END IF; --(nvl(l_Dual_Bdgt_Cntrl_Flag,'N') ) = 'Y'
3197:
3198: --R12 SLA Effort: Desupported Until Futher Notice
3199: END IF;--IF (nvl(l_Dual_Bdgt_Cntrl_Flag,'N') = 'Y'
3200:
3195:
3196: END IF; --(nvl(l_Dual_Bdgt_Cntrl_Flag,'N') ) = 'Y'
3197:
3198: --R12 SLA Effort: Desupported Until Futher Notice
3199: END IF;--IF (nvl(l_Dual_Bdgt_Cntrl_Flag,'N') = 'Y'
3200:
3201: -- BASELINE D-R-A-F-T C-O-S-T Version ---------------------------------------
3202:
3203: PA_BUDGET_CORE.Baseline(x_draft_version_id => p_draft_version_id
3270: PA_BUDGET_FUND_PKG.Check_OR_Reserve_Funds
3271: (P_Project_ID => p_project_id
3272: ,P_Budget_Version_Id => l_baseline_version_id
3273: ,P_calling_Mode => 'RESERVE_BASELINE'
3274: ,X_Dual_Bdgt_Cntrl_Flag => l_Dual_Bdgt_Cntrl_Flag
3275: ,X_CC_Budget_Version_id => l_CC_Budget_Version_id
3276: ,X_Return_Status => l_Return_Status
3277: ,X_Msg_Data => l_Msg_Data
3278: ,X_Msg_Count => l_Msg_Count
3533: old_stack varchar2(630);
3534:
3535: cursor get_rollup_level is
3536: select 'P'
3537: from dual
3538: where x_task_id is null
3539: union
3540: select 'T'
3541: from pa_tasks
3552: from pa_tasks
3553: where parent_task_id = x_task_id)
3554: union
3555: select 'L'
3556: from dual
3557: where x_task_id is not null
3558: and not exists (select 'X'
3559: from pa_tasks
3560: where parent_task_id = x_task_id);
4011: BEGIN
4012:
4013: SELECT 'Y'
4014: INTO l_dummy
4015: FROM dual
4016: WHERE EXISTS (select '1'
4017: from pa_budget_versions v
4018: where v.project_id = p_project_id
4019: and v.budget_type_code IN ('AC','AR')
4153:
4154: BEGIN
4155: SELECT 1
4156: INTO dummy
4157: FROM dual
4158: WHERE EXISTS( SELECT 1
4159: FROM pa_budget_versions pbv,
4160: pa_resource_lists prl
4161: WHERE (pbv.budget_type_code = 'AR' OR -- old model