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 2886: OKL_API.set_message(

2882: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
2883:
2884: OPEN c_get_subsidy_name_csr(p_subsidy_id); FETCH c_get_subsidy_name_csr INTO lv_subsidy_name;
2885: CLOSE c_get_subsidy_name_csr;
2886: OKL_API.set_message(
2887: p_app_name => G_APP_NAME,
2888: p_msg_name => G_SUB_POOL_NOT_ACTIVE,
2889: p_token1 => 'SUBSIDY_NAME',
2890: p_token1_value => lv_subsidy_name ,

Line 2924: OKL_API.set_message(

2920: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
2921:
2922: OPEN c_get_subsidy_name_csr(p_subsidy_id); FETCH c_get_subsidy_name_csr INTO lv_subsidy_name;
2923: CLOSE c_get_subsidy_name_csr;
2924: OKL_API.set_message(
2925: p_app_name => G_APP_NAME,
2926: p_msg_name => G_SUB_POOL_ASSET_DATES_GAP,
2927: p_token1 => 'SUBSIDY_NAME',
2928: p_token1_value => lv_subsidy_name ,

Line 2960: RAISE OKL_API.G_EXCEPTION_ERROR;

2956: CLOSE c_get_subsidy_pool_name_csr;
2957: OKC_API.set_message(G_APP_NAME, G_NO_CONVERSION_BASIS
2958: ,'SUBSIDY', lv_subsidy_name
2959: ,'POOL_NAME',lv_subsidy_pool_name);
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961: -- return l_applicable;
2962: --END: 09/29/2005 bug#4634871
2963: END IF;
2964: -- write to log

Line 2998: OKL_API.set_message(

2994: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
2995:
2996: OPEN c_get_subsidy_name_csr(p_subsidy_id); FETCH c_get_subsidy_name_csr INTO lv_subsidy_name;
2997: CLOSE c_get_subsidy_name_csr;
2998: OKL_API.set_message(
2999: p_app_name => G_APP_NAME,
3000: p_msg_name => G_SUB_POOL_BALANCE_INVALID,
3001: p_token1 => 'SUBSIDY_NAME',
3002: p_token1_value => lv_subsidy_name ,

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

3026: 'okl_asset_subsidy_pvt.is_balance_valid_after_add returned with '|| lx_return_status||' x_msg_data '||lx_msg_data
3027: );
3028: END IF;
3029:
3030: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;

Line 3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

3027: );
3028: END IF;
3029:
3030: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:

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

3028: END IF;
3029:
3030: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3036: EXCEPTION WHEN OTHERS THEN

Line 3033: RAISE OKL_API.G_EXCEPTION_ERROR;

3029:
3030: IF (lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (lx_return_status = OKL_API.G_RET_STS_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3036: EXCEPTION WHEN OTHERS THEN
3037: RAISE G_EXCEPTION_HALT_VALIDATION;

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

3062: lv_return_status VARCHAR2(1);
3063: BEGIN
3064: lv_return_status := 'N';
3065: OPEN c_subsidy_csr; FETCH c_subsidy_csr INTO cv_subsidy; CLOSE c_subsidy_csr;
3066: IF(cv_subsidy.subsidy_pool_id IS NOT NULL AND cv_subsidy.subsidy_pool_id <> OKL_API.G_MISS_NUM)THEN
3067: x_subsidy_pool_id := cv_subsidy.subsidy_pool_id; -- this is the subsidy pool id
3068: x_sub_pool_curr_code := cv_subsidy.currency_code; -- this is the subsidy pool currency code
3069: lv_return_status := 'Y';
3070: END IF;

Line 3139: ,p_init_msg_list => OKL_API.G_TRUE

3135: lv_return_status := 'N';
3136: OPEN c_sub_pool_csr; FETCH c_sub_pool_csr INTO cv_sub_pool; CLOSE c_sub_pool_csr;
3137: lv_conversion_rate := 0;
3138: okl_accounting_util.get_curr_con_rate(p_api_version => l_api_version
3139: ,p_init_msg_list => OKL_API.G_TRUE
3140: ,x_return_status => x_return_status
3141: ,x_msg_count => x_msg_count
3142: ,x_msg_data => x_msg_data
3143: ,p_from_curr_code => p_trx_currency_code

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

3145: ,p_con_date => NVL(p_asset_date,TRUNC(SYSDATE)) -- since no trx is done, conv date is sysdate per PM
3146: ,p_con_type => cv_sub_pool.currency_conversion_type
3147: ,x_conv_rate => lv_conversion_rate
3148: );
3149: IF(x_return_status = OKL_API.G_RET_STS_SUCCESS OR lv_conversion_rate > 0)THEN
3150: lv_return_status := 'Y';
3151: END IF;
3152: x_conversion_rate := lv_conversion_rate;
3153: return lv_return_status;

Line 3246: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3242: l_subsidy_amount_tot NUMBER;
3243: -- END: cklee 09/27/2005: 4634792
3244:
3245: BEGIN
3246: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3247: -- first determine if subsidy pool is applicable
3248: lv_return_status := is_sub_assoc_with_pool(p_subsidy_id => p_subsidy_id
3249: ,x_subsidy_pool_id => lx_subsidy_pool_id
3250: ,x_sub_pool_curr_code => lx_sub_pool_curr_code

Line 3293: RAISE OKL_API.G_EXCEPTION_ERROR;

3289: ,'SUBSIDY', l_subsidy_name
3290: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3291: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3292: x_return_status := OKC_API.G_RET_STS_ERROR;
3293: RAISE OKL_API.G_EXCEPTION_ERROR;
3294: ELSE
3295: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3296: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3297: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3308: RAISE OKL_API.G_EXCEPTION_ERROR;

3304: ,'SUBSIDY', l_subsidy_name
3305: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3306: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3307: x_return_status := OKC_API.G_RET_STS_ERROR;
3308: RAISE OKL_API.G_EXCEPTION_ERROR;
3309: END IF;
3310: END IF;
3311:
3312: -- START: cklee 09/27/2005: 4634792

Line 3327: RAISE OKL_API.G_EXCEPTION_ERROR;

3323: ,'SUBSIDY', l_subsidy_name
3324: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3325: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3326: x_return_status := OKC_API.G_RET_STS_ERROR;
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: ELSE
3329: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3330: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3331: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3342: RAISE OKL_API.G_EXCEPTION_ERROR;

3338: ,'SUBSIDY', l_subsidy_name
3339: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3340: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3341: x_return_status := OKC_API.G_RET_STS_ERROR;
3342: RAISE OKL_API.G_EXCEPTION_ERROR;
3343: END IF;
3344: END IF;
3345: -- END: cklee 09/27/2005: 4634792
3346:

Line 3355: RAISE OKL_API.G_EXCEPTION_ERROR;

3351: ,'SUBSIDY', l_subsidy_name
3352: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3353: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3354: x_return_status := OKC_API.G_RET_STS_ERROR;
3355: RAISE OKL_API.G_EXCEPTION_ERROR;
3356: END IF; -- end of lv_return_status = 'Y' AND lx_conversion_rate > 0
3357: --START: cklee 09/12/2005
3358: ELSE
3359: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance

Line 3372: RAISE OKL_API.G_EXCEPTION_ERROR;

3368: ,'SUBSIDY', l_subsidy_name
3369: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3370: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3371: x_return_status := OKC_API.G_RET_STS_ERROR;
3372: RAISE OKL_API.G_EXCEPTION_ERROR;
3373: END IF;
3374: --END: cklee 09/12/2005
3375:
3376: -- START: cklee 09/27/2005: 4634792

Line 3390: RAISE OKL_API.G_EXCEPTION_ERROR;

3386: ,'SUBSIDY', l_subsidy_name
3387: --END: 24-Oct-2005 cklee - Fixed bug#4687505 |
3388: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3389: x_return_status := OKC_API.G_RET_STS_ERROR;
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: END IF;
3392: -- END: cklee 09/27/2005: 4634792
3393:
3394: END IF; -- end of cv_get_asset.currency_code <> lx_sub_pool_curr_code

Line 3455: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3451: lx_conversion_round_amt_tot NUMBER;
3452: l_amount_in_pool_curr_tot NUMBER;
3453:
3454: BEGIN
3455: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3456: -- first determine if subsidy pool is applicable
3457: lv_return_status := is_sub_assoc_with_pool(p_subsidy_id => p_subsidy_id
3458: ,x_subsidy_pool_id => lx_subsidy_pool_id
3459: ,x_sub_pool_curr_code => lx_sub_pool_curr_code

Line 3489: RAISE OKL_API.G_EXCEPTION_ERROR;

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

Line 3501: RAISE OKL_API.G_EXCEPTION_ERROR;

3497: 'TRX_AMOUNT', p_subsidy_amount
3498: ,'SUBSIDY', l_subsidy_name
3499: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3500: x_return_status := OKC_API.G_RET_STS_ERROR;
3501: RAISE OKL_API.G_EXCEPTION_ERROR;
3502: END IF;
3503: END IF;
3504:
3505: -- Check accumulated subsidy amount up to now for a specific pool

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: ELSE
3518: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance
3519: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);
3520: FETCH c_get_pool_amount_csr INTO cv_pool_amount;

Line 3528: RAISE OKL_API.G_EXCEPTION_ERROR;

3524: 'TRX_AMOUNT', p_tot_subsidy_amount
3525: ,'SUBSIDY', l_subsidy_name
3526: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3527: x_return_status := OKC_API.G_RET_STS_ERROR;
3528: RAISE OKL_API.G_EXCEPTION_ERROR;
3529: END IF;
3530: END IF;
3531:
3532: ELSE

Line 3537: RAISE OKL_API.G_EXCEPTION_ERROR;

3533: OKC_API.set_message(G_APP_NAME, G_NO_CONVERSION_BASIS
3534: ,'SUBSIDY', l_subsidy_name
3535: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3536: x_return_status := OKC_API.G_RET_STS_ERROR;
3537: RAISE OKL_API.G_EXCEPTION_ERROR;
3538: END IF; -- end of lv_return_status = 'Y' AND lx_conversion_rate > 0
3539:
3540: ELSE
3541: -- the amount of subsidy in pool currency should not be more than the total budget as we reduce this from the pool balance

Line 3551: RAISE OKL_API.G_EXCEPTION_ERROR;

3547: 'TRX_AMOUNT', p_subsidy_amount
3548: ,'SUBSIDY', l_subsidy_name
3549: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3550: x_return_status := OKC_API.G_RET_STS_ERROR;
3551: RAISE OKL_API.G_EXCEPTION_ERROR;
3552: END IF;
3553:
3554: -- Check accumulated subsidy amount up to now for a specific pool
3555: OPEN c_get_pool_amount_csr (p_subsidy_pool_id =>lx_subsidy_pool_id);

Line 3564: RAISE OKL_API.G_EXCEPTION_ERROR;

3560: 'TRX_AMOUNT', p_tot_subsidy_amount
3561: ,'SUBSIDY', l_subsidy_name
3562: ,'POOL_NAME',cv_pool_amount.subsidy_pool_name);
3563: x_return_status := OKC_API.G_RET_STS_ERROR;
3564: RAISE OKL_API.G_EXCEPTION_ERROR;
3565: END IF;
3566:
3567: END IF; -- end of cv_get_asset.currency_code <> lx_sub_pool_curr_code
3568: END IF; -- end for lv_return_status = 'Y' AND lx_subsidy_pool_id IS NOT NULL

Line 3571: x_return_status := OKL_API.G_RET_STS_ERROR;

3567: END IF; -- end of cv_get_asset.currency_code <> lx_sub_pool_curr_code
3568: END IF; -- end for lv_return_status = 'Y' AND lx_subsidy_pool_id IS NOT NULL
3569:
3570: EXCEPTION WHEN OTHERS THEN
3571: x_return_status := OKL_API.G_RET_STS_ERROR;
3572:
3573: END is_balance_valid_after_add;
3574: --END: 09-Dec-2005 cklee - Fixed bug#4874385 |
3575:

Line 3589: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3585: where subb.id = p_subsidy_id;
3586:
3587: l_exists varchar2(1) default 'N';
3588: BEGIN
3589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3590: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3591: p_subsidy_id IS NULL)
3592: THEN
3593: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');

Line 3590: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR

3586:
3587: l_exists varchar2(1) default 'N';
3588: BEGIN
3589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3590: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3591: p_subsidy_id IS NULL)
3592: THEN
3593: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');
3594: x_return_status := OKL_API.G_RET_STS_ERROR;

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

3589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3590: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3591: p_subsidy_id IS NULL)
3592: THEN
3593: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');
3594: x_return_status := OKL_API.G_RET_STS_ERROR;
3595: RAISE G_EXCEPTION_HALT_VALIDATION;
3596: ELSE
3597: --check foreign key validation

Line 3594: x_return_status := OKL_API.G_RET_STS_ERROR;

3590: IF (p_subsidy_id = OKL_API.G_MISS_NUM OR
3591: p_subsidy_id IS NULL)
3592: THEN
3593: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy Name');
3594: x_return_status := OKL_API.G_RET_STS_ERROR;
3595: RAISE G_EXCEPTION_HALT_VALIDATION;
3596: ELSE
3597: --check foreign key validation
3598: l_exists := 'N';

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

3602: null;
3603: End If;
3604: Close l_sub_csr;
3605: If l_exists = 'N' then
3606: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Name');
3607: x_return_status := OKL_API.G_RET_STS_ERROR;
3608: RAISE G_EXCEPTION_HALT_VALIDATION;
3609: End If;
3610: END IF;

Line 3607: x_return_status := OKL_API.G_RET_STS_ERROR;

3603: End If;
3604: Close l_sub_csr;
3605: If l_exists = 'N' then
3606: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy Name');
3607: x_return_status := OKL_API.G_RET_STS_ERROR;
3608: RAISE G_EXCEPTION_HALT_VALIDATION;
3609: End If;
3610: END IF;
3611: EXCEPTION

Line 3615: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3611: EXCEPTION
3612: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3613: null;
3614: WHEN OTHERS THEN
3615: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3616: ,p_msg_name => G_UNEXPECTED_ERROR
3617: ,p_token1 => G_SQLCODE_TOKEN
3618: ,p_token1_value => SQLCODE
3619: ,p_token2 => G_SQLERRM_TOKEN

Line 3621: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3617: ,p_token1 => G_SQLCODE_TOKEN
3618: ,p_token1_value => SQLCODE
3619: ,p_token2 => G_SQLERRM_TOKEN
3620: ,p_token2_value => SQLERRM);
3621: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3622: END validate_subsidy_id;
3623: -----------------------------------
3624: --2.validate subsidy_cle_id
3625: -----------------------------------

Line 3640: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3636: and cleb.sts_code <> 'ABANDONED';
3637:
3638: l_exists varchar2(1) default 'N';
3639: BEGIN
3640: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3641: IF (p_subsidy_cle_id <> OKL_API.G_MISS_NUM AND
3642: p_subsidy_cle_id IS NOT NULL)
3643: THEN
3644: --check foreign key validation

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

3637:
3638: l_exists varchar2(1) default 'N';
3639: BEGIN
3640: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3641: IF (p_subsidy_cle_id <> OKL_API.G_MISS_NUM AND
3642: p_subsidy_cle_id IS NOT NULL)
3643: THEN
3644: --check foreign key validation
3645: l_exists := 'N';

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

3649: null;
3650: End If;
3651: Close l_subcle_csr;
3652: If l_exists = 'N' then
3653: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3654: x_return_status := OKL_API.G_RET_STS_ERROR;
3655: RAISE G_EXCEPTION_HALT_VALIDATION;
3656: End If;
3657: END IF;

Line 3654: x_return_status := OKL_API.G_RET_STS_ERROR;

3650: End If;
3651: Close l_subcle_csr;
3652: If l_exists = 'N' then
3653: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3654: x_return_status := OKL_API.G_RET_STS_ERROR;
3655: RAISE G_EXCEPTION_HALT_VALIDATION;
3656: End If;
3657: END IF;
3658: EXCEPTION

Line 3662: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3658: EXCEPTION
3659: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3660: null;
3661: WHEN OTHERS THEN
3662: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3663: ,p_msg_name => G_UNEXPECTED_ERROR
3664: ,p_token1 => G_SQLCODE_TOKEN
3665: ,p_token1_value => SQLCODE
3666: ,p_token2 => G_SQLERRM_TOKEN

Line 3668: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3664: ,p_token1 => G_SQLCODE_TOKEN
3665: ,p_token1_value => SQLCODE
3666: ,p_token2 => G_SQLERRM_TOKEN
3667: ,p_token2_value => SQLERRM);
3668: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3669: END validate_subsidy_cle_id;
3670: -----------------------------------
3671: --3.validate dnz_chr_id
3672: -----------------------------------

Line 3686: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3682: --and chrb.sts_code in ('NEW','COMPLETE','PASSED','INCOMPLETE','TERMINATED','APPROVED');
3683:
3684: l_exists varchar2(1) default 'N';
3685: BEGIN
3686: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3687: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3688: p_dnz_chr_id IS NULL)
3689: THEN
3690: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');

Line 3687: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR

3683:
3684: l_exists varchar2(1) default 'N';
3685: BEGIN
3686: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3687: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3688: p_dnz_chr_id IS NULL)
3689: THEN
3690: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');
3691: x_return_status := OKL_API.G_RET_STS_ERROR;

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

3686: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3687: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3688: p_dnz_chr_id IS NULL)
3689: THEN
3690: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');
3691: x_return_status := OKL_API.G_RET_STS_ERROR;
3692: RAISE G_EXCEPTION_HALT_VALIDATION;
3693: ELSE
3694: --check foreign key validation

Line 3691: x_return_status := OKL_API.G_RET_STS_ERROR;

3687: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
3688: p_dnz_chr_id IS NULL)
3689: THEN
3690: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Identifier');
3691: x_return_status := OKL_API.G_RET_STS_ERROR;
3692: RAISE G_EXCEPTION_HALT_VALIDATION;
3693: ELSE
3694: --check foreign key validation
3695: l_exists := 'N';

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

3699: null;
3700: End If;
3701: Close l_chr_csr;
3702: If l_exists = 'N' then
3703: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract Identifier');
3704: x_return_status := OKL_API.G_RET_STS_ERROR;
3705: RAISE G_EXCEPTION_HALT_VALIDATION;
3706: End If;
3707: END IF;

Line 3704: x_return_status := OKL_API.G_RET_STS_ERROR;

3700: End If;
3701: Close l_chr_csr;
3702: If l_exists = 'N' then
3703: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract Identifier');
3704: x_return_status := OKL_API.G_RET_STS_ERROR;
3705: RAISE G_EXCEPTION_HALT_VALIDATION;
3706: End If;
3707: END IF;
3708: EXCEPTION

Line 3712: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3708: EXCEPTION
3709: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3710: null;
3711: WHEN OTHERS THEN
3712: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3713: ,p_msg_name => G_UNEXPECTED_ERROR
3714: ,p_token1 => G_SQLCODE_TOKEN
3715: ,p_token1_value => SQLCODE
3716: ,p_token2 => G_SQLERRM_TOKEN

Line 3718: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3714: ,p_token1 => G_SQLCODE_TOKEN
3715: ,p_token1_value => SQLCODE
3716: ,p_token2 => G_SQLERRM_TOKEN
3717: ,p_token2_value => SQLERRM);
3718: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3719: END validate_dnz_chr_id;
3720: -----------------------------------
3721: --4.validate asset_Cle_id
3722: -----------------------------------

Line 3736: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3732: --and cleb.sts_code in ('NEW','COMPLETE','PASSED','INCOMPLETE','TERMINATED','APPROVED');
3733:
3734: l_exists varchar2(1) default 'N';
3735: BEGIN
3736: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3737: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3738: p_asset_cle_id IS NULL)
3739: THEN
3740: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');

Line 3737: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR

3733:
3734: l_exists varchar2(1) default 'N';
3735: BEGIN
3736: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3737: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3738: p_asset_cle_id IS NULL)
3739: THEN
3740: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');
3741: x_return_status := OKL_API.G_RET_STS_ERROR;

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

3736: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3737: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3738: p_asset_cle_id IS NULL)
3739: THEN
3740: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');
3741: x_return_status := OKL_API.G_RET_STS_ERROR;
3742: RAISE G_EXCEPTION_HALT_VALIDATION;
3743: ELSE
3744: --check foreign key validation

Line 3741: x_return_status := OKL_API.G_RET_STS_ERROR;

3737: IF (p_asset_cle_id = OKL_API.G_MISS_NUM OR
3738: p_asset_cle_id IS NULL)
3739: THEN
3740: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Asset line identifier');
3741: x_return_status := OKL_API.G_RET_STS_ERROR;
3742: RAISE G_EXCEPTION_HALT_VALIDATION;
3743: ELSE
3744: --check foreign key validation
3745: l_exists := 'N';

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

3749: null;
3750: End If;
3751: Close l_cle_csr;
3752: If l_exists = 'N' then
3753: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset line identifier');
3754: x_return_status := OKL_API.G_RET_STS_ERROR;
3755: RAISE G_EXCEPTION_HALT_VALIDATION;
3756: End If;
3757: END IF;

Line 3754: x_return_status := OKL_API.G_RET_STS_ERROR;

3750: End If;
3751: Close l_cle_csr;
3752: If l_exists = 'N' then
3753: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset line identifier');
3754: x_return_status := OKL_API.G_RET_STS_ERROR;
3755: RAISE G_EXCEPTION_HALT_VALIDATION;
3756: End If;
3757: END IF;
3758: EXCEPTION

Line 3762: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3758: EXCEPTION
3759: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3760: null;
3761: WHEN OTHERS THEN
3762: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3763: ,p_msg_name => G_UNEXPECTED_ERROR
3764: ,p_token1 => G_SQLCODE_TOKEN
3765: ,p_token1_value => SQLCODE
3766: ,p_token2 => G_SQLERRM_TOKEN

Line 3768: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3764: ,p_token1 => G_SQLCODE_TOKEN
3765: ,p_token1_value => SQLCODE
3766: ,p_token2 => G_SQLERRM_TOKEN
3767: ,p_token2_value => SQLERRM);
3768: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3769: END validate_asset_cle_id;
3770: -----------------------------------
3771: --5.validate vendor_id
3772: -----------------------------------

Line 3784: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3780: where pov.vendor_id = p_vendor_id;
3781:
3782: l_exists varchar2(1) default 'N';
3783: BEGIN
3784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3785: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3786: p_vendor_id IS NULL)
3787: THEN
3788: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');

Line 3785: IF (p_vendor_id = OKL_API.G_MISS_NUM OR

3781:
3782: l_exists varchar2(1) default 'N';
3783: BEGIN
3784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3785: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3786: p_vendor_id IS NULL)
3787: THEN
3788: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');
3789: x_return_status := OKL_API.G_RET_STS_ERROR;

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

3784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3785: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3786: p_vendor_id IS NULL)
3787: THEN
3788: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');
3789: x_return_status := OKL_API.G_RET_STS_ERROR;
3790: RAISE G_EXCEPTION_HALT_VALIDATION;
3791: ELSE
3792: --check foreign key validation

Line 3789: x_return_status := OKL_API.G_RET_STS_ERROR;

3785: IF (p_vendor_id = OKL_API.G_MISS_NUM OR
3786: p_vendor_id IS NULL)
3787: THEN
3788: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Subsidy provider party');
3789: x_return_status := OKL_API.G_RET_STS_ERROR;
3790: RAISE G_EXCEPTION_HALT_VALIDATION;
3791: ELSE
3792: --check foreign key validation
3793: l_exists := 'N';

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

3797: null;
3798: End If;
3799: Close l_vendor_csr;
3800: If l_exists = 'N' then
3801: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy provider party');
3802: x_return_status := OKL_API.G_RET_STS_ERROR;
3803: RAISE G_EXCEPTION_HALT_VALIDATION;
3804: End If;
3805: END IF;

Line 3802: x_return_status := OKL_API.G_RET_STS_ERROR;

3798: End If;
3799: Close l_vendor_csr;
3800: If l_exists = 'N' then
3801: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy provider party');
3802: x_return_status := OKL_API.G_RET_STS_ERROR;
3803: RAISE G_EXCEPTION_HALT_VALIDATION;
3804: End If;
3805: END IF;
3806: EXCEPTION

Line 3810: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

3806: EXCEPTION
3807: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3808: null;
3809: WHEN OTHERS THEN
3810: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
3811: ,p_msg_name => G_UNEXPECTED_ERROR
3812: ,p_token1 => G_SQLCODE_TOKEN
3813: ,p_token1_value => SQLCODE
3814: ,p_token2 => G_SQLERRM_TOKEN

Line 3816: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3812: ,p_token1 => G_SQLCODE_TOKEN
3813: ,p_token1_value => SQLCODE
3814: ,p_token2 => G_SQLERRM_TOKEN
3815: ,p_token2_value => SQLERRM);
3816: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3817: END validate_vendor_id;
3818: -----------------------------------
3819: --6.validate record
3820: -----------------------------------

Line 3920: x_return_status := OKL_API.G_RET_STS_SUCCESS;

3916: -- l_asset_number okc_k_lines_tl.name%TYPE;
3917:
3918:
3919: BEGIN
3920: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3921: --check foreign key validation
3922: l_exists := 'N';
3923: open l_chrcle_csr(p_chr_id => p_asb_rec.dnz_chr_id,
3924: p_asset_cle_id => p_asb_rec.asset_cle_id);

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

3927: null;
3928: End If;
3929: Close l_chrcle_csr;
3930: If l_exists = 'N' then
3931: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract identifier');
3932: x_return_status := OKL_API.G_RET_STS_ERROR;
3933: RAISE G_EXCEPTION_HALT_VALIDATION;
3934: End If;
3935:

Line 3932: x_return_status := OKL_API.G_RET_STS_ERROR;

