[Home] [Help]
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);
2207: END IF;
2208:
2209: select pa_resource_assignments_s.nextval
2210: into x_resource_assignment_id
2211: from sys.dual;
2212:
2213: IF P_PA_DEBUG_MODE = 'Y' THEN
2214: pa_debug.g_err_stage:= 'Resource assignment id - '||x_resource_assignment_id;
2215: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2327:
2328: /* FPB2 */
2329: SELECT pa_budget_lines_s.nextval
2330: INTO l_budget_line_id
2331: FROM DUAL;
2332:
2333: IF P_PA_DEBUG_MODE = 'Y' THEN
2334: pa_debug.g_err_stage:= 'l_budget_line_id is - '||l_budget_line_id;
2335: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2771:
2772: BEGIN
2773: select 1
2774: into l_dummy
2775: from sys.dual
2776: where exists
2777: (select 1
2778: from pa_resource_assignments
2779: where budget_version_id = p_draft_version_id);
2820: || to_char(p_draft_version_id) || '>';
2821:
2822: select 'T'
2823: into l_entry_level_code
2824: from sys.dual
2825: where exists
2826: (select 1
2827: from pa_resource_assignments
2828: where budget_version_id = p_draft_version_id
3037: l_err_stage VARCHAR2(120) :=NULL;
3038: l_err_stack VARCHAR2(630) :=NULL;
3039: l_old_stack VARCHAR2(630) :=NULL;
3040:
3041: l_Dual_Bdgt_Cntrl_Flag VARCHAR2(1) :=NULL;
3042: l_CC_Budget_Version_id NUMBER := 0;
3043: l_gl_new_base_ver_id NUMBER := 0;
3044: l_cc_new_base_ver_id NUMBER := 0;
3045: l_gl_budget_type_code pa_budget_types.budget_type_code%TYPE :=NULL;
3098:
3099: -- When commitment budget support is reinstated, then either a SQL or a procedure
3100: -- call will be required to populate the following parameters:
3101: --
3102: -- 1) l_Dual_Bdgt_Cntrl_Flag
3103: -- 2) l_CC_Budget_Version_id
3104:
3105: --Bug 6524116
3106: begin
3104:
3105: --Bug 6524116
3106: begin
3107: select 'Y'
3108: into l_dual_bdgt_cntrl_flag
3109: from dual
3110: where exists
3111: (select 1
3112: from pa_budgetary_control_options a
3105: --Bug 6524116
3106: begin
3107: select 'Y'
3108: into l_dual_bdgt_cntrl_flag
3109: from dual
3110: where exists
3111: (select 1
3112: from pa_budgetary_control_options a
3113: where project_id = p_project_id
3120: and external_budget_code = 'GL'
3121: and bdgt_cntrl_flag = 'Y');
3122: exception
3123: when no_data_found then
3124: l_Dual_Bdgt_Cntrl_Flag := 'N';
3125: end;
3126:
3127: begin
3128: SELECT budget_version_id
3142: l_CC_Budget_Version_id := 0;
3143: end;
3144: --END Bug 6524116
3145:
3146: IF (nvl(l_Dual_Bdgt_Cntrl_Flag,'N') = 'Y'
3147: AND nvl(l_CC_Budget_Version_id,0) > 0 )
3148: THEN
3149: --dbms_output.put_line('-- Baseline Commitment Control draft budget: '||to_char(l_CC_Budget_Version_id) );
3150:
3188: THEN
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3191:
3192: END IF; --(nvl(l_Dual_Bdgt_Cntrl_Flag,'N') ) = 'Y'
3193:
3194: --R12 SLA Effort: Desupported Until Futher Notice
3195: END IF;--IF (nvl(l_Dual_Bdgt_Cntrl_Flag,'N') = 'Y'
3196:
3191:
3192: END IF; --(nvl(l_Dual_Bdgt_Cntrl_Flag,'N') ) = 'Y'
3193:
3194: --R12 SLA Effort: Desupported Until Futher Notice
3195: END IF;--IF (nvl(l_Dual_Bdgt_Cntrl_Flag,'N') = 'Y'
3196:
3197: -- BASELINE D-R-A-F-T C-O-S-T Version ---------------------------------------
3198:
3199: PA_BUDGET_CORE.Baseline(x_draft_version_id => p_draft_version_id
3266: PA_BUDGET_FUND_PKG.Check_OR_Reserve_Funds
3267: (P_Project_ID => p_project_id
3268: ,P_Budget_Version_Id => l_baseline_version_id
3269: ,P_calling_Mode => 'RESERVE_BASELINE'
3270: ,X_Dual_Bdgt_Cntrl_Flag => l_Dual_Bdgt_Cntrl_Flag
3271: ,X_CC_Budget_Version_id => l_CC_Budget_Version_id
3272: ,X_Return_Status => l_Return_Status
3273: ,X_Msg_Data => l_Msg_Data
3274: ,X_Msg_Count => l_Msg_Count
3529: old_stack varchar2(630);
3530:
3531: cursor get_rollup_level is
3532: select 'P'
3533: from dual
3534: where x_task_id is null
3535: union
3536: select 'T'
3537: from pa_tasks
3548: from pa_tasks
3549: where parent_task_id = x_task_id)
3550: union
3551: select 'L'
3552: from dual
3553: where x_task_id is not null
3554: and not exists (select 'X'
3555: from pa_tasks
3556: where parent_task_id = x_task_id);
4007: BEGIN
4008:
4009: SELECT 'Y'
4010: INTO l_dummy
4011: FROM dual
4012: WHERE EXISTS (select '1'
4013: from pa_budget_versions v
4014: where v.project_id = p_project_id
4015: and v.budget_type_code IN ('AC','AR')
4149:
4150: BEGIN
4151: SELECT 1
4152: INTO dummy
4153: FROM dual
4154: WHERE EXISTS( SELECT 1
4155: FROM pa_budget_versions pbv,
4156: pa_resource_lists prl
4157: WHERE (pbv.budget_type_code = 'AR' OR -- old model