The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
gms_encumbrance_items_s.nextval encumbrance_item_id
, X_new_exp_id encumbrance_id
, i.task_id
, to_number( NULL ) raw_cost
, to_number( NULL ) raw_cost_rate
, decode( copy_mode, 'O',
next_day((to_date(X_date)-7),
to_char(i.encumbrance_item_date, 'DAY')),
X_date ) encumbrance_item_date
, i.encumbrance_type
, i.system_linkage_function
, decode( copy_mode, 'S', NULL, i.amount ) amount
, t.project_id
, t.billable_flag
, i.attribute_category
, i.attribute1
, i.attribute2
, i.attribute3
, i.attribute4
, i.attribute5
, i.attribute6
, i.attribute7
, i.attribute8
, i.attribute9
, i.attribute10
, X_person_id person_id
, job_id
, i.org_id
, i.labor_cost_multiplier_name
, i.receipt_currency_amount
, i.receipt_currency_code
, i.receipt_exchange_rate
, i.denom_currency_code
, i.denom_raw_cost
, i.denom_burdened_cost
, i.acct_currency_code
, i.acct_rate_date
, i.acct_rate_type
, i.acct_exchange_rate
, i.acct_raw_cost
, i.acct_burdened_cost
, i.acct_exchange_rounding_limit
, i.project_currency_code
, i.project_rate_type
, i.project_rate_date
, i.project_exchange_rate
FROM
pa_tasks t
, gms_encumbrance_items i
WHERE
( X_exp_class_code = 'OE'
OR i.system_linkage_function = 'ST' )
AND i.task_id = t.task_id
AND i.encumbrance_id = X_orig_exp_id
AND i.adjusted_encumbrance_item_id IS NULL
AND nvl(i.net_zero_adjustment_flag, 'N' ) <> 'Y'
AND i.source_encumbrance_item_id IS NULL;
SELECT
encumbrance_id orig_exp_id
, gms_encumbrances_s.nextval new_exp_id
, description
, nvl( new_inc_by_person, incurred_by_person_id ) person_id
, decode( copy_mode, 'S', NULL,
decode( copy_items, 'Y', control_total_amount, NULL ))
control_total_amount
, attribute_category
, attribute1
, attribute2
, attribute3
, attribute4
, attribute5
, attribute6
, attribute7
, attribute8
, attribute9
, attribute10
, denom_currency_code
, acct_currency_code
, acct_rate_type
, acct_rate_date
, acct_exchange_rate
FROM
gms_encumbrances
WHERE
encumbrance_group = orig_exp_group
AND encumbrance_id = nvl( orig_exp_id, encumbrance_id );
gms_transactions.InsertExp(
X_encumbrance_id => EXP.new_exp_id,
X_expend_status => 'SUBMITTED',
X_expend_ending => exp_ending_date,
X_expend_class => 'PT',
X_inc_by_person => EXP.person_id,
X_inc_by_org => org_id,
X_expend_group => new_exp_group,
X_entered_by_id => X_user,
X_created_by_id => X_user,
X_attribute_category=> EXP.attribute_category,
X_attribute1 => EXP.attribute1,
X_attribute2 => EXP.attribute2,
X_attribute3 => EXP.attribute3,
X_attribute4 => EXP.attribute4,
X_attribute5 => EXP.attribute5,
X_attribute6 => EXP.attribute6,
X_attribute7 => EXP.attribute7,
X_attribute8 => EXP.attribute8,
X_attribute9 => EXP.attribute9,
X_attribute10 => EXP.attribute10,
X_description => EXP.description,
X_control_total => EXP.control_total_amount,
X_denom_currency_code => EXP.denom_currency_code,
X_acct_currency_code => EXP.acct_currency_code,
X_acct_rate_type => EXP.acct_rate_type,
X_acct_rate_date => EXP.acct_rate_date,
X_acct_exchange_rate=> EXP.acct_exchange_rate);
SELECT
e.encumbrance_class_code
INTO
X_exp_class_code
FROM
gms_encumbrances e
WHERE
e.encumbrance_id = orig_exp_id;
InsertExp BOOLEAN := TRUE ;
InsertBatch BOOLEAN := FALSE ;
SELECT
e.encumbrance_id orig_exp_id
, gms_encumbrances_s.nextval new_exp_id
, e.encumbrance_ending_date
, e.description
, e.incurred_by_person_id person_id
, e.incurred_by_organization_id inc_by_org_id
, e.encumbrance_class_code
, e.control_total_amount
, e.attribute_category
, e.attribute1
, e.attribute2
, e.attribute3
, e.attribute4
, e.attribute5
, e.attribute6
, e.attribute7
, e.attribute8
, e.attribute9
, e.attribute10
, e.denom_currency_code
, e.acct_currency_code
, e.acct_rate_type
, e.acct_rate_date
, e.acct_exchange_rate
FROM
gms_encumbrances e
WHERE
e.encumbrance_group = X_orig_exp_group ;
select
ei.encumbrance_item_id
, ei.net_zero_adjustment_flag
, ei.source_encumbrance_item_id
, ei.transferred_from_exp_item_id
from
gms_encumbrance_items_all ei
where
encumbrance_id = expend_id ;
select
encumbrance_group
, encumbrance_ending_date
, system_linkage_function
, control_count
, control_total_amount
, request_id
, program_id
, program_application_id
, transaction_source
from
gms_encumbrance_groups
where
encumbrance_group = X_orig_exp_group ;
SELECT 1
INTO Dummy
FROM gms_encumbrance_groups
WHERE encumbrance_group = X_new_exp_group;
InsertExp := TRUE ;
InsertExp := FALSE ;
If ( InsertExp ) and (no_of_items > 0) then
IF X_expgrp_status = 'WORKING' THEN
exp_status := 'SUBMITTED';
gms_transactions.InsertExp( X_encumbrance_id => Exp.new_exp_id,
X_expend_status => exp_status,
X_expend_ending => Exp.encumbrance_ending_date ,
X_expend_class => Exp.encumbrance_class_code ,
X_inc_by_person => Exp.person_id ,
X_inc_by_org => Exp.inc_by_org_id ,
X_expend_group => X_new_exp_group ,
X_entered_by_id => X_user_id ,
X_created_by_id => X_user_id ,
X_attribute_category => Exp.attribute_category ,
X_attribute1 => Exp.attribute1 ,
X_attribute2 => Exp.attribute2 ,
X_attribute3 => Exp.attribute3 ,
X_attribute4 => Exp.attribute4 ,
X_attribute5 => Exp.attribute5 ,
X_attribute6 => Exp.attribute6 ,
X_attribute7 => Exp.attribute7 ,
X_attribute8 => Exp.attribute8 ,
X_attribute9 => Exp.attribute9 ,
X_attribute10 => Exp.attribute10 ,
X_description => Exp.description ,
X_control_total => Exp.control_total_amount,
X_denom_currency_code => Exp.denom_currency_code ,
X_acct_currency_code => Exp.acct_currency_code ,
X_acct_rate_type => Exp.acct_rate_type ,
X_acct_rate_date => Exp.acct_rate_date ,
X_acct_exchange_rate => Exp.acct_exchange_rate);
X_last_update_login => FND_GLOBAL.LOGIN_ID,
X_program_application_id => null,
X_program_id => null,
X_request_id => null);
InsertBatch := TRUE ;
if ((InsertBatch ) AND (X_module <> 'PAXTREPE')) then
OPEN ReverseGroup ;
gms_transactions.InsertExpGroup( X_encumbrance_group => X_new_exp_group ,
X_exp_group_status_code => X_expgrp_status ,
X_ending_date => ExpGroup.encumbrance_ending_date ,
X_system_linkage => ExpGroup.system_linkage_function ,
X_created_by => X_user_id ,
X_transaction_source => ExpGroup.transaction_source );