The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(
px_partner_id IN OUT NOCOPY NUMBER,
p_last_update_date DATE,
p_last_update_by NUMBER,
p_creation_date DATE,
p_created_by NUMBER,
p_last_update_login NUMBER,
p_object_version_number NUMBER,
p_request_id NUMBER,
p_program_application_id NUMBER,
p_program_id NUMBER,
p_program_update_date DATE,
p_processed_flag VARCHAR2,
p_vad_partner_id NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2)
IS
x_rowid VARCHAR2(30);
L_API_NAME CONSTANT VARCHAR2(30) := 'Insert_Row';
SAVEPOINT Insert_Chng_Partner_Row;
INSERT INTO PV_TAP_BATCH_CHG_PARTNERS(
partner_id,
last_update_date,
last_update_by,
creation_date,
created_by,
last_update_login,
object_version_number,
request_id,
program_application_id,
program_id,
program_update_date,
processed_flag,
vad_partner_id
) VALUES (
DECODE( px_partner_id, FND_API.G_MISS_NUM, NULL,NULL,NULL, px_partner_id),
DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE,NULL, SYSDATE, p_last_update_date),
DECODE( p_last_update_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, NULL, FND_GLOBAL.USER_ID, p_last_update_by),
DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE,NULL, SYSDATE, p_creation_date),
DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID,NULL, FND_GLOBAL.USER_ID, p_created_by),
DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, NULL, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login),
DECODE( p_object_version_number,FND_API.G_MISS_NUM, l_object_version_number, NULL, l_object_version_number, p_object_version_number),
DECODE( p_request_id, FND_API.G_MISS_NUM, NULL, p_request_id),
DECODE( p_program_application_id, FND_API.G_MISS_NUM, NULL, p_program_application_id),
DECODE( p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
DECODE( p_program_update_date, FND_API.G_MISS_DATE, NULL, p_program_update_date),
DECODE( p_processed_flag, FND_API.g_miss_char, 'P', p_processed_flag),
DECODE( p_vad_partner_id, FND_API.g_miss_num, null, NULL, NULL, p_vad_partner_id));
ROLLBACK TO Insert_Chng_Partner_Row;
END Insert_Row;
PROCEDURE Update_Row(
p_partner_id NUMBER,
p_last_update_date DATE,
p_last_update_by NUMBER,
p_last_update_login NUMBER,
p_object_version_number NUMBER,
p_request_id NUMBER,
p_program_application_id NUMBER,
p_program_id NUMBER,
p_program_update_date DATE,
p_processed_flag VARCHAR2,
p_vad_partner_id NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Row';
SAVEPOINT Update_Chng_Partner_Row;
Update PV_TAP_BATCH_CHG_PARTNERS
SET
partner_id = DECODE( p_partner_id, null, partner_id, FND_API.G_MISS_NUM, null, p_partner_id),
last_update_date = DECODE( p_last_update_date, null, last_update_date, FND_API.G_MISS_DATE, null, p_last_update_date),
last_update_by = DECODE( p_last_update_by, null, last_update_by, FND_API.G_MISS_NUM, null, p_last_update_by),
last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login),
object_version_number = nvl(p_object_version_number,0) + 1 ,
request_id = DECODE( p_request_id, null, request_id, FND_API.G_MISS_NUM, null, p_request_id),
program_application_id = DECODE( p_program_application_id, null, program_application_id, FND_API.G_MISS_NUM, null, p_program_application_id),
program_id = DECODE( p_program_id, null, program_id, FND_API.G_MISS_NUM, null, p_program_id),
program_update_date = DECODE( p_program_update_date, null, program_update_date, FND_API.G_MISS_DATE, null, p_program_update_date),
processed_flag = DECODE( p_processed_flag, null, processed_flag, FND_API.g_miss_char, null, p_processed_flag),
vad_partner_id = DECODE( p_vad_partner_id,null,null,FND_API.g_miss_num, NULL, p_vad_partner_id)
WHERE partner_id = p_partner_id
AND object_version_number = p_object_version_number;
ROLLBACK TO Update_Chng_Partner_Row;
ROLLBACK TO Update_Chng_Partner_Row;
END Update_Row;
PROCEDURE Delete_Row(
p_partner_id NUMBER,
p_object_version_number NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Row';
SAVEPOINT Delete_Chng_Partner_Row;
DELETE FROM PV_TAP_BATCH_CHG_PARTNERS
WHERE partner_id = p_partner_id
AND object_version_number = p_object_version_number;
ROLLBACK TO Delete_Chng_Partner_Row;
ROLLBACK TO Delete_Chng_Partner_Row;
END Delete_Row ;
SELECT *
FROM PV_TAP_BATCH_CHG_PARTNERS
WHERE partner_id = p_partner_id
AND object_version_number = p_object_version_number
FOR UPDATE OF partner_id NOWAIT;