The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select distinct
a.event_type,
b.event_type_classification,
a.installment_id,
a.actual_project_id,
a.actual_task_id
into
X_Event_Type,
X_Event_Type_Classification,
X_Installment_Id,
X_Actual_Project_Id,
X_Actual_Task_Id
from
gms_events_v a,
pa_event_types b
where
a.project_id = X_Project_Id and
a.event_num = X_Event_Num and
a.event_type = b.event_type
;
Select
decode(X_calling_process,'Invoice',nvl(gmf.total_billed_amount,0),'Revenue',nvl(gmf.total_revenue_amount,0),NULL)
into
X_BillRev_Amount
from
GMS_SUMMARY_PROJECT_FUNDINGS gmf
where
gmf.project_id = X_Actual_Project_Id
and
(
(gmf.task_id IS NULL)
or (gmf.task_Id = X_Actual_Task_Id)
or (gmf.task_id = (select top_task_id from pa_tasks where task_id = X_Actual_Task_Id))
)
and installment_id = X_Installment_Id;
Procedure UPDATE_GMS_SUMMARY_FUNDING(X_calling_process IN VARCHAR2,
X_Actual_Project_Id IN NUMBER,
X_Actual_Task_Id IN NUMBER,
X_Installment_Id IN NUMBER,
X_Bill_Rev_Amount IN NUMBER) IS
X_Curr_BillRev_Amount NUMBER;
Update GMS_SUMMARY_PROJECT_FUNDINGS gmf
set
gmf.total_billed_amount = X_Total_BillRev_Amount
,gmf.last_update_date = sysdate
,gmf.last_updated_by = fnd_global.user_id
,gmf.last_update_login = fnd_global.login_id
where
gmf.project_id = X_Actual_Project_Id
and
(
(gmf.task_id IS NULL)
or(gmf.task_id = X_Actual_Task_Id)
or(gmf.task_id = (select top_task_id from pa_tasks where task_id = X_Actual_Task_Id))
)
and
installment_id = X_Installment_Id;
Update GMS_SUMMARY_PROJECT_FUNDINGS gmf
set
gmf.total_revenue_amount = X_Total_BillRev_Amount
,gmf.last_update_date = sysdate
,gmf.last_updated_by = fnd_global.user_id
,gmf.last_update_login = fnd_global.login_id
where
gmf.project_id = X_Actual_Project_Id
and
(
(gmf.task_id IS NULL)
or(gmf.task_id = X_Actual_Task_Id)
or(gmf.task_id = (select top_task_id from pa_tasks where task_id = X_Actual_Task_Id))
)
and
installment_id = X_Installment_Id;
End UPDATE_GMS_SUMMARY_FUNDING;
Select
draft_invoice_num
from
pa_draft_invoices
where
project_id = X_project_id and
request_id = X_request_id;
Select
line_num,
event_num,
amount
from
pa_draft_invoice_items
where
project_id = X_project_id and
draft_invoice_num = F_Draft_Invoice_Num;
Select
draft_revenue_num
from
pa_draft_revenues
where project_id = X_project_id and
request_id = X_request_id;
Select
ri.project_id,
ri.line_num,
rdl.event_num,
ri.amount
from
pa_draft_revenue_items ri,
pa_cust_event_rdl_all rdl
where
ri.draft_revenue_num = F_Draft_Revenue_Num and
ri.project_id = X_project_Id and
rdl.draft_revenue_num = ri.draft_revenue_num and
rdl.draft_revenue_item_line_num = ri.line_num and
rdl.project_id = ri.project_id ;
select
nvl(pt.attribute1,'N')--Sponsored Flag
into
X_Sponsored_Type_Flag
from
PA_PROJECTS_ALL p,
PA_PROJECT_TYPES pt
where
p.project_id = X_Project_Id
and p.project_type = pt.project_type;
select
project_type
into
X_Project_Type
from
PA_PROJECTS_ALL
where project_id = X_Project_Id;
select
Revenue_Distribution_Rule,
Billing_Distribution_Rule
into
X_Award_Rev_Distribution_Rule,
X_Award_Bill_Distribution_Rule
from
GMS_AWARDS
where
Award_Project_Id = X_Project_Id;
UPDATE_GMS_SUMMARY_FUNDING(X_calling_process,
X_Actual_Project_Id,
X_Actual_Task_Id,
X_Installment_Id,
F_Bill_Amount);
UPDATE_GMS_SUMMARY_FUNDING(X_calling_process,
X_Actual_Project_Id,
X_Actual_Task_Id,
X_Installment_Id,
F_Rev_Amount);