[Home] [Help]
269: CURSOR get_rateOvrds ( p_resource_assignment_id IN NUMBER) IS
270: SELECT rtx.txn_raw_cost_rate_override
271: ,rtx.txn_burden_cost_rate_override
272: ,rtx.txn_bill_rate_override
273: FROM pa_resource_asgn_curr rtx
274: WHERE rtx.resource_assignment_id = p_resource_assignment_id;
275:
276: l_rtx_rateOvrds_rec get_rateOvrds%ROWTYPE;
277:
5827: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5828: END IF;
5829:
5830: -- IPM changes - populate tmp table to use for rollup
5831: delete pa_resource_asgn_curr_tmp;
5832:
5833: IF l_ra_id_temp_tbl.COUNT > 0 THEN
5834: -- IPM - populate the currency code
5835: l_curr_code_temp_tbl.extend(l_ra_id_temp_tbl.COUNT);
5847: END IF;
5848: END LOOP;
5849:
5850: FORALL i IN l_ra_id_temp_tbl.first .. l_ra_id_temp_tbl.last
5851: INSERT INTO pa_resource_asgn_curr_tmp
5852: (RA_TXN_ID
5853: ,RESOURCE_ASSIGNMENT_ID
5854: ,TXN_CURRENCY_CODE
5855: ,DELETE_FLAG
5857: ,TXN_BURDEN_COST_RATE_OVERRIDE
5858: ,TXN_BILL_RATE_OVERRIDE
5859: ,expenditure_type --added for EnC
5860: )
5861: SELECT pa_resource_asgn_curr_s.nextval
5862: ,l_ra_id_temp_tbl(i)
5863: ,l_curr_code_temp_tbl(i)
5864: ,NULL
5865: ,prac.TXN_RAW_COST_RATE_OVERRIDE --6839167
5865: ,prac.TXN_RAW_COST_RATE_OVERRIDE --6839167
5866: ,prac.TXN_BURDEN_COST_RATE_OVERRIDE
5867: ,prac.TXN_BILL_RATE_OVERRIDE
5868: ,l_direct_expenditure_type_tbl(i)
5869: from pa_resource_asgn_curr prac
5870: where prac.RESOURCE_ASSIGNMENT_ID=l_ra_id_temp_tbl(i);
5871: END IF;
5872:
5873: pa_res_asg_currency_pub.maintain_data(
7446:
7447: --The below LOOP will be used to derive the txn currency code for each task assignment
7448: FOR i IN l_resource_assignment_id_tbl.FIRST .. l_resource_assignment_id_tbl.LAST LOOP
7449:
7450: --Bug 6397725. From FP M RUP3 onwards check should be made against pa_resource_asgn_curr
7451: --table
7452: /*
7453: SELECT NVL(pbl.txn_currency_code,l_existing_curr_code)
7454: INTO l_currency_code_tbl(i)
7463: WHERE b.resource_assignment_id=l_resource_assignment_id_tbl(i);*/
7464:
7465: SELECT NVL(rac.txn_currency_code,l_existing_curr_code)
7466: INTO l_currency_code_tbl(i)
7467: FROM pa_resource_asgn_curr rac,
7468: pa_resource_assignments pra
7469: WHERE rac.resource_assignment_id(+)=pra.resource_assignment_id
7470: AND pra.resource_assignment_id=l_resource_assignment_id_tbl(i);
7471:
8142:
8143: --Enc changes
8144: l_direct_expenditure_type_tbl.extend(l_resource_assignment_id_tbl.count);
8145:
8146: /*Update exp type for the transaction in pa_resource_asgn_curr */
8147:
8148: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
8149: FORALL i IN 1 .. l_resource_assignment_id_tbl.COUNT
8150: update pa_resource_asgn_curr
8146: /*Update exp type for the transaction in pa_resource_asgn_curr */
8147:
8148: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
8149: FORALL i IN 1 .. l_resource_assignment_id_tbl.COUNT
8150: update pa_resource_asgn_curr
8151: set expenditure_type=l_direct_expenditure_type_tbl(i)
8152: where resource_assignment_id= l_resource_assignment_id_tbl(i)
8153: and txn_currency_code=l_currency_code_tbl(i);
8154: END IF;
8157: /*
8158: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
8159: FORALL i IN l_resource_assignment_id_tbl.first ..
8160: l_resource_assignment_id_tbl.last
8161: INSERT INTO pa_resource_asgn_curr_tmp
8162: (RA_TXN_ID
8163: ,RESOURCE_ASSIGNMENT_ID
8164: ,TXN_CURRENCY_CODE
8165: ,DELETE_FLAG
8163: ,RESOURCE_ASSIGNMENT_ID
8164: ,TXN_CURRENCY_CODE
8165: ,DELETE_FLAG
8166: )
8167: SELECT pa_resource_asgn_curr_s.nextval
8168: ,l_resource_assignment_id_tbl(i)
8169: ,l_currency_code_tbl(i)
8170: ,NULL
8171: FROM DUAL;
8721: IF l_calculate_flag = 'Y' then
8722:
8723: -- IPM changes - populate tmp table to use for rollup
8724: -- Bug 5034507: Delete temp table before inserting new records
8725: DELETE pa_resource_asgn_curr_tmp;
8726:
8727: -- For bug 5017855, ensure that the combinations of
8728: -- (resource_assignment_id, txn_currency_code) are distinct.
8729: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
8727: -- For bug 5017855, ensure that the combinations of
8728: -- (resource_assignment_id, txn_currency_code) are distinct.
8729: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
8730: -- Bug 5070740: Need to copy override rates before calculate is called
8731: INSERT INTO pa_resource_asgn_curr_tmp (
8732: RESOURCE_ASSIGNMENT_ID,
8733: TXN_CURRENCY_CODE,
8734: TXN_RAW_COST_RATE_OVERRIDE,
8735: TXN_BURDEN_COST_RATE_OVERRIDE,
8739: src_rbc.txn_currency_code,
8740: src_rbc.TXN_RAW_COST_RATE_OVERRIDE,
8741: src_rbc.TXN_BURDEN_COST_RATE_OVERRIDE,
8742: src_rbc.TXN_BILL_RATE_OVERRIDE
8743: FROM pa_resource_asgn_curr src_rbc,
8744: pa_fp_ra_map_tmp map,
8745: --pa_budget_lines bl
8746: pa_resource_assignments ra
8747: WHERE ra.budget_version_id =l_targ_budget_version_id
9172: END IF;
9173:
9174: -- IPM changes - populate tmp table to use for rollup
9175: -- Bug 5034507: Delete temp table before inserting new records
9176: DELETE pa_resource_asgn_curr_tmp;
9177:
9178: -- For bug 5017855, ensure that the combinations of
9179: -- (resource_assignment_id, txn_currency_code) are distinct.
9180: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
9177:
9178: -- For bug 5017855, ensure that the combinations of
9179: -- (resource_assignment_id, txn_currency_code) are distinct.
9180: -- Bug 5042399: Copy Source override rates to the temp table for Target resources.
9181: INSERT INTO pa_resource_asgn_curr_tmp (
9182: RESOURCE_ASSIGNMENT_ID,
9183: TXN_CURRENCY_CODE,
9184: TXN_RAW_COST_RATE_OVERRIDE,
9185: TXN_BURDEN_COST_RATE_OVERRIDE,
9189: src_rbc.txn_currency_code,
9190: src_rbc.TXN_RAW_COST_RATE_OVERRIDE,
9191: src_rbc.TXN_BURDEN_COST_RATE_OVERRIDE,
9192: src_rbc.TXN_BILL_RATE_OVERRIDE
9193: FROM pa_resource_asgn_curr src_rbc,
9194: pa_fp_ra_map_tmp map,
9195: --pa_budget_lines bl
9196: pa_resource_assignments ra
9197: WHERE ra.budget_version_id =l_targ_budget_version_id
9419: l_cbs_element_id_tbl SYSTEM.pa_num_tbl_type := SYSTEM.pa_num_tbl_type() ; --bug#16688443
9420:
9421: BEGIN
9422:
9423: delete pa_resource_asgn_curr_tmp;
9424: x_msg_count := 0;
9425: x_return_status := FND_API.G_RET_STS_SUCCESS;
9426:
9427: pa_task_assignment_utils.g_require_progress_rollup := 'N';
9859: -- IPM changes - populate tmp table to use for deletion later
9860: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
9861: FORALL i IN l_resource_assignment_id_tbl.first ..
9862: l_resource_assignment_id_tbl.last
9863: INSERT INTO pa_resource_asgn_curr_tmp
9864: (RA_TXN_ID
9865: ,RESOURCE_ASSIGNMENT_ID
9866: ,TXN_CURRENCY_CODE
9867: ,DELETE_FLAG
9865: ,RESOURCE_ASSIGNMENT_ID
9866: ,TXN_CURRENCY_CODE
9867: ,DELETE_FLAG
9868: )
9869: SELECT pa_resource_asgn_curr_s.nextval
9870: ,l_resource_assignment_id_tbl(i)
9871: ,l_txn_currency_code_tbl(i)
9872: ,'Y'
9873: FROM DUAL;
9905: -- hr_utility.trace('RM DEL4');
9906: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
9907: FORALL i IN l_ra_id_in_pra_tbl.first ..
9908: l_ra_id_in_pra_tbl.last
9909: INSERT INTO pa_resource_asgn_curr_tmp
9910: (RA_TXN_ID
9911: ,RESOURCE_ASSIGNMENT_ID
9912: -- ,TXN_CURRENCY_CODE
9913: ,DELETE_FLAG
9911: ,RESOURCE_ASSIGNMENT_ID
9912: -- ,TXN_CURRENCY_CODE
9913: ,DELETE_FLAG
9914: )
9915: SELECT pa_resource_asgn_curr_s.nextval
9916: ,l_ra_id_in_pra_tbl(i)
9917: -- ,l_txn_currency_code_tbl(i)
9918: ,'Y'
9919: FROM DUAL;
10012: -- hr_utility.trace('RM DEL6');
10013: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
10014: FORALL i IN l_resource_assignment_id_tbl.first ..
10015: l_resource_assignment_id_tbl.last
10016: INSERT INTO pa_resource_asgn_curr_tmp
10017: (RA_TXN_ID
10018: ,RESOURCE_ASSIGNMENT_ID
10019: -- ,TXN_CURRENCY_CODE
10020: ,DELETE_FLAG
10018: ,RESOURCE_ASSIGNMENT_ID
10019: -- ,TXN_CURRENCY_CODE
10020: ,DELETE_FLAG
10021: )
10022: SELECT pa_resource_asgn_curr_s.nextval
10023: ,l_resource_assignment_id_tbl(i)
10024: -- ,l_txn_currency_code_tbl(i)
10025: ,'Y'
10026: FROM DUAL;
10057: -- hr_utility.trace('RM DEL3');
10058: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10059: FORALL i IN l_ra_id_in_pra_tbl.first ..
10060: l_ra_id_in_pra_tbl.last
10061: INSERT INTO pa_resource_asgn_curr_tmp
10062: (RA_TXN_ID
10063: ,RESOURCE_ASSIGNMENT_ID
10064: -- ,TXN_CURRENCY_CODE
10065: ,DELETE_FLAG
10063: ,RESOURCE_ASSIGNMENT_ID
10064: -- ,TXN_CURRENCY_CODE
10065: ,DELETE_FLAG
10066: )
10067: SELECT pa_resource_asgn_curr_s.nextval
10068: ,l_ra_id_in_pra_tbl(i)
10069: -- ,l_project_currency_code
10070: ,'Y'
10071: FROM DUAL;
10179: -- hr_utility.trace('RM DEL5');
10180: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
10181: FORALL i IN l_resource_assignment_id_tbl.first ..
10182: l_resource_assignment_id_tbl.last
10183: INSERT INTO pa_resource_asgn_curr_tmp
10184: (RA_TXN_ID
10185: ,RESOURCE_ASSIGNMENT_ID
10186: -- ,TXN_CURRENCY_CODE
10187: ,DELETE_FLAG
10185: ,RESOURCE_ASSIGNMENT_ID
10186: -- ,TXN_CURRENCY_CODE
10187: ,DELETE_FLAG
10188: )
10189: SELECT pa_resource_asgn_curr_s.nextval
10190: ,l_resource_assignment_id_tbl(i)
10191: -- ,l_txn_currency_code_tbl(i)
10192: ,'Y'
10193: FROM DUAL;
10236: -- hr_utility.trace('RM DEL8');
10237: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10238: FORALL i IN l_ra_id_in_pra_tbl.first ..
10239: l_ra_id_in_pra_tbl.last
10240: INSERT INTO pa_resource_asgn_curr_tmp
10241: (RA_TXN_ID
10242: ,RESOURCE_ASSIGNMENT_ID
10243: -- ,TXN_CURRENCY_CODE
10244: ,DELETE_FLAG
10242: ,RESOURCE_ASSIGNMENT_ID
10243: -- ,TXN_CURRENCY_CODE
10244: ,DELETE_FLAG
10245: )
10246: SELECT pa_resource_asgn_curr_s.nextval
10247: ,l_ra_id_in_pra_tbl(i)
10248: -- ,l_project_currency_code
10249: ,'Y'
10250: FROM DUAL;
10404: -- hr_utility.trace('RM DEL1');
10405: IF l_resource_assignment_id_tbl.COUNT > 0 THEN
10406: FORALL i IN l_resource_assignment_id_tbl.first ..
10407: l_resource_assignment_id_tbl.last
10408: INSERT INTO pa_resource_asgn_curr_tmp
10409: (RA_TXN_ID
10410: ,RESOURCE_ASSIGNMENT_ID
10411: ,TXN_CURRENCY_CODE -- Bug 5057010
10412: ,DELETE_FLAG
10410: ,RESOURCE_ASSIGNMENT_ID
10411: ,TXN_CURRENCY_CODE -- Bug 5057010
10412: ,DELETE_FLAG
10413: )
10414: SELECT pa_resource_asgn_curr_s.nextval
10415: ,l_resource_assignment_id_tbl(i)
10416: ,l_txn_currency_code_tbl(i) -- Bug 5057010
10417: ,'Y'
10418: FROM DUAL;
10459: -- IPM changes - populate temp table for deletion
10460: IF l_ra_id_in_pra_tbl.COUNT > 0 THEN
10461: FORALL i IN l_ra_id_in_pra_tbl.first ..
10462: l_ra_id_in_pra_tbl.last
10463: INSERT INTO pa_resource_asgn_curr_tmp
10464: (RA_TXN_ID
10465: ,RESOURCE_ASSIGNMENT_ID
10466: -- ,TXN_CURRENCY_CODE
10467: ,DELETE_FLAG
10465: ,RESOURCE_ASSIGNMENT_ID
10466: -- ,TXN_CURRENCY_CODE
10467: ,DELETE_FLAG
10468: )
10469: SELECT pa_resource_asgn_curr_s.nextval
10470: ,l_ra_id_in_pra_tbl(i)
10471: -- ,l_project_currency_code
10472: ,'Y'
10473: FROM DUAL;
10494:
10495: -- IPM changes - delete from new entity --{
10496: -- new entity maintenance api to be called before call to pa_fp_rollup_pkg.rollup_budget_version.
10497: -- Call new entity maintenance api for the budget version id (which has to be derived),
10498: -- if records have been inserted in pa_Resource_asgn_curr_tmp, in the delete flow.
10499: -- Note: Deriving l_budget_version_id may not be the right approach as we avoid calling BV/RA
10500: -- rollup api and pji api when l_budget_version_id is null (No BLs deleted)
10501: IF l_budget_version_id IS NOT NULL THEN
10502: pa_debug.g_err_stage:='Calling pa_fp_gen_amount_utils.get_plan_version_dtls:bv_id ' || l_budget_version_id;
11562: -- Bug 4724017: CDM Enhancement: Changes in behavior:
11563: Whenever the planning level is changed for an existing version,
11564: default planning transaction would be created only for the vesions
11565: which uses an uncategorized resource list.
11566: -- Bug 5754758: Modified to delete lines from pa_resource_asgn_curr before going to
11567: create_default_plan_txn api.
11568:
11569: ==============================================================================*/
11570:
11780: RETURNING resource_assignment_id BULK COLLECT INTO l_delete_ra_id_tbl;
11781: /* Bug 5754758 - Commenting the code, as the maintain_data is now called in version level mode to delete the RACs.
11782: IF l_delete_ra_id_tbl.COUNT > 0 THEN
11783: FORALL i IN l_delete_ra_id_tbl.first .. l_delete_ra_id_tbl.last
11784: INSERT INTO pa_resource_asgn_curr_tmp
11785: (RA_TXN_ID
11786: ,RESOURCE_ASSIGNMENT_ID
11787: ,DELETE_FLAG
11788: )
11785: (RA_TXN_ID
11786: ,RESOURCE_ASSIGNMENT_ID
11787: ,DELETE_FLAG
11788: )
11789: SELECT pa_resource_asgn_curr_s.NEXTVAL
11790: ,l_delete_ra_id_tbl(i)
11791: ,'Y'
11792: FROM DUAL;
11793: END IF;
11910: END IF;
11911: --Bug 13701718 CBS related Chnages end here
11912: IF l_delete_ra_id_tbl.COUNT > 0 THEN
11913: FORALL i IN l_delete_ra_id_tbl.first .. l_delete_ra_id_tbl.last
11914: INSERT INTO pa_resource_asgn_curr_tmp
11915: (RA_TXN_ID
11916: ,RESOURCE_ASSIGNMENT_ID
11917: ,DELETE_FLAG
11918: )
11915: (RA_TXN_ID
11916: ,RESOURCE_ASSIGNMENT_ID
11917: ,DELETE_FLAG
11918: )
11919: SELECT pa_resource_asgn_curr_s.NEXTVAL
11920: ,l_delete_ra_id_tbl(i)
11921: ,'Y'
11922: FROM DUAL;
11923: END IF;