[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;
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
744: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_pos_try_id : ' || l_pos_try_id);
745: END IF;
746:
747: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
748: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
749: l_return_status := OKL_API.G_RET_STS_ERROR;
750: OKC_API.SET_MESSAGE (
751: P_APP_NAME => G_OKC_APP_NAME,
745: END IF;
746:
747: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
748: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
749: l_return_status := OKL_API.G_RET_STS_ERROR;
750: OKC_API.SET_MESSAGE (
751: P_APP_NAME => G_OKC_APP_NAME,
752: P_MSG_NAME => G_INVALID_VALUE,
753: P_TOKEN1 => G_COL_NAME_TOKEN,
765: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_neg_try_id : ' || l_neg_try_id);
767: END IF;
768:
769: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
770: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
771: l_return_status := OKL_API.G_RET_STS_ERROR;
772: OKC_API.SET_MESSAGE (
773: p_app_name => G_OKC_APP_NAME,
767: END IF;
768:
769: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
770: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
771: l_return_status := OKL_API.G_RET_STS_ERROR;
772: OKC_API.SET_MESSAGE (
773: p_app_name => G_OKC_APP_NAME,
774: p_msg_name => G_INVALID_VALUE,
775: p_token1 => G_COL_NAME_TOKEN,
794: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
795: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_roll_bill_try_id : ' || l_roll_bill_try_id);
796: END IF;
797:
798: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
799: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
800: l_return_status := OKL_API.G_RET_STS_ERROR;
801: OKC_API.SET_MESSAGE (
802: p_app_name => G_OKC_APP_NAME,
796: END IF;
797:
798: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
799: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
800: l_return_status := OKL_API.G_RET_STS_ERROR;
801: OKC_API.SET_MESSAGE (
802: p_app_name => G_OKC_APP_NAME,
803: p_msg_name => G_INVALID_VALUE,
804: p_token1 => G_COL_NAME_TOKEN,
816: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status: ' || l_return_status);
817: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_roll_cm_try_id : ' || l_roll_cm_try_id);
818: END IF;
819:
820: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
821: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
822: l_return_status := OKL_API.G_RET_STS_ERROR;
823: OKC_API.SET_MESSAGE (
824: p_app_name => G_OKC_APP_NAME,
818: END IF;
819:
820: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
821: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
822: l_return_status := OKL_API.G_RET_STS_ERROR;
823: OKC_API.SET_MESSAGE (
824: p_app_name => G_OKC_APP_NAME,
825: p_msg_name => G_INVALID_VALUE,
826: p_token1 => G_COL_NAME_TOKEN,
847: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_bill_try_id : ' || l_release_bill_try_id);
848: END IF;
849:
850: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
851: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
852: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
853: l_return_status := OKL_API.G_RET_STS_ERROR;
854: OKC_API.SET_MESSAGE (
855: p_app_name => G_OKC_APP_NAME,
849:
850: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
851: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
852: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
853: l_return_status := OKL_API.G_RET_STS_ERROR;
854: OKC_API.SET_MESSAGE (
855: p_app_name => G_OKC_APP_NAME,
856: p_msg_name => G_INVALID_VALUE,
857: p_token1 => G_COL_NAME_TOKEN,
870: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_release_cm_try_id : ' || l_release_cm_try_id);
871: END IF;
872:
873: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
874: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
875: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
876: l_return_status := okl_api.g_ret_sts_error;
877: okc_api.set_message (
878: p_app_name => g_okc_app_name,
872:
873: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
874: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
875: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
876: l_return_status := okl_api.g_ret_sts_error;
877: okc_api.set_message (
878: p_app_name => g_okc_app_name,
879: p_msg_name => g_invalid_value,
880: p_token1 => g_col_name_token,
884:
885:
886: IF NVL (p_pos_amount, 0) IN (G_MISS_NUM, 0)
887: AND NVL (p_neg_amount, 0) IN (G_MISS_NUM, 0)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,
893: p_token1_value => 'Amount');
894: END IF;
895:
896: IF NVL (p_taiv_rec.khr_id, G_MISS_NUM) = G_MISS_NUM THEN
897: l_return_status := OKL_API.G_RET_STS_ERROR;
898: OKC_API.SET_MESSAGE (
899: p_app_name => G_OKC_APP_NAME,
900: p_msg_name => G_REQUIRED_VALUE,
901: p_token1 => G_COL_NAME_TOKEN,
902: p_token1_value => 'Contract_Id');
903: END IF;
904:
905: IF NVL (p_taiv_rec.currency_code, G_MISS_CHAR) = G_MISS_CHAR THEN
906: l_return_status := OKL_API.G_RET_STS_ERROR;
907: OKC_API.SET_MESSAGE (
908: p_app_name => G_OKC_APP_NAME,
909: p_msg_name => G_REQUIRED_VALUE,
910: p_token1 => G_COL_NAME_TOKEN,
911: p_token1_value => 'Currency_Code');
912: END IF;
913:
914: IF NVL (p_taiv_rec.description, G_MISS_CHAR) = G_MISS_CHAR THEN
915: l_return_status := OKL_API.G_RET_STS_ERROR;
916: OKC_API.SET_MESSAGE (
917: p_app_name => G_OKC_APP_NAME,
918: p_msg_name => G_REQUIRED_VALUE,
919: p_token1 => G_COL_NAME_TOKEN,
942: LOOP
943: --akrangan bug 6494341 fix end
944:
945: IF NVL (p_tilv_tbl(i).amount, G_MISS_NUM) = G_MISS_NUM THEN
946: l_return_status := OKL_API.G_RET_STS_ERROR;
947: OKC_API.SET_MESSAGE (
948: p_app_name => G_OKC_APP_NAME,
949: p_msg_name => G_REQUIRED_VALUE,
950: p_token1 => G_COL_NAME_TOKEN,
957: -- Invoice header id will be assigned before calling Line creation call in 'okl_internal_billing_pvt'
958: -- End - Bug#5874824 - Asset Remarketing Fix */
959:
960: IF NVL (p_tilv_tbl(i).sty_id, G_MISS_NUM) = G_MISS_NUM THEN
961: l_return_status := OKL_API.G_RET_STS_ERROR;
962: OKC_API.SET_MESSAGE (
963: p_app_name => G_OKC_APP_NAME,
964: p_msg_name => G_REQUIRED_VALUE,
965: p_token1 => G_COL_NAME_TOKEN,
966: p_token1_value => 'Stream_Type_Id');
967: END IF;
968:
969: IF NVL (p_tilv_tbl(i).description, G_MISS_CHAR) = G_MISS_CHAR THEN
970: l_return_status := OKL_API.G_RET_STS_ERROR;
971: OKC_API.SET_MESSAGE (
972: p_app_name => G_OKC_APP_NAME,
973: p_msg_name => G_REQUIRED_VALUE,
974: p_token1 => G_COL_NAME_TOKEN,
991: --akrangan bug 6494341 fix end
992: END LOOP;
993: END IF;
994:
995: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
996: AND p_pos_amount > 0 THEN
997:
998: -- If quote type is rollover and transaction type is rollover then set
999: -- set rollover credit memo transaction id for positive amounts
1035:
1036: if bill_cpl_id is not null and bill_quote_type LIKE 'TER%' then
1037:
1038: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
1039: p_init_msg_list => OKL_API.G_FALSE,
1040: x_return_status => l_return_status, -- 6140786
1041: x_msg_count => l_msg_count,
1042: x_msg_data => l_msg_data,
1043: p_taiv_rec => l_taiv_rec,
1049: p_cpl_id => bill_cpl_id); --sosharma
1050: else
1051:
1052: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
1053: p_init_msg_list => OKL_API.G_FALSE,
1054: x_return_status => l_return_status, -- 6140786
1055: x_msg_count => l_msg_count,
1056: x_msg_data => l_msg_data,
1057: p_taiv_rec => l_taiv_rec,
1068: END IF;
1069:
1070: END IF;
1071:
1072: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1073: AND p_neg_amount < 0 THEN
1074:
1075:
1076: -- If quote type is rollover and transaction type is rollover then set
1110:
1111: if bill_cpl_id is not null and bill_quote_type LIKE 'TER%' then
1112:
1113: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
1114: p_init_msg_list => OKL_API.G_FALSE,
1115: x_return_status => l_return_status, -- 6140786
1116: x_msg_count => l_msg_count,
1117: x_msg_data => l_msg_data,
1118: p_taiv_rec => l_taiv_rec,
1124: p_cpl_id => bill_cpl_id); --sosharma
1125: else
1126:
1127: okl_internal_billing_pvt.create_billing_trx(p_api_version => l_api_version,
1128: p_init_msg_list => OKL_API.G_FALSE,
1129: x_return_status => l_return_status, -- 6140786
1130: x_msg_count => l_msg_count,
1131: x_msg_data => l_msg_data,
1132: p_taiv_rec => l_taiv_rec,
1153: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1154: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1155: END IF;
1156: -- store SQL error message on message stack for caller
1157: OKL_API.SET_MESSAGE (
1158: p_app_name => G_APP_NAME
1159: ,p_msg_name => G_UNEXPECTED_ERROR
1160: ,p_token1 => G_SQLCODE_TOKEN
1161: ,p_token1_value => sqlcode
1162: ,p_token2 => G_SQLERRM_TOKEN
1163: ,p_token2_value => sqlerrm);
1164:
1165: -- notify caller of an UNEXPECTED error
1166: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1167:
1168: END create_billing_invoices ;
1169:
1170: -- Start of comments
1192:
1193: l_pos_try_id NUMBER := NULL;
1194: l_neg_try_id NUMBER := NULL;
1195: l_sysdate DATE := SYSDATE;
1196: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1197: l_taiv_rec taiv_rec_type;
1198:
1199: l_api_version CONSTANT NUMBER := G_API_VERSION;
1200: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1196: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1197: l_taiv_rec taiv_rec_type;
1198:
1199: l_api_version CONSTANT NUMBER := G_API_VERSION;
1200: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1201: l_msg_data VARCHAR2(2000);
1202:
1203: -- pagarg +++ Rollover +++
1204: -- Variables to store transaction id for rollover biling and rollover credit memo
1218: p_try_name => G_AR_INV_TRX_TYPE,
1219: x_return_status => l_return_status,
1220: x_try_id => l_pos_try_id);
1221:
1222: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1223: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1224: l_return_status := OKL_API.G_RET_STS_ERROR;
1225: OKC_API.SET_MESSAGE (
1226: p_app_name => G_OKC_APP_NAME,
1220: x_try_id => l_pos_try_id);
1221:
1222: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1223: OR NVL (l_pos_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1224: l_return_status := OKL_API.G_RET_STS_ERROR;
1225: OKC_API.SET_MESSAGE (
1226: p_app_name => G_OKC_APP_NAME,
1227: p_msg_name => G_INVALID_VALUE,
1228: p_token1 => G_COL_NAME_TOKEN,
1233: p_try_name => G_AR_CM_TRX_TYPE,
1234: x_return_status => l_return_status,
1235: x_try_id => l_neg_try_id);
1236:
1237: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1238: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1239: l_return_status := OKL_API.G_RET_STS_ERROR;
1240: OKC_API.SET_MESSAGE (
1241: p_app_name => G_OKC_APP_NAME,
1235: x_try_id => l_neg_try_id);
1236:
1237: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1238: OR NVL (l_neg_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1239: l_return_status := OKL_API.G_RET_STS_ERROR;
1240: OKC_API.SET_MESSAGE (
1241: p_app_name => G_OKC_APP_NAME,
1242: p_msg_name => G_INVALID_VALUE,
1243: p_token1 => G_COL_NAME_TOKEN,
1256: p_try_name => 'ROLLOVER BILLING',
1257: x_return_status => l_return_status,
1258: x_try_id => l_roll_bill_try_id);
1259:
1260: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1261: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1262: l_return_status := OKL_API.G_RET_STS_ERROR;
1263: OKC_API.SET_MESSAGE (
1264: p_app_name => G_OKC_APP_NAME,
1258: x_try_id => l_roll_bill_try_id);
1259:
1260: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1261: OR NVL (l_roll_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1262: l_return_status := OKL_API.G_RET_STS_ERROR;
1263: OKC_API.SET_MESSAGE (
1264: p_app_name => G_OKC_APP_NAME,
1265: p_msg_name => G_INVALID_VALUE,
1266: p_token1 => G_COL_NAME_TOKEN,
1271: p_try_name => 'ROLLOVER CREDIT MEMO',
1272: x_return_status => l_return_status,
1273: x_try_id => l_roll_cm_try_id);
1274:
1275: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1276: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1277: l_return_status := OKL_API.G_RET_STS_ERROR;
1278: OKC_API.SET_MESSAGE (
1279: p_app_name => G_OKC_APP_NAME,
1273: x_try_id => l_roll_cm_try_id);
1274:
1275: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1276: OR NVL (l_roll_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1277: l_return_status := OKL_API.G_RET_STS_ERROR;
1278: OKC_API.SET_MESSAGE (
1279: p_app_name => G_OKC_APP_NAME,
1280: p_msg_name => G_INVALID_VALUE,
1281: p_token1 => G_COL_NAME_TOKEN,
1297: x_return_status => l_return_status,
1298: x_try_id => l_release_bill_try_id);
1299:
1300: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1301: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1302: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1303: l_return_status := OKL_API.G_RET_STS_ERROR;
1304: OKC_API.SET_MESSAGE (
1305: p_app_name => G_OKC_APP_NAME,
1299:
1300: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1301: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1302: OR NVL (l_release_bill_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1303: l_return_status := OKL_API.G_RET_STS_ERROR;
1304: OKC_API.SET_MESSAGE (
1305: p_app_name => G_OKC_APP_NAME,
1306: p_msg_name => G_INVALID_VALUE,
1307: p_token1 => G_COL_NAME_TOKEN,
1313: x_return_status => l_return_status,
1314: x_try_id => l_release_cm_try_id);
1315:
1316: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1317: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1318: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1319: l_return_status := OKL_API.G_RET_STS_ERROR;
1320: OKC_API.SET_MESSAGE (
1321: p_app_name => G_OKC_APP_NAME,
1315:
1316: -- 02-Dec-2004 PAGARG Bug# 4043464, check correct variable for G_MISS value
1317: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
1318: OR NVL (l_release_cm_try_id, G_MISS_NUM) = G_MISS_NUM THEN
1319: l_return_status := OKL_API.G_RET_STS_ERROR;
1320: OKC_API.SET_MESSAGE (
1321: p_app_name => G_OKC_APP_NAME,
1322: p_msg_name => G_INVALID_VALUE,
1323: p_token1 => G_COL_NAME_TOKEN,
1327: --+++++++++++ pagarg +++ T and A +++++++ End ++++++++++
1328:
1329: IF NVL (p_pos_amount, 0) IN (G_MISS_NUM, 0)
1330: AND NVL (p_neg_amount, 0) IN (G_MISS_NUM, 0)THEN
1331: l_return_status := OKL_API.G_RET_STS_ERROR;
1332: OKC_API.SET_MESSAGE (
1333: p_app_name => G_OKC_APP_NAME,
1334: p_msg_name => G_REQUIRED_VALUE,
1335: p_token1 => G_COL_NAME_TOKEN,
1336: p_token1_value => 'Amount');
1337: END IF;
1338:
1339: IF NVL (p_taiv_rec.khr_id, G_MISS_NUM) = G_MISS_NUM THEN
1340: l_return_status := OKL_API.G_RET_STS_ERROR;
1341: OKC_API.SET_MESSAGE (
1342: p_app_name => G_OKC_APP_NAME,
1343: p_msg_name => G_REQUIRED_VALUE,
1344: p_token1 => G_COL_NAME_TOKEN,
1345: p_token1_value => 'Contract_Id');
1346: END IF;
1347:
1348: IF NVL (p_taiv_rec.currency_code, G_MISS_CHAR) = G_MISS_CHAR THEN
1349: l_return_status := OKL_API.G_RET_STS_ERROR;
1350: OKC_API.SET_MESSAGE (
1351: p_app_name => G_OKC_APP_NAME,
1352: p_msg_name => G_REQUIRED_VALUE,
1353: p_token1 => G_COL_NAME_TOKEN,
1354: p_token1_value => 'Currency_Code');
1355: END IF;
1356:
1357: IF NVL (p_taiv_rec.description, G_MISS_CHAR) = G_MISS_CHAR THEN
1358: l_return_status := OKL_API.G_RET_STS_ERROR;
1359: OKC_API.SET_MESSAGE (
1360: p_app_name => G_OKC_APP_NAME,
1361: p_msg_name => G_REQUIRED_VALUE,
1362: p_token1 => G_COL_NAME_TOKEN,
1377: IF NVL (l_taiv_rec.date_invoiced, G_MISS_DATE) = G_MISS_DATE THEN
1378: l_taiv_rec.date_invoiced := l_sysdate;
1379: END IF;
1380:
1381: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1382: AND p_pos_amount > 0 THEN
1383:
1384: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
1385:
1401: l_taiv_rec.amount := p_pos_amount;
1402:
1403: okl_trx_ar_invoices_pub.insert_trx_ar_invoices (
1404: p_api_version => l_api_version,
1405: p_init_msg_list => OKL_API.G_FALSE,
1406: x_return_status => l_return_status,
1407: x_msg_count => l_msg_count,
1408: x_msg_data => l_msg_data,
1409: p_taiv_rec => l_taiv_rec,
1410: x_taiv_rec => x_pos_taiv_rec);
1411:
1412: END IF;
1413:
1414: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1415: AND p_neg_amount < 0 THEN
1416:
1417: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
1418:
1434: l_taiv_rec.amount := p_neg_amount;
1435:
1436: okl_trx_ar_invoices_pub.insert_trx_ar_invoices (
1437: p_api_version => l_api_version,
1438: p_init_msg_list => OKL_API.G_FALSE,
1439: x_return_status => l_return_status,
1440: x_msg_count => l_msg_count,
1441: x_msg_data => l_msg_data,
1442: p_taiv_rec => l_taiv_rec,
1449: EXCEPTION
1450:
1451: WHEN OTHERS THEN
1452: -- store SQL error message on message stack for caller
1453: OKL_API.SET_MESSAGE (
1454: p_app_name => G_APP_NAME
1455: ,p_msg_name => G_UNEXPECTED_ERROR
1456: ,p_token1 => G_SQLCODE_TOKEN
1457: ,p_token1_value => sqlcode
1458: ,p_token2 => G_SQLERRM_TOKEN
1459: ,p_token2_value => sqlerrm);
1460:
1461: -- notify caller of an UNEXPECTED error
1462: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1463:
1464: END Create_AR_Invoice_Header;
1465:
1466:
1477: p_tilv_rec IN tilv_rec_type,
1478: x_tilv_rec OUT NOCOPY tilv_rec_type,
1479: x_return_status OUT NOCOPY VARCHAR2) IS
1480:
1481: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1482: l_tilv_rec tilv_rec_type;
1483: l_bpd_acc_rec bpd_acc_rec_type;
1484:
1485: l_api_version CONSTANT NUMBER := G_API_VERSION;
1482: l_tilv_rec tilv_rec_type;
1483: l_bpd_acc_rec bpd_acc_rec_type;
1484:
1485: l_api_version CONSTANT NUMBER := G_API_VERSION;
1486: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
1487: l_msg_data VARCHAR2(2000);
1488:
1489: BEGIN
1490:
1492: -- Validate parameters
1493: -- *******************
1494:
1495: IF NVL (p_tilv_rec.amount, G_MISS_NUM) = G_MISS_NUM THEN
1496: l_return_status := OKL_API.G_RET_STS_ERROR;
1497: OKC_API.SET_MESSAGE (
1498: p_app_name => G_OKC_APP_NAME,
1499: p_msg_name => G_REQUIRED_VALUE,
1500: p_token1 => G_COL_NAME_TOKEN,
1501: p_token1_value => 'Amount');
1502: END IF;
1503:
1504: IF NVL (p_tilv_rec.tai_id, G_MISS_NUM) = G_MISS_NUM THEN
1505: l_return_status := OKL_API.G_RET_STS_ERROR;
1506: OKC_API.SET_MESSAGE (
1507: p_app_name => G_OKC_APP_NAME,
1508: p_msg_name => G_REQUIRED_VALUE,
1509: p_token1 => G_COL_NAME_TOKEN,
1510: p_token1_value => 'Invoice_Header_Id');
1511: END IF;
1512:
1513: IF NVL (p_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
1514: l_return_status := OKL_API.G_RET_STS_ERROR;
1515: OKC_API.SET_MESSAGE (
1516: p_app_name => G_OKC_APP_NAME,
1517: p_msg_name => G_REQUIRED_VALUE,
1518: p_token1 => G_COL_NAME_TOKEN,
1519: p_token1_value => 'Stream_Type_Id');
1520: END IF;
1521:
1522: IF NVL (p_tilv_rec.description, G_MISS_CHAR) = G_MISS_CHAR THEN
1523: l_return_status := OKL_API.G_RET_STS_ERROR;
1524: OKC_API.SET_MESSAGE (
1525: p_app_name => G_OKC_APP_NAME,
1526: p_msg_name => G_REQUIRED_VALUE,
1527: p_token1 => G_COL_NAME_TOKEN,
1531: -- *******************
1532: -- Create Invoice Line
1533: -- *******************
1534:
1535: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1536:
1537: l_tilv_rec := p_tilv_rec;
1538: l_tilv_rec.inv_receiv_line_code := G_AR_INV_LINE_CODE;
1539:
1539:
1540: -- Create Invoice Line
1541: okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns (
1542: p_api_version => l_api_version,
1543: p_init_msg_list => OKL_API.G_FALSE,
1544: x_return_status => l_return_status,
1545: x_msg_count => l_msg_count,
1546: x_msg_data => l_msg_data,
1547: p_tilv_rec => l_tilv_rec,
1548: x_tilv_rec => x_tilv_rec);
1549:
1550: END IF;
1551:
1552: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1553:
1554: l_bpd_acc_rec.id := x_tilv_rec.id;
1555: l_bpd_acc_rec.source_table := G_AR_LINES_SOURCE;
1556:
1556:
1557: -- Create Accounting Distribution
1558: okl_acc_call_pub.create_acc_trans (
1559: p_api_version => l_api_version,
1560: p_init_msg_list => OKL_API.G_FALSE,
1561: x_return_status => l_return_status,
1562: x_msg_count => l_msg_count,
1563: x_msg_data => l_msg_data,
1564: p_bpd_acc_rec => l_bpd_acc_rec);
1570: EXCEPTION
1571:
1572: WHEN OTHERS THEN
1573: -- store SQL error message on message stack for caller
1574: OKL_API.SET_MESSAGE (
1575: p_app_name => G_APP_NAME
1576: ,p_msg_name => G_UNEXPECTED_ERROR
1577: ,p_token1 => G_SQLCODE_TOKEN
1578: ,p_token1_value => sqlcode
1579: ,p_token2 => G_SQLERRM_TOKEN
1580: ,p_token2_value => sqlerrm);
1581:
1582: -- notify caller of an UNEXPECTED error
1583: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1584:
1585: END Create_AR_Invoice_Lines;
1586: */ --ansethur 09-MAR-2007 Commented For Billing Architecture Ends
1587:
1644: l_cle_rec l_cle_csr%ROWTYPE;
1645: l_taiv_rec taiv_rec_type;
1646: l_tilv_rec tilv_rec_type;
1647:
1648: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1649: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1650: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1645: l_taiv_rec taiv_rec_type;
1646: l_tilv_rec tilv_rec_type;
1647:
1648: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1649: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1650: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1653: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1646: l_tilv_rec tilv_rec_type;
1647:
1648: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1649: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1650: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1653: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1654: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1647:
1648: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1649: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1650: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1653: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1654: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1655: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1648: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1649: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1650: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1653: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1654: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1655: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1656:
1649: l_bill_to_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1650: l_cle_mismatch VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1653: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1654: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1655: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1656:
1657: l_approval_counter NUMBER := 0;
1651: l_acn_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1652: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1653: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1654: -- PAGARG Bug 3559535 variable to store status of vendor billing info call
1655: l_vendor_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1656:
1657: l_approval_counter NUMBER := 0;
1658: l_invoiced_counter NUMBER := 0;
1659: l_sty_id NUMBER := NULL;
1733: OPEN l_part_csr(p_ariv_tbl(l_cnt).p_acn_id );
1734: FETCH l_part_csr INTO l_part_name;
1735: CLOSE l_part_csr;
1736:
1737: l_return_status := OKL_API.G_RET_STS_ERROR;
1738:
1739: IF l_part_name IS NULL THEN
1740: --Rkuttiya added for bug:3528618
1741: --Message Text: Unable to process request for
1739: IF l_part_name IS NULL THEN
1740: --Rkuttiya added for bug:3528618
1741: --Message Text: Unable to process request for
1742: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1743: OKL_API.SET_MESSAGE (
1744: p_app_name => G_APP_NAME,
1745: p_msg_name => 'OKL_AM_INV_EXIST');
1746:
1747: ELSE
1747: ELSE
1748:
1749: -- Message Text: Unable to process request for
1750: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1751: OKL_API.SET_MESSAGE (
1752: p_app_name => G_APP_NAME,
1753: p_msg_name => 'OKL_AM_INVOICES_EXIST',
1754: p_token1 => 'PART_NUMBER',
1755: p_token1_value => l_part_name);
1760: -- Check that amount is passed and calculate invoice total
1761: IF p_ariv_tbl(l_cnt).p_actual_repair_cost IS NULL
1762: OR p_ariv_tbl(l_cnt).p_actual_repair_cost = G_MISS_NUM
1763: OR p_ariv_tbl(l_cnt).p_actual_repair_cost = 0 THEN
1764: l_amount_status := OKL_API.G_RET_STS_ERROR;
1765: ELSIF p_ariv_tbl(l_cnt).p_actual_repair_cost > 0 THEN
1766: l_pos_amount := l_pos_amount +
1767: p_ariv_tbl(l_cnt).p_actual_repair_cost;
1768: ELSIF p_ariv_tbl(l_cnt).p_actual_repair_cost < 0 THEN
1772:
1773: -- Check that Bill To has been indicated
1774: IF NVL (p_ariv_tbl(l_cnt).p_bill_to, G_MISS_NUM) NOT IN (1,2)
1775: OR p_ariv_tbl(l_cnt).p_bill_to <> l_bill_to_flag THEN
1776: l_bill_to_status := OKL_API.G_RET_STS_ERROR;
1777: ELSE
1778:
1779: -- Get Contract IDs
1780: OPEN l_cle_csr (p_ariv_tbl(l_cnt).p_acn_id);
1780: OPEN l_cle_csr (p_ariv_tbl(l_cnt).p_acn_id);
1781: FETCH l_cle_csr INTO l_cle_rec;
1782:
1783: IF l_cle_csr%NOTFOUND THEN
1784: l_acn_status := OKL_API.G_RET_STS_ERROR;
1785:
1786: ELSE
1787: IF NVL (l_tilv_rec.kle_id, G_MISS_NUM) = G_MISS_NUM THEN
1788: -- Save Contract information
1793: FETCH l_assetreturns_csr INTO l_legal_entity_id;
1794: CLOSE l_assetreturns_csr;
1795:
1796: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
1797: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1798: p_msg_name => g_required_value,
1799: p_token1 => g_col_name_token,
1800: p_token1_value => 'legal_entity_id');
1801: RAISE OKC_API.G_EXCEPTION_ERROR;
1825: -- Legal Entity Changes End
1826:
1827: ELSE
1828: IF l_tilv_rec.kle_id <> l_cle_rec.cle_id THEN
1829: l_cle_mismatch := OKL_API.G_RET_STS_ERROR;
1830: END IF;
1831: END IF;
1832: END IF;
1833:
1860: 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);
1861: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_sty_id: ' || l_sty_id);
1862: END IF;
1863:
1864: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS
1865: OR NVL (l_sty_id, G_MISS_NUM) = G_MISS_NUM THEN
1866: l_return_status := OKL_API.G_RET_STS_ERROR;
1867: OKC_API.SET_MESSAGE (
1868: p_app_name => G_OKC_APP_NAME,
1862: END IF;
1863:
1864: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS
1865: OR NVL (l_sty_id, G_MISS_NUM) = G_MISS_NUM THEN
1866: l_return_status := OKL_API.G_RET_STS_ERROR;
1867: OKC_API.SET_MESSAGE (
1868: p_app_name => G_OKC_APP_NAME,
1869: p_msg_name => G_INVALID_VALUE,
1870: p_token1 => G_COL_NAME_TOKEN,
1885: Get_Vendor_Billing_Info (
1886: px_taiv_rec => l_taiv_rec,
1887: x_return_status => l_vendor_status);
1888:
1889: IF l_vendor_status <> OKL_API.G_RET_STS_SUCCESS
1890: THEN
1891: l_return_status := OKL_API.G_RET_STS_ERROR;
1892: END IF;
1893:
1887: x_return_status => l_vendor_status);
1888:
1889: IF l_vendor_status <> OKL_API.G_RET_STS_SUCCESS
1890: THEN
1891: l_return_status := OKL_API.G_RET_STS_ERROR;
1892: END IF;
1893:
1894: -- Bill Lessee
1895: ELSIF l_bill_to_flag = 2
1896: AND NVL (l_taiv_rec.khr_id, G_MISS_NUM) <> G_MISS_NUM THEN
1897: NULL; -- BPD derives billing info using KHR_ID
1898:
1899: ELSE
1900: l_bill_to_status := OKL_API.G_RET_STS_ERROR;
1901: END IF;
1902:
1903: -- **************
1904: -- Display errors
1904: -- Display errors
1905: -- **************
1906:
1907: IF l_approval_counter > 0 THEN
1908: l_return_status := OKL_API.G_RET_STS_ERROR;
1909: -- Message Text: Unable to process the request for a Repair Invoice.
1910: -- Approval for OUTSTANDING_APPROVALS repair line(s) outstanding.
1911: OKL_API.SET_MESSAGE (
1912: p_app_name => G_APP_NAME,
1907: IF l_approval_counter > 0 THEN
1908: l_return_status := OKL_API.G_RET_STS_ERROR;
1909: -- Message Text: Unable to process the request for a Repair Invoice.
1910: -- Approval for OUTSTANDING_APPROVALS repair line(s) outstanding.
1911: OKL_API.SET_MESSAGE (
1912: p_app_name => G_APP_NAME,
1913: p_msg_name => 'OKL_AM_APPROVALS_OUTSTANDING',
1914: p_token1 => 'OUTSTANDING_APPROVALS',
1915: p_token1_value => l_approval_counter);
1916: END IF;
1917:
1918: /*
1919: IF l_invoiced_counter > 0 THEN
1920: l_return_status := OKL_API.G_RET_STS_ERROR;
1921: -- Message Text: Unable to process request for
1922: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1923: OKL_API.SET_MESSAGE (
1924: p_app_name => G_APP_NAME,
1919: IF l_invoiced_counter > 0 THEN
1920: l_return_status := OKL_API.G_RET_STS_ERROR;
1921: -- Message Text: Unable to process request for
1922: -- a Invoice creation. Invoice(s) already exists for part PART_NUMBER.
1923: OKL_API.SET_MESSAGE (
1924: p_app_name => G_APP_NAME,
1925: p_msg_name => 'OKL_AM_INVOICES_EXIST');
1926: END IF;
1927: */
1924: p_app_name => G_APP_NAME,
1925: p_msg_name => 'OKL_AM_INVOICES_EXIST');
1926: END IF;
1927: */
1928: IF l_bill_to_status <> OKL_API.G_RET_STS_SUCCESS THEN
1929: l_return_status := OKL_API.G_RET_STS_ERROR;
1930: -- Message Text: Invalid value for the column P_BILL_ID
1931: OKL_API.SET_MESSAGE (
1932: p_app_name => G_OKC_APP_NAME,
1925: p_msg_name => 'OKL_AM_INVOICES_EXIST');
1926: END IF;
1927: */
1928: IF l_bill_to_status <> OKL_API.G_RET_STS_SUCCESS THEN
1929: l_return_status := OKL_API.G_RET_STS_ERROR;
1930: -- Message Text: Invalid value for the column P_BILL_ID
1931: OKL_API.SET_MESSAGE (
1932: p_app_name => G_OKC_APP_NAME,
1933: p_msg_name => G_INVALID_VALUE,
1927: */
1928: IF l_bill_to_status <> OKL_API.G_RET_STS_SUCCESS THEN
1929: l_return_status := OKL_API.G_RET_STS_ERROR;
1930: -- Message Text: Invalid value for the column P_BILL_ID
1931: OKL_API.SET_MESSAGE (
1932: p_app_name => G_OKC_APP_NAME,
1933: p_msg_name => G_INVALID_VALUE,
1934: p_token1 => G_COL_NAME_TOKEN,
1935: p_token1_value => 'p_bill_to');
1934: p_token1 => G_COL_NAME_TOKEN,
1935: p_token1_value => 'p_bill_to');
1936: END IF;
1937:
1938: IF l_cle_mismatch <> OKL_API.G_RET_STS_SUCCESS THEN
1939: l_return_status := OKL_API.G_RET_STS_ERROR;
1940: -- Message Text: Invalid value for the column CLE_ID
1941: OKL_API.SET_MESSAGE (
1942: p_app_name => G_OKC_APP_NAME,
1935: p_token1_value => 'p_bill_to');
1936: END IF;
1937:
1938: IF l_cle_mismatch <> OKL_API.G_RET_STS_SUCCESS THEN
1939: l_return_status := OKL_API.G_RET_STS_ERROR;
1940: -- Message Text: Invalid value for the column CLE_ID
1941: OKL_API.SET_MESSAGE (
1942: p_app_name => G_OKC_APP_NAME,
1943: p_msg_name => G_INVALID_VALUE,
1937:
1938: IF l_cle_mismatch <> OKL_API.G_RET_STS_SUCCESS THEN
1939: l_return_status := OKL_API.G_RET_STS_ERROR;
1940: -- Message Text: Invalid value for the column CLE_ID
1941: OKL_API.SET_MESSAGE (
1942: p_app_name => G_OKC_APP_NAME,
1943: p_msg_name => G_INVALID_VALUE,
1944: p_token1 => G_COL_NAME_TOKEN,
1945: p_token1_value => 'cle_id');
1944: p_token1 => G_COL_NAME_TOKEN,
1945: p_token1_value => 'cle_id');
1946: END IF;
1947:
1948: IF l_acn_status <> OKL_API.G_RET_STS_SUCCESS THEN
1949: l_return_status := OKL_API.G_RET_STS_ERROR;
1950: -- Message Text: Invalid value for the column P_ACN_ID
1951: OKL_API.SET_MESSAGE (
1952: p_app_name => G_OKC_APP_NAME,
1945: p_token1_value => 'cle_id');
1946: END IF;
1947:
1948: IF l_acn_status <> OKL_API.G_RET_STS_SUCCESS THEN
1949: l_return_status := OKL_API.G_RET_STS_ERROR;
1950: -- Message Text: Invalid value for the column P_ACN_ID
1951: OKL_API.SET_MESSAGE (
1952: p_app_name => G_OKC_APP_NAME,
1953: p_msg_name => G_INVALID_VALUE,
1947:
1948: IF l_acn_status <> OKL_API.G_RET_STS_SUCCESS THEN
1949: l_return_status := OKL_API.G_RET_STS_ERROR;
1950: -- Message Text: Invalid value for the column P_ACN_ID
1951: OKL_API.SET_MESSAGE (
1952: p_app_name => G_OKC_APP_NAME,
1953: p_msg_name => G_INVALID_VALUE,
1954: p_token1 => G_COL_NAME_TOKEN,
1955: p_token1_value => 'p_acn_id');
1954: p_token1 => G_COL_NAME_TOKEN,
1955: p_token1_value => 'p_acn_id');
1956: END IF;
1957:
1958: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
1959: l_return_status := OKL_API.G_RET_STS_ERROR;
1960: /*
1961: -- Message Text: Invalid value for the column P_ACTUAL_REPAIR_COST
1962: OKL_API.SET_MESSAGE (
1955: p_token1_value => 'p_acn_id');
1956: END IF;
1957:
1958: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
1959: l_return_status := OKL_API.G_RET_STS_ERROR;
1960: /*
1961: -- Message Text: Invalid value for the column P_ACTUAL_REPAIR_COST
1962: OKL_API.SET_MESSAGE (
1963: p_app_name => G_OKC_APP_NAME,
1958: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
1959: l_return_status := OKL_API.G_RET_STS_ERROR;
1960: /*
1961: -- Message Text: Invalid value for the column P_ACTUAL_REPAIR_COST
1962: OKL_API.SET_MESSAGE (
1963: p_app_name => G_OKC_APP_NAME,
1964: p_msg_name => G_INVALID_VALUE,
1965: p_token1 => G_COL_NAME_TOKEN,
1966: p_token1_value => 'p_actual_repair_cost');
1965: p_token1 => G_COL_NAME_TOKEN,
1966: p_token1_value => 'p_actual_repair_cost');
1967: */
1968: -- You must enter a value for PROMPT
1969: OKL_API.set_message (
1970: p_app_name => G_APP_NAME,
1971: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1972: p_token1 => 'PROMPT',
1973: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_ACTUAL_REPAIR_COST'));
2003: CLOSE l_assetreturns_csr;
2004: END IF;
2005:
2006: -- store SQL error message on message stack for caller
2007: OKL_API.SET_MESSAGE (
2008: p_app_name => G_APP_NAME
2009: ,p_msg_name => G_UNEXPECTED_ERROR
2010: ,p_token1 => G_SQLCODE_TOKEN
2011: ,p_token1_value => sqlcode
2012: ,p_token2 => G_SQLERRM_TOKEN
2013: ,p_token2_value => sqlerrm);
2014:
2015: -- notify caller of an UNEXPECTED error
2016: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2017:
2018: END Validate_Populate_Repair;
2019:
2020:
2035: x_return_status OUT NOCOPY VARCHAR2,
2036: p_ariv_tbl IN ariv_tbl_type,
2037: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
2038:
2039: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2040: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2041:
2042: l_api_name CONSTANT VARCHAR2(30) :=
2043: 'Create_Repair_Invoice';
2036: p_ariv_tbl IN ariv_tbl_type,
2037: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
2038:
2039: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2040: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2041:
2042: l_api_name CONSTANT VARCHAR2(30) :=
2043: 'Create_Repair_Invoice';
2044: l_api_version CONSTANT NUMBER := G_API_VERSION;
2041:
2042: l_api_name CONSTANT VARCHAR2(30) :=
2043: 'Create_Repair_Invoice';
2044: l_api_version CONSTANT NUMBER := G_API_VERSION;
2045: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
2046: l_msg_data VARCHAR2(2000);
2047: l_cnt NUMBER;
2048:
2049: l_pos_amount NUMBER := 0;
2085: -- ***************************************************************
2086: -- Check API version, initialize message list and create savepoint
2087: -- ***************************************************************
2088:
2089: l_return_status := OKL_API.START_ACTIVITY (l_api_name,
2090: G_PKG_NAME,
2091: p_init_msg_list,
2092: l_api_version,
2093: p_api_version,
2093: p_api_version,
2094: '_PVT',
2095: x_return_status);
2096:
2097: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2100: RAISE OKL_API.G_EXCEPTION_ERROR;
2101: END IF;
2094: '_PVT',
2095: x_return_status);
2096:
2097: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2100: RAISE OKL_API.G_EXCEPTION_ERROR;
2101: END IF;
2102:
2095: x_return_status);
2096:
2097: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2100: RAISE OKL_API.G_EXCEPTION_ERROR;
2101: END IF;
2102:
2103: -- **********************************************
2096:
2097: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2099: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2100: RAISE OKL_API.G_EXCEPTION_ERROR;
2101: END IF;
2102:
2103: -- **********************************************
2104: -- Validate parameters and populate common fields
2113: p_token1_value => 'ARIV_TBL',
2114: p_token2 => 'PROCESS',
2115: p_token2_value => l_api_name);
2116:
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2118:
2119: END IF;
2120:
2121: -- Validate all in-records
2131: IF (is_debug_statement_on) THEN
2132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Repair , return status: ' || l_return_status);
2133: END IF;
2134:
2135: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Repair , return status: ' || l_return_status);
2133: END IF;
2134:
2135: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2140:
2133: END IF;
2134:
2135: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2140:
2141: -- ANSETHUR 08-MAR-2007 R12B Billing Architecture Start Changes
2134:
2135: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2140:
2141: -- ANSETHUR 08-MAR-2007 R12B Billing Architecture Start Changes
2142: -- Replaced the call of Create_AR_Invoice_Header and Create_AR_Invoice_Lines
2164: END IF;
2165:
2166: l_tilv_tbl(l_cnt):= l_tilv_rec ;
2167:
2168: EXIT WHEN ( l_cnt = p_ariv_tbl.LAST OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
2169: l_cnt := p_ariv_tbl.NEXT(l_cnt);
2170: END LOOP;
2171:
2172: Create_billing_invoices ( p_taiv_rec =>l_taiv_rec,
2194: x_pos_taiv_rec => lx_pos_taiv_rec,
2195: x_neg_taiv_rec => lx_neg_taiv_rec,
2196: x_return_status => l_return_status);
2197:
2198: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2200: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2201: RAISE OKL_API.G_EXCEPTION_ERROR;
2202: END IF;
2195: x_neg_taiv_rec => lx_neg_taiv_rec,
2196: x_return_status => l_return_status);
2197:
2198: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2200: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2201: RAISE OKL_API.G_EXCEPTION_ERROR;
2202: END IF;
2203:
2196: x_return_status => l_return_status);
2197:
2198: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2200: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2201: RAISE OKL_API.G_EXCEPTION_ERROR;
2202: END IF;
2203:
2204: -- *********************************************
2197:
2198: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2200: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2201: RAISE OKL_API.G_EXCEPTION_ERROR;
2202: END IF;
2203:
2204: -- *********************************************
2205: -- Create Invoice Lines for each record in table
2238: x_tilv_rec => lx_tilv_rec,
2239: x_return_status => l_return_status);
2240:
2241: EXIT WHEN ( l_cnt = p_ariv_tbl.LAST
2242: OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
2243: l_cnt := p_ariv_tbl.NEXT(l_cnt);
2244:
2245: END LOOP;
2246: */
2245: END LOOP;
2246: */
2247: -- ansethur 08-MAR-2007 R12B Billing Architecture End Changes
2248:
2249: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2252: RAISE OKL_API.G_EXCEPTION_ERROR;
2253: END IF;
2246: */
2247: -- ansethur 08-MAR-2007 R12B Billing Architecture End Changes
2248:
2249: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2252: RAISE OKL_API.G_EXCEPTION_ERROR;
2253: END IF;
2254:
2247: -- ansethur 08-MAR-2007 R12B Billing Architecture End Changes
2248:
2249: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2252: RAISE OKL_API.G_EXCEPTION_ERROR;
2253: END IF;
2254:
2255: -- **************
2248:
2249: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2252: RAISE OKL_API.G_EXCEPTION_ERROR;
2253: END IF;
2254:
2255: -- **************
2256: -- Return results
2269: END IF;
2270:
2271: x_return_status := l_overall_status;
2272:
2273: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
2274: IF (is_debug_procedure_on) THEN
2275: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2276: END IF;
2277:
2276: END IF;
2277:
2278: EXCEPTION
2279:
2280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2281: IF (is_debug_exception_on) THEN
2282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2283: END IF;
2284: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2281: IF (is_debug_exception_on) THEN
2282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2283: END IF;
2284: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2285: (
2286: l_api_name,
2287: G_PKG_NAME,
2288: 'OKL_API.G_RET_STS_ERROR',
2284: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2285: (
2286: l_api_name,
2287: G_PKG_NAME,
2288: 'OKL_API.G_RET_STS_ERROR',
2289: x_msg_count,
2290: x_msg_data,
2291: '_PVT'
2292: );
2290: x_msg_data,
2291: '_PVT'
2292: );
2293:
2294: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2295: IF (is_debug_exception_on) THEN
2296: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2297: END IF;
2298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2294: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2295: IF (is_debug_exception_on) THEN
2296: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2297: END IF;
2298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2302: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2299: (
2300: l_api_name,
2301: G_PKG_NAME,
2302: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2303: x_msg_count,
2304: x_msg_data,
2305: '_PVT'
2306: );
2310: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2311: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2312: END IF;
2313:
2314: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2315: (
2316: l_api_name,
2317: G_PKG_NAME,
2318: 'OTHERS',
2420: l_til_rec l_til_csr%ROWTYPE;
2421: l_taiv_rec taiv_rec_type;
2422: l_tilv_rec tilv_rec_type;
2423:
2424: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2425: lx_remrkt_sty_id NUMBER; --User Defined Streams
2426: l_module_name VARCHAR2(500) := G_MODULE_NAME || 'validate_populate_remarket';
2427: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2428: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2443: OPEN l_til_csr (p_order_line_id);
2444: FETCH l_til_csr INTO l_til_rec;
2445:
2446: IF l_til_csr%FOUND THEN
2447: l_return_status := OKL_API.G_RET_STS_ERROR;
2448: -- Message Text: Unable to process request for
2449: -- a Invoice creation. Invoice(s) already exist
2450: OKL_API.SET_MESSAGE (
2451: p_app_name => G_APP_NAME,
2446: IF l_til_csr%FOUND THEN
2447: l_return_status := OKL_API.G_RET_STS_ERROR;
2448: -- Message Text: Unable to process request for
2449: -- a Invoice creation. Invoice(s) already exist
2450: OKL_API.SET_MESSAGE (
2451: p_app_name => G_APP_NAME,
2452: p_msg_name => 'OKL_AM_INVOICES_EXIST');
2453: END IF;
2454:
2461: OPEN l_art_csr (p_order_line_id);
2462: FETCH l_art_csr INTO l_art_rec;
2463:
2464: IF l_art_csr%NOTFOUND THEN
2465: l_return_status := OKL_API.G_RET_STS_ERROR;
2466: OKC_API.SET_MESSAGE (
2467: p_app_name => G_OKC_APP_NAME,
2468: p_msg_name => G_INVALID_VALUE,
2469: p_token1 => G_COL_NAME_TOKEN,
2472: ELSE
2473:
2474: -- RRAVIKIR Legal Entity Changes
2475: IF (l_art_rec.legal_entity_id is null or l_art_rec.legal_entity_id = OKC_API.G_MISS_NUM) THEN
2476: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2477: p_msg_name => g_required_value,
2478: p_token1 => g_col_name_token,
2479: p_token1_value => 'legal_entity_id');
2480: RAISE OKC_API.G_EXCEPTION_ERROR;
2558: l_tilv_rec.sty_id := lx_remrkt_sty_id;
2559: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
2560:
2561: IF NVL (l_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
2562: l_return_status := OKL_API.G_RET_STS_ERROR;
2563:
2564: /* -- rmunjulu bug 4056364 No need to set this message
2565: -- Stream Purpose is not setup
2566: okl_am_util_pvt.set_message (
2574: -- ***********
2575: -- Save amount
2576: -- ***********
2577:
2578: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2579: -- if order line is found
2580:
2581: IF l_tilv_rec.amount IS NULL
2582: OR l_tilv_rec.amount = G_MISS_NUM
2580:
2581: IF l_tilv_rec.amount IS NULL
2582: OR l_tilv_rec.amount = G_MISS_NUM
2583: OR l_tilv_rec.amount = 0 THEN
2584: l_return_status := OKL_API.G_RET_STS_ERROR;
2585: -- Message Text: Invalid value for the column Amount
2586: OKC_API.SET_MESSAGE (
2587: p_app_name => G_OKC_APP_NAME,
2588: p_msg_name => G_INVALID_VALUE,
2631: END IF;
2632:
2633:
2634: -- store SQL error message on message stack for caller
2635: OKL_API.SET_MESSAGE (
2636: p_app_name => G_APP_NAME
2637: ,p_msg_name => G_UNEXPECTED_ERROR
2638: ,p_token1 => G_SQLCODE_TOKEN
2639: ,p_token1_value => sqlcode
2640: ,p_token2 => G_SQLERRM_TOKEN
2641: ,p_token2_value => sqlerrm);
2642:
2643: -- notify caller of an UNEXPECTED error
2644: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2645:
2646: END Validate_Populate_Remarket;
2647:
2648:
2663: x_return_status OUT NOCOPY VARCHAR2,
2664: p_order_line_id IN NUMBER,
2665: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
2666:
2667: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2668: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669:
2670: l_api_name CONSTANT VARCHAR2(30) :='Create_Remarket_Invoice';
2671: l_api_version CONSTANT NUMBER := G_API_VERSION;
2664: p_order_line_id IN NUMBER,
2665: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
2666:
2667: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2668: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669:
2670: l_api_name CONSTANT VARCHAR2(30) :='Create_Remarket_Invoice';
2671: l_api_version CONSTANT NUMBER := G_API_VERSION;
2672: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
2668: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2669:
2670: l_api_name CONSTANT VARCHAR2(30) :='Create_Remarket_Invoice';
2671: l_api_version CONSTANT NUMBER := G_API_VERSION;
2672: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
2673: l_msg_data VARCHAR2(2000);
2674: l_cnt NUMBER;
2675:
2676: l_pos_amount NUMBER := 0;
2701: -- ***************************************************************
2702: -- Check API version, initialize message list and create savepoint
2703: -- ***************************************************************
2704:
2705: l_return_status := OKL_API.START_ACTIVITY (
2706: l_api_name,
2707: G_PKG_NAME,
2708: p_init_msg_list,
2709: l_api_version,
2710: p_api_version,
2711: '_PVT',
2712: x_return_status);
2713:
2714: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2711: '_PVT',
2712: x_return_status);
2713:
2714: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2719:
2712: x_return_status);
2713:
2714: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2719:
2720: -- *******************
2713:
2714: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2716: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2717: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: END IF;
2719:
2720: -- *******************
2721: -- Validate parameters
2731: p_token1_value => 'ORDER_LINE_ID',
2732: p_token2 => 'PROCESS',
2733: p_token2_value => l_api_name);
2734:
2735: RAISE OKL_API.G_EXCEPTION_ERROR;
2736:
2737: END IF;
2738:
2739: -- Validate order_line_id
2748: IF (is_debug_statement_on) THEN
2749: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Remarket , return status: ' || l_return_status);
2750: END IF;
2751:
2752: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2755: RAISE OKL_API.G_EXCEPTION_ERROR;
2756: END IF;
2749: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Remarket , return status: ' || l_return_status);
2750: END IF;
2751:
2752: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2755: RAISE OKL_API.G_EXCEPTION_ERROR;
2756: END IF;
2757:
2750: END IF;
2751:
2752: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2755: RAISE OKL_API.G_EXCEPTION_ERROR;
2756: END IF;
2757:
2758:
2751:
2752: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2754: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2755: RAISE OKL_API.G_EXCEPTION_ERROR;
2756: END IF;
2757:
2758:
2759: -- ANSETHUR 08-MAR-2007 R12B Billling Architecture Start Changes
2783: x_pos_taiv_rec => lx_pos_taiv_rec,
2784: x_neg_taiv_rec => lx_neg_taiv_rec,
2785: x_return_status => l_return_status);
2786:
2787: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2784: x_neg_taiv_rec => lx_neg_taiv_rec,
2785: x_return_status => l_return_status);
2786:
2787: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792:
2785: x_return_status => l_return_status);
2786:
2787: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792:
2793: -- *********************************************
2786:
2787: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792:
2793: -- *********************************************
2794: -- Create Invoice Lines for each record in table
2807: x_tilv_rec => lx_tilv_rec,
2808: x_return_status => l_return_status);
2809: */
2810: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2811: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2808: x_return_status => l_return_status);
2809: */
2810: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2811: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816:
2809: */
2810: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2811: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816:
2817: -- **************
2810: --ANSETHUR 08-MAR-2007 R12B Billling Architecture End Changes
2811: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816:
2817: -- **************
2818: -- Return results
2831: END IF;
2832:
2833: x_return_status := l_overall_status;
2834:
2835: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
2836: IF (is_debug_procedure_on) THEN
2837: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
2838: END IF;
2839:
2838: END IF;
2839:
2840: EXCEPTION
2841:
2842: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2843: IF (is_debug_exception_on) THEN
2844: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2845: END IF;
2846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2842: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2843: IF (is_debug_exception_on) THEN
2844: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
2845: END IF;
2846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2847: (
2848: l_api_name,
2849: G_PKG_NAME,
2850: 'OKL_API.G_RET_STS_ERROR',
2846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2847: (
2848: l_api_name,
2849: G_PKG_NAME,
2850: 'OKL_API.G_RET_STS_ERROR',
2851: x_msg_count,
2852: x_msg_data,
2853: '_PVT'
2854: );
2852: x_msg_data,
2853: '_PVT'
2854: );
2855:
2856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2857: IF (is_debug_exception_on) THEN
2858: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2859: END IF;
2860: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2857: IF (is_debug_exception_on) THEN
2858: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
2859: END IF;
2860: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2861: (
2862: l_api_name,
2863: G_PKG_NAME,
2864: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2860: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2861: (
2862: l_api_name,
2863: G_PKG_NAME,
2864: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2865: x_msg_count,
2866: x_msg_data,
2867: '_PVT'
2868: );
2872: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2873: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2874: END IF;
2875:
2876: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2877: (
2878: l_api_name,
2879: G_PKG_NAME,
2880: 'OTHERS',
2960:
2961: l_rulv_rec okl_rule_pub.rulv_rec_type;
2962: l_sdd_tbl sdd_tbl_type;
2963: l_tld_tbl tld_tbl_type;
2964: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2965:
2966: -- Calculation results
2967: l_old_cm_amount NUMBER;
2968: l_cnt NUMBER := 0;
3018: IF (is_debug_statement_on) THEN
3019: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_rule_record , return status: ' || l_return_status);
3020: END IF;
3021:
3022: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
3023:
3024: OPEN l_contract_csr (p_contract_id);
3025: FETCH l_contract_csr INTO l_contract_end_date;
3026: CLOSE l_contract_csr;
3143: END IF;
3144:
3145: -- store SQL error message on message stack for caller
3146:
3147: OKL_API.SET_MESSAGE (
3148: p_app_name => OKL_API.G_APP_NAME,
3149: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
3150: p_token1 => 'SQLCODE',
3151: p_token1_value => SQLCODE,
3144:
3145: -- store SQL error message on message stack for caller
3146:
3147: OKL_API.SET_MESSAGE (
3148: p_app_name => OKL_API.G_APP_NAME,
3149: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
3150: p_token1 => 'SQLCODE',
3151: p_token1_value => SQLCODE,
3152: p_token2 => 'SQLERRM',
3177: p_dispose_amount IN NUMBER DEFAULT NULL,
3178: p_quote_id IN NUMBER DEFAULT NULL, --akrangan added for bug 7036873
3179: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
3180:
3181: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3182: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3183:
3184: l_api_name CONSTANT VARCHAR2(30) :=
3185: 'Create_Scrt_Dpst_Dsps_Inv';
3178: p_quote_id IN NUMBER DEFAULT NULL, --akrangan added for bug 7036873
3179: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
3180:
3181: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3182: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3183:
3184: l_api_name CONSTANT VARCHAR2(30) :=
3185: 'Create_Scrt_Dpst_Dsps_Inv';
3186: l_api_version CONSTANT NUMBER := G_API_VERSION;
3183:
3184: l_api_name CONSTANT VARCHAR2(30) :=
3185: 'Create_Scrt_Dpst_Dsps_Inv';
3186: l_api_version CONSTANT NUMBER := G_API_VERSION;
3187: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
3188: l_msg_data VARCHAR2(2000);
3189:
3190: l_taiv_rec taiv_rec_type;
3191: l_taiv_tbl taiv_tbl_type;
3224: -- ***************************************************************
3225: -- Check API version, initialize message list and create savepoint
3226: -- ***************************************************************
3227:
3228: l_return_status := OKL_API.START_ACTIVITY (
3229: l_api_name,
3230: G_PKG_NAME,
3231: p_init_msg_list,
3232: l_api_version,
3233: p_api_version,
3234: '_PVT',
3235: x_return_status);
3236:
3237: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3234: '_PVT',
3235: x_return_status);
3236:
3237: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3235: x_return_status);
3236:
3237: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3243: -- *******************
3236:
3237: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3243: -- *******************
3244: -- Validate parameters
3254: p_token1_value => 'CONTRACT_ID',
3255: p_token2 => 'PROCESS',
3256: p_token2_value => l_api_name);
3257:
3258: RAISE OKL_API.G_EXCEPTION_ERROR;
3259:
3260: END IF;
3261:
3262: -- ***************************
3279: OR l_total_amount = G_MISS_NUM THEN
3280:
3281:
3282: -- There is no security deposit disposition amount remaining for the contract.
3283: OKL_API.set_message (
3284: p_app_name => 'OKL',
3285: p_msg_name => 'OKL_AM_INVALID_DEP_AMT');
3286:
3287: -- Raise halt validation so as not to set return status to E
3294:
3295:
3296: -- The remaining security deposit disposition amount for the contract is less than
3297: -- the disposition amount specified.
3298: OKL_API.set_message (
3299: p_app_name => 'OKL',
3300: p_msg_name => 'OKL_AM_INVALID_INV_AMT');
3301:
3302: -- Raise halt validation so as not to set return status to E
3341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_credit_memo_pub.insert_on_acc_cm_request');
3342: END IF;
3343: okl_credit_memo_pub.insert_on_acc_cm_request (
3344: p_api_version => l_api_version,
3345: p_init_msg_list => OKL_API.G_FALSE,
3346: x_return_status => l_return_status,
3347: x_msg_count => l_msg_count,
3348: x_msg_data => l_msg_data,
3349: p_tld_id => l_sdd_tbl(i).tld_id, -- ansethur 03/02/2007 Added For Billing Architecture Project
3356: IF (is_debug_statement_on) THEN
3357: 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);
3358: END IF;
3359:
3360: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3361: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3362: l_overall_status := l_return_status;
3363: END IF;
3364: ELSE
3357: 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);
3358: END IF;
3359:
3360: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3361: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3362: l_overall_status := l_return_status;
3363: END IF;
3364: ELSE
3365: l_cnt := l_cnt + 1;
3376:
3377: x_taiv_tbl := l_taiv_tbl;
3378: x_return_status := l_overall_status;
3379:
3380: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
3381: IF (is_debug_procedure_on) THEN
3382: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
3383: END IF;
3384:
3391: END IF;
3392:
3393: NULL;
3394:
3395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3396: IF (is_debug_exception_on) THEN
3397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3398: END IF;
3399: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3395: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3396: IF (is_debug_exception_on) THEN
3397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
3398: END IF;
3399: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3400: (
3401: l_api_name,
3402: G_PKG_NAME,
3403: 'OKL_API.G_RET_STS_ERROR',
3399: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3400: (
3401: l_api_name,
3402: G_PKG_NAME,
3403: 'OKL_API.G_RET_STS_ERROR',
3404: x_msg_count,
3405: x_msg_data,
3406: '_PVT'
3407: );
3405: x_msg_data,
3406: '_PVT'
3407: );
3408:
3409: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3410: IF (is_debug_exception_on) THEN
3411: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3412: END IF;
3413: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3409: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3410: IF (is_debug_exception_on) THEN
3411: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
3412: END IF;
3413: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3414: (
3415: l_api_name,
3416: G_PKG_NAME,
3417: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3413: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3414: (
3415: l_api_name,
3416: G_PKG_NAME,
3417: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3418: x_msg_count,
3419: x_msg_data,
3420: '_PVT'
3421: );
3425: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3426: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3427: END IF;
3428:
3429: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3430: (
3431: l_api_name,
3432: G_PKG_NAME,
3433: 'OTHERS',
3578: WHERE fnd.lookup_type = 'OKL_QUOTE_LINE_TYPE'
3579: AND fnd.lookup_code = 'BILL_ADJST';
3580:
3581: l_api_version CONSTANT NUMBER := G_API_VERSION;
3582: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
3583: l_msg_data VARCHAR2(2000);
3584: l_cnt NUMBER;
3585: l_seq NUMBER;
3586:
3602:
3603: l_allc_total NUMBER := 0; -- Total allocated
3604: l_no_allc NUMBER := 0; -- Recipients without allocation
3605:
3606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3607: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3608: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3609: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3610: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3603: l_allc_total NUMBER := 0; -- Total allocated
3604: l_no_allc NUMBER := 0; -- Recipients without allocation
3605:
3606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3607: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3608: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3609: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3610: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3611: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3604: l_no_allc NUMBER := 0; -- Recipients without allocation
3605:
3606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3607: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3608: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3609: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3610: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3611: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3612: -- rmunjulu EDAT
3605:
3606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3607: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3608: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3609: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3610: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3611: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3612: -- rmunjulu EDAT
3613: l_partial_yn VARCHAR2(3);
3606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3607: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3608: l_amount_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3609: l_stream_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3610: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3611: l_sdd_invoice BOOLEAN := FALSE; --added by veramach for bug#6766479
3612: -- rmunjulu EDAT
3613: l_partial_yn VARCHAR2(3);
3614: l_khr_id NUMBER;
3688: OPEN l_tai_csr (p_quote_id);
3689: FETCH l_tai_csr INTO l_tai_rec;
3690:
3691: IF l_tai_csr%FOUND THEN
3692: l_return_status := OKL_API.G_RET_STS_ERROR;
3693: -- Message Text: Unable to process request for
3694: -- a Invoice creation. Invoice(s) already exist
3695: OKL_API.SET_MESSAGE (
3696: p_app_name => G_APP_NAME,
3691: IF l_tai_csr%FOUND THEN
3692: l_return_status := OKL_API.G_RET_STS_ERROR;
3693: -- Message Text: Unable to process request for
3694: -- a Invoice creation. Invoice(s) already exist
3695: OKL_API.SET_MESSAGE (
3696: p_app_name => G_APP_NAME,
3697: p_msg_name => 'OKL_AM_INVOICES_EXIST');
3698: END IF;
3699:
3706: OPEN l_qte_csr (p_quote_id);
3707: FETCH l_qte_csr INTO l_qte_rec;
3708:
3709: IF l_qte_csr%NOTFOUND THEN
3710: l_return_status := OKL_API.G_RET_STS_ERROR;
3711: OKC_API.SET_MESSAGE (
3712: p_app_name => G_OKC_APP_NAME,
3713: p_msg_name => G_INVALID_VALUE,
3714: p_token1 => G_COL_NAME_TOKEN,
3734: FETCH l_assetreturn_csr INTO l_legal_entity_id;
3735: CLOSE l_assetreturn_csr;
3736:
3737: IF (l_legal_entity_id is null or l_legal_entity_id = OKC_API.G_MISS_NUM) THEN
3738: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3739: p_msg_name => g_required_value,
3740: p_token1 => g_col_name_token,
3741: p_token1_value => 'legal_entity_id');
3742: RAISE OKC_API.G_EXCEPTION_ERROR;
3750: END IF;
3751:
3752: CLOSE l_qte_csr;
3753:
3754: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3755: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3756: l_overall_status := l_return_status;
3757: END IF;
3758: END IF;
3751:
3752: CLOSE l_qte_csr;
3753:
3754: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3755: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3756: l_overall_status := l_return_status;
3757: END IF;
3758: END IF;
3759:
3774: l_r_taiv_tbl(l_cnt).amount := l_qpt_rec.allc_perc;
3775: l_allc_total := l_allc_total + l_qpt_rec.allc_perc;
3776: ELSIF l_qpt_rec.allc_perc < 0
3777: OR l_qpt_rec.allc_perc > 100 THEN
3778: l_alloc_status := OKL_API.G_RET_STS_ERROR;
3779: ELSE
3780: l_no_allc := l_no_allc + 1;
3781: END IF;
3782:
3800: -- Bill Lessee
3801: ELSIF l_qpt_rec.rle_code = 'LESSEE' THEN
3802:
3803: -- BPD derives billing info using KHR_ID
3804: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3805:
3806: -- Unidentified Party
3807: ELSE
3808:
3805:
3806: -- Unidentified Party
3807: ELSE
3808:
3809: l_return_status := OKL_API.G_RET_STS_ERROR;
3810: -- Message Text: Invalid value for the column Allocation Percentage
3811: OKL_API.SET_MESSAGE (
3812: p_app_name => G_OKC_APP_NAME,
3813: p_msg_name => G_INVALID_VALUE,
3807: ELSE
3808:
3809: l_return_status := OKL_API.G_RET_STS_ERROR;
3810: -- Message Text: Invalid value for the column Allocation Percentage
3811: OKL_API.SET_MESSAGE (
3812: p_app_name => G_OKC_APP_NAME,
3813: p_msg_name => G_INVALID_VALUE,
3814: p_token1 => G_COL_NAME_TOKEN,
3815: p_token1_value => 'Quote Recipient');
3815: p_token1_value => 'Quote Recipient');
3816:
3817: END IF;
3818:
3819: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3820: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3821: l_overall_status := l_return_status;
3822: END IF;
3823: END IF;
3816:
3817: END IF;
3818:
3819: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3820: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3821: l_overall_status := l_return_status;
3822: END IF;
3823: END IF;
3824:
3829: l_r_taiv_tbl(1) := l_taiv_rec;
3830: ELSIF l_allc_total > 100
3831: OR (l_allc_total = 100 AND l_no_allc > 0)
3832: OR (l_allc_total < 100 AND l_no_allc = 0) THEN
3833: l_alloc_status := OKL_API.G_RET_STS_ERROR;
3834: ELSIF (l_allc_total < 100 AND l_no_allc > 0) THEN
3835: -- Divide the rest equally
3836: FOR i IN l_r_taiv_tbl.FIRST..l_r_taiv_tbl.LAST LOOP
3837: IF l_r_taiv_tbl(i).amount IS NULL
3840: END IF;
3841: END LOOP;
3842: END IF;
3843:
3844: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
3845: l_return_status := OKL_API.G_RET_STS_ERROR;
3846: -- Message Text: Invalid value for the column Allocation Percentage
3847: OKL_API.SET_MESSAGE (
3848: p_app_name => G_OKC_APP_NAME,
3841: END LOOP;
3842: END IF;
3843:
3844: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
3845: l_return_status := OKL_API.G_RET_STS_ERROR;
3846: -- Message Text: Invalid value for the column Allocation Percentage
3847: OKL_API.SET_MESSAGE (
3848: p_app_name => G_OKC_APP_NAME,
3849: p_msg_name => G_INVALID_VALUE,
3843:
3844: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
3845: l_return_status := OKL_API.G_RET_STS_ERROR;
3846: -- Message Text: Invalid value for the column Allocation Percentage
3847: OKL_API.SET_MESSAGE (
3848: p_app_name => G_OKC_APP_NAME,
3849: p_msg_name => G_INVALID_VALUE,
3850: p_token1 => G_COL_NAME_TOKEN,
3851: p_token1_value => 'Allocation Percentage');
3850: p_token1 => G_COL_NAME_TOKEN,
3851: p_token1_value => 'Allocation Percentage');
3852: END IF;
3853:
3854: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3855: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3856: l_overall_status := l_return_status;
3857: END IF;
3858: END IF;
3851: p_token1_value => 'Allocation Percentage');
3852: END IF;
3853:
3854: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3855: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3856: l_overall_status := l_return_status;
3857: END IF;
3858: END IF;
3859:
3860: -- **********************
3861: -- Get Quote Line Records
3862: -- **********************
3863:
3864: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
3865: -- if quote is found
3866: --PAGARG Bug 4044659 Open and fetch values from l_sys_prms_csr
3867: OPEN l_sys_prms_csr;
3868: FETCH l_sys_prms_csr INTO l_sys_prms_rec;
3889: l_tilv_rec.qte_line_id := l_qlt_rec.quote_line_id; -- rmunjulu sales_tax_enhancement
3890:
3891: Create_Scrt_Dpst_Dsps_Inv (
3892: p_api_version => l_api_version,
3893: p_init_msg_list => OKL_API.G_FALSE,
3894: x_return_status => l_return_status,
3895: x_msg_count => l_msg_count,
3896: x_msg_data => l_msg_data,
3897: p_contract_id => l_taiv_rec.khr_id,
3902: IF (is_debug_statement_on) THEN
3903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_Scrt_Dpst_Dsps_Inv , return status: ' || l_return_status);
3904: END IF;
3905:
3906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3907: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3908: l_overall_status := l_return_status;
3909: END IF;
3910: END IF;
3903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_Scrt_Dpst_Dsps_Inv , return status: ' || l_return_status);
3904: END IF;
3905:
3906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3907: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3908: l_overall_status := l_return_status;
3909: END IF;
3910: END IF;
3911:
3932: lu_taiv_rec.currency_conversion_date := l_qte_rec.currency_conversion_date;
3933:
3934:
3935: -- added this check for r12bug 12811901
3936: IF(lu_taiv_rec.currency_conversion_type IS NULL OR lu_taiv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR) THEN
3937: lu_taiv_rec.currency_conversion_type := 'User';
3938: lu_taiv_rec.currency_conversion_rate := 1;
3939: lu_taiv_rec.currency_conversion_date := SYSDATE;
3940: END IF;
3943: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_trx_ar_invoices_pub.update_trx_ar_invoices');
3944: END IF;
3945: okl_trx_ar_invoices_pub.update_trx_ar_invoices (
3946: p_api_version => l_api_version,
3947: p_init_msg_list => OKL_API.G_FALSE,
3948: x_return_status => l_return_status,
3949: x_msg_count => l_msg_count,
3950: x_msg_data => l_msg_data,
3951: p_taiv_rec => lu_taiv_rec,
3953: IF (is_debug_statement_on) THEN
3954: 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);
3955: END IF;
3956:
3957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3958: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3959: l_overall_status := l_return_status;
3960: END IF;
3961: END IF;
3954: 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);
3955: END IF;
3956:
3957: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3958: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3959: l_overall_status := l_return_status;
3960: END IF;
3961: END IF;
3962:
4006: l_pos_amount := l_pos_amount + l_tilv_rec.amount;
4007: ELSIF l_tilv_rec.amount < 0 THEN
4008: l_neg_amount := l_neg_amount + l_tilv_rec.amount;
4009: ELSE
4010: l_amount_status := OKL_API.G_RET_STS_ERROR;
4011: END IF;
4012:
4013: -- rmunjulu EDAT for Billing Adjustment the stream type will be same as original stream type
4014: --IF l_qlt_rec.qlt_code = 'BILL_ADJST' THEN
4034: IF NVL (l_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
4035: -- Check if stream type is already assigned
4036: l_tilv_rec.sty_id := l_qlt_rec.sty_id;
4037: IF NVL (l_tilv_rec.sty_id, G_MISS_NUM) = G_MISS_NUM THEN
4038: l_stream_status := OKL_API.G_RET_STS_ERROR;
4039:
4040: /* -- rmunjulu Bug 4056364 Do not set this message, message will be set by OKL_STREAMS_UTIL
4041: -- Stream Type is not setup in Quote Line Allocation Screen for QLT_CODE
4042: okl_am_util_pvt.set_message (
4094:
4095: -- Call BPD API to get billing from quote_effective_from_date onwards
4096: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
4097: p_api_version => l_api_version,
4098: p_init_msg_list => OKL_API.G_FALSE,
4099: p_input_tbl => l_input_tbl,
4100: x_baj_tbl => lx_baj_tbl,
4101: x_return_status => l_return_status,
4102: x_msg_count => l_msg_count,
4101: x_return_status => l_return_status,
4102: x_msg_count => l_msg_count,
4103: x_msg_data => l_msg_data);
4104:
4105: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4106:
4107: -- Error getting the billing adjustments for the contract.
4108: OKL_API.set_message(
4109: p_app_name => 'OKL',
4104:
4105: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4106:
4107: -- Error getting the billing adjustments for the contract.
4108: OKL_API.set_message(
4109: p_app_name => 'OKL',
4110: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4111:
4112: END IF;
4110: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4111:
4112: END IF;
4113:
4114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4115: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4116: l_overall_status := l_return_status;
4117: END IF;
4118: END IF;
4111:
4112: END IF;
4113:
4114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4115: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4116: l_overall_status := l_return_status;
4117: END IF;
4118: END IF;
4119:
4190:
4191: -- Do passthru disbursments if full termination and if billing adjustments needed.
4192: /*OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj(
4193: p_api_version => l_api_version,
4194: p_init_msg_list => OKL_API.G_FALSE,
4195: p_baj_tbl => lx_baj_tbl,
4196: x_return_status => l_return_status,
4197: x_msg_count => l_msg_count,
4198: x_msg_data => l_msg_data);
4196: x_return_status => l_return_status,
4197: x_msg_count => l_msg_count,
4198: x_msg_data => l_msg_data);
4199:
4200: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4201:
4202: -- Error performing passthru disbursments.
4203: OKL_API.set_message(
4204: p_app_name => 'OKL',
4199:
4200: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4201:
4202: -- Error performing passthru disbursments.
4203: OKL_API.set_message(
4204: p_app_name => 'OKL',
4205: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
4206:
4207: END IF;
4205: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
4206:
4207: END IF;
4208:
4209: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4210: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4211: l_overall_status := l_return_status;
4212: END IF;
4213: END IF;
4206:
4207: END IF;
4208:
4209: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4210: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4211: l_overall_status := l_return_status;
4212: END IF;
4213: END IF;
4214:
4232: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_STREAMS_UTIL.get_primary_stream_type , return status: ' || l_return_status);
4233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_perdiem_sty_id: ' || l_perdiem_sty_id);
4234: END IF;
4235:
4236: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4237: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4238: l_overall_status := l_return_status;
4239: END IF;
4240: END IF;
4233: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_perdiem_sty_id: ' || l_perdiem_sty_id);
4234: END IF;
4235:
4236: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4237: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4238: l_overall_status := l_return_status;
4239: END IF;
4240: END IF;
4241:
4238: l_overall_status := l_return_status;
4239: END IF;
4240: END IF;
4241:
4242: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
4243:
4244: --SECHAWLA 05-JAN-06 4926740 : added for prior-dated quotes : begin
4245: IF trunc(l_date_eff_from) < trunc(l_creation_date) THEN -- Prior-dated quotes
4246: IF trunc(l_quote_accpt_date) = trunc(l_creation_date) THEN
4305: 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);
4306: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount: ' || l_loan_refund_amount);
4307: END IF;
4308:
4309: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4310: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4311: l_overall_status := l_return_status;
4312: END IF;
4313: END IF;
4306: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount: ' || l_loan_refund_amount);
4307: END IF;
4308:
4309: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4310: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4311: l_overall_status := l_return_status;
4312: END IF;
4313: END IF;
4314:
4330: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_streams_util.get_dependent_stream_type , return status: ' || l_return_status);
4331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_refund_sty_id: ' || l_refund_sty_id);
4332: END IF;
4333: --Bug 6266134 veramach end
4334: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4335: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4336: l_overall_status := l_return_status;
4337: END IF;
4338: END IF;
4331: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_refund_sty_id: ' || l_refund_sty_id);
4332: END IF;
4333: --Bug 6266134 veramach end
4334: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4335: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4336: l_overall_status := l_return_status;
4337: END IF;
4338: END IF;
4339:
4366: END IF;
4367:
4368: l_tilv_tbl(l_line_number) := l_tilv_rec;
4369:
4370: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4371: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4372: l_overall_status := l_return_status;
4373: END IF;
4374: END IF;
4367:
4368: l_tilv_tbl(l_line_number) := l_tilv_rec;
4369:
4370: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4371: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4372: l_overall_status := l_return_status;
4373: END IF;
4374: END IF;
4375: END IF;
4389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust');
4390: END IF;
4391: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
4392: p_api_version => l_api_version,
4393: p_init_msg_list => OKL_API.G_FALSE,
4394: p_input_tbl => l_input_tbl,
4395: x_baj_tbl => lx_baj_tbl,
4396: x_return_status => l_return_status,
4397: x_msg_count => l_msg_count,
4399: IF (is_debug_statement_on) THEN
4400: 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);
4401: END IF;
4402:
4403: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4404: -- Error getting the billing adjustments for the contract.
4405: OKL_API.set_message(
4406: p_app_name => 'OKL',
4407: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4401: END IF;
4402:
4403: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4404: -- Error getting the billing adjustments for the contract.
4405: OKL_API.set_message(
4406: p_app_name => 'OKL',
4407: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4408: END IF;
4409: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4405: OKL_API.set_message(
4406: p_app_name => 'OKL',
4407: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4408: END IF;
4409: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4410: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4411: l_overall_status := l_return_status;
4412: END IF;
4413: END IF;
4406: p_app_name => 'OKL',
4407: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
4408: END IF;
4409: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4410: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4411: l_overall_status := l_return_status;
4412: END IF;
4413: END IF;
4414:
4437: THEN
4438: -- akrangan - Bug#5521354- Modified - End
4439: -- AND nvl(l_future_invoices_exists,'N') = 'N' THEN -- rmunjulu 4610850 Added condition to Check if future billing adjustments exist
4440: IF NOT l_sdd_invoice THEN --added by veramach for bug#6766479
4441: l_return_status := OKL_API.G_RET_STS_ERROR;
4442: -- Message Text: The invoice has a balance of zero.
4443: OKC_API.SET_MESSAGE (
4444: p_app_name => G_APP_NAME,
4445: p_msg_name => 'OKL_BPD_ZERO_INVOICE');
4464: END IF;
4465:
4466: END IF; --veramach end bug#6766479
4467: END IF;
4468: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
4469: l_return_status := OKL_API.G_RET_STS_ERROR;
4470: -- Message Text: Invalid value for the column Amount
4471: OKL_API.SET_MESSAGE (
4472: p_app_name => G_OKC_APP_NAME,
4465:
4466: END IF; --veramach end bug#6766479
4467: END IF;
4468: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
4469: l_return_status := OKL_API.G_RET_STS_ERROR;
4470: -- Message Text: Invalid value for the column Amount
4471: OKL_API.SET_MESSAGE (
4472: p_app_name => G_OKC_APP_NAME,
4473: p_msg_name => G_INVALID_VALUE,
4467: END IF;
4468: IF l_amount_status <> OKL_API.G_RET_STS_SUCCESS THEN
4469: l_return_status := OKL_API.G_RET_STS_ERROR;
4470: -- Message Text: Invalid value for the column Amount
4471: OKL_API.SET_MESSAGE (
4472: p_app_name => G_OKC_APP_NAME,
4473: p_msg_name => G_INVALID_VALUE,
4474: p_token1 => G_COL_NAME_TOKEN,
4475: p_token1_value => 'Amount');
4474: p_token1 => G_COL_NAME_TOKEN,
4475: p_token1_value => 'Amount');
4476: END IF;
4477:
4478: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS THEN
4479: l_return_status := OKL_API.G_RET_STS_ERROR;
4480: END IF;
4481:
4482: END IF;
4475: p_token1_value => 'Amount');
4476: END IF;
4477:
4478: IF l_stream_status <> OKL_API.G_RET_STS_SUCCESS THEN
4479: l_return_status := OKL_API.G_RET_STS_ERROR;
4480: END IF;
4481:
4482: END IF;
4483:
4480: END IF;
4481:
4482: END IF;
4483:
4484: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4485: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4486: l_overall_status := l_return_status;
4487: END IF;
4488: END IF;
4481:
4482: END IF;
4483:
4484: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4485: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4486: l_overall_status := l_return_status;
4487: END IF;
4488: END IF;
4489:
4531: CLOSE l_sys_prms_csr;
4532: END IF;
4533:
4534: -- store SQL error message on message stack for caller
4535: OKL_API.SET_MESSAGE (
4536: p_app_name => G_APP_NAME
4537: ,p_msg_name => G_UNEXPECTED_ERROR
4538: ,p_token1 => G_SQLCODE_TOKEN
4539: ,p_token1_value => sqlcode
4540: ,p_token2 => G_SQLERRM_TOKEN
4541: ,p_token2_value => sqlerrm);
4542:
4543: -- notify caller of an UNEXPECTED error
4544: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4545:
4546: END Validate_Populate_Quote;
4547:
4548:
4571: x_return_status OUT NOCOPY VARCHAR2,
4572: p_quote_id IN NUMBER,
4573: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
4574:
4575: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4576: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4577:
4578: l_api_name CONSTANT VARCHAR2(30) := 'Create_Quote_Invoice';
4579: l_api_version CONSTANT NUMBER := G_API_VERSION;
4572: p_quote_id IN NUMBER,
4573: x_taiv_tbl OUT NOCOPY taiv_tbl_type) IS
4574:
4575: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4576: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4577:
4578: l_api_name CONSTANT VARCHAR2(30) := 'Create_Quote_Invoice';
4579: l_api_version CONSTANT NUMBER := G_API_VERSION;
4580: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
4576: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4577:
4578: l_api_name CONSTANT VARCHAR2(30) := 'Create_Quote_Invoice';
4579: l_api_version CONSTANT NUMBER := G_API_VERSION;
4580: l_msg_count NUMBER ;-- rmunjulu bug 4341480 := OKL_API.G_MISS_NUM;
4581: l_msg_data VARCHAR2(2000);
4582:
4583: l_h_cnt NUMBER;
4584: l_l_cnt NUMBER;
4734: -- ***************************************************************
4735: -- Check API version, initialize message list and create savepoint
4736: -- ***************************************************************
4737:
4738: l_return_status := OKL_API.START_ACTIVITY (
4739: l_api_name,
4740: G_PKG_NAME,
4741: p_init_msg_list,
4742: l_api_version,
4743: p_api_version,
4744: '_PVT',
4745: x_return_status);
4746:
4747: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4750: RAISE OKL_API.G_EXCEPTION_ERROR;
4751: END IF;
4744: '_PVT',
4745: x_return_status);
4746:
4747: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4750: RAISE OKL_API.G_EXCEPTION_ERROR;
4751: END IF;
4752:
4745: x_return_status);
4746:
4747: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4750: RAISE OKL_API.G_EXCEPTION_ERROR;
4751: END IF;
4752:
4753: -- *******************
4746:
4747: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4750: RAISE OKL_API.G_EXCEPTION_ERROR;
4751: END IF;
4752:
4753: -- *******************
4754: -- Validate parameters
4764: p_token1_value => 'QUOTE_ID',
4765: p_token2 => 'PROCESS',
4766: p_token2_value => l_api_name);
4767:
4768: RAISE OKL_API.G_EXCEPTION_ERROR;
4769:
4770: END IF;
4771:
4772: -- Validate p_quote_id
4784: IF (is_debug_statement_on) THEN
4785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Quote , return status: ' || l_return_status);
4786: END IF;
4787:
4788: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Validate_Populate_Quote , return status: ' || l_return_status);
4786: END IF;
4787:
4788: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793:
4786: END IF;
4787:
4788: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793:
4794: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
4787:
4788: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793:
4794: --+++++++++++ pagarg +++ Rollover +++++++ Start ++++++++++
4795: OPEN quote_type_csr(p_quote_id);
4837: -- l_tilv_tbl(l_l_cnt).amount := l_tilv_tbl(l_l_cnt).amount * (l_allc_perc / 100); -- rmunjulu bug 6791004
4838: -- rmunjulu bug 6791004 Use another tmp tbl or else values are incorrect in the second round
4839: l_tmp_tilv_tbl (l_l_cnt).amount := l_tilv_tbl(l_l_cnt).amount * (l_allc_perc / 100);
4840:
4841: EXIT WHEN ( l_l_cnt = l_tilv_tbl.LAST OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
4842: l_l_cnt := l_tilv_tbl.NEXT(l_l_cnt);
4843: END LOOP;
4844: --AKRANGAN BUG 6275650 START
4845: l_taiv_rec.okl_source_billing_trx := l_source_billing_trx;
4864: x_pos_taiv_rec => lx_pos_taiv_rec,
4865: x_neg_taiv_rec => lx_neg_taiv_rec,
4866: x_return_status => l_return_status);
4867: */
4868: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4871: RAISE OKL_API.G_EXCEPTION_ERROR;
4872: END IF;
4865: x_neg_taiv_rec => lx_neg_taiv_rec,
4866: x_return_status => l_return_status);
4867: */
4868: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4871: RAISE OKL_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4866: x_return_status => l_return_status);
4867: */
4868: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4871: RAISE OKL_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4874: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
4867: */
4868: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4871: RAISE OKL_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4874: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
4875:
4912: END IF;
4913: END IF;
4914:
4915:
4916: EXIT WHEN ( l_l_cnt = l_tilv_tbl.LAST OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
4917: l_l_cnt := l_tilv_tbl.NEXT(l_l_cnt);
4918: END LOOP;
4919:
4920: IF l_roll_pos_adj > 0
4943: x_return_status=>l_return_status);
4944: IF (is_debug_statement_on) THEN
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
4946: END IF;
4947: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4944: IF (is_debug_statement_on) THEN
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
4946: END IF;
4947: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: END IF; -- for Rollover quote
4945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
4946: END IF;
4947: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: END IF; -- for Rollover quote
4953:
4946: END IF;
4947: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4949: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4950: RAISE OKL_API.G_EXCEPTION_ERROR;
4951: END IF;
4952: END IF; -- for Rollover quote
4953:
4954: /* -- ANSETHUR 08-MAR-2007 Commented For billing Achitecture
4962: x_pos_taiv_rec => lx_pos_roll_taiv_rec,
4963: x_neg_taiv_rec => lx_neg_roll_taiv_rec,
4964: x_return_status => l_return_status);
4965:
4966: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4963: x_neg_taiv_rec => lx_neg_roll_taiv_rec,
4964: x_return_status => l_return_status);
4965:
4966: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971:
4964: x_return_status => l_return_status);
4965:
4966: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971:
4972:
4965:
4966: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971:
4972:
4973:
5043: END IF;
5044: END IF;
5045:
5046: EXIT WHEN ( l_l_cnt = l_tilv_tbl.LAST
5047: OR l_return_status <> OKL_API.G_RET_STS_SUCCESS);
5048: l_l_cnt := l_tilv_tbl.NEXT(l_l_cnt);
5049: END LOOP;
5050:
5051: -- If there is any amount to be adjusted in the variable then call the procedure
5056: l_roll_upd_taiv_rec.legal_entity_id := l_khr_le_id;
5057: l_roll_upd_taiv_rec.amount := l_roll_upd_taiv_rec.amount - l_roll_pos_adj;
5058: okl_trx_ar_invoices_pub.update_trx_ar_invoices(
5059: p_api_version => l_api_version,
5060: p_init_msg_list => OKL_API.G_FALSE,
5061: x_return_status => l_return_status,
5062: x_msg_count => l_msg_count,
5063: x_msg_data => l_msg_data,
5064: p_taiv_rec => l_roll_upd_taiv_rec,
5063: x_msg_data => l_msg_data,
5064: p_taiv_rec => l_roll_upd_taiv_rec,
5065: x_taiv_rec => lx_roll_upd_taiv_rec);
5066: END IF;
5067: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5069: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5070: RAISE OKL_API.G_EXCEPTION_ERROR;
5071: END IF;
5064: p_taiv_rec => l_roll_upd_taiv_rec,
5065: x_taiv_rec => lx_roll_upd_taiv_rec);
5066: END IF;
5067: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5069: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5070: RAISE OKL_API.G_EXCEPTION_ERROR;
5071: END IF;
5072:
5065: x_taiv_rec => lx_roll_upd_taiv_rec);
5066: END IF;
5067: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5069: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5070: RAISE OKL_API.G_EXCEPTION_ERROR;
5071: END IF;
5072:
5073: IF l_roll_neg_adj < 0
5066: END IF;
5067: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5069: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5070: RAISE OKL_API.G_EXCEPTION_ERROR;
5071: END IF;
5072:
5073: IF l_roll_neg_adj < 0
5074: THEN
5076: l_roll_upd_taiv_rec.legal_entity_id := l_khr_le_id;
5077: l_roll_upd_taiv_rec.amount := l_roll_upd_taiv_rec.amount - l_roll_neg_adj;
5078: okl_trx_ar_invoices_pub.update_trx_ar_invoices(
5079: p_api_version => l_api_version,
5080: p_init_msg_list => OKL_API.G_FALSE,
5081: x_return_status => l_return_status,
5082: x_msg_count => l_msg_count,
5083: x_msg_data => l_msg_data,
5084: p_taiv_rec => l_roll_upd_taiv_rec,
5083: x_msg_data => l_msg_data,
5084: p_taiv_rec => l_roll_upd_taiv_rec,
5085: x_taiv_rec => lx_roll_upd_taiv_rec);
5086: END IF;
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_taiv_rec => l_roll_upd_taiv_rec,
5085: x_taiv_rec => lx_roll_upd_taiv_rec);
5086: END IF;
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: x_taiv_rec => lx_roll_upd_taiv_rec);
5086: END IF;
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: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
5086: END IF;
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: -- ANSETHUR 08-MAR-2007 Added For billing Achitecture End changes
5094:
5178: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust');
5179: END IF;
5180: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
5181: p_api_version => l_api_version,
5182: p_init_msg_list => OKL_API.G_FALSE,
5183: p_input_tbl => l_input_tbl,
5184: x_baj_tbl => lx_baj_tbl,
5185: x_return_status => l_return_status,
5186: x_msg_count => l_msg_count,
5188: IF (is_debug_statement_on) THEN
5189: 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);
5190: END IF;
5191:
5192: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5193:
5194: -- Error getting the billing adjustments for the contract.
5195: OKL_API.set_message(
5196: p_app_name => 'OKL',
5191:
5192: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5193:
5194: -- Error getting the billing adjustments for the contract.
5195: OKL_API.set_message(
5196: p_app_name => 'OKL',
5197: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5198: END IF;
5199:
5196: p_app_name => 'OKL',
5197: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5198: END IF;
5199:
5200: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5202: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5203: RAISE OKL_API.G_EXCEPTION_ERROR;
5204: END IF;
5197: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5198: END IF;
5199:
5200: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5202: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5203: RAISE OKL_API.G_EXCEPTION_ERROR;
5204: END IF;
5205:
5198: END IF;
5199:
5200: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5202: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5203: RAISE OKL_API.G_EXCEPTION_ERROR;
5204: END IF;
5205:
5206: -- for each value returned by BPD api
5199:
5200: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5202: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5203: RAISE OKL_API.G_EXCEPTION_ERROR;
5204: END IF;
5205:
5206: -- for each value returned by BPD api
5207: IF lx_baj_tbl.COUNT > 0 THEN
5223: OPEN l_qte_csr (p_quote_id);
5224: FETCH l_qte_csr INTO l_qte_rec;
5225:
5226: IF l_qte_csr%NOTFOUND THEN
5227: l_return_status := OKL_API.G_RET_STS_ERROR;
5228: OKC_API.SET_MESSAGE (
5229: p_app_name => G_OKC_APP_NAME,
5230: p_msg_name => G_INVALID_VALUE,
5231: p_token1 => G_COL_NAME_TOKEN,
5243: END IF;
5244:
5245: CLOSE l_qte_csr;
5246:
5247: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5248: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5249: l_overall_status := l_return_status;
5250: END IF;
5251: END IF;
5244:
5245: CLOSE l_qte_csr;
5246:
5247: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5248: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5249: l_overall_status := l_return_status;
5250: END IF;
5251: END IF;
5252: END IF;
5318: IF (is_debug_statement_on) THEN
5319: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
5320: END IF;
5321:
5322: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5325: RAISE OKL_API.G_EXCEPTION_ERROR;
5326: END IF;
5319: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called Create_billing_invoices , return status: ' || l_return_status);
5320: END IF;
5321:
5322: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5325: RAISE OKL_API.G_EXCEPTION_ERROR;
5326: END IF;
5327: /*
5320: END IF;
5321:
5322: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5325: RAISE OKL_API.G_EXCEPTION_ERROR;
5326: END IF;
5327: /*
5328: -- create invoice header
5321:
5322: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5324: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5325: RAISE OKL_API.G_EXCEPTION_ERROR;
5326: END IF;
5327: /*
5328: -- create invoice header
5329: Create_AR_Invoice_Header (
5334: x_pos_taiv_rec => lx_pos_adj_taiv_rec,
5335: x_neg_taiv_rec => lx_neg_adj_taiv_rec,
5336: x_return_status => l_return_status);
5337:
5338: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5341: RAISE OKL_API.G_EXCEPTION_ERROR;
5342: END IF;
5335: x_neg_taiv_rec => lx_neg_adj_taiv_rec,
5336: x_return_status => l_return_status);
5337:
5338: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5341: RAISE OKL_API.G_EXCEPTION_ERROR;
5342: END IF;
5343:
5336: x_return_status => l_return_status);
5337:
5338: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5341: RAISE OKL_API.G_EXCEPTION_ERROR;
5342: END IF;
5343:
5344: -- set detail record
5337:
5338: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5341: RAISE OKL_API.G_EXCEPTION_ERROR;
5342: END IF;
5343:
5344: -- set detail record
5345: IF l_adj_taiv_rec.amount > 0 THEN
5368: p_tilv_rec => l_adj_tilv_rec,
5369: x_tilv_rec => lx_adj_tilv_rec,
5370: x_return_status => l_return_status);
5371:
5372: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5375: RAISE OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5369: x_tilv_rec => lx_adj_tilv_rec,
5370: x_return_status => l_return_status);
5371:
5372: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5375: RAISE OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5377: */
5370: x_return_status => l_return_status);
5371:
5372: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5375: RAISE OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5377: */
5378:
5371:
5372: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5374: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5375: RAISE OKL_API.G_EXCEPTION_ERROR;
5376: END IF;
5377: */
5378:
5379: IF l_adj_allc_pos > 0 THEN
5391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj');
5392: END IF;
5393: OKL_BPD_TERMINATION_ADJ_PVT.create_passthru_adj(
5394: p_api_version => l_api_version,
5395: p_init_msg_list => OKL_API.G_FALSE,
5396: p_baj_tbl => lx_baj_tbl,
5397: x_return_status => l_return_status,
5398: x_msg_count => l_msg_count,
5399: x_msg_data => l_msg_data);
5401: 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);
5402: END IF;
5403:
5404:
5405: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5406:
5407: -- Error performing passthru disbursments.
5408: OKL_API.set_message(
5409: p_app_name => 'OKL',
5404:
5405: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5406:
5407: -- Error performing passthru disbursments.
5408: OKL_API.set_message(
5409: p_app_name => 'OKL',
5410: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
5411:
5412: END IF;
5409: p_app_name => 'OKL',
5410: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
5411:
5412: END IF;
5413: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5415: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5416: RAISE OKL_API.G_EXCEPTION_ERROR;
5417: END IF;
5410: p_msg_name => 'OKL_AM_ERROR_PASS_THRU_DISB');
5411:
5412: END IF;
5413: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5415: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5416: RAISE OKL_API.G_EXCEPTION_ERROR;
5417: END IF;
5418: --akrangan bug 5503113 end
5411:
5412: END IF;
5413: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5415: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5416: RAISE OKL_API.G_EXCEPTION_ERROR;
5417: END IF;
5418: --akrangan bug 5503113 end
5419: END IF;
5412: END IF;
5413: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
5414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5415: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
5416: RAISE OKL_API.G_EXCEPTION_ERROR;
5417: END IF;
5418: --akrangan bug 5503113 end
5419: END IF;
5420: END IF;
5432:
5433: x_taiv_tbl := l_taiv_tbl;
5434: x_return_status := l_overall_status;
5435:
5436: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
5437: IF (is_debug_procedure_on) THEN
5438: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'End(-)');
5439: END IF;
5440:
5439: END IF;
5440:
5441: EXCEPTION
5442:
5443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5444: IF (is_debug_exception_on) THEN
5445: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5446: END IF;
5447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5444: IF (is_debug_exception_on) THEN
5445: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_ERROR');
5446: END IF;
5447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5448: (
5449: l_api_name,
5450: G_PKG_NAME,
5451: 'OKL_API.G_RET_STS_ERROR',
5447: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5448: (
5449: l_api_name,
5450: G_PKG_NAME,
5451: 'OKL_API.G_RET_STS_ERROR',
5452: x_msg_count,
5453: x_msg_data,
5454: '_PVT'
5455: );
5453: x_msg_data,
5454: '_PVT'
5455: );
5456:
5457: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5458: IF (is_debug_exception_on) THEN
5459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5460: END IF;
5461: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5457: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5458: IF (is_debug_exception_on) THEN
5459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR');
5460: END IF;
5461: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5462: (
5463: l_api_name,
5464: G_PKG_NAME,
5465: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5461: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5462: (
5463: l_api_name,
5464: G_PKG_NAME,
5465: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5466: x_msg_count,
5467: x_msg_data,
5468: '_PVT'
5469: );
5473: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5474: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5475: END IF;
5476:
5477: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
5478: (
5479: l_api_name,
5480: G_PKG_NAME,
5481: 'OTHERS',