The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_credit_classification(
errbuf IN OUT NOCOPY VARCHAR2,
retcode IN OUT NOCOPY VARCHAR2,
p_profile_class_id IN VARCHAR2,
p_credit_classification IN VARCHAR2,
p_update_flag IN VARCHAR2
)IS
l_conc_request_id NUMBER;
arp_util.debug('AR_CMGT_CREDIT_CLASS_CONC.update_credit_classification (+)');
IF NVL(p_update_flag,'N')= 'Y' THEN
l_sql_statement := 'UPDATE hz_customer_profiles '||
'SET last_updated_by = :1, '||
'last_update_date = :2, '||
'program_id = :3, '||
'program_update_date = :4, '||
'request_id = :5, '||
'credit_classification = :6 '||
'WHERE profile_class_id = :7 ';
ELSIF NVL(p_update_flag,'N')= 'N' THEN
l_sql_statement := 'UPDATE hz_customer_profiles '||
'SET last_updated_by = :1, '||
'last_update_date = :2, '||
'program_id = :3, '||
'program_update_date = :4, '||
'request_id = :5, '||
'credit_classification = :6 '||
'WHERE profile_class_id = :7 ' ||
'AND credit_classification IS NULL ';
arp_util.debug('AR_CMGT_CREDIT_CLASS_CONC.update_credit_classification (-)');
arp_util.debug('EXCEPTION : AR_CMGT_CREDIT_CLASS_CONC.update_credit_classification '||SQLERRM);