The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_lease (
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := fnd_api.g_false
, p_commit IN VARCHAR2 := fnd_api.g_false
, p_validate IN VARCHAR2 := fnd_api.g_false
, p_lease_rec IN OUT NOCOPY PN_LEASE_PVT.lease_rec
, p_lease_exp_rev_accounts_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
, p_lease_accrual_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
, p_lease_liab_rcvl_account_rec IN OUT NOCOPY PN_LEASE_PVT.lease_account_rec
, p_lease_contacts_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_contacts_tbl
, p_lease_tenancies_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_tenancies_tbl
, p_lease_context IN VARCHAR2 DEFAULT 'UPD'
, p_right_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_right_tbl_type
, p_note_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_note_tbl_type
, p_obligation_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_obligation_tbl_type
, p_insurance_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_insurance_tbl_type
, p_option_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_option_tbl_type
, p_lease_payment_term_tbl IN OUT NOCOPY PN_LEASE_PVT.lease_terms_tbl
-- , x_lease_id OUT NOCOPY NUMBER
-- , x_lease_number OUT NOCOPY VARCHAR2
-- , x_lease_name OUT NOCOPY VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_LEASE';
pn_debug.set_curr_function (p_function => 'UPDATE_LEASE'
, p_debug_mode => l_debug_mode);
SELECT lease_id
INTO p_lease_rec.lease_id
FROM pn_leases_all
WHERE name = p_lease_rec.lease_name
AND org_id = g_org_id;
SELECT lease_id
INTO p_lease_rec.lease_id
FROM pn_leases_all
WHERE lease_num = p_lease_rec.lease_num
AND org_id = g_org_id;
pn_lease_pvt.update_lease
(p_api_version => p_api_version
, p_init_msg_list => p_init_msg_list
, p_commit => p_commit
, p_validate => p_validate
, p_lease_rec => p_lease_rec
, p_lease_exp_rev_accounts_rec => p_lease_exp_rev_accounts_rec
, p_lease_accrual_account_rec => p_lease_accrual_account_rec
, p_lease_liab_rcvl_account_rec => p_lease_liab_rcvl_account_rec
, p_lease_contacts_tbl => p_lease_contacts_tbl
, p_lease_tenancies_tbl => p_lease_tenancies_tbl
, p_lease_context => p_lease_context
, p_right_tbl => p_right_tbl
, p_note_tbl => p_note_tbl
, p_obligation_tbl => p_obligation_tbl
, p_insurance_tbl => p_insurance_tbl
, p_option_tbl => p_option_tbl
, p_lease_payment_term_tbl => p_lease_payment_term_tbl
-- , x_lease_id => x_lease_id
-- , x_lease_number => x_lease_number
-- , x_lease_name => x_lease_name
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
END update_lease;
PROCEDURE update_terms (
p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validate IN VARCHAR2 := FND_API.G_FALSE
, p_payment_terms_tbl IN OUT NOCOPY pn_lease_pvt.lease_terms_tbl
, p_lease_id IN NUMBER
, p_lease_context IN VARCHAR2 DEFAULT NULL
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
AS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_TERMS';
pn_lease_pvt.update_terms (p_api_version => p_api_version
, p_init_msg_list => p_init_msg_list
, p_commit => p_commit
, p_validate => p_validate
, p_payment_terms_tbl => p_payment_terms_tbl
, p_lease_id => p_lease_id
, p_lease_context => p_lease_context
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
END update_terms;
PROCEDURE update_status( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
, p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
, p_lease_id IN OUT NOCOPY NUMBER
, p_new_approval_status_code IN OUT NOCOPY VARCHAR2
, p_new_lease_status IN OUT NOCOPY VARCHAR2
, p_operation IN VARCHAR2 DEFAULT 'UPDATE_STATUS'
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
-- Below global variables to be removed at the time of plugging this procedure into pn_lease_pkg
-- g_pkg_name VARCHAR2(30);
g_program_unit CONSTANT VARCHAR2 (30) := 'update_status';
l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_STATUS';
pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Start of status update procedure', 3);
SAVEPOINT update_status;
pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Calling update_status procedure.. ', 3);
pn_lease_pvt.update_status( p_lease_id => p_lease_id
, p_new_approval_status_code => p_new_approval_status_code
, p_new_lease_status => p_new_lease_status
, p_operation => p_operation
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - update_status procedure x_return_status: '||x_return_status, 3);
pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - In public update_status api: fnd_api.g_exc_error: '||x_return_status, 3);
pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - In public update_status api: fnd_api.g_ret_sts_unexp_error: '||x_return_status, 3);
pn_lease_pvt.pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - In public update_status api: unknown error '||x_return_status, 3);
END update_status;