3:
4: g_pkg_name CONSTANT VARCHAR2 (30) := 'PN_LEASE_PUB';
5: g_table_name CONSTANT VARCHAR2 (40) := 'PN_LEASES_ALL';
6: g_tl_table_name CONSTANT VARCHAR2 (40) := 'NONE';
7: g_resp_appl_id CONSTANT NUMBER := fnd_global.resp_appl_id;
8: g_resp_id CONSTANT NUMBER := fnd_global.resp_appl_id;
9: g_user_id CONSTANT NUMBER := fnd_global.user_id;
10: g_login_id CONSTANT NUMBER := fnd_global.login_id;
11: g_org_id CONSTANT NUMBER := fnd_profile.VALUE ('ORG_ID');--NVL(PN_MO_CACHE_UTILS.get_current_org_id,fnd_profile.VALUE ('org_id'));
4: g_pkg_name CONSTANT VARCHAR2 (30) := 'PN_LEASE_PUB';
5: g_table_name CONSTANT VARCHAR2 (40) := 'PN_LEASES_ALL';
6: g_tl_table_name CONSTANT VARCHAR2 (40) := 'NONE';
7: g_resp_appl_id CONSTANT NUMBER := fnd_global.resp_appl_id;
8: g_resp_id CONSTANT NUMBER := fnd_global.resp_appl_id;
9: g_user_id CONSTANT NUMBER := fnd_global.user_id;
10: g_login_id CONSTANT NUMBER := fnd_global.login_id;
11: g_org_id CONSTANT NUMBER := fnd_profile.VALUE ('ORG_ID');--NVL(PN_MO_CACHE_UTILS.get_current_org_id,fnd_profile.VALUE ('org_id'));
12:
5: g_table_name CONSTANT VARCHAR2 (40) := 'PN_LEASES_ALL';
6: g_tl_table_name CONSTANT VARCHAR2 (40) := 'NONE';
7: g_resp_appl_id CONSTANT NUMBER := fnd_global.resp_appl_id;
8: g_resp_id CONSTANT NUMBER := fnd_global.resp_appl_id;
9: g_user_id CONSTANT NUMBER := fnd_global.user_id;
10: g_login_id CONSTANT NUMBER := fnd_global.login_id;
11: g_org_id CONSTANT NUMBER := fnd_profile.VALUE ('ORG_ID');--NVL(PN_MO_CACHE_UTILS.get_current_org_id,fnd_profile.VALUE ('org_id'));
12:
13: -- Procedure to create a new lease
6: g_tl_table_name CONSTANT VARCHAR2 (40) := 'NONE';
7: g_resp_appl_id CONSTANT NUMBER := fnd_global.resp_appl_id;
8: g_resp_id CONSTANT NUMBER := fnd_global.resp_appl_id;
9: g_user_id CONSTANT NUMBER := fnd_global.user_id;
10: g_login_id CONSTANT NUMBER := fnd_global.login_id;
11: g_org_id CONSTANT NUMBER := fnd_profile.VALUE ('ORG_ID');--NVL(PN_MO_CACHE_UTILS.get_current_org_id,fnd_profile.VALUE ('org_id'));
12:
13: -- Procedure to create a new lease
14: PROCEDURE create_lease (