[Home] [Help]
94: p_cpl_id IN NUMBER DEFAULT NULL,
95: px_taiv_rec IN OUT NOCOPY taiv_rec_type,
96: x_return_status OUT NOCOPY VARCHAR2) IS
97:
98: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
99: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
100:
101: l_contract_id NUMBER := px_taiv_rec.khr_id;
102: l_khr_id NUMBER;
95: px_taiv_rec IN OUT NOCOPY taiv_rec_type,
96: x_return_status OUT NOCOPY VARCHAR2) IS
97:
98: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
99: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
100:
101: l_contract_id NUMBER := px_taiv_rec.khr_id;
102: l_khr_id NUMBER;
103: l_par_id NUMBER;
240: OR p_cpl_id = G_MISS_NUM)
241: AND ( l_contract_id IS NULL
242: OR l_contract_id = G_MISS_NUM) THEN
243:
244: l_return_status := OKL_API.G_RET_STS_ERROR;
245:
246: OKC_API.SET_MESSAGE (
247: p_app_name => G_OKC_APP_NAME,
248: p_msg_name => 'OKC_NO_PARAMS',
252: p_token2_value => 'Get_Vendor_Billing_Info');
253:
254: END IF;
255:
256: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
257: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
258: l_overall_status := l_return_status;
259: END IF;
260: END IF;
253:
254: END IF;
255:
256: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
257: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
258: l_overall_status := l_return_status;
259: END IF;
260: END IF;
261:
262: -- ***************
263: -- Find Rule Group
264: -- ***************
265:
266: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
267:
268: IF p_cpl_id IS NOT NULL
269: AND p_cpl_id <> G_MISS_NUM THEN
270:
275: -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
276: l_bill_to_site_use_id := l_k_party_rg_rec.bill_to_site_use_id ;
277:
278: IF l_k_party_rg_rec.cpl_id IS NULL THEN
279: l_return_status := OKL_API.G_RET_STS_ERROR;
280: OKC_API.SET_MESSAGE (
281: p_app_name => G_OKC_APP_NAME,
282: p_msg_name => G_INVALID_VALUE,
283: p_token1 => G_COL_NAME_TOKEN,
283: p_token1 => G_COL_NAME_TOKEN,
284: p_token1_value => 'Contract Party Id');
285: /* -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
286: ELSIF l_rgd_id IS NULL THEN
287: l_return_status := OKL_API.G_RET_STS_ERROR;
288: l_party_name := okl_am_util_pvt.get_jtf_object_name (
289: l_k_party_rg_rec.object1_code,
290: l_k_party_rg_rec.object1_id1,
291: l_k_party_rg_rec.object1_id2);
296: p_token1_value => l_party_name);
297: */
298: -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
299: ELSIF l_k_party_rg_rec.bill_to_site_use_id IS NULL THEN
300: l_return_status := OKL_API.G_RET_STS_ERROR;
301: l_party_name := okl_am_util_pvt.get_jtf_object_name (
302: l_k_party_rg_rec.object1_code,
303: l_k_party_rg_rec.object1_id1,
304: l_k_party_rg_rec.object1_id2);
320: FETCH l_partner_rg_csr INTO l_khr_id, l_par_id, l_rgd_id, l_bill_to_site_use_id, l_party_role; -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
321: CLOSE l_partner_rg_csr;
322:
323: IF l_khr_id IS NULL THEN
324: l_return_status := OKL_API.G_RET_STS_ERROR;
325: OKC_API.SET_MESSAGE (
326: p_app_name => G_OKC_APP_NAME,
327: p_msg_name => G_INVALID_VALUE,
328: p_token1 => G_COL_NAME_TOKEN,
327: p_msg_name => G_INVALID_VALUE,
328: p_token1 => G_COL_NAME_TOKEN,
329: p_token1_value => 'Contract Id');
330: ELSIF l_par_id IS NULL THEN
331: l_return_status := OKL_API.G_RET_STS_ERROR;
332: okl_am_util_pvt.set_message(
333: p_app_name => G_APP_NAME
334: -- PAGARG Bug 3559535 Use proper message for no vendor program found
335: ,p_msg_name => 'OKL_AM_NO_VENDOR_PROG');
335: ,p_msg_name => 'OKL_AM_NO_VENDOR_PROG');
336:
337: /* -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
338: ELSIF l_rgd_id IS NULL THEN
339: l_return_status := OKL_API.G_RET_STS_ERROR;
340: l_party_name := okl_am_util_pvt.get_program_partner (l_khr_id);
341: OKC_API.SET_MESSAGE (
342: p_app_name => G_APP_NAME,
343: p_msg_name => 'OKL_AM_NO_BILLING_INFO',
346: */
347:
348: -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
349: ELSIF l_bill_to_site_use_id IS NULL THEN
350: l_return_status := OKL_API.G_RET_STS_ERROR;
351: l_party_name := okl_am_util_pvt.get_program_partner (l_khr_id);
352: IF (is_debug_statement_on) THEN
353: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_program_partner and got l_party_name : ' || l_party_name);
354: END IF;
362: p_token2_value => l_party_role);
363: END IF;
364:
365: ELSE
366: l_return_status := OKL_API.G_RET_STS_ERROR;
367: END IF;
368:
369: END IF;
370:
367: END IF;
368:
369: END IF;
370:
371: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
372: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
373: l_overall_status := l_return_status;
374: END IF;
375: END IF;
368:
369: END IF;
370:
371: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
372: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
373: l_overall_status := l_return_status;
374: END IF;
375: END IF;
376:
379: -- ***********************************
380:
381: /* -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
382:
383: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
384:
385:
386: okl_am_util_pvt.get_rule_record (
387: p_rgd_id => l_rgd_id,
395:
396:
397: END IF;
398:
399: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
400: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
401: l_overall_status := l_return_status;
402: END IF;
403: END IF;
396:
397: END IF;
398:
399: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
400: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
401: l_overall_status := l_return_status;
402: END IF;
403: END IF;
404: */
402: END IF;
403: END IF;
404: */
405:
406: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
407: IF (is_debug_statement_on) THEN
408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_rule_record');
409: END IF;
410:
423:
424: -- RMUNJULU 29-AUG-03 OKC RULES MIGRATION changes
425: -- ADDED SINCE 2533080 not fixed properly
426: -- If the above rule is optional then should not check the return status
427: l_return_status := OKL_API.G_RET_STS_SUCCESS;
428:
429:
430: END IF;
431:
429:
430: END IF;
431:
432: -- Rule is optional - bug 2533080
433: -- IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
434: -- IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
435: -- l_overall_status := l_return_status;
436: -- END IF;
437: -- END IF;
430: END IF;
431:
432: -- Rule is optional - bug 2533080
433: -- IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
434: -- IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
435: -- l_overall_status := l_return_status;
436: -- END IF;
437: -- END IF;
438:
439: -- *****************************************************
440: -- Extract Customer, Bill To and Payment Term from rules
441: -- *****************************************************
442:
443: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
444:
445: -- RMUNJULU 27-AUG-03 OKC RULE MIGRATION changes
446: OPEN l_site_use_csr (l_bill_to_site_use_id, 'BILL_TO');
447: FETCH l_site_use_csr INTO l_site_use_rec;
461: END IF;
462:
463: END IF;
464:
465: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
466: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
467: l_overall_status := l_return_status;
468: END IF;
469: END IF;
462:
463: END IF;
464:
465: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
466: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
467: l_overall_status := l_return_status;
468: END IF;
469: END IF;
470:
471: -- *******************************
472: -- Extract Payment Term from rules
473: -- *******************************
474:
475: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
476: AND l_mth_rulv_rec.id IS NOT NULL -- Rule is optional - bug 2533080
477: AND l_mth_rulv_rec.id <> G_MISS_NUM THEN
478:
479: IF l_mth_rulv_rec.object1_id2 <> '#' THEN
487: END IF;
488:
489: END IF;
490:
491: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
492: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
493: l_overall_status := l_return_status;
494: END IF;
495: END IF;
488:
489: END IF;
490:
491: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
492: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
493: l_overall_status := l_return_status;
494: END IF;
495: END IF;
496:
497: -- ****************
498: -- Validate Results
499: -- ****************
500:
501: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
502:
503: IF px_taiv_rec.ixx_id IS NULL
504: OR px_taiv_rec.ixx_id = G_MISS_NUM THEN
505: l_return_status := OKL_API.G_RET_STS_ERROR;
501: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
502:
503: IF px_taiv_rec.ixx_id IS NULL
504: OR px_taiv_rec.ixx_id = G_MISS_NUM THEN
505: l_return_status := OKL_API.G_RET_STS_ERROR;
506: OKC_API.SET_MESSAGE (
507: p_app_name => G_OKC_APP_NAME,
508: p_msg_name => G_REQUIRED_VALUE,
509: p_token1 => G_COL_NAME_TOKEN,
511: END IF;
512:
513: IF px_taiv_rec.ibt_id IS NULL
514: OR px_taiv_rec.ibt_id = G_MISS_NUM THEN
515: l_return_status := OKL_API.G_RET_STS_ERROR;
516: OKC_API.SET_MESSAGE (
517: p_app_name => G_OKC_APP_NAME,
518: p_msg_name => G_REQUIRED_VALUE,
519: p_token1 => G_COL_NAME_TOKEN,
521: END IF;
522:
523: IF px_taiv_rec.irt_id IS NULL
524: OR px_taiv_rec.irt_id = G_MISS_NUM THEN
525: l_return_status := OKL_API.G_RET_STS_ERROR;
526: OKC_API.SET_MESSAGE (
527: p_app_name => G_OKC_APP_NAME,
528: p_msg_name => G_REQUIRED_VALUE,
529: p_token1 => G_COL_NAME_TOKEN,
532:
533: -- Rule is optional - bug 2533080
534: -- IF px_taiv_rec.irm_id IS NULL
535: -- OR px_taiv_rec.irm_id = G_MISS_NUM THEN
536: -- l_return_status := OKL_API.G_RET_STS_ERROR;
537: -- OKC_API.SET_MESSAGE (
538: -- p_app_name => G_OKC_APP_NAME,
539: -- p_msg_name => G_REQUIRED_VALUE,
540: -- p_token1 => G_COL_NAME_TOKEN,
542: -- END IF;
543:
544: END IF;
545:
546: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
547: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
548: l_overall_status := l_return_status;
549: END IF;
550: END IF;
543:
544: END IF;
545:
546: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
547: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
548: l_overall_status := l_return_status;
549: END IF;
550: END IF;
551:
584: CLOSE l_std_terms_csr;
585: END IF;
586:
587: -- store SQL error message on message stack for caller
588: OKL_API.SET_MESSAGE (
589: p_app_name => G_APP_NAME
590: ,p_msg_name => G_UNEXPECTED_ERROR
591: ,p_token1 => G_SQLCODE_TOKEN
592: ,p_token1_value => sqlcode
593: ,p_token2 => G_SQLERRM_TOKEN
594: ,p_token2_value => sqlerrm);
595:
596: -- notify caller of an UNEXPECTED error
597: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
598:
599: END Get_Vendor_Billing_Info;
600:
601: -- Start of comments
624:
625: l_pos_try_id NUMBER := NULL;
626: l_neg_try_id NUMBER := NULL;
627: l_sysdate DATE := SYSDATE;
628: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
629: l_taiv_rec taiv_rec_type;
630:
631: l_api_version CONSTANT NUMBER := G_API_VERSION;
632: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
628: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
629: l_taiv_rec taiv_rec_type;
630:
631: l_api_version CONSTANT NUMBER := G_API_VERSION;
632: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
633: l_msg_data VARCHAR2(2000);
634:
635:
636: l_roll_bill_try_id NUMBER DEFAULT NULL;
716: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_pos_try_id : ' || l_pos_try_id);
718: END IF;
719:
720: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
721: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
722: l_return_status := OKL_API.G_RET_STS_ERROR;
723: OKC_API.SET_MESSAGE (
724: P_APP_NAME => G_OKC_APP_NAME,
718: END IF;
719:
720: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
721: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
722: l_return_status := OKL_API.G_RET_STS_ERROR;
723: OKC_API.SET_MESSAGE (
724: P_APP_NAME => G_OKC_APP_NAME,
725: P_MSG_NAME => G_INVALID_VALUE,
726: P_TOKEN1 => G_COL_NAME_TOKEN,
738: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
739: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_neg_try_id : ' || l_neg_try_id);
740: END IF;
741:
742: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
743: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
744: l_return_status := OKL_API.G_RET_STS_ERROR;
745: OKC_API.SET_MESSAGE (
746: p_app_name => G_OKC_APP_NAME,
740: END IF;
741:
742: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
743: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
744: l_return_status := OKL_API.G_RET_STS_ERROR;
745: OKC_API.SET_MESSAGE (
746: p_app_name => G_OKC_APP_NAME,
747: p_msg_name => G_INVALID_VALUE,
748: p_token1 => G_COL_NAME_TOKEN,
767: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
768: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_roll_bill_try_id : ' || l_roll_bill_try_id);
769: END IF;
770:
771: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
772: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
773: l_return_status := OKL_API.G_RET_STS_ERROR;
774: OKC_API.SET_MESSAGE (
775: p_app_name => G_OKC_APP_NAME,
769: END IF;
770:
771: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
772: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
773: l_return_status := OKL_API.G_RET_STS_ERROR;
774: OKC_API.SET_MESSAGE (
775: p_app_name => G_OKC_APP_NAME,
776: p_msg_name => G_INVALID_VALUE,
777: p_token1 => G_COL_NAME_TOKEN,
789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
790: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_roll_cm_try_id : ' || l_roll_cm_try_id);
791: END IF;
792:
793: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
794: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
795: l_return_status := OKL_API.G_RET_STS_ERROR;
796: OKC_API.SET_MESSAGE (
797: p_app_name => G_OKC_APP_NAME,
791: END IF;
792:
793: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
794: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
795: l_return_status := OKL_API.G_RET_STS_ERROR;
796: OKC_API.SET_MESSAGE (
797: p_app_name => G_OKC_APP_NAME,
798: p_msg_name => G_INVALID_VALUE,
799: p_token1 => G_COL_NAME_TOKEN,
820: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_bill_try_id : ' || l_release_bill_try_id);
821: END IF;
822:
823: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
824: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
825: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
826: l_return_status := OKL_API.G_RET_STS_ERROR;
827: OKC_API.SET_MESSAGE (
828: p_app_name => G_OKC_APP_NAME,
822:
823: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
824: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
825: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
826: l_return_status := OKL_API.G_RET_STS_ERROR;
827: OKC_API.SET_MESSAGE (
828: p_app_name => G_OKC_APP_NAME,
829: p_msg_name => G_INVALID_VALUE,
830: p_token1 => G_COL_NAME_TOKEN,
843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_cm_try_id : ' || l_release_cm_try_id);
844: END IF;
845:
846: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
847: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
848: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
849: l_return_status := okl_api.g_ret_sts_error;
850: okc_api.set_message (
851: p_app_name => g_okc_app_name,
845:
846: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
847: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
848: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
849: l_return_status := okl_api.g_ret_sts_error;
850: okc_api.set_message (
851: p_app_name => g_okc_app_name,
852: p_msg_name => g_invalid_value,
853: p_token1 => g_col_name_token,
857:
858:
859: IF NVL (p_pos_amount, 0) IN (G_MISS_NUM, 0)
860: AND NVL (p_neg_amount, 0) IN (G_MISS_NUM, 0)THEN
861: l_return_status := OKL_API.G_RET_STS_ERROR;
862: OKC_API.SET_MESSAGE (
863: p_app_name => G_OKC_APP_NAME,
864: p_msg_name => G_REQUIRED_VALUE,
865: p_token1 => G_COL_NAME_TOKEN,
866: p_token1_value => 'Amount');
867: END IF;
868:
869: IF NVL (p_taiv_rec.khr_id, G_MISS_NUM) = G_MISS_NUM THEN
870: l_return_status := OKL_API.G_RET_STS_ERROR;
871: OKC_API.SET_MESSAGE (
872: p_app_name => G_OKC_APP_NAME,
873: p_msg_name => G_REQUIRED_VALUE,
874: p_token1 => G_COL_NAME_TOKEN,
875: p_token1_value => 'Contract_Id');
876: END IF;
877:
878: IF NVL (p_taiv_rec.currency_code, G_MISS_CHAR) = G_MISS_CHAR THEN
879: l_return_status := OKL_API.G_RET_STS_ERROR;
880: OKC_API.SET_MESSAGE (
881: p_app_name => G_OKC_APP_NAME,
882: p_msg_name => G_REQUIRED_VALUE,
883: p_token1 => G_COL_NAME_TOKEN,
884: p_token1_value => 'Currency_Code');
885: END IF;
886:
887: IF NVL (p_taiv_rec.description, G_MISS_CHAR) = G_MISS_CHAR THEN
888: l_return_status := OKL_API.G_RET_STS_ERROR;
889: OKC_API.SET_MESSAGE (
890: p_app_name => G_OKC_APP_NAME,
891: p_msg_name => G_REQUIRED_VALUE,
892: p_token1 => G_COL_NAME_TOKEN,
915: LOOP
916: --akrangan bug 6494341 fix end
917:
918: IF NVL (p_tilv_tbl(i).amount, G_MISS_NUM) = G_MISS_NUM THEN
919: l_return_status := OKL_API.G_RET_STS_ERROR;
920: OKC_API.SET_MESSAGE (
921: p_app_name => G_OKC_APP_NAME,
922: p_msg_name => G_REQUIRED_VALUE,
923: p_token1 => G_COL_NAME_TOKEN,
930: -- Invoice header id will be assigned before calling Line creation call in 'okl_internal_billing_pvt'
931: -- End - Bug#5874824 - Asset Remarketing Fix */
932:
933: IF NVL (p_tilv_tbl(i).sty_id, G_MISS_NUM) = G_MISS_NUM THEN
934: l_return_status := OKL_API.G_RET_STS_ERROR;
935: OKC_API.SET_MESSAGE (
936: p_app_name => G_OKC_APP_NAME,
937: p_msg_name => G_REQUIRED_VALUE,
938: p_token1 => G_COL_NAME_TOKEN,
939: p_token1_value => 'Stream_Type_Id');
940: END IF;
941:
942: IF NVL (p_tilv_tbl(i).description, G_MISS_CHAR) = G_MISS_CHAR THEN
943: l_return_status := OKL_API.G_RET_STS_ERROR;
944: OKC_API.SET_MESSAGE (
945: p_app_name => G_OKC_APP_NAME,
946: p_msg_name => G_REQUIRED_VALUE,
947: p_token1 => G_COL_NAME_TOKEN,
964: --akrangan bug 6494341 fix end
965: END LOOP;
966: END IF;
967:
968: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
969: AND p_pos_amount > 0 THEN
970:
971: -- If quote type is rollover and transaction type is rollover then set
972: -- set rollover credit memo transaction id for positive amounts
986: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_internal_billing_pvt.create_billing_trx');
987: END IF;
988:
989: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
990: p_init_msg_list => OKL_API.G_FALSE,
991: x_return_status => l_return_status, -- 6140786
992: x_msg_count => l_msg_count,
993: x_msg_data => l_msg_data,
994: p_taiv_rec => l_taiv_rec,
1002: END IF;
1003:
1004: END IF;
1005:
1006: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1007: AND p_neg_amount < 0 THEN
1008:
1009:
1010: -- If quote type is rollover and transaction type is rollover then set
1025: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_internal_billing_pvt.create_billing_trx');
1026: END IF;
1027:
1028: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
1029: p_init_msg_list => OKL_API.G_FALSE,
1030: x_return_status => l_return_status, -- 6140786
1031: x_msg_count => l_msg_count,
1032: x_msg_data => l_msg_data,
1033: p_taiv_rec => l_taiv_rec,
1051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1052: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1053: END IF;
1054: -- store SQL error message on message stack for caller
1055: OKL_API.SET_MESSAGE (
1056: p_app_name => G_APP_NAME
1057: ,p_msg_name => G_UNEXPECTED_ERROR
1058: ,p_token1 => G_SQLCODE_TOKEN
1059: ,p_token1_value => sqlcode
1060: ,p_token2 => G_SQLERRM_TOKEN
1061: ,p_token2_value => sqlerrm);
1062:
1063: -- notify caller of an UNEXPECTED error
1064: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1065:
1066: END create_billing_invoices ;
1067:
1068: -- Start of comments
1090:
1091: l_pos_try_id NUMBER := NULL;
1092: l_neg_try_id NUMBER := NULL;
1093: l_sysdate DATE := SYSDATE;
1094: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1095: l_taiv_rec taiv_rec_type;
1096:
1097: l_api_version CONSTANT NUMBER := G_API_VERSION;
1098: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1094: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1095: l_taiv_rec taiv_rec_type;
1096:
1097: l_api_version CONSTANT NUMBER := G_API_VERSION;
1098: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1099: l_msg_data VARCHAR2(2000);
1100:
1101: -- pagarg +++ Rollover +++
1102: -- Variables to store transaction id for rollover biling and rollover credit memo
1116: p_try_name => G_AR_INV_TRX_TYPE,
1117: x_return_status => l_return_status,
1118: x_try_id => l_pos_try_id);
1119:
1120: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1121: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1122: l_return_status := OKL_API.G_RET_STS_ERROR;
1123: OKC_API.SET_MESSAGE (
1124: p_app_name => G_OKC_APP_NAME,
1118: x_try_id => l_pos_try_id);
1119:
1120: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1121: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1122: l_return_status := OKL_API.G_RET_STS_ERROR;
1123: OKC_API.SET_MESSAGE (
1124: p_app_name => G_OKC_APP_NAME,
1125: p_msg_name => G_INVALID_VALUE,
1126: p_token1 => G_COL_NAME_TOKEN,
1131: p_try_name => G_AR_CM_TRX_TYPE,
1132: x_return_status => l_return_status,
1133: x_try_id => l_neg_try_id);
1134:
1135: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1136: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1137: l_return_status := OKL_API.G_RET_STS_ERROR;
1138: OKC_API.SET_MESSAGE (
1139: p_app_name => G_OKC_APP_NAME,
1133: x_try_id => l_neg_try_id);
1134:
1135: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1136: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1137: l_return_status := OKL_API.G_RET_STS_ERROR;
1138: OKC_API.SET_MESSAGE (
1139: p_app_name => G_OKC_APP_NAME,
1140: p_msg_name => G_INVALID_VALUE,
1141: p_token1 => G_COL_NAME_TOKEN,
1154: p_try_name => 'ROLLOVER BILLING',
1155: x_return_status => l_return_status,
1156: x_try_id => l_roll_bill_try_id);
1157:
1158: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1159: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1160: l_return_status := OKL_API.G_RET_STS_ERROR;
1161: OKC_API.SET_MESSAGE (
1162: p_app_name => G_OKC_APP_NAME,
1156: x_try_id => l_roll_bill_try_id);
1157:
1158: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1159: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1160: l_return_status := OKL_API.G_RET_STS_ERROR;
1161: OKC_API.SET_MESSAGE (
1162: p_app_name => G_OKC_APP_NAME,
1163: p_msg_name => G_INVALID_VALUE,
1164: p_token1 => G_COL_NAME_TOKEN,
1169: p_try_name => 'ROLLOVER CREDIT MEMO',
1170: x_return_status => l_return_status,
1171: x_try_id => l_roll_cm_try_id);
1172:
1173: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1174: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1175: l_return_status := OKL_API.G_RET_STS_ERROR;
1176: OKC_API.SET_MESSAGE (
1177: p_app_name => G_OKC_APP_NAME,
1171: x_try_id => l_roll_cm_try_id);
1172:
1173: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1174: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1175: l_return_status := OKL_API.G_RET_STS_ERROR;
1176: OKC_API.SET_MESSAGE (
1177: p_app_name => G_OKC_APP_NAME,
1178: p_msg_name => G_INVALID_VALUE,
1179: p_token1 => G_COL_NAME_TOKEN,
1195: x_return_status => l_return_status,
1196: x_try_id => l_release_bill_try_id);
1197:
1198: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1199: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1200: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1201: l_return_status := OKL_API.G_RET_STS_ERROR;
1202: OKC_API.SET_MESSAGE (
1203: p_app_name => G_OKC_APP_NAME,
1197:
1198: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1199: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1200: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1201: l_return_status := OKL_API.G_RET_STS_ERROR;
1202: OKC_API.SET_MESSAGE (
1203: p_app_name => G_OKC_APP_NAME,
1204: p_msg_name => G_INVALID_VALUE,
1205: p_token1 => G_COL_NAME_TOKEN,
1211: x_return_status => l_return_status,
1212: x_try_id => l_release_cm_try_id);
1213:
1214: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1215: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1216: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1217: l_return_status := OKL_API.G_RET_STS_ERROR;
1218: OKC_API.SET_MESSAGE (
1219: p_app_name => G_OKC_APP_NAME,
1213:
1214: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1215: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1216: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1217: l_return_status := OKL_API.G_RET_STS_ERROR;
1218: OKC_API.SET_MESSAGE (
1219: p_app_name => G_OKC_APP_NAME,
1220: p_msg_name => G_INVALID_VALUE,
1221: p_token1 => G_COL_NAME_TOKEN,
1225: --+++++++++++ pagarg +++ T and A +++++++ End ++++++++++
1226:
1227: IF NVL (p_pos_amount, 0) IN (G_MISS_NUM, 0)
1228: AND NVL (p_neg_amount, 0) IN (G_MISS_NUM, 0)THEN
1229: l_return_status := OKL_API.G_RET_STS_ERROR;
1230: OKC_API.SET_MESSAGE (
1231: p_app_name => G_OKC_APP_NAME,
1232: p_msg_name => G_REQUIRED_VALUE,
1233: p_token1 => G_COL_NAME_TOKEN,
1234: p_token1_value => 'Amount');
1235: END IF;
1236:
1237: IF NVL (p_taiv_rec.khr_id, G_MISS_NUM) = G_MISS_NUM THEN
1238: l_return_status := OKL_API.G_RET_STS_ERROR;
1239: OKC_API.SET_MESSAGE (
1240: p_app_name => G_OKC_APP_NAME,
1241: p_msg_name => G_REQUIRED_VALUE,
1242: p_token1 => G_COL_NAME_TOKEN,
1243: p_token1_value => 'Contract_Id');
1244: END IF;
1245:
1246: IF NVL (p_taiv_rec.currency_code, G_MISS_CHAR) = G_MISS_CHAR THEN
1247: l_return_status := OKL_API.G_RET_STS_ERROR;
1248: OKC_API.SET_MESSAGE (
1249: p_app_name => G_OKC_APP_NAME,
1250: p_msg_name => G_REQUIRED_VALUE,
1251: p_token1 => G_COL_NAME_TOKEN,
1252: p_token1_value => 'Currency_Code');
1253: END IF;
1254:
1255: IF NVL (p_taiv_rec.description, G_MISS_CHAR) = G_MISS_CHAR THEN
1256: l_return_status := OKL_API.G_RET_STS_ERROR;
1257: OKC_API.SET_MESSAGE (
1258: p_app_name => G_OKC_APP_NAME,
1259: p_msg_name => G_REQUIRED_VALUE,
1260: p_token1 => G_COL_NAME_TOKEN,
1275: IF NVL (l_taiv_rec.date_invoiced, G_MISS_DATE) = G_MISS_DATE THEN
1276: l_taiv_rec.date_invoiced := l_sysdate;
1277: END IF;
1278:
1279: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1280: AND p_pos_amount > 0 THEN
1281:
1282: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
1283:
1299: l_taiv_rec.amount := p_pos_amount;
1300:
1301: okl_trx_ar_invoices_pub.insert_trx_ar_invoices (
1302: p_api_version => l_api_version,
1303: p_init_msg_list => OKL_API.G_FALSE,
1304: x_return_status => l_return_status,
1305: x_msg_count => l_msg_count,
1306: x_msg_data => l_msg_data,
1307: p_taiv_rec => l_taiv_rec,
1308: x_taiv_rec => x_pos_taiv_rec);
1309:
1310: END IF;
1311:
1312: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1313: AND p_neg_amount < 0 THEN
1314:
1315: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
1316:
1332: l_taiv_rec.amount := p_neg_amount;
1333:
1334: okl_trx_ar_invoices_pub.insert_trx_ar_invoices (
1335: p_api_version => l_api_version,
1336: p_init_msg_list => OKL_API.G_FALSE,
1337: x_return_status => l_return_status,
1338: x_msg_count => l_msg_count,
1339: x_msg_data => l_msg_data,
1340: p_taiv_rec => l_taiv_rec,
1347: EXCEPTION
1348:
1349: WHEN OTHERS THEN
1350: -- store SQL error message on message stack for caller
1351: OKL_API.SET_MESSAGE (
1352: p_app_name => G_APP_NAME
1353: ,p_msg_name => G_UNEXPECTED_ERROR
1354: ,p_token1 => G_SQLCODE_TOKEN
1355: ,p_token1_value => sqlcode
1356: ,p_token2 => G_SQLERRM_TOKEN
1357: ,p_token2_value => sqlerrm);
1358:
1359: -- notify caller of an UNEXPECTED error
1360: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1361:
1362: END Create_AR_Invoice_Header;
1363:
1364:
1375: p_tilv_rec IN tilv_rec_type,
1376: x_tilv_rec OUT NOCOPY tilv_rec_type,
1377: x_return_status OUT NOCOPY VARCHAR2) IS
1378:
1379: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1380: l_tilv_rec tilv_rec_type;
1381: l_bpd_acc_rec bpd_acc_rec_type;
1382:
1383: l_api_version CONSTANT NUMBER := G_API_VERSION;
1380: l_tilv_rec tilv_rec_type;
1381: l_bpd_acc_rec bpd_acc_rec_type;
1382:
1383: l_api_version CONSTANT NUMBER := G_API_VERSION;
1384: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1385: l_msg_data VARCHAR2(2000);
1386:
1387: BEGIN
1388:
1390: -- Validate parameters
1391: -- *******************
1392:
1393: IF NVL (p_tilv_rec.amount, G_MISS_NUM) = G_MISS_NUM THEN
1394: l_return_status := OKL_API.G_RET_STS_ERROR;
1395: OKC_API.SET_MESSAGE (
1396: p_app_name => G_OKC_APP_NAME,
1397: p_msg_name => G_REQUIRED_VALUE,
1398: p_token1 => G_COL_NAME_TOKEN,
1399: p_token1_value => 'Amount');
1400: END IF;
1401:
1402: IF NVL (p_tilv_rec.tai_id, G_MISS_NUM) = G_MISS_NUM THEN
1403: l_return_status := OKL_API.G_RET_STS_ERROR;
1404: OKC_API.SET_MESSAGE (
1405: p_app_name => G_OKC_APP_NAME,
1406: p_msg_name => G_REQUIRED_VALUE,
1407: p_token1 => G_COL_NAME_TOKEN,
1408: p_token1_value => 'Invoice_Header_Id');
1409: END IF;
1410:
1411: IF NVL (p_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
1412: l_return_status := OKL_API.G_RET_STS_ERROR;
1413: OKC_API.SET_MESSAGE (
1414: p_app_name => G_OKC_APP_NAME,
1415: p_msg_name => G_REQUIRED_VALUE,
1416: p_token1 => G_COL_NAME_TOKEN,
1417: p_token1_value => 'Stream_Type_Id');
1418: END IF;
1419:
1420: IF NVL (p_tilv_rec.description, G_MISS_CHAR) = G_MISS_CHAR THEN
1421: l_return_status := OKL_API.G_RET_STS_ERROR;
1422: OKC_API.SET_MESSAGE (
1423: p_app_name => G_OKC_APP_NAME,
1424: p_msg_name => G_REQUIRED_VALUE,
1425: p_token1 => G_COL_NAME_TOKEN,
1429: -- *******************
1430: -- Create Invoice Line
1431: -- *******************
1432:
1433: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1434:
1435: l_tilv_rec := p_tilv_rec;
1436: l_tilv_rec.inv_receiv_line_code := G_AR_INV_LINE_CODE;
1437:
1437:
1438: -- Create Invoice Line
1439: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns (
1440: p_api_version => l_api_version,
1441: p_init_msg_list => OKL_API.G_FALSE,
1442: x_return_status => l_return_status,
1443: x_msg_count => l_msg_count,
1444: x_msg_data => l_msg_data,
1445: p_tilv_rec => l_tilv_rec,
1446: x_tilv_rec => x_tilv_rec);
1447:
1448: END IF;
1449:
1450: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1451:
1452: l_bpd_acc_rec.id := x_tilv_rec.id;
1453: l_bpd_acc_rec.source_table := G_AR_LINES_SOURCE;
1454:
1454:
1455: -- Create Accounting Distribution
1456: okl_acc_call_pub.create_acc_trans (
1457: p_api_version => l_api_version,
1458: p_init_msg_list => OKL_API.G_FALSE,
1459: x_return_status => l_return_status,
1460: x_msg_count => l_msg_count,
1461: x_msg_data => l_msg_data,
1462: p_bpd_acc_rec => l_bpd_acc_rec);
1468: EXCEPTION
1469:
1470: WHEN OTHERS THEN
1471: -- store SQL error message on message stack for caller
1472: OKL_API.SET_MESSAGE (
1473: p_app_name => G_APP_NAME
1474: ,p_msg_name => G_UNEXPECTED_ERROR
1475: ,p_token1 => G_SQLCODE_TOKEN
1476: ,p_token1_value => sqlcode
1477: ,p_token2 => G_SQLERRM_TOKEN
1478: ,p_token2_value => sqlerrm);
1479:
1480: -- notify caller of an UNEXPECTED error
1481: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1482:
1483: END Create_AR_Invoice_Lines;
1484: */ --ansethur 09-MAR-2007 Commented For Billing Architecture Ends
1485:
1542: l_cle_rec l_cle_csr%ROWTYPE;
1543: l_taiv_rec taiv_rec_type;
1544: l_tilv_rec tilv_rec_type;
1545:
1546: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1547: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1548: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1543: l_taiv_rec taiv_rec_type;
1544: l_tilv_rec tilv_rec_type;
1545:
1546: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1547: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1548: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1551: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1544: l_tilv_rec tilv_rec_type;
1545:
1546: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1547: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1548: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1551: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1552: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1545:
1546: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1547: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1548: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1551: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1552: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1553: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1546: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1547: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1548: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1551: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1552: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1553: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1554:
1547: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1548: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1551: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1552: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1553: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1554:
1555: l_approval_counter NUMBER := 0;
1549: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1550: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1551: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1552: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1553: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1554:
1555: l_approval_counter NUMBER := 0;
1556: l_invoiced_counter NUMBER := 0;
1557: l_sty_id NUMBER := NULL;
1631: OPEN l_part_csr(p_ariv_tbl(l_cnt).p_acn_id );
1632: FETCH l_part_csr INTO l_part_name;
1633: CLOSE l_part_csr;
1634:
1635: l_return_status := OKL_API.G_RET_STS_ERROR;
1636:
1637: IF l_part_name IS NULL THEN
1638: --Rkuttiya added for bug:3528618
1639: --Message Text: Unable to process request for
1637: IF l_part_name IS NULL THEN
1638: --Rkuttiya added for bug:3528618
1639: --Message Text: Unable to process request for
1640: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1641: OKL_API.SET_MESSAGE (
1642: p_app_name => G_APP_NAME,
1643: p_msg_name => 'OKL_AM_INV_EXIST');
1644:
1645: ELSE
1645: ELSE
1646:
1647: -- Message Text: Unable to process request for
1648: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1649: OKL_API.SET_MESSAGE (
1650: p_app_name => G_APP_NAME,
1651: p_msg_name => 'OKL_AM_INVOICES_EXIST',
1652: p_token1 => 'PART_NUMBER',
1653: p_token1_value => l_part_name);
1658: -- Check that amount is passed and calculate invoice total
1659: IF p_ariv_tbl(l_cnt).p_actual_repair_cost IS NULL
1660: OR p_ariv_tbl(l_cnt).p_actual_repair_cost = G_MISS_NUM
1661: OR p_ariv_tbl(l_cnt).p_actual_repair_cost = 0 THEN
1662: l_amount_status := OKL_API.G_RET_STS_ERROR;
1663: ELSIF p_ariv_tbl(l_cnt).p_actual_repair_cost > 0 THEN
1664: l_pos_amount := l_pos_amount +
1665: p_ariv_tbl(l_cnt).p_actual_repair_cost;
1666: ELSIF p_ariv_tbl(l_cnt).p_actual_repair_cost < 0 THEN
1670:
1671: -- Check that Bill To has been indicated
1672: IF NVL (p_ariv_tbl(l_cnt).p_bill_to, G_MISS_NUM) NOT IN (1,2)
1673: OR p_ariv_tbl(l_cnt).p_bill_to <> l_bill_to_flag THEN
1674: l_bill_to_status := OKL_API.G_RET_STS_ERROR;
1675: ELSE
1676:
1677: -- Get Contract IDs
1678: OPEN l_cle_csr (p_ariv_tbl(l_cnt).p_acn_id);
1678: OPEN l_cle_csr (p_ariv_tbl(l_cnt).p_acn_id);
1679: FETCH l_cle_csr INTO l_cle_rec;
1680:
1681: IF l_cle_csr%NOTFOUND THEN
1682: l_acn_status := OKL_API.G_RET_STS_ERROR;
1683:
1684: ELSE
1685: IF NVL (l_tilv_rec.kle_id, G_MISS_NUM) = G_MISS_NUM THEN
1686: -- Save Contract information
1691: FETCH l_assetreturns_csr INTO l_legal_entity_id;
1692: CLOSE l_assetreturns_csr;
1693:
1694: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
1695: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1696: p_msg_name => g_required_value,
1697: p_token1 => g_col_name_token,
1698: p_token1_value => 'legal_entity_id');
1699: RAISE OKC_API.G_EXCEPTION_ERROR;
1723: -- Legal Entity Changes End
1724:
1725: ELSE
1726: IF l_tilv_rec.kle_id <> l_cle_rec.cle_id THEN
1727: l_cle_mismatch := OKL_API.G_RET_STS_ERROR;
1728: END IF;
1729: END IF;
1730: END IF;
1731:
1758: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_primary_stream_type , l_stream_status: ' || l_stream_status);
1759: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id: ' || l_sty_id);
1760: END IF;
1761:
1762: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS
1763: OR NVL (l_sty_id, G_MISS_NUM) = G_MISS_NUM THEN
1764: l_return_status := OKL_API.G_RET_STS_ERROR;
1765: OKC_API.SET_MESSAGE (
1766: p_app_name => G_OKC_APP_NAME,
1760: END IF;
1761:
1762: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS
1763: OR NVL (l_sty_id, G_MISS_NUM) = G_MISS_NUM THEN
1764: l_return_status := OKL_API.G_RET_STS_ERROR;
1765: OKC_API.SET_MESSAGE (
1766: p_app_name => G_OKC_APP_NAME,
1767: p_msg_name => G_INVALID_VALUE,
1768: p_token1 => G_COL_NAME_TOKEN,
1783: Get_Vendor_Billing_Info (
1784: px_taiv_rec => l_taiv_rec,
1785: x_return_status => l_vendor_status);
1786:
1787: IF l_vendor_status <> OKL_API.G_RET_STS_SUCCESS
1788: THEN
1789: l_return_status := OKL_API.G_RET_STS_ERROR;
1790: END IF;
1791:
1785: x_return_status => l_vendor_status);
1786:
1787: IF l_vendor_status <> OKL_API.G_RET_STS_SUCCESS
1788: THEN
1789: l_return_status := OKL_API.G_RET_STS_ERROR;
1790: END IF;
1791:
1792: -- Bill Lessee
1793: ELSIF l_bill_to_flag = 2
1794: AND NVL (l_taiv_rec.khr_id, G_MISS_NUM) <> G_MISS_NUM THEN
1795: NULL; -- BPD derives billing info using KHR_ID
1796:
1797: ELSE
1798: l_bill_to_status := OKL_API.G_RET_STS_ERROR;
1799: END IF;
1800:
1801: -- **************
1802: -- Display errors
1802: -- Display errors
1803: -- **************
1804:
1805: IF l_approval_counter > 0 THEN
1806: l_return_status := OKL_API.G_RET_STS_ERROR;
1807: -- Message Text: Unable to process the request for a Repair Invoice.
1808: -- Approval for OUTSTANDING_APPROVALS repair line(s) outstanding.
1809: OKL_API.SET_MESSAGE (
1810: p_app_name => G_APP_NAME,
1805: IF l_approval_counter > 0 THEN
1806: l_return_status := OKL_API.G_RET_STS_ERROR;
1807: -- Message Text: Unable to process the request for a Repair Invoice.
1808: -- Approval for OUTSTANDING_APPROVALS repair line(s) outstanding.
1809: OKL_API.SET_MESSAGE (
1810: p_app_name => G_APP_NAME,
1811: p_msg_name => 'OKL_AM_APPROVALS_OUTSTANDING',
1812: p_token1 => 'OUTSTANDING_APPROVALS',
1813: p_token1_value => l_approval_counter);
1814: END IF;
1815:
1816: /*
1817: IF l_invoiced_counter > 0 THEN
1818: l_return_status := OKL_API.G_RET_STS_ERROR;
1819: -- Message Text: Unable to process request for
1820: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1821: OKL_API.SET_MESSAGE (
1822: p_app_name => G_APP_NAME,
1817: IF l_invoiced_counter > 0 THEN
1818: l_return_status := OKL_API.G_RET_STS_ERROR;
1819: -- Message Text: Unable to process request for
1820: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1821: OKL_API.SET_MESSAGE (
1822: p_app_name => G_APP_NAME,
1823: p_msg_name => 'OKL_AM_INVOICES_EXIST');
1824: END IF;
1825: */
1822: p_app_name => G_APP_NAME,
1823: p_msg_name => 'OKL_AM_INVOICES_EXIST');
1824: END IF;
1825: */
1826: IF l_bill_to_status <> OKL_API.G_RET_STS_SUCCESS THEN
1827: l_return_status := OKL_API.G_RET_STS_ERROR;
1828: -- Message Text: Invalid value for the column P_BILL_ID
1829: OKL_API.SET_MESSAGE (
1830: p_app_name => G_OKC_APP_NAME,
1823: p_msg_name => 'OKL_AM_INVOICES_EXIST');
1824: END IF;
1825: */
1826: IF l_bill_to_status <> OKL_API.G_RET_STS_SUCCESS THEN
1827: l_return_status := OKL_API.G_RET_STS_ERROR;
1828: -- Message Text: Invalid value for the column P_BILL_ID
1829: OKL_API.SET_MESSAGE (
1830: p_app_name => G_OKC_APP_NAME,
1831: p_msg_name => G_INVALID_VALUE,
1825: */
1826: IF l_bill_to_status <> OKL_API.G_RET_STS_SUCCESS THEN
1827: l_return_status := OKL_API.G_RET_STS_ERROR;
1828: -- Message Text: Invalid value for the column P_BILL_ID
1829: OKL_API.SET_MESSAGE (
1830: p_app_name => G_OKC_APP_NAME,
1831: p_msg_name => G_INVALID_VALUE,
1832: p_token1 => G_COL_NAME_TOKEN,
1833: p_token1_value => 'p_bill_to');
1832: p_token1 => G_COL_NAME_TOKEN,
1833: p_token1_value => 'p_bill_to');
1834: END IF;
1835:
1836: IF l_cle_mismatch <> OKL_API.G_RET_STS_SUCCESS THEN
1837: l_return_status := OKL_API.G_RET_STS_ERROR;
1838: -- Message Text: Invalid value for the column CLE_ID
1839: OKL_API.SET_MESSAGE (
1840: p_app_name => G_OKC_APP_NAME,
1833: p_token1_value => 'p_bill_to');
1834: END IF;
1835:
1836: IF l_cle_mismatch <> OKL_API.G_RET_STS_SUCCESS THEN
1837: l_return_status := OKL_API.G_RET_STS_ERROR;
1838: -- Message Text: Invalid value for the column CLE_ID
1839: OKL_API.SET_MESSAGE (
1840: p_app_name => G_OKC_APP_NAME,
1841: p_msg_name => G_INVALID_VALUE,
1835:
1836: IF l_cle_mismatch <> OKL_API.G_RET_STS_SUCCESS THEN
1837: l_return_status := OKL_API.G_RET_STS_ERROR;
1838: -- Message Text: Invalid value for the column CLE_ID
1839: OKL_API.SET_MESSAGE (
1840: p_app_name => G_OKC_APP_NAME,
1841: p_msg_name => G_INVALID_VALUE,
1842: p_token1 => G_COL_NAME_TOKEN,
1843: p_token1_value => 'cle_id');
1842: p_token1 => G_COL_NAME_TOKEN,
1843: p_token1_value => 'cle_id');
1844: END IF;
1845:
1846: IF l_acn_status <> OKL_API.G_RET_STS_SUCCESS THEN
1847: l_return_status := OKL_API.G_RET_STS_ERROR;
1848: -- Message Text: Invalid value for the column P_ACN_ID
1849: OKL_API.SET_MESSAGE (
1850: p_app_name => G_OKC_APP_NAME,
1843: p_token1_value => 'cle_id');
1844: END IF;
1845:
1846: IF l_acn_status <> OKL_API.G_RET_STS_SUCCESS THEN
1847: l_return_status := OKL_API.G_RET_STS_ERROR;
1848: -- Message Text: Invalid value for the column P_ACN_ID
1849: OKL_API.SET_MESSAGE (
1850: p_app_name => G_OKC_APP_NAME,
1851: p_msg_name => G_INVALID_VALUE,
1845:
1846: IF l_acn_status <> OKL_API.G_RET_STS_SUCCESS THEN
1847: l_return_status := OKL_API.G_RET_STS_ERROR;
1848: -- Message Text: Invalid value for the column P_ACN_ID
1849: OKL_API.SET_MESSAGE (
1850: p_app_name => G_OKC_APP_NAME,
1851: p_msg_name => G_INVALID_VALUE,
1852: p_token1 => G_COL_NAME_TOKEN,
1853: p_token1_value => 'p_acn_id');
1852: p_token1 => G_COL_NAME_TOKEN,
1853: p_token1_value => 'p_acn_id');
1854: END IF;
1855:
1856: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
1857: l_return_status := OKL_API.G_RET_STS_ERROR;
1858: /*
1859: -- Message Text: Invalid value for the column P_ACTUAL_REPAIR_COST
1860: OKL_API.SET_MESSAGE (
1853: p_token1_value => 'p_acn_id');
1854: END IF;
1855:
1856: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
1857: l_return_status := OKL_API.G_RET_STS_ERROR;
1858: /*
1859: -- Message Text: Invalid value for the column P_ACTUAL_REPAIR_COST
1860: OKL_API.SET_MESSAGE (
1861: p_app_name => G_OKC_APP_NAME,
1856: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
1857: l_return_status := OKL_API.G_RET_STS_ERROR;
1858: /*
1859: -- Message Text: Invalid value for the column P_ACTUAL_REPAIR_COST
1860: OKL_API.SET_MESSAGE (
1861: p_app_name => G_OKC_APP_NAME,
1862: p_msg_name => G_INVALID_VALUE,
1863: p_token1 => G_COL_NAME_TOKEN,
1864: p_token1_value => 'p_actual_repair_cost');
1863: p_token1 => G_COL_NAME_TOKEN,
1864: p_token1_value => 'p_actual_repair_cost');
1865: */
1866: -- You must enter a value for PROMPT
1867: OKL_API.set_message (
1868: p_app_name => G_APP_NAME,
1869: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1870: p_token1 => 'PROMPT',
1871: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_ACTUAL_REPAIR_COST'));
1901: CLOSE l_assetreturns_csr;
1902: END IF;
1903:
1904: -- store SQL error message on message stack for caller
1905: OKL_API.SET_MESSAGE (
1906: p_app_name => G_APP_NAME
1907: ,p_msg_name => G_UNEXPECTED_ERROR
1908: ,p_token1 => G_SQLCODE_TOKEN
1909: ,p_token1_value => sqlcode
1910: ,p_token2 => G_SQLERRM_TOKEN
1911: ,p_token2_value => sqlerrm);
1912:
1913: -- notify caller of an UNEXPECTED error
1914: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1915:
1916: END Validate_Populate_Repair;
1917:
1918:
1933: x_return_status OUT NOCOPY VARCHAR2,
1934: p_ariv_tbl IN ariv_tbl_type,
1935: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
1936:
1937: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1938: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1939:
1940: l_api_name CONSTANT VARCHAR2(30) :=
1941: 'Create_Repair_Invoice';
1934: p_ariv_tbl IN ariv_tbl_type,
1935: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
1936:
1937: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1938: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1939:
1940: l_api_name CONSTANT VARCHAR2(30) :=
1941: 'Create_Repair_Invoice';
1942: l_api_version CONSTANT NUMBER := G_API_VERSION;
1939:
1940: l_api_name CONSTANT VARCHAR2(30) :=
1941: 'Create_Repair_Invoice';
1942: l_api_version CONSTANT NUMBER := G_API_VERSION;
1943: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1944: l_msg_data VARCHAR2(2000);
1945: l_cnt NUMBER;
1946:
1947: l_pos_amount NUMBER := 0;
1983: -- ***************************************************************
1984: -- Check API version, initialize message list and create savepoint
1985: -- ***************************************************************
1986:
1987: l_return_status := OKL_API.START_ACTIVITY (l_api_name,
1988: G_PKG_NAME,
1989: p_init_msg_list,
1990: l_api_version,
1991: p_api_version,
1991: p_api_version,
1992: '_PVT',
1993: x_return_status);
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
1992: '_PVT',
1993: x_return_status);
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
2000:
1993: x_return_status);
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
2000:
2001: -- **********************************************
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
2000:
2001: -- **********************************************
2002: -- Validate parameters and populate common fields
2011: p_token1_value => 'ARIV_TBL',
2012: p_token2 => 'PROCESS',
2013: p_token2_value => l_api_name);
2014:
2015: RAISE OKL_API.G_EXCEPTION_ERROR;
2016:
2017: END IF;
2018:
2019: -- Validate all in-records
2029: IF (is_debug_statement_on) THEN
2030: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Repair , return status: ' || l_return_status);
2031: END IF;
2032:
2033: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2030: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Repair , return status: ' || l_return_status);
2031: END IF;
2032:
2033: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2038:
2031: END IF;
2032:
2033: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2038:
2039: -- ANSETHUR 08-MAR-2007 R12B Billing Architecture Start Changes
2032:
2033: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2038:
2039: -- ANSETHUR 08-MAR-2007 R12B Billing Architecture Start Changes
2040: -- Replaced the call of Create_AR_Invoice_Header and Create_AR_Invoice_Lines
2062: END IF;
2063:
2064: l_tilv_tbl(l_cnt):= l_tilv_rec ;
2065:
2066: EXIT WHEN ( l_cnt = p_ariv_tbl.LAST OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
2067: l_cnt := p_ariv_tbl.NEXT(l_cnt);
2068: END LOOP;
2069:
2070: Create_billing_invoices ( p_taiv_rec =>l_taiv_rec,
2092: x_pos_taiv_rec => lx_pos_taiv_rec,
2093: x_neg_taiv_rec => lx_neg_taiv_rec,
2094: x_return_status => l_return_status);
2095:
2096: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2099: RAISE OKL_API.G_EXCEPTION_ERROR;
2100: END IF;
2093: x_neg_taiv_rec => lx_neg_taiv_rec,
2094: x_return_status => l_return_status);
2095:
2096: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2099: RAISE OKL_API.G_EXCEPTION_ERROR;
2100: END IF;
2101:
2094: x_return_status => l_return_status);
2095:
2096: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2099: RAISE OKL_API.G_EXCEPTION_ERROR;
2100: END IF;
2101:
2102: -- *********************************************
2095:
2096: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2099: RAISE OKL_API.G_EXCEPTION_ERROR;
2100: END IF;
2101:
2102: -- *********************************************
2103: -- Create Invoice Lines for each record in table
2136: x_tilv_rec => lx_tilv_rec,
2137: x_return_status => l_return_status);
2138:
2139: EXIT WHEN ( l_cnt = p_ariv_tbl.LAST
2140: OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
2141: l_cnt := p_ariv_tbl.NEXT(l_cnt);
2142:
2143: END LOOP;
2144: */
2143: END LOOP;
2144: */
2145: -- ansethur 08-MAR-2007 R12B Billing Architecture End Changes
2146:
2147: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2144: */
2145: -- ansethur 08-MAR-2007 R12B Billing Architecture End Changes
2146:
2147: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152:
2145: -- ansethur 08-MAR-2007 R12B Billing Architecture End Changes
2146:
2147: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152:
2153: -- **************
2146:
2147: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152:
2153: -- **************
2154: -- Return results
2167: END IF;
2168:
2169: x_return_status := l_overall_status;
2170:
2171: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
2172: IF (is_debug_procedure_on) THEN
2173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2174: END IF;
2175:
2174: END IF;
2175:
2176: EXCEPTION
2177:
2178: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2179: IF (is_debug_exception_on) THEN
2180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2181: END IF;
2182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2178: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2179: IF (is_debug_exception_on) THEN
2180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2181: END IF;
2182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2183: (
2184: l_api_name,
2185: G_PKG_NAME,
2186: 'OKL_API.G_RET_STS_ERROR',
2182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2183: (
2184: l_api_name,
2185: G_PKG_NAME,
2186: 'OKL_API.G_RET_STS_ERROR',
2187: x_msg_count,
2188: x_msg_data,
2189: '_PVT'
2190: );
2188: x_msg_data,
2189: '_PVT'
2190: );
2191:
2192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193: IF (is_debug_exception_on) THEN
2194: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2195: END IF;
2196: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2192: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193: IF (is_debug_exception_on) THEN
2194: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2195: END IF;
2196: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2197: (
2198: l_api_name,
2199: G_PKG_NAME,
2200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2196: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2197: (
2198: l_api_name,
2199: G_PKG_NAME,
2200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2201: x_msg_count,
2202: x_msg_data,
2203: '_PVT'
2204: );
2208: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2209: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2210: END IF;
2211:
2212: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2216: 'OTHERS',
2314: l_til_rec l_til_csr%ROWTYPE;
2315: l_taiv_rec taiv_rec_type;
2316: l_tilv_rec tilv_rec_type;
2317:
2318: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2319: lx_remrkt_sty_id NUMBER; --User Defined Streams
2320: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_populate_remarket';
2321: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2322: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2337: OPEN l_til_csr (p_order_line_id);
2338: FETCH l_til_csr INTO l_til_rec;
2339:
2340: IF l_til_csr%FOUND THEN
2341: l_return_status := OKL_API.G_RET_STS_ERROR;
2342: -- Message Text: Unable to process request for
2343: -- a Invoice creation. Invoice(s) already exist
2344: OKL_API.SET_MESSAGE (
2345: p_app_name => G_APP_NAME,
2340: IF l_til_csr%FOUND THEN
2341: l_return_status := OKL_API.G_RET_STS_ERROR;
2342: -- Message Text: Unable to process request for
2343: -- a Invoice creation. Invoice(s) already exist
2344: OKL_API.SET_MESSAGE (
2345: p_app_name => G_APP_NAME,
2346: p_msg_name => 'OKL_AM_INVOICES_EXIST');
2347: END IF;
2348:
2355: OPEN l_art_csr (p_order_line_id);
2356: FETCH l_art_csr INTO l_art_rec;
2357:
2358: IF l_art_csr%NOTFOUND THEN
2359: l_return_status := OKL_API.G_RET_STS_ERROR;
2360: OKC_API.SET_MESSAGE (
2361: p_app_name => G_OKC_APP_NAME,
2362: p_msg_name => G_INVALID_VALUE,
2363: p_token1 => G_COL_NAME_TOKEN,
2366: ELSE
2367:
2368: -- RRAVIKIR Legal Entity Changes
2369: IF (l_art_rec.legal_entity_id is null or l_art_rec.legal_entity_id = OKC_API.G_MISS_NUM) THEN
2370: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2371: p_msg_name => g_required_value,
2372: p_token1 => g_col_name_token,
2373: p_token1_value => 'legal_entity_id');
2374: RAISE OKC_API.G_EXCEPTION_ERROR;
2452: l_tilv_rec.sty_id := lx_remrkt_sty_id;
2453: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
2454:
2455: IF NVL (l_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
2456: l_return_status := OKL_API.G_RET_STS_ERROR;
2457:
2458: /* -- rmunjulu bug 4056364 No need to set this message
2459: -- Stream Purpose is not setup
2460: okl_am_util_pvt.set_message (
2468: -- ***********
2469: -- Save amount
2470: -- ***********
2471:
2472: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2473: -- if order line is found
2474:
2475: IF l_tilv_rec.amount IS NULL
2476: OR l_tilv_rec.amount = G_MISS_NUM
2474:
2475: IF l_tilv_rec.amount IS NULL
2476: OR l_tilv_rec.amount = G_MISS_NUM
2477: OR l_tilv_rec.amount = 0 THEN
2478: l_return_status := OKL_API.G_RET_STS_ERROR;
2479: -- Message Text: Invalid value for the column Amount
2480: OKC_API.SET_MESSAGE (
2481: p_app_name => G_OKC_APP_NAME,
2482: p_msg_name => G_INVALID_VALUE,
2525: END IF;
2526:
2527:
2528: -- store SQL error message on message stack for caller
2529: OKL_API.SET_MESSAGE (
2530: p_app_name => G_APP_NAME
2531: ,p_msg_name => G_UNEXPECTED_ERROR
2532: ,p_token1 => G_SQLCODE_TOKEN
2533: ,p_token1_value => sqlcode
2534: ,p_token2 => G_SQLERRM_TOKEN
2535: ,p_token2_value => sqlerrm);
2536:
2537: -- notify caller of an UNEXPECTED error
2538: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2539:
2540: END Validate_Populate_Remarket;
2541:
2542:
2557: x_return_status OUT NOCOPY VARCHAR2,
2558: p_order_line_id IN NUMBER,
2559: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
2560:
2561: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2562: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2563:
2564: l_api_name CONSTANT VARCHAR2(30) :='Create_Remarket_Invoice';
2565: l_api_version CONSTANT NUMBER := G_API_VERSION;
2558: p_order_line_id IN NUMBER,
2559: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
2560:
2561: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2562: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2563:
2564: l_api_name CONSTANT VARCHAR2(30) :='Create_Remarket_Invoice';
2565: l_api_version CONSTANT NUMBER := G_API_VERSION;
2566: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
2562: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2563:
2564: l_api_name CONSTANT VARCHAR2(30) :='Create_Remarket_Invoice';
2565: l_api_version CONSTANT NUMBER := G_API_VERSION;
2566: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
2567: l_msg_data VARCHAR2(2000);
2568: l_cnt NUMBER;
2569:
2570: l_pos_amount NUMBER := 0;
2595: -- ***************************************************************
2596: -- Check API version, initialize message list and create savepoint
2597: -- ***************************************************************
2598:
2599: l_return_status := OKL_API.START_ACTIVITY (
2600: l_api_name,
2601: G_PKG_NAME,
2602: p_init_msg_list,
2603: l_api_version,
2604: p_api_version,
2605: '_PVT',
2606: x_return_status);
2607:
2608: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2605: '_PVT',
2606: x_return_status);
2607:
2608: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2613:
2606: x_return_status);
2607:
2608: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2613:
2614: -- *******************
2607:
2608: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2613:
2614: -- *******************
2615: -- Validate parameters
2625: p_token1_value => 'ORDER_LINE_ID',
2626: p_token2 => 'PROCESS',
2627: p_token2_value => l_api_name);
2628:
2629: RAISE OKL_API.G_EXCEPTION_ERROR;
2630:
2631: END IF;
2632:
2633: -- Validate order_line_id
2642: IF (is_debug_statement_on) THEN
2643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Remarket , return status: ' || l_return_status);
2644: END IF;
2645:
2646: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Remarket , return status: ' || l_return_status);
2644: END IF;
2645:
2646: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2651:
2644: END IF;
2645:
2646: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2651:
2652:
2645:
2646: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2648: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2649: RAISE OKL_API.G_EXCEPTION_ERROR;
2650: END IF;
2651:
2652:
2653: -- ANSETHUR 08-MAR-2007 R12B Billling Architecture Start Changes
2677: x_pos_taiv_rec => lx_pos_taiv_rec,
2678: x_neg_taiv_rec => lx_neg_taiv_rec,
2679: x_return_status => l_return_status);
2680:
2681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2684: RAISE OKL_API.G_EXCEPTION_ERROR;
2685: END IF;
2678: x_neg_taiv_rec => lx_neg_taiv_rec,
2679: x_return_status => l_return_status);
2680:
2681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2684: RAISE OKL_API.G_EXCEPTION_ERROR;
2685: END IF;
2686:
2679: x_return_status => l_return_status);
2680:
2681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2684: RAISE OKL_API.G_EXCEPTION_ERROR;
2685: END IF;
2686:
2687: -- *********************************************
2680:
2681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2684: RAISE OKL_API.G_EXCEPTION_ERROR;
2685: END IF;
2686:
2687: -- *********************************************
2688: -- Create Invoice Lines for each record in table
2701: x_tilv_rec => lx_tilv_rec,
2702: x_return_status => l_return_status);
2703: */
2704: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2705: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2702: x_return_status => l_return_status);
2703: */
2704: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2705: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710:
2703: */
2704: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2705: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710:
2711: -- **************
2704: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2705: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710:
2711: -- **************
2712: -- Return results
2725: END IF;
2726:
2727: x_return_status := l_overall_status;
2728:
2729: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
2730: IF (is_debug_procedure_on) THEN
2731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2732: END IF;
2733:
2732: END IF;
2733:
2734: EXCEPTION
2735:
2736: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2737: IF (is_debug_exception_on) THEN
2738: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2739: END IF;
2740: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2736: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2737: IF (is_debug_exception_on) THEN
2738: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2739: END IF;
2740: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKL_API.G_RET_STS_ERROR',
2740: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKL_API.G_RET_STS_ERROR',
2745: x_msg_count,
2746: x_msg_data,
2747: '_PVT'
2748: );
2746: x_msg_data,
2747: '_PVT'
2748: );
2749:
2750: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2751: IF (is_debug_exception_on) THEN
2752: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2753: END IF;
2754: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2750: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2751: IF (is_debug_exception_on) THEN
2752: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2753: END IF;
2754: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2758: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2754: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2755: (
2756: l_api_name,
2757: G_PKG_NAME,
2758: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2759: x_msg_count,
2760: x_msg_data,
2761: '_PVT'
2762: );
2766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2767: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2768: END IF;
2769:
2770: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2771: (
2772: l_api_name,
2773: G_PKG_NAME,
2774: 'OTHERS',
2854:
2855: l_rulv_rec okl_rule_pub.rulv_rec_type;
2856: l_sdd_tbl sdd_tbl_type;
2857: l_tld_tbl tld_tbl_type;
2858: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2859:
2860: -- Calculation results
2861: l_old_cm_amount NUMBER;
2862: l_cnt NUMBER := 0;
2912: IF (is_debug_statement_on) THEN
2913: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
2914: END IF;
2915:
2916: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2917:
2918: OPEN l_contract_csr (p_contract_id);
2919: FETCH l_contract_csr INTO l_contract_end_date;
2920: CLOSE l_contract_csr;
3037: END IF;
3038:
3039: -- store SQL error message on message stack for caller
3040:
3041: OKL_API.SET_MESSAGE (
3042: p_app_name => OKL_API.G_APP_NAME,
3043: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
3044: p_token1 => 'SQLCODE',
3045: p_token1_value => SQLCODE,
3038:
3039: -- store SQL error message on message stack for caller
3040:
3041: OKL_API.SET_MESSAGE (
3042: p_app_name => OKL_API.G_APP_NAME,
3043: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
3044: p_token1 => 'SQLCODE',
3045: p_token1_value => SQLCODE,
3046: p_token2 => 'SQLERRM',
3071: p_dispose_amount IN NUMBER DEFAULT NULL,
3072: p_quote_id IN NUMBER DEFAULT NULL, --akrangan added for bug 7036873
3073: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
3074:
3075: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3076: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3077:
3078: l_api_name CONSTANT VARCHAR2(30) :=
3079: 'Create_Scrt_Dpst_Dsps_Inv';
3072: p_quote_id IN NUMBER DEFAULT NULL, --akrangan added for bug 7036873
3073: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
3074:
3075: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3076: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3077:
3078: l_api_name CONSTANT VARCHAR2(30) :=
3079: 'Create_Scrt_Dpst_Dsps_Inv';
3080: l_api_version CONSTANT NUMBER := G_API_VERSION;
3077:
3078: l_api_name CONSTANT VARCHAR2(30) :=
3079: 'Create_Scrt_Dpst_Dsps_Inv';
3080: l_api_version CONSTANT NUMBER := G_API_VERSION;
3081: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
3082: l_msg_data VARCHAR2(2000);
3083:
3084: l_taiv_rec taiv_rec_type;
3085: l_taiv_tbl taiv_tbl_type;
3118: -- ***************************************************************
3119: -- Check API version, initialize message list and create savepoint
3120: -- ***************************************************************
3121:
3122: l_return_status := OKL_API.START_ACTIVITY (
3123: l_api_name,
3124: G_PKG_NAME,
3125: p_init_msg_list,
3126: l_api_version,
3127: p_api_version,
3128: '_PVT',
3129: x_return_status);
3130:
3131: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3134: RAISE OKL_API.G_EXCEPTION_ERROR;
3135: END IF;
3128: '_PVT',
3129: x_return_status);
3130:
3131: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3134: RAISE OKL_API.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3129: x_return_status);
3130:
3131: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3134: RAISE OKL_API.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3137: -- *******************
3130:
3131: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3134: RAISE OKL_API.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3137: -- *******************
3138: -- Validate parameters
3148: p_token1_value => 'CONTRACT_ID',
3149: p_token2 => 'PROCESS',
3150: p_token2_value => l_api_name);
3151:
3152: RAISE OKL_API.G_EXCEPTION_ERROR;
3153:
3154: END IF;
3155:
3156: -- ***************************
3173: OR l_total_amount = G_MISS_NUM THEN
3174:
3175:
3176: -- There is no security deposit disposition amount remaining for the contract.
3177: OKL_API.set_message (
3178: p_app_name => 'OKL',
3179: p_msg_name => 'OKL_AM_INVALID_DEP_AMT');
3180:
3181: -- Raise halt validation so as not to set return status to E
3188:
3189:
3190: -- The remaining security deposit disposition amount for the contract is less than
3191: -- the disposition amount specified.
3192: OKL_API.set_message (
3193: p_app_name => 'OKL',
3194: p_msg_name => 'OKL_AM_INVALID_INV_AMT');
3195:
3196: -- Raise halt validation so as not to set return status to E
3235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_credit_memo_pub.insert_on_acc_cm_request');
3236: END IF;
3237: okl_credit_memo_pub.insert_on_acc_cm_request (
3238: p_api_version => l_api_version,
3239: p_init_msg_list => OKL_API.G_FALSE,
3240: x_return_status => l_return_status,
3241: x_msg_count => l_msg_count,
3242: x_msg_data => l_msg_data,
3243: p_tld_id => l_sdd_tbl(i).tld_id, -- ansethur 03/02/2007 Added For Billing Architecture Project
3250: IF (is_debug_statement_on) THEN
3251: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_credit_memo_pub.insert_on_acc_cm_request , return status: ' || l_return_status);
3252: END IF;
3253:
3254: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3255: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3256: l_overall_status := l_return_status;
3257: END IF;
3258: ELSE
3251: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_credit_memo_pub.insert_on_acc_cm_request , return status: ' || l_return_status);
3252: END IF;
3253:
3254: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3255: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3256: l_overall_status := l_return_status;
3257: END IF;
3258: ELSE
3259: l_cnt := l_cnt + 1;
3270:
3271: x_taiv_tbl := l_taiv_tbl;
3272: x_return_status := l_overall_status;
3273:
3274: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
3275: IF (is_debug_procedure_on) THEN
3276: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3277: END IF;
3278:
3285: END IF;
3286:
3287: NULL;
3288:
3289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3290: IF (is_debug_exception_on) THEN
3291: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3292: END IF;
3293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3290: IF (is_debug_exception_on) THEN
3291: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3292: END IF;
3293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3294: (
3295: l_api_name,
3296: G_PKG_NAME,
3297: 'OKL_API.G_RET_STS_ERROR',
3293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3294: (
3295: l_api_name,
3296: G_PKG_NAME,
3297: 'OKL_API.G_RET_STS_ERROR',
3298: x_msg_count,
3299: x_msg_data,
3300: '_PVT'
3301: );
3299: x_msg_data,
3300: '_PVT'
3301: );
3302:
3303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3304: IF (is_debug_exception_on) THEN
3305: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3306: END IF;
3307: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3304: IF (is_debug_exception_on) THEN
3305: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3306: END IF;
3307: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3308: (
3309: l_api_name,
3310: G_PKG_NAME,
3311: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3307: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3308: (
3309: l_api_name,
3310: G_PKG_NAME,
3311: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3312: x_msg_count,
3313: x_msg_data,
3314: '_PVT'
3315: );
3319: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3320: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3321: END IF;
3322:
3323: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3324: (
3325: l_api_name,
3326: G_PKG_NAME,
3327: 'OTHERS',
3472: WHERE fnd.lookup_type = 'OKL_QUOTE_LINE_TYPE'
3473: AND fnd.lookup_code = 'BILL_ADJST';
3474:
3475: l_api_version CONSTANT NUMBER := G_API_VERSION;
3476: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
3477: l_msg_data VARCHAR2(2000);
3478: l_cnt NUMBER;
3479: l_seq NUMBER;
3480:
3496:
3497: l_allc_total NUMBER := 0; -- Total allocated
3498: l_no_allc NUMBER := 0; -- Recipients without allocation
3499:
3500: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3501: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3502: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3503: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3504: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3497: l_allc_total NUMBER := 0; -- Total allocated
3498: l_no_allc NUMBER := 0; -- Recipients without allocation
3499:
3500: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3501: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3502: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3503: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3504: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3505: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3498: l_no_allc NUMBER := 0; -- Recipients without allocation
3499:
3500: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3501: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3502: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3503: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3504: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3505: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3506: -- rmunjulu EDAT
3499:
3500: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3501: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3502: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3503: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3504: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3505: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3506: -- rmunjulu EDAT
3507: l_partial_yn VARCHAR2(3);
3500: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3501: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3502: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3503: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3504: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3505: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3506: -- rmunjulu EDAT
3507: l_partial_yn VARCHAR2(3);
3508: l_khr_id NUMBER;
3582: OPEN l_tai_csr (p_quote_id);
3583: FETCH l_tai_csr INTO l_tai_rec;
3584:
3585: IF l_tai_csr%FOUND THEN
3586: l_return_status := OKL_API.G_RET_STS_ERROR;
3587: -- Message Text: Unable to process request for
3588: -- a Invoice creation. Invoice(s) already exist
3589: OKL_API.SET_MESSAGE (
3590: p_app_name => G_APP_NAME,
3585: IF l_tai_csr%FOUND THEN
3586: l_return_status := OKL_API.G_RET_STS_ERROR;
3587: -- Message Text: Unable to process request for
3588: -- a Invoice creation. Invoice(s) already exist
3589: OKL_API.SET_MESSAGE (
3590: p_app_name => G_APP_NAME,
3591: p_msg_name => 'OKL_AM_INVOICES_EXIST');
3592: END IF;
3593:
3600: OPEN l_qte_csr (p_quote_id);
3601: FETCH l_qte_csr INTO l_qte_rec;
3602:
3603: IF l_qte_csr%NOTFOUND THEN
3604: l_return_status := OKL_API.G_RET_STS_ERROR;
3605: OKC_API.SET_MESSAGE (
3606: p_app_name => G_OKC_APP_NAME,
3607: p_msg_name => G_INVALID_VALUE,
3608: p_token1 => G_COL_NAME_TOKEN,
3628: FETCH l_assetreturn_csr INTO l_legal_entity_id;
3629: CLOSE l_assetreturn_csr;
3630:
3631: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
3632: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3633: p_msg_name => g_required_value,
3634: p_token1 => g_col_name_token,
3635: p_token1_value => 'legal_entity_id');
3636: RAISE OKC_API.G_EXCEPTION_ERROR;
3644: END IF;
3645:
3646: CLOSE l_qte_csr;
3647:
3648: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3649: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3650: l_overall_status := l_return_status;
3651: END IF;
3652: END IF;
3645:
3646: CLOSE l_qte_csr;
3647:
3648: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3649: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3650: l_overall_status := l_return_status;
3651: END IF;
3652: END IF;
3653:
3668: l_r_taiv_tbl(l_cnt).amount := l_qpt_rec.allc_perc;
3669: l_allc_total := l_allc_total + l_qpt_rec.allc_perc;
3670: ELSIF l_qpt_rec.allc_perc < 0
3671: OR l_qpt_rec.allc_perc > 100 THEN
3672: l_alloc_status := OKL_API.G_RET_STS_ERROR;
3673: ELSE
3674: l_no_allc := l_no_allc + 1;
3675: END IF;
3676:
3694: -- Bill Lessee
3695: ELSIF l_qpt_rec.rle_code = 'LESSEE' THEN
3696:
3697: -- BPD derives billing info using KHR_ID
3698: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3699:
3700: -- Unidentified Party
3701: ELSE
3702:
3699:
3700: -- Unidentified Party
3701: ELSE
3702:
3703: l_return_status := OKL_API.G_RET_STS_ERROR;
3704: -- Message Text: Invalid value for the column Allocation Percentage
3705: OKL_API.SET_MESSAGE (
3706: p_app_name => G_OKC_APP_NAME,
3707: p_msg_name => G_INVALID_VALUE,
3701: ELSE
3702:
3703: l_return_status := OKL_API.G_RET_STS_ERROR;
3704: -- Message Text: Invalid value for the column Allocation Percentage
3705: OKL_API.SET_MESSAGE (
3706: p_app_name => G_OKC_APP_NAME,
3707: p_msg_name => G_INVALID_VALUE,
3708: p_token1 => G_COL_NAME_TOKEN,
3709: p_token1_value => 'Quote Recipient');
3709: p_token1_value => 'Quote Recipient');
3710:
3711: END IF;
3712:
3713: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3714: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3715: l_overall_status := l_return_status;
3716: END IF;
3717: END IF;
3710:
3711: END IF;
3712:
3713: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3714: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3715: l_overall_status := l_return_status;
3716: END IF;
3717: END IF;
3718:
3723: l_r_taiv_tbl(1) := l_taiv_rec;
3724: ELSIF l_allc_total > 100
3725: OR (l_allc_total = 100 AND l_no_allc > 0)
3726: OR (l_allc_total < 100 AND l_no_allc = 0) THEN
3727: l_alloc_status := OKL_API.G_RET_STS_ERROR;
3728: ELSIF (l_allc_total < 100 AND l_no_allc > 0) THEN
3729: -- Divide the rest equally
3730: FOR i IN l_r_taiv_tbl.FIRST..l_r_taiv_tbl.LAST LOOP
3731: IF l_r_taiv_tbl(i).amount IS NULL
3734: END IF;
3735: END LOOP;
3736: END IF;
3737:
3738: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
3739: l_return_status := OKL_API.G_RET_STS_ERROR;
3740: -- Message Text: Invalid value for the column Allocation Percentage
3741: OKL_API.SET_MESSAGE (
3742: p_app_name => G_OKC_APP_NAME,
3735: END LOOP;
3736: END IF;
3737:
3738: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
3739: l_return_status := OKL_API.G_RET_STS_ERROR;
3740: -- Message Text: Invalid value for the column Allocation Percentage
3741: OKL_API.SET_MESSAGE (
3742: p_app_name => G_OKC_APP_NAME,
3743: p_msg_name => G_INVALID_VALUE,
3737:
3738: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
3739: l_return_status := OKL_API.G_RET_STS_ERROR;
3740: -- Message Text: Invalid value for the column Allocation Percentage
3741: OKL_API.SET_MESSAGE (
3742: p_app_name => G_OKC_APP_NAME,
3743: p_msg_name => G_INVALID_VALUE,
3744: p_token1 => G_COL_NAME_TOKEN,
3745: p_token1_value => 'Allocation Percentage');
3744: p_token1 => G_COL_NAME_TOKEN,
3745: p_token1_value => 'Allocation Percentage');
3746: END IF;
3747:
3748: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3749: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3750: l_overall_status := l_return_status;
3751: END IF;
3752: END IF;
3745: p_token1_value => 'Allocation Percentage');
3746: END IF;
3747:
3748: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3749: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3750: l_overall_status := l_return_status;
3751: END IF;
3752: END IF;
3753:
3754: -- **********************
3755: -- Get Quote Line Records
3756: -- **********************
3757:
3758: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
3759: -- if quote is found
3760: --PAGARG Bug 4044659 Open and fetch values from l_sys_prms_csr
3761: OPEN l_sys_prms_csr;
3762: FETCH l_sys_prms_csr INTO l_sys_prms_rec;
3783: l_tilv_rec.qte_line_id := l_qlt_rec.quote_line_id; -- rmunjulu sales_tax_enhancement
3784:
3785: Create_Scrt_Dpst_Dsps_Inv (
3786: p_api_version => l_api_version,
3787: p_init_msg_list => OKL_API.G_FALSE,
3788: x_return_status => l_return_status,
3789: x_msg_count => l_msg_count,
3790: x_msg_data => l_msg_data,
3791: p_contract_id => l_taiv_rec.khr_id,
3796: IF (is_debug_statement_on) THEN
3797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_Scrt_Dpst_Dsps_Inv , return status: ' || l_return_status);
3798: END IF;
3799:
3800: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3801: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3802: l_overall_status := l_return_status;
3803: END IF;
3804: END IF;
3797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_Scrt_Dpst_Dsps_Inv , return status: ' || l_return_status);
3798: END IF;
3799:
3800: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3801: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3802: l_overall_status := l_return_status;
3803: END IF;
3804: END IF;
3805:
3830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_trx_ar_invoices_pub.update_trx_ar_invoices');
3831: END IF;
3832: okl_trx_ar_invoices_pub.update_trx_ar_invoices (
3833: p_api_version => l_api_version,
3834: p_init_msg_list => OKL_API.G_FALSE,
3835: x_return_status => l_return_status,
3836: x_msg_count => l_msg_count,
3837: x_msg_data => l_msg_data,
3838: p_taiv_rec => lu_taiv_rec,
3840: IF (is_debug_statement_on) THEN
3841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_trx_ar_invoices_pub.update_trx_ar_invoices , return status: ' || l_return_status);
3842: END IF;
3843:
3844: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3845: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3846: l_overall_status := l_return_status;
3847: END IF;
3848: END IF;
3841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_trx_ar_invoices_pub.update_trx_ar_invoices , return status: ' || l_return_status);
3842: END IF;
3843:
3844: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3845: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3846: l_overall_status := l_return_status;
3847: END IF;
3848: END IF;
3849:
3893: l_pos_amount := l_pos_amount + l_tilv_rec.amount;
3894: ELSIF l_tilv_rec.amount < 0 THEN
3895: l_neg_amount := l_neg_amount + l_tilv_rec.amount;
3896: ELSE
3897: l_amount_status := OKL_API.G_RET_STS_ERROR;
3898: END IF;
3899:
3900: -- rmunjulu EDAT for Billing Adjustment the stream type will be same as original stream type
3901: --IF l_qlt_rec.qlt_code = 'BILL_ADJST' THEN
3921: IF NVL (l_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
3922: -- Check if stream type is already assigned
3923: l_tilv_rec.sty_id := l_qlt_rec.sty_id;
3924: IF NVL (l_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
3925: l_stream_status := OKL_API.G_RET_STS_ERROR;
3926:
3927: /* -- rmunjulu Bug 4056364 Do not set this message, message will be set by OKL_STREAMS_UTIL
3928: -- Stream Type is not setup in Quote Line Allocation Screen for QLT_CODE
3929: okl_am_util_pvt.set_message (
3981:
3982: -- Call BPD API to get billing from quote_effective_from_date onwards
3983: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
3984: p_api_version => l_api_version,
3985: p_init_msg_list => OKL_API.G_FALSE,
3986: p_input_tbl => l_input_tbl,
3987: x_baj_tbl => lx_baj_tbl,
3988: x_return_status => l_return_status,
3989: x_msg_count => l_msg_count,
3988: x_return_status => l_return_status,
3989: x_msg_count => l_msg_count,
3990: x_msg_data => l_msg_data);
3991:
3992: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3993:
3994: -- Error getting the billing adjustments for the contract.
3995: OKL_API.set_message(
3996: p_app_name => 'OKL',
3991:
3992: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3993:
3994: -- Error getting the billing adjustments for the contract.
3995: OKL_API.set_message(
3996: p_app_name => 'OKL',
3997: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
3998:
3999: END IF;
3997: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
3998:
3999: END IF;
4000:
4001: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4002: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4003: l_overall_status := l_return_status;
4004: END IF;
4005: END IF;
3998:
3999: END IF;
4000:
4001: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4002: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4003: l_overall_status := l_return_status;
4004: END IF;
4005: END IF;
4006:
4077:
4078: -- Do passthru disbursments if full termination and if billing adjustments needed.
4079: /*OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj(
4080: p_api_version => l_api_version,
4081: p_init_msg_list => OKL_API.G_FALSE,
4082: p_baj_tbl => lx_baj_tbl,
4083: x_return_status => l_return_status,
4084: x_msg_count => l_msg_count,
4085: x_msg_data => l_msg_data);
4083: x_return_status => l_return_status,
4084: x_msg_count => l_msg_count,
4085: x_msg_data => l_msg_data);
4086:
4087: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4088:
4089: -- Error performing passthru disbursments.
4090: OKL_API.set_message(
4091: p_app_name => 'OKL',
4086:
4087: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4088:
4089: -- Error performing passthru disbursments.
4090: OKL_API.set_message(
4091: p_app_name => 'OKL',
4092: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
4093:
4094: END IF;
4092: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
4093:
4094: END IF;
4095:
4096: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4097: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4098: l_overall_status := l_return_status;
4099: END IF;
4100: END IF;
4093:
4094: END IF;
4095:
4096: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4097: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4098: l_overall_status := l_return_status;
4099: END IF;
4100: END IF;
4101:
4119: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_primary_stream_type , return status: ' || l_return_status);
4120: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_perdiem_sty_id: ' || l_perdiem_sty_id);
4121: END IF;
4122:
4123: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4124: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4125: l_overall_status := l_return_status;
4126: END IF;
4127: END IF;
4120: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_perdiem_sty_id: ' || l_perdiem_sty_id);
4121: END IF;
4122:
4123: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4124: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4125: l_overall_status := l_return_status;
4126: END IF;
4127: END IF;
4128:
4125: l_overall_status := l_return_status;
4126: END IF;
4127: END IF;
4128:
4129: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
4130:
4131: --SECHAWLA 05-JAN-06 4926740 : added for prior-dated quotes : begin
4132: IF trunc(l_date_eff_from) < trunc(l_creation_date) THEN -- Prior-dated quotes
4133: IF trunc(l_quote_accpt_date) = trunc(l_creation_date) THEN
4192: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status: ' || l_return_status);
4193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount: ' || l_loan_refund_amount);
4194: END IF;
4195:
4196: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4197: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4198: l_overall_status := l_return_status;
4199: END IF;
4200: END IF;
4193: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount: ' || l_loan_refund_amount);
4194: END IF;
4195:
4196: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4197: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4198: l_overall_status := l_return_status;
4199: END IF;
4200: END IF;
4201:
4217: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status: ' || l_return_status);
4218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_refund_sty_id: ' || l_refund_sty_id);
4219: END IF;
4220: --Bug 6266134 veramach end
4221: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4222: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4223: l_overall_status := l_return_status;
4224: END IF;
4225: END IF;
4218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_refund_sty_id: ' || l_refund_sty_id);
4219: END IF;
4220: --Bug 6266134 veramach end
4221: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4222: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4223: l_overall_status := l_return_status;
4224: END IF;
4225: END IF;
4226:
4253: END IF;
4254:
4255: l_tilv_tbl(l_line_number) := l_tilv_rec;
4256:
4257: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4258: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4259: l_overall_status := l_return_status;
4260: END IF;
4261: END IF;
4254:
4255: l_tilv_tbl(l_line_number) := l_tilv_rec;
4256:
4257: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4258: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4259: l_overall_status := l_return_status;
4260: END IF;
4261: END IF;
4262: END IF;
4276: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust');
4277: END IF;
4278: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
4279: p_api_version => l_api_version,
4280: p_init_msg_list => OKL_API.G_FALSE,
4281: p_input_tbl => l_input_tbl,
4282: x_baj_tbl => lx_baj_tbl,
4283: x_return_status => l_return_status,
4284: x_msg_count => l_msg_count,
4286: IF (is_debug_statement_on) THEN
4287: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust , return status: ' || l_return_status);
4288: END IF;
4289:
4290: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4291: -- Error getting the billing adjustments for the contract.
4292: OKL_API.set_message(
4293: p_app_name => 'OKL',
4294: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4288: END IF;
4289:
4290: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4291: -- Error getting the billing adjustments for the contract.
4292: OKL_API.set_message(
4293: p_app_name => 'OKL',
4294: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4295: END IF;
4296: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4292: OKL_API.set_message(
4293: p_app_name => 'OKL',
4294: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4295: END IF;
4296: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4297: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4298: l_overall_status := l_return_status;
4299: END IF;
4300: END IF;
4293: p_app_name => 'OKL',
4294: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4295: END IF;
4296: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4297: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4298: l_overall_status := l_return_status;
4299: END IF;
4300: END IF;
4301:
4324: THEN
4325: -- akrangan - Bug#5521354- Modified - End
4326: -- AND nvl(l_future_invoices_exists,'N') = 'N' THEN -- rmunjulu 4610850 Added condition to Check if future billing adjustments exist
4327: IF NOT l_sdd_invoice THEN --added by veramach for bug#6766479
4328: l_return_status := OKL_API.G_RET_STS_ERROR;
4329: -- Message Text: The invoice has a balance of zero.
4330: OKC_API.SET_MESSAGE (
4331: p_app_name => G_APP_NAME,
4332: p_msg_name => 'OKL_BPD_ZERO_INVOICE');
4351: END IF;
4352:
4353: END IF; --veramach end bug#6766479
4354: END IF;
4355: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
4356: l_return_status := OKL_API.G_RET_STS_ERROR;
4357: -- Message Text: Invalid value for the column Amount
4358: OKL_API.SET_MESSAGE (
4359: p_app_name => G_OKC_APP_NAME,
4352:
4353: END IF; --veramach end bug#6766479
4354: END IF;
4355: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
4356: l_return_status := OKL_API.G_RET_STS_ERROR;
4357: -- Message Text: Invalid value for the column Amount
4358: OKL_API.SET_MESSAGE (
4359: p_app_name => G_OKC_APP_NAME,
4360: p_msg_name => G_INVALID_VALUE,
4354: END IF;
4355: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
4356: l_return_status := OKL_API.G_RET_STS_ERROR;
4357: -- Message Text: Invalid value for the column Amount
4358: OKL_API.SET_MESSAGE (
4359: p_app_name => G_OKC_APP_NAME,
4360: p_msg_name => G_INVALID_VALUE,
4361: p_token1 => G_COL_NAME_TOKEN,
4362: p_token1_value => 'Amount');
4361: p_token1 => G_COL_NAME_TOKEN,
4362: p_token1_value => 'Amount');
4363: END IF;
4364:
4365: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS THEN
4366: l_return_status := OKL_API.G_RET_STS_ERROR;
4367: END IF;
4368:
4369: END IF;
4362: p_token1_value => 'Amount');
4363: END IF;
4364:
4365: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS THEN
4366: l_return_status := OKL_API.G_RET_STS_ERROR;
4367: END IF;
4368:
4369: END IF;
4370:
4367: END IF;
4368:
4369: END IF;
4370:
4371: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4372: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4373: l_overall_status := l_return_status;
4374: END IF;
4375: END IF;
4368:
4369: END IF;
4370:
4371: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4372: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4373: l_overall_status := l_return_status;
4374: END IF;
4375: END IF;
4376:
4418: CLOSE l_sys_prms_csr;
4419: END IF;
4420:
4421: -- store SQL error message on message stack for caller
4422: OKL_API.SET_MESSAGE (
4423: p_app_name => G_APP_NAME
4424: ,p_msg_name => G_UNEXPECTED_ERROR
4425: ,p_token1 => G_SQLCODE_TOKEN
4426: ,p_token1_value => sqlcode
4427: ,p_token2 => G_SQLERRM_TOKEN
4428: ,p_token2_value => sqlerrm);
4429:
4430: -- notify caller of an UNEXPECTED error
4431: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4432:
4433: END Validate_Populate_Quote;
4434:
4435:
4458: x_return_status OUT NOCOPY VARCHAR2,
4459: p_quote_id IN NUMBER,
4460: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
4461:
4462: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4463: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4464:
4465: l_api_name CONSTANT VARCHAR2(30) := 'Create_Quote_Invoice';
4466: l_api_version CONSTANT NUMBER := G_API_VERSION;
4459: p_quote_id IN NUMBER,
4460: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
4461:
4462: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4463: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4464:
4465: l_api_name CONSTANT VARCHAR2(30) := 'Create_Quote_Invoice';
4466: l_api_version CONSTANT NUMBER := G_API_VERSION;
4467: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
4463: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4464:
4465: l_api_name CONSTANT VARCHAR2(30) := 'Create_Quote_Invoice';
4466: l_api_version CONSTANT NUMBER := G_API_VERSION;
4467: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
4468: l_msg_data VARCHAR2(2000);
4469:
4470: l_h_cnt NUMBER;
4471: l_l_cnt NUMBER;
4621: -- ***************************************************************
4622: -- Check API version, initialize message list and create savepoint
4623: -- ***************************************************************
4624:
4625: l_return_status := OKL_API.START_ACTIVITY (
4626: l_api_name,
4627: G_PKG_NAME,
4628: p_init_msg_list,
4629: l_api_version,
4630: p_api_version,
4631: '_PVT',
4632: x_return_status);
4633:
4634: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4631: '_PVT',
4632: x_return_status);
4633:
4634: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639:
4632: x_return_status);
4633:
4634: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639:
4640: -- *******************
4633:
4634: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639:
4640: -- *******************
4641: -- Validate parameters
4651: p_token1_value => 'QUOTE_ID',
4652: p_token2 => 'PROCESS',
4653: p_token2_value => l_api_name);
4654:
4655: RAISE OKL_API.G_EXCEPTION_ERROR;
4656:
4657: END IF;
4658:
4659: -- Validate p_quote_id
4671: IF (is_debug_statement_on) THEN
4672: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Quote , return status: ' || l_return_status);
4673: END IF;
4674:
4675: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4677: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4678: RAISE OKL_API.G_EXCEPTION_ERROR;
4679: END IF;
4672: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Quote , return status: ' || l_return_status);
4673: END IF;
4674:
4675: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4677: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4678: RAISE OKL_API.G_EXCEPTION_ERROR;
4679: END IF;
4680:
4673: END IF;
4674:
4675: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4677: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4678: RAISE OKL_API.G_EXCEPTION_ERROR;
4679: END IF;
4680:
4681: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
4674:
4675: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4677: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4678: RAISE OKL_API.G_EXCEPTION_ERROR;
4679: END IF;
4680:
4681: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
4682: OPEN quote_type_csr(p_quote_id);
4724: -- l_tilv_tbl(l_l_cnt).amount := l_tilv_tbl(l_l_cnt).amount * (l_allc_perc / 100); -- rmunjulu bug 6791004
4725: -- rmunjulu bug 6791004 Use another tmp tbl or else values are incorrect in the second round
4726: l_tmp_tilv_tbl (l_l_cnt).amount := l_tilv_tbl(l_l_cnt).amount * (l_allc_perc / 100);
4727:
4728: EXIT WHEN ( l_l_cnt = l_tilv_tbl.LAST OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
4729: l_l_cnt := l_tilv_tbl.NEXT(l_l_cnt);
4730: END LOOP;
4731: --AKRANGAN BUG 6275650 START
4732: l_taiv_rec.okl_source_billing_trx := l_source_billing_trx;
4751: x_pos_taiv_rec => lx_pos_taiv_rec,
4752: x_neg_taiv_rec => lx_neg_taiv_rec,
4753: x_return_status => l_return_status);
4754: */
4755: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4757: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4758: RAISE OKL_API.G_EXCEPTION_ERROR;
4759: END IF;
4752: x_neg_taiv_rec => lx_neg_taiv_rec,
4753: x_return_status => l_return_status);
4754: */
4755: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4757: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4758: RAISE OKL_API.G_EXCEPTION_ERROR;
4759: END IF;
4760:
4753: x_return_status => l_return_status);
4754: */
4755: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4757: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4758: RAISE OKL_API.G_EXCEPTION_ERROR;
4759: END IF;
4760:
4761: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
4754: */
4755: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4757: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4758: RAISE OKL_API.G_EXCEPTION_ERROR;
4759: END IF;
4760:
4761: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
4762:
4799: END IF;
4800: END IF;
4801:
4802:
4803: EXIT WHEN ( l_l_cnt = l_tilv_tbl.LAST OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
4804: l_l_cnt := l_tilv_tbl.NEXT(l_l_cnt);
4805: END LOOP;
4806:
4807: IF l_roll_pos_adj > 0
4830: x_return_status=>l_return_status);
4831: IF (is_debug_statement_on) THEN
4832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
4833: END IF;
4834: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4836: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4837: RAISE OKL_API.G_EXCEPTION_ERROR;
4838: END IF;
4831: IF (is_debug_statement_on) THEN
4832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
4833: END IF;
4834: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4836: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4837: RAISE OKL_API.G_EXCEPTION_ERROR;
4838: END IF;
4839: END IF; -- for Rollover quote
4832: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
4833: END IF;
4834: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4836: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4837: RAISE OKL_API.G_EXCEPTION_ERROR;
4838: END IF;
4839: END IF; -- for Rollover quote
4840:
4833: END IF;
4834: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4836: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4837: RAISE OKL_API.G_EXCEPTION_ERROR;
4838: END IF;
4839: END IF; -- for Rollover quote
4840:
4841: /* -- ANSETHUR 08-MAR-2007 Commented For billing Achitecture
4849: x_pos_taiv_rec => lx_pos_roll_taiv_rec,
4850: x_neg_taiv_rec => lx_neg_roll_taiv_rec,
4851: x_return_status => l_return_status);
4852:
4853: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4855: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4856: RAISE OKL_API.G_EXCEPTION_ERROR;
4857: END IF;
4850: x_neg_taiv_rec => lx_neg_roll_taiv_rec,
4851: x_return_status => l_return_status);
4852:
4853: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4855: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4856: RAISE OKL_API.G_EXCEPTION_ERROR;
4857: END IF;
4858:
4851: x_return_status => l_return_status);
4852:
4853: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4855: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4856: RAISE OKL_API.G_EXCEPTION_ERROR;
4857: END IF;
4858:
4859:
4852:
4853: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4855: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4856: RAISE OKL_API.G_EXCEPTION_ERROR;
4857: END IF;
4858:
4859:
4860:
4930: END IF;
4931: END IF;
4932:
4933: EXIT WHEN ( l_l_cnt = l_tilv_tbl.LAST
4934: OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
4935: l_l_cnt := l_tilv_tbl.NEXT(l_l_cnt);
4936: END LOOP;
4937:
4938: -- If there is any amount to be adjusted in the variable then call the procedure
4943: l_roll_upd_taiv_rec.legal_entity_id := l_khr_le_id;
4944: l_roll_upd_taiv_rec.amount := l_roll_upd_taiv_rec.amount - l_roll_pos_adj;
4945: okl_trx_ar_invoices_pub.update_trx_ar_invoices(
4946: p_api_version => l_api_version,
4947: p_init_msg_list => OKL_API.G_FALSE,
4948: x_return_status => l_return_status,
4949: x_msg_count => l_msg_count,
4950: x_msg_data => l_msg_data,
4951: p_taiv_rec => l_roll_upd_taiv_rec,
4950: x_msg_data => l_msg_data,
4951: p_taiv_rec => l_roll_upd_taiv_rec,
4952: x_taiv_rec => lx_roll_upd_taiv_rec);
4953: END IF;
4954: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4951: p_taiv_rec => l_roll_upd_taiv_rec,
4952: x_taiv_rec => lx_roll_upd_taiv_rec);
4953: END IF;
4954: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959:
4952: x_taiv_rec => lx_roll_upd_taiv_rec);
4953: END IF;
4954: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959:
4960: IF l_roll_neg_adj < 0
4953: END IF;
4954: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4956: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4957: RAISE OKL_API.G_EXCEPTION_ERROR;
4958: END IF;
4959:
4960: IF l_roll_neg_adj < 0
4961: THEN
4963: l_roll_upd_taiv_rec.legal_entity_id := l_khr_le_id;
4964: l_roll_upd_taiv_rec.amount := l_roll_upd_taiv_rec.amount - l_roll_neg_adj;
4965: okl_trx_ar_invoices_pub.update_trx_ar_invoices(
4966: p_api_version => l_api_version,
4967: p_init_msg_list => OKL_API.G_FALSE,
4968: x_return_status => l_return_status,
4969: x_msg_count => l_msg_count,
4970: x_msg_data => l_msg_data,
4971: p_taiv_rec => l_roll_upd_taiv_rec,
4970: x_msg_data => l_msg_data,
4971: p_taiv_rec => l_roll_upd_taiv_rec,
4972: x_taiv_rec => lx_roll_upd_taiv_rec);
4973: END IF;
4974: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4971: p_taiv_rec => l_roll_upd_taiv_rec,
4972: x_taiv_rec => lx_roll_upd_taiv_rec);
4973: END IF;
4974: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4979: */
4972: x_taiv_rec => lx_roll_upd_taiv_rec);
4973: END IF;
4974: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4979: */
4980: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
4973: END IF;
4974: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4977: RAISE OKL_API.G_EXCEPTION_ERROR;
4978: END IF;
4979: */
4980: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
4981:
5065: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust');
5066: END IF;
5067: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
5068: p_api_version => l_api_version,
5069: p_init_msg_list => OKL_API.G_FALSE,
5070: p_input_tbl => l_input_tbl,
5071: x_baj_tbl => lx_baj_tbl,
5072: x_return_status => l_return_status,
5073: x_msg_count => l_msg_count,
5075: IF (is_debug_statement_on) THEN
5076: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust , return status: ' || l_return_status);
5077: END IF;
5078:
5079: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5080:
5081: -- Error getting the billing adjustments for the contract.
5082: OKL_API.set_message(
5083: p_app_name => 'OKL',
5078:
5079: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5080:
5081: -- Error getting the billing adjustments for the contract.
5082: OKL_API.set_message(
5083: p_app_name => 'OKL',
5084: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5085: END IF;
5086:
5083: p_app_name => 'OKL',
5084: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5085: END IF;
5086:
5087: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5084: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5085: END IF;
5086:
5087: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092:
5085: END IF;
5086:
5087: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092:
5093: -- for each value returned by BPD api
5086:
5087: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5090: RAISE OKL_API.G_EXCEPTION_ERROR;
5091: END IF;
5092:
5093: -- for each value returned by BPD api
5094: IF lx_baj_tbl.COUNT > 0 THEN
5110: OPEN l_qte_csr (p_quote_id);
5111: FETCH l_qte_csr INTO l_qte_rec;
5112:
5113: IF l_qte_csr%NOTFOUND THEN
5114: l_return_status := OKL_API.G_RET_STS_ERROR;
5115: OKC_API.SET_MESSAGE (
5116: p_app_name => G_OKC_APP_NAME,
5117: p_msg_name => G_INVALID_VALUE,
5118: p_token1 => G_COL_NAME_TOKEN,
5130: END IF;
5131:
5132: CLOSE l_qte_csr;
5133:
5134: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5135: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5136: l_overall_status := l_return_status;
5137: END IF;
5138: END IF;
5131:
5132: CLOSE l_qte_csr;
5133:
5134: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5135: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5136: l_overall_status := l_return_status;
5137: END IF;
5138: END IF;
5139: END IF;
5201: IF (is_debug_statement_on) THEN
5202: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
5203: END IF;
5204:
5205: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5207: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5208: RAISE OKL_API.G_EXCEPTION_ERROR;
5209: END IF;
5202: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
5203: END IF;
5204:
5205: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5207: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5208: RAISE OKL_API.G_EXCEPTION_ERROR;
5209: END IF;
5210: /*
5203: END IF;
5204:
5205: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5207: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5208: RAISE OKL_API.G_EXCEPTION_ERROR;
5209: END IF;
5210: /*
5211: -- create invoice header
5204:
5205: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5207: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5208: RAISE OKL_API.G_EXCEPTION_ERROR;
5209: END IF;
5210: /*
5211: -- create invoice header
5212: Create_AR_Invoice_Header (
5217: x_pos_taiv_rec => lx_pos_adj_taiv_rec,
5218: x_neg_taiv_rec => lx_neg_adj_taiv_rec,
5219: x_return_status => l_return_status);
5220:
5221: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5223: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5224: RAISE OKL_API.G_EXCEPTION_ERROR;
5225: END IF;
5218: x_neg_taiv_rec => lx_neg_adj_taiv_rec,
5219: x_return_status => l_return_status);
5220:
5221: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5223: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5224: RAISE OKL_API.G_EXCEPTION_ERROR;
5225: END IF;
5226:
5219: x_return_status => l_return_status);
5220:
5221: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5223: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5224: RAISE OKL_API.G_EXCEPTION_ERROR;
5225: END IF;
5226:
5227: -- set detail record
5220:
5221: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5223: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5224: RAISE OKL_API.G_EXCEPTION_ERROR;
5225: END IF;
5226:
5227: -- set detail record
5228: IF l_adj_taiv_rec.amount > 0 THEN
5251: p_tilv_rec => l_adj_tilv_rec,
5252: x_tilv_rec => lx_adj_tilv_rec,
5253: x_return_status => l_return_status);
5254:
5255: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5257: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5258: RAISE OKL_API.G_EXCEPTION_ERROR;
5259: END IF;
5252: x_tilv_rec => lx_adj_tilv_rec,
5253: x_return_status => l_return_status);
5254:
5255: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5257: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5258: RAISE OKL_API.G_EXCEPTION_ERROR;
5259: END IF;
5260: */
5253: x_return_status => l_return_status);
5254:
5255: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5257: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5258: RAISE OKL_API.G_EXCEPTION_ERROR;
5259: END IF;
5260: */
5261:
5254:
5255: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5257: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5258: RAISE OKL_API.G_EXCEPTION_ERROR;
5259: END IF;
5260: */
5261:
5262: IF l_adj_allc_pos > 0 THEN
5274: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj');
5275: END IF;
5276: OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj(
5277: p_api_version => l_api_version,
5278: p_init_msg_list => OKL_API.G_FALSE,
5279: p_baj_tbl => lx_baj_tbl,
5280: x_return_status => l_return_status,
5281: x_msg_count => l_msg_count,
5282: x_msg_data => l_msg_data);
5284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj , return status: ' || l_return_status);
5285: END IF;
5286:
5287:
5288: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5289:
5290: -- Error performing passthru disbursments.
5291: OKL_API.set_message(
5292: p_app_name => 'OKL',
5287:
5288: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5289:
5290: -- Error performing passthru disbursments.
5291: OKL_API.set_message(
5292: p_app_name => 'OKL',
5293: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
5294:
5295: END IF;
5292: p_app_name => 'OKL',
5293: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
5294:
5295: END IF;
5296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5293: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
5294:
5295: END IF;
5296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5301: --akrangan bug 5503113 end
5294:
5295: END IF;
5296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5301: --akrangan bug 5503113 end
5302: END IF;
5295: END IF;
5296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5301: --akrangan bug 5503113 end
5302: END IF;
5303: END IF;
5315:
5316: x_taiv_tbl := l_taiv_tbl;
5317: x_return_status := l_overall_status;
5318:
5319: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
5320: IF (is_debug_procedure_on) THEN
5321: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5322: END IF;
5323:
5322: END IF;
5323:
5324: EXCEPTION
5325:
5326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5327: IF (is_debug_exception_on) THEN
5328: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5329: END IF;
5330: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5327: IF (is_debug_exception_on) THEN
5328: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5329: END IF;
5330: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5331: (
5332: l_api_name,
5333: G_PKG_NAME,
5334: 'OKL_API.G_RET_STS_ERROR',
5330: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5331: (
5332: l_api_name,
5333: G_PKG_NAME,
5334: 'OKL_API.G_RET_STS_ERROR',
5335: x_msg_count,
5336: x_msg_data,
5337: '_PVT'
5338: );
5336: x_msg_data,
5337: '_PVT'
5338: );
5339:
5340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5341: IF (is_debug_exception_on) THEN
5342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5343: END IF;
5344: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5341: IF (is_debug_exception_on) THEN
5342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5343: END IF;
5344: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5345: (
5346: l_api_name,
5347: G_PKG_NAME,
5348: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5344: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5345: (
5346: l_api_name,
5347: G_PKG_NAME,
5348: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5349: x_msg_count,
5350: x_msg_data,
5351: '_PVT'
5352: );
5356: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5357: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5358: END IF;
5359:
5360: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5361: (
5362: l_api_name,
5363: G_PKG_NAME,
5364: 'OTHERS',