[Home] [Help]
494: || Rollback Activities Include:
495: || 10. Updating gms_award_distributions (revenue_distributed_flag/billed_flag)
496: || 20. Deleting from gms_event_intersect
497: || 30. Deleting from gms_burden_components
498: || 40. Updating gms_summary_project_fundings
499: || 50. Deleting gms_event_attribute
500: -------------------------------------------------------------------------- */
501:
502: FOR evt IN events_to_rollback
660: f_row_id; -- Bug 2715312
661: EXIT WHEN get_event_details%NOTFOUND;
662:
663: BEGIN -- Event Related
664: -- 40: Updating gms_summary_project_fundings
665:
666: IF evt.event_type = 'Invoice'
667: THEN
668: UPDATE gms_summary_project_fundings
664: -- 40: Updating gms_summary_project_fundings
665:
666: IF evt.event_type = 'Invoice'
667: THEN
668: UPDATE gms_summary_project_fundings
669: SET total_billed_amount =
670: total_billed_amount - f_bill_amount
671: WHERE project_id = f_act_project_id
672: AND ( task_id IS NULL
678: AND installment_id = f_installment_id;
679:
680: ELSIF evt.event_type = 'Revenue'
681: THEN
682: UPDATE gms_summary_project_fundings
683: SET total_revenue_amount =
684: total_revenue_amount - f_rev_amount
685: WHERE project_id = f_act_project_id
686: AND ( task_id IS NULL
1174: BEGIN
1175:
1176: /* --------------------------------------------------------------------------
1177: || Here's what we need to do :
1178: || 1. Updating gms_summary_project_fundings
1179: || 2. Deleting from gms_event_intersect
1180: || 3. Deleting from gms_burden_components
1181: || 4. Updating gms_award_distributions (revenue_distributed_flag/billed_flag)
1182: -------------------------------------------------------------------------- */
1187:
1188:
1189: FOR i in 1..x_inst_cnt
1190: LOOP
1191: UPDATE gms_summary_project_fundings
1192: SET total_billed_amount = decode(x_event_type,'INVOICE',
1193: (total_billed_amount - X_ei_rollback_inst_tab(i).rev_bill_amount),total_billed_amount),
1194: total_revenue_amount = decode(x_event_type,'REVENUE',
1195: (total_revenue_amount - X_ei_rollback_inst_tab(i).rev_bill_amount),total_revenue_amount)
1263: into
1264: X_Total_Funding_Amount,
1265: X_Total_Rev_Bill_Amount
1266: from
1267: gms_summary_project_fundings gmf
1268: where
1269: (gmf.installment_id = nvl(C_Installment_Id,0) -- 11.5 changes, hard limit to award level
1270: OR
1271: (C_Installment_Id is NULL
1624: select ins.installment_id installment_id,
1625: gmf.total_funding_amount total_funding_amount,
1626: decode(X_Calling_Process,'Invoice',nvl(gmf.total_billed_amount,0),'Revenue',nvl(gmf.total_revenue_amount,0)) Inv_Rev_Amount
1627: from gms_installments ins,
1628: gms_summary_project_fundings gmf
1629: where ins.award_id = X_award_id
1630: and trunc(ins.end_date_active) >= trunc(X_Expenditure_item_date)
1631: /* and ins.active_flag = 'Y' Bug 6878405 */
1632: and nvl(ins.billable_flag,'N') = 'Y'
2655: 1
2656: into
2657: X_Check_Row_Exists
2658: from
2659: gms_summary_project_fundings gmf
2660: where
2661: gmf.installment_id = C_Installment_Id
2662: and (
2663: (gmf.task_id = X_Task_Id)
3232: End If;
3233: Begin
3234: If X_Calling_Process = 'Invoice' then
3235:
3236: update GMS_SUMMARY_PROJECT_FUNDINGS spf
3237: set
3238: spf.TOTAL_BILLED_AMOUNT = (X_Rev_Bill_Amount + X_Total_Rev_Bill_Amount),
3239: spf.last_update_date = sysdate,
3240: spf.last_updated_by = fnd_global.user_id,
3252: --DECODE(TASK_ID,NULL,X_Task_Id,TASK_ID) = X_Task_Id
3253:
3254: Elsif X_Calling_Process = 'Revenue' then
3255:
3256: update GMS_SUMMARY_PROJECT_FUNDINGS spf
3257: set
3258: spf.TOTAL_REVENUE_AMOUNT = (X_Rev_Bill_Amount + X_Total_Rev_Bill_Amount),
3259: spf.last_update_date = sysdate,
3260: spf.last_updated_by = fnd_global.user_id,
3292: End;
3293:
3294: END UPDATE_GMS_SUMMARY_FUNDINGS;
3295:
3296: -- PROCEDURE: UPD_GSPF_WRAPPER, new procedure for updating gms_summary_project_fundings
3297:
3298: PROCEDURE UPD_GSPF_WRAPPER(X_Installment_Id IN NUMBER,
3299: X_Task_Id IN NUMBER,
3300: X_Actual_Project_Id IN NUMBER,
5138:
5139: END IF;
5140: /* bug 5242484 - end */
5141:
5142: --Updating GMS_SUMMARY_PROJECT_FUNDINGS Billed Amount with the Amount of the current transaction
5143:
5144: UPD_GSPF_WRAPPER(C_Installment_Id,
5145: X_Task_Id,
5146: X_Actual_Project_Id,
5586: and p.project_status_code <> 'CLOSED' -- Bug 3254097 : Modified 'CLOSED ' to 'CLOSED'
5587: and pt.project_type = p.project_type
5588: and pt.direct_flag = 'N'
5589: and exists ( select 1
5590: from gms_summary_project_fundings gspf
5591: where gspf.installment_id = C_installment_id
5592: and gspf.project_id = adl.project_id
5593: and (gspf.task_id is NULL or
5594: gspf.task_id = adl.task_id or
6035: END IF;
6036: /* bug 5242484 - end */
6037:
6038: ------------------------------------------------------------------------------
6039: --Updating GMS_SUMMARY_PROJECT_FUNDINGS Billed Amount with the Amount of the current transaction
6040:
6041: UPD_GSPF_WRAPPER(C_Installment_Id,
6042: X_Rev_Task_Id,
6043: X_Rev_Act_Project_Id,
6868: ||'and nvl(adl.billable_flag,''N'') = ''Y'' '
6869: ||'and adl.document_type = ''EXP'' '
6870: ||'and exists '
6871: ||'(select 1 '
6872: ||'from gms_summary_project_fundings gspf '
6873: ||'where gspf.installment_id = :C_Installment_Id '
6874: ||'and ( '
6875: ||' (gspf.task_id = adl.task_id) '
6876: ||'OR (gspf.task_id is NULL) '