[Home] [Help]
31: gea.actual_task_id,
32: pt.top_task_id;
33: BEGIN
34:
35: -- A. Update gms_summary_project_fundings ....
36: -- This is required for Invoice only as invoice events can
37: -- span across tasks. Revenue is always grouped by tasks ..
38:
39: If p_calling_process = 'INVOICE' then
38:
39: If p_calling_process = 'INVOICE' then
40:
41: for x in c_gspf_update loop
42: Update gms_summary_project_fundings gspf
43: set gspf.total_billed_amount = nvl(gspf.total_billed_amount,0) -
44: x.billed_amount
45: where gspf.installment_id = x.installment_id
46: and gspf.project_id = x.actual_project_id
183: /* Write_off Deletion/Cancellation */
184:
185: If X_Process = 'WRITE_OFF_DEL' then
186:
187: Update gms_summary_project_fundings
188: set total_billed_amount = total_billed_amount + X_Amount
189: where project_id = X_Actual_Project_Id
190: and (task_id is null
191: or task_id = X_Actual_Task_id
196: /* Write_off Creation */
197:
198: ElsIf X_Process = 'WRITE_OFF_GEN' then
199:
200: Update gms_summary_project_fundings
201: set total_billed_amount = total_billed_amount - X_Amount
202: where project_id = X_Actual_Project_Id
203: and (task_id is null
204: or task_id = X_Actual_Task_id
326: End;
327:
328: -- 3. Update gspf:
329:
330: /* Update gms_summary_project_fundings */
331:
332: UPD_GMS_SUMMARY_PRJ_FUNDS(event_attribute.Actual_project_id,
333: event_attribute.Actual_Task_id,
334: event_attribute.Installment_Id,
498: END;
499:
500: /* End - Update gms_event_attribute */
501:
502: /* Update gms_summary_project_fundings */
503:
504: UPD_GMS_SUMMARY_PRJ_FUNDS(F_actual_project_id,
505: F_actual_task_id,
506: F_installment_id,
574: decode(X_Calling_Process,'Invoice',nvl(spf.total_billed_amount,0),'Revenue',nvl(spf.total_revenue_amount,0))
575: into
576: St_Amount
577: from
578: GMS_SUMMARY_PROJECT_FUNDINGS spf
579: where
580: spf.installment_id = X_Installment_Id
581: and spf.project_id = X_Act_Project_Id
582: and (
664: X_Amt_To_Update := (X_Curr_Amount - F_amount);
665:
666: End;
667:
668: /* Update GMS_SUMMARY_PROJECT_FUNDINGS */
669: Begin
670: If X_Calling_Process = 'Invoice' then
671:
672: update GMS_SUMMARY_PROJECT_FUNDINGS spf
668: /* Update GMS_SUMMARY_PROJECT_FUNDINGS */
669: Begin
670: If X_Calling_Process = 'Invoice' then
671:
672: update GMS_SUMMARY_PROJECT_FUNDINGS spf
673: set
674: spf.Total_Billed_Amount = X_Amt_To_Update
675: ,spf.last_update_date = sysdate
676: ,spf.last_update_login = fnd_global.login_id
686:
687: Elsif
688:
689: X_Calling_Process = 'Revenue' then
690: update GMS_SUMMARY_PROJECT_FUNDINGS spf
691: set
692: spf.Total_Revenue_Amount = X_Amt_To_Update
693: ,spf.last_update_date = sysdate
694: ,spf.last_update_login = fnd_global.login_id
1390:
1391: End LOOP;
1392: close IDENT_INV_INTRSCT_ITEMS;
1393:
1394: /* Updating GMS_SUMMARY_PROJECT_FUNDINGS Revenue Accrued Amount */
1395: MANIP_BILLREV_AMOUNT(F_Award_Project_id,
1396: F_Event_Num,
1397: X_Calling_Process,
1398: X_Err_Code,
1490:
1491: END LOOP;
1492: close BURDEN_INV_INTRSCT_ITEMS;
1493:
1494: /* Updating GMS_SUMMARY_PROJECT_FUNDINGS Revenue Accrued Amount */
1495: MANIP_BILLREV_AMOUNT(F_Award_Project_id,
1496: F_Event_Num,
1497: X_Calling_Process,
1498: X_Err_Code,
1538: Elsif X_Event_Type_Class = 'MANUAL' then
1539:
1540: Begin
1541:
1542: /* Updating GMS_SUMMARY_PROJECT_FUNDINGS Revenue Accrued Amount */
1543: MANIP_BILLREV_AMOUNT(F_Award_Project_id,
1544: F_Event_Num,
1545: X_Calling_Process,
1546: X_Err_Code,
1824: CLOSE IDENT_REV_INTRSCT_ITEMS;
1825:
1826: X_Err_Code := 0;
1827:
1828: /* Updating GMS_SUMMARY_PROJECT_FUNDINGS Revenue Accrued Amount */
1829: MANIP_BILLREV_AMOUNT(F_Award_Project_id,
1830: F_Event_Num,
1831: X_Calling_Process,
1832: X_Err_Code,
1929: END LOOP;
1930:
1931: close BURDEN_REV_INTRSCT_ITEMS;
1932:
1933: /* Updating GMS_SUMMARY_PROJECT_FUNDINGS Revenue Accrued Amount */
1934: MANIP_BILLREV_AMOUNT(F_Award_Project_id,
1935: F_Event_Num,
1936: X_Calling_Process,
1937: X_Err_Code,
1966: ----------------------------------------------------------------------------------------------
1967: Elsif (X_Event_Type_Class = 'MANUAL') then
1968: Begin
1969:
1970: /* Updating GMS_SUMMARY_PROJECT_FUNDINGS Revenue Accrued Amount */
1971: MANIP_BILLREV_AMOUNT(F_Award_Project_id,
1972: F_Event_Num,
1973: X_Calling_Process,
1974: X_Err_Code,