The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_asset_header(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_trxv_rec IN trxv_rec_type,
x_trxv_rec OUT NOCOPY trxv_rec_type);
select transaction_type_id
from CS_TRANSACTION_TYPES_V
where Name = p_transaction_type;
PROCEDURE update_location(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
p_loc_rec IN OKL_LOC_REC_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
CURSOR c_free_form2(p_parent_line_id IN NUMBER) IS
SELECT A.ID
FROM OKC_K_LINES_V A,
OKC_LINE_STYLES_B B
WHERE A.CLE_ID = p_parent_line_id
AND A.LSE_ID = B.ID
AND B.LTY_CODE = 'FREE_FORM2';
SELECT A.ID,
A.DNZ_CHR_ID
FROM OKC_K_LINES_V A,
OKC_LINE_STYLES_B B
WHERE A.CLE_ID = p_line_id
AND A.LSE_ID = B.ID
AND B.LTY_CODE = 'INST_ITEM';
SELECT *
FROM OKC_K_ITEMS_V
WHERE CLE_ID = p_inst_itm_id
AND JTOT_OBJECT1_CODE = 'OKX_IB_ITEM';
SELECT *
FROM OKX_INSTALL_ITEMS_V A
WHERE ID1 = p_object1_id1
AND ID2 = p_object1_id2;
SELECT LOCATION_TYPE_CODE,
INSTALL_LOCATION_TYPE_CODE
FROM csi_item_instances
WHERE INSTANCE_ID = p_instance_id;
SELECT RUL.RULE_INFORMATION11
FROM OKC_RULES_B RUL,
OKC_RULE_GROUPS_B RGP
WHERE RUL.RGP_ID = RGP.ID
AND RGP.DNZ_CHR_ID = p_contract_id
AND RGP.CLE_ID = p_line_id
AND RUL.RULE_INFORMATION_CATEGORY = 'LAASTX'
AND RGP.RGD_CODE = 'LAASTX';
SELECT RUL.RULE_INFORMATION1
FROM OKC_RULES_B RUL,
OKC_RULE_GROUPS_B RGP
WHERE RUL.RGP_ID = RGP.ID
AND RGP.DNZ_CHR_ID = p_contract_id
AND RUL.RULE_INFORMATION_CATEGORY = 'LASTPR'
AND RGP.RGD_CODE = 'LAHDTX';
SELECT 'X'
FROM OKL_TAX_SOURCES
WHERE KHR_ID = p_contract_id
AND TAX_CALL_TYPE_CODE = 'UPFRONT_TAX'
AND TAX_LINE_STATUS_CODE = 'ACTIVE';
SELECT 'X'
FROM OKL_TRX_ASSETS TRX,
OKL_TXL_ITM_INSTS TXL,
OKL_TRX_TYPES_B TRY
WHERE TRX.ID = TXL.TAS_ID
AND TRX.TRY_ID = TRY.ID
AND TRY.TRX_TYPE_CLASS = 'ASSET_RELOCATION'
AND TRX.TSU_CODE = 'ENTERED'
AND TRX.TAS_TYPE = 'ALG'
AND TXL.dnz_cle_id = cp_kle_id;
SELECT kle.dnz_chr_id,
khr.org_id,
khr.currency_code
FROM okc_k_lines_v kle,
okc_k_headers_all_b khr
WHERE kle.id = p_kle_id
AND kle.dnz_chr_id = khr.id;
SELECT mtl.serial_number_control_code
FROM okc_k_lines_b line,
okc_line_styles_b style,
okc_k_items kitem,
mtl_system_items mtl
WHERE line.lse_id = style.id
AND style.lty_code = 'ITEM'
AND line.id = kitem.cle_id
AND kitem.jtot_object1_code = 'OKX_SYSITEM'
AND kitem.object1_id1 = mtl.inventory_item_id
AND kitem.object1_id2 = TO_CHAR(mtl.organization_id)
AND line.cle_id = p_line_id;
SELECT count(*)
FROM okc_k_lines_v okcl,
okc_line_styles_v lse
WHERE okcl.cle_id = p_parent_line_id
AND okcl.lse_id = lse.id
AND lse.lty_code = 'FREE_FORM2';
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LOCATION';
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Update_Location','Begin(+)');
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Input variables in Update Location');
okl_trx_requests_pub.insert_trx_requests(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trqv_rec => l_trqv_rec,
x_trqv_rec => x_trqv_rec);
l_itiv_rec.LAST_UPDATED_BY := FND_API.G_MISS_NUM;
l_itiv_rec.LAST_UPDATE_DATE := FND_API.G_MISS_DATE;
l_itiv_rec.LAST_UPDATE_LOGIN := FND_API.G_MISS_NUM;
END update_location;
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
PROCEDURE Update_asset_header(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_trxv_rec IN trxv_rec_type,
x_trxv_rec OUT NOCOPY trxv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSET_HEADER';
OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_thpv_rec => p_trxv_rec,
x_thpv_rec => x_trxv_rec);
END Update_asset_header;
SELECT id
FROM OKL_TRX_TYPES_TL
WHERE upper(name) = upper(p_try_name)
AND language = 'US';
PROCEDURE update_location(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
p_loc_tbl IN okl_loc_tbl_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Location';
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'parent_line_id :'||p_loc_tbl(i).parent_line_id);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'loc_id :'||p_loc_tbl(i).loc_id);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'party_site_id :'||p_loc_tbl(i).party_site_id);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'newsite_id1 :'||p_loc_tbl(i).newsite_id1);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'newsite_id2 :'||p_loc_tbl(i).newsite_id2);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'oldsite_id1 :'||p_loc_tbl(i).oldsite_id1);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'oldsite_id2 :'||p_loc_tbl(i).oldsite_id2);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
'date_from :'||p_loc_tbl(i).date_from);
update_location (
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_loc_rec => p_loc_tbl(i));
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Update_Location ','End(-)');
FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_BLK_AST_UPD_PVT.Update_Location ',
'EXCEPTION :'|| 'OKL_API.G_EXCEPTION_ERROR');
FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_BLK_AST_UPD_PVT.Update_Location ',
'EXCEPTION :'|| 'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_BLK_AST_UPD_PVT.Update_Location ',
'EXCEPTION :'||sqlerrm);
END Update_Location;
SELECT mo_global.get_current_org_id() l_fnd_profile
FROM dual;
SELECT cust_trx_type_id l_cust_trx_type_id
FROM ra_cust_trx_types
WHERE name = 'Invoice-OKL';
SELECT ct.object1_id1 id
,chr.scs_code scs_code
FROM okc_contacts ct,
okc_contact_sources csrc,
okc_k_party_roles_b pty,
okc_k_headers_b chr
WHERE ct.cpl_id = pty.id
AND ct.cro_code = csrc.cro_code
AND ct.jtot_object1_code = csrc.jtot_object_code
AND ct.dnz_chr_id = chr.id
AND pty.rle_code = csrc.rle_code
AND csrc.cro_code = 'SALESPERSON'
AND csrc.rle_code = 'LESSOR'
AND csrc.buy_or_sell = chr.buy_or_sell
AND pty.dnz_chr_id = chr.id
AND pty.chr_id = chr.id
AND chr.id = p_trxh_out_rec.khr_id;
SELECT bill_to_site_use_id cust_acct_site_id
FROM okc_k_headers_b
WHERE id = p_trxh_out_rec.khr_id;
SELECT bill_to_site_use_id cust_acct_site_id
FROM okc_k_lines_b
WHERE id = p_cle_id;
SELECT khr.pdt_id product_id
,khr.start_date start_date
,khr.currency_code currency_code
,khr.authoring_org_id authoring_org_id
,khr.currency_conversion_rate currency_conversion_rate
,khr.currency_conversion_type currency_conversion_type
,khr.currency_conversion_date currency_conversion_date
,khr.contract_number contract_number
FROM okl_k_headers_full_v khr
WHERE khr.id = p_contract_id;
select description, lookup_code
from fnd_lookup_values
where language = 'US'
AND lookup_type = lkp_type
AND meaning = mng;
SELECT id
FROM okl_trx_types_tl
WHERE name = p_transaction_type
AND language = 'US';
SELECT account_derivation
FROM okl_sys_acct_opts;
SELECT 'BILLED' tax_treatment
, txs.kle_id asset_id
, txs.id tax_header_id
, txl.tax_line_id tax_line_id
, txl.tax_amt tax_amount
FROM okl_tax_sources txs
, zx_lines txl
WHERE txs.khr_id = p_contract_id
AND txs.kle_id = p_line_id
AND txs.trx_id = p_transaction_id
AND txs.tax_line_status_code = 'ACTIVE'
AND txs.tax_call_type_code = 'UPFRONT_TAX'
AND txs.trx_id = txl.trx_id
AND txs.trx_line_id = txl.trx_line_id
AND txl.entity_code = 'ASSETS'
AND txl.event_class_code = 'ASSET_RELOCATION'
AND txs.entity_code = txl.entity_code
AND txs.event_class_code = txl.event_class_code
AND txl.application_id = 540
AND txl.trx_level_type = 'LINE'
AND txs.application_id = txl.application_id
AND txs.trx_level_type = txl.trx_level_type;
l_accoutable_tax_lines.DELETE;
PROCEDURE process_update_location(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
p_kle_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
CURSOR c_free_form2(p_parent_line_id IN NUMBER) IS
SELECT A.ID, K.org_id
FROM OKC_K_LINES_V A,
OKC_LINE_STYLES_B B,
okc_k_headers_all_b K
WHERE A.CLE_ID = p_parent_line_id
AND A.LSE_ID = B.ID
AND B.LTY_CODE = 'FREE_FORM2'
AND k.id = a.dnz_chr_id;
SELECT A.ID,
A.DNZ_CHR_ID
FROM OKC_K_LINES_V A,
OKC_LINE_STYLES_B B
WHERE A.CLE_ID = p_line_id
AND A.LSE_ID = B.ID
AND B.LTY_CODE = 'INST_ITEM';
SELECT *
FROM OKC_K_ITEMS_V
WHERE CLE_ID = p_inst_itm_id
AND JTOT_OBJECT1_CODE = 'OKX_IB_ITEM';
SELECT *
FROM OKX_INSTALL_ITEMS_V A
WHERE ID1 = p_object1_id1
AND ID2 = p_object1_id2;
SELECT LOCATION_TYPE_CODE,
INSTALL_LOCATION_TYPE_CODE
FROM csi_item_instances
WHERE INSTANCE_ID = p_instance_id;
SELECT TRX.ID,TRX.TSU_CODE, TXL.object_id1_new, TXL.object_id2_new,
TXL.object_id1_old,object_id2_old,psu.location_id, psu.party_site_id,
TRX.DATE_TRANS_OCCURRED,TRX.req_asset_id
FROM OKL_TRX_ASSETS TRX,
OKL_TXL_ITM_INSTS TXL,
OKL_TRX_TYPES_B TRY,
OKX_PARTY_SITE_USES_V psu
WHERE TRX.ID = TXL.TAS_ID
AND TRX.TRY_ID = TRY.ID
AND TRY.TRX_TYPE_CLASS = 'ASSET_RELOCATION'
AND TRX.TSU_CODE = 'ENTERED'
AND TRX.TAS_TYPE = 'ALG'
AND TXL.KLE_ID = cp_kle_id
AND psu.ID1 = TXL.object_id1_new
AND PSU.ID2 = TXL.object_id2_new;
SELECT tax_upfront_yn
FROM OKL_SYSTEM_PARAMS_ALL
WHERE org_id = cp_org_id;
SELECT nvl(sum(total_tax) ,0)
FROM okl_tax_sources TAXS
WHERE TAXS.TAX_LINE_STATUS_CODE = 'ACTIVE'
AND TAXS.TAX_CALL_TYPE_CODE = 'UPFRONT_TAX'
AND TAXS.ENTITY_CODE = 'ASSETS'
AND TAXS.APPLICATION_ID = 540
AND EVENT_CLASS_CODE = 'ASSET_RELOCATION'
AND TRX_ID = cp_trx_id
And khr_id = cp_khr_id
And kle_id = cp_kle_id
And trx_level_type = 'LINE';
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Update_Location','Begin(+)');
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Input variables in Update Location');
SELECT object_version_number
INTO l_obj_no
FROM csi_item_instances
WHERE instance_id = l_c_ib_inst.id1;
csi_item_instance_pub.update_item_instance(p_api_version => p_api_version,
p_commit => fnd_api.g_false,
p_init_msg_list => p_init_msg_list,
p_validation_level => fnd_api.g_valid_level_full,
p_instance_rec => l_instance_rec,
p_ext_attrib_values_tbl => l_ext_attrib_values_tbl,
p_party_tbl => l_party_tbl,
p_account_tbl => l_account_tbl,
p_pricing_attrib_tbl => l_pricing_attrib_tbl,
p_org_assignments_tbl => l_org_assignments_tbl,
p_asset_assignment_tbl => l_asset_assignment_tbl,
p_txn_rec => l_txn_rec,
x_instance_id_lst => l_instance_id_lst,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Update_asset_header(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trxv_rec => l_trxv_rec,
x_trxv_rec => x_trxv_rec);
SELECT object_version_number INTO l_trqv_rec.object_version_number
FROM okl_trx_requests
WHERE ID = l_trqv_rec.id;
okl_trx_requests_pub.update_trx_requests(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_trqv_rec => l_trqv_rec,
x_trqv_rec => x_trqv_rec);
END process_update_location;