3928: End If;
3929: Close l_chrcle_csr;
3930: If l_exists = 'N' then
3931: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Contract identifier');
3932: x_return_status := OKL_API.G_RET_STS_ERROR;
3933: RAISE G_EXCEPTION_HALT_VALIDATION;
3934: End If;
3935:
3936: /* cklee check from validate_record_after()

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

3933: RAISE G_EXCEPTION_HALT_VALIDATION;
3934: End If;
3935:
3936: /* cklee check from validate_record_after()
3937: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then
3938: l_exists := 'N';
3939: open l_subcle_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
3940: p_asset_cle_id => p_asb_rec.asset_cle_id);
3941: fetch l_subcle_csr into l_exists;

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

3943: null;
3944: End If;
3945: Close l_subcle_csr;
3946: If l_exists = 'N' then
3947: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3948: x_return_status := OKL_API.G_RET_STS_ERROR;
3949: RAISE G_EXCEPTION_HALT_VALIDATION;
3950: End If;
3951: End If;

Line 3948: x_return_status := OKL_API.G_RET_STS_ERROR;

3944: End If;
3945: Close l_subcle_csr;
3946: If l_exists = 'N' then
3947: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
3948: x_return_status := OKL_API.G_RET_STS_ERROR;
3949: RAISE G_EXCEPTION_HALT_VALIDATION;
3950: End If;
3951: End If;
3952:

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

3949: RAISE G_EXCEPTION_HALT_VALIDATION;
3950: End If;
3951: End If;
3952:
3953: If p_asb_rec.cpl_id is not null and p_asb_rec.cpl_id <> OKL_API.G_MISS_NUM then
3954: l_exists := 'N';
3955: open l_cplb_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
3956: p_cpl_id => p_asb_rec.cpl_id);
3957: fetch l_cplb_csr into l_exists;

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

3959: null;
3960: End If;
3961: Close l_cplb_csr;
3962: If l_exists = 'N' then
3963: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3965: RAISE G_EXCEPTION_HALT_VALIDATION;
3966: End If;
3967: End If;

Line 3964: x_return_status := OKL_API.G_RET_STS_ERROR;

3960: End If;
3961: Close l_cplb_csr;
3962: If l_exists = 'N' then
3963: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3965: RAISE G_EXCEPTION_HALT_VALIDATION;
3966: End If;
3967: End If;
3968:

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

3977: End If;
3978: Close l_subsidy_exists_csr;
3979:
3980: If l_exists = 'Y' then
3981: OKL_API.set_message(p_app_name => G_APP_NAME,
3982: p_msg_name => G_SUBSIDY_ALREADY_EXISTS,
3983: p_token1 => G_SUBSIDY_NAME_TOKEN,
3984: p_token1_value => l_subsidy_name,
3985: p_token2 => G_ASSET_NUMBER_TOKEN,

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

3983: p_token1 => G_SUBSIDY_NAME_TOKEN,
3984: p_token1_value => l_subsidy_name,
3985: p_token2 => G_ASSET_NUMBER_TOKEN,
3986: p_token2_value => l_asset_number);
3987: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee
3988: RAISE G_EXCEPTION_HALT_VALIDATION;
3989: End If;
3990:
3991: --cursor to check if exclusive subsidy has any other subsidy atched to the

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

4000: End If;
4001: Close l_exclusive_csr;
4002:
4003: If l_exists = 'Y' then
4004: OKL_API.set_message(p_app_name => G_APP_NAME,
4005: p_msg_name => G_SUBSIDY_EXCLUSIVE,
4006: p_token1 => G_SUBSIDY_NAME_TOKEN,
4007: p_token1_value => l_subsidy_name
4008: );

Line 4009: x_return_status := OKL_API.G_RET_STS_ERROR;

4005: p_msg_name => G_SUBSIDY_EXCLUSIVE,
4006: p_token1 => G_SUBSIDY_NAME_TOKEN,
4007: p_token1_value => l_subsidy_name
4008: );
4009: x_return_status := OKL_API.G_RET_STS_ERROR;
4010: RAISE G_EXCEPTION_HALT_VALIDATION;
4011: End If;
4012: */
4013:

Line 4018: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

4014: EXCEPTION
4015: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4016: null;
4017: WHEN OTHERS THEN
4018: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
4019: ,p_msg_name => G_UNEXPECTED_ERROR
4020: ,p_token1 => G_SQLCODE_TOKEN
4021: ,p_token1_value => SQLCODE
4022: ,p_token2 => G_SQLERRM_TOKEN

Line 4024: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

4020: ,p_token1 => G_SQLCODE_TOKEN
4021: ,p_token1_value => SQLCODE
4022: ,p_token2 => G_SQLERRM_TOKEN
4023: ,p_token2_value => SQLERRM);
4024: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4025: END validate_record;
4026:
4027: -- start cklee
4028: -----------------------------------

Line 4142: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4138: l_asset_number okc_k_lines_tl.name%TYPE;
4139:
4140:
4141: BEGIN
4142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4143:
4144: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then
4145: l_exists := 'N';
4146: open l_subcle_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,

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

4140:
4141: BEGIN
4142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4143:
4144: If p_asb_rec.subsidy_cle_id is not null and p_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM then
4145: l_exists := 'N';
4146: open l_subcle_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
4147: p_asset_cle_id => p_asb_rec.asset_cle_id);
4148: fetch l_subcle_csr into l_exists;

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

4150: null;
4151: End If;
4152: Close l_subcle_csr;
4153: If l_exists = 'N' then
4154: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
4155: x_return_status := OKL_API.G_RET_STS_ERROR;
4156: RAISE G_EXCEPTION_HALT_VALIDATION;
4157: End If;
4158: End If;

Line 4155: x_return_status := OKL_API.G_RET_STS_ERROR;

4151: End If;
4152: Close l_subcle_csr;
4153: If l_exists = 'N' then
4154: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy line identifier');
4155: x_return_status := OKL_API.G_RET_STS_ERROR;
4156: RAISE G_EXCEPTION_HALT_VALIDATION;
4157: End If;
4158: End If;
4159:

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

4156: RAISE G_EXCEPTION_HALT_VALIDATION;
4157: End If;
4158: End If;
4159:
4160: If p_asb_rec.cpl_id is not null and p_asb_rec.cpl_id <> OKL_API.G_MISS_NUM then
4161: l_exists := 'N';
4162: open l_cplb_csr(p_subsidy_cle_id => p_asb_rec.subsidy_cle_id,
4163: p_cpl_id => p_asb_rec.cpl_id);
4164: fetch l_cplb_csr into l_exists;

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

4166: null;
4167: End If;
4168: Close l_cplb_csr;
4169: If l_exists = 'N' then
4170: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
4171: x_return_status := OKL_API.G_RET_STS_ERROR;
4172: RAISE G_EXCEPTION_HALT_VALIDATION;
4173: End If;
4174: End If;

Line 4171: x_return_status := OKL_API.G_RET_STS_ERROR;

4167: End If;
4168: Close l_cplb_csr;
4169: If l_exists = 'N' then
4170: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Subsidy party identifier');
4171: x_return_status := OKL_API.G_RET_STS_ERROR;
4172: RAISE G_EXCEPTION_HALT_VALIDATION;
4173: End If;
4174: End If;
4175:

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

4185: End If;
4186: Close l_subsidy_exists_csr;
4187:
4188: If l_exists = 'Y' then
4189: OKL_API.set_message(p_app_name => G_APP_NAME,
4190: p_msg_name => G_SUBSIDY_ALREADY_EXISTS,
4191: p_token1 => G_SUBSIDY_NAME_TOKEN,
4192: p_token1_value => l_subsidy_name,
4193: p_token2 => G_ASSET_NUMBER_TOKEN,

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

4191: p_token1 => G_SUBSIDY_NAME_TOKEN,
4192: p_token1_value => l_subsidy_name,
4193: p_token2 => G_ASSET_NUMBER_TOKEN,
4194: p_token2_value => l_asset_number);
4195: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee
4196: RAISE G_EXCEPTION_HALT_VALIDATION;
4197: End If;
4198:
4199: --cursor to check if exclusive subsidy has any other subsidy atched to the

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

4220: End If;
4221: Close l_exclusive_csr2;
4222:
4223: If (l_exists = 'Y' and l_count > 1) then
4224: OKL_API.set_message(p_app_name => G_APP_NAME,
4225: p_msg_name => G_SUBSIDY_EXCLUSIVE,
4226: p_token1 => G_SUBSIDY_NAME_TOKEN,
4227: p_token1_value => l_subsidy_name
4228: );

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

4225: p_msg_name => G_SUBSIDY_EXCLUSIVE,
4226: p_token1 => G_SUBSIDY_NAME_TOKEN,
4227: p_token1_value => l_subsidy_name
4228: );
4229: x_return_status := OKL_API.G_RET_STS_ERROR; -- cklee
4230: RAISE G_EXCEPTION_HALT_VALIDATION;
4231: End If;
4232:
4233: EXCEPTION

Line 4237: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME

4233: EXCEPTION
4234: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4235: null;
4236: WHEN OTHERS THEN
4237: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
4238: ,p_msg_name => G_UNEXPECTED_ERROR
4239: ,p_token1 => G_SQLCODE_TOKEN
4240: ,p_token1_value => SQLCODE
4241: ,p_token2 => G_SQLERRM_TOKEN

Line 4243: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

4239: ,p_token1 => G_SQLCODE_TOKEN
4240: ,p_token1_value => SQLCODE
4241: ,p_token2 => G_SQLERRM_TOKEN
4242: ,p_token2_value => SQLERRM);
4243: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4244: END validate_record_after;
4245: -- end cklee
4246: --------------------------------------------------------------------------------
4247: --Name : validate_asset_subsidy

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

4255: x_msg_count OUT NOCOPY NUMBER,
4256: x_msg_data OUT NOCOPY VARCHAR2,
4257: p_asb_rec IN asb_rec_type) is
4258:
4259: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4260: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4261: l_api_version CONSTANT NUMBER := 1.0;
4262:
4263: l_asb_rec asb_rec_type;

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

4260: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4261: l_api_version CONSTANT NUMBER := 1.0;
4262:
4263: l_asb_rec asb_rec_type;
4264: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4265:
4266: l_applicable VARCHAR2(1);
4267:
4268: cursor l_clet_csr(p_cle_id in number) is

Line 4285: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4281: l_subsidy_name okl_subsidies_b.name%TYPE;
4282:
4283: begin
4284: -----
4285: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4286: -- Call start_activity to create savepoint, check compatibility
4287: -- and initialize message list
4288: x_return_status := OKL_API.START_ACTIVITY (
4289: l_api_name

Line 4288: x_return_status := OKL_API.START_ACTIVITY (

4284: -----
4285: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4286: -- Call start_activity to create savepoint, check compatibility
4287: -- and initialize message list
4288: x_return_status := OKL_API.START_ACTIVITY (
4289: l_api_name
4290: ,p_init_msg_list
4291: ,'_PVT'
4292: ,x_return_status);

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

4290: ,p_init_msg_list
4291: ,'_PVT'
4292: ,x_return_status);
4293: -- Check if activity started successfully
4294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;

Line 4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4291: ,'_PVT'
4292: ,x_return_status);
4293: -- Check if activity started successfully
4294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4299:

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

4292: ,x_return_status);
4293: -- Check if activity started successfully
4294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4299:
4300: l_asb_rec := p_asb_rec;

Line 4297: RAISE OKL_API.G_EXCEPTION_ERROR;

4293: -- Check if activity started successfully
4294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4299:
4300: l_asb_rec := p_asb_rec;
4301: -----------------------------------------------

Line 4311: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4307: --1.validate subsidy_id
4308: ---------------------------------------
4309: /* cklee 1/21/04 call from validate_asset_subsidy_after()
4310: validate_subsidy_id(x_return_status,l_asb_rec.subsidy_id);
4311: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4312: l_highest_return_status := x_return_status;
4313: End If;
4314: */
4315: ---------------------------------------

