DBA Data[Home] [Help]

APPS.PA_MAINT_PROJECT_BUDGETS dependencies on PA_BUDGET_VERSIONS

Line 654: CURSOR PA_Budget_versions_cur

650: PAB.UNIT_OF_MEASURE_ORIG,
651: PAB.ROLLUP_QUANTITY_FLAG,
652: PAB.RESOURCE_LIST_ASSIGNMENT_ID;
653:
654: CURSOR PA_Budget_versions_cur
655: IS
656: SELECT Distinct
657: Budget_Type_Code,
658: Budget_Version_id

Line 663: FROM PA_BUDGET_VERSIONS

659: FROM
660: (
661: SELECT Budget_Type_Code
662: , Budget_Version_id
663: FROM PA_BUDGET_VERSIONS
664: Where Project_Id = x_project_id
665: And Current_Flag = 'Y'
666: and budget_type_code IS NOT NULL -- r11.5.7 Budgets Model
667: UNION ALL

Line 670: FROM PA_BUDGET_VERSIONS

666: and budget_type_code IS NOT NULL -- r11.5.7 Budgets Model
667: UNION ALL
668: SELECT to_char(fin_plan_type_id) Budget_Type_Code
669: , Budget_Version_id
670: FROM PA_BUDGET_VERSIONS
671: Where Project_Id = x_project_id
672: And Current_Flag = 'Y'
673: and budget_type_code IS NULL -- FP Model Plan Type, #3561255, changed to 'IS NULL'
674: UNION ALL

Line 677: FROM PA_BUDGET_VERSIONS

673: and budget_type_code IS NULL -- FP Model Plan Type, #3561255, changed to 'IS NULL'
674: UNION ALL
675: SELECT 'AC' Budget_Type_Code
676: , Budget_Version_id
677: FROM PA_BUDGET_VERSIONS
678: Where Project_Id = x_project_id
679: And Current_Flag = 'Y'
680: and budget_type_code IS NULL -- FP Model PSI AC Record, #3561255, changed to 'IS NULL'
681: and nvl(approved_cost_plan_type_flag,'N') = 'Y' -- -- APPROVED C-O-S-T

Line 685: FROM PA_BUDGET_VERSIONS

681: and nvl(approved_cost_plan_type_flag,'N') = 'Y' -- -- APPROVED C-O-S-T
682: UNION ALL
683: SELECT 'AR' Budget_Type_Code
684: , Budget_Version_id
685: FROM PA_BUDGET_VERSIONS
686: Where Project_Id = x_project_id
687: And Current_Flag = 'Y'
688: and budget_type_code IS NULL -- FP Model PSI AC Record, #3561255, changed to 'IS NULL'
689: and nvl(approved_rev_plan_type_flag,'N') = 'Y' -- -- APPROVED R-E-V-E-N-U-E

Line 693: FROM PA_BUDGET_VERSIONS

689: and nvl(approved_rev_plan_type_flag,'N') = 'Y' -- -- APPROVED R-E-V-E-N-U-E
690: UNION ALL
691: SELECT 'FC' Budget_Type_Code
692: , Budget_Version_id
693: FROM PA_BUDGET_VERSIONS
694: Where Project_Id = x_project_id
695: And Current_Flag = 'Y'
696: and budget_type_code IS NULL -- FP Model PSI FC Record
697: and nvl(primary_cost_forecast_flag,'N') = 'Y' -- -- PRIMARY FORECAST C-O-S-T

Line 701: FROM PA_BUDGET_VERSIONS

697: and nvl(primary_cost_forecast_flag,'N') = 'Y' -- -- PRIMARY FORECAST C-O-S-T
698: UNION ALL
699: SELECT 'FR' Budget_Type_Code
700: , Budget_Version_id
701: FROM PA_BUDGET_VERSIONS
702: Where Project_Id = x_project_id
703: And Current_Flag = 'Y'
704: and budget_type_code IS NULL -- FP Model PSI AC Record
705: and nvl(primary_rev_forecast_flag,'N') = 'Y' -- -- PRIMARY FORECAST R-E-V-E-N-U-E

Line 709: PA_budget_versions_Rec PA_Budget_versions_cur%ROWTYPE;

705: and nvl(primary_rev_forecast_flag,'N') = 'Y' -- -- PRIMARY FORECAST R-E-V-E-N-U-E
706: );
707:
708:
709: PA_budget_versions_Rec PA_Budget_versions_cur%ROWTYPE;
710: tot_recs_processed Number := 0;
711: x_Budget_rec PA_Budget_Cur%ROWTYPE;
712: x_recs_processed Number := 0;
713:

Line 1183: For PA_budget_versions_Rec In PA_Budget_versions_cur LOOP

1179: -- Else process all budget types.
1180:
1181: -- After processing all budget records, mark the budget versions as accumulated
1182:
1183: For PA_budget_versions_Rec In PA_Budget_versions_cur LOOP
1184: If nvl(x_Budget_Type_code,PA_budget_versions_Rec.BUDGET_TYPE_CODE)
1185: = PA_budget_versions_Rec.BUDGET_TYPE_CODE Then
1186: Update PA_BUDGET_VERSIONS SET
1187: RESOURCE_ACCUMULATED_FLAG = 'Y' WHERE

Line 1184: If nvl(x_Budget_Type_code,PA_budget_versions_Rec.BUDGET_TYPE_CODE)

1180:
1181: -- After processing all budget records, mark the budget versions as accumulated
1182:
1183: For PA_budget_versions_Rec In PA_Budget_versions_cur LOOP
1184: If nvl(x_Budget_Type_code,PA_budget_versions_Rec.BUDGET_TYPE_CODE)
1185: = PA_budget_versions_Rec.BUDGET_TYPE_CODE Then
1186: Update PA_BUDGET_VERSIONS SET
1187: RESOURCE_ACCUMULATED_FLAG = 'Y' WHERE
1188: BUDGET_VERSION_ID = PA_budget_versions_Rec.BUDGET_VERSION_ID;

Line 1185: = PA_budget_versions_Rec.BUDGET_TYPE_CODE Then

1181: -- After processing all budget records, mark the budget versions as accumulated
1182:
1183: For PA_budget_versions_Rec In PA_Budget_versions_cur LOOP
1184: If nvl(x_Budget_Type_code,PA_budget_versions_Rec.BUDGET_TYPE_CODE)
1185: = PA_budget_versions_Rec.BUDGET_TYPE_CODE Then
1186: Update PA_BUDGET_VERSIONS SET
1187: RESOURCE_ACCUMULATED_FLAG = 'Y' WHERE
1188: BUDGET_VERSION_ID = PA_budget_versions_Rec.BUDGET_VERSION_ID;
1189: End If;

Line 1186: Update PA_BUDGET_VERSIONS SET

1182:
1183: For PA_budget_versions_Rec In PA_Budget_versions_cur LOOP
1184: If nvl(x_Budget_Type_code,PA_budget_versions_Rec.BUDGET_TYPE_CODE)
1185: = PA_budget_versions_Rec.BUDGET_TYPE_CODE Then
1186: Update PA_BUDGET_VERSIONS SET
1187: RESOURCE_ACCUMULATED_FLAG = 'Y' WHERE
1188: BUDGET_VERSION_ID = PA_budget_versions_Rec.BUDGET_VERSION_ID;
1189: End If;
1190: END LOOP;

Line 1188: BUDGET_VERSION_ID = PA_budget_versions_Rec.BUDGET_VERSION_ID;

1184: If nvl(x_Budget_Type_code,PA_budget_versions_Rec.BUDGET_TYPE_CODE)
1185: = PA_budget_versions_Rec.BUDGET_TYPE_CODE Then
1186: Update PA_BUDGET_VERSIONS SET
1187: RESOURCE_ACCUMULATED_FLAG = 'Y' WHERE
1188: BUDGET_VERSION_ID = PA_budget_versions_Rec.BUDGET_VERSION_ID;
1189: End If;
1190: END LOOP;
1191: COMMIT;
1192: -- Restore the old x_err_stack;