eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_ASSET_SUBSIDY_PVT dependencies on OKL_API

Line 76: x_return_status := OKL_API.G_RET_STS_SUCCESS;

72: ) IS
73: l_parameter_list wf_parameter_list_t;
74: l_contract_process VARCHAR2(20);
75: BEGIN
76: x_return_status := OKL_API.G_RET_STS_SUCCESS;
77:
78: -- wrapper API to get contract process. this API determines in which status the
79: -- contract in question is.
80: l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);

Line 94: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

90: p_event_name => p_event_name,
91: p_parameters => l_parameter_list);
92: EXCEPTION
93: WHEN OTHERS THEN
94: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
95: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
96: END raise_business_event;
97:
98: /*

Line 95: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

91: p_parameters => l_parameter_list);
92: EXCEPTION
93: WHEN OTHERS THEN
94: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
95: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
96: END raise_business_event;
97:
98: /*
99: * sjalasut: aug 18, 04 added procedure to call private wrapper that raises the business event. END

Line 259: x_return_status := OKL_API.G_RET_STS_SUCCESS;

255:
256: l_subsidy_id Number;
257:
258: begin
259: x_return_status := OKL_API.G_RET_STS_SUCCESS;
260: l_asb_rec := p_asb_rec;
261: l_db_asb_rec := p_db_asb_rec;
262:
263: --l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;

Line 267: If l_clev_rec.id = OKL_API.G_MISS_NUM then

263: --l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;
264: --l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
265: --l_cplv_rec.id := l_db_asb_rec.cpl_id;
266:
267: If l_clev_rec.id = OKL_API.G_MISS_NUM then
268: l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;
269: l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
270: End If;
271:

Line 273: If (l_asb_rec.subsidy_id is NULL) OR (l_asb_rec.subsidy_id = OKL_API.G_MISS_NUM) then

269: l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
270: End If;
271:
272: --get subsidy id from name if id has not been specified
273: If (l_asb_rec.subsidy_id is NULL) OR (l_asb_rec.subsidy_id = OKL_API.G_MISS_NUM) then
274: If (l_asb_rec.name is not NULL) AND (l_asb_rec.name <> OKL_API.G_MISS_CHAR) then
275: Open l_subname_csr(p_subsidy_name => l_asb_rec.name);
276: Fetch l_subname_csr into l_subsidy_id;
277: If l_subname_csr%NOTFOUND then

Line 274: If (l_asb_rec.name is not NULL) AND (l_asb_rec.name <> OKL_API.G_MISS_CHAR) then

270: End If;
271:
272: --get subsidy id from name if id has not been specified
273: If (l_asb_rec.subsidy_id is NULL) OR (l_asb_rec.subsidy_id = OKL_API.G_MISS_NUM) then
274: If (l_asb_rec.name is not NULL) AND (l_asb_rec.name <> OKL_API.G_MISS_CHAR) then
275: Open l_subname_csr(p_subsidy_name => l_asb_rec.name);
276: Fetch l_subname_csr into l_subsidy_id;
277: If l_subname_csr%NOTFOUND then
278: null;

Line 288: If l_asb_rec.subsidy_id <> OKL_API.G_MISS_NUM Then

284: End If;
285:
286:
287: --check if subsidy has changed
288: If l_asb_rec.subsidy_id <> OKL_API.G_MISS_NUM Then
289: l_klev_rec.subsidy_id := l_asb_rec.subsidy_id;
290: l_temp_sub_id := l_asb_rec.subsidy_id;
291: Else
292: l_klev_rec.subsidy_id := l_db_asb_rec.subsidy_id;

Line 329: If nvl(l_asb_rec.amount,-1) <> OKL_API.G_MISS_NUM then

325: End If;
326: close l_cleb_csr;
327:
328: --amount
329: If nvl(l_asb_rec.amount,-1) <> OKL_API.G_MISS_NUM then
330: l_klev_rec.amount := l_asb_rec.amount;
331: Else
332: l_klev_rec.amount := l_db_asb_rec.amount;
333: End If;

Line 336: If nvl(l_asb_rec.subsidy_override_amount,-1) <> OKL_API.G_MISS_NUM then

332: l_klev_rec.amount := l_db_asb_rec.amount;
333: End If;
334:
335: --override amount
336: If nvl(l_asb_rec.subsidy_override_amount,-1) <> OKL_API.G_MISS_NUM then
337: l_klev_rec.subsidy_override_amount := l_asb_rec.subsidy_override_amount;
338: Else
339: l_klev_rec.subsidy_override_amount := l_db_asb_rec.subsidy_override_amount;
340: End If;

Line 343: If (l_asb_rec.vendor_id is NULL) OR (l_asb_rec.vendor_id = OKL_API.G_MISS_NUM) then

339: l_klev_rec.subsidy_override_amount := l_db_asb_rec.subsidy_override_amount;
340: End If;
341:
342: --subsidy vendor
343: If (l_asb_rec.vendor_id is NULL) OR (l_asb_rec.vendor_id = OKL_API.G_MISS_NUM) then
344: If (l_asb_rec.vendor_name is NOT NULL) and (l_asb_rec.vendor_name <> OKL_API.G_MISS_CHAR) then
345: open l_vendor_csr(p_vend_name => l_asb_rec.vendor_name);
346: fetch l_vendor_csr into l_vendor_id;
347: If l_vendor_csr%NOTFOUND then

Line 344: If (l_asb_rec.vendor_name is NOT NULL) and (l_asb_rec.vendor_name <> OKL_API.G_MISS_CHAR) then

340: End If;
341:
342: --subsidy vendor
343: If (l_asb_rec.vendor_id is NULL) OR (l_asb_rec.vendor_id = OKL_API.G_MISS_NUM) then
344: If (l_asb_rec.vendor_name is NOT NULL) and (l_asb_rec.vendor_name <> OKL_API.G_MISS_CHAR) then
345: open l_vendor_csr(p_vend_name => l_asb_rec.vendor_name);
346: fetch l_vendor_csr into l_vendor_id;
347: If l_vendor_csr%NOTFOUND then
348: null;

Line 356: If nvl(l_asb_rec.vendor_id,-1) <> OKL_API.G_MISS_NUM then

352: close l_vendor_csr;
353: End If;
354: End If;
355:
356: If nvl(l_asb_rec.vendor_id,-1) <> OKL_API.G_MISS_NUM then
357: --If l_cplv_rec.id = OKL_API.G_MISS_NUM then
358: l_cplv_rec.id := l_db_asb_rec.cpl_id;
359: --End If;
360: If l_cplv_rec.id is Null then

Line 357: --If l_cplv_rec.id = OKL_API.G_MISS_NUM then

353: End If;
354: End If;
355:
356: If nvl(l_asb_rec.vendor_id,-1) <> OKL_API.G_MISS_NUM then
357: --If l_cplv_rec.id = OKL_API.G_MISS_NUM then
358: l_cplv_rec.id := l_db_asb_rec.cpl_id;
359: --End If;
360: If l_cplv_rec.id is Null then
361: l_cplv_rec.dnz_chr_id := l_db_asb_rec.dnz_chr_id;

Line 401: x_return_status := OKL_API.G_RET_STS_ERROR;

397: End If;
398: If l_subname_csr%ISOPEN then
399: close l_subname_csr;
400: End If;
401: x_return_status := OKL_API.G_RET_STS_ERROR;
402: End Fill_up_defaults;
403: --------------------------------------------------------------------------------
404: --Local procedure to initialize values for lines and partyroles for insertion
405: --Name : Initialize_records

Line 416: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

412: x_clev_rec OUT NOCOPY OKL_OKC_MIGRATION_PVT.clev_rec_type,
413: x_klev_rec OUT NOCOPY OKL_CONTRACT_PUB.klev_rec_type,
414: x_cplv_rec OUT NOCOPY OKL_OKC_MIGRATION_PVT.cplv_rec_type) is
415:
416: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
417: l_api_name CONSTANT varchar2(30) := 'INITIALIZE_RECORDS';
418: l_api_version CONSTANT NUMBER := 1.0;
419:
420: l_asb_rec asb_rec_type;

Line 518: If (l_asb_rec.subsidy_id is NULL) OR (l_asb_rec.subsidy_id = OKL_API.G_MISS_NUM) then

514: x_return_status := l_return_Status;
515: l_asb_rec := p_asb_rec;
516:
517: --get subsidy id from name if id has not been specified
518: If (l_asb_rec.subsidy_id is NULL) OR (l_asb_rec.subsidy_id = OKL_API.G_MISS_NUM) then
519: If (l_asb_rec.name is not NULL) AND (l_asb_rec.name <> OKL_API.G_MISS_CHAR) then
520: Open l_subname_csr(p_subsidy_name => l_asb_rec.name);
521: Fetch l_subname_csr into l_subsidy_id;
522: If l_subname_csr%NOTFOUND then

Line 519: If (l_asb_rec.name is not NULL) AND (l_asb_rec.name <> OKL_API.G_MISS_CHAR) then

515: l_asb_rec := p_asb_rec;
516:
517: --get subsidy id from name if id has not been specified
518: If (l_asb_rec.subsidy_id is NULL) OR (l_asb_rec.subsidy_id = OKL_API.G_MISS_NUM) then
519: If (l_asb_rec.name is not NULL) AND (l_asb_rec.name <> OKL_API.G_MISS_CHAR) then
520: Open l_subname_csr(p_subsidy_name => l_asb_rec.name);
521: Fetch l_subname_csr into l_subsidy_id;
522: If l_subname_csr%NOTFOUND then
523: null;

Line 600: If l_rbk_date is NULL OR l_rbk_date = OKL_API.G_MISS_DATE then

596: NULL;
597: end If;
598: close l_rbk_date_csr;
599:
600: If l_rbk_date is NULL OR l_rbk_date = OKL_API.G_MISS_DATE then
601: NULL;
602: Else
603: l_clev_rec.start_date := l_rbk_date;
604: End If;

Line 623: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then

619: close l_cleb_csr;
620:
621: --fill party role record
622: --in case someone has passed id make it default for record creation
623: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
624: l_cplv_rec.id := OKL_API.G_MISS_NUM;
625: End If;
626: l_cplv_rec.dnz_chr_id := l_asb_rec.dnz_chr_id;
627: l_cplv_rec.rle_code := 'OKL_VENDOR';

Line 624: l_cplv_rec.id := OKL_API.G_MISS_NUM;

620:
621: --fill party role record
622: --in case someone has passed id make it default for record creation
623: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
624: l_cplv_rec.id := OKL_API.G_MISS_NUM;
625: End If;
626: l_cplv_rec.dnz_chr_id := l_asb_rec.dnz_chr_id;
627: l_cplv_rec.rle_code := 'OKL_VENDOR';
628: --vendor id

Line 629: If (l_asb_rec.vendor_id is NULL) OR (l_asb_rec.vendor_id = OKL_API.G_MISS_NUM) then

625: End If;
626: l_cplv_rec.dnz_chr_id := l_asb_rec.dnz_chr_id;
627: l_cplv_rec.rle_code := 'OKL_VENDOR';
628: --vendor id
629: If (l_asb_rec.vendor_id is NULL) OR (l_asb_rec.vendor_id = OKL_API.G_MISS_NUM) then
630: If (l_asb_rec.vendor_name is NOT NULL) and (l_asb_rec.vendor_name <> OKL_API.G_MISS_CHAR) then
631: --get vendor id
632: open l_vendor_csr(p_vend_name => l_asb_rec.vendor_name);
633: fetch l_vendor_csr into l_vendor_id;

Line 630: If (l_asb_rec.vendor_name is NOT NULL) and (l_asb_rec.vendor_name <> OKL_API.G_MISS_CHAR) then

626: l_cplv_rec.dnz_chr_id := l_asb_rec.dnz_chr_id;
627: l_cplv_rec.rle_code := 'OKL_VENDOR';
628: --vendor id
629: If (l_asb_rec.vendor_id is NULL) OR (l_asb_rec.vendor_id = OKL_API.G_MISS_NUM) then
630: If (l_asb_rec.vendor_name is NOT NULL) and (l_asb_rec.vendor_name <> OKL_API.G_MISS_CHAR) then
631: --get vendor id
632: open l_vendor_csr(p_vend_name => l_asb_rec.vendor_name);
633: fetch l_vendor_csr into l_vendor_id;
634: If l_vendor_csr%NOTFOUND then

Line 673: x_return_status := OKL_API.G_RET_STS_ERROR;

669: End If;
670: If l_rbk_date_csr%ISOPEN then
671: close l_rbk_date_csr;
672: End If;
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674: End Initialize_records;
675: --------------------------------------------------------------------------------
676: --Name : recalculate_costs
677: --Creation : 29-Aug-2003

Line 690: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

686: p_chr_id IN NUMBER,
687: p_asset_cle_id IN NUMBER
688: ) is
689:
690: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
691: l_api_name CONSTANT varchar2(30) := 'RECALCULATE_COSTS';
692: l_api_version CONSTANT NUMBER := 1.0;
693:
694: l_oec number;

Line 717: x_return_status := OKL_API.G_RET_STS_SUCCESS;

713: l_asset_number okc_k_lines_tl.name%TYPE;
714:
715: begin
716:
717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
718: -- Call start_activity to create savepoint, check compatibility
719: -- and initialize message list
720: x_return_status := OKL_API.START_ACTIVITY (
721: l_api_name

Line 720: x_return_status := OKL_API.START_ACTIVITY (

716:
717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
718: -- Call start_activity to create savepoint, check compatibility
719: -- and initialize message list
720: x_return_status := OKL_API.START_ACTIVITY (
721: l_api_name
722: ,p_init_msg_list
723: ,'_PVT'
724: ,x_return_status);

Line 726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

722: ,p_init_msg_list
723: ,'_PVT'
724: ,x_return_status);
725: -- Check if activity started successfully
726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;

Line 727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

723: ,'_PVT'
724: ,x_return_status);
725: -- Check if activity started successfully
726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:

Line 728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

724: ,x_return_status);
725: -- Check if activity started successfully
726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:
732: --calculate and update subsidised OEC and Capital Amount

Line 729: RAISE OKL_API.G_EXCEPTION_ERROR;

725: -- Check if activity started successfully
726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
729: RAISE OKL_API.G_EXCEPTION_ERROR;
730: END IF;
731:
732: --calculate and update subsidised OEC and Capital Amount
733: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,

Line 743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

739: p_contract_id => p_chr_id,
740: p_line_id => p_asset_cle_id,
741: x_value => l_oec);
742:
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;

Line 744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

740: p_line_id => p_asset_cle_id,
741: x_value => l_oec);
742:
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
748:

Line 745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

741: x_value => l_oec);
742:
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
748:
749: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,

Line 746: RAISE OKL_API.G_EXCEPTION_ERROR;

742:
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
746: RAISE OKL_API.G_EXCEPTION_ERROR;
747: END IF;
748:
749: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
750: p_init_msg_list => p_init_msg_list,

Line 759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

755: p_contract_id => p_chr_id,
756: p_line_id => p_asset_cle_id,
757: x_value => l_cap_amount);
758:
759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_ERROR;
763: END IF;

Line 760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

756: p_line_id => p_asset_cle_id,
757: x_value => l_cap_amount);
758:
759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_ERROR;
763: END IF;
764:

Line 761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

757: x_value => l_cap_amount);
758:
759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_ERROR;
763: END IF;
764:
765: --get total subsidy

Line 762: RAISE OKL_API.G_EXCEPTION_ERROR;

758:
759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
762: RAISE OKL_API.G_EXCEPTION_ERROR;
763: END IF;
764:
765: --get total subsidy
766: OKL_SUBSIDY_PROCESS_PVT.get_asset_subsidy_amount(

Line 776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

772: p_asset_cle_id => p_asset_cle_id,
773: --p_accounting_method => 'NET',
774: x_subsidy_amount => l_total_subsidy);
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;

Line 777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

773: --p_accounting_method => 'NET',
774: x_subsidy_amount => l_total_subsidy);
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
781:

Line 778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

774: x_subsidy_amount => l_total_subsidy);
775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
781:
782: l_sub_oec := (l_oec - l_total_subsidy);

Line 779: RAISE OKL_API.G_EXCEPTION_ERROR;

775:
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
779: RAISE OKL_API.G_EXCEPTION_ERROR;
780: END IF;
781:
782: l_sub_oec := (l_oec - l_total_subsidy);
783: l_sub_cap_amount := (l_cap_amount - l_total_subsidy);

Line 793: OKL_API.set_message(p_app_name => G_APP_NAME,

789: null;
790: end if;
791: close l_clet_csr;
792: --raise error : total subsidy can not be greater than asset cost
793: OKL_API.set_message(p_app_name => G_APP_NAME,
794: p_msg_name => G_SUBSIDY_GREATER_THAN_COST,
795: p_token1 => G_ASSET_NUMBER_TOKEN,
796: p_token1_value => l_asset_number);
797: x_return_status := OKL_API.G_RET_STS_ERROR;

Line 797: x_return_status := OKL_API.G_RET_STS_ERROR;

793: OKL_API.set_message(p_app_name => G_APP_NAME,
794: p_msg_name => G_SUBSIDY_GREATER_THAN_COST,
795: p_token1 => G_ASSET_NUMBER_TOKEN,
796: p_token1_value => l_asset_number);
797: x_return_status := OKL_API.G_RET_STS_ERROR;
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: End If;
800:
801: ----------------------------------------------------------------------

Line 798: RAISE OKL_API.G_EXCEPTION_ERROR;

794: p_msg_name => G_SUBSIDY_GREATER_THAN_COST,
795: p_token1 => G_ASSET_NUMBER_TOKEN,
796: p_token1_value => l_asset_number);
797: x_return_status := OKL_API.G_RET_STS_ERROR;
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: End If;
800:
801: ----------------------------------------------------------------------
802: --call api to update costs on asset line

Line 825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

821: x_clev_rec => lx_clev_rec,
822: x_klev_rec => lx_klev_rec
823: );
824:
825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
828: RAISE OKL_API.G_EXCEPTION_ERROR;
829: END IF;

Line 826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

822: x_klev_rec => lx_klev_rec
823: );
824:
825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
828: RAISE OKL_API.G_EXCEPTION_ERROR;
829: END IF;
830:

Line 827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

823: );
824:
825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
828: RAISE OKL_API.G_EXCEPTION_ERROR;
829: END IF;
830:
831: --Bug# 4899328

Line 828: RAISE OKL_API.G_EXCEPTION_ERROR;

824:
825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
828: RAISE OKL_API.G_EXCEPTION_ERROR;
829: END IF;
830:
831: --Bug# 4899328
832: -- Recalculate Asset depreciation cost when there

Line 844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

840: p_chr_id => p_chr_id,
841: p_cle_id => p_asset_cle_id
842: );
843:
844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKL_API.G_EXCEPTION_ERROR;
848: END IF;

Line 845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

841: p_cle_id => p_asset_cle_id
842: );
843:
844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKL_API.G_EXCEPTION_ERROR;
848: END IF;
849: --Bug# 4899328

Line 846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

842: );
843:
844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKL_API.G_EXCEPTION_ERROR;
848: END IF;
849: --Bug# 4899328
850:

Line 847: RAISE OKL_API.G_EXCEPTION_ERROR;

843:
844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKL_API.G_EXCEPTION_ERROR;
848: END IF;
849: --Bug# 4899328
850:
851: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

Line 851: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

847: RAISE OKL_API.G_EXCEPTION_ERROR;
848: END IF;
849: --Bug# 4899328
850:
851: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR THEN
854: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
855: l_api_name,

Line 853: WHEN OKL_API.G_EXCEPTION_ERROR THEN

849: --Bug# 4899328
850:
851: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR THEN
854: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
855: l_api_name,
856: G_PKG_NAME,
857: 'OKL_API.G_RET_STS_ERROR',

Line 854: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

850:
851: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR THEN
854: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
855: l_api_name,
856: G_PKG_NAME,
857: 'OKL_API.G_RET_STS_ERROR',
858: x_msg_count,

Line 857: 'OKL_API.G_RET_STS_ERROR',

853: WHEN OKL_API.G_EXCEPTION_ERROR THEN
854: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
855: l_api_name,
856: G_PKG_NAME,
857: 'OKL_API.G_RET_STS_ERROR',
858: x_msg_count,
859: x_msg_data,
860: '_PVT');
861: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 861: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

857: 'OKL_API.G_RET_STS_ERROR',
858: x_msg_count,
859: x_msg_data,
860: '_PVT');
861: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
862: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
863: l_api_name,
864: G_PKG_NAME,
865: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 862: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

858: x_msg_count,
859: x_msg_data,
860: '_PVT');
861: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
862: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
863: l_api_name,
864: G_PKG_NAME,
865: 'OKL_API.G_RET_STS_UNEXP_ERROR',
866: x_msg_count,

Line 865: 'OKL_API.G_RET_STS_UNEXP_ERROR',

861: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
862: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
863: l_api_name,
864: G_PKG_NAME,
865: 'OKL_API.G_RET_STS_UNEXP_ERROR',
866: x_msg_count,
867: x_msg_data,
868: '_PVT');
869: WHEN OTHERS THEN

Line 870: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

866: x_msg_count,
867: x_msg_data,
868: '_PVT');
869: WHEN OTHERS THEN
870: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
871: l_api_name,
872: G_PKG_NAME,
873: 'OTHERS',
874: x_msg_count,

Line 893: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

889: x_msg_data OUT NOCOPY VARCHAR2,
890: p_asb_rec IN asb_rec_type,
891: x_asb_rec OUT NOCOPY asb_rec_type) is
892:
893: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
894: l_api_name CONSTANT varchar2(30) := 'CALCULATE_ASSET_SUBSIDY';
895: l_api_version CONSTANT NUMBER := 1.0;
896:
897: l_asb_rec asb_rec_type;

Line 909: x_return_status := OKL_API.G_RET_STS_SUCCESS;

905:
906: lv_subsidy_amount NUMBER;
907:
908: begin
909: x_return_status := OKL_API.G_RET_STS_SUCCESS;
910: -- Call start_activity to create savepoint, check compatibility
911: -- and initialize message list
912: x_return_status := OKL_API.START_ACTIVITY (
913: l_api_name

Line 912: x_return_status := OKL_API.START_ACTIVITY (

908: begin
909: x_return_status := OKL_API.G_RET_STS_SUCCESS;
910: -- Call start_activity to create savepoint, check compatibility
911: -- and initialize message list
912: x_return_status := OKL_API.START_ACTIVITY (
913: l_api_name
914: ,p_init_msg_list
915: ,'_PVT'
916: ,x_return_status);

Line 918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

914: ,p_init_msg_list
915: ,'_PVT'
916: ,x_return_status);
917: -- Check if activity started successfully
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;

Line 919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

915: ,'_PVT'
916: ,x_return_status);
917: -- Check if activity started successfully
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:

Line 920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

916: ,x_return_status);
917: -- Check if activity started successfully
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
924: l_asb_rec := p_asb_rec;

Line 921: RAISE OKL_API.G_EXCEPTION_ERROR;

917: -- Check if activity started successfully
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
924: l_asb_rec := p_asb_rec;
925: -----------------------------------------------

Line 938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

934: x_msg_data => x_msg_data,
935: p_subsidy_cle_id => l_asb_rec.subsidy_cle_id,
936: x_subsidy_amount => l_subsidy_amount);
937:
938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
941: RAISE OKL_API.G_EXCEPTION_ERROR;
942: END IF;

Line 939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

935: p_subsidy_cle_id => l_asb_rec.subsidy_cle_id,
936: x_subsidy_amount => l_subsidy_amount);
937:
938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
941: RAISE OKL_API.G_EXCEPTION_ERROR;
942: END IF;
943:

Line 940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

936: x_subsidy_amount => l_subsidy_amount);
937:
938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
941: RAISE OKL_API.G_EXCEPTION_ERROR;
942: END IF;
943:
944: l_asb_rec.amount := l_subsidy_amount;

Line 941: RAISE OKL_API.G_EXCEPTION_ERROR;

937:
938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
941: RAISE OKL_API.G_EXCEPTION_ERROR;
942: END IF;
943:
944: l_asb_rec.amount := l_subsidy_amount;
945:

Line 960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

956: ,p_subsidy_name => l_asb_rec.name
957: ,x_return_status => x_return_status
958: ,x_msg_count => x_msg_count
959: ,x_msg_data => x_msg_data);
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_ERROR;
964: END IF;

Line 961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

957: ,x_return_status => x_return_status
958: ,x_msg_count => x_msg_count
959: ,x_msg_data => x_msg_data);
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965: */

Line 962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

958: ,x_msg_count => x_msg_count
959: ,x_msg_data => x_msg_data);
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965: */
966: --END: cklee 09/29/2005

Line 963: RAISE OKL_API.G_EXCEPTION_ERROR;

959: ,x_msg_data => x_msg_data);
960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
963: RAISE OKL_API.G_EXCEPTION_ERROR;
964: END IF;
965: */
966: --END: cklee 09/29/2005
967:

Line 988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

984: x_clev_rec => lx_sub_clev_rec,
985: x_klev_rec => lx_sub_klev_rec
986: );
987:
988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;

Line 989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

985: x_klev_rec => lx_sub_klev_rec
986: );
987:
988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
993:

Line 990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

986: );
987:
988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
993:
994: ---------------------------------------------------------

Line 991: RAISE OKL_API.G_EXCEPTION_ERROR;

987:
988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_ERROR;
992: END IF;
993:
994: ---------------------------------------------------------
995: --Call API to recalculate asset oec and cap amounts

Line 1006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

1002: x_msg_data => x_msg_data,
1003: p_chr_id => lx_sub_clev_rec.dnz_chr_id,
1004: p_asset_cle_id => lx_sub_clev_rec.cle_id);
1005:
1006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_ERROR;
1010: END IF;

Line 1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

1003: p_chr_id => lx_sub_clev_rec.dnz_chr_id,
1004: p_asset_cle_id => lx_sub_clev_rec.cle_id);
1005:
1006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_ERROR;
1010: END IF;
1011:

Line 1008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

1004: p_asset_cle_id => lx_sub_clev_rec.cle_id);
1005:
1006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_ERROR;
1010: END IF;
1011:
1012: --START: cklee 09/29/2005

Line 1009: RAISE OKL_API.G_EXCEPTION_ERROR;

1005:
1006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_ERROR;
1010: END IF;
1011:
1012: --START: cklee 09/29/2005
1013: -----------------------------------------------------------------------

Line 1028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

1024: ,p_subsidy_name => l_asb_rec.name
1025: ,x_return_status => x_return_status
1026: ,x_msg_count => x_msg_count
1027: ,x_msg_data => x_msg_data);
1028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;

Line 1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

1025: ,x_return_status => x_return_status
1026: ,x_msg_count => x_msg_count
1027: ,x_msg_data => x_msg_data);
1028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033: --END: cklee 09/29/2005

Line 1030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

1026: ,x_msg_count => x_msg_count
1027: ,x_msg_data => x_msg_data);
1028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033: --END: cklee 09/29/2005
1034:

Line 1031: RAISE OKL_API.G_EXCEPTION_ERROR;

1027: ,x_msg_data => x_msg_data);
1028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1031: RAISE OKL_API.G_EXCEPTION_ERROR;
1032: END IF;
1033: --END: cklee 09/29/2005
1034:
1035:

Line 1037: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

1033: --END: cklee 09/29/2005
1034:
1035:
1036: x_asb_rec := l_asb_rec;
1037: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1038: EXCEPTION
1039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1041: l_api_name,

Line 1039: WHEN OKL_API.G_EXCEPTION_ERROR THEN

1035:
1036: x_asb_rec := l_asb_rec;
1037: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1038: EXCEPTION
1039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1041: l_api_name,
1042: G_PKG_NAME,
1043: 'OKL_API.G_RET_STS_ERROR',

Line 1040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

1036: x_asb_rec := l_asb_rec;
1037: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
1038: EXCEPTION
1039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1041: l_api_name,
1042: G_PKG_NAME,
1043: 'OKL_API.G_RET_STS_ERROR',
1044: x_msg_count,

Line 1043: 'OKL_API.G_RET_STS_ERROR',

1039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1041: l_api_name,
1042: G_PKG_NAME,
1043: 'OKL_API.G_RET_STS_ERROR',
1044: x_msg_count,
1045: x_msg_data,
1046: '_PVT');
1047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1043: 'OKL_API.G_RET_STS_ERROR',
1044: x_msg_count,
1045: x_msg_data,
1046: '_PVT');
1047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1049: l_api_name,
1050: G_PKG_NAME,
1051: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 1048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

1044: x_msg_count,
1045: x_msg_data,
1046: '_PVT');
1047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1049: l_api_name,
1050: G_PKG_NAME,
1051: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1052: x_msg_count,

Line 1051: 'OKL_API.G_RET_STS_UNEXP_ERROR',

1047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1049: l_api_name,
1050: G_PKG_NAME,
1051: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1052: x_msg_count,
1053: x_msg_data,
1054: '_PVT');
1055: WHEN OTHERS THEN

Line 1056: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

1052: x_msg_count,
1053: x_msg_data,
1054: '_PVT');
1055: WHEN OTHERS THEN
1056: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1057: l_api_name,
1058: G_PKG_NAME,
1059: 'OTHERS',
1060: x_msg_count,

Line 2865: OKL_API.set_message(

2861: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
2862:
2863: OPEN c_get_subsidy_name_csr(p_subsidy_id); FETCH c_get_subsidy_name_csr INTO lv_subsidy_name;
2864: CLOSE c_get_subsidy_name_csr;
2865: OKL_API.set_message(
2866: p_app_name => G_APP_NAME,
2867: p_msg_name => G_SUB_POOL_NOT_ACTIVE,
2868: p_token1 => 'SUBSIDY_NAME',
2869: p_token1_value => lv_subsidy_name ,

Line 2903: OKL_API.set_message(

2899: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
2900:
2901: OPEN c_get_subsidy_name_csr(p_subsidy_id); FETCH c_get_subsidy_name_csr INTO lv_subsidy_name;
2902: CLOSE c_get_subsidy_name_csr;
2903: OKL_API.set_message(
2904: p_app_name => G_APP_NAME,
2905: p_msg_name => G_SUB_POOL_ASSET_DATES_GAP,
2906: p_token1 => 'SUBSIDY_NAME',
2907: p_token1_value => lv_subsidy_name ,

Line 2939: RAISE OKL_API.G_EXCEPTION_ERROR;

2935: CLOSE c_get_subsidy_pool_name_csr;
2936: OKC_API.set_message(G_APP_NAME, G_NO_CONVERSION_BASIS
2937: ,'SUBSIDY', lv_subsidy_name
2938: ,'POOL_NAME',lv_subsidy_pool_name);
2939: RAISE OKL_API.G_EXCEPTION_ERROR;
2940: -- return l_applicable;
2941: --END: 09/29/2005 bug#4634871
2942: END IF;
2943: -- write to log

Line 2977: OKL_API.set_message(

2973: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
2974:
2975: OPEN c_get_subsidy_name_csr(p_subsidy_id); FETCH c_get_subsidy_name_csr INTO lv_subsidy_name;
2976: CLOSE c_get_subsidy_name_csr;
2977: OKL_API.set_message(
2978: p_app_name => G_APP_NAME,
2979: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
2980: p_token1 => 'SUBSIDY_NAME',
2981: p_token1_value => lv_subsidy_name ,

Line 3009: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

3005: 'okl_asset_subsidy_pvt.is_balance_valid_after_add returned with '|| lx_return_status||' x_msg_data '||lx_msg_data
3006: );
3007: END IF;
3008:
3009: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;

Line 3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

3006: );
3007: END IF;
3008:
3009: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3014:

Line 3011: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN

3007: END IF;
3008:
3009: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3014:
3015: EXCEPTION WHEN OTHERS THEN

Line 3012: RAISE OKL_API.G_EXCEPTION_ERROR;

3008:
3009: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3011: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3012: RAISE OKL_API.G_EXCEPTION_ERROR;
3013: END IF;
3014:
3015: EXCEPTION WHEN OTHERS THEN
3016: RAISE G_EXCEPTION_HALT_VALIDATION;

Line 3045: IF(cv_subsidy.subsidy_pool_id IS NOT NULL AND cv_subsidy.subsidy_pool_id <> OKL_API.G_MISS_NUM)THEN

3041: lv_return_status VARCHAR2(1);
3042: BEGIN
3043: lv_return_status := 'N';
3044: OPEN c_subsidy_csr; FETCH c_subsidy_csr INTO cv_subsidy; CLOSE c_subsidy_csr;
3045: IF(cv_subsidy.subsidy_pool_id IS NOT NULL AND cv_subsidy.subsidy_pool_id <> OKL_API.G_MISS_NUM)THEN
3046: x_subsidy_pool_id := cv_subsidy.subsidy_pool_id; -- this is the subsidy pool id
3047: x_sub_pool_curr_code := cv_subsidy.currency_code; -- this is the subsidy pool currency code
3048: lv_return_status := 'Y';
3049: END IF;

Line 3118: ,p_init_msg_list => OKL_API.G_TRUE

3114: lv_return_status := 'N';
3115: OPEN c_sub_pool_csr; FETCH c_sub_pool_csr INTO cv_sub_pool; CLOSE c_sub_pool_csr;
3116: lv_conversion_rate := 0;
3117: okl_accounting_util.get_curr_con_rate(p_api_version => l_api_version
3118: ,p_init_msg_list => OKL_API.G_TRUE
3119: ,x_return_status => x_return_status
3120: ,x_msg_count => x_msg_count
3121: ,x_msg_data => x_msg_data
3122: ,p_from_curr_code => p_trx_currency_code

Line 3128: IF(x_return_status = OKL_API.G_RET_STS_SUCCESS OR lv_conversion_rate > 0)THEN

3124: ,p_con_date => NVL(p_asset_date,TRUNC(SYSDATE)) -- since no trx is done, conv date is sysdate per PM
3125: ,p_con_type => cv_sub_pool.currency_conversion_type
3126: ,x_conv_rate => lv_conversion_rate
3127: );
3128: IF(x_return_status = OKL_API.G_RET_STS_SUCCESS OR lv_conversion_rate > 0)THEN
3129: lv_return_status := 'Y';
3130: END IF;
3131: x_conversion_rate := lv_conversion_rate;
3132: return lv_return_status;

Line 3225: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3221: l_subsidy_amount_tot NUMBER;
3222: -- END: cklee 09/27/2005: 4634792
3223:
3224: BEGIN
3225: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3226: -- first determine if subsidy pool is applicable
3227: lv_return_status := is_sub_assoc_with_pool(p_subsidy_id => p_subsidy_id
3228: ,x_subsidy_pool_id => lx_subsidy_pool_id
3229: ,x_sub_pool_curr_code => lx_sub_pool_curr_code

Line 3272: RAISE OKL_API.G_EXCEPTION_ERROR;

3268: ,'SUBSIDY', l_subsidy_name
3269: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3270: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3271: x_return_status := OKC_API.G_RET_STS_ERROR;
3272: RAISE OKL_API.G_EXCEPTION_ERROR;
3273: ELSE
3274: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3275: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3276: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3287: RAISE OKL_API.G_EXCEPTION_ERROR;

3283: ,'SUBSIDY', l_subsidy_name
3284: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3285: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3286: x_return_status := OKC_API.G_RET_STS_ERROR;
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3288: END IF;
3289: END IF;
3290:
3291: -- START: cklee 09/27/2005: 4634792

Line 3306: RAISE OKL_API.G_EXCEPTION_ERROR;

3302: ,'SUBSIDY', l_subsidy_name
3303: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3304: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3305: x_return_status := OKC_API.G_RET_STS_ERROR;
3306: RAISE OKL_API.G_EXCEPTION_ERROR;
3307: ELSE
3308: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3309: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3310: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3321: RAISE OKL_API.G_EXCEPTION_ERROR;

3317: ,'SUBSIDY', l_subsidy_name
3318: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3319: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3320: x_return_status := OKC_API.G_RET_STS_ERROR;
3321: RAISE OKL_API.G_EXCEPTION_ERROR;
3322: END IF;
3323: END IF;
3324: -- END: cklee 09/27/2005: 4634792
3325:

Line 3334: RAISE OKL_API.G_EXCEPTION_ERROR;

3330: ,'SUBSIDY', l_subsidy_name
3331: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3332: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3333: x_return_status := OKC_API.G_RET_STS_ERROR;
3334: RAISE OKL_API.G_EXCEPTION_ERROR;
3335: END IF; -- end of lv_return_status = 'Y' AND lx_conversion_rate > 0
3336: --START: cklee 09/12/2005
3337: ELSE
3338: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance

Line 3351: RAISE OKL_API.G_EXCEPTION_ERROR;

3347: ,'SUBSIDY', l_subsidy_name
3348: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3349: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3350: x_return_status := OKC_API.G_RET_STS_ERROR;
3351: RAISE OKL_API.G_EXCEPTION_ERROR;
3352: END IF;
3353: --END: cklee 09/12/2005
3354:
3355: -- START: cklee 09/27/2005: 4634792

Line 3369: RAISE OKL_API.G_EXCEPTION_ERROR;

3365: ,'SUBSIDY', l_subsidy_name
3366: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3367: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3368: x_return_status := OKC_API.G_RET_STS_ERROR;
3369: RAISE OKL_API.G_EXCEPTION_ERROR;
3370: END IF;
3371: -- END: cklee 09/27/2005: 4634792
3372:
3373: END IF; -- end of cv_get_asset.currency_code <> lx_sub_pool_curr_code

Line 3434: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3430: lx_conversion_round_amt_tot NUMBER;
3431: l_amount_in_pool_curr_tot NUMBER;
3432:
3433: BEGIN
3434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3435: -- first determine if subsidy pool is applicable
3436: lv_return_status := is_sub_assoc_with_pool(p_subsidy_id => p_subsidy_id
3437: ,x_subsidy_pool_id => lx_subsidy_pool_id
3438: ,x_sub_pool_curr_code => lx_sub_pool_curr_code

Line 3468: RAISE OKL_API.G_EXCEPTION_ERROR;

3464: OKC_API.set_message(G_APP_NAME, G_NO_CONVERSION_BASIS
3465: ,'SUBSIDY', l_subsidy_name
3466: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3467: x_return_status := OKC_API.G_RET_STS_ERROR;
3468: RAISE OKL_API.G_EXCEPTION_ERROR;
3469: ELSE
3470: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3471: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3472: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3480: RAISE OKL_API.G_EXCEPTION_ERROR;

3476: 'TRX_AMOUNT', p_subsidy_amount
3477: ,'SUBSIDY', l_subsidy_name
3478: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3479: x_return_status := OKC_API.G_RET_STS_ERROR;
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: END IF;
3483:
3484: -- Check accumulated subsidy amount up to now for a specific pool

Line 3495: RAISE OKL_API.G_EXCEPTION_ERROR;

3491: OKC_API.set_message(G_APP_NAME, G_NO_CONVERSION_BASIS
3492: ,'SUBSIDY', l_subsidy_name
3493: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3494: x_return_status := OKC_API.G_RET_STS_ERROR;
3495: RAISE OKL_API.G_EXCEPTION_ERROR;
3496: ELSE
3497: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3498: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3499: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3507: RAISE OKL_API.G_EXCEPTION_ERROR;

3503: 'TRX_AMOUNT', p_tot_subsidy_amount
3504: ,'SUBSIDY', l_subsidy_name
3505: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3506: x_return_status := OKC_API.G_RET_STS_ERROR;
3507: RAISE OKL_API.G_EXCEPTION_ERROR;
3508: END IF;
3509: END IF;
3510:
3511: ELSE

Line 3516: RAISE OKL_API.G_EXCEPTION_ERROR;

3512: OKC_API.set_message(G_APP_NAME, G_NO_CONVERSION_BASIS
3513: ,'SUBSIDY', l_subsidy_name
3514: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3515: x_return_status := OKC_API.G_RET_STS_ERROR;
3516: RAISE OKL_API.G_EXCEPTION_ERROR;
3517: END IF; -- end of lv_return_status = 'Y' AND lx_conversion_rate > 0
3518:
3519: ELSE
3520: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance

Line 3530: RAISE OKL_API.G_EXCEPTION_ERROR;

3526: 'TRX_AMOUNT', p_subsidy_amount
3527: ,'SUBSIDY', l_subsidy_name
3528: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3529: x_return_status := OKC_API.G_RET_STS_ERROR;
3530: RAISE OKL_API.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3533: -- Check accumulated subsidy amount up to now for a specific pool
3534: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);

Line 3543: RAISE OKL_API.G_EXCEPTION_ERROR;

3539: 'TRX_AMOUNT', p_tot_subsidy_amount
3540: ,'SUBSIDY', l_subsidy_name
3541: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3542: x_return_status := OKC_API.G_RET_STS_ERROR;
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: END IF;
3545:
3546: END IF; -- end of cv_get_asset.currency_code <> lx_sub_pool_curr_code
3547: END IF; -- end for lv_return_status = 'Y' AND lx_subsidy_pool_id IS NOT NULL

Line 3550: x_return_status := OKL_API.G_RET_STS_ERROR;

3546: END IF; -- end of cv_get_asset.currency_code <> lx_sub_pool_curr_code
3547: END IF; -- end for lv_return_status = 'Y' AND lx_subsidy_pool_id IS NOT NULL
3548:
3549: EXCEPTION WHEN OTHERS THEN
3550: x_return_status := OKL_API.G_RET_STS_ERROR;
3551:
3552: END is_balance_valid_after_add;
3553: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
3554:

Line 3568: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3564: where subb.id = p_subsidy_id;
3565:
3566: l_exists varchar2(1) default 'N';
3567: BEGIN
3568: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3569: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3570: p_subsidy_id IS NULL)
3571: THEN
3572: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');

Line 3569: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR

3565:
3566: l_exists varchar2(1) default 'N';
3567: BEGIN
3568: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3569: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3570: p_subsidy_id IS NULL)
3571: THEN
3572: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');
3573: x_return_status := OKL_API.G_RET_STS_ERROR;

Line 3572: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');

3568: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3569: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3570: p_subsidy_id IS NULL)
3571: THEN
3572: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');
3573: x_return_status := OKL_API.G_RET_STS_ERROR;
3574: RAISE G_EXCEPTION_HALT_VALIDATION;
3575: ELSE
3576: --check foreign key validation

Line 3573: x_return_status := OKL_API.G_RET_STS_ERROR;

3569: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3570: p_subsidy_id IS NULL)
3571: THEN
3572: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');
3573: x_return_status := OKL_API.G_RET_STS_ERROR;
3574: RAISE G_EXCEPTION_HALT_VALIDATION;
3575: ELSE
3576: --check foreign key validation
3577: l_exists := 'N';

Line 3585: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Name');

3581: null;
3582: End If;
3583: Close l_sub_csr;
3584: If l_exists = 'N' then
3585: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Name');
3586: x_return_status := OKL_API.G_RET_STS_ERROR;
3587: RAISE G_EXCEPTION_HALT_VALIDATION;
3588: End If;
3589: END IF;

Line 3586: x_return_status := OKL_API.G_RET_STS_ERROR;

3582: End If;
3583: Close l_sub_csr;
3584: If l_exists = 'N' then
3585: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Name');
3586: x_return_status := OKL_API.G_RET_STS_ERROR;
3587: RAISE G_EXCEPTION_HALT_VALIDATION;
3588: End If;
3589: END IF;
3590: EXCEPTION

Line 3594: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3590: EXCEPTION
3591: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3592: null;
3593: WHEN OTHERS THEN
3594: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3595: ,p_msg_name => G_UNEXPECTED_ERROR
3596: ,p_token1 => G_SQLCODE_TOKEN
3597: ,p_token1_value => SQLCODE
3598: ,p_token2 => G_SQLERRM_TOKEN

Line 3600: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3596: ,p_token1 => G_SQLCODE_TOKEN
3597: ,p_token1_value => SQLCODE
3598: ,p_token2 => G_SQLERRM_TOKEN
3599: ,p_token2_value => SQLERRM);
3600: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3601: END validate_subsidy_id;
3602: -----------------------------------
3603: --2.validate subsidy_cle_id
3604: -----------------------------------

Line 3619: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3615: and cleb.sts_code <> 'ABANDONED';
3616:
3617: l_exists varchar2(1) default 'N';
3618: BEGIN
3619: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3620: IF (p_subsidy_cle_id <> OKL_API.G_MISS_NUM AND
3621: p_subsidy_cle_id IS NOT NULL)
3622: THEN
3623: --check foreign key validation

Line 3620: IF (p_subsidy_cle_id <> OKL_API.G_MISS_NUM AND

3616:
3617: l_exists varchar2(1) default 'N';
3618: BEGIN
3619: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3620: IF (p_subsidy_cle_id <> OKL_API.G_MISS_NUM AND
3621: p_subsidy_cle_id IS NOT NULL)
3622: THEN
3623: --check foreign key validation
3624: l_exists := 'N';

Line 3632: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');

3628: null;
3629: End If;
3630: Close l_subcle_csr;
3631: If l_exists = 'N' then
3632: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3633: x_return_status := OKL_API.G_RET_STS_ERROR;
3634: RAISE G_EXCEPTION_HALT_VALIDATION;
3635: End If;
3636: END IF;

Line 3633: x_return_status := OKL_API.G_RET_STS_ERROR;

3629: End If;
3630: Close l_subcle_csr;
3631: If l_exists = 'N' then
3632: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3633: x_return_status := OKL_API.G_RET_STS_ERROR;
3634: RAISE G_EXCEPTION_HALT_VALIDATION;
3635: End If;
3636: END IF;
3637: EXCEPTION

Line 3641: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3637: EXCEPTION
3638: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3639: null;
3640: WHEN OTHERS THEN
3641: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3642: ,p_msg_name => G_UNEXPECTED_ERROR
3643: ,p_token1 => G_SQLCODE_TOKEN
3644: ,p_token1_value => SQLCODE
3645: ,p_token2 => G_SQLERRM_TOKEN

Line 3647: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3643: ,p_token1 => G_SQLCODE_TOKEN
3644: ,p_token1_value => SQLCODE
3645: ,p_token2 => G_SQLERRM_TOKEN
3646: ,p_token2_value => SQLERRM);
3647: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3648: END validate_subsidy_cle_id;
3649: -----------------------------------
3650: --3.validate dnz_chr_id
3651: -----------------------------------

Line 3665: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3661: --and chrb.sts_code in ('NEW','COMPLETE','PASSED','INCOMPLETE','TERMINATED','APPROVED');
3662:
3663: l_exists varchar2(1) default 'N';
3664: BEGIN
3665: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3666: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3667: p_dnz_chr_id IS NULL)
3668: THEN
3669: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');

Line 3666: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR

3662:
3663: l_exists varchar2(1) default 'N';
3664: BEGIN
3665: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3666: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3667: p_dnz_chr_id IS NULL)
3668: THEN
3669: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');
3670: x_return_status := OKL_API.G_RET_STS_ERROR;

Line 3669: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');

3665: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3666: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3667: p_dnz_chr_id IS NULL)
3668: THEN
3669: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');
3670: x_return_status := OKL_API.G_RET_STS_ERROR;
3671: RAISE G_EXCEPTION_HALT_VALIDATION;
3672: ELSE
3673: --check foreign key validation

Line 3670: x_return_status := OKL_API.G_RET_STS_ERROR;

3666: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3667: p_dnz_chr_id IS NULL)
3668: THEN
3669: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');
3670: x_return_status := OKL_API.G_RET_STS_ERROR;
3671: RAISE G_EXCEPTION_HALT_VALIDATION;
3672: ELSE
3673: --check foreign key validation
3674: l_exists := 'N';

Line 3682: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract Identifier');

3678: null;
3679: End If;
3680: Close l_chr_csr;
3681: If l_exists = 'N' then
3682: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract Identifier');
3683: x_return_status := OKL_API.G_RET_STS_ERROR;
3684: RAISE G_EXCEPTION_HALT_VALIDATION;
3685: End If;
3686: END IF;

Line 3683: x_return_status := OKL_API.G_RET_STS_ERROR;

3679: End If;
3680: Close l_chr_csr;
3681: If l_exists = 'N' then
3682: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract Identifier');
3683: x_return_status := OKL_API.G_RET_STS_ERROR;
3684: RAISE G_EXCEPTION_HALT_VALIDATION;
3685: End If;
3686: END IF;
3687: EXCEPTION

Line 3691: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3687: EXCEPTION
3688: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3689: null;
3690: WHEN OTHERS THEN
3691: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3692: ,p_msg_name => G_UNEXPECTED_ERROR
3693: ,p_token1 => G_SQLCODE_TOKEN
3694: ,p_token1_value => SQLCODE
3695: ,p_token2 => G_SQLERRM_TOKEN

Line 3697: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3693: ,p_token1 => G_SQLCODE_TOKEN
3694: ,p_token1_value => SQLCODE
3695: ,p_token2 => G_SQLERRM_TOKEN
3696: ,p_token2_value => SQLERRM);
3697: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3698: END validate_dnz_chr_id;
3699: -----------------------------------
3700: --4.validate asset_Cle_id
3701: -----------------------------------

Line 3715: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3711: --and cleb.sts_code in ('NEW','COMPLETE','PASSED','INCOMPLETE','TERMINATED','APPROVED');
3712:
3713: l_exists varchar2(1) default 'N';
3714: BEGIN
3715: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3716: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3717: p_asset_cle_id IS NULL)
3718: THEN
3719: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');

Line 3716: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR

3712:
3713: l_exists varchar2(1) default 'N';
3714: BEGIN
3715: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3716: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3717: p_asset_cle_id IS NULL)
3718: THEN
3719: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');
3720: x_return_status := OKL_API.G_RET_STS_ERROR;

Line 3719: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');

3715: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3716: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3717: p_asset_cle_id IS NULL)
3718: THEN
3719: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');
3720: x_return_status := OKL_API.G_RET_STS_ERROR;
3721: RAISE G_EXCEPTION_HALT_VALIDATION;
3722: ELSE
3723: --check foreign key validation

Line 3720: x_return_status := OKL_API.G_RET_STS_ERROR;

3716: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3717: p_asset_cle_id IS NULL)
3718: THEN
3719: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');
3720: x_return_status := OKL_API.G_RET_STS_ERROR;
3721: RAISE G_EXCEPTION_HALT_VALIDATION;
3722: ELSE
3723: --check foreign key validation
3724: l_exists := 'N';

Line 3732: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset line identifier');

3728: null;
3729: End If;
3730: Close l_cle_csr;
3731: If l_exists = 'N' then
3732: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset line identifier');
3733: x_return_status := OKL_API.G_RET_STS_ERROR;
3734: RAISE G_EXCEPTION_HALT_VALIDATION;
3735: End If;
3736: END IF;

Line 3733: x_return_status := OKL_API.G_RET_STS_ERROR;

3729: End If;
3730: Close l_cle_csr;
3731: If l_exists = 'N' then
3732: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset line identifier');
3733: x_return_status := OKL_API.G_RET_STS_ERROR;
3734: RAISE G_EXCEPTION_HALT_VALIDATION;
3735: End If;
3736: END IF;
3737: EXCEPTION

Line 3741: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3737: EXCEPTION
3738: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3739: null;
3740: WHEN OTHERS THEN
3741: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3742: ,p_msg_name => G_UNEXPECTED_ERROR
3743: ,p_token1 => G_SQLCODE_TOKEN
3744: ,p_token1_value => SQLCODE
3745: ,p_token2 => G_SQLERRM_TOKEN

Line 3747: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3743: ,p_token1 => G_SQLCODE_TOKEN
3744: ,p_token1_value => SQLCODE
3745: ,p_token2 => G_SQLERRM_TOKEN
3746: ,p_token2_value => SQLERRM);
3747: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3748: END validate_asset_cle_id;
3749: -----------------------------------
3750: --5.validate vendor_id
3751: -----------------------------------

Line 3763: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3759: where pov.vendor_id = p_vendor_id;
3760:
3761: l_exists varchar2(1) default 'N';
3762: BEGIN
3763: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3764: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3765: p_vendor_id IS NULL)
3766: THEN
3767: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');

Line 3764: IF (p_vendor_id = OKL_API.G_MISS_NUM OR

3760:
3761: l_exists varchar2(1) default 'N';
3762: BEGIN
3763: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3764: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3765: p_vendor_id IS NULL)
3766: THEN
3767: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');
3768: x_return_status := OKL_API.G_RET_STS_ERROR;

Line 3767: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');

3763: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3764: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3765: p_vendor_id IS NULL)
3766: THEN
3767: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');
3768: x_return_status := OKL_API.G_RET_STS_ERROR;
3769: RAISE G_EXCEPTION_HALT_VALIDATION;
3770: ELSE
3771: --check foreign key validation

Line 3768: x_return_status := OKL_API.G_RET_STS_ERROR;

3764: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3765: p_vendor_id IS NULL)
3766: THEN
3767: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');
3768: x_return_status := OKL_API.G_RET_STS_ERROR;
3769: RAISE G_EXCEPTION_HALT_VALIDATION;
3770: ELSE
3771: --check foreign key validation
3772: l_exists := 'N';

Line 3780: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy provider party');

3776: null;
3777: End If;
3778: Close l_vendor_csr;
3779: If l_exists = 'N' then
3780: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy provider party');
3781: x_return_status := OKL_API.G_RET_STS_ERROR;
3782: RAISE G_EXCEPTION_HALT_VALIDATION;
3783: End If;
3784: END IF;

Line 3781: x_return_status := OKL_API.G_RET_STS_ERROR;

3777: End If;
3778: Close l_vendor_csr;
3779: If l_exists = 'N' then
3780: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy provider party');
3781: x_return_status := OKL_API.G_RET_STS_ERROR;
3782: RAISE G_EXCEPTION_HALT_VALIDATION;
3783: End If;
3784: END IF;
3785: EXCEPTION

Line 3789: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3785: EXCEPTION
3786: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3787: null;
3788: WHEN OTHERS THEN
3789: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3790: ,p_msg_name => G_UNEXPECTED_ERROR
3791: ,p_token1 => G_SQLCODE_TOKEN
3792: ,p_token1_value => SQLCODE
3793: ,p_token2 => G_SQLERRM_TOKEN

Line 3795: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3791: ,p_token1 => G_SQLCODE_TOKEN
3792: ,p_token1_value => SQLCODE
3793: ,p_token2 => G_SQLERRM_TOKEN
3794: ,p_token2_value => SQLERRM);
3795: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3796: END validate_vendor_id;
3797: -----------------------------------
3798: --6.validate record
3799: -----------------------------------

Line 3899: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3895: -- l_asset_number okc_k_lines_tl.name%TYPE;
3896:
3897:
3898: BEGIN
3899: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3900: --check foreign key validation
3901: l_exists := 'N';
3902: open l_chrcle_csr(p_chr_id => p_asb_rec.dnz_chr_id,
3903: p_asset_cle_id => p_asb_rec.asset_cle_id);

Line 3910: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract identifier');

3906: null;
3907: End If;
3908: Close l_chrcle_csr;
3909: If l_exists = 'N' then
3910: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract identifier');
3911: x_return_status := OKL_API.G_RET_STS_ERROR;
3912: RAISE G_EXCEPTION_HALT_VALIDATION;
3913: End If;
3914:

Line 3911: x_return_status := OKL_API.G_RET_STS_ERROR;

3907: End If;
3908: Close l_chrcle_csr;
3909: If l_exists = 'N' then
3910: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract identifier');
3911: x_return_status := OKL_API.G_RET_STS_ERROR;
3912: RAISE G_EXCEPTION_HALT_VALIDATION;
3913: End If;
3914:
3915: /* cklee check from validate_record_after()

Line 3916: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then

3912: RAISE G_EXCEPTION_HALT_VALIDATION;
3913: End If;
3914:
3915: /* cklee check from validate_record_after()
3916: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then
3917: l_exists := 'N';
3918: open l_subcle_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
3919: p_asset_cle_id => p_asb_rec.asset_cle_id);
3920: fetch l_subcle_csr into l_exists;

Line 3926: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');

3922: null;
3923: End If;
3924: Close l_subcle_csr;
3925: If l_exists = 'N' then
3926: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3927: x_return_status := OKL_API.G_RET_STS_ERROR;
3928: RAISE G_EXCEPTION_HALT_VALIDATION;
3929: End If;
3930: End If;

Line 3927: x_return_status := OKL_API.G_RET_STS_ERROR;

3923: End If;
3924: Close l_subcle_csr;
3925: If l_exists = 'N' then
3926: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3927: x_return_status := OKL_API.G_RET_STS_ERROR;
3928: RAISE G_EXCEPTION_HALT_VALIDATION;
3929: End If;
3930: End If;
3931:

Line 3932: If p_asb_rec.cpl_id is not null and p_asb_rec.cpl_id <> OKL_API.G_MISS_NUM then

3928: RAISE G_EXCEPTION_HALT_VALIDATION;
3929: End If;
3930: End If;
3931:
3932: If p_asb_rec.cpl_id is not null and p_asb_rec.cpl_id <> OKL_API.G_MISS_NUM then
3933: l_exists := 'N';
3934: open l_cplb_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
3935: p_cpl_id => p_asb_rec.cpl_id);
3936: fetch l_cplb_csr into l_exists;

Line 3942: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');

3938: null;
3939: End If;
3940: Close l_cplb_csr;
3941: If l_exists = 'N' then
3942: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
3943: x_return_status := OKL_API.G_RET_STS_ERROR;
3944: RAISE G_EXCEPTION_HALT_VALIDATION;
3945: End If;
3946: End If;

Line 3943: x_return_status := OKL_API.G_RET_STS_ERROR;

3939: End If;
3940: Close l_cplb_csr;
3941: If l_exists = 'N' then
3942: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
3943: x_return_status := OKL_API.G_RET_STS_ERROR;
3944: RAISE G_EXCEPTION_HALT_VALIDATION;
3945: End If;
3946: End If;
3947:

Line 3960: OKL_API.set_message(p_app_name => G_APP_NAME,

3956: End If;
3957: Close l_subsidy_exists_csr;
3958:
3959: If l_exists = 'Y' then
3960: OKL_API.set_message(p_app_name => G_APP_NAME,
3961: p_msg_name => G_SUBSIDY_ALREADY_EXISTS,
3962: p_token1 => G_SUBSIDY_NAME_TOKEN,
3963: p_token1_value => l_subsidy_name,
3964: p_token2 => G_ASSET_NUMBER_TOKEN,

Line 3966: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee

3962: p_token1 => G_SUBSIDY_NAME_TOKEN,
3963: p_token1_value => l_subsidy_name,
3964: p_token2 => G_ASSET_NUMBER_TOKEN,
3965: p_token2_value => l_asset_number);
3966: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee
3967: RAISE G_EXCEPTION_HALT_VALIDATION;
3968: End If;
3969:
3970: --cursor to check if exclusive subsidy has any other subsidy atched to the

Line 3983: OKL_API.set_message(p_app_name => G_APP_NAME,

3979: End If;
3980: Close l_exclusive_csr;
3981:
3982: If l_exists = 'Y' then
3983: OKL_API.set_message(p_app_name => G_APP_NAME,
3984: p_msg_name => G_SUBSIDY_EXCLUSIVE,
3985: p_token1 => G_SUBSIDY_NAME_TOKEN,
3986: p_token1_value => l_subsidy_name
3987: );

Line 3988: x_return_status := OKL_API.G_RET_STS_ERROR;

3984: p_msg_name => G_SUBSIDY_EXCLUSIVE,
3985: p_token1 => G_SUBSIDY_NAME_TOKEN,
3986: p_token1_value => l_subsidy_name
3987: );
3988: x_return_status := OKL_API.G_RET_STS_ERROR;
3989: RAISE G_EXCEPTION_HALT_VALIDATION;
3990: End If;
3991: */
3992:

Line 3997: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3993: EXCEPTION
3994: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3995: null;
3996: WHEN OTHERS THEN
3997: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3998: ,p_msg_name => G_UNEXPECTED_ERROR
3999: ,p_token1 => G_SQLCODE_TOKEN
4000: ,p_token1_value => SQLCODE
4001: ,p_token2 => G_SQLERRM_TOKEN

Line 4003: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3999: ,p_token1 => G_SQLCODE_TOKEN
4000: ,p_token1_value => SQLCODE
4001: ,p_token2 => G_SQLERRM_TOKEN
4002: ,p_token2_value => SQLERRM);
4003: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4004: END validate_record;
4005:
4006: -- start cklee
4007: -----------------------------------

Line 4121: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4117: l_asset_number okc_k_lines_tl.name%TYPE;
4118:
4119:
4120: BEGIN
4121: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4122:
4123: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then
4124: l_exists := 'N';
4125: open l_subcle_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,

Line 4123: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then

4119:
4120: BEGIN
4121: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4122:
4123: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then
4124: l_exists := 'N';
4125: open l_subcle_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
4126: p_asset_cle_id => p_asb_rec.asset_cle_id);
4127: fetch l_subcle_csr into l_exists;

Line 4133: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');

4129: null;
4130: End If;
4131: Close l_subcle_csr;
4132: If l_exists = 'N' then
4133: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
4134: x_return_status := OKL_API.G_RET_STS_ERROR;
4135: RAISE G_EXCEPTION_HALT_VALIDATION;
4136: End If;
4137: End If;

Line 4134: x_return_status := OKL_API.G_RET_STS_ERROR;

4130: End If;
4131: Close l_subcle_csr;
4132: If l_exists = 'N' then
4133: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
4134: x_return_status := OKL_API.G_RET_STS_ERROR;
4135: RAISE G_EXCEPTION_HALT_VALIDATION;
4136: End If;
4137: End If;
4138:

Line 4139: If p_asb_rec.cpl_id is not null and p_asb_rec.cpl_id <> OKL_API.G_MISS_NUM then

4135: RAISE G_EXCEPTION_HALT_VALIDATION;
4136: End If;
4137: End If;
4138:
4139: If p_asb_rec.cpl_id is not null and p_asb_rec.cpl_id <> OKL_API.G_MISS_NUM then
4140: l_exists := 'N';
4141: open l_cplb_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
4142: p_cpl_id => p_asb_rec.cpl_id);
4143: fetch l_cplb_csr into l_exists;

Line 4149: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');

4145: null;
4146: End If;
4147: Close l_cplb_csr;
4148: If l_exists = 'N' then
4149: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
4150: x_return_status := OKL_API.G_RET_STS_ERROR;
4151: RAISE G_EXCEPTION_HALT_VALIDATION;
4152: End If;
4153: End If;

Line 4150: x_return_status := OKL_API.G_RET_STS_ERROR;

4146: End If;
4147: Close l_cplb_csr;
4148: If l_exists = 'N' then
4149: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
4150: x_return_status := OKL_API.G_RET_STS_ERROR;
4151: RAISE G_EXCEPTION_HALT_VALIDATION;
4152: End If;
4153: End If;
4154:

Line 4168: OKL_API.set_message(p_app_name => G_APP_NAME,

4164: End If;
4165: Close l_subsidy_exists_csr;
4166:
4167: If l_exists = 'Y' then
4168: OKL_API.set_message(p_app_name => G_APP_NAME,
4169: p_msg_name => G_SUBSIDY_ALREADY_EXISTS,
4170: p_token1 => G_SUBSIDY_NAME_TOKEN,
4171: p_token1_value => l_subsidy_name,
4172: p_token2 => G_ASSET_NUMBER_TOKEN,

Line 4174: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee

4170: p_token1 => G_SUBSIDY_NAME_TOKEN,
4171: p_token1_value => l_subsidy_name,
4172: p_token2 => G_ASSET_NUMBER_TOKEN,
4173: p_token2_value => l_asset_number);
4174: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee
4175: RAISE G_EXCEPTION_HALT_VALIDATION;
4176: End If;
4177:
4178: --cursor to check if exclusive subsidy has any other subsidy atched to the

Line 4203: OKL_API.set_message(p_app_name => G_APP_NAME,

4199: End If;
4200: Close l_exclusive_csr2;
4201:
4202: If (l_exists = 'Y' and l_count > 1) then
4203: OKL_API.set_message(p_app_name => G_APP_NAME,
4204: p_msg_name => G_SUBSIDY_EXCLUSIVE,
4205: p_token1 => G_SUBSIDY_NAME_TOKEN,
4206: p_token1_value => l_subsidy_name
4207: );

Line 4208: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee

4204: p_msg_name => G_SUBSIDY_EXCLUSIVE,
4205: p_token1 => G_SUBSIDY_NAME_TOKEN,
4206: p_token1_value => l_subsidy_name
4207: );
4208: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee
4209: RAISE G_EXCEPTION_HALT_VALIDATION;
4210: End If;
4211:
4212: EXCEPTION

Line 4216: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

4212: EXCEPTION
4213: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4214: null;
4215: WHEN OTHERS THEN
4216: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
4217: ,p_msg_name => G_UNEXPECTED_ERROR
4218: ,p_token1 => G_SQLCODE_TOKEN
4219: ,p_token1_value => SQLCODE
4220: ,p_token2 => G_SQLERRM_TOKEN

Line 4222: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

4218: ,p_token1 => G_SQLCODE_TOKEN
4219: ,p_token1_value => SQLCODE
4220: ,p_token2 => G_SQLERRM_TOKEN
4221: ,p_token2_value => SQLERRM);
4222: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4223: END validate_record_after;
4224: -- end cklee
4225: --------------------------------------------------------------------------------
4226: --Name : validate_asset_subsidy

Line 4238: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4234: x_msg_count OUT NOCOPY NUMBER,
4235: x_msg_data OUT NOCOPY VARCHAR2,
4236: p_asb_rec IN asb_rec_type) is
4237:
4238: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4239: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4240: l_api_version CONSTANT NUMBER := 1.0;
4241:
4242: l_asb_rec asb_rec_type;

Line 4243: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4239: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4240: l_api_version CONSTANT NUMBER := 1.0;
4241:
4242: l_asb_rec asb_rec_type;
4243: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4244:
4245: l_applicable VARCHAR2(1);
4246:
4247: cursor l_clet_csr(p_cle_id in number) is

Line 4264: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4260: l_subsidy_name okl_subsidies_b.name%TYPE;
4261:
4262: begin
4263: -----
4264: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4265: -- Call start_activity to create savepoint, check compatibility
4266: -- and initialize message list
4267: x_return_status := OKL_API.START_ACTIVITY (
4268: l_api_name

Line 4267: x_return_status := OKL_API.START_ACTIVITY (

4263: -----
4264: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4265: -- Call start_activity to create savepoint, check compatibility
4266: -- and initialize message list
4267: x_return_status := OKL_API.START_ACTIVITY (
4268: l_api_name
4269: ,p_init_msg_list
4270: ,'_PVT'
4271: ,x_return_status);

Line 4273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4269: ,p_init_msg_list
4270: ,'_PVT'
4271: ,x_return_status);
4272: -- Check if activity started successfully
4273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_ERROR;
4277: END IF;

Line 4274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4270: ,'_PVT'
4271: ,x_return_status);
4272: -- Check if activity started successfully
4273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_ERROR;
4277: END IF;
4278:

Line 4275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4271: ,x_return_status);
4272: -- Check if activity started successfully
4273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_ERROR;
4277: END IF;
4278:
4279: l_asb_rec := p_asb_rec;

Line 4276: RAISE OKL_API.G_EXCEPTION_ERROR;

4272: -- Check if activity started successfully
4273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_ERROR;
4277: END IF;
4278:
4279: l_asb_rec := p_asb_rec;
4280: -----------------------------------------------

Line 4290: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4286: --1.validate subsidy_id
4287: ---------------------------------------
4288: /* cklee 1/21/04 call from validate_asset_subsidy_after()
4289: validate_subsidy_id(x_return_status,l_asb_rec.subsidy_id);
4290: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4291: l_highest_return_status := x_return_status;
4292: End If;
4293: */
4294: ---------------------------------------

Line 4298: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4294: ---------------------------------------
4295: --2.validate subsidy_cle_id
4296: ---------------------------------------
4297: validate_subsidy_cle_id(x_return_status,l_asb_rec.subsidy_cle_id);
4298: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4299: l_highest_return_status := x_return_status;
4300: End If;
4301: ---------------------------------------
4302: --3.validate dnz_chr_id

Line 4305: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4301: ---------------------------------------
4302: --3.validate dnz_chr_id
4303: ---------------------------------------
4304: validate_dnz_chr_id(x_return_status,l_asb_rec.dnz_chr_id);
4305: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4306: l_highest_return_status := x_return_status;
4307: End If;
4308: ---------------------------------------
4309: --4.validate asset_cle_id

Line 4312: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4308: ---------------------------------------
4309: --4.validate asset_cle_id
4310: ---------------------------------------
4311: validate_asset_cle_id(x_return_status,l_asb_rec.asset_cle_id);
4312: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4313: l_highest_return_status := x_return_status;
4314: End If;
4315: ---------------------------------------
4316: --5.validate vendor_id

Line 4319: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4315: ---------------------------------------
4316: --5.validate vendor_id
4317: ---------------------------------------
4318: validate_vendor_id(x_return_status,l_asb_rec.vendor_id);
4319: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4320: l_highest_return_status := x_return_status;
4321: End If;
4322:
4323: x_return_status := l_highest_return_status;

Line 4324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4320: l_highest_return_status := x_return_status;
4321: End If;
4322:
4323: x_return_status := l_highest_return_status;
4324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4327: RAISE OKL_API.G_EXCEPTION_ERROR;
4328: END IF;

Line 4325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4321: End If;
4322:
4323: x_return_status := l_highest_return_status;
4324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4327: RAISE OKL_API.G_EXCEPTION_ERROR;
4328: END IF;
4329:

Line 4326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4322:
4323: x_return_status := l_highest_return_status;
4324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4327: RAISE OKL_API.G_EXCEPTION_ERROR;
4328: END IF;
4329:
4330: ---------------------------------------

Line 4327: RAISE OKL_API.G_EXCEPTION_ERROR;

4323: x_return_status := l_highest_return_status;
4324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4327: RAISE OKL_API.G_EXCEPTION_ERROR;
4328: END IF;
4329:
4330: ---------------------------------------
4331: --5.validate record

Line 4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4331: --5.validate record
4332: ---------------------------------------
4333: validate_record(x_return_status,l_asb_rec);
4334:
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;

Line 4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4332: ---------------------------------------
4333: validate_record(x_return_status,l_asb_rec);
4334:
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:

Line 4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4333: validate_record(x_return_status,l_asb_rec);
4334:
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:
4341: ---------------------------------------

Line 4338: RAISE OKL_API.G_EXCEPTION_ERROR;

4334:
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:
4341: ---------------------------------------
4342: --6.validate subsidy applicability

Line 4363: OKL_API.set_message(p_app_name => G_APP_NAME,

4359: end if;
4360: close l_sub_csr;
4361:
4362: --raise error
4363: OKL_API.set_message(p_app_name => G_APP_NAME,
4364: p_msg_name => G_SUBSIDY_NOT_APPLICABLE,
4365: p_token1 => G_SUBSIDY_TOKEN,
4366: p_token1_value => l_subsidy_name,
4367: p_token2 => G_ASSET_NUMBER_TOKEN,

Line 4370: x_return_status := OKL_API.G_RET_STS_ERROR;

4366: p_token1_value => l_subsidy_name,
4367: p_token2 => G_ASSET_NUMBER_TOKEN,
4368: p_token2_value => l_asset_number
4369: );
4370: x_return_status := OKL_API.G_RET_STS_ERROR;
4371:
4372: RAISE OKL_API.G_EXCEPTION_ERROR;
4373: End If;
4374:

Line 4372: RAISE OKL_API.G_EXCEPTION_ERROR;

4368: p_token2_value => l_asset_number
4369: );
4370: x_return_status := OKL_API.G_RET_STS_ERROR;
4371:
4372: RAISE OKL_API.G_EXCEPTION_ERROR;
4373: End If;
4374:
4375: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4376: EXCEPTION

Line 4375: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

4371:
4372: RAISE OKL_API.G_EXCEPTION_ERROR;
4373: End If;
4374:
4375: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4376: EXCEPTION
4377: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4379: l_api_name,

Line 4377: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4373: End If;
4374:
4375: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4376: EXCEPTION
4377: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4379: l_api_name,
4380: G_PKG_NAME,
4381: 'OKL_API.G_RET_STS_ERROR',

Line 4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4374:
4375: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4376: EXCEPTION
4377: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4379: l_api_name,
4380: G_PKG_NAME,
4381: 'OKL_API.G_RET_STS_ERROR',
4382: x_msg_count,

Line 4381: 'OKL_API.G_RET_STS_ERROR',

4377: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4378: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4379: l_api_name,
4380: G_PKG_NAME,
4381: 'OKL_API.G_RET_STS_ERROR',
4382: x_msg_count,
4383: x_msg_data,
4384: '_PVT');
4385: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4385: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4381: 'OKL_API.G_RET_STS_ERROR',
4382: x_msg_count,
4383: x_msg_data,
4384: '_PVT');
4385: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4386: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4387: l_api_name,
4388: G_PKG_NAME,
4389: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 4386: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4382: x_msg_count,
4383: x_msg_data,
4384: '_PVT');
4385: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4386: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4387: l_api_name,
4388: G_PKG_NAME,
4389: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4390: x_msg_count,

Line 4389: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4385: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4386: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4387: l_api_name,
4388: G_PKG_NAME,
4389: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4390: x_msg_count,
4391: x_msg_data,
4392: '_PVT');
4393: WHEN OTHERS THEN

Line 4394: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4390: x_msg_count,
4391: x_msg_data,
4392: '_PVT');
4393: WHEN OTHERS THEN
4394: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4395: l_api_name,
4396: G_PKG_NAME,
4397: 'OTHERS',
4398: x_msg_count,

Line 4417: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4413: x_msg_count OUT NOCOPY NUMBER,
4414: x_msg_data OUT NOCOPY VARCHAR2,
4415: p_asb_rec IN asb_rec_type) is
4416:
4417: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4418: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4419: l_api_version CONSTANT NUMBER := 1.0;
4420:
4421: l_asb_rec asb_rec_type;

Line 4422: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4418: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4419: l_api_version CONSTANT NUMBER := 1.0;
4420:
4421: l_asb_rec asb_rec_type;
4422: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4423:
4424: begin
4425: -----
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;

Line 4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4422: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4423:
4424: begin
4425: -----
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4427: -- Call start_activity to create savepoint, check compatibility
4428: -- and initialize message list
4429: x_return_status := OKL_API.START_ACTIVITY (
4430: l_api_name

Line 4429: x_return_status := OKL_API.START_ACTIVITY (

4425: -----
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4427: -- Call start_activity to create savepoint, check compatibility
4428: -- and initialize message list
4429: x_return_status := OKL_API.START_ACTIVITY (
4430: l_api_name
4431: ,p_init_msg_list
4432: ,'_PVT'
4433: ,x_return_status);

Line 4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4431: ,p_init_msg_list
4432: ,'_PVT'
4433: ,x_return_status);
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;

Line 4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4432: ,'_PVT'
4433: ,x_return_status);
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4440:

Line 4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4433: ,x_return_status);
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4440:
4441: l_asb_rec := p_asb_rec;

Line 4438: RAISE OKL_API.G_EXCEPTION_ERROR;

4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4440:
4441: l_asb_rec := p_asb_rec;
4442: -----------------------------------------------

Line 4452: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4448: ---------------------------------------
4449: --2.validate subsidy_cle_id
4450: ---------------------------------------
4451: validate_subsidy_cle_id(x_return_status,l_asb_rec.subsidy_cle_id);
4452: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4453: l_highest_return_status := x_return_status;
4454: End If;
4455:
4456: x_return_status := l_highest_return_status;

Line 4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4459: --5.validate record
4460: ---------------------------------------
4461: validate_record_after(x_return_status,l_asb_rec);
4462:
4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_ERROR;
4467: END IF;

Line 4464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4460: ---------------------------------------
4461: validate_record_after(x_return_status,l_asb_rec);
4462:
4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_ERROR;
4467: END IF;
4468:

Line 4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4461: validate_record_after(x_return_status,l_asb_rec);
4462:
4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_ERROR;
4467: END IF;
4468:
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

Line 4466: RAISE OKL_API.G_EXCEPTION_ERROR;

4462:
4463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_ERROR;
4467: END IF;
4468:
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470:

Line 4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

4465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_ERROR;
4467: END IF;
4468:
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470:
4471: EXCEPTION
4472: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4473: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

Line 4472: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4468:
4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470:
4471: EXCEPTION
4472: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4473: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4474: l_api_name,
4475: G_PKG_NAME,
4476: 'OKL_API.G_RET_STS_ERROR',

Line 4473: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4469: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4470:
4471: EXCEPTION
4472: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4473: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4474: l_api_name,
4475: G_PKG_NAME,
4476: 'OKL_API.G_RET_STS_ERROR',
4477: x_msg_count,

Line 4476: 'OKL_API.G_RET_STS_ERROR',

4472: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4473: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4474: l_api_name,
4475: G_PKG_NAME,
4476: 'OKL_API.G_RET_STS_ERROR',
4477: x_msg_count,
4478: x_msg_data,
4479: '_PVT');
4480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4476: 'OKL_API.G_RET_STS_ERROR',
4477: x_msg_count,
4478: x_msg_data,
4479: '_PVT');
4480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4481: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4482: l_api_name,
4483: G_PKG_NAME,
4484: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 4481: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4477: x_msg_count,
4478: x_msg_data,
4479: '_PVT');
4480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4481: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4482: l_api_name,
4483: G_PKG_NAME,
4484: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4485: x_msg_count,

Line 4484: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4480: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4481: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4482: l_api_name,
4483: G_PKG_NAME,
4484: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4485: x_msg_count,
4486: x_msg_data,
4487: '_PVT');
4488: WHEN OTHERS THEN

Line 4489: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4485: x_msg_count,
4486: x_msg_data,
4487: '_PVT');
4488: WHEN OTHERS THEN
4489: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4490: l_api_name,
4491: G_PKG_NAME,
4492: 'OTHERS',
4493: x_msg_count,

Line 4513: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4509: x_msg_data OUT NOCOPY VARCHAR2,
4510: p_asb_rec IN asb_rec_type,
4511: x_asb_rec OUT NOCOPY asb_rec_type) is
4512:
4513: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4514: l_api_name CONSTANT varchar2(30) := 'CREATE_ASSET_SUBSIDY';
4515: l_api_version CONSTANT NUMBER := 1.0;
4516:
4517: l_asb_rec asb_rec_type;

Line 4546: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4542: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
4543:
4544: Begin
4545: ----
4546: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4547: -- Call start_activity to create savepoint, check compatibility
4548: -- and initialize message list
4549: x_return_status := OKL_API.START_ACTIVITY (
4550: l_api_name

Line 4549: x_return_status := OKL_API.START_ACTIVITY (

4545: ----
4546: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4547: -- Call start_activity to create savepoint, check compatibility
4548: -- and initialize message list
4549: x_return_status := OKL_API.START_ACTIVITY (
4550: l_api_name
4551: ,p_init_msg_list
4552: ,'_PVT'
4553: ,x_return_status);

Line 4555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4551: ,p_init_msg_list
4552: ,'_PVT'
4553: ,x_return_status);
4554: -- Check if activity started successfully
4555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4558: RAISE OKL_API.G_EXCEPTION_ERROR;
4559: END IF;

Line 4556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4552: ,'_PVT'
4553: ,x_return_status);
4554: -- Check if activity started successfully
4555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4558: RAISE OKL_API.G_EXCEPTION_ERROR;
4559: END IF;
4560:

Line 4557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4553: ,x_return_status);
4554: -- Check if activity started successfully
4555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4558: RAISE OKL_API.G_EXCEPTION_ERROR;
4559: END IF;
4560:
4561: l_asb_rec := p_asb_rec;

Line 4558: RAISE OKL_API.G_EXCEPTION_ERROR;

4554: -- Check if activity started successfully
4555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4558: RAISE OKL_API.G_EXCEPTION_ERROR;
4559: END IF;
4560:
4561: l_asb_rec := p_asb_rec;
4562:

Line 4572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4568: x_clev_rec => lx_def_clev_rec,
4569: x_klev_rec => lx_def_klev_rec,
4570: x_cplv_rec => lx_def_cplv_rec);
4571:
4572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_ERROR;
4576: END IF;

Line 4573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4569: x_klev_rec => lx_def_klev_rec,
4570: x_cplv_rec => lx_def_cplv_rec);
4571:
4572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_ERROR;
4576: END IF;
4577:

Line 4574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4570: x_cplv_rec => lx_def_cplv_rec);
4571:
4572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_ERROR;
4576: END IF;
4577:
4578: l_clev_rec := lx_def_clev_rec;

Line 4575: RAISE OKL_API.G_EXCEPTION_ERROR;

4571:
4572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_ERROR;
4576: END IF;
4577:
4578: l_clev_rec := lx_def_clev_rec;
4579: l_klev_rec := lx_def_klev_rec;

Line 4592: If (l_cplv_rec.object1_id1 is not null) and (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then

4588: l_asb_rec.amount := l_klev_rec.amount;
4589: l_asb_rec.subsidy_override_amount := l_klev_rec.subsidy_override_amount;
4590: l_asb_rec.dnz_chr_id := l_clev_rec.dnz_chr_id;
4591: l_asb_rec.asset_cle_id := l_clev_rec.cle_id;
4592: If (l_cplv_rec.object1_id1 is not null) and (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
4593: l_asb_rec.vendor_id := to_number(l_cplv_rec.object1_id1);
4594: End If;
4595:
4596: --Bug# 4959361

Line 4605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4601: x_msg_count => x_msg_count,
4602: x_msg_data => x_msg_data,
4603: p_cle_id => l_asb_rec.asset_cle_id);
4604:
4605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;

Line 4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4602: x_msg_data => x_msg_data,
4603: p_cle_id => l_asb_rec.asset_cle_id);
4604:
4605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;
4610: --Bug# 4959361

Line 4607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4603: p_cle_id => l_asb_rec.asset_cle_id);
4604:
4605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;
4610: --Bug# 4959361
4611:

Line 4608: RAISE OKL_API.G_EXCEPTION_ERROR;

4604:
4605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4608: RAISE OKL_API.G_EXCEPTION_ERROR;
4609: END IF;
4610: --Bug# 4959361
4611:
4612: ----------------------------------------------------

Line 4623: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4619: x_msg_count => x_msg_count,
4620: x_msg_data => x_msg_data,
4621: p_asb_rec => l_asb_rec);
4622:
4623: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4625: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_ERROR;
4627: END IF;

Line 4624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4620: x_msg_data => x_msg_data,
4621: p_asb_rec => l_asb_rec);
4622:
4623: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4625: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_ERROR;
4627: END IF;
4628:

Line 4625: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4621: p_asb_rec => l_asb_rec);
4622:
4623: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4625: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_ERROR;
4627: END IF;
4628:
4629: ---------------------------------------------------------

Line 4626: RAISE OKL_API.G_EXCEPTION_ERROR;

4622:
4623: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4625: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4626: RAISE OKL_API.G_EXCEPTION_ERROR;
4627: END IF;
4628:
4629: ---------------------------------------------------------
4630: --call complex API to create line instance

Line 4645: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4641: p_klev_rec => l_klev_rec,
4642: x_clev_rec => lx_clev_rec,
4643: x_klev_rec => lx_klev_rec);
4644:
4645: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4648: RAISE OKL_API.G_EXCEPTION_ERROR;
4649: END IF;

Line 4646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4642: x_clev_rec => lx_clev_rec,
4643: x_klev_rec => lx_klev_rec);
4644:
4645: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4648: RAISE OKL_API.G_EXCEPTION_ERROR;
4649: END IF;
4650:

Line 4647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4643: x_klev_rec => lx_klev_rec);
4644:
4645: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4648: RAISE OKL_API.G_EXCEPTION_ERROR;
4649: END IF;
4650:
4651: /* comment out by cklee 03/15/2004: move to l_asb_tbl level

Line 4648: RAISE OKL_API.G_EXCEPTION_ERROR;

4644:
4645: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4648: RAISE OKL_API.G_EXCEPTION_ERROR;
4649: END IF;
4650:
4651: /* comment out by cklee 03/15/2004: move to l_asb_tbl level
4652: -- start cklee 1/22/04

Line 4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4664: x_msg_count => x_msg_count,
4665: x_msg_data => x_msg_data,
4666: p_asb_rec => l_asb_rec);
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;

Line 4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4665: x_msg_data => x_msg_data,
4666: p_asb_rec => l_asb_rec);
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673: -- end cklee 1/22/04

Line 4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4666: p_asb_rec => l_asb_rec);
4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673: -- end cklee 1/22/04
4674: */

Line 4671: RAISE OKL_API.G_EXCEPTION_ERROR;

4667:
4668: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4671: RAISE OKL_API.G_EXCEPTION_ERROR;
4672: END IF;
4673: -- end cklee 1/22/04
4674: */
4675:

Line 4680: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then

4676: ---------------------------------------------------------
4677: --call complex API to create party role instance
4678: ----------------------------------------------------------
4679: If (l_cplv_rec.object1_id1 is not null) and
4680: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
4681: l_cplv_rec.cle_id := lx_clev_rec.id;
4682:
4683: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
4684: -- to create records in tables

Line 4707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4703: x_cplv_rec => lx_cplv_rec,
4704: p_kplv_rec => l_kplv_rec,
4705: x_kplv_rec => lx_kplv_rec);
4706:
4707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_ERROR;
4711: END IF;

Line 4708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4704: p_kplv_rec => l_kplv_rec,
4705: x_kplv_rec => lx_kplv_rec);
4706:
4707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_ERROR;
4711: END IF;
4712: End If;

Line 4709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4705: x_kplv_rec => lx_kplv_rec);
4706:
4707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_ERROR;
4711: END IF;
4712: End If;
4713:

Line 4710: RAISE OKL_API.G_EXCEPTION_ERROR;

4706:
4707: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4710: RAISE OKL_API.G_EXCEPTION_ERROR;
4711: END IF;
4712: End If;
4713:
4714: --reinitialize asset subsidy record with final values for output

Line 4724: IF lx_cplv_rec.object1_id1 is not NULL AND lx_cplv_rec.object1_id1 <> OKL_API.G_MISS_NUM then

4720: l_asb_rec.subsidy_override_amount := lx_klev_rec.subsidy_override_amount;
4721: l_asb_rec.dnz_chr_id := lx_clev_rec.dnz_chr_id;
4722: l_asb_rec.asset_cle_id := lx_clev_rec.cle_id;
4723:
4724: IF lx_cplv_rec.object1_id1 is not NULL AND lx_cplv_rec.object1_id1 <> OKL_API.G_MISS_NUM then
4725: l_asb_rec.cpl_id := lx_cplv_rec.id;
4726: l_asb_rec.vendor_id := to_number(lx_cplv_rec.object1_id1);
4727: --get vendor name
4728: open l_vendor_csr(p_vendor_id => l_asb_rec.vendor_id);

Line 4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4747: x_msg_data => x_msg_data,
4748: p_asb_rec => l_asb_rec,
4749: x_asb_rec => lx_calc_asb_rec);
4750:
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;

Line 4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4748: p_asb_rec => l_asb_rec,
4749: x_asb_rec => lx_calc_asb_rec);
4750:
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4756:

Line 4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4749: x_asb_rec => lx_calc_asb_rec);
4750:
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4756:
4757: --dbms_output.put_line(to_char(lx_calc_asb_rec.amount));

Line 4754: RAISE OKL_API.G_EXCEPTION_ERROR;

4750:
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4756:
4757: --dbms_output.put_line(to_char(lx_calc_asb_rec.amount));
4758: l_asb_rec := lx_calc_asb_rec;

Line 4773: IF(OKL_LLA_UTIL_PVT.is_lease_contract(lx_clev_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN

4769:
4770: /*
4771: * sjalasut: aug 25, 04 added code to enable business event. BEGIN
4772: */
4773: IF(OKL_LLA_UTIL_PVT.is_lease_contract(lx_clev_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
4774: raise_business_event(p_api_version => p_api_version,
4775: p_init_msg_list => p_init_msg_list,
4776: p_chr_id => lx_clev_rec.dnz_chr_id,
4777: p_asset_id => lx_clev_rec.cle_id,

Line 4784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4780: x_return_status => x_return_status,
4781: x_msg_count => x_msg_count,
4782: x_msg_data => x_msg_data
4783: );
4784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4787: RAISE OKL_API.G_EXCEPTION_ERROR;
4788: END IF;

Line 4785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4781: x_msg_count => x_msg_count,
4782: x_msg_data => x_msg_data
4783: );
4784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4787: RAISE OKL_API.G_EXCEPTION_ERROR;
4788: END IF;
4789: END IF;

Line 4786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4782: x_msg_data => x_msg_data
4783: );
4784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4787: RAISE OKL_API.G_EXCEPTION_ERROR;
4788: END IF;
4789: END IF;
4790: /*

Line 4787: RAISE OKL_API.G_EXCEPTION_ERROR;

4783: );
4784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4787: RAISE OKL_API.G_EXCEPTION_ERROR;
4788: END IF;
4789: END IF;
4790: /*
4791: * sjalasut: aug 25, 04 added code to enable business event. END

Line 4795: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

4791: * sjalasut: aug 25, 04 added code to enable business event. END
4792: */
4793:
4794:
4795: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4796: EXCEPTION
4797: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4798: If l_vendor_csr%ISOPEN then
4799: close l_vendor_csr;

Line 4797: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4793:
4794:
4795: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4796: EXCEPTION
4797: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4798: If l_vendor_csr%ISOPEN then
4799: close l_vendor_csr;
4800: End If;
4801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

Line 4801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4797: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4798: If l_vendor_csr%ISOPEN then
4799: close l_vendor_csr;
4800: End If;
4801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4802: l_api_name,
4803: G_PKG_NAME,
4804: 'OKL_API.G_RET_STS_ERROR',
4805: x_msg_count,

Line 4804: 'OKL_API.G_RET_STS_ERROR',

4800: End If;
4801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4802: l_api_name,
4803: G_PKG_NAME,
4804: 'OKL_API.G_RET_STS_ERROR',
4805: x_msg_count,
4806: x_msg_data,
4807: '_PVT');
4808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4804: 'OKL_API.G_RET_STS_ERROR',
4805: x_msg_count,
4806: x_msg_data,
4807: '_PVT');
4808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4809: If l_vendor_csr%ISOPEN then
4810: close l_vendor_csr;
4811: End If;
4812: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

Line 4812: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4809: If l_vendor_csr%ISOPEN then
4810: close l_vendor_csr;
4811: End If;
4812: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4813: l_api_name,
4814: G_PKG_NAME,
4815: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4816: x_msg_count,

Line 4815: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4811: End If;
4812: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4813: l_api_name,
4814: G_PKG_NAME,
4815: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4816: x_msg_count,
4817: x_msg_data,
4818: '_PVT');
4819: WHEN OTHERS THEN

Line 4823: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4819: WHEN OTHERS THEN
4820: If l_vendor_csr%ISOPEN then
4821: close l_vendor_csr;
4822: End If;
4823: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4824: l_api_name,
4825: G_PKG_NAME,
4826: 'OTHERS',
4827: x_msg_count,

Line 4845: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4841: x_msg_data OUT NOCOPY VARCHAR2,
4842: p_asb_tbl IN asb_tbl_type,
4843: x_asb_tbl OUT NOCOPY asb_tbl_type) is
4844:
4845: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4846: l_api_name CONSTANT varchar2(30) := 'CREATE_ASSET_SUBSIDY';
4847: l_api_version CONSTANT NUMBER := 1.0;
4848: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4849: i NUMBER := 0;

Line 4853: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4849: i NUMBER := 0;
4850:
4851: l_asb_tbl asb_tbl_type;
4852: Begin
4853: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4854:
4855: l_asb_tbl := p_asb_tbl;
4856: If l_asb_tbl.COUNT > 0 then
4857: i := l_asb_tbl.FIRST;

Line 4877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4873: End If;
4874: -- end cklee 11/15/04
4875: */
4876: -- start cklee 11/15/04
4877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;

Line 4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4874: -- end cklee 11/15/04
4875: */
4876: -- start cklee 11/15/04
4877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4882: -- end cklee 11/15/04

Line 4879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4875: */
4876: -- start cklee 11/15/04
4877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4882: -- end cklee 11/15/04
4883:

Line 4880: RAISE OKL_API.G_EXCEPTION_ERROR;

4876: -- start cklee 11/15/04
4877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4882: -- end cklee 11/15/04
4883:
4884: EXIT WHEN (i = l_asb_tbl.LAST);

Line 4905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

4901: x_msg_count => x_msg_count,
4902: x_msg_data => x_msg_data,
4903: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
4904:
4905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4908: RAISE OKL_API.G_EXCEPTION_ERROR;
4909: END IF;

Line 4906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4902: x_msg_data => x_msg_data,
4903: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
4904:
4905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4908: RAISE OKL_API.G_EXCEPTION_ERROR;
4909: END IF;
4910: -- end cklee 03/15/04

Line 4907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

4903: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
4904:
4905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4908: RAISE OKL_API.G_EXCEPTION_ERROR;
4909: END IF;
4910: -- end cklee 03/15/04
4911:

Line 4908: RAISE OKL_API.G_EXCEPTION_ERROR;

4904:
4905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4908: RAISE OKL_API.G_EXCEPTION_ERROR;
4909: END IF;
4910: -- end cklee 03/15/04
4911:
4912: End If;

Line 4914: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4910: -- end cklee 03/15/04
4911:
4912: End If;
4913: EXCEPTION
4914: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4915: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4916: l_api_name,
4917: G_PKG_NAME,
4918: 'OKL_API.G_RET_STS_ERROR',

Line 4915: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4911:
4912: End If;
4913: EXCEPTION
4914: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4915: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4916: l_api_name,
4917: G_PKG_NAME,
4918: 'OKL_API.G_RET_STS_ERROR',
4919: x_msg_count,

Line 4918: 'OKL_API.G_RET_STS_ERROR',

4914: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4915: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4916: l_api_name,
4917: G_PKG_NAME,
4918: 'OKL_API.G_RET_STS_ERROR',
4919: x_msg_count,
4920: x_msg_data,
4921: '_PVT');
4922: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4922: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4918: 'OKL_API.G_RET_STS_ERROR',
4919: x_msg_count,
4920: x_msg_data,
4921: '_PVT');
4922: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4923: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4924: l_api_name,
4925: G_PKG_NAME,
4926: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 4923: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4919: x_msg_count,
4920: x_msg_data,
4921: '_PVT');
4922: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4923: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4924: l_api_name,
4925: G_PKG_NAME,
4926: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4927: x_msg_count,

Line 4926: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4922: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4923: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4924: l_api_name,
4925: G_PKG_NAME,
4926: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4927: x_msg_count,
4928: x_msg_data,
4929: '_PVT');
4930: WHEN OTHERS THEN

Line 4931: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4927: x_msg_count,
4928: x_msg_data,
4929: '_PVT');
4930: WHEN OTHERS THEN
4931: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4932: l_api_name,
4933: G_PKG_NAME,
4934: 'OTHERS',
4935: x_msg_count,

Line 4953: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

4949: x_msg_data OUT NOCOPY VARCHAR2,
4950: p_asb_rec IN asb_rec_type,
4951: x_asb_rec OUT NOCOPY asb_rec_type) is
4952:
4953: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4954: l_api_name CONSTANT varchar2(30) := 'UPDATE_ASSET_SUBSIDY';
4955: l_api_version CONSTANT NUMBER := 1.0;
4956:
4957: l_asb_rec asb_rec_type;

Line 5001: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4997: l_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
4998: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
4999:
5000: begin
5001: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5002: -- Call start_activity to create savepoint, check compatibility
5003: -- and initialize message list
5004: x_return_status := OKL_API.START_ACTIVITY (
5005: l_api_name

Line 5004: x_return_status := OKL_API.START_ACTIVITY (

5000: begin
5001: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5002: -- Call start_activity to create savepoint, check compatibility
5003: -- and initialize message list
5004: x_return_status := OKL_API.START_ACTIVITY (
5005: l_api_name
5006: ,p_init_msg_list
5007: ,'_PVT'
5008: ,x_return_status);

Line 5010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5006: ,p_init_msg_list
5007: ,'_PVT'
5008: ,x_return_status);
5009: -- Check if activity started successfully
5010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_ERROR;
5014: END IF;

Line 5011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5007: ,'_PVT'
5008: ,x_return_status);
5009: -- Check if activity started successfully
5010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_ERROR;
5014: END IF;
5015:

Line 5012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5008: ,x_return_status);
5009: -- Check if activity started successfully
5010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_ERROR;
5014: END IF;
5015:
5016: --Bug# 4959361

Line 5013: RAISE OKL_API.G_EXCEPTION_ERROR;

5009: -- Check if activity started successfully
5010: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5012: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5013: RAISE OKL_API.G_EXCEPTION_ERROR;
5014: END IF;
5015:
5016: --Bug# 4959361
5017: OKL_LLA_UTIL_PVT.check_line_update_allowed

Line 5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5021: x_msg_count => x_msg_count,
5022: x_msg_data => x_msg_data,
5023: p_cle_id => p_asb_rec.subsidy_cle_id);
5024:
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;

Line 5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5022: x_msg_data => x_msg_data,
5023: p_cle_id => p_asb_rec.subsidy_cle_id);
5024:
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030: --Bug# 4959361

Line 5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5023: p_cle_id => p_asb_rec.subsidy_cle_id);
5024:
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030: --Bug# 4959361
5031:

Line 5028: RAISE OKL_API.G_EXCEPTION_ERROR;

5024:
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5028: RAISE OKL_API.G_EXCEPTION_ERROR;
5029: END IF;
5030: --Bug# 4959361
5031:
5032: l_asb_rec := p_asb_rec;

Line 5042: If nvl(l_asb_rec.vendor_id,-1) <> OKL_API.G_MISS_NUM and

5038:
5039: -------------------------------------------------------------------
5040: --Begin delete the party payment details if vendor changes
5041: -------------------------------------------------------------------
5042: If nvl(l_asb_rec.vendor_id,-1) <> OKL_API.G_MISS_NUM and
5043: nvl(l_asb_rec.vendor_id,-1) <> nvl(l_db_asb_rec.vendor_id,-1) Then
5044:
5045: ----------------------------------------
5046: --check if it is a rebook copy contract

Line 5052: okl_api.set_message(p_app_name => G_APP_NAME,

5048: -------------------------------------------
5049: l_rbk_cpy := is_rebook_copy(p_chr_id => l_db_asb_rec.dnz_chr_id);
5050: If l_rbk_cpy = 'Y' then
5051: If l_asb_rec.vendor_id <> l_db_asb_rec.vendor_id then
5052: okl_api.set_message(p_app_name => G_APP_NAME,
5053: p_msg_name => G_PARTY_UPDATE_INVALID,
5054: p_token1 => G_SUBSIDY_TOKEN,
5055: p_token1_value => l_db_asb_rec.name
5056: );

Line 5057: x_return_status := OKL_API.G_RET_STS_ERROR;

5053: p_msg_name => G_PARTY_UPDATE_INVALID,
5054: p_token1 => G_SUBSIDY_TOKEN,
5055: p_token1_value => l_db_asb_rec.name
5056: );
5057: x_return_status := OKL_API.G_RET_STS_ERROR;
5058: Raise OKL_API.G_EXCEPTION_ERROR;
5059: End If;
5060: End If;
5061: -----------------------------------------

Line 5058: Raise OKL_API.G_EXCEPTION_ERROR;

5054: p_token1 => G_SUBSIDY_TOKEN,
5055: p_token1_value => l_db_asb_rec.name
5056: );
5057: x_return_status := OKL_API.G_RET_STS_ERROR;
5058: Raise OKL_API.G_EXCEPTION_ERROR;
5059: End If;
5060: End If;
5061: -----------------------------------------
5062: --End of rebook check

Line 5066: l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM Then

5062: --End of rebook check
5063: -----------------------------------------
5064:
5065: If l_db_asb_rec.cpl_id is not Null and
5066: l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM Then
5067: --fetch if any party refund details record
5068: open l_ppyd_csr(p_cpl_id => l_db_asb_rec.cpl_id);
5069: fetch l_ppyd_csr into l_ppyd_id;
5070: If l_ppyd_csr%NOTFOUND then

Line 5087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5083: x_msg_count => x_msg_count,
5084: x_msg_data => x_msg_data,
5085: p_ppydv_rec => l_ppydv_rec);
5086:
5087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;

Line 5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5084: x_msg_data => x_msg_data,
5085: p_ppydv_rec => l_ppydv_rec);
5086:
5087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092: End If;

Line 5089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5085: p_ppydv_rec => l_ppydv_rec);
5086:
5087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092: End If;
5093: End If;

Line 5090: RAISE OKL_API.G_EXCEPTION_ERROR;

5086:
5087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092: End If;
5093: End If;
5094: End If;

Line 5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5107: x_clev_rec => lx_def_clev_rec,
5108: x_klev_rec => lx_def_klev_rec,
5109: x_cplv_rec => lx_def_cplv_rec);
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;

Line 5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5108: x_klev_rec => lx_def_klev_rec,
5109: x_cplv_rec => lx_def_cplv_rec);
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116:

Line 5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5109: x_cplv_rec => lx_def_cplv_rec);
5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116:
5117: l_clev_rec := lx_def_clev_rec;

Line 5114: RAISE OKL_API.G_EXCEPTION_ERROR;

5110:
5111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5114: RAISE OKL_API.G_EXCEPTION_ERROR;
5115: END IF;
5116:
5117: l_clev_rec := lx_def_clev_rec;
5118: l_klev_rec := lx_def_klev_rec;

Line 5124: If l_klev_rec.subsidy_id <> OKL_API.G_MISS_NUM then

5120:
5121: ------------------------------------------------------------
5122: --fill up l_asb_rec for validation
5123: ------------------------------------------------------------
5124: If l_klev_rec.subsidy_id <> OKL_API.G_MISS_NUM then
5125: l_asb_rec.subsidy_id := l_klev_rec.subsidy_id;
5126: Else
5127: l_asb_rec.subsidy_id := l_db_asb_rec.subsidy_id;
5128: End If;

Line 5136: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then

5132: l_asb_rec.amount := l_klev_rec.amount;
5133: l_asb_rec.subsidy_override_amount := l_klev_rec.subsidy_override_amount;
5134: l_asb_rec.dnz_chr_id := l_db_asb_rec.dnz_chr_id;
5135: l_asb_rec.asset_cle_id := l_db_asb_rec.asset_cle_id;
5136: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
5137: l_asb_rec.cpl_id := l_cplv_rec.id;
5138: Else
5139: l_asb_rec.cpl_id := l_db_asb_rec.cpl_id;
5140: End If;

Line 5141: If (l_cplv_rec.object1_id1 is not null) and (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then

5137: l_asb_rec.cpl_id := l_cplv_rec.id;
5138: Else
5139: l_asb_rec.cpl_id := l_db_asb_rec.cpl_id;
5140: End If;
5141: If (l_cplv_rec.object1_id1 is not null) and (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
5142: l_asb_rec.vendor_id := to_number(l_cplv_rec.object1_id1);
5143: --get vendor name
5144: open l_vendor_csr(p_vendor_id => l_asb_rec.vendor_id);
5145: fetch l_vendor_csr into l_vendor_name;

Line 5168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5164: x_msg_count => x_msg_count,
5165: x_msg_data => x_msg_data,
5166: p_asb_rec => l_asb_rec);
5167:
5168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_ERROR;
5172: END IF;

Line 5169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5165: x_msg_data => x_msg_data,
5166: p_asb_rec => l_asb_rec);
5167:
5168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_ERROR;
5172: END IF;
5173:

Line 5170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5166: p_asb_rec => l_asb_rec);
5167:
5168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_ERROR;
5172: END IF;
5173:
5174: ---------------------------------------------------------

Line 5171: RAISE OKL_API.G_EXCEPTION_ERROR;

5167:
5168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_ERROR;
5172: END IF;
5173:
5174: ---------------------------------------------------------
5175: --call complex API to update line instance

Line 5179: If l_clev_rec.id <> OKL_API.G_MISS_NUM then

5175: --call complex API to update line instance
5176: ----------------------------------------------------------
5177: --dbms_output.put_line(to_char(l_klev_rec.amount));
5178: --dbms_output.put_line('before update ' ||to_char(l_klev_rec.subsidy_override_amount));
5179: If l_clev_rec.id <> OKL_API.G_MISS_NUM then
5180:
5181: OKL_CONTRACT_PUB.update_contract_line(
5182: p_api_version => p_api_version,
5183: p_init_msg_list => p_init_msg_list,

Line 5192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5188: p_klev_rec => l_klev_rec,
5189: x_clev_rec => lx_clev_rec,
5190: x_klev_rec => lx_klev_rec);
5191:
5192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;

Line 5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5189: x_clev_rec => lx_clev_rec,
5190: x_klev_rec => lx_klev_rec);
5191:
5192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197: End If;

Line 5194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5190: x_klev_rec => lx_klev_rec);
5191:
5192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197: End If;
5198: --dbms_output.put_line('After update :'||to_char(l_klev_rec.subsidy_override_amount));

Line 5195: RAISE OKL_API.G_EXCEPTION_ERROR;

5191:
5192: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5193: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5194: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5195: RAISE OKL_API.G_EXCEPTION_ERROR;
5196: END IF;
5197: End If;
5198: --dbms_output.put_line('After update :'||to_char(l_klev_rec.subsidy_override_amount));
5199:

Line 5213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5209: x_msg_count => x_msg_count,
5210: x_msg_data => x_msg_data,
5211: p_asb_rec => l_asb_rec);
5212:
5213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_ERROR;
5217: END IF;

Line 5214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5210: x_msg_data => x_msg_data,
5211: p_asb_rec => l_asb_rec);
5212:
5213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_ERROR;
5217: END IF;
5218: -- end cklee 01/22/04

Line 5215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5211: p_asb_rec => l_asb_rec);
5212:
5213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_ERROR;
5217: END IF;
5218: -- end cklee 01/22/04
5219: */

Line 5216: RAISE OKL_API.G_EXCEPTION_ERROR;

5212:
5213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_ERROR;
5217: END IF;
5218: -- end cklee 01/22/04
5219: */
5220: ---------------------------------------------------------

Line 5224: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then

5220: ---------------------------------------------------------
5221: -- call complex API to create or update party role instance
5222: -- depending on existence
5223: ----------------------------------------------------------
5224: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
5225: If l_cplv_rec.id is null then
5226: --no record exists create
5227: If (l_cplv_rec.object1_id1 is not null) and
5228: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then

Line 5228: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then

5224: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
5225: If l_cplv_rec.id is null then
5226: --no record exists create
5227: If (l_cplv_rec.object1_id1 is not null) and
5228: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
5229: l_cplv_rec.cle_id := l_clev_rec.id;
5230: l_cplv_rec.id := OKL_API.G_MISS_NUM;
5231:
5232: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api

Line 5230: l_cplv_rec.id := OKL_API.G_MISS_NUM;

5226: --no record exists create
5227: If (l_cplv_rec.object1_id1 is not null) and
5228: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
5229: l_cplv_rec.cle_id := l_clev_rec.id;
5230: l_cplv_rec.id := OKL_API.G_MISS_NUM;
5231:
5232: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
5233: -- to create records in tables
5234: -- okc_k_party_roles_b and okl_k_party_roles

Line 5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5254: x_cplv_rec => lx_cplv_rec,
5255: p_kplv_rec => l_kplv_rec,
5256: x_kplv_rec => lx_kplv_rec);
5257:
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;

Line 5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5255: p_kplv_rec => l_kplv_rec,
5256: x_kplv_rec => lx_kplv_rec);
5257:
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: End If;

Line 5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5256: x_kplv_rec => lx_kplv_rec);
5257:
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: End If;
5264: Elsif l_cplv_rec.id is not null then

Line 5261: RAISE OKL_API.G_EXCEPTION_ERROR;

5257:
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: End If;
5264: Elsif l_cplv_rec.id is not null then
5265: --update

Line 5293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5289: p_kplv_rec => l_kplv_rec,
5290: x_kplv_rec => lx_kplv_rec
5291: );
5292:
5293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5296: RAISE OKL_API.G_EXCEPTION_ERROR;
5297: END IF;

Line 5294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5290: x_kplv_rec => lx_kplv_rec
5291: );
5292:
5293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5296: RAISE OKL_API.G_EXCEPTION_ERROR;
5297: END IF;
5298: End If;

Line 5295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5291: );
5292:
5293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5296: RAISE OKL_API.G_EXCEPTION_ERROR;
5297: END IF;
5298: End If;
5299: End If;

Line 5296: RAISE OKL_API.G_EXCEPTION_ERROR;

5292:
5293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5296: RAISE OKL_API.G_EXCEPTION_ERROR;
5297: END IF;
5298: End If;
5299: End If;
5300:

Line 5313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5309: x_msg_data => x_msg_data,
5310: p_asb_rec => l_asb_rec,
5311: x_asb_rec => lx_calc_asb_rec);
5312:
5313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: RAISE OKL_API.G_EXCEPTION_ERROR;
5317: END IF;

Line 5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5310: p_asb_rec => l_asb_rec,
5311: x_asb_rec => lx_calc_asb_rec);
5312:
5313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: RAISE OKL_API.G_EXCEPTION_ERROR;
5317: END IF;
5318:

Line 5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5311: x_asb_rec => lx_calc_asb_rec);
5312:
5313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: RAISE OKL_API.G_EXCEPTION_ERROR;
5317: END IF;
5318:
5319: l_asb_rec := lx_calc_asb_rec;

Line 5316: RAISE OKL_API.G_EXCEPTION_ERROR;

5312:
5313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: RAISE OKL_API.G_EXCEPTION_ERROR;
5317: END IF;
5318:
5319: l_asb_rec := lx_calc_asb_rec;
5320:

Line 5330: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

5326: --assign values to out record
5327: ----------------------------------------------------------------------------
5328: x_asb_rec := l_asb_rec;
5329:
5330: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5331: EXCEPTION
5332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5333: If l_vendor_csr%ISOPEN then
5334: close l_vendor_csr;

Line 5332: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5328: x_asb_rec := l_asb_rec;
5329:
5330: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5331: EXCEPTION
5332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5333: If l_vendor_csr%ISOPEN then
5334: close l_vendor_csr;
5335: End If;
5336: If l_ppyd_csr%ISOPEN then

Line 5339: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5335: End If;
5336: If l_ppyd_csr%ISOPEN then
5337: close l_ppyd_csr;
5338: End If;
5339: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5340: l_api_name,
5341: G_PKG_NAME,
5342: 'OKL_API.G_RET_STS_ERROR',
5343: x_msg_count,

Line 5342: 'OKL_API.G_RET_STS_ERROR',

5338: End If;
5339: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5340: l_api_name,
5341: G_PKG_NAME,
5342: 'OKL_API.G_RET_STS_ERROR',
5343: x_msg_count,
5344: x_msg_data,
5345: '_PVT');
5346: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5346: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5342: 'OKL_API.G_RET_STS_ERROR',
5343: x_msg_count,
5344: x_msg_data,
5345: '_PVT');
5346: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5347: If l_vendor_csr%ISOPEN then
5348: close l_vendor_csr;
5349: End If;
5350: If l_ppyd_csr%ISOPEN then

Line 5353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5349: End If;
5350: If l_ppyd_csr%ISOPEN then
5351: close l_ppyd_csr;
5352: End If;
5353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5354: l_api_name,
5355: G_PKG_NAME,
5356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5357: x_msg_count,

Line 5356: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5352: End If;
5353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5354: l_api_name,
5355: G_PKG_NAME,
5356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5357: x_msg_count,
5358: x_msg_data,
5359: '_PVT');
5360: WHEN OTHERS THEN

Line 5367: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5363: End If;
5364: If l_ppyd_csr%ISOPEN then
5365: close l_ppyd_csr;
5366: End If;
5367: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5368: l_api_name,
5369: G_PKG_NAME,
5370: 'OTHERS',
5371: x_msg_count,

Line 5389: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

5385: x_msg_data OUT NOCOPY VARCHAR2,
5386: p_asb_tbl IN asb_tbl_type,
5387: x_asb_tbl OUT NOCOPY asb_tbl_type) is
5388:
5389: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5390: l_api_name CONSTANT varchar2(30) := 'UPDATE_ASSET_SUBSIDY';
5391: l_api_version CONSTANT NUMBER := 1.0;
5392: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5393: i NUMBER := 0;

Line 5397: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5393: i NUMBER := 0;
5394:
5395: l_asb_tbl asb_tbl_type;
5396: Begin
5397: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5398:
5399: l_asb_tbl := p_asb_tbl;
5400: If l_asb_tbl.COUNT > 0 then
5401: i := l_asb_tbl.FIRST;

Line 5423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5419: End If;
5420: -- end cklee 11/15/04
5421: */
5422: -- start cklee 11/15/04
5423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5426: RAISE OKL_API.G_EXCEPTION_ERROR;
5427: END IF;

Line 5424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5420: -- end cklee 11/15/04
5421: */
5422: -- start cklee 11/15/04
5423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5426: RAISE OKL_API.G_EXCEPTION_ERROR;
5427: END IF;
5428: -- end cklee 11/15/04

Line 5425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5421: */
5422: -- start cklee 11/15/04
5423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5426: RAISE OKL_API.G_EXCEPTION_ERROR;
5427: END IF;
5428: -- end cklee 11/15/04
5429:

Line 5426: RAISE OKL_API.G_EXCEPTION_ERROR;

5422: -- start cklee 11/15/04
5423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5426: RAISE OKL_API.G_EXCEPTION_ERROR;
5427: END IF;
5428: -- end cklee 11/15/04
5429:
5430: EXIT WHEN (i = l_asb_tbl.LAST);

Line 5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5447: x_msg_count => x_msg_count,
5448: x_msg_data => x_msg_data,
5449: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
5450:
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;

Line 5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5448: x_msg_data => x_msg_data,
5449: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
5450:
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5456: -- end cklee 03/15/04

Line 5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5449: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
5450:
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5456: -- end cklee 03/15/04
5457:

Line 5454: RAISE OKL_API.G_EXCEPTION_ERROR;

5450:
5451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5454: RAISE OKL_API.G_EXCEPTION_ERROR;
5455: END IF;
5456: -- end cklee 03/15/04
5457:
5458: End If;

Line 5460: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5456: -- end cklee 03/15/04
5457:
5458: End If;
5459: EXCEPTION
5460: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5462: l_api_name,
5463: G_PKG_NAME,
5464: 'OKL_API.G_RET_STS_ERROR',

Line 5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5457:
5458: End If;
5459: EXCEPTION
5460: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5462: l_api_name,
5463: G_PKG_NAME,
5464: 'OKL_API.G_RET_STS_ERROR',
5465: x_msg_count,

Line 5464: 'OKL_API.G_RET_STS_ERROR',

5460: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5462: l_api_name,
5463: G_PKG_NAME,
5464: 'OKL_API.G_RET_STS_ERROR',
5465: x_msg_count,
5466: x_msg_data,
5467: '_PVT');
5468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5464: 'OKL_API.G_RET_STS_ERROR',
5465: x_msg_count,
5466: x_msg_data,
5467: '_PVT');
5468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5469: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5470: l_api_name,
5471: G_PKG_NAME,
5472: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5469: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5465: x_msg_count,
5466: x_msg_data,
5467: '_PVT');
5468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5469: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5470: l_api_name,
5471: G_PKG_NAME,
5472: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5473: x_msg_count,

Line 5472: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5468: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5469: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5470: l_api_name,
5471: G_PKG_NAME,
5472: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5473: x_msg_count,
5474: x_msg_data,
5475: '_PVT');
5476: WHEN OTHERS THEN

Line 5477: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5473: x_msg_count,
5474: x_msg_data,
5475: '_PVT');
5476: WHEN OTHERS THEN
5477: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5478: l_api_name,
5479: G_PKG_NAME,
5480: 'OTHERS',
5481: x_msg_count,

Line 5498: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

5494: x_msg_count OUT NOCOPY NUMBER,
5495: x_msg_data OUT NOCOPY VARCHAR2,
5496: p_asb_rec IN asb_rec_type) is
5497:
5498: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5499: l_api_name CONSTANT varchar2(30) := 'DELETE_ASSET_SUBSIDY';
5500: l_api_version CONSTANT NUMBER := 1.0;
5501:
5502: l_asb_rec asb_rec_type;

Line 5523: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5519:
5520: --Bug# 4558486
5521: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
5522: begin
5523: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5524: -- Call start_activity to create savepoint, check compatibility
5525: -- and initialize message list
5526: x_return_status := OKL_API.START_ACTIVITY (
5527: l_api_name

Line 5526: x_return_status := OKL_API.START_ACTIVITY (

5522: begin
5523: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5524: -- Call start_activity to create savepoint, check compatibility
5525: -- and initialize message list
5526: x_return_status := OKL_API.START_ACTIVITY (
5527: l_api_name
5528: ,p_init_msg_list
5529: ,'_PVT'
5530: ,x_return_status);

Line 5532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5528: ,p_init_msg_list
5529: ,'_PVT'
5530: ,x_return_status);
5531: -- Check if activity started successfully
5532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5535: RAISE OKL_API.G_EXCEPTION_ERROR;
5536: END IF;

Line 5533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5529: ,'_PVT'
5530: ,x_return_status);
5531: -- Check if activity started successfully
5532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5535: RAISE OKL_API.G_EXCEPTION_ERROR;
5536: END IF;
5537:

Line 5534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5530: ,x_return_status);
5531: -- Check if activity started successfully
5532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5535: RAISE OKL_API.G_EXCEPTION_ERROR;
5536: END IF;
5537:
5538: l_asb_rec := p_asb_rec;

Line 5535: RAISE OKL_API.G_EXCEPTION_ERROR;

5531: -- Check if activity started successfully
5532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5535: RAISE OKL_API.G_EXCEPTION_ERROR;
5536: END IF;
5537:
5538: l_asb_rec := p_asb_rec;
5539: l_db_asb_rec := get_rec(l_asb_rec,l_row_notfound);

Line 5554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5550: x_msg_count => x_msg_count,
5551: x_msg_data => x_msg_data,
5552: p_cle_id => l_db_asb_rec.subsidy_cle_id);
5553:
5554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5557: RAISE OKL_API.G_EXCEPTION_ERROR;
5558: END IF;

Line 5555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5551: x_msg_data => x_msg_data,
5552: p_cle_id => l_db_asb_rec.subsidy_cle_id);
5553:
5554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5557: RAISE OKL_API.G_EXCEPTION_ERROR;
5558: END IF;
5559: --Bug# 4959361

Line 5556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5552: p_cle_id => l_db_asb_rec.subsidy_cle_id);
5553:
5554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5557: RAISE OKL_API.G_EXCEPTION_ERROR;
5558: END IF;
5559: --Bug# 4959361
5560:

Line 5557: RAISE OKL_API.G_EXCEPTION_ERROR;

5553:
5554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5557: RAISE OKL_API.G_EXCEPTION_ERROR;
5558: END IF;
5559: --Bug# 4959361
5560:
5561: ----------------------------------------------------------------------------

Line 5565: l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM Then

5561: ----------------------------------------------------------------------------
5562: --Begin : Delete party refund details if they exist
5563: ----------------------------------------------------------------------------
5564: If l_db_asb_rec.cpl_id is not Null and
5565: l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM Then
5566: --fetch if any party refund details record
5567: open l_ppyd_csr(p_cpl_id => l_db_asb_rec.cpl_id);
5568: fetch l_ppyd_csr into l_ppyd_id;
5569: If l_ppyd_csr%NOTFOUND then

Line 5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5582: x_msg_count => x_msg_count,
5583: x_msg_data => x_msg_data,
5584: p_ppydv_rec => l_ppydv_rec);
5585:
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;

Line 5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5583: x_msg_data => x_msg_data,
5584: p_ppydv_rec => l_ppydv_rec);
5585:
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5591: End If;

Line 5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5584: p_ppydv_rec => l_ppydv_rec);
5585:
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5591: End If;
5592: End If;

Line 5589: RAISE OKL_API.G_EXCEPTION_ERROR;

5585:
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5591: End If;
5592: End If;
5593:

Line 5602: (l_db_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM) then

5598: ----------------------------------------------------------------
5599: --call line api to delete line
5600: ----------------------------------------------------------------
5601: If (l_db_asb_rec.subsidy_cle_id is not null) and
5602: (l_db_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM) then
5603:
5604: l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;
5605: l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
5606:

Line 5616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5612: x_msg_data => x_msg_data,
5613: p_clev_rec => l_clev_rec,
5614: p_klev_rec => l_klev_rec);
5615:
5616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5619: RAISE OKL_API.G_EXCEPTION_ERROR;
5620: END IF;

Line 5617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5613: p_clev_rec => l_clev_rec,
5614: p_klev_rec => l_klev_rec);
5615:
5616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5619: RAISE OKL_API.G_EXCEPTION_ERROR;
5620: END IF;
5621: End If;

Line 5618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5614: p_klev_rec => l_klev_rec);
5615:
5616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5619: RAISE OKL_API.G_EXCEPTION_ERROR;
5620: END IF;
5621: End If;
5622:

Line 5619: RAISE OKL_API.G_EXCEPTION_ERROR;

5615:
5616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5619: RAISE OKL_API.G_EXCEPTION_ERROR;
5620: END IF;
5621: End If;
5622:
5623: ----------------------------------------------------------------

Line 5627: (l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM) then

5623: ----------------------------------------------------------------
5624: --call party api to delete party_role
5625: ----------------------------------------------------------------
5626: If (l_db_asb_rec.cpl_id is not null) and
5627: (l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM) then
5628:
5629: l_cplv_rec.id := l_db_asb_rec.cpl_id;
5630:
5631: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api

Line 5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5650: x_msg_data => x_msg_data,
5651: p_cplv_rec => l_cplv_rec,
5652: p_kplv_rec => l_kplv_rec);
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;

Line 5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5651: p_cplv_rec => l_cplv_rec,
5652: p_kplv_rec => l_kplv_rec);
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5659: --also will delete the party payment details once they are in place

Line 5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5652: p_kplv_rec => l_kplv_rec);
5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5659: --also will delete the party payment details once they are in place
5660: End If;

Line 5657: RAISE OKL_API.G_EXCEPTION_ERROR;

5653:
5654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_ERROR;
5658: END IF;
5659: --also will delete the party payment details once they are in place
5660: End If;
5661: ---------------------------------------------------------

Line 5673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5669: x_msg_data => x_msg_data,
5670: p_chr_id => l_db_asb_rec.dnz_chr_id,
5671: p_asset_cle_id => l_db_asb_rec.asset_cle_id);
5672:
5673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_ERROR;
5677: END IF;

Line 5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5670: p_chr_id => l_db_asb_rec.dnz_chr_id,
5671: p_asset_cle_id => l_db_asb_rec.asset_cle_id);
5672:
5673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_ERROR;
5677: END IF;
5678:

Line 5675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5671: p_asset_cle_id => l_db_asb_rec.asset_cle_id);
5672:
5673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_ERROR;
5677: END IF;
5678:
5679: /*

Line 5676: RAISE OKL_API.G_EXCEPTION_ERROR;

5672:
5673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_ERROR;
5677: END IF;
5678:
5679: /*
5680: * sjalasut: aug 25, 04 added code to enable business event. BEGIN

Line 5682: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_db_asb_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN

5678:
5679: /*
5680: * sjalasut: aug 25, 04 added code to enable business event. BEGIN
5681: */
5682: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_db_asb_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
5683: raise_business_event(p_api_version => l_api_version,
5684: p_init_msg_list => p_init_msg_list,
5685: p_chr_id => l_db_asb_rec.dnz_chr_id,
5686: p_asset_id => l_db_asb_rec.asset_cle_id,

Line 5693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5689: x_return_status => x_return_status,
5690: x_msg_count => x_msg_count,
5691: x_msg_data => x_msg_data
5692: );
5693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: END IF;

Line 5694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5690: x_msg_count => x_msg_count,
5691: x_msg_data => x_msg_data
5692: );
5693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: END IF;
5698: END IF;

Line 5695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5691: x_msg_data => x_msg_data
5692: );
5693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: END IF;
5698: END IF;
5699: /*

Line 5696: RAISE OKL_API.G_EXCEPTION_ERROR;

5692: );
5693: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5696: RAISE OKL_API.G_EXCEPTION_ERROR;
5697: END IF;
5698: END IF;
5699: /*
5700: * sjalasut: aug 25, 04 added code to enable business event. END

Line 5703: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

5699: /*
5700: * sjalasut: aug 25, 04 added code to enable business event. END
5701: */
5702:
5703: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5704: EXCEPTION
5705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5706: If l_ppyd_csr%isopen then
5707: close l_ppyd_csr;

Line 5705: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5701: */
5702:
5703: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5704: EXCEPTION
5705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5706: If l_ppyd_csr%isopen then
5707: close l_ppyd_csr;
5708: End If;
5709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

Line 5709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5705: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5706: If l_ppyd_csr%isopen then
5707: close l_ppyd_csr;
5708: End If;
5709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5710: l_api_name,
5711: G_PKG_NAME,
5712: 'OKL_API.G_RET_STS_ERROR',
5713: x_msg_count,

Line 5712: 'OKL_API.G_RET_STS_ERROR',

5708: End If;
5709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5710: l_api_name,
5711: G_PKG_NAME,
5712: 'OKL_API.G_RET_STS_ERROR',
5713: x_msg_count,
5714: x_msg_data,
5715: '_PVT');
5716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5712: 'OKL_API.G_RET_STS_ERROR',
5713: x_msg_count,
5714: x_msg_data,
5715: '_PVT');
5716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5717: If l_ppyd_csr%isopen then
5718: close l_ppyd_csr;
5719: End If;
5720: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

Line 5720: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5717: If l_ppyd_csr%isopen then
5718: close l_ppyd_csr;
5719: End If;
5720: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5721: l_api_name,
5722: G_PKG_NAME,
5723: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5724: x_msg_count,

Line 5723: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5719: End If;
5720: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5721: l_api_name,
5722: G_PKG_NAME,
5723: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5724: x_msg_count,
5725: x_msg_data,
5726: '_PVT');
5727: WHEN OTHERS THEN

Line 5731: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5727: WHEN OTHERS THEN
5728: If l_ppyd_csr%isopen then
5729: close l_ppyd_csr;
5730: End If;
5731: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5732: l_api_name,
5733: G_PKG_NAME,
5734: 'OTHERS',
5735: x_msg_count,

Line 5752: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

5748: x_msg_count OUT NOCOPY NUMBER,
5749: x_msg_data OUT NOCOPY VARCHAR2,
5750: p_asb_tbl IN asb_tbl_type) is
5751:
5752: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5753: l_api_name CONSTANT varchar2(30) := 'DELETE_ASSET_SUBSIDY';
5754: l_api_version CONSTANT NUMBER := 1.0;
5755: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5756: i NUMBER := 0;

Line 5760: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5756: i NUMBER := 0;
5757:
5758: l_asb_tbl asb_tbl_type;
5759: Begin
5760: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5761:
5762: l_asb_tbl := p_asb_tbl;
5763: If l_asb_tbl.COUNT > 0 then
5764: i := l_asb_tbl.FIRST;

Line 5784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5780: End If;
5781: -- end cklee 11/15/04
5782: */
5783: -- start cklee 11/15/04
5784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5787: RAISE OKL_API.G_EXCEPTION_ERROR;
5788: END IF;

Line 5785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5781: -- end cklee 11/15/04
5782: */
5783: -- start cklee 11/15/04
5784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5787: RAISE OKL_API.G_EXCEPTION_ERROR;
5788: END IF;
5789: -- end cklee 11/15/04

Line 5786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5782: */
5783: -- start cklee 11/15/04
5784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5787: RAISE OKL_API.G_EXCEPTION_ERROR;
5788: END IF;
5789: -- end cklee 11/15/04
5790:

Line 5787: RAISE OKL_API.G_EXCEPTION_ERROR;

5783: -- start cklee 11/15/04
5784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5787: RAISE OKL_API.G_EXCEPTION_ERROR;
5788: END IF;
5789: -- end cklee 11/15/04
5790:
5791: EXIT WHEN (i = l_asb_tbl.LAST);

Line 5801: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5797: -- end cklee 11/15/04
5798:
5799: End If;
5800: EXCEPTION
5801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5803: l_api_name,
5804: G_PKG_NAME,
5805: 'OKL_API.G_RET_STS_ERROR',

Line 5802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5798:
5799: End If;
5800: EXCEPTION
5801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5803: l_api_name,
5804: G_PKG_NAME,
5805: 'OKL_API.G_RET_STS_ERROR',
5806: x_msg_count,

Line 5805: 'OKL_API.G_RET_STS_ERROR',

5801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5803: l_api_name,
5804: G_PKG_NAME,
5805: 'OKL_API.G_RET_STS_ERROR',
5806: x_msg_count,
5807: x_msg_data,
5808: '_PVT');
5809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5805: 'OKL_API.G_RET_STS_ERROR',
5806: x_msg_count,
5807: x_msg_data,
5808: '_PVT');
5809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5811: l_api_name,
5812: G_PKG_NAME,
5813: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5806: x_msg_count,
5807: x_msg_data,
5808: '_PVT');
5809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5811: l_api_name,
5812: G_PKG_NAME,
5813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5814: x_msg_count,

Line 5813: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5811: l_api_name,
5812: G_PKG_NAME,
5813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5814: x_msg_count,
5815: x_msg_data,
5816: '_PVT');
5817: WHEN OTHERS THEN

Line 5818: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5814: x_msg_count,
5815: x_msg_data,
5816: '_PVT');
5817: WHEN OTHERS THEN
5818: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5819: l_api_name,
5820: G_PKG_NAME,
5821: 'OTHERS',
5822: x_msg_count,

Line 5840: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

5836: x_msg_count OUT NOCOPY NUMBER,
5837: x_msg_data OUT NOCOPY VARCHAR2,
5838: p_asb_tbl IN asb_tbl_type) is
5839:
5840: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5841: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
5842: l_api_version CONSTANT NUMBER := 1.0;
5843: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5844: i NUMBER := 0;

Line 5848: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5844: i NUMBER := 0;
5845:
5846: l_asb_tbl asb_tbl_type;
5847: Begin
5848: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5849:
5850: l_asb_tbl := p_asb_tbl;
5851: If l_asb_tbl.COUNT > 0 then
5852: i := l_asb_tbl.FIRST;

Line 5872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5868: End If;
5869: -- end cklee 11/15/04
5870: */
5871: -- start cklee 11/15/04
5872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;

Line 5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5869: -- end cklee 11/15/04
5870: */
5871: -- start cklee 11/15/04
5872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5877: -- end cklee 11/15/04

Line 5874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5870: */
5871: -- start cklee 11/15/04
5872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5877: -- end cklee 11/15/04
5878:

Line 5875: RAISE OKL_API.G_EXCEPTION_ERROR;

5871: -- start cklee 11/15/04
5872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_ERROR;
5876: END IF;
5877: -- end cklee 11/15/04
5878:
5879: EXIT WHEN (i = l_asb_tbl.LAST);

Line 5889: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5885: -- end cklee 11/15/04
5886:
5887: End If;
5888: EXCEPTION
5889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5890: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5891: l_api_name,
5892: G_PKG_NAME,
5893: 'OKL_API.G_RET_STS_ERROR',

Line 5890: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5886:
5887: End If;
5888: EXCEPTION
5889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5890: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5891: l_api_name,
5892: G_PKG_NAME,
5893: 'OKL_API.G_RET_STS_ERROR',
5894: x_msg_count,

Line 5893: 'OKL_API.G_RET_STS_ERROR',

5889: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5890: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5891: l_api_name,
5892: G_PKG_NAME,
5893: 'OKL_API.G_RET_STS_ERROR',
5894: x_msg_count,
5895: x_msg_data,
5896: '_PVT');
5897: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5897: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5893: 'OKL_API.G_RET_STS_ERROR',
5894: x_msg_count,
5895: x_msg_data,
5896: '_PVT');
5897: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5898: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5899: l_api_name,
5900: G_PKG_NAME,
5901: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5898: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5894: x_msg_count,
5895: x_msg_data,
5896: '_PVT');
5897: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5898: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5899: l_api_name,
5900: G_PKG_NAME,
5901: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5902: x_msg_count,

Line 5901: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5897: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5898: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5899: l_api_name,
5900: G_PKG_NAME,
5901: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5902: x_msg_count,
5903: x_msg_data,
5904: '_PVT');
5905: WHEN OTHERS THEN

Line 5906: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5902: x_msg_count,
5903: x_msg_data,
5904: '_PVT');
5905: WHEN OTHERS THEN
5906: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5907: l_api_name,
5908: G_PKG_NAME,
5909: 'OTHERS',
5910: x_msg_count,

Line 5929: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;

5925: p_asb_tbl IN asb_tbl_type,
5926: x_asb_tbl OUT NOCOPY asb_tbl_type) is
5927:
5928:
5929: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5930: l_api_name CONSTANT varchar2(30) := 'CALCULATE_ASSET_SUBSIDY';
5931: l_api_version CONSTANT NUMBER := 1.0;
5932: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5933: i NUMBER := 0;

Line 5937: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5933: i NUMBER := 0;
5934:
5935: l_asb_tbl asb_tbl_type;
5936: Begin
5937: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5938:
5939: l_asb_tbl := p_asb_tbl;
5940: If l_asb_tbl.COUNT > 0 then
5941: i := l_asb_tbl.FIRST;

Line 5963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

5959: -- end cklee 11/15/04
5960: */
5961:
5962: -- start cklee 11/15/04
5963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5966: RAISE OKL_API.G_EXCEPTION_ERROR;
5967: END IF;

Line 5964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5960: */
5961:
5962: -- start cklee 11/15/04
5963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5966: RAISE OKL_API.G_EXCEPTION_ERROR;
5967: END IF;
5968: -- end cklee 11/15/04

Line 5965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

5961:
5962: -- start cklee 11/15/04
5963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5966: RAISE OKL_API.G_EXCEPTION_ERROR;
5967: END IF;
5968: -- end cklee 11/15/04
5969:

Line 5966: RAISE OKL_API.G_EXCEPTION_ERROR;

5962: -- start cklee 11/15/04
5963: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5965: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5966: RAISE OKL_API.G_EXCEPTION_ERROR;
5967: END IF;
5968: -- end cklee 11/15/04
5969:
5970:

Line 5982: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5978:
5979: End If;
5980:
5981: EXCEPTION
5982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5984: l_api_name,
5985: G_PKG_NAME,
5986: 'OKL_API.G_RET_STS_ERROR',

Line 5983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5979: End If;
5980:
5981: EXCEPTION
5982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5984: l_api_name,
5985: G_PKG_NAME,
5986: 'OKL_API.G_RET_STS_ERROR',
5987: x_msg_count,

Line 5986: 'OKL_API.G_RET_STS_ERROR',

5982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5984: l_api_name,
5985: G_PKG_NAME,
5986: 'OKL_API.G_RET_STS_ERROR',
5987: x_msg_count,
5988: x_msg_data,
5989: '_PVT');
5990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5986: 'OKL_API.G_RET_STS_ERROR',
5987: x_msg_count,
5988: x_msg_data,
5989: '_PVT');
5990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5992: l_api_name,
5993: G_PKG_NAME,
5994: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5987: x_msg_count,
5988: x_msg_data,
5989: '_PVT');
5990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5992: l_api_name,
5993: G_PKG_NAME,
5994: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5995: x_msg_count,

Line 5994: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5992: l_api_name,
5993: G_PKG_NAME,
5994: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5995: x_msg_count,
5996: x_msg_data,
5997: '_PVT');
5998: WHEN OTHERS THEN

Line 5999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5995: x_msg_count,
5996: x_msg_data,
5997: '_PVT');
5998: WHEN OTHERS THEN
5999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6000: l_api_name,
6001: G_PKG_NAME,
6002: 'OTHERS',
6003: x_msg_count,