The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DISTINCT RACM.CUSTOMER_ID, RACM.DUPLICATE_ID INTO
agmt_new_customer_id, agmt_old_customer_id
FROM RA_CUSTOMER_MERGES RACM
WHERE RACM.DUPLICATE_ID = var_agmt_customer_id
AND RACM.PROCESS_FLAG = 'N'
AND RACM.SET_NUMBER = set_no;
SELECT CUSTOMER_ID, AGREEMENT_NUM, AGREEMENT_TYPE
INTO dummy_customer_id, dummy_agreement_num, dummy_agreement_type
FROM PA_AGREEMENTS PA
WHERE PA.CUSTOMER_ID = agmt_new_customer_id
AND PA.AGREEMENT_NUM = var_agmt_agreement_num
AND PA.AGREEMENT_TYPE = var_agmt_agreement_type;
FUNCTION UPDATE_FOR_DUPLICATE_INDEX(
agmt_new_customer_id IN pa_agreements.customer_id%TYPE,
var_agmt_agreement_num IN pa_agreements.agreement_num%TYPE,
var_agmt_agreement_id IN pa_agreements.agreement_id%TYPE,
var_agmt_agreement_type IN pa_agreements.agreement_type%TYPE,
seq_index IN NUMBER,
duplicate_index_value OUT NOCOPY BOOLEAN ,/*file.sql.39*/
request_id IN Number,
cust_merge_head_id IN ra_customer_merges.CUSTOMER_MERGE_HEADER_ID%TYPE)/*Added for TCA AUDIT */
--
RETURN BOOLEAN IS
--
/* Commented for enhancement 1593520
trunc_agreement_num VARCHAR2(20);
INSERT INTO hz_customer_merge_log
( MERGE_LOG_ID,
MERGE_HEADER_ID,
REQUEST_ID,
TABLE_NAME,
PRIMARY_KEY_ID,
VCHAR_COL1_ORIG,
VCHAR_COL1_NEW ,
ACTION_FLAG,
CREATED_BY,
CREATION_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN )
VALUES(
HZ_CUSTOMER_MERGE_LOG_S.nextval,
cust_merge_head_id,
request_id,
'PA_AGREEMENTS_ALL',
var_agmt_agreement_id,
var_agmt_agreement_num,
final_agreement_num,
'U',
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE PA_AGREEMENTS PA -- bug 3891382.
SET PA.AGREEMENT_NUM = final_agreement_num
WHERE PA.CUSTOMER_ID = agmt_new_customer_id
AND PA.AGREEMENT_NUM = var_agmt_agreement_num
AND PA.AGREEMENT_TYPE = var_agmt_agreement_type;
END UPDATE_FOR_DUPLICATE_INDEX;
CURSOR cursor_2 IS SELECT DISTINCT AG.CUSTOMER_ID,
ag.AGREEMENT_ID,
ag.AGREEMENT_NUM,
ag.AGREEMENT_TYPE,
RACM.CUSTOMER_ID,
RACM.CUSTOMER_MERGE_HEADER_ID
FROM pa_agreements ag,ra_customer_merges RACM --bug3891382
WHERE RACM.DUPLICATE_ID = AG.CUSTOMER_ID
AND RACM.PROCESS_FLAG = 'N'
AND RACM.SET_NUMBER = set_no
AND RACM.CUSTOMER_ID <> RACM.DUPLICATE_ID;
data_found := UPDATE_FOR_DUPLICATE_INDEX( var_racm_customer_id,
var_agmt_agreement_num,
var_agmt_agreement_id,
var_agmt_agreement_type,
seq_index,
duplicate_index_value ,
req_id,
var_cust_merge_header_id);/* Added for TCA audit */
INSERT INTO hz_customer_merge_log
( MERGE_LOG_ID,
MERGE_HEADER_ID ,
REQUEST_ID,
TABLE_NAME,
PRIMARY_KEY_ID,
NUM_COL1_ORIG,
NUM_COL1_NEW ,
ACTION_FLAG,
CREATED_BY,
CREATION_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN )
VALUES(
HZ_CUSTOMER_MERGE_LOG_S.nextval,
var_cust_merge_header_id,
req_id,
'PA_AGREEMENTS', -- bug 3891382.
var_agmt_agreement_id,
var_agmt_customer_id,
var_racm_customer_id,
'U',
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE pa_agreements PA -- bug 3891382.
SET CUSTOMER_ID = var_racm_customer_id,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = ARP_STANDARD.PROFILE.USER_ID,
LAST_UPDATE_LOGIN = ARP_STANDARD.PROFILE.LAST_UPDATE_LOGIN
WHERE
PA.CUSTOMER_ID = var_agmt_customer_id
AND PA.AGREEMENT_NUM = var_agmt_agreement_num
AND PA.AGREEMENT_TYPE = var_agmt_agreement_type;
ARP_MESSAGE.SET_NAME( 'AR', 'AR_ROWS_UPDATED' );