[Home] [Help]
4: -- To check on, whether to print debug messages in log file or not
5: L_DEBUG varchar2(1) := NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N');
6:
7: Type Bal_rec is RECORD(Exp_item_id pa_expenditure_items_all.expenditure_item_id%type,
8: adl gms_award_distributions.adl_line_num%type,
9: award_id gms_awards_all.award_id%type,
10: Project_id gms_event_attribute.project_id%type,
11: Task_Id gms_event_attribute.actual_task_id%type,
12: Amount gms_event_attribute.bill_amount%type,
334: Update gms_event_intersect
335: set revenue_accumulated='N'
336: where expenditure_item_id in
337: (Select expenditure_item_id
338: from gms_award_distributions
339: where award_id = p_award_id
340: and project_id = p_project_id
341: and adl_status = 'A' -- added for bug 4108031
342: and document_type = 'EXP') -- added for bug 4108031
736: to_number(NULL) org_id,
737: gei.rowid
738: from gms_event_intersect gei,
739: pa_expenditure_items_all item,
740: gms_award_distributions gad ,
741: pa_resource_list_members prm
742: where gei.expenditure_item_id = gad.expenditure_item_id
743: and gei.adl_line_num = gad.adl_line_num
744: and gei.event_type = 'REVENUE'
769: gbc.rowid
770: from gms_burden_components gbc,
771: pa_expenditure_items_all item ,
772: pa_expenditures_all pea,
773: gms_award_distributions gad ,
774: pa_resource_list_members prm
775: where gbc.expenditure_item_id = gad.expenditure_item_id
776: and gbc.adl_line_num = gad.adl_line_num
777: and gbc.event_type = 'REVENUE'
801: -- nvl(pea.incurred_by_organization_id,item.override_to_organization_id) org_id, gbi.rowid
802: -- from gms_billing_cancellations gbi,
803: -- pa_expenditure_items_all item ,
804: -- pa_expenditures_all pea,
805: -- gms_award_distributions gad ,
806: -- pa_resource_list_members prm
807: -- where gbi.expenditure_item_id = gad.expenditure_item_id
808: -- and item.expenditure_item_id = gad.expenditure_item_id
809: -- and gad.adl_line_num = gbi.adl_line_num
837: gei.rowid
838: --item.org_id -- Bug 4732065 commented for the bug 5481465
839: from gms_event_intersect gei,
840: pa_expenditure_items_all item,
841: gms_award_distributions gad,
842: pa_resource_list_members prm
843: where gei.expenditure_item_id = gad.expenditure_item_id
844: and gei.adl_line_num = gad.adl_line_num
845: and gei.event_type = 'REVENUE'
871: --item.org_id -- Bug 4732065 commented for the bug 5481465
872: from gms_burden_components gbc,
873: pa_expenditure_items_all item,
874: pa_expenditures_all pea,
875: gms_award_distributions gad,
876: pa_resource_list_members prm
877: where gbc.expenditure_item_id = gad.expenditure_item_id
878: and gbc.adl_line_num = gad.adl_line_num
879: and gbc.event_type = 'REVENUE'
905: --item.org_id -- Bug 4732065 commented for the bug 5481465
906: from gms_billing_cancellations gbi,
907: pa_expenditure_items_all item,
908: pa_expenditures_all pea,
909: gms_award_distributions gad,
910: pa_resource_list_members prm
911: where gbi.expenditure_item_id = gad.expenditure_item_id
912: and item.expenditure_item_id = gad.expenditure_item_id
913: and gad.adl_line_num = gbi.adl_line_num
1960:
1961: if x_mode <> 'B' then
1962: if rec_gms_packets.document_type in ('EXP','ENC') then
1963:
1964: update gms_award_distributions
1965: set accumulated_flag='Y'
1966: where expenditure_item_id = rec_gms_packets.document_header_id
1967: and rec_gms_packets.document_distribution_id = decode(rec_gms_packets.document_type, --Bug 5726575
1968: 'EXP', cdl_line_num,
1978: and fc_status='A';
1979:
1980: elsif rec_gms_packets.document_type ='PO' then
1981:
1982: update gms_award_distributions
1983: set accumulated_flag='Y'
1984: where po_distribution_id = rec_gms_packets.document_distribution_id
1985: and document_type=rec_gms_packets.document_type
1986: and award_id=rec_gms_packets.award_id
1990: and fc_status='A';
1991:
1992: elsif rec_gms_packets.document_type ='REQ' then
1993:
1994: update gms_award_distributions
1995: set accumulated_flag='Y'
1996: where distribution_id = rec_gms_packets.document_distribution_id
1997: and document_type=rec_gms_packets.document_type
1998: and award_id=rec_gms_packets.award_id
2002: and fc_status='A';
2003:
2004: elsif rec_gms_packets.document_type ='AP' then
2005:
2006: update gms_award_distributions
2007: set accumulated_flag='Y'
2008: where invoice_id = rec_gms_packets.document_header_id
2009: -- AP Lines uptake: changed join from with distribution num to distribution id
2010: and invoice_distribution_id = rec_gms_packets.document_distribution_id
2094:
2095: update_revenue_balance(x_mode,x_award_id,x_project_id,l_sob_id,upd_error_table,upd_reason_table);
2096:
2097: --Update adl accumulated_flag for mode = B
2098: update gms_award_distributions
2099: set accumulated_flag='Y'
2100: where award_id = x_award_id
2101: and project_id = x_project_id
2102: and adl_status='A'