[Home] [Help]
300: p_coverages_tbl IN coverages_tbl_type
301: ) IS
302: BEGIN
303: IF (p_coverages_tbl.COUNT = 0) THEN
304: set_msg_no_children('CS_CP_SERVICES_ALL', 'CS_COVERAGES');
305: l_return_status := FND_API.G_RET_STS_ERROR;
306: RAISE l_return_error_exc;
307: END IF;
308: END verify_cov_children_exist;
337: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
338: l_return_error_exc EXCEPTION;
339: BEGIN
340: -- Validate START and END dates of Coverages fall within the
341: -- START and END dates of CS_CP_SERVICES
342: IF ((p_coverages_rec.start_date_active <> p_services_rec.start_date_active) OR
343: (p_coverages_rec.end_date_active <> p_services_rec.end_date_active)) THEN
344: FND_MESSAGE.set_name(G_APP_NAME, G_MISMATCH_COV_SERVICE_DATES);
345: FND_MESSAGE.set_token(G_COVERAGE_START_DATE_TOKEN,
374: l_index := l_coverages_tbl.FIRST;
375: LOOP
376: ------------------------------------------------------------------
377: -- Validate START and END dates of the Coverages fall withing the
378: -- START and END dates of CS_CP_SERVICES
379: ------------------------------------------------------------------
380: l_return_status:= val_start_end_dates (l_coverages_tbl(l_index), p_services_rec);
381: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
382: RAISE l_return_error_exc;
416: l_return_error_exc EXCEPTION;
417:
418: CURSOR chk_csr (p_contract_id IN CS_CONTRACTS_ALL.CONTRACT_ID%TYPE) IS
419: SELECT *
420: FROM cs_cp_services_all
421: WHERE contract_id = p_contract_id;
422:
423: l_services_all_tbl services_all_tbl_type;
424: ---------------------------------
431: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
432: BEGIN
433: ----------------------------------------------------------------------
434: -- Check FIRST_BILL_DATE and BILLING_FREQUENCY_PERIOD are NOT NULL.
435: -- While the 2 columns are allowed to be NULL in CS_CP_SERVICES_ALL,
436: -- the columns should not be NULL for a contract.
437: -- If the fields are null in CS_CP_SERVICES_ALL, as well as
438: -- CS_CONTRACTS_ALL then give a warning.
439: ----------------------------------------------------------------------
433: ----------------------------------------------------------------------
434: -- Check FIRST_BILL_DATE and BILLING_FREQUENCY_PERIOD are NOT NULL.
435: -- While the 2 columns are allowed to be NULL in CS_CP_SERVICES_ALL,
436: -- the columns should not be NULL for a contract.
437: -- If the fields are null in CS_CP_SERVICES_ALL, as well as
438: -- CS_CONTRACTS_ALL then give a warning.
439: ----------------------------------------------------------------------
440: IF ((p_services_all_rec.FIRST_BILL_DATE IS NULL)
441: AND (p_contract_rec.FIRST_BILL_DATE IS NULL)) THEN
534: FOR l_csr_rec IN chk_csr(p_contract_rec.contract_id) LOOP
535: l_services_all_tbl(chk_csr%ROWCOUNT) := l_csr_rec;
536: END LOOP;
537: IF (l_services_all_tbl.COUNT = 0) THEN
538: set_msg_no_children('CS_CONTRACTS_ALL', 'CS_CP_SERVICES_ALL');
539: l_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE l_return_error_exc;
541: END IF;
542:
565: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
566: RAISE l_return_error_exc;
567: END IF;
568: ------------------------------------------
569: -- Validate children of CS_CP_SERVICES_ALL
570: ------------------------------------------
571: l_return_status := val_coverage_levels_children(l_services_all_tbl(l_index));
572: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
573: RAISE l_return_error_exc;
1097: -- COMMENTED OUT 22-FEB-1999 AS PER REQUESTED BY SKARUPPASAMY -- JSU
1098: -- and p_inv_flag = 'Y'
1099: THEN
1100: for l_servicerec in (
1101: Select cp_service_id from cs_cp_services
1102: where contract_id = l_contract_rec.contract_id
1103: and contract_line_status_id = p_old_status_id)
1104: LOOP
1105: --- Call update service