[Home] [Help]
7: g_resp_appl_id CONSTANT NUMBER := fnd_global.resp_appl_id;
8: g_resp_id CONSTANT NUMBER := fnd_global.resp_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');
12: -- Variables to hold the lookup_types
13: l_leasetype_lookup_type fnd_lookup_types.lookup_type%TYPE := 'PN_LEASE_TYPE';
14: l_leaseclass_lookup_type fnd_lookup_types.lookup_type%TYPE := 'PN_LEASE_CLASS';
15: l_status_lookup_type fnd_lookup_types.lookup_type%TYPE := 'PN_LEASE_STATUS_TYPE';
103: g_lease_context VARCHAR2(50):=NULL;
104:
105: --g_class_code VARCHAR2(100):=NULL;
106:
107: g_debug VARCHAR2 (255) := NVL (fnd_profile.VALUE ('PN_DEBUG_MODE'), 'N');
108: g_module_name VARCHAR2(2) := 'PN';
109:
110: /* PROCEDURE pvt_debug (p_log_message IN VARCHAR2
111: , p_log_level IN NUMBER
13218: IF(l_lease_hdr_rec.status = 'F' AND l_status = 'D') THEN
13219: IF (l_tenancy_id IS NULL) THEN
13220: l_status_new := l_status;
13221: ELSE
13222: IF (NVL(fnd_profile.VALUE ('PN_LEASE_APPROVAL_WORKFLOW'),'N') ='Y') THEN
13223: l_status_new := 'S';--l_lease_hdr_rec.status;
13224: ELSE
13225: l_status_new := l_lease_hdr_rec.status;
13226: END IF;
15475: BEGIN
15476: SELECT chart_of_accounts_id
15477: INTO p_payment_terms_tbl(i).set_of_books_id
15478: FROM gl_sets_of_books
15479: WHERE set_of_books_id = fnd_profile.VALUE ('GL_SET_OF_BKS_ID');
15480: EXCEPTION
15481: WHEN OTHERS THEN
15482: NULL;
15483: ----------------------dbms_output.put_line('Exception:SET_OF_BOOKS_ID'||SQLERRM);
18873: AND l_location_exists='Y'
18874: THEN
18875:
18876: --Initiate Approval Workflow if profile option value for 'PN: Use Lease Approval Workflow' is set to 'Y' else submit the standard concurrent request
18877: IF NVL(fnd_profile.VALUE ('PN_LEASE_APPROVAL_WORKFLOW'),'N') ='Y'
18878: THEN
18879:
18880: --dbms_output.put_line('Updating status to Submitted');
18881: BEGIN