The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Contingency_Expirations
( p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
,p_org_id IN NUMBER DEFAULT NULL
,p_customer_trx_id IN ra_customer_trx.customer_trx_id%type
,p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%type DEFAULT NULL
,p_contingency_id IN ar_line_conts.contingency_id%type DEFAULT NULL
,p_expiration_date IN ar_line_conts.expiration_date%type DEFAULT NULL
,p_expiration_days IN ar_line_conts.expiration_days%type DEFAULT NULL)
IS
l_api_name CONSTANT VARCHAR2(30) :=
'Update_Contingency_Expirations';
select lc.customer_trx_line_id customer_trx_line_id,
lc.contingency_id contingency_id,
NVL(lc.expiration_event_date,
decode(dr.expiration_event_code,
'TRANSACTION_DATE', trunc(t.trx_date),
'SHIP_CONFIRM_DATE', trunc(t.ship_date_actual), NULL))
expiration_event_date
from ra_customer_trx t,
ra_customer_trx_lines tl,
ar_line_conts lc,
ar_deferral_reasons dr
where t.customer_trx_id = p_customer_trx_id
and t.customer_trx_id = tl.customer_trx_id
and tl.customer_trx_line_id = nvl(p_customer_trx_line_id,
tl.customer_trx_line_id)
and tl.line_type = 'LINE'
and tl.customer_trx_line_id = lc.customer_trx_line_id
and lc.contingency_id = nvl(p_contingency_id, lc.contingency_id)
and lc.contingency_id = dr.contingency_id
and lc.completed_flag = 'N'
and dr.revrec_event_code = 'CONTINGENCY_EXPIRATION';
arp_debug.debug('AR_RevenueAdjust_PUB.Update_Contingency_Expirations()+');
SAVEPOINT Update_Contingency_Expires_PUB;
' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()+');
/* Loop thru eligible contingencies and update */
FOR cont IN c_conts LOOP
/* Determine new expiration date */
IF p_expiration_date IS NOT NULL
THEN
l_expiration_date := TRUNC(p_expiration_date);
ar_revenue_management_pvt.update_line_conts(
p_customer_trx_line_id => cont.customer_trx_line_id
,p_contingency_id => cont.contingency_id
,p_expiration_date => l_expiration_date
,p_expiration_event_date => cont.expiration_event_date
,p_expiration_days => l_expiration_days
,p_completed_flag => NULL
,p_reason_removal_date => NULL);
' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
' at AR_RevenueAdjust_PUB.Update_Contingency_Expirations()');
END Update_Contingency_Expirations;