[Home] [Help]
309: -- Cursor to check if init-due excepion still valid.
310: CURSOR exception_init_due_csr (p_unit_effectivity_id IN NUMBER) IS
311: SELECT unit_deferral_id
312: --FROM ahl_unit_thresholds
313: FROM ahl_unit_deferrals_b
314: WHERE unit_effectivity_id = p_unit_effectivity_id
315: AND unit_deferral_type = 'INIT-DUE';
316:
317: -- to check if ue has child ue records.
1876:
1877: -- added for bug# 7586838
1878: CURSOR unit_deferral_csr(p_ue_id IN NUMBER) IS
1879: SELECT unit_deferral_id
1880: FROM ahl_unit_deferrals_b
1881: WHERE UNIT_EFFECTIVITY_ID = p_ue_id
1882: AND UNIT_DEFERRAL_TYPE = 'INIT-DUE';
1883:
1884: l_unit_deferral_id NUMBER;
2095:
2096: create_group (p_x_temp_grp_rec => l_temp_mr_rec);
2097: -- fix for bug# 7586838.
2098: IF (p_mr_rec.status_code = 'INIT-DUE') THEN
2099: -- update ahl_unit_deferrals_b.
2100: OPEN unit_deferral_csr(p_mr_rec.unit_effectivity_id);
2101: FETCH unit_deferral_csr INTO l_unit_deferral_id;
2102: IF (unit_deferral_csr%FOUND) THEN
2103: UPDATE ahl_unit_deferrals_b
2099: -- update ahl_unit_deferrals_b.
2100: OPEN unit_deferral_csr(p_mr_rec.unit_effectivity_id);
2101: FETCH unit_deferral_csr INTO l_unit_deferral_id;
2102: IF (unit_deferral_csr%FOUND) THEN
2103: UPDATE ahl_unit_deferrals_b
2104: SET UNIT_EFFECTIVITY_ID = l_temp_mr_rec.unit_effectivity_id,
2105: last_update_date = sysdate,
2106: object_version_number = object_version_number + 1,
2107: LAST_UPDATED_BY = fnd_global.user_id,
2617:
2618: CLOSE ahl_unit_effectivity_csr;
2619:
2620: -- Associate deferral threshold to new UE if exists (deferral from UMP).
2621: UPDATE AHL_UNIT_DEFERRALS_B
2622: SET unit_effectivity_id = l_new_top_ue_id,
2623: last_update_date = sysdate,
2624: object_version_number = object_version_number + 1,
2625: LAST_UPDATED_BY = fnd_global.user_id,