The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
id
,object_version_number
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
,subpool_trx_id
,source_type_code
,source_object_id
,asset_number
,asset_start_date
,subsidy_pool_id
,subsidy_pool_amount
,subsidy_pool_currency_code
,subsidy_id
,subsidy_amount
,subsidy_currency_code
,vendor_id
,conversion_rate
INTO
l_qulv_rec.id
,l_qulv_rec.object_version_number
,l_qulv_rec.attribute_category
,l_qulv_rec.attribute1
,l_qulv_rec.attribute2
,l_qulv_rec.attribute3
,l_qulv_rec.attribute4
,l_qulv_rec.attribute5
,l_qulv_rec.attribute6
,l_qulv_rec.attribute7
,l_qulv_rec.attribute8
,l_qulv_rec.attribute9
,l_qulv_rec.attribute10
,l_qulv_rec.attribute11
,l_qulv_rec.attribute12
,l_qulv_rec.attribute13
,l_qulv_rec.attribute14
,l_qulv_rec.attribute15
,l_qulv_rec.subpool_trx_id
,l_qulv_rec.source_type_code
,l_qulv_rec.source_object_id
,l_qulv_rec.asset_number
,l_qulv_rec.asset_start_date
,l_qulv_rec.subsidy_pool_id
,l_qulv_rec.subsidy_pool_amount
,l_qulv_rec.subsidy_pool_currency_code
,l_qulv_rec.subsidy_id
,l_qulv_rec.subsidy_amount
,l_qulv_rec.subsidy_currency_code
,l_qulv_rec.vendor_id
,l_qulv_rec.conversion_rate
FROM okl_quote_subpool_usage_v
WHERE id = p_id;
PROCEDURE insert_row (x_return_status OUT NOCOPY VARCHAR2, p_qul_rec IN qul_rec_type) IS
l_prog_name VARCHAR2(61);
l_prog_name := G_PKG_NAME||'.insert_row (B)';
INSERT INTO okl_quote_subpool_usage (
id
,object_version_number
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
,created_by
,creation_date
,last_updated_by
,last_update_date
,last_update_login
,subpool_trx_id
,source_type_code
,source_object_id
,asset_number
,asset_start_date
,subsidy_pool_id
,subsidy_pool_amount
,subsidy_pool_currency_code
,subsidy_id
,subsidy_amount
,subsidy_currency_code
,vendor_id
,conversion_rate
)
VALUES
(
p_qul_rec.id
,p_qul_rec.object_version_number
,p_qul_rec.attribute_category
,p_qul_rec.attribute1
,p_qul_rec.attribute2
,p_qul_rec.attribute3
,p_qul_rec.attribute4
,p_qul_rec.attribute5
,p_qul_rec.attribute6
,p_qul_rec.attribute7
,p_qul_rec.attribute8
,p_qul_rec.attribute9
,p_qul_rec.attribute10
,p_qul_rec.attribute11
,p_qul_rec.attribute12
,p_qul_rec.attribute13
,p_qul_rec.attribute14
,p_qul_rec.attribute15
,G_USER_ID
,SYSDATE
,G_USER_ID
,SYSDATE
,G_LOGIN_ID
,p_qul_rec.subpool_trx_id
,p_qul_rec.source_type_code
,p_qul_rec.source_object_id
,p_qul_rec.asset_number
,p_qul_rec.asset_start_date
,p_qul_rec.subsidy_pool_id
,p_qul_rec.subsidy_pool_amount
,p_qul_rec.subsidy_pool_currency_code
,p_qul_rec.subsidy_id
,p_qul_rec.subsidy_amount
,p_qul_rec.subsidy_currency_code
,p_qul_rec.vendor_id
,p_qul_rec.conversion_rate
);
END insert_row;
PROCEDURE insert_row (
x_return_status OUT NOCOPY VARCHAR2,
p_qulv_rec IN qulv_rec_type,
x_qulv_rec OUT NOCOPY qulv_rec_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.insert_row (V)';
SELECT okl_qul_seq.nextval INTO l_qulv_rec.ID FROM DUAL;
insert_row (x_return_status => l_return_status, p_qul_rec => l_qul_rec);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_qulv_rec IN qulv_rec_type,
x_qulv_rec OUT NOCOPY qulv_rec_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.insert_row (REC)';
insert_row (x_return_status => l_return_status,
p_qulv_rec => p_qulv_rec,
x_qulv_rec => x_qulv_rec);
END insert_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_qulv_tbl IN qulv_tbl_type,
x_qulv_tbl OUT NOCOPY qulv_tbl_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.insert_row (TBL)';
insert_row (x_return_status => l_return_status,
p_qulv_rec => p_qulv_tbl(i),
x_qulv_rec => x_qulv_tbl(i));
END insert_row;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_QUOTE_SUBPOOL_USAGE
WHERE ID = p_qul_rec.id
AND OBJECT_VERSION_NUMBER = p_qul_rec.object_version_number
FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
SELECT OBJECT_VERSION_NUMBER
FROM OKL_QUOTE_SUBPOOL_USAGE
WHERE ID = p_qul_rec.id;
PROCEDURE update_row(x_return_status OUT NOCOPY VARCHAR2, p_qul_rec IN qul_rec_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.update_row (B)';
UPDATE okl_quote_subpool_usage
SET
object_version_number = p_qul_rec.object_version_number+1
,attribute_category = p_qul_rec.attribute_category
,attribute1 = p_qul_rec.attribute1
,attribute2 = p_qul_rec.attribute2
,attribute3 = p_qul_rec.attribute3
,attribute4 = p_qul_rec.attribute4
,attribute5 = p_qul_rec.attribute5
,attribute6 = p_qul_rec.attribute6
,attribute7 = p_qul_rec.attribute7
,attribute8 = p_qul_rec.attribute8
,attribute9 = p_qul_rec.attribute9
,attribute10 = p_qul_rec.attribute10
,attribute11 = p_qul_rec.attribute11
,attribute12 = p_qul_rec.attribute12
,attribute13 = p_qul_rec.attribute13
,attribute14 = p_qul_rec.attribute14
,attribute15 = p_qul_rec.attribute15
,subpool_trx_id = p_qul_rec.subpool_trx_id
,source_type_code = p_qul_rec.source_type_code
,source_object_id = p_qul_rec.source_object_id
,asset_number = p_qul_rec.asset_number
,asset_start_date = p_qul_rec.asset_start_date
,subsidy_pool_id = p_qul_rec.subsidy_pool_id
,subsidy_pool_amount = p_qul_rec.subsidy_pool_amount
,subsidy_pool_currency_code = p_qul_rec.subsidy_pool_currency_code
,subsidy_id = p_qul_rec.subsidy_id
,subsidy_amount = p_qul_rec.subsidy_amount
,subsidy_currency_code = p_qul_rec.subsidy_currency_code
,vendor_id = p_qul_rec.vendor_id
,conversion_rate = p_qul_rec.conversion_rate
WHERE id = p_qul_rec.id;
END update_row;
PROCEDURE update_row (
x_return_status OUT NOCOPY VARCHAR2,
p_qulv_rec IN qulv_rec_type,
x_qulv_rec OUT NOCOPY qulv_rec_type) IS
l_prog_name VARCHAR2(61);
l_prog_name := G_PKG_NAME||'.update_row (V)';
update_row (x_return_status => l_return_status, p_qul_rec => l_qul_rec);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_qulv_rec IN qulv_rec_type,
x_qulv_rec OUT NOCOPY qulv_rec_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.update_row (REC)';
update_row (x_return_status => l_return_status,
p_qulv_rec => p_qulv_rec,
x_qulv_rec => x_qulv_rec);
END update_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_qulv_tbl IN qulv_tbl_type,
x_qulv_tbl OUT NOCOPY qulv_tbl_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.update_row (TBL)';
update_row (x_return_status => l_return_status,
p_qulv_rec => p_qulv_tbl(i),
x_qulv_rec => x_qulv_tbl(i));
END update_row;
PROCEDURE delete_row(
x_return_status OUT NOCOPY VARCHAR2,
p_id IN NUMBER) IS
l_prog_name VARCHAR2(61);
l_prog_name := G_PKG_NAME||'.delete_row (V)';
DELETE FROM OKL_QUOTE_SUBPOOL_USAGE WHERE id = p_id;
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_qulv_rec IN qulv_rec_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.delete_row (REC)';
delete_row (x_return_status => l_return_status,
p_id => p_qulv_rec.id);
END delete_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_qulv_tbl IN qulv_tbl_type) IS
l_return_status VARCHAR2(1);
l_prog_name := G_PKG_NAME||'.delete_row (TBL)';
delete_row (x_return_status => l_return_status,
p_id => p_qulv_tbl(i).id);
END delete_row;