[Home] [Help]
926: -- return_status is E (error) in Overlap exception
927: -- for Multi-Tenancy-Lease changes.
928: -- 30 OCT-02 graghuna o added group by to location code select.
929: -- 08-JUL-03 AKumar o Replaced calls to fnd_profile.get_value with
930: -- pn_mo_cache_utils.get_profile_value
931: -- 28-nov-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
932: -------------------------------------------------------------------------------
933: PROCEDURE CHECK_FOR_OVELAP_OF_TENANCY
934: (
927: -- for Multi-Tenancy-Lease changes.
928: -- 30 OCT-02 graghuna o added group by to location code select.
929: -- 08-JUL-03 AKumar o Replaced calls to fnd_profile.get_value with
930: -- pn_mo_cache_utils.get_profile_value
931: -- 28-nov-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
932: -------------------------------------------------------------------------------
933: PROCEDURE CHECK_FOR_OVELAP_OF_TENANCY
934: (
935: X_RETURN_STATUS IN OUT NOCOPY VARCHAR2
1056: AND ROWNUM < 2
1057: );
1058:
1059:
1060: IF nvl(pn_mo_cache_utils.get_profile_value('PN_MULTIPLE_LEASE_FOR_LOCATION',l_org_id),'N') <> 'Y' THEN
1061: fnd_message.set_name ('PN', 'PN_LEASE_TENANCY_OVERLAP');
1062: fnd_message.set_token ('LOCATION_CODE', l_locationCode);
1063: fnd_message.set_token ('LEASE_NUMBER', l_leaseNumber);
1064: x_return_status := 'E';
1192: AND ROWNUM < 2
1193: );
1194:
1195:
1196: IF nvl(pn_mo_cache_utils.get_profile_value('PN_MULTIPLE_LEASE_FOR_LOCATION',l_org_id),'N') <> 'Y' THEN
1197: fnd_message.set_name ('PN', 'PN_LEASE_TENANCY_OVERLAP');
1198: fnd_message.set_token ('LOCATION_CODE', l_locationCode);
1199: fnd_message.set_token ('LEASE_NUMBER', l_leaseNumber);
1200: x_return_status := 'E';
1882: -- with p_cust_assign_start_dt as as_of_date.
1883: -- 08-APR-04 STripathi o Fixed for BUG# 3533405, Modified CURSOR csr_assign_exists
1884: -- added ten.str_dt <= p_assgn_end_dt and ten.end_dt >= p_assgn_str_dt
1885: -- to check tenancy other exist betn assgn str and end dt.
1886: -- 28-NOV-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
1887: -------------------------------------------------------------------
1888: PROCEDURE chk_multi_tenancy_profile(
1889: p_location_id IN NUMBER
1890: ,p_lease_id IN NUMBER
1945: FOR rec IN org_cur LOOP
1946: l_org_id := rec.org_id;
1947: END LOOP;
1948:
1949: l_multi_tenancy_profile := NVL( pn_mo_cache_utils.get_profile_value('PN_MULTIPLE_LEASE_FOR_LOCATION',l_org_id),'N');
1950: l_auto_space_assign := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N');
1951:
1952: p_action := NULL;
1953: space_assign_info_tbl.delete;
1946: l_org_id := rec.org_id;
1947: END LOOP;
1948:
1949: l_multi_tenancy_profile := NVL( pn_mo_cache_utils.get_profile_value('PN_MULTIPLE_LEASE_FOR_LOCATION',l_org_id),'N');
1950: l_auto_space_assign := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N');
1951:
1952: p_action := NULL;
1953: space_assign_info_tbl.delete;
1954:
2015: -- 08-NOV-03 STripathi o Fixed for BUG# 3242651. Pass DUP_ASSIGN for dup assign in p_action.
2016: -- 21-NOV-03 STripathi o Fixed BUG# 3263503, IN IF clause, Removed NOVACANT to return;
2017: -- Now return only for OVERLAP instead of OVERLAP and NOVACANT.
2018: -- 09-MAR-05 ftanudja o Added start and end date for assignment_split. #4199297
2019: -- 28-NOV-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
2020: -------------------------------------------------------------------------------
2021: PROCEDURE create_auto_space_assign(
2022: p_location_id IN NUMBER
2023: ,p_lease_id IN NUMBER
2056: FOR rec IN org_cur LOOP
2057: l_org_id := rec.org_id;
2058: END LOOP;
2059:
2060: l_auto_space_dist := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N');
2061: pnp_debug_pkg.debug('PN_TENANCIES_PKG.CREATE_AUTO_SPACE_ASSIGN (+) Auto_Space_Dist: '
2062: ||l_auto_space_dist);
2063:
2064: IF p_customer_id IS NULL THEN
2094: END IF;
2095:
2096: space_assign_tbl := space_assign_info_tbl;
2097:
2098: IF NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N') = 'N' THEN
2099:
2100: manual_space_assign (
2101: p_location_id => p_location_id
2102: ,p_from_date => p_cust_assign_start_dt
2128: RETURN;
2129: END IF;
2130:
2131: -- 110403
2132: IF NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N') = 'Y' AND
2133: l_loc_type_code IN ('OFFICE', 'SECTION')
2134: THEN
2135:
2136: PN_SPACE_ASSIGN_CUST_PKG.assignment_split(
2161: -- 23-FEB-04 STripathi o Fixed for BUG# 3425167. Removed code for IF p_cust_assign_start_date
2162: -- IS NOT NULL AND p_cust_assign_end_date IS NOT NULL THEN.
2163: -- For a tenancy id, delete all space assgn records.
2164: -- 09-MAR-05 ftanudja o Added start and end date for assignment_split.#4199297
2165: -- 28-NOV-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
2166: -------------------------------------------------------------------------------
2167: PROCEDURE delete_auto_space_assign (
2168: p_tenancy_id IN NUMBER
2169: ,p_cust_assign_start_date IN DATE
2189: FOR rec IN org_cur LOOP
2190: l_org_id := rec.org_id;
2191: END LOOP;
2192:
2193: l_auto_space_dist := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N');
2194: pnp_debug_pkg.debug('PN_TENANCIES_PKG.DELETE_AUTO_SPACE_ASSIGN (+) Auto_Space_Dist: '
2195: ||l_auto_space_dist||', TenancyId: '||p_tenancy_id);
2196:
2197: DELETE FROM pn_rec_expcl_dtlln_all
2210: WHERE tenancy_id = p_tenancy_id;
2211: l_del_count := SQL%ROWCOUNT;
2212:
2213: -- 3282064
2214: IF NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N') = 'Y' AND
2215: p_loc_type_code IN ('OFFICE', 'SECTION')
2216: THEN
2217:
2218: PN_SPACE_ASSIGN_CUST_PKG.assignment_split(
2253: -- 25-NOV-03 STripathi o Fix BUG# 3282064, Check chk_dup_cust_assign if customer is
2254: -- changed when updating space_assign (Check# 4).
2255: -- 25-NOV-03 STripathi o Fix BUG# 3300697, if loc_type_code is null, call get_loc_type_code.
2256: -- 09-MAR-05 ftanudja o Added start and end date for assignment_split. #4199297
2257: -- 28-NOV-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
2258: --------------------------------------------------------------------------------
2259: PROCEDURE update_auto_space_assign(
2260: p_location_id IN NUMBER
2261: ,p_lease_id IN NUMBER
2351: FOR rec IN org_cur LOOP
2352: l_org_id := rec.org_id;
2353: END LOOP;
2354:
2355: l_auto_space_dist := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N');
2356: pnp_debug_pkg.debug('PN_TENANCIES_PKG.UPDATE_AUTO_SPACE_ASSIGN (+) Auto_Space_Dist: '
2357: ||l_auto_space_dist);
2358: p_action := NULL;
2359:
2924: l_loc_type_code := get_loc_type_code(p_location_id, p_cust_assign_start_dt);
2925: END IF;
2926:
2927: -- 110403
2928: IF NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N') = 'Y' AND
2929: l_loc_type_code IN ('OFFICE', 'SECTION')
2930: THEN
2931:
2932: PN_SPACE_ASSIGN_CUST_PKG.assignment_split(
2955: -- the assign. Call update_auto_space_assign to
2956: -- update start date, end date and fin_oblog_end_dt.
2957: -- 10-MAR-04 STripathi o Added NVL to cust_assign_end_date and start date
2958: -- since it can have null value from PNTSPACE.
2959: -- 28-NOV-05 pikhar o passed org_id in pn_mo_cache_utils.get_profile_value
2960: --------------------------------------------------------------------------------
2961: PROCEDURE Update_Dup_Space_Assign(
2962: p_location_id IN NUMBER
2963: ,p_customer_id IN NUMBER
3006: FOR rec IN org_cur LOOP
3007: l_org_id := rec.org_id;
3008: END LOOP;
3009:
3010: l_auto_space_dist := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION',l_org_id),'N');
3011: pnp_debug_pkg.debug('PN_TENANCIES_PKG.UPDATE_DUP_SPACE_ASSIGN (+) Auto_Space_Dist: '
3012: ||l_auto_space_dist);
3013: p_action := NULL;
3014: