[Home] [Help]
1: package body PA_COST_PLUS as
2: -- $Header: PAXCCPEB.pls 120.11.12000000.9 2007/06/28 12:47:29 prabsing ship $
3: -- Package constants
4: NO_DATA_FOUND_ERR number := 100;
5: INDIRECT_COST_CODE varchar2(30) := 'INDIRECT COST';
16: */
17:
18: /*Added these variables for the bug 4527736*/
19: G_RATE_SCH_REVISION_ID PA_IND_RATE_SCH_REVISIONS.IND_RATE_SCH_REVISION_ID%TYPE ;
20: G_CP_STRUCTURE PA_COST_PLUS_STRUCTURES.COST_PLUS_STRUCTURE%TYPE;
21: G_ORG_STRUC_VER_ID PA_IND_RATE_SCH_REVISIONS.ORG_STRUCTURE_VERSION_ID%TYPE;
22: G_START_ORGANIZATION_ID PA_IND_RATE_SCH_REVISIONS.START_ORGANIZATION_ID%TYPE;
23:
24: G_IMPACTED_COST_BASES_TAB PA_PLSQL_DATATYPES.Char30TabTyp;
28: /*
29: * Private Procedure.
30: */
31: PROCEDURE Cache_Impacted_Cost_Bases ( P_Ind_Rate_Sch_Revision_Id IN PA_IND_RATE_SCH_REVISIONS.IND_RATE_SCH_REVISION_ID%TYPE
32: ,P_Cp_Structure IN PA_COST_PLUS_STRUCTURES.COST_PLUS_STRUCTURE%TYPE
33: );
34: /* End Bug# 4527736 */
35:
36: G_gms_enabled varchar2(1):= gms_pa_api3.grants_enabled ;
788: start_org := G_START_ORGANIZATION_ID ;
789: /*
790: * Commented for bug 4527736
791: *
792: pa_cost_plus.get_hierarchy_from_revision(rate_sch_rev_id,
793: org_struc_ver_id,
794: start_org,
795: status,
796: stage);
806: --
807:
808: if (comp_type = 'INCREMENTAL') then
809:
810: pa_cost_plus.disable_sch_rev_org(rate_sch_rev_id,
811: org_id,
812: status,
813: stage);
814:
813: stage);
814:
815: end if;
816:
817: pa_cost_plus.compile_org_rates(rate_sch_rev_id,
818: org_id,
819: org_struc_ver_id,
820: start_org,
821: status,
839: --
840:
841: if (comp_type = 'INCREMENTAL') then
842:
843: pa_cost_plus.disable_sch_rev_org(rate_sch_rev_id,
844: org_row.organization_id_child,
845: status,
846: stage);
847:
846: stage);
847:
848: end if;
849:
850: pa_cost_plus.compile_org_rates(rate_sch_rev_id,
851: org_row.organization_id_child,
852: org_struc_ver_id,
853: start_org,
854: status,
991: ELSE
992: G_RATE_SCH_REVISION_ID := rev_struct_row.ind_rate_sch_revision_id;
993: G_CP_STRUCTURE := rev_struct_row.cost_plus_structure;
994:
995: pa_cost_plus.Cache_Impacted_Cost_Bases( G_RATE_SCH_REVISION_ID
996: ,G_CP_STRUCTURE);
997: END IF;
998:
999: G_ORG_STRUC_VER_ID := rev_struct_row.org_structure_version_id;
1026: ind_rate_sch_revision_id = rev_struct_row.ind_rate_sch_revision_id;
1027:
1028: COMMIT;
1029:
1030: pa_cost_plus.compile_org_hierarchy_rates(
1031: rev_struct_row.ind_rate_sch_revision_id,
1032: orgn_row.organization_id,
1033: 'INCREMENTAL',
1034: status,
1106: -- ind_rate_sch_revision_id = rev_row.ind_rate_sch_revision_id;
1107: --
1108: -- COMMIT;
1109: --
1110: -- pa_cost_plus.compile_org_hierarchy_rates(
1111: -- rev_row.ind_rate_sch_revision_id,
1112: -- l_org_id,
1113: -- 'INCREMENTAL',
1114: -- status,
1215: rate_sch_rev_id number;
1216: org_tab org_tab_type; /*2933915*/ /*To store top impacted orgs*/
1217: lstatus number ; /*2933915*/
1218: l_check number ; /*3055700*/
1219: l_cp_structure pa_cost_plus_structures.cost_plus_structure%TYPE ; /*3055700*/
1220: -- Standard who
1221: x_last_updated_by NUMBER(15);
1222: x_last_update_login NUMBER(15);
1223: x_request_id NUMBER(15);
1271: -- Join can not be used in a CONNECT BY statement
1272: --
1273:
1274:
1275: pa_cost_plus.get_hierarchy_from_revision(G_RATE_SCH_REVISION_ID, /* 4527736 */
1276: org_struc_ver_id,
1277: start_org,
1278: status,
1279: stage);
1296: Subsequently any changes in multiplies will affect only impacted org and
1297: impacted cost base as per enhancement .
1298: *********************************************************************************************/
1299:
1300: pa_cost_plus.get_cost_plus_structure(rate_sch_rev_id,
1301: l_cp_structure,
1302: status,
1303: stage);
1304:
1310:
1311: /* 4527736
1312: * Call Cache_Impacted_Cost_Bases.
1313: */
1314: /* pa_cost_plus.Cache_Impacted_Cost_Bases( G_RATE_SCH_REVISION_ID
1315: ,G_CP_STRUCTURE); Commented for Bug 5181688 */
1316:
1317: Begin
1318: /*If for start_org there are compiled set ids present with status 'A' for ALL the cost bases then
1336:
1337: IF (l_check =0) THEN
1338: /*If explicit multipliers are not defined for start org for ALL cost codes then only insert*/
1339:
1340: IF pa_cost_plus.check_for_explicit_multiplier(G_RATE_SCH_REVISION_ID ,start_org) =0 THEN /* 0 means not present*/
1341:
1342: Begin
1343:
1344: INSERT into pa_ind_cost_multipliers (ind_rate_sch_revision_id,
1379:
1380: /*End of changes for 3055700 */
1381:
1382: /*Bug 5181688 */
1383: pa_cost_plus.Cache_Impacted_Cost_Bases( G_RATE_SCH_REVISION_ID
1384: ,G_CP_STRUCTURE);
1385:
1386:
1387: /*2933915 :Added call to procedure find_impacted_top_org() that should return the PL/SQL table of
1391: This is to avoid compiling ALL the organizations in the hierarchy as was happening earlier and hence
1392: to start compiling from the top most impacted orgs */
1393:
1394: /* 4527736 */
1395: pa_cost_plus.find_impacted_top_org(G_RATE_SCH_REVISION_ID,G_ORG_STRUC_VER_ID,start_org,org_tab,status); /*2933915*/
1396:
1397: if (status < 0) then /*2933915*/
1398:
1399: errbuf := sqlerrm (status);
1404: -- Verify whether there is any costed expenditure item
1405: --
1406:
1407: -- 4527736
1408: pa_cost_plus.check_revision_used(G_RATE_SCH_REVISION_ID, lstatus, stage); /*2933915*/
1409:
1410: /*2933915 : FOR SELECTIVE DELETION AND OBSOLETION */
1411: /***Added a LOOP for the processing to go for each TOP IMPACTED organization returned by the above procedure in org_tab
1412: We are going to process for all the children of the top affected org **********/
1450: --
1451: -- Disable the current rate schedule if any
1452: --
1453: -- 4527736
1454: pa_cost_plus.disable_rate_sch_revision(G_RATE_SCH_REVISION_ID,G_ORG_STRUC_VER_ID,org_tab(i),status, stage );
1455: /*2933915 :ADDED org_struc_ver_id and org_id as parameter *****/
1456: if (status < 0) then
1457: errbuf := sqlerrm (status);
1458: retcode := 2;
1466: --
1467: -- Compile rates for all organizations starting from the top impacted organization
1468: --
1469:
1470: pa_cost_plus.compile_org_hierarchy_rates(G_RATE_SCH_REVISION_ID,
1471: org_tab(i), /*2933915 : Replaced start_org by org_tab(i)*/
1472: 'ALL',
1473: status,
1474: stage);
1483: END IF ; /*If org_tab.exists*/
1484:
1485: -- Mark impacted expenditure items for re-costing
1486:
1487: pa_cost_plus.mark_impacted_exp_items(G_RATE_SCH_REVISION_ID,status, stage);
1488:
1489: if (status < 0) then
1490: errbuf := sqlerrm (status);
1491: retcode := 2;
1569:
1570: BEGIN
1571: sch_rev_id := sch_row.ind_rate_sch_revision_id;
1572:
1573: pa_cost_plus.compile_schedule(errbuf,
1574: retcode,
1575: sch_rev_id);
1576:
1577: END;
1732: --
1733: -- Get the rate schedule revision id
1734: --
1735:
1736: pa_cost_plus.get_rate_sch_rev_id(exp_item_id,
1737: schedule_type,
1738: rate_sch_rev_id,
1739: status,
1740: stage);
1747: --
1748: -- Get the cost plus structure
1749: --
1750:
1751: pa_cost_plus.get_cost_plus_structure(rate_sch_rev_id,
1752: cp_structure,
1753: status,
1754: stage);
1755:
1762: --
1763: -- Get the cost base
1764: --
1765:
1766: pa_cost_plus.get_cost_base(exp_type,
1767: cp_structure,
1768: c_base,
1769: status,
1770: stage);
1778: --
1779: -- Get the organization
1780: --
1781:
1782: pa_cost_plus.get_organization_id(exp_item_id,
1783: org_id,
1784: status,
1785: stage);
1786:
1797: -- Get the indirect cost
1798: --
1799:
1800: /*
1801: pa_cost_plus.get_indirect_cost_sum(org_id,
1802: c_base,
1803: rate_sch_rev_id,
1804: direct_cost,
1805: 2, -- FOR US CURRENCY
1822: * Bug#2110452
1823: * Commented to implement the same logic for burden cost calculation
1824: * as is used in R10.7/R11.0.
1825: *
1826: * pa_cost_plus.get_compiled_multiplier(org_id,
1827: * c_base,
1828: * rate_sch_rev_id,
1829: * compiled_multiplier,
1830: * status,
1836: * To implement the same logic as is used in R10.7/R11.0 for
1837: * burden cost calculation.
1838: */
1839:
1840: pa_cost_plus.get_indirect_cost_sum1 ( org_id => org_id
1841: ,c_base => c_base
1842: ,rate_sch_rev_id => rate_sch_rev_id
1843: ,direct_cost => direct_cost
1844: ,direct_cost_denom => direct_cost_denom
1935: burden_amount_denom PA_EXPENDITURE_ITEMS.Denom_Burdened_cost%TYPE;
1936: burden_amount_Acct PA_EXPENDITURE_ITEMS.Acct_Burdened_cost%TYPE;
1937: burden_amount_Project PA_EXPENDITURE_ITEMS.Project_Burdened_cost%TYPE; /* epp */
1938: BEGIN
1939: pa_cost_plus.get_exp_item_indirect_cost(exp_item_id,
1940: schedule_type,
1941: burden_amount,
1942: burden_amount_denom,
1943: burden_amount_acct,
2200: status := 0;
2201:
2202: ELSE
2203:
2204: pa_cost_plus.get_exp_item_indirect_cost(
2205: Exp_Item_Row.Expenditure_Item_ID,
2206: 'C',
2207: indirect_cost,
2208: indirect_cost_acct,
2562: -- for which I couldn't find any references in 11.0 source stream
2563: -- By adding this change, we will be sending the indirect_cost as
2564: -- 0 if the burden amount to be displayed on same project as separate
2565: -- expenditure items
2566: -- Will make appropriate modifications to PA_COST_PLUS1 package to call
2567: -- PA_COST_PLUS1.view_indirect_cost instead of
2568: -- PA_COST_PLUS.view_indirect_cost
2569: --
2570: /*
2563: -- By adding this change, we will be sending the indirect_cost as
2564: -- 0 if the burden amount to be displayed on same project as separate
2565: -- expenditure items
2566: -- Will make appropriate modifications to PA_COST_PLUS1 package to call
2567: -- PA_COST_PLUS1.view_indirect_cost instead of
2568: -- PA_COST_PLUS.view_indirect_cost
2569: --
2570: /*
2571: * Bug#1065740
2564: -- 0 if the burden amount to be displayed on same project as separate
2565: -- expenditure items
2566: -- Will make appropriate modifications to PA_COST_PLUS1 package to call
2567: -- PA_COST_PLUS1.view_indirect_cost instead of
2568: -- PA_COST_PLUS.view_indirect_cost
2569: --
2570: /*
2571: * Bug#1065740
2572: * parameter added to this cursor to avoid conflict
2635: END LOOP;
2636: END IF;
2637:
2638:
2639: pa_cost_plus.find_rate_sch_rev_id(
2640: transaction_id,
2641: transaction_type,
2642: task_id,
2643: schedule_type,
2657: --
2658: -- Get the cost plus structure
2659: --
2660:
2661: pa_cost_plus.get_cost_plus_structure(rate_sch_rev_id,
2662: cp_structure,
2663: status,
2664: stage);
2665:
2672: --
2673: -- Get the cost base
2674: --
2675:
2676: pa_cost_plus.get_cost_base(expenditure_type,
2677: cp_structure,
2678: c_base,
2679: status,
2680: stage);
2696: --
2697: -- Get the indirect cost
2698: --
2699:
2700: pa_cost_plus.get_indirect_cost_sum(organization_id,
2701: c_base,
2702: rate_sch_rev_id,
2703: direct_cost,
2704: 2, -- FOR US CURRENCY
2760: --
2761: -- Get the rate schedule revision id
2762: --
2763:
2764: pa_cost_plus.get_revision_by_date(burden_schedule_id,
2765: effective_date,
2766: effective_date,
2767: burden_sch_rev_id,
2768: status,
2777: --
2778: -- Get the cost plus structure
2779: --
2780:
2781: pa_cost_plus.get_cost_plus_structure(burden_sch_rev_id,
2782: cp_structure,
2783: status,
2784: stage);
2785:
2792: --
2793: -- Get the cost base
2794: --
2795:
2796: pa_cost_plus.get_cost_base(expenditure_type,
2797: cp_structure,
2798: c_base,
2799: status,
2800: stage);
2808: --
2809: -- Get the compiled set id
2810: --
2811:
2812: pa_cost_plus.get_compiled_set_id(burden_sch_rev_id,
2813: organization_id,
2814: c_base, /*Bug# 2933915*/
2815: compiled_set_id,
2816: status,
2824: --
2825: -- Get the indirect cost
2826: --
2827:
2828: pa_cost_plus.get_indirect_cost_sum(organization_id,
2829: c_base,
2830: burden_sch_rev_id,
2831: raw_amount,
2832: 2, -- FOR US CURRENCY
2876: -- Get the rate schedule revision id
2877: --
2878:
2879: /*
2880: pa_cost_plus.get_revision_by_date(burden_schedule_id,
2881: effective_date,
2882: effective_date,
2883: burden_sch_rev_id,
2884: status,
2895: --
2896: -- Get the cost plus structure
2897: --
2898:
2899: pa_cost_plus.get_cost_plus_structure(burden_sch_rev_id,
2900: cp_structure,
2901: status,
2902: stage);
2903:
2910: --
2911: -- Get the cost base
2912: --
2913:
2914: pa_cost_plus.get_cost_base(expenditure_type,
2915: cp_structure,
2916: c_base,
2917: status,
2918: stage);
2926: --
2927: -- Get the compiled set id
2928: --
2929:
2930: pa_cost_plus.get_compiled_set_id(burden_sch_rev_id,
2931: organization_id,
2932: c_base, /*Bug# 2933915*/
2933: compiled_set_id,
2934: status,
2942: --
2943: -- Get the indirect cost
2944: --
2945:
2946: pa_cost_plus.get_indirect_cost_sum(organization_id,
2947: c_base,
2948: burden_sch_rev_id,
2949: raw_amount,
2950: 2, -- FOR US CURRENCY
3122: -- Get revision id if schedule is not null
3123: --
3124:
3125: IF (sch_id IS NOT NULL) THEN
3126: pa_cost_plus.get_revision_by_date(sch_id,
3127: sch_fixed_date,
3128: exp_item_date,
3129: rate_sch_rev_id,
3130: status,
3279: END IF;
3280:
3281:
3282: if (sch_id IS NOT NULL) then
3283: pa_cost_plus.get_revision_by_date(sch_id,
3284: sch_fixed_date,
3285: exp_item_date,
3286: rate_sch_rev_id,
3287: status,
3332:
3333: END IF;
3334:
3335: if (sch_id IS NOT NULL) then
3336: pa_cost_plus.get_revision_by_date(sch_id,
3337: sch_fixed_date,
3338: exp_item_date,
3339: rate_sch_rev_id,
3340: status,
3408: --
3409: -- Get the indirect rate schedule
3410: --
3411:
3412: pa_cost_plus.find_rate_sch_rev_id(
3413: exp_item_id,
3414: 'PA',
3415: t_id,
3416: schedule_type,
3869: status := 0;
3870:
3871: FOR rev_row IN rev_cursor LOOP
3872:
3873: pa_cost_plus.check_revision_used(rev_row.ind_rate_sch_revision_id,
3874: status,
3875: stage);
3876:
3877: if (status <> 0) then
3951: x_last_update_login := FND_GLOBAL.LOGIN_ID;
3952:
3953: SELECT cost_plus_structure_type
3954: INTO structure_type
3955: FROM pa_cost_plus_structures
3956: WHERE cost_plus_structure = destination;
3957:
3958: if (structure_type = 'A') then
3959: icc_precedence := 1 ;
4330: AND ((ics.ind_compiled_set_id = ITEM.cost_ind_compiled_set_id)
4331: or (ics.ind_compiled_set_id = ITEM.tp_ind_compiled_set_id))
4332: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4333: AND ics.status = 'H'
4334: * AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 -- Bug# 3134445
4335: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4336: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 -- Bug# 3134445 and Bug 3938479
4337: ) */
4338: AND EXISTS ((SELECT NULL
4331: or (ics.ind_compiled_set_id = ITEM.tp_ind_compiled_set_id))
4332: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4333: AND ics.status = 'H'
4334: * AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 -- Bug# 3134445
4335: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4336: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 -- Bug# 3134445 and Bug 3938479
4337: ) */
4338: AND EXISTS ((SELECT NULL
4339: FROM PA_EXPENDITURES_ALL EXP
4332: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4333: AND ics.status = 'H'
4334: * AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 -- Bug# 3134445
4335: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4336: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 -- Bug# 3134445 and Bug 3938479
4337: ) */
4338: AND EXISTS ((SELECT NULL
4339: FROM PA_EXPENDITURES_ALL EXP
4340: ,PA_IND_COMPILED_SETS ICS
4343: AND NVL(ITEM.OVERRIDE_TO_ORGANIZATION_ID, EXP.INCURRED_BY_ORGANIZATION_ID) =ICS.ORGANIZATION_ID
4344: AND ICS.IND_RATE_SCH_REVISION_ID = rate_sch_rev_id /* Added for Bug 5683523 */
4345: AND ICS.STATUS = 'H'
4346: AND DECODE(rate_sch_rev_id ,g_rate_sch_rev_id ,DECODE(ICS.ORGANIZATION_ID,g_org_id ,g_org_override
4347: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID))
4348: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID ))=0
4349: )
4350: UNION ALL (SELECT NULL
4351: FROM PA_EXPENDITURES_ALL EXP
4344: AND ICS.IND_RATE_SCH_REVISION_ID = rate_sch_rev_id /* Added for Bug 5683523 */
4345: AND ICS.STATUS = 'H'
4346: AND DECODE(rate_sch_rev_id ,g_rate_sch_rev_id ,DECODE(ICS.ORGANIZATION_ID,g_org_id ,g_org_override
4347: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID))
4348: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID ))=0
4349: )
4350: UNION ALL (SELECT NULL
4351: FROM PA_EXPENDITURES_ALL EXP
4352: ,PA_IND_COMPILED_SETS ICS
4355: AND NVL(ITEM.OVERRIDE_TO_ORGANIZATION_ID, EXP.INCURRED_BY_ORGANIZATION_ID) =ICS.ORGANIZATION_ID
4356: AND ICS.IND_RATE_SCH_REVISION_ID = rate_sch_rev_id /* Added for Bug 5683523 */
4357: AND ICS.STATUS = 'H'
4358: AND DECODE(rate_sch_rev_id ,g_rate_sch_rev_id ,DECODE(ICS.ORGANIZATION_ID,g_org_id ,g_org_override
4359: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID))
4360: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID ))=0
4361: )
4362: )
4363: AND ((pa_utils2.Proj_Type_Burden_Disp_Method(ITEM.project_id) IN ('S','s','D','d') AND l_burden_profile ='N')
4356: AND ICS.IND_RATE_SCH_REVISION_ID = rate_sch_rev_id /* Added for Bug 5683523 */
4357: AND ICS.STATUS = 'H'
4358: AND DECODE(rate_sch_rev_id ,g_rate_sch_rev_id ,DECODE(ICS.ORGANIZATION_ID,g_org_id ,g_org_override
4359: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID))
4360: , PA_COST_PLUS.CHECK_FOR_EXPLICIT_MULTIPLIER(rate_sch_rev_id ,ICS.ORGANIZATION_ID ))=0
4361: )
4362: )
4363: AND ((pa_utils2.Proj_Type_Burden_Disp_Method(ITEM.project_id) IN ('S','s','D','d') AND l_burden_profile ='N')
4364: OR (pa_utils2.Proj_Type_Burden_Disp_Method(ITEM.project_id) IN ('S','s') AND l_burden_profile ='Y'))
4365: RETURNING expenditure_item_id, decode(cs1_row.ind_compiled_set_id,ITEM.tp_ind_compiled_set_id,'UPDATE TP SCHEDULE REVISION','UPDATE COST SCHEDULE REVISION')
4366: BULK COLLECT INTO G_EXPENDITURE_ITEM_ID_TAB,G_ADJ_TYPE_TAB;
4367:
4368: stage := 290 ;
4369: pa_cost_plus.add_adjustment_activity(G_EXPENDITURE_ITEM_ID_TAB
4370: ,G_ADJ_TYPE_TAB
4371: ,status
4372: ,stage
4373: );
4542: AND ((ics.ind_compiled_set_id = ITEM.cost_ind_compiled_set_id)
4543: or (ics.ind_compiled_set_id = ITEM.tp_ind_compiled_set_id))
4544: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4545: AND ics.status = 'H'
4546: /*AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 /*3134445*/
4547: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4548: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 /*Bug# 3134445 and Bug 3938479*/
4549: )
4550:
4543: or (ics.ind_compiled_set_id = ITEM.tp_ind_compiled_set_id))
4544: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4545: AND ics.status = 'H'
4546: /*AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 /*3134445*/
4547: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4548: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 /*Bug# 3134445 and Bug 3938479*/
4549: )
4550:
4551: /*****************************************************************
4544: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4545: AND ics.status = 'H'
4546: /*AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 /*3134445*/
4547: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4548: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 /*Bug# 3134445 and Bug 3938479*/
4549: )
4550:
4551: /*****************************************************************
4552: AND exists (select 1
4562: BULK COLLECT INTO G_EXPENDITURE_ITEM_ID_TAB,G_ADJ_TYPE_TAB;
4563:
4564: stage := 300 ;
4565: /*
4566: pa_cost_plus.add_adjustment_activity(cs1_row.ind_compiled_set_id
4567: --,cost_base_rec.cost_base
4568: ,G_IMPACTED_COST_BASES_TAB(i)
4569: ,l_cp_structure
4570: ,'UPDATE COST SCHEDULE REVISION'
4575: ,stage
4576: ,G_EXPENDITURE_ITEM_ID_TAB
4577: ,G_ADJ_TYPE_TAB);
4578: */
4579: pa_cost_plus.add_adjustment_activity(G_EXPENDITURE_ITEM_ID_TAB
4580: ,G_ADJ_TYPE_TAB
4581: ,status
4582: ,stage
4583: );
4633: or (ics.ind_compiled_set_id = ITEM.inv_ind_compiled_set_id))
4634: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4635: AND ics.ind_rate_sch_revision_id = rate_sch_rev_id /* Added for Bug 5683523 */
4636: AND ics.status = 'H'
4637: /*AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 /*Bug# 3134445*/
4638: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4639: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 /*Bug# 3134445 and Bug 3938479*/
4640: )
4641: RETURNING expenditure_item_id, decode(cs1_row.ind_compiled_set_id,ITEM.rev_ind_compiled_set_id,'UPDATE REV SCHEDULE REVISION','UPDATE INV SCHEDULE REVISION')
4634: AND nvl(ITEM.override_to_organization_id,exp.incurred_by_organization_id) =ics.organization_id
4635: AND ics.ind_rate_sch_revision_id = rate_sch_rev_id /* Added for Bug 5683523 */
4636: AND ics.status = 'H'
4637: /*AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 /*Bug# 3134445*/
4638: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4639: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 /*Bug# 3134445 and Bug 3938479*/
4640: )
4641: RETURNING expenditure_item_id, decode(cs1_row.ind_compiled_set_id,ITEM.rev_ind_compiled_set_id,'UPDATE REV SCHEDULE REVISION','UPDATE INV SCHEDULE REVISION')
4642: BULK COLLECT INTO G_EXPENDITURE_ITEM_ID_TAB,G_ADJ_TYPE_TAB;
4635: AND ics.ind_rate_sch_revision_id = rate_sch_rev_id /* Added for Bug 5683523 */
4636: AND ics.status = 'H'
4637: /*AND pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ) =0 /*Bug# 3134445*/
4638: AND decode(rate_sch_rev_id,g_rate_sch_rev_id,decode(ics.organization_id,g_org_id,g_org_override,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id))
4639: ,pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id,ics.organization_id ))=0 /*Bug# 3134445 and Bug 3938479*/
4640: )
4641: RETURNING expenditure_item_id, decode(cs1_row.ind_compiled_set_id,ITEM.rev_ind_compiled_set_id,'UPDATE REV SCHEDULE REVISION','UPDATE INV SCHEDULE REVISION')
4642: BULK COLLECT INTO G_EXPENDITURE_ITEM_ID_TAB,G_ADJ_TYPE_TAB;
4643:
4641: RETURNING expenditure_item_id, decode(cs1_row.ind_compiled_set_id,ITEM.rev_ind_compiled_set_id,'UPDATE REV SCHEDULE REVISION','UPDATE INV SCHEDULE REVISION')
4642: BULK COLLECT INTO G_EXPENDITURE_ITEM_ID_TAB,G_ADJ_TYPE_TAB;
4643:
4644: stage := 450 ;
4645: /* pa_cost_plus.add_adjustment_activity(cs1_row.ind_compiled_set_id
4646: --,cost_base_rec.cost_base
4647: ,G_IMPACTED_COST_BASES_TAB(i)
4648: ,l_cp_structure
4649: ,NULL
4655: ,G_EXPENDITURE_ITEM_ID_TAB
4656: ,G_ADJ_TYPE_TAB);
4657: */
4658:
4659: pa_cost_plus.add_adjustment_activity(G_EXPENDITURE_ITEM_ID_TAB
4660: ,G_ADJ_TYPE_TAB
4661: ,status
4662: ,stage
4663: );
4700: FOR cs2_row IN cs2_cursor LOOP
4701:
4702: stage := 500;
4703:
4704: pa_cost_plus.mark_prev_rev_exp_items(cs2_row.ind_compiled_set_id,
4705: rev_type,
4706: 'NEW REVISION',
4707: l_start_date,
4708: l_end_date,
4731: FOR cs3_row IN cs3_cursor LOOP
4732:
4733: stage := 600;
4734:
4735: pa_cost_plus.mark_prev_rev_exp_items(cs3_row.ind_compiled_set_id,
4736: rev_type,
4737: 'APPLY ACTUAL',
4738: l_start_date,
4739: l_end_date,
6363:
6364: /*
6365: procedure add_adjustment_activity(compiled_set_id IN number,
6366: p_cost_base IN pa_cost_bases.cost_base%TYPE
6367: ,p_cost_plus_structure IN pa_cost_plus_structures.cost_plus_structure%TYPE,
6368: cost_adj_reason IN varchar2,
6369: rev_adj_reason IN varchar2,
6370: inv_adj_reason IN varchar2,
6371: tp_adj_reason IN varchar2,
6809: compiled set ids for that.
6810: This is in view of the enhancement that new compiled set ids will not be generated for an org if explicit multipliers are defined
6811: for all the cost codes in impacted cost bases for that org*/
6812:
6813: IF pa_cost_plus.check_for_explicit_multiplier(rate_sch_rev_id ,org_id_rec.org_id_child) =0 THEN /*3016281*/
6814: --FOR cost_base_rec in impacted_cost_bases(rate_sch_rev_id)
6815: IF G_IMPACTED_COST_BASES_TAB.COUNT <> 0 THEN /*4590268*/
6816:
6817: FOR i IN G_IMPACTED_COST_BASES_TAB.FIRST .. G_IMPACTED_COST_BASES_TAB.LAST
6934:
6935: --
6936: -- Get the costing indirect cost
6937: --
6938: pa_cost_plus.view_indirect_cost(
6939: NULL,
6940: 'PA',
6941: x_task_id,
6942: x_gl_date,
6960:
6961: --
6962: -- Get the revenue indirect cost
6963: --
6964: pa_cost_plus.view_indirect_cost(
6965: NULL,
6966: 'PA',
6967: x_task_id,
6968: x_gl_date,
6991:
6992: --
6993: -- Get the invoice indirect cost
6994: --
6995: pa_cost_plus.view_indirect_cost(
6996: NULL,
6997: 'PA',
6998: x_task_id,
6999: x_gl_date,
7049:
7050: x_return_status := 0;
7051: x_stage := 0;
7052:
7053: pa_cost_plus.find_rate_sch_rev_id (NULL,
7054: 'PA',
7055: x_task_id,
7056: x_detail_type_flag,
7057: x_gl_date,
7073:
7074:
7075: begin
7076:
7077: pa_cost_plus.get_cost_plus_structure(x_rate_sch_rev_id,
7078: x_cp_structure,
7079: x_return_status,
7080: x_stage);
7081:
7078: x_cp_structure,
7079: x_return_status,
7080: x_stage);
7081:
7082: pa_cost_plus.get_cost_base (x_expenditure_type,
7083: x_cp_structure,
7084: x_cost_base,
7085: x_return_status,
7086: x_stage);
7525: RAISE;
7526: END check_for_explicit_multiplier ; /*3012681*/
7527:
7528: PROCEDURE Cache_Impacted_Cost_Bases ( P_Ind_Rate_Sch_Revision_Id IN PA_IND_RATE_SCH_REVISIONS.IND_RATE_SCH_REVISION_ID%TYPE
7529: ,P_Cp_Structure IN PA_COST_PLUS_STRUCTURES.COST_PLUS_STRUCTURE%TYPE
7530: )
7531: IS
7532: CURSOR impacted_cost_bases_cur( P_Ind_Rate_Sch_Revision_Id PA_IND_RATE_SCH_REVISIONS.IND_RATE_SCH_REVISION_ID%TYPE
7533: ,P_Cp_Structure PA_COST_PLUS_STRUCTURES.COST_PLUS_STRUCTURE%TYPE
7529: ,P_Cp_Structure IN PA_COST_PLUS_STRUCTURES.COST_PLUS_STRUCTURE%TYPE
7530: )
7531: IS
7532: CURSOR impacted_cost_bases_cur( P_Ind_Rate_Sch_Revision_Id PA_IND_RATE_SCH_REVISIONS.IND_RATE_SCH_REVISION_ID%TYPE
7533: ,P_Cp_Structure PA_COST_PLUS_STRUCTURES.COST_PLUS_STRUCTURE%TYPE
7534: )
7535: IS
7536: SELECT pcb.COST_BASE
7537: FROM PA_COST_BASES pcb
7572: CLOSE impacted_cost_bases_cur;
7573:
7574: END Cache_Impacted_Cost_Bases;
7575:
7576: end PA_COST_PLUS ;