The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'X'
FROM pa_agreements_all
where agreement_id = p_af_agreement_id;
SELECT 'X'
FROM pa_project_fundings
where project_funding_id = p_af_funding_id;
SELECT p.agreement_id
FROM pa_agreements_all p
WHERE p.pm_agreement_reference = p_pm_agreement_reference;
SELECT project_funding_id
FROM
pa_project_fundings
WHERE
pm_funding_reference = p_pm_funding_reference;
FUNCTION check_update_agreement_ok
(p_pm_agreement_reference IN VARCHAR2
,p_agreement_id IN NUMBER
,p_funding_id IN NUMBER
,p_customer_id IN OUT NOCOPY NUMBER /*Bug 6602451*/
,p_agreement_type IN OUT NOCOPY VARCHAR2 /*Bug 6602451*/
,p_term_id IN OUT NOCOPY NUMBER /*Bug 6602451*/
,p_template_flag IN VARCHAR2
,p_revenue_limit_flag IN OUT NOCOPY VARCHAR2 /*Bug 6602451*/
,p_owned_by_person_id IN OUT NOCOPY NUMBER /*Bug 6602451*/
,p_owning_organization_id IN OUT NOCOPY NUMBER /*Bug 6602451*/
,p_agreement_currency_code IN OUT NOCOPY VARCHAR2 /*Bug 6602451*/
,p_invoice_limit_flag IN OUT NOCOPY VARCHAR2 /*Bug 6602451*/
/*Federal*/
,p_start_date IN DATE DEFAULT NULL
,p_end_date IN DATE DEFAULT NULL
,p_advance_required IN VARCHAR2 DEFAULT NULL
,p_billing_sequence IN Number DEFAULT NULL
,p_amount IN NUMBER DEFAULT NULL)
RETURN VARCHAR2
IS
-- LOCAL VARIABLES
l_start_date DATE;
CURSOR agrcur IS SELECT * FROM PA_AGREEMENTS_ALL WHERE AGREEMENT_ID = p_agreement_id;
--dbms_output.put_line('Inside: PA_AGREEMENT_PVT.CHECK_UPDATE_AGREEMENT_OK');
SELECT start_date,
expiration_date,
nvl(advance_Required,'N'),
advance_amount,
amount
INTO cur_start_date,
cur_end_date,
cur_adv_req,
cur_adv_amt,
cur_agmt_amt
FROM pa_agreements_all
WHERE agreement_id = p_agreement_id;
SELECT sum(allocated_amount)
INTO l_tot_fund
FROM pa_project_fundings
WHERE agreement_id = p_agreement_id;
SELECT count(*)
INTO l_count
FROM pa_project_fundings fun,
pa_events ev
WHERE fun.agreement_id = p_agreement_id
AND fun.agreement_id = ev.agreement_id
AND fun.project_id = ev.project_id
AND ev.completion_date not between l_start_date and l_end_date;
SELECT COUNT(*)
INTO l_fund_count
FROM pa_project_fundings
WHERE agreement_id = p_agreement_id;
SELECT 'N' INTO l_return
FROM PA_AGREEMENTS_ALL
WHERE AGREEMENT_ID = p_agreement_id
AND (AGREEMENT_CURRENCY_CODE <> p_agreement_currency_code
AND EXISTS ( SELECT *
FROM PA_PROJECT_FUNDINGS
WHERE AGREEMENT_ID= p_agreement_id
AND nvl(ALLOCATED_AMOUNT,0) <> 0));
END check_update_agreement_ok;
FUNCTION check_delete_agreement_ok
(p_agreement_id IN NUMBER
,p_pm_agreement_reference IN VARCHAR2)
RETURN VARCHAR2
IS
-- LOCAL CURSORS
CURSOR l_funding_id_csr(p_agreement_id NUMBER)
IS
SELECT project_funding_id,pm_funding_reference,agreement_id, allocated_amount
FROM pa_project_fundings f
WHERE f.agreement_id = p_agreement_id;
/*if(check_delete_agreement_ok_fp(p_agreement_id)='N')then
return ('N');
l_RETURN:= pa_agreement_pvt.check_delete_funding_ok
(p_agreement_id => l_funding_id_rec.agreement_id
,p_funding_id => l_funding_id_rec.project_funding_id
,p_pm_funding_reference => l_funding_id_rec.pm_funding_reference);
( p_old_message_code => 'PA_CANT_DELETE_AGMT'
,p_msg_attribute => 'CHANGE'
,p_resize_flag => 'Y'
,p_msg_context => 'AGREEMENT'
,p_attribute1 => p_pm_agreement_reference
,p_attribute2 => ''
,p_attribute3 => ''
,p_attribute4 => ''
,p_attribute5 => '');
SELECT count(*)
INTO l_count
FROM pa_agreements_all
WHERE agreement_id = p_agreement_id
and advance_amount >0;
( p_old_message_code => 'PA_RECP_DELETE_AGMT'
,p_msg_attribute => 'CHANGE'
,p_resize_flag => 'N' /*Bug 5909864 */
,p_msg_context => 'AGREEMENT'
,p_attribute1 => p_pm_agreement_reference
,p_attribute2 => ''
,p_attribute3 => ''
,p_attribute4 => ''
,p_attribute5 => '');
select count(*)
into l_count
from pa_events e,
pa_project_fundings f
where e.project_id = f.project_id
and e.agreement_id = f.agreement_id
and f.agreement_id = p_agreement_id;
( p_old_message_code => 'PA_EVENT_AGMT_DELETE'
,p_msg_attribute => 'CHANGE'
,p_resize_flag => 'Y'
,p_msg_context => 'AGREEMENT'
,p_attribute1 => p_pm_agreement_reference
,p_attribute2 => ''
,p_attribute3 => ''
,p_attribute4 => ''
,p_attribute5 => '');
END check_delete_agreement_ok;
select meaning /* 2483081 */
into l_funding_category
from pa_lookups
where lookup_code= p_funding_category
and lookup_type= 'FUNDING CATEGORY TYPE';
Select 1 into l_Exist_Flag
From PA_Tasks
Where Project_ID = P_Project_ID
AND Task_ID = P_Task_ID
AND Customer_ID = P_Customer_ID
AND Rownum < 2;
Select ALLOWABLE_FUNDING_LEVEL_CODE
Into l_Allowable_Funding_Level_Code
From pa_project_types_all pt, pa_projects_all p
Where p.project_id=p_project_id
And p.project_type=pt.project_type
AND nvl(p.org_id,-99) = nvl(pt.org_id,-99);
FUNCTION check_update_funding_ok
(p_project_id IN NUMBER
,p_task_id IN NUMBER
,p_agreement_id IN NUMBER
,p_customer_id IN NUMBER
,p_pm_funding_reference IN VARCHAR2
,p_funding_id IN NUMBER
,p_funding_amt IN NUMBER
,p_project_rate_type IN VARCHAR2 default null
,p_project_rate_date IN DATE default null
,p_project_exchange_rate IN NUMBER default null
,p_projfunc_rate_type IN VARCHAR2 default null
,p_projfunc_rate_date IN DATE default null
,p_projfunc_exchange_rate IN NUMBER default null)
RETURN VARCHAR2
IS
-- LOCAL VARIABLES
l_RETURN VARCHAR2(1):='Y';
--dbms_output.put_line('Inside: PA_AGREEMENT_PVT.CHECK_UPDATE_FUNDING_OK');
Select 1 into l_Exist_Flag
From PA_Tasks
Where Project_ID = P_Project_ID
AND Task_ID = P_Task_ID
AND Customer_ID = P_Customer_ID
AND Rownum < 2;
END check_update_funding_ok;
FUNCTION check_delete_funding_ok
(p_agreement_id IN NUMBER
,p_funding_id IN NUMBER
,p_pm_funding_reference IN VARCHAR2)
RETURN VARCHAR2
IS
-- LOCAL VARIABLES
l_RETURN VARCHAR2(1):='Y';
--dbms_output.put_line('Inside" PA_AGREEMENT_PVT.CHECK_DELETE_FUNDING_OK');
SELECT f.allocated_amount
INTO l_funding_amt
FROM pa_project_fundings f
WHERE f.project_funding_id = p_funding_id;
SELECT f.allocated_amount
INTO l_funding_amt
FROM pa_project_fundings f
WHERE f.pm_funding_reference = p_pm_funding_reference
AND f.agreement_id = p_agreement_id;
END check_delete_funding_ok;
FUNCTION check_add_update
(p_funding_reference VARCHAR2)
RETURN VARCHAR2
IS
CURSOR C1 is
Select 1 from pa_project_fundings
where pm_funding_reference = p_funding_reference;
END check_add_update;
SELECT nvl(f.allocated_amount,0)
INTO l_fun_amt
FROM pa_project_fundings f
WHERE f.project_funding_id = p_funding_id;
SELECT decode(a.advance_required,'Y',nvl(a.advance_amount,0),nvl(a.amount,0))
INTO l_agr_amt
FROM pa_agreements_all a
WHERE a.agreement_id = p_agreement_id;
SELECT nvl(SUM(f.allocated_amount),0)
INTO l_fun_sum
FROM pa_project_fundings f
WHERE f.agreement_id = p_agreement_id;