Line 4319: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4315: ---------------------------------------
4316: --2.validate subsidy_cle_id
4317: ---------------------------------------
4318: validate_subsidy_cle_id(x_return_status,l_asb_rec.subsidy_cle_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: --3.validate dnz_chr_id

Line 4326: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4322: ---------------------------------------
4323: --3.validate dnz_chr_id
4324: ---------------------------------------
4325: validate_dnz_chr_id(x_return_status,l_asb_rec.dnz_chr_id);
4326: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4327: l_highest_return_status := x_return_status;
4328: End If;
4329: ---------------------------------------
4330: --4.validate asset_cle_id

Line 4333: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4329: ---------------------------------------
4330: --4.validate asset_cle_id
4331: ---------------------------------------
4332: validate_asset_cle_id(x_return_status,l_asb_rec.asset_cle_id);
4333: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4334: l_highest_return_status := x_return_status;
4335: End If;
4336: ---------------------------------------
4337: --5.validate vendor_id

Line 4340: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4336: ---------------------------------------
4337: --5.validate vendor_id
4338: ---------------------------------------
4339: validate_vendor_id(x_return_status,l_asb_rec.vendor_id);
4340: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4341: l_highest_return_status := x_return_status;
4342: End If;
4343:
4344: x_return_status := l_highest_return_status;

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

4341: l_highest_return_status := x_return_status;
4342: End If;
4343:
4344: x_return_status := l_highest_return_status;
4345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4348: RAISE OKL_API.G_EXCEPTION_ERROR;
4349: END IF;

Line 4346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4342: End If;
4343:
4344: x_return_status := l_highest_return_status;
4345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4348: RAISE OKL_API.G_EXCEPTION_ERROR;
4349: END IF;
4350:

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

4343:
4344: x_return_status := l_highest_return_status;
4345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4348: RAISE OKL_API.G_EXCEPTION_ERROR;
4349: END IF;
4350:
4351: ---------------------------------------

Line 4348: RAISE OKL_API.G_EXCEPTION_ERROR;

4344: x_return_status := l_highest_return_status;
4345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4348: RAISE OKL_API.G_EXCEPTION_ERROR;
4349: END IF;
4350:
4351: ---------------------------------------
4352: --5.validate record

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

4352: --5.validate record
4353: ---------------------------------------
4354: validate_record(x_return_status,l_asb_rec);
4355:
4356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;

Line 4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4353: ---------------------------------------
4354: validate_record(x_return_status,l_asb_rec);
4355:
4356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4361:

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

4354: validate_record(x_return_status,l_asb_rec);
4355:
4356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4361:
4362: ---------------------------------------

Line 4359: RAISE OKL_API.G_EXCEPTION_ERROR;

4355:
4356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4359: RAISE OKL_API.G_EXCEPTION_ERROR;
4360: END IF;
4361:
4362: ---------------------------------------
4363: --6.validate subsidy applicability

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

4380: end if;
4381: close l_sub_csr;
4382:
4383: --raise error
4384: OKL_API.set_message(p_app_name => G_APP_NAME,
4385: p_msg_name => G_SUBSIDY_NOT_APPLICABLE,
4386: p_token1 => G_SUBSIDY_TOKEN,
4387: p_token1_value => l_subsidy_name,
4388: p_token2 => G_ASSET_NUMBER_TOKEN,

Line 4391: x_return_status := OKL_API.G_RET_STS_ERROR;

4387: p_token1_value => l_subsidy_name,
4388: p_token2 => G_ASSET_NUMBER_TOKEN,
4389: p_token2_value => l_asset_number
4390: );
4391: x_return_status := OKL_API.G_RET_STS_ERROR;
4392:
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: End If;
4395:

Line 4393: RAISE OKL_API.G_EXCEPTION_ERROR;

4389: p_token2_value => l_asset_number
4390: );
4391: x_return_status := OKL_API.G_RET_STS_ERROR;
4392:
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: End If;
4395:
4396: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4397: EXCEPTION

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

4392:
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: End If;
4395:
4396: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4397: EXCEPTION
4398: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4399: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4400: l_api_name,

Line 4398: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4394: End If;
4395:
4396: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4397: EXCEPTION
4398: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4399: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4400: l_api_name,
4401: G_PKG_NAME,
4402: 'OKL_API.G_RET_STS_ERROR',

Line 4399: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4395:
4396: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4397: EXCEPTION
4398: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4399: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4400: l_api_name,
4401: G_PKG_NAME,
4402: 'OKL_API.G_RET_STS_ERROR',
4403: x_msg_count,

Line 4402: 'OKL_API.G_RET_STS_ERROR',

4398: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4399: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4400: l_api_name,
4401: G_PKG_NAME,
4402: 'OKL_API.G_RET_STS_ERROR',
4403: x_msg_count,
4404: x_msg_data,
4405: '_PVT');
4406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4402: 'OKL_API.G_RET_STS_ERROR',
4403: x_msg_count,
4404: x_msg_data,
4405: '_PVT');
4406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4407: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4408: l_api_name,
4409: G_PKG_NAME,
4410: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 4407: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4403: x_msg_count,
4404: x_msg_data,
4405: '_PVT');
4406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4407: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4408: l_api_name,
4409: G_PKG_NAME,
4410: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4411: x_msg_count,

Line 4410: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4407: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4408: l_api_name,
4409: G_PKG_NAME,
4410: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4411: x_msg_count,
4412: x_msg_data,
4413: '_PVT');
4414: WHEN OTHERS THEN

Line 4415: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4411: x_msg_count,
4412: x_msg_data,
4413: '_PVT');
4414: WHEN OTHERS THEN
4415: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4416: l_api_name,
4417: G_PKG_NAME,
4418: 'OTHERS',
4419: x_msg_count,

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

4434: x_msg_count OUT NOCOPY NUMBER,
4435: x_msg_data OUT NOCOPY VARCHAR2,
4436: p_asb_rec IN asb_rec_type) is
4437:
4438: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4439: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4440: l_api_version CONSTANT NUMBER := 1.0;
4441:
4442: l_asb_rec asb_rec_type;

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

4439: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
4440: l_api_version CONSTANT NUMBER := 1.0;
4441:
4442: l_asb_rec asb_rec_type;
4443: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4444:
4445: begin
4446: -----
4447: x_return_status := OKL_API.G_RET_STS_SUCCESS;

Line 4447: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4443: l_highest_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4444:
4445: begin
4446: -----
4447: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4448: -- Call start_activity to create savepoint, check compatibility
4449: -- and initialize message list
4450: x_return_status := OKL_API.START_ACTIVITY (
4451: l_api_name

Line 4450: x_return_status := OKL_API.START_ACTIVITY (

4446: -----
4447: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4448: -- Call start_activity to create savepoint, check compatibility
4449: -- and initialize message list
4450: x_return_status := OKL_API.START_ACTIVITY (
4451: l_api_name
4452: ,p_init_msg_list
4453: ,'_PVT'
4454: ,x_return_status);

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

4452: ,p_init_msg_list
4453: ,'_PVT'
4454: ,x_return_status);
4455: -- Check if activity started successfully
4456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4459: RAISE OKL_API.G_EXCEPTION_ERROR;
4460: END IF;

Line 4457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4453: ,'_PVT'
4454: ,x_return_status);
4455: -- Check if activity started successfully
4456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4459: RAISE OKL_API.G_EXCEPTION_ERROR;
4460: END IF;
4461:

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

4454: ,x_return_status);
4455: -- Check if activity started successfully
4456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4459: RAISE OKL_API.G_EXCEPTION_ERROR;
4460: END IF;
4461:
4462: l_asb_rec := p_asb_rec;

Line 4459: RAISE OKL_API.G_EXCEPTION_ERROR;

4455: -- Check if activity started successfully
4456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4459: RAISE OKL_API.G_EXCEPTION_ERROR;
4460: END IF;
4461:
4462: l_asb_rec := p_asb_rec;
4463: -----------------------------------------------

Line 4473: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then

4469: ---------------------------------------
4470: --2.validate subsidy_cle_id
4471: ---------------------------------------
4472: validate_subsidy_cle_id(x_return_status,l_asb_rec.subsidy_cle_id);
4473: If x_return_status <> OKL_API.G_RET_STS_SUCCESS then
4474: l_highest_return_status := x_return_status;
4475: End If;
4476:
4477: x_return_status := l_highest_return_status;

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

4480: --5.validate record
4481: ---------------------------------------
4482: validate_record_after(x_return_status,l_asb_rec);
4483:
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;

Line 4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4481: ---------------------------------------
4482: validate_record_after(x_return_status,l_asb_rec);
4483:
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489:

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

4482: validate_record_after(x_return_status,l_asb_rec);
4483:
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489:
4490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );

Line 4487: RAISE OKL_API.G_EXCEPTION_ERROR;

4483:
4484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489:
4490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4491:

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

4486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_ERROR;
4488: END IF;
4489:
4490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4491:
4492: EXCEPTION
4493: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4494: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

Line 4493: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4489:
4490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4491:
4492: EXCEPTION
4493: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4494: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4495: l_api_name,
4496: G_PKG_NAME,
4497: 'OKL_API.G_RET_STS_ERROR',

Line 4494: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4490: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4491:
4492: EXCEPTION
4493: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4494: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4495: l_api_name,
4496: G_PKG_NAME,
4497: 'OKL_API.G_RET_STS_ERROR',
4498: x_msg_count,

Line 4497: 'OKL_API.G_RET_STS_ERROR',

4493: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4494: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4495: l_api_name,
4496: G_PKG_NAME,
4497: 'OKL_API.G_RET_STS_ERROR',
4498: x_msg_count,
4499: x_msg_data,
4500: '_PVT');
4501: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4501: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4497: 'OKL_API.G_RET_STS_ERROR',
4498: x_msg_count,
4499: x_msg_data,
4500: '_PVT');
4501: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4502: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4503: l_api_name,
4504: G_PKG_NAME,
4505: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 4502: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4498: x_msg_count,
4499: x_msg_data,
4500: '_PVT');
4501: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4502: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4503: l_api_name,
4504: G_PKG_NAME,
4505: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4506: x_msg_count,

Line 4505: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4501: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4502: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4503: l_api_name,
4504: G_PKG_NAME,
4505: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4506: x_msg_count,
4507: x_msg_data,
4508: '_PVT');
4509: WHEN OTHERS THEN

Line 4510: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4506: x_msg_count,
4507: x_msg_data,
4508: '_PVT');
4509: WHEN OTHERS THEN
4510: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4511: l_api_name,
4512: G_PKG_NAME,
4513: 'OTHERS',
4514: x_msg_count,

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

4530: x_msg_data OUT NOCOPY VARCHAR2,
4531: p_asb_rec IN asb_rec_type,
4532: x_asb_rec OUT NOCOPY asb_rec_type) is
4533:
4534: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4535: l_api_name CONSTANT varchar2(30) := 'CREATE_ASSET_SUBSIDY';
4536: l_api_version CONSTANT NUMBER := 1.0;
4537:
4538: l_asb_rec asb_rec_type;

Line 4567: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4563: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
4564:
4565: Begin
4566: ----
4567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4568: -- Call start_activity to create savepoint, check compatibility
4569: -- and initialize message list
4570: x_return_status := OKL_API.START_ACTIVITY (
4571: l_api_name

Line 4570: x_return_status := OKL_API.START_ACTIVITY (

4566: ----
4567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4568: -- Call start_activity to create savepoint, check compatibility
4569: -- and initialize message list
4570: x_return_status := OKL_API.START_ACTIVITY (
4571: l_api_name
4572: ,p_init_msg_list
4573: ,'_PVT'
4574: ,x_return_status);

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

4572: ,p_init_msg_list
4573: ,'_PVT'
4574: ,x_return_status);
4575: -- Check if activity started successfully
4576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4579: RAISE OKL_API.G_EXCEPTION_ERROR;
4580: END IF;

Line 4577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4573: ,'_PVT'
4574: ,x_return_status);
4575: -- Check if activity started successfully
4576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4579: RAISE OKL_API.G_EXCEPTION_ERROR;
4580: END IF;
4581:

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

4574: ,x_return_status);
4575: -- Check if activity started successfully
4576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4579: RAISE OKL_API.G_EXCEPTION_ERROR;
4580: END IF;
4581:
4582: l_asb_rec := p_asb_rec;

Line 4579: RAISE OKL_API.G_EXCEPTION_ERROR;

4575: -- Check if activity started successfully
4576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4579: RAISE OKL_API.G_EXCEPTION_ERROR;
4580: END IF;
4581:
4582: l_asb_rec := p_asb_rec;
4583:

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

4589: x_clev_rec => lx_def_clev_rec,
4590: x_klev_rec => lx_def_klev_rec,
4591: x_cplv_rec => lx_def_cplv_rec);
4592:
4593: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4596: RAISE OKL_API.G_EXCEPTION_ERROR;
4597: END IF;

Line 4594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4590: x_klev_rec => lx_def_klev_rec,
4591: x_cplv_rec => lx_def_cplv_rec);
4592:
4593: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4596: RAISE OKL_API.G_EXCEPTION_ERROR;
4597: END IF;
4598:

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

4591: x_cplv_rec => lx_def_cplv_rec);
4592:
4593: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4596: RAISE OKL_API.G_EXCEPTION_ERROR;
4597: END IF;
4598:
4599: l_clev_rec := lx_def_clev_rec;

Line 4596: RAISE OKL_API.G_EXCEPTION_ERROR;

4592:
4593: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4595: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4596: RAISE OKL_API.G_EXCEPTION_ERROR;
4597: END IF;
4598:
4599: l_clev_rec := lx_def_clev_rec;
4600: l_klev_rec := lx_def_klev_rec;

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

4609: l_asb_rec.amount := l_klev_rec.amount;
4610: l_asb_rec.subsidy_override_amount := l_klev_rec.subsidy_override_amount;
4611: l_asb_rec.dnz_chr_id := l_clev_rec.dnz_chr_id;
4612: l_asb_rec.asset_cle_id := l_clev_rec.cle_id;
4613: If (l_cplv_rec.object1_id1 is not null) and (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
4614: l_asb_rec.vendor_id := to_number(l_cplv_rec.object1_id1);
4615: End If;
4616:
4617: --Bug# 4959361

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

4622: x_msg_count => x_msg_count,
4623: x_msg_data => x_msg_data,
4624: p_cle_id => l_asb_rec.asset_cle_id);
4625:
4626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4629: RAISE OKL_API.G_EXCEPTION_ERROR;
4630: END IF;

Line 4627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4623: x_msg_data => x_msg_data,
4624: p_cle_id => l_asb_rec.asset_cle_id);
4625:
4626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4629: RAISE OKL_API.G_EXCEPTION_ERROR;
4630: END IF;
4631: --Bug# 4959361

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

4624: p_cle_id => l_asb_rec.asset_cle_id);
4625:
4626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4629: RAISE OKL_API.G_EXCEPTION_ERROR;
4630: END IF;
4631: --Bug# 4959361
4632:

Line 4629: RAISE OKL_API.G_EXCEPTION_ERROR;

4625:
4626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4629: RAISE OKL_API.G_EXCEPTION_ERROR;
4630: END IF;
4631: --Bug# 4959361
4632:
4633: ----------------------------------------------------

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

4640: x_msg_count => x_msg_count,
4641: x_msg_data => x_msg_data,
4642: p_asb_rec => l_asb_rec);
4643:
4644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_ERROR;
4648: END IF;

Line 4645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4641: x_msg_data => x_msg_data,
4642: p_asb_rec => l_asb_rec);
4643:
4644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_ERROR;
4648: END IF;
4649:

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

4642: p_asb_rec => l_asb_rec);
4643:
4644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_ERROR;
4648: END IF;
4649:
4650: ---------------------------------------------------------

Line 4647: RAISE OKL_API.G_EXCEPTION_ERROR;

4643:
4644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_ERROR;
4648: END IF;
4649:
4650: ---------------------------------------------------------
4651: --call complex API to create line instance

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

4662: p_klev_rec => l_klev_rec,
4663: x_clev_rec => lx_clev_rec,
4664: x_klev_rec => lx_klev_rec);
4665:
4666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4668: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_ERROR;
4670: END IF;

Line 4667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4663: x_clev_rec => lx_clev_rec,
4664: x_klev_rec => lx_klev_rec);
4665:
4666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4668: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_ERROR;
4670: END IF;
4671:

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

4664: x_klev_rec => lx_klev_rec);
4665:
4666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4668: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_ERROR;
4670: END IF;
4671:
4672: /* comment out by cklee 03/15/2004: move to l_asb_tbl level

Line 4669: RAISE OKL_API.G_EXCEPTION_ERROR;

4665:
4666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4668: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4669: RAISE OKL_API.G_EXCEPTION_ERROR;
4670: END IF;
4671:
4672: /* comment out by cklee 03/15/2004: move to l_asb_tbl level
4673: -- start cklee 1/22/04

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

4685: x_msg_count => x_msg_count,
4686: x_msg_data => x_msg_data,
4687: p_asb_rec => l_asb_rec);
4688:
4689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;

Line 4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4686: x_msg_data => x_msg_data,
4687: p_asb_rec => l_asb_rec);
4688:
4689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;
4694: -- end cklee 1/22/04

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

4687: p_asb_rec => l_asb_rec);
4688:
4689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;
4694: -- end cklee 1/22/04
4695: */

Line 4692: RAISE OKL_API.G_EXCEPTION_ERROR;

4688:
4689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4691: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4692: RAISE OKL_API.G_EXCEPTION_ERROR;
4693: END IF;
4694: -- end cklee 1/22/04
4695: */
4696:

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

4697: ---------------------------------------------------------
4698: --call complex API to create party role instance
4699: ----------------------------------------------------------
4700: If (l_cplv_rec.object1_id1 is not null) and
4701: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
4702: l_cplv_rec.cle_id := lx_clev_rec.id;
4703:
4704: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
4705: -- to create records in tables

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

4724: x_cplv_rec => lx_cplv_rec,
4725: p_kplv_rec => l_kplv_rec,
4726: x_kplv_rec => lx_kplv_rec);
4727:
4728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: END IF;

Line 4729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4725: p_kplv_rec => l_kplv_rec,
4726: x_kplv_rec => lx_kplv_rec);
4727:
4728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: END IF;
4733: End If;

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

4726: x_kplv_rec => lx_kplv_rec);
4727:
4728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: END IF;
4733: End If;
4734:

Line 4731: RAISE OKL_API.G_EXCEPTION_ERROR;

4727:
4728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4731: RAISE OKL_API.G_EXCEPTION_ERROR;
4732: END IF;
4733: End If;
4734:
4735: --reinitialize asset subsidy record with final values for output

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

4741: l_asb_rec.subsidy_override_amount := lx_klev_rec.subsidy_override_amount;
4742: l_asb_rec.dnz_chr_id := lx_clev_rec.dnz_chr_id;
4743: l_asb_rec.asset_cle_id := lx_clev_rec.cle_id;
4744:
4745: IF lx_cplv_rec.object1_id1 is not NULL AND lx_cplv_rec.object1_id1 <> OKL_API.G_MISS_NUM then
4746: l_asb_rec.cpl_id := lx_cplv_rec.id;
4747: l_asb_rec.vendor_id := to_number(lx_cplv_rec.object1_id1);
4748: --get vendor name
4749: open l_vendor_csr(p_vendor_id => l_asb_rec.vendor_id);

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

4768: x_msg_data => x_msg_data,
4769: p_asb_rec => l_asb_rec,
4770: x_asb_rec => lx_calc_asb_rec);
4771:
4772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;

Line 4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4769: p_asb_rec => l_asb_rec,
4770: x_asb_rec => lx_calc_asb_rec);
4771:
4772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4777:

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

4770: x_asb_rec => lx_calc_asb_rec);
4771:
4772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4777:
4778: --dbms_output.put_line(to_char(lx_calc_asb_rec.amount));

Line 4775: RAISE OKL_API.G_EXCEPTION_ERROR;

4771:
4772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_ERROR;
4776: END IF;
4777:
4778: --dbms_output.put_line(to_char(lx_calc_asb_rec.amount));
4779: l_asb_rec := lx_calc_asb_rec;

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

4790:
4791: /*
4792: * sjalasut: aug 25, 04 added code to enable business event. BEGIN
4793: */
4794: IF(OKL_LLA_UTIL_PVT.is_lease_contract(lx_clev_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
4795: raise_business_event(p_api_version => p_api_version,
4796: p_init_msg_list => p_init_msg_list,
4797: p_chr_id => lx_clev_rec.dnz_chr_id,
4798: p_asset_id => lx_clev_rec.cle_id,

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

4801: x_return_status => x_return_status,
4802: x_msg_count => x_msg_count,
4803: x_msg_data => x_msg_data
4804: );
4805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_ERROR;
4809: END IF;

Line 4806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4802: x_msg_count => x_msg_count,
4803: x_msg_data => x_msg_data
4804: );
4805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: END IF;

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

4803: x_msg_data => x_msg_data
4804: );
4805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: END IF;
4811: /*

Line 4808: RAISE OKL_API.G_EXCEPTION_ERROR;

4804: );
4805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_ERROR;
4809: END IF;
4810: END IF;
4811: /*
4812: * sjalasut: aug 25, 04 added code to enable business event. END

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

4812: * sjalasut: aug 25, 04 added code to enable business event. END
4813: */
4814:
4815:
4816: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4817: EXCEPTION
4818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4819: If l_vendor_csr%ISOPEN then
4820: close l_vendor_csr;

Line 4818: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4814:
4815:
4816: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
4817: EXCEPTION
4818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4819: If l_vendor_csr%ISOPEN then
4820: close l_vendor_csr;
4821: End If;
4822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

Line 4822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

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

Line 4825: 'OKL_API.G_RET_STS_ERROR',

4821: End If;
4822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4823: l_api_name,
4824: G_PKG_NAME,
4825: 'OKL_API.G_RET_STS_ERROR',
4826: x_msg_count,
4827: x_msg_data,
4828: '_PVT');
4829: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4829: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4825: 'OKL_API.G_RET_STS_ERROR',
4826: x_msg_count,
4827: x_msg_data,
4828: '_PVT');
4829: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4830: If l_vendor_csr%ISOPEN then
4831: close l_vendor_csr;
4832: End If;
4833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

Line 4833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4829: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4830: If l_vendor_csr%ISOPEN then
4831: close l_vendor_csr;
4832: End If;
4833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4834: l_api_name,
4835: G_PKG_NAME,
4836: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4837: x_msg_count,

Line 4836: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4832: End If;
4833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4834: l_api_name,
4835: G_PKG_NAME,
4836: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4837: x_msg_count,
4838: x_msg_data,
4839: '_PVT');
4840: WHEN OTHERS THEN

Line 4844: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4840: WHEN OTHERS THEN
4841: If l_vendor_csr%ISOPEN then
4842: close l_vendor_csr;
4843: End If;
4844: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4845: l_api_name,
4846: G_PKG_NAME,
4847: 'OTHERS',
4848: x_msg_count,

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

4862: x_msg_data OUT NOCOPY VARCHAR2,
4863: p_asb_tbl IN asb_tbl_type,
4864: x_asb_tbl OUT NOCOPY asb_tbl_type) is
4865:
4866: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4867: l_api_name CONSTANT varchar2(30) := 'CREATE_ASSET_SUBSIDY';
4868: l_api_version CONSTANT NUMBER := 1.0;
4869: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4870: i NUMBER := 0;

Line 4874: x_return_status := OKL_API.G_RET_STS_SUCCESS;

4870: i NUMBER := 0;
4871:
4872: l_asb_tbl asb_tbl_type;
4873: Begin
4874: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4875:
4876: l_asb_tbl := p_asb_tbl;
4877: If l_asb_tbl.COUNT > 0 then
4878: i := l_asb_tbl.FIRST;

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

4894: End If;
4895: -- end cklee 11/15/04
4896: */
4897: -- start cklee 11/15/04
4898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_ERROR;
4902: END IF;

Line 4899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4895: -- end cklee 11/15/04
4896: */
4897: -- start cklee 11/15/04
4898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_ERROR;
4902: END IF;
4903: -- end cklee 11/15/04

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

4896: */
4897: -- start cklee 11/15/04
4898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_ERROR;
4902: END IF;
4903: -- end cklee 11/15/04
4904:

Line 4901: RAISE OKL_API.G_EXCEPTION_ERROR;

4897: -- start cklee 11/15/04
4898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_ERROR;
4902: END IF;
4903: -- end cklee 11/15/04
4904:
4905: EXIT WHEN (i = l_asb_tbl.LAST);

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

4922: x_msg_count => x_msg_count,
4923: x_msg_data => x_msg_data,
4924: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
4925:
4926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4929: RAISE OKL_API.G_EXCEPTION_ERROR;
4930: END IF;

Line 4927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

4923: x_msg_data => x_msg_data,
4924: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
4925:
4926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4929: RAISE OKL_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- end cklee 03/15/04

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

4924: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
4925:
4926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4929: RAISE OKL_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- end cklee 03/15/04
4932:

Line 4929: RAISE OKL_API.G_EXCEPTION_ERROR;

4925:
4926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4929: RAISE OKL_API.G_EXCEPTION_ERROR;
4930: END IF;
4931: -- end cklee 03/15/04
4932:
4933: End If;

Line 4935: WHEN OKL_API.G_EXCEPTION_ERROR THEN

4931: -- end cklee 03/15/04
4932:
4933: End If;
4934: EXCEPTION
4935: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4936: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4937: l_api_name,
4938: G_PKG_NAME,
4939: 'OKL_API.G_RET_STS_ERROR',

Line 4936: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

4932:
4933: End If;
4934: EXCEPTION
4935: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4936: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4937: l_api_name,
4938: G_PKG_NAME,
4939: 'OKL_API.G_RET_STS_ERROR',
4940: x_msg_count,

Line 4939: 'OKL_API.G_RET_STS_ERROR',

4935: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4936: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4937: l_api_name,
4938: G_PKG_NAME,
4939: 'OKL_API.G_RET_STS_ERROR',
4940: x_msg_count,
4941: x_msg_data,
4942: '_PVT');
4943: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 4943: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

4939: 'OKL_API.G_RET_STS_ERROR',
4940: x_msg_count,
4941: x_msg_data,
4942: '_PVT');
4943: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4944: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4945: l_api_name,
4946: G_PKG_NAME,
4947: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 4944: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4940: x_msg_count,
4941: x_msg_data,
4942: '_PVT');
4943: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4944: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4945: l_api_name,
4946: G_PKG_NAME,
4947: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4948: x_msg_count,

Line 4947: 'OKL_API.G_RET_STS_UNEXP_ERROR',

4943: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4944: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4945: l_api_name,
4946: G_PKG_NAME,
4947: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4948: x_msg_count,
4949: x_msg_data,
4950: '_PVT');
4951: WHEN OTHERS THEN

Line 4952: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

4948: x_msg_count,
4949: x_msg_data,
4950: '_PVT');
4951: WHEN OTHERS THEN
4952: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4953: l_api_name,
4954: G_PKG_NAME,
4955: 'OTHERS',
4956: x_msg_count,

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

4970: x_msg_data OUT NOCOPY VARCHAR2,
4971: p_asb_rec IN asb_rec_type,
4972: x_asb_rec OUT NOCOPY asb_rec_type) is
4973:
4974: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
4975: l_api_name CONSTANT varchar2(30) := 'UPDATE_ASSET_SUBSIDY';
4976: l_api_version CONSTANT NUMBER := 1.0;
4977:
4978: l_asb_rec asb_rec_type;

Line 5022: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5018: l_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
5019: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
5020:
5021: begin
5022: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5023: -- Call start_activity to create savepoint, check compatibility
5024: -- and initialize message list
5025: x_return_status := OKL_API.START_ACTIVITY (
5026: l_api_name

Line 5025: x_return_status := OKL_API.START_ACTIVITY (

5021: begin
5022: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5023: -- Call start_activity to create savepoint, check compatibility
5024: -- and initialize message list
5025: x_return_status := OKL_API.START_ACTIVITY (
5026: l_api_name
5027: ,p_init_msg_list
5028: ,'_PVT'
5029: ,x_return_status);

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

5027: ,p_init_msg_list
5028: ,'_PVT'
5029: ,x_return_status);
5030: -- Check if activity started successfully
5031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;

Line 5032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5028: ,'_PVT'
5029: ,x_return_status);
5030: -- Check if activity started successfully
5031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5036:

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

5029: ,x_return_status);
5030: -- Check if activity started successfully
5031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5036:
5037: --Bug# 4959361

Line 5034: RAISE OKL_API.G_EXCEPTION_ERROR;

5030: -- Check if activity started successfully
5031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5036:
5037: --Bug# 4959361
5038: OKL_LLA_UTIL_PVT.check_line_update_allowed

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

5042: x_msg_count => x_msg_count,
5043: x_msg_data => x_msg_data,
5044: p_cle_id => p_asb_rec.subsidy_cle_id);
5045:
5046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_ERROR;
5050: END IF;

Line 5047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5043: x_msg_data => x_msg_data,
5044: p_cle_id => p_asb_rec.subsidy_cle_id);
5045:
5046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_ERROR;
5050: END IF;
5051: --Bug# 4959361

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

5044: p_cle_id => p_asb_rec.subsidy_cle_id);
5045:
5046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_ERROR;
5050: END IF;
5051: --Bug# 4959361
5052:

Line 5049: RAISE OKL_API.G_EXCEPTION_ERROR;

5045:
5046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5049: RAISE OKL_API.G_EXCEPTION_ERROR;
5050: END IF;
5051: --Bug# 4959361
5052:
5053: l_asb_rec := p_asb_rec;

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

5059:
5060: -------------------------------------------------------------------
5061: --Begin delete the party payment details if vendor changes
5062: -------------------------------------------------------------------
5063: If nvl(l_asb_rec.vendor_id,-1) <> OKL_API.G_MISS_NUM and
5064: nvl(l_asb_rec.vendor_id,-1) <> nvl(l_db_asb_rec.vendor_id,-1) Then
5065:
5066: ----------------------------------------
5067: --check if it is a rebook copy contract

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

5069: -------------------------------------------
5070: l_rbk_cpy := is_rebook_copy(p_chr_id => l_db_asb_rec.dnz_chr_id);
5071: If l_rbk_cpy = 'Y' then
5072: If l_asb_rec.vendor_id <> l_db_asb_rec.vendor_id then
5073: okl_api.set_message(p_app_name => G_APP_NAME,
5074: p_msg_name => G_PARTY_UPDATE_INVALID,
5075: p_token1 => G_SUBSIDY_TOKEN,
5076: p_token1_value => l_db_asb_rec.name
5077: );

Line 5078: x_return_status := OKL_API.G_RET_STS_ERROR;

5074: p_msg_name => G_PARTY_UPDATE_INVALID,
5075: p_token1 => G_SUBSIDY_TOKEN,
5076: p_token1_value => l_db_asb_rec.name
5077: );
5078: x_return_status := OKL_API.G_RET_STS_ERROR;
5079: Raise OKL_API.G_EXCEPTION_ERROR;
5080: End If;
5081: End If;
5082: -----------------------------------------

Line 5079: Raise OKL_API.G_EXCEPTION_ERROR;

5075: p_token1 => G_SUBSIDY_TOKEN,
5076: p_token1_value => l_db_asb_rec.name
5077: );
5078: x_return_status := OKL_API.G_RET_STS_ERROR;
5079: Raise OKL_API.G_EXCEPTION_ERROR;
5080: End If;
5081: End If;
5082: -----------------------------------------
5083: --End of rebook check

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

5083: --End of rebook check
5084: -----------------------------------------
5085:
5086: If l_db_asb_rec.cpl_id is not Null and
5087: l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM Then
5088: --fetch if any party refund details record
5089: open l_ppyd_csr(p_cpl_id => l_db_asb_rec.cpl_id);
5090: fetch l_ppyd_csr into l_ppyd_id;
5091: If l_ppyd_csr%NOTFOUND then

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

5104: x_msg_count => x_msg_count,
5105: x_msg_data => x_msg_data,
5106: p_ppydv_rec => l_ppydv_rec);
5107:
5108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5111: RAISE OKL_API.G_EXCEPTION_ERROR;
5112: END IF;

Line 5109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5105: x_msg_data => x_msg_data,
5106: p_ppydv_rec => l_ppydv_rec);
5107:
5108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5111: RAISE OKL_API.G_EXCEPTION_ERROR;
5112: END IF;
5113: End If;

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

5106: p_ppydv_rec => l_ppydv_rec);
5107:
5108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5111: RAISE OKL_API.G_EXCEPTION_ERROR;
5112: END IF;
5113: End If;
5114: End If;

Line 5111: RAISE OKL_API.G_EXCEPTION_ERROR;

5107:
5108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5111: RAISE OKL_API.G_EXCEPTION_ERROR;
5112: END IF;
5113: End If;
5114: End If;
5115: End If;

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

5128: x_clev_rec => lx_def_clev_rec,
5129: x_klev_rec => lx_def_klev_rec,
5130: x_cplv_rec => lx_def_cplv_rec);
5131:
5132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5135: RAISE OKL_API.G_EXCEPTION_ERROR;
5136: END IF;

Line 5133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5129: x_klev_rec => lx_def_klev_rec,
5130: x_cplv_rec => lx_def_cplv_rec);
5131:
5132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5135: RAISE OKL_API.G_EXCEPTION_ERROR;
5136: END IF;
5137:

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

5130: x_cplv_rec => lx_def_cplv_rec);
5131:
5132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5135: RAISE OKL_API.G_EXCEPTION_ERROR;
5136: END IF;
5137:
5138: l_clev_rec := lx_def_clev_rec;

Line 5135: RAISE OKL_API.G_EXCEPTION_ERROR;

5131:
5132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5135: RAISE OKL_API.G_EXCEPTION_ERROR;
5136: END IF;
5137:
5138: l_clev_rec := lx_def_clev_rec;
5139: l_klev_rec := lx_def_klev_rec;

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

5141:
5142: ------------------------------------------------------------
5143: --fill up l_asb_rec for validation
5144: ------------------------------------------------------------
5145: If l_klev_rec.subsidy_id <> OKL_API.G_MISS_NUM then
5146: l_asb_rec.subsidy_id := l_klev_rec.subsidy_id;
5147: Else
5148: l_asb_rec.subsidy_id := l_db_asb_rec.subsidy_id;
5149: End If;

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

5153: l_asb_rec.amount := l_klev_rec.amount;
5154: l_asb_rec.subsidy_override_amount := l_klev_rec.subsidy_override_amount;
5155: l_asb_rec.dnz_chr_id := l_db_asb_rec.dnz_chr_id;
5156: l_asb_rec.asset_cle_id := l_db_asb_rec.asset_cle_id;
5157: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
5158: l_asb_rec.cpl_id := l_cplv_rec.id;
5159: Else
5160: l_asb_rec.cpl_id := l_db_asb_rec.cpl_id;
5161: End If;

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

5158: l_asb_rec.cpl_id := l_cplv_rec.id;
5159: Else
5160: l_asb_rec.cpl_id := l_db_asb_rec.cpl_id;
5161: End If;
5162: If (l_cplv_rec.object1_id1 is not null) and (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
5163: l_asb_rec.vendor_id := to_number(l_cplv_rec.object1_id1);
5164: --get vendor name
5165: open l_vendor_csr(p_vendor_id => l_asb_rec.vendor_id);
5166: fetch l_vendor_csr into l_vendor_name;

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

5185: x_msg_count => x_msg_count,
5186: x_msg_data => x_msg_data,
5187: p_asb_rec => l_asb_rec);
5188:
5189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5192: RAISE OKL_API.G_EXCEPTION_ERROR;
5193: END IF;

Line 5190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5186: x_msg_data => x_msg_data,
5187: p_asb_rec => l_asb_rec);
5188:
5189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5192: RAISE OKL_API.G_EXCEPTION_ERROR;
5193: END IF;
5194:

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

5187: p_asb_rec => l_asb_rec);
5188:
5189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5192: RAISE OKL_API.G_EXCEPTION_ERROR;
5193: END IF;
5194:
5195: ---------------------------------------------------------

Line 5192: RAISE OKL_API.G_EXCEPTION_ERROR;

5188:
5189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5192: RAISE OKL_API.G_EXCEPTION_ERROR;
5193: END IF;
5194:
5195: ---------------------------------------------------------
5196: --call complex API to update line instance

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

5196: --call complex API to update line instance
5197: ----------------------------------------------------------
5198: --dbms_output.put_line(to_char(l_klev_rec.amount));
5199: --dbms_output.put_line('before update ' ||to_char(l_klev_rec.subsidy_override_amount));
5200: If l_clev_rec.id <> OKL_API.G_MISS_NUM then
5201:
5202: OKL_CONTRACT_PUB.update_contract_line(
5203: p_api_version => p_api_version,
5204: p_init_msg_list => p_init_msg_list,

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

5209: p_klev_rec => l_klev_rec,
5210: x_clev_rec => lx_clev_rec,
5211: x_klev_rec => lx_klev_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_clev_rec => lx_clev_rec,
5211: x_klev_rec => lx_klev_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 If;

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

5211: x_klev_rec => lx_klev_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 If;
5219: --dbms_output.put_line('After update :'||to_char(l_klev_rec.subsidy_override_amount));

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 If;
5219: --dbms_output.put_line('After update :'||to_char(l_klev_rec.subsidy_override_amount));
5220:

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

5230: x_msg_count => x_msg_count,
5231: x_msg_data => x_msg_data,
5232: p_asb_rec => l_asb_rec);
5233:
5234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5237: RAISE OKL_API.G_EXCEPTION_ERROR;
5238: END IF;

Line 5235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5231: x_msg_data => x_msg_data,
5232: p_asb_rec => l_asb_rec);
5233:
5234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5237: RAISE OKL_API.G_EXCEPTION_ERROR;
5238: END IF;
5239: -- end cklee 01/22/04

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

5232: p_asb_rec => l_asb_rec);
5233:
5234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5237: RAISE OKL_API.G_EXCEPTION_ERROR;
5238: END IF;
5239: -- end cklee 01/22/04
5240: */

Line 5237: RAISE OKL_API.G_EXCEPTION_ERROR;

5233:
5234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5237: RAISE OKL_API.G_EXCEPTION_ERROR;
5238: END IF;
5239: -- end cklee 01/22/04
5240: */
5241: ---------------------------------------------------------

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

5241: ---------------------------------------------------------
5242: -- call complex API to create or update party role instance
5243: -- depending on existence
5244: ----------------------------------------------------------
5245: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
5246: If l_cplv_rec.id is null then
5247: --no record exists create
5248: If (l_cplv_rec.object1_id1 is not null) and
5249: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then

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

5245: If l_cplv_rec.id <> OKL_API.G_MISS_NUM then
5246: If l_cplv_rec.id is null then
5247: --no record exists create
5248: If (l_cplv_rec.object1_id1 is not null) and
5249: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
5250: l_cplv_rec.cle_id := l_clev_rec.id;
5251: l_cplv_rec.id := OKL_API.G_MISS_NUM;
5252:
5253: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api

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

5247: --no record exists create
5248: If (l_cplv_rec.object1_id1 is not null) and
5249: (l_cplv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) then
5250: l_cplv_rec.cle_id := l_clev_rec.id;
5251: l_cplv_rec.id := OKL_API.G_MISS_NUM;
5252:
5253: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
5254: -- to create records in tables
5255: -- okc_k_party_roles_b and okl_k_party_roles

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

5275: x_cplv_rec => lx_cplv_rec,
5276: p_kplv_rec => l_kplv_rec,
5277: x_kplv_rec => lx_kplv_rec);
5278:
5279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_ERROR;
5283: END IF;

Line 5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5276: p_kplv_rec => l_kplv_rec,
5277: x_kplv_rec => lx_kplv_rec);
5278:
5279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_ERROR;
5283: END IF;
5284: End If;

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

5277: x_kplv_rec => lx_kplv_rec);
5278:
5279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_ERROR;
5283: END IF;
5284: End If;
5285: Elsif l_cplv_rec.id is not null then

Line 5282: RAISE OKL_API.G_EXCEPTION_ERROR;

5278:
5279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_ERROR;
5283: END IF;
5284: End If;
5285: Elsif l_cplv_rec.id is not null then
5286: --update

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

5310: p_kplv_rec => l_kplv_rec,
5311: x_kplv_rec => lx_kplv_rec
5312: );
5313:
5314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_ERROR;
5318: END IF;

Line 5315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5311: x_kplv_rec => lx_kplv_rec
5312: );
5313:
5314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_ERROR;
5318: END IF;
5319: End If;

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

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

Line 5317: RAISE OKL_API.G_EXCEPTION_ERROR;

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

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

5330: x_msg_data => x_msg_data,
5331: p_asb_rec => l_asb_rec,
5332: x_asb_rec => lx_calc_asb_rec);
5333:
5334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5337: RAISE OKL_API.G_EXCEPTION_ERROR;
5338: END IF;

Line 5335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5331: p_asb_rec => l_asb_rec,
5332: x_asb_rec => lx_calc_asb_rec);
5333:
5334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5337: RAISE OKL_API.G_EXCEPTION_ERROR;
5338: END IF;
5339:

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

5332: x_asb_rec => lx_calc_asb_rec);
5333:
5334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5337: RAISE OKL_API.G_EXCEPTION_ERROR;
5338: END IF;
5339:
5340: l_asb_rec := lx_calc_asb_rec;

Line 5337: RAISE OKL_API.G_EXCEPTION_ERROR;

5333:
5334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5337: RAISE OKL_API.G_EXCEPTION_ERROR;
5338: END IF;
5339:
5340: l_asb_rec := lx_calc_asb_rec;
5341:

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

5347: --assign values to out record
5348: ----------------------------------------------------------------------------
5349: x_asb_rec := l_asb_rec;
5350:
5351: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5352: EXCEPTION
5353: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5354: If l_vendor_csr%ISOPEN then
5355: close l_vendor_csr;

Line 5353: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5349: x_asb_rec := l_asb_rec;
5350:
5351: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5352: EXCEPTION
5353: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5354: If l_vendor_csr%ISOPEN then
5355: close l_vendor_csr;
5356: End If;
5357: If l_ppyd_csr%ISOPEN then

Line 5360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5356: End If;
5357: If l_ppyd_csr%ISOPEN then
5358: close l_ppyd_csr;
5359: End If;
5360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5361: l_api_name,
5362: G_PKG_NAME,
5363: 'OKL_API.G_RET_STS_ERROR',
5364: x_msg_count,

Line 5363: 'OKL_API.G_RET_STS_ERROR',

5359: End If;
5360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5361: l_api_name,
5362: G_PKG_NAME,
5363: 'OKL_API.G_RET_STS_ERROR',
5364: x_msg_count,
5365: x_msg_data,
5366: '_PVT');
5367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5363: 'OKL_API.G_RET_STS_ERROR',
5364: x_msg_count,
5365: x_msg_data,
5366: '_PVT');
5367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5368: If l_vendor_csr%ISOPEN then
5369: close l_vendor_csr;
5370: End If;
5371: If l_ppyd_csr%ISOPEN then

Line 5374: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5370: End If;
5371: If l_ppyd_csr%ISOPEN then
5372: close l_ppyd_csr;
5373: End If;
5374: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5375: l_api_name,
5376: G_PKG_NAME,
5377: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5378: x_msg_count,

Line 5377: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5373: End If;
5374: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5375: l_api_name,
5376: G_PKG_NAME,
5377: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5378: x_msg_count,
5379: x_msg_data,
5380: '_PVT');
5381: WHEN OTHERS THEN

Line 5388: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5384: End If;
5385: If l_ppyd_csr%ISOPEN then
5386: close l_ppyd_csr;
5387: End If;
5388: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5389: l_api_name,
5390: G_PKG_NAME,
5391: 'OTHERS',
5392: x_msg_count,

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

5406: x_msg_data OUT NOCOPY VARCHAR2,
5407: p_asb_tbl IN asb_tbl_type,
5408: x_asb_tbl OUT NOCOPY asb_tbl_type) is
5409:
5410: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5411: l_api_name CONSTANT varchar2(30) := 'UPDATE_ASSET_SUBSIDY';
5412: l_api_version CONSTANT NUMBER := 1.0;
5413: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5414: i NUMBER := 0;

Line 5418: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5414: i NUMBER := 0;
5415:
5416: l_asb_tbl asb_tbl_type;
5417: Begin
5418: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5419:
5420: l_asb_tbl := p_asb_tbl;
5421: If l_asb_tbl.COUNT > 0 then
5422: i := l_asb_tbl.FIRST;

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

5440: End If;
5441: -- end cklee 11/15/04
5442: */
5443: -- start cklee 11/15/04
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;

Line 5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5441: -- end cklee 11/15/04
5442: */
5443: -- start cklee 11/15/04
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449: -- end cklee 11/15/04

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

5442: */
5443: -- start cklee 11/15/04
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449: -- end cklee 11/15/04
5450:

Line 5447: RAISE OKL_API.G_EXCEPTION_ERROR;

5443: -- start cklee 11/15/04
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449: -- end cklee 11/15/04
5450:
5451: EXIT WHEN (i = l_asb_tbl.LAST);

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

5468: x_msg_count => x_msg_count,
5469: x_msg_data => x_msg_data,
5470: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
5471:
5472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5475: RAISE OKL_API.G_EXCEPTION_ERROR;
5476: END IF;

Line 5473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5469: x_msg_data => x_msg_data,
5470: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
5471:
5472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5475: RAISE OKL_API.G_EXCEPTION_ERROR;
5476: END IF;
5477: -- end cklee 03/15/04

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

5470: p_asb_rec => l_asb_tbl(l_asb_tbl.FIRST));
5471:
5472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5475: RAISE OKL_API.G_EXCEPTION_ERROR;
5476: END IF;
5477: -- end cklee 03/15/04
5478:

Line 5475: RAISE OKL_API.G_EXCEPTION_ERROR;

5471:
5472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5475: RAISE OKL_API.G_EXCEPTION_ERROR;
5476: END IF;
5477: -- end cklee 03/15/04
5478:
5479: End If;

Line 5481: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5477: -- end cklee 03/15/04
5478:
5479: End If;
5480: EXCEPTION
5481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5482: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5483: l_api_name,
5484: G_PKG_NAME,
5485: 'OKL_API.G_RET_STS_ERROR',

Line 5482: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5478:
5479: End If;
5480: EXCEPTION
5481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5482: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5483: l_api_name,
5484: G_PKG_NAME,
5485: 'OKL_API.G_RET_STS_ERROR',
5486: x_msg_count,

Line 5485: 'OKL_API.G_RET_STS_ERROR',

5481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5482: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5483: l_api_name,
5484: G_PKG_NAME,
5485: 'OKL_API.G_RET_STS_ERROR',
5486: x_msg_count,
5487: x_msg_data,
5488: '_PVT');
5489: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5489: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5485: 'OKL_API.G_RET_STS_ERROR',
5486: x_msg_count,
5487: x_msg_data,
5488: '_PVT');
5489: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5490: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5491: l_api_name,
5492: G_PKG_NAME,
5493: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5490: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5486: x_msg_count,
5487: x_msg_data,
5488: '_PVT');
5489: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5490: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5491: l_api_name,
5492: G_PKG_NAME,
5493: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5494: x_msg_count,

Line 5493: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5489: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5490: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5491: l_api_name,
5492: G_PKG_NAME,
5493: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5494: x_msg_count,
5495: x_msg_data,
5496: '_PVT');
5497: WHEN OTHERS THEN

Line 5498: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5494: x_msg_count,
5495: x_msg_data,
5496: '_PVT');
5497: WHEN OTHERS THEN
5498: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5499: l_api_name,
5500: G_PKG_NAME,
5501: 'OTHERS',
5502: x_msg_count,

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

5515: x_msg_count OUT NOCOPY NUMBER,
5516: x_msg_data OUT NOCOPY VARCHAR2,
5517: p_asb_rec IN asb_rec_type) is
5518:
5519: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5520: l_api_name CONSTANT varchar2(30) := 'DELETE_ASSET_SUBSIDY';
5521: l_api_version CONSTANT NUMBER := 1.0;
5522:
5523: l_asb_rec asb_rec_type;

Line 5544: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5540:
5541: --Bug# 4558486
5542: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
5543: begin
5544: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5545: -- Call start_activity to create savepoint, check compatibility
5546: -- and initialize message list
5547: x_return_status := OKL_API.START_ACTIVITY (
5548: l_api_name

Line 5547: x_return_status := OKL_API.START_ACTIVITY (

5543: begin
5544: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5545: -- Call start_activity to create savepoint, check compatibility
5546: -- and initialize message list
5547: x_return_status := OKL_API.START_ACTIVITY (
5548: l_api_name
5549: ,p_init_msg_list
5550: ,'_PVT'
5551: ,x_return_status);

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

5549: ,p_init_msg_list
5550: ,'_PVT'
5551: ,x_return_status);
5552: -- Check if activity started successfully
5553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_ERROR;
5557: END IF;

Line 5554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5550: ,'_PVT'
5551: ,x_return_status);
5552: -- Check if activity started successfully
5553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_ERROR;
5557: END IF;
5558:

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

5551: ,x_return_status);
5552: -- Check if activity started successfully
5553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_ERROR;
5557: END IF;
5558:
5559: l_asb_rec := p_asb_rec;

Line 5556: RAISE OKL_API.G_EXCEPTION_ERROR;

5552: -- Check if activity started successfully
5553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_ERROR;
5557: END IF;
5558:
5559: l_asb_rec := p_asb_rec;
5560: l_db_asb_rec := get_rec(l_asb_rec,l_row_notfound);

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

5571: x_msg_count => x_msg_count,
5572: x_msg_data => x_msg_data,
5573: p_cle_id => l_db_asb_rec.subsidy_cle_id);
5574:
5575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_ERROR;
5579: END IF;

Line 5576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5572: x_msg_data => x_msg_data,
5573: p_cle_id => l_db_asb_rec.subsidy_cle_id);
5574:
5575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_ERROR;
5579: END IF;
5580: --Bug# 4959361

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

5573: p_cle_id => l_db_asb_rec.subsidy_cle_id);
5574:
5575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_ERROR;
5579: END IF;
5580: --Bug# 4959361
5581:

Line 5578: RAISE OKL_API.G_EXCEPTION_ERROR;

5574:
5575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5578: RAISE OKL_API.G_EXCEPTION_ERROR;
5579: END IF;
5580: --Bug# 4959361
5581:
5582: ----------------------------------------------------------------------------

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

5582: ----------------------------------------------------------------------------
5583: --Begin : Delete party refund details if they exist
5584: ----------------------------------------------------------------------------
5585: If l_db_asb_rec.cpl_id is not Null and
5586: l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM Then
5587: --fetch if any party refund details record
5588: open l_ppyd_csr(p_cpl_id => l_db_asb_rec.cpl_id);
5589: fetch l_ppyd_csr into l_ppyd_id;
5590: If l_ppyd_csr%NOTFOUND then

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

5603: x_msg_count => x_msg_count,
5604: x_msg_data => x_msg_data,
5605: p_ppydv_rec => l_ppydv_rec);
5606:
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;

Line 5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5604: x_msg_data => x_msg_data,
5605: p_ppydv_rec => l_ppydv_rec);
5606:
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: End If;

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

5605: p_ppydv_rec => l_ppydv_rec);
5606:
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: End If;
5613: End If;

Line 5610: RAISE OKL_API.G_EXCEPTION_ERROR;

5606:
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: End If;
5613: End If;
5614:

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

5619: ----------------------------------------------------------------
5620: --call line api to delete line
5621: ----------------------------------------------------------------
5622: If (l_db_asb_rec.subsidy_cle_id is not null) and
5623: (l_db_asb_rec.subsidy_cle_id <> OKL_API.G_MISS_NUM) then
5624:
5625: l_clev_rec.id := l_db_asb_rec.subsidy_cle_id;
5626: l_klev_rec.id := l_db_asb_rec.subsidy_cle_id;
5627:

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

5633: x_msg_data => x_msg_data,
5634: p_clev_rec => l_clev_rec,
5635: p_klev_rec => l_klev_rec);
5636:
5637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5640: RAISE OKL_API.G_EXCEPTION_ERROR;
5641: END IF;

Line 5638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5634: p_clev_rec => l_clev_rec,
5635: p_klev_rec => l_klev_rec);
5636:
5637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5640: RAISE OKL_API.G_EXCEPTION_ERROR;
5641: END IF;
5642: End If;

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

5635: p_klev_rec => l_klev_rec);
5636:
5637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5640: RAISE OKL_API.G_EXCEPTION_ERROR;
5641: END IF;
5642: End If;
5643:

Line 5640: RAISE OKL_API.G_EXCEPTION_ERROR;

5636:
5637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5640: RAISE OKL_API.G_EXCEPTION_ERROR;
5641: END IF;
5642: End If;
5643:
5644: ----------------------------------------------------------------

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

5644: ----------------------------------------------------------------
5645: --call party api to delete party_role
5646: ----------------------------------------------------------------
5647: If (l_db_asb_rec.cpl_id is not null) and
5648: (l_db_asb_rec.cpl_id <> OKL_API.G_MISS_NUM) then
5649:
5650: l_cplv_rec.id := l_db_asb_rec.cpl_id;
5651:
5652: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api

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

5671: x_msg_data => x_msg_data,
5672: p_cplv_rec => l_cplv_rec,
5673: p_kplv_rec => l_kplv_rec);
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;

Line 5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5672: p_cplv_rec => l_cplv_rec,
5673: p_kplv_rec => l_kplv_rec);
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5680: --also will delete the party payment details once they are in place

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

5673: p_kplv_rec => l_kplv_rec);
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5680: --also will delete the party payment details once they are in place
5681: End If;

Line 5678: RAISE OKL_API.G_EXCEPTION_ERROR;

5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5680: --also will delete the party payment details once they are in place
5681: End If;
5682: ---------------------------------------------------------

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

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

Line 5695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5691: p_chr_id => l_db_asb_rec.dnz_chr_id,
5692: p_asset_cle_id => l_db_asb_rec.asset_cle_id);
5693:
5694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5697: RAISE OKL_API.G_EXCEPTION_ERROR;
5698: END IF;
5699:

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

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

Line 5697: RAISE OKL_API.G_EXCEPTION_ERROR;

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

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

5699:
5700: /*
5701: * sjalasut: aug 25, 04 added code to enable business event. BEGIN
5702: */
5703: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_db_asb_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
5704: raise_business_event(p_api_version => l_api_version,
5705: p_init_msg_list => p_init_msg_list,
5706: p_chr_id => l_db_asb_rec.dnz_chr_id,
5707: p_asset_id => l_db_asb_rec.asset_cle_id,

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

5710: x_return_status => x_return_status,
5711: x_msg_count => x_msg_count,
5712: x_msg_data => x_msg_data
5713: );
5714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_ERROR;
5718: END IF;

Line 5715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5711: x_msg_count => x_msg_count,
5712: x_msg_data => x_msg_data
5713: );
5714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_ERROR;
5718: END IF;
5719: END IF;

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

5712: x_msg_data => x_msg_data
5713: );
5714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_ERROR;
5718: END IF;
5719: END IF;
5720: /*

Line 5717: RAISE OKL_API.G_EXCEPTION_ERROR;

5713: );
5714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5717: RAISE OKL_API.G_EXCEPTION_ERROR;
5718: END IF;
5719: END IF;
5720: /*
5721: * sjalasut: aug 25, 04 added code to enable business event. END

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

5720: /*
5721: * sjalasut: aug 25, 04 added code to enable business event. END
5722: */
5723:
5724: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5725: EXCEPTION
5726: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5727: If l_ppyd_csr%isopen then
5728: close l_ppyd_csr;

Line 5726: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5722: */
5723:
5724: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
5725: EXCEPTION
5726: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5727: If l_ppyd_csr%isopen then
5728: close l_ppyd_csr;
5729: End If;
5730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

Line 5730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

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

Line 5733: 'OKL_API.G_RET_STS_ERROR',

5729: End If;
5730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5731: l_api_name,
5732: G_PKG_NAME,
5733: 'OKL_API.G_RET_STS_ERROR',
5734: x_msg_count,
5735: x_msg_data,
5736: '_PVT');
5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5733: 'OKL_API.G_RET_STS_ERROR',
5734: x_msg_count,
5735: x_msg_data,
5736: '_PVT');
5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5738: If l_ppyd_csr%isopen then
5739: close l_ppyd_csr;
5740: End If;
5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

Line 5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5738: If l_ppyd_csr%isopen then
5739: close l_ppyd_csr;
5740: End If;
5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5742: l_api_name,
5743: G_PKG_NAME,
5744: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5745: x_msg_count,

Line 5744: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5740: End If;
5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5742: l_api_name,
5743: G_PKG_NAME,
5744: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5745: x_msg_count,
5746: x_msg_data,
5747: '_PVT');
5748: WHEN OTHERS THEN

Line 5752: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5748: WHEN OTHERS THEN
5749: If l_ppyd_csr%isopen then
5750: close l_ppyd_csr;
5751: End If;
5752: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5753: l_api_name,
5754: G_PKG_NAME,
5755: 'OTHERS',
5756: x_msg_count,

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

5769: x_msg_count OUT NOCOPY NUMBER,
5770: x_msg_data OUT NOCOPY VARCHAR2,
5771: p_asb_tbl IN asb_tbl_type) is
5772:
5773: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5774: l_api_name CONSTANT varchar2(30) := 'DELETE_ASSET_SUBSIDY';
5775: l_api_version CONSTANT NUMBER := 1.0;
5776: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5777: i NUMBER := 0;

Line 5781: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5777: i NUMBER := 0;
5778:
5779: l_asb_tbl asb_tbl_type;
5780: Begin
5781: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5782:
5783: l_asb_tbl := p_asb_tbl;
5784: If l_asb_tbl.COUNT > 0 then
5785: i := l_asb_tbl.FIRST;

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

5801: End If;
5802: -- end cklee 11/15/04
5803: */
5804: -- start cklee 11/15/04
5805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: RAISE OKL_API.G_EXCEPTION_ERROR;
5809: END IF;

Line 5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5802: -- end cklee 11/15/04
5803: */
5804: -- start cklee 11/15/04
5805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: RAISE OKL_API.G_EXCEPTION_ERROR;
5809: END IF;
5810: -- end cklee 11/15/04

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

5803: */
5804: -- start cklee 11/15/04
5805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: RAISE OKL_API.G_EXCEPTION_ERROR;
5809: END IF;
5810: -- end cklee 11/15/04
5811:

Line 5808: RAISE OKL_API.G_EXCEPTION_ERROR;

5804: -- start cklee 11/15/04
5805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: RAISE OKL_API.G_EXCEPTION_ERROR;
5809: END IF;
5810: -- end cklee 11/15/04
5811:
5812: EXIT WHEN (i = l_asb_tbl.LAST);

Line 5822: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5818: -- end cklee 11/15/04
5819:
5820: End If;
5821: EXCEPTION
5822: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5824: l_api_name,
5825: G_PKG_NAME,
5826: 'OKL_API.G_RET_STS_ERROR',

Line 5823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5819:
5820: End If;
5821: EXCEPTION
5822: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5824: l_api_name,
5825: G_PKG_NAME,
5826: 'OKL_API.G_RET_STS_ERROR',
5827: x_msg_count,

Line 5826: 'OKL_API.G_RET_STS_ERROR',

5822: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5823: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5824: l_api_name,
5825: G_PKG_NAME,
5826: 'OKL_API.G_RET_STS_ERROR',
5827: x_msg_count,
5828: x_msg_data,
5829: '_PVT');
5830: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5830: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5826: 'OKL_API.G_RET_STS_ERROR',
5827: x_msg_count,
5828: x_msg_data,
5829: '_PVT');
5830: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5832: l_api_name,
5833: G_PKG_NAME,
5834: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5827: x_msg_count,
5828: x_msg_data,
5829: '_PVT');
5830: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5832: l_api_name,
5833: G_PKG_NAME,
5834: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5835: x_msg_count,

Line 5834: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5830: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5831: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5832: l_api_name,
5833: G_PKG_NAME,
5834: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5835: x_msg_count,
5836: x_msg_data,
5837: '_PVT');
5838: WHEN OTHERS THEN

Line 5839: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5835: x_msg_count,
5836: x_msg_data,
5837: '_PVT');
5838: WHEN OTHERS THEN
5839: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5840: l_api_name,
5841: G_PKG_NAME,
5842: 'OTHERS',
5843: x_msg_count,

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

5857: x_msg_count OUT NOCOPY NUMBER,
5858: x_msg_data OUT NOCOPY VARCHAR2,
5859: p_asb_tbl IN asb_tbl_type) is
5860:
5861: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5862: l_api_name CONSTANT varchar2(30) := 'VALIDATE_ASSET_SUBSIDY';
5863: l_api_version CONSTANT NUMBER := 1.0;
5864: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5865: i NUMBER := 0;

Line 5869: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5865: i NUMBER := 0;
5866:
5867: l_asb_tbl asb_tbl_type;
5868: Begin
5869: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5870:
5871: l_asb_tbl := p_asb_tbl;
5872: If l_asb_tbl.COUNT > 0 then
5873: i := l_asb_tbl.FIRST;

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

5889: End If;
5890: -- end cklee 11/15/04
5891: */
5892: -- start cklee 11/15/04
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;

Line 5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5890: -- end cklee 11/15/04
5891: */
5892: -- start cklee 11/15/04
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5898: -- end cklee 11/15/04

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

5891: */
5892: -- start cklee 11/15/04
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5898: -- end cklee 11/15/04
5899:

Line 5896: RAISE OKL_API.G_EXCEPTION_ERROR;

5892: -- start cklee 11/15/04
5893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5896: RAISE OKL_API.G_EXCEPTION_ERROR;
5897: END IF;
5898: -- end cklee 11/15/04
5899:
5900: EXIT WHEN (i = l_asb_tbl.LAST);

Line 5910: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5906: -- end cklee 11/15/04
5907:
5908: End If;
5909: EXCEPTION
5910: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5911: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5912: l_api_name,
5913: G_PKG_NAME,
5914: 'OKL_API.G_RET_STS_ERROR',

Line 5911: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

5907:
5908: End If;
5909: EXCEPTION
5910: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5911: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5912: l_api_name,
5913: G_PKG_NAME,
5914: 'OKL_API.G_RET_STS_ERROR',
5915: x_msg_count,

Line 5914: 'OKL_API.G_RET_STS_ERROR',

5910: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5911: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5912: l_api_name,
5913: G_PKG_NAME,
5914: 'OKL_API.G_RET_STS_ERROR',
5915: x_msg_count,
5916: x_msg_data,
5917: '_PVT');
5918: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 5918: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

5914: 'OKL_API.G_RET_STS_ERROR',
5915: x_msg_count,
5916: x_msg_data,
5917: '_PVT');
5918: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5920: l_api_name,
5921: G_PKG_NAME,
5922: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 5919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5915: x_msg_count,
5916: x_msg_data,
5917: '_PVT');
5918: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5920: l_api_name,
5921: G_PKG_NAME,
5922: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5923: x_msg_count,

Line 5922: 'OKL_API.G_RET_STS_UNEXP_ERROR',

5918: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5920: l_api_name,
5921: G_PKG_NAME,
5922: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5923: x_msg_count,
5924: x_msg_data,
5925: '_PVT');
5926: WHEN OTHERS THEN

Line 5927: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

5923: x_msg_count,
5924: x_msg_data,
5925: '_PVT');
5926: WHEN OTHERS THEN
5927: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5928: l_api_name,
5929: G_PKG_NAME,
5930: 'OTHERS',
5931: x_msg_count,

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

5946: p_asb_tbl IN asb_tbl_type,
5947: x_asb_tbl OUT NOCOPY asb_tbl_type) is
5948:
5949:
5950: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
5951: l_api_name CONSTANT varchar2(30) := 'CALCULATE_ASSET_SUBSIDY';
5952: l_api_version CONSTANT NUMBER := 1.0;
5953: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5954: i NUMBER := 0;

Line 5958: x_return_status := OKL_API.G_RET_STS_SUCCESS;

5954: i NUMBER := 0;
5955:
5956: l_asb_tbl asb_tbl_type;
5957: Begin
5958: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5959:
5960: l_asb_tbl := p_asb_tbl;
5961: If l_asb_tbl.COUNT > 0 then
5962: i := l_asb_tbl.FIRST;

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

5980: -- end cklee 11/15/04
5981: */
5982:
5983: -- start cklee 11/15/04
5984: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5987: RAISE OKL_API.G_EXCEPTION_ERROR;
5988: END IF;

Line 5985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

5981: */
5982:
5983: -- start cklee 11/15/04
5984: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5987: RAISE OKL_API.G_EXCEPTION_ERROR;
5988: END IF;
5989: -- end cklee 11/15/04

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

5982:
5983: -- start cklee 11/15/04
5984: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5987: RAISE OKL_API.G_EXCEPTION_ERROR;
5988: END IF;
5989: -- end cklee 11/15/04
5990:

Line 5987: RAISE OKL_API.G_EXCEPTION_ERROR;

5983: -- start cklee 11/15/04
5984: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5985: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5986: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5987: RAISE OKL_API.G_EXCEPTION_ERROR;
5988: END IF;
5989: -- end cklee 11/15/04
5990:
5991:

Line 6003: WHEN OKL_API.G_EXCEPTION_ERROR THEN

5999:
6000: End If;
6001:
6002: EXCEPTION
6003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6005: l_api_name,
6006: G_PKG_NAME,
6007: 'OKL_API.G_RET_STS_ERROR',

Line 6004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

6000: End If;
6001:
6002: EXCEPTION
6003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6005: l_api_name,
6006: G_PKG_NAME,
6007: 'OKL_API.G_RET_STS_ERROR',
6008: x_msg_count,

Line 6007: 'OKL_API.G_RET_STS_ERROR',

6003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6005: l_api_name,
6006: G_PKG_NAME,
6007: 'OKL_API.G_RET_STS_ERROR',
6008: x_msg_count,
6009: x_msg_data,
6010: '_PVT');
6011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 6011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

6007: 'OKL_API.G_RET_STS_ERROR',
6008: x_msg_count,
6009: x_msg_data,
6010: '_PVT');
6011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6013: l_api_name,
6014: G_PKG_NAME,
6015: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 6012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

6008: x_msg_count,
6009: x_msg_data,
6010: '_PVT');
6011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6013: l_api_name,
6014: G_PKG_NAME,
6015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6016: x_msg_count,

Line 6015: 'OKL_API.G_RET_STS_UNEXP_ERROR',

6011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6013: l_api_name,
6014: G_PKG_NAME,
6015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6016: x_msg_count,
6017: x_msg_data,
6018: '_PVT');
6019: WHEN OTHERS THEN

Line 6020: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(

6016: x_msg_count,
6017: x_msg_data,
6018: '_PVT');
6019: WHEN OTHERS THEN
6020: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6021: l_api_name,
6022: G_PKG_NAME,
6023: 'OTHERS',
6024: x_msg_count,