[Home] [Help]
213: CURSOR get_rateOvrds ( p_resource_assignment_id IN NUMBER) IS
214: SELECT rtx.txn_raw_cost_rate_override
215: ,rtx.txn_burden_cost_rate_override
216: ,rtx.txn_bill_rate_override
217: FROM pa_resource_asgn_curr rtx
218: WHERE rtx.resource_assignment_id = p_resource_assignment_id;
219:
220: l_rtx_rateOvrds_rec get_rateOvrds%ROWTYPE;
221:
5174: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5175: END IF;
5176:
5177: -- IPM changes - populate tmp table to use for rollup
5178: delete pa_resource_asgn_curr_tmp;
5179:
5180: IF l_ra_id_temp_tbl.COUNT > 0 THEN
5181: -- IPM - populate the currency code
5182: l_curr_code_temp_tbl.extend(l_ra_id_temp_tbl.COUNT);
5194: END IF;
5195: END LOOP;
5196:
5197: FORALL i IN l_ra_id_temp_tbl.first .. l_ra_id_temp_tbl.last
5198: INSERT INTO pa_resource_asgn_curr_tmp
5199: (RA_TXN_ID
5200: ,RESOURCE_ASSIGNMENT_ID
5201: ,TXN_CURRENCY_CODE
5202: ,DELETE_FLAG
5203: ,TXN_RAW_COST_RATE_OVERRIDE -- 6839167
5204: ,TXN_BURDEN_COST_RATE_OVERRIDE
5205: ,TXN_BILL_RATE_OVERRIDE
5206: )
5207: SELECT pa_resource_asgn_curr_s.nextval
5208: ,l_ra_id_temp_tbl(i)
5209: ,l_curr_code_temp_tbl(i)
5210: ,NULL
5211: ,prac.TXN_RAW_COST_RATE_OVERRIDE --6839167
5210: ,NULL
5211: ,prac.TXN_RAW_COST_RATE_OVERRIDE --6839167
5212: ,prac.TXN_BURDEN_COST_RATE_OVERRIDE
5213: ,prac.TXN_BILL_RATE_OVERRIDE
5214: from pa_resource_asgn_curr prac
5215: where prac.RESOURCE_ASSIGNMENT_ID=l_ra_id_temp_tbl(i);
5216: END IF;
5217:
5218: pa_res_asg_currency_pub.maintain_data(
6757:
6758: --The below LOOP will be used to derive the txn currency code for each task assignment
6759: FOR i IN l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
6760:
6761: --Bug 6397725. From FP M RUP3 onwards check should be made against pa_resource_asgn_curr
6762: --table
6763: /*
6764: SELECT NVL(pbl.txn_currency_code,l_existing_curr_code)
6765: INTO l_currency_code_tbl(i)
6774: WHERE b.resource_assignment_id=l_resource_assignment_id_tbl(i);*/
6775:
6776: SELECT NVL(rac.txn_currency_code,l_existing_curr_code)
6777: INTO l_currency_code_tbl(i)
6778: FROM pa_resource_asgn_curr rac,
6779: pa_resource_assignments pra
6780: WHERE rac.resource_assignment_id(+)=pra.resource_assignment_id
6781: AND pra.resource_assignment_id=l_resource_assignment_id_tbl(i);
6782:
7331: /*
7332: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
7333: FORALL i IN l_resource_assignment_id_tbl.first ..
7334: l_resource_assignment_id_tbl.last
7335: INSERT INTO pa_resource_asgn_curr_tmp
7336: (RA_TXN_ID
7337: ,RESOURCE_ASSIGNMENT_ID
7338: ,TXN_CURRENCY_CODE
7339: ,DELETE_FLAG
7337: ,RESOURCE_ASSIGNMENT_ID
7338: ,TXN_CURRENCY_CODE
7339: ,DELETE_FLAG
7340: )
7341: SELECT pa_resource_asgn_curr_s.nextval
7342: ,l_resource_assignment_id_tbl(i)
7343: ,l_currency_code_tbl(i)
7344: ,NULL
7345: FROM DUAL;
7895: IF l_calculate_flag = 'Y' then
7896:
7897: -- IPM changes - populate tmp table to use for rollup
7898: -- Bug 5034507: Delete temp table before inserting new records
7899: DELETE pa_resource_asgn_curr_tmp;
7900:
7901: -- For bug 5017855, ensure that the combinations of
7902: -- (resource_assignment_id, txn_currency_code) are distinct.
7903: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
7901: -- For bug 5017855, ensure that the combinations of
7902: -- (resource_assignment_id, txn_currency_code) are distinct.
7903: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
7904: -- Bug 5070740: Need to copy override rates before calculate is called
7905: INSERT INTO pa_resource_asgn_curr_tmp (
7906: RESOURCE_ASSIGNMENT_ID,
7907: TXN_CURRENCY_CODE,
7908: TXN_RAW_COST_RATE_OVERRIDE,
7909: TXN_BURDEN_COST_RATE_OVERRIDE,
7913: src_rbc.txn_currency_code,
7914: src_rbc.TXN_RAW_COST_RATE_OVERRIDE,
7915: src_rbc.TXN_BURDEN_COST_RATE_OVERRIDE,
7916: src_rbc.TXN_BILL_RATE_OVERRIDE
7917: FROM pa_resource_asgn_curr src_rbc,
7918: pa_fp_ra_map_tmp map,
7919: --pa_budget_lines bl
7920: pa_resource_assignments ra
7921: WHERE ra.budget_version_id =l_targ_budget_version_id
8346: END IF;
8347:
8348: -- IPM changes - populate tmp table to use for rollup
8349: -- Bug 5034507: Delete temp table before inserting new records
8350: DELETE pa_resource_asgn_curr_tmp;
8351:
8352: -- For bug 5017855, ensure that the combinations of
8353: -- (resource_assignment_id, txn_currency_code) are distinct.
8354: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
8351:
8352: -- For bug 5017855, ensure that the combinations of
8353: -- (resource_assignment_id, txn_currency_code) are distinct.
8354: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
8355: INSERT INTO pa_resource_asgn_curr_tmp (
8356: RESOURCE_ASSIGNMENT_ID,
8357: TXN_CURRENCY_CODE,
8358: TXN_RAW_COST_RATE_OVERRIDE,
8359: TXN_BURDEN_COST_RATE_OVERRIDE,
8363: src_rbc.txn_currency_code,
8364: src_rbc.TXN_RAW_COST_RATE_OVERRIDE,
8365: src_rbc.TXN_BURDEN_COST_RATE_OVERRIDE,
8366: src_rbc.TXN_BILL_RATE_OVERRIDE
8367: FROM pa_resource_asgn_curr src_rbc,
8368: pa_fp_ra_map_tmp map,
8369: --pa_budget_lines bl
8370: pa_resource_assignments ra
8371: WHERE ra.budget_version_id =l_targ_budget_version_id
8591: l_fp_cols_rec pa_fp_gen_amount_utils.fp_cols; -- IPM
8592:
8593: BEGIN
8594:
8595: delete pa_resource_asgn_curr_tmp;
8596: x_msg_count := 0;
8597: x_return_status := FND_API.G_RET_STS_SUCCESS;
8598:
8599: pa_task_assignment_utils.g_require_progress_rollup := 'N';
9027: -- IPM changes - populate tmp table to use for deletion later
9028: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
9029: FORALL i IN l_resource_assignment_id_tbl.first ..
9030: l_resource_assignment_id_tbl.last
9031: INSERT INTO pa_resource_asgn_curr_tmp
9032: (RA_TXN_ID
9033: ,RESOURCE_ASSIGNMENT_ID
9034: ,TXN_CURRENCY_CODE
9035: ,DELETE_FLAG
9033: ,RESOURCE_ASSIGNMENT_ID
9034: ,TXN_CURRENCY_CODE
9035: ,DELETE_FLAG
9036: )
9037: SELECT pa_resource_asgn_curr_s.nextval
9038: ,l_resource_assignment_id_tbl(i)
9039: ,l_txn_currency_code_tbl(i)
9040: ,'Y'
9041: FROM DUAL;
9066: -- hr_utility.trace('RM DEL4');
9067: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
9068: FORALL i IN l_ra_id_in_pra_tbl.first ..
9069: l_ra_id_in_pra_tbl.last
9070: INSERT INTO pa_resource_asgn_curr_tmp
9071: (RA_TXN_ID
9072: ,RESOURCE_ASSIGNMENT_ID
9073: -- ,TXN_CURRENCY_CODE
9074: ,DELETE_FLAG
9072: ,RESOURCE_ASSIGNMENT_ID
9073: -- ,TXN_CURRENCY_CODE
9074: ,DELETE_FLAG
9075: )
9076: SELECT pa_resource_asgn_curr_s.nextval
9077: ,l_ra_id_in_pra_tbl(i)
9078: -- ,l_txn_currency_code_tbl(i)
9079: ,'Y'
9080: FROM DUAL;
9173: -- hr_utility.trace('RM DEL6');
9174: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
9175: FORALL i IN l_resource_assignment_id_tbl.first ..
9176: l_resource_assignment_id_tbl.last
9177: INSERT INTO pa_resource_asgn_curr_tmp
9178: (RA_TXN_ID
9179: ,RESOURCE_ASSIGNMENT_ID
9180: -- ,TXN_CURRENCY_CODE
9181: ,DELETE_FLAG
9179: ,RESOURCE_ASSIGNMENT_ID
9180: -- ,TXN_CURRENCY_CODE
9181: ,DELETE_FLAG
9182: )
9183: SELECT pa_resource_asgn_curr_s.nextval
9184: ,l_resource_assignment_id_tbl(i)
9185: -- ,l_txn_currency_code_tbl(i)
9186: ,'Y'
9187: FROM DUAL;
9211: -- hr_utility.trace('RM DEL3');
9212: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
9213: FORALL i IN l_ra_id_in_pra_tbl.first ..
9214: l_ra_id_in_pra_tbl.last
9215: INSERT INTO pa_resource_asgn_curr_tmp
9216: (RA_TXN_ID
9217: ,RESOURCE_ASSIGNMENT_ID
9218: -- ,TXN_CURRENCY_CODE
9219: ,DELETE_FLAG
9217: ,RESOURCE_ASSIGNMENT_ID
9218: -- ,TXN_CURRENCY_CODE
9219: ,DELETE_FLAG
9220: )
9221: SELECT pa_resource_asgn_curr_s.nextval
9222: ,l_ra_id_in_pra_tbl(i)
9223: -- ,l_project_currency_code
9224: ,'Y'
9225: FROM DUAL;
9333: -- hr_utility.trace('RM DEL5');
9334: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
9335: FORALL i IN l_resource_assignment_id_tbl.first ..
9336: l_resource_assignment_id_tbl.last
9337: INSERT INTO pa_resource_asgn_curr_tmp
9338: (RA_TXN_ID
9339: ,RESOURCE_ASSIGNMENT_ID
9340: -- ,TXN_CURRENCY_CODE
9341: ,DELETE_FLAG
9339: ,RESOURCE_ASSIGNMENT_ID
9340: -- ,TXN_CURRENCY_CODE
9341: ,DELETE_FLAG
9342: )
9343: SELECT pa_resource_asgn_curr_s.nextval
9344: ,l_resource_assignment_id_tbl(i)
9345: -- ,l_txn_currency_code_tbl(i)
9346: ,'Y'
9347: FROM DUAL;
9382: -- hr_utility.trace('RM DEL8');
9383: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
9384: FORALL i IN l_ra_id_in_pra_tbl.first ..
9385: l_ra_id_in_pra_tbl.last
9386: INSERT INTO pa_resource_asgn_curr_tmp
9387: (RA_TXN_ID
9388: ,RESOURCE_ASSIGNMENT_ID
9389: -- ,TXN_CURRENCY_CODE
9390: ,DELETE_FLAG
9388: ,RESOURCE_ASSIGNMENT_ID
9389: -- ,TXN_CURRENCY_CODE
9390: ,DELETE_FLAG
9391: )
9392: SELECT pa_resource_asgn_curr_s.nextval
9393: ,l_ra_id_in_pra_tbl(i)
9394: -- ,l_project_currency_code
9395: ,'Y'
9396: FROM DUAL;
9550: -- hr_utility.trace('RM DEL1');
9551: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
9552: FORALL i IN l_resource_assignment_id_tbl.first ..
9553: l_resource_assignment_id_tbl.last
9554: INSERT INTO pa_resource_asgn_curr_tmp
9555: (RA_TXN_ID
9556: ,RESOURCE_ASSIGNMENT_ID
9557: ,TXN_CURRENCY_CODE -- Bug 5057010
9558: ,DELETE_FLAG
9556: ,RESOURCE_ASSIGNMENT_ID
9557: ,TXN_CURRENCY_CODE -- Bug 5057010
9558: ,DELETE_FLAG
9559: )
9560: SELECT pa_resource_asgn_curr_s.nextval
9561: ,l_resource_assignment_id_tbl(i)
9562: ,l_txn_currency_code_tbl(i) -- Bug 5057010
9563: ,'Y'
9564: FROM DUAL;
9597: -- IPM changes - populate temp table for deletion
9598: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
9599: FORALL i IN l_ra_id_in_pra_tbl.first ..
9600: l_ra_id_in_pra_tbl.last
9601: INSERT INTO pa_resource_asgn_curr_tmp
9602: (RA_TXN_ID
9603: ,RESOURCE_ASSIGNMENT_ID
9604: -- ,TXN_CURRENCY_CODE
9605: ,DELETE_FLAG
9603: ,RESOURCE_ASSIGNMENT_ID
9604: -- ,TXN_CURRENCY_CODE
9605: ,DELETE_FLAG
9606: )
9607: SELECT pa_resource_asgn_curr_s.nextval
9608: ,l_ra_id_in_pra_tbl(i)
9609: -- ,l_project_currency_code
9610: ,'Y'
9611: FROM DUAL;
9632:
9633: -- IPM changes - delete from new entity --{
9634: -- new entity maintenance api to be called before call to pa_fp_rollup_pkg.rollup_budget_version.
9635: -- Call new entity maintenance api for the budget version id (which has to be derived),
9636: -- if records have been inserted in pa_Resource_asgn_curr_tmp, in the delete flow.
9637: -- Note: Deriving l_budget_version_id may not be the right approach as we avoid calling BV/RA
9638: -- rollup api and pji api when l_budget_version_id is null (No BLs deleted)
9639: IF l_budget_version_id IS NOT NULL THEN
9640: pa_debug.g_err_stage:='Calling pa_fp_gen_amount_utils.get_plan_version_dtls:bv_id ' || l_budget_version_id;
10696: -- Bug 4724017: CDM Enhancement: Changes in behavior:
10697: Whenever the planning level is changed for an existing version,
10698: default planning transaction would be created only for the vesions
10699: which uses an uncategorized resource list.
10700: -- Bug 5754758: Modified to delete lines from pa_resource_asgn_curr before going to
10701: create_default_plan_txn api.
10702:
10703: ==============================================================================*/
10704:
10913: RETURNING resource_assignment_id BULK COLLECT INTO l_delete_ra_id_tbl;
10914: /* Bug 5754758 - Commenting the code, as the maintain_data is now called in version level mode to delete the RACs.
10915: IF l_delete_ra_id_tbl.COUNT > 0 THEN
10916: FORALL i IN l_delete_ra_id_tbl.first .. l_delete_ra_id_tbl.last
10917: INSERT INTO pa_resource_asgn_curr_tmp
10918: (RA_TXN_ID
10919: ,RESOURCE_ASSIGNMENT_ID
10920: ,DELETE_FLAG
10921: )
10918: (RA_TXN_ID
10919: ,RESOURCE_ASSIGNMENT_ID
10920: ,DELETE_FLAG
10921: )
10922: SELECT pa_resource_asgn_curr_s.NEXTVAL
10923: ,l_delete_ra_id_tbl(i)
10924: ,'Y'
10925: FROM DUAL;
10926: END IF;
11036: RETURNING resource_assignment_id BULK COLLECT INTO l_delete_ra_id_tbl;
11037:
11038: IF l_delete_ra_id_tbl.COUNT > 0 THEN
11039: FORALL i IN l_delete_ra_id_tbl.first .. l_delete_ra_id_tbl.last
11040: INSERT INTO pa_resource_asgn_curr_tmp
11041: (RA_TXN_ID
11042: ,RESOURCE_ASSIGNMENT_ID
11043: ,DELETE_FLAG
11044: )
11041: (RA_TXN_ID
11042: ,RESOURCE_ASSIGNMENT_ID
11043: ,DELETE_FLAG
11044: )
11045: SELECT pa_resource_asgn_curr_s.NEXTVAL
11046: ,l_delete_ra_id_tbl(i)
11047: ,'Y'
11048: FROM DUAL;
11049: END IF;