The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT trunc(date_transaction_occurred),
currency_code,
currency_conversion_date,
currency_conversion_rate,
currency_conversion_type
FROM OKL_TRX_CONTRACTS
WHERE ID IN (SELECT TCN_ID
FROM OKL_TXL_CNTRCT_LNS
WHERE ID = v_source_id);
SELECT POSTED_YN
FROM OKL_TRNS_ACC_DSTRS
WHERE source_id = v_source_id
AND source_table = v_source_table;
SELECT gl_transfer_flag
FROM OKL_AE_HEADERS aeh, OKL_ACCOUNTING_EVENTS aet
WHERE aeh.accounting_event_id = aet.accounting_event_id
AND aet.source_id = v_source_id
AND aet.source_table = v_source_table;
PROCEDURE DELETE_DIST_AE(p_flag IN VARCHAR2,
p_source_id IN NUMBER,
p_source_table IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2)
IS
CURSOR dist_csr(v_source_id NUMBER, v_source_table VARCHAR2) IS
SELECT ID
FROM OKL_TRNS_ACC_DSTRS
WHERE source_id = v_source_id
AND source_table = v_source_table;
SELECT accounting_event_id
FROM OKL_ACCOUNTING_EVENTS
WHERE source_id = v_source_id
AND source_table = v_source_table;
OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRMSCB.pls call Okl_Trns_Acc_Dstrs_Pub.delete_trns_acc_dstrs ');
Okl_Trns_Acc_Dstrs_Pub.delete_trns_acc_dstrs(p_api_version => l_api_version
,p_init_msg_list => l_init_msg_list
,x_return_status => x_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_tabv_tbl => l_dist_tbl);
OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRMSCB.pls call Okl_Trns_Acc_Dstrs_Pub.delete_trns_acc_dstrs ');
OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRMSCB.pls call Okl_Acct_Event_Pub.delete_acct_event ');
Okl_Acct_Event_Pub.delete_acct_event(p_api_version => l_api_version
,p_init_msg_list => l_init_msg_list
,x_return_status => x_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_aetv_rec => l_aetv_rec);
OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRMSCB.pls call Okl_Acct_Event_Pub.delete_acct_event ');
END DELETE_DIST_AE;
SELECT amount
FROM OKL_TXL_CNTRCT_LNS
WHERE ID = v_source_id;
PROCEDURE insert_updt_dstrs(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_tabv_tbl IN tabv_tbl_type,
x_tabv_tbl OUT NOCOPY tabv_tbl_type)
IS
l_api_version NUMBER := 1.0;
l_api_name VARCHAR2(30) := 'INSERT_UPDT_DSTRS';
SELECT tcn_id
FROM OKL_TXL_CNTRCT_LNS
WHERE ID = v_source_id;
SELECT tsu_code
FROM OKL_TRX_CONTRACTS
WHERE ID = v_tcn_id;
DELETE_DIST_AE(p_flag => 'DIST',
p_source_id => p_tabv_tbl(1).source_id,
p_source_table => l_source_table,
x_return_status => l_return_status);
DELETE_DIST_AE(p_flag => 'AE',
p_source_id => p_tabv_tbl(1).source_id,
p_source_table => l_source_table,
x_return_status => l_return_status);
OKL_TRNS_ACC_DSTRS_PUB.insert_trns_acc_dstrs(p_api_version => l_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tabv_rec => l_tabv_rec_out,
x_tabv_rec => x_tabv_tbl(i) );
END insert_updt_dstrs;