171: IF x_tenancy_ID IS NULL THEN
172:
173: SELECT pn_tenancies_s.NEXTVAL
174: INTO x_tenancy_id
175: FROM DUAL;
176:
177: END IF;
178:
179: INSERT INTO pn_tenancies_all
896: pnp_debug_pkg.debug('PN_TENANCIES_PKG.CHECK_UNIQUE_PRIMARY_LOCATION (+)');
897: BEGIN
898: SELECT 1
899: INTO l_dummy
900: FROM DUAL
901: WHERE NOT EXISTS
902: (SELECT 1
903: FROM pn_tenancies_all pnt
904: WHERE pnt.lease_id = x_lease_id
1302: RETURN BOOLEAN
1303: IS
1304: CURSOR chk_assoc_exp_area_dtl IS
1305: SELECT 'Y'
1306: FROM DUAL
1307: WHERE EXISTS (SELECT NULL
1308: FROM pn_space_assign_cust_all spc
1309: WHERE spc.tenancy_id = p_tenancy_id
1310: AND (EXISTS (SELECT NULL
1320: );
1321:
1322: CURSOR chk_locked_area_exp_det IS
1323: SELECT 'Y'
1324: FROM DUAL
1325: WHERE EXISTS (SELECT NULL
1326: FROM pn_space_assign_cust_all spc
1327: WHERE spc.tenancy_id = p_tenancy_id
1328: AND (NVL(spc.cust_assign_end_date,p_cust_assign_end_dt) >= p_cust_assign_start_dt OR
1900: )
1901: IS
1902: CURSOR csr_assign_exists IS
1903: SELECT 'Y'
1904: FROM DUAl
1905: WHERE EXISTS (SELECT NULL
1906: FROM pn_leases_all pnl,
1907: pn_tenancies_all ten
1908: WHERE pnl.lease_id <> p_lease_id
1915: );
1916:
1917: CURSOR csr_space_exists IS
1918: SELECT 'Y'
1919: FROM DUAl
1920: WHERE EXISTS (SELECT NULL
1921: from pn_locations_all pl
1922: where pl.location_id = p_location_id
1923: and pl.assignable_area = 0
2305: WHERE tenancy_id = p_tenancy_id);
2306:
2307: CURSOR csr_spc_assign_exists IS
2308: SELECT 'Y'
2309: FROM DUAL
2310: WHERE EXISTS (SELECT NULL
2311: FROM pn_space_assign_cust_all
2312: WHERE tenancy_id = p_tenancy_id);
2313: