2: /* $Header: OKSPIBIB.pls 120.52 2007/09/07 10:16:21 vmutyala ship $ */
3:
4:
5: -- Constants used for Message Logging
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
3:
4:
5: -- Constants used for Message Logging
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
4:
5: -- Constants used for Message Logging
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_LEVEL_CURRENT CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: -- Constants used for Message Logging
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_LEVEL_CURRENT CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_MODULE_CURRENT CONSTANT VARCHAR2(255) := 'oks.plsql.oks_int_ibint_pub';
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_LEVEL_CURRENT CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_MODULE_CURRENT CONSTANT VARCHAR2(255) := 'oks.plsql.oks_int_ibint_pub';
14:
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_LEVEL_CURRENT CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_MODULE_CURRENT CONSTANT VARCHAR2(255) := 'oks.plsql.oks_int_ibint_pub';
14:
15:
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_LEVEL_CURRENT CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_MODULE_CURRENT CONSTANT VARCHAR2(255) := 'oks.plsql.oks_int_ibint_pub';
14:
15:
16: -- created for bom issues
55: IF ( l_k_exists%FOUND ) THEN
56: v_flag := TRUE;
57: ELSE
58: v_flag := FALSE;
59: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
60: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.CHECK_PARENT_AP_K',
61: 'Contract not created for parent item yet' );
62: END IF;
63:
56: v_flag := TRUE;
57: ELSE
58: v_flag := FALSE;
59: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
60: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.CHECK_PARENT_AP_K',
61: 'Contract not created for parent item yet' );
62: END IF;
63:
64: END IF;
169: x_msg_data => l_msg_data,
170: p_codv_tbl => l_codv_tbl_in,
171: x_codv_tbl => l_codv_tbl_out
172: );
173: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.UPDATE_CONTRACT_DETAILS',
175: 'oks_cod_pvt.update_row(Return status = '|| l_return_status || ')');
176: END IF;
177:
170: p_codv_tbl => l_codv_tbl_in,
171: x_codv_tbl => l_codv_tbl_out
172: );
173: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.UPDATE_CONTRACT_DETAILS',
175: 'oks_cod_pvt.update_row(Return status = '|| l_return_status || ')');
176: END IF;
177:
178: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
206: p_codv_tbl => l_codv_tbl_in,
207: x_codv_tbl => l_codv_tbl_out
208: );
209:
210: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.UPDATE_CONTRACT_DETAILS',
212: 'oks_cod_pvt.update_row(Return status = '|| l_return_status || ')');
213: END IF;
214:
207: x_codv_tbl => l_codv_tbl_out
208: );
209:
210: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.UPDATE_CONTRACT_DETAILS',
212: 'oks_cod_pvt.update_row(Return status = '|| l_return_status || ')');
213: END IF;
214:
215: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
229:
230: When Others Then
231: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
232: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
233: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
234: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.UPDATE_CONTRACT_DETAILS.UNEXPECTED',
235: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
236: END IF;
237:
230: When Others Then
231: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
232: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
233: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
234: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.UPDATE_CONTRACT_DETAILS.UNEXPECTED',
235: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
236: END IF;
237:
238: End;
307:
308: Exception
309: When Others Then
310: x_return_status := OKC_API.G_RET_STS_ERROR;
311: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
312: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.GET_CONTRACT_DETAILS.UNEXPECTED',
313: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
314: END IF;
315: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
308: Exception
309: When Others Then
310: x_return_status := OKC_API.G_RET_STS_ERROR;
311: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
312: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.GET_CONTRACT_DETAILS.UNEXPECTED',
313: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
314: END IF;
315: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
316: End;
514: -- Added: Vigandhi : 18-nov-2004
515: -- Get the renewal rules defined in GCD
516: p_party_id := Get_Party_id(p_instance_rec.old_CustomeR_acct_id);
517:
518: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
519: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
520: 'party id(Legacy) = ' ||p_party_id );
521: END IF;
522:
515: -- Get the renewal rules defined in GCD
516: p_party_id := Get_Party_id(p_instance_rec.old_CustomeR_acct_id);
517:
518: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
519: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
520: 'party id(Legacy) = ' ||p_party_id );
521: END IF;
522:
523: OKS_RENEW_UTIL_PUB.GET_RENEW_RULES
534: P_RNRL_Rec => null,
535: X_RNRL_Rec => l_rnrl_rec_out
536: );
537:
538: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
540: 'oks_renew_util_pub.get_renew_rules(Return status = ' ||l_return_status );
541: END IF;
542:
535: X_RNRL_Rec => l_rnrl_rec_out
536: );
537:
538: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
540: 'oks_renew_util_pub.get_renew_rules(Return status = ' ||l_return_status );
541: END IF;
542:
543: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
574: Fetch l_Ord_Hdr_csr into l_Ord_hdr_rec;
575: If l_Ord_Hdr_csr%notfound then
576: Close l_Ord_Hdr_csr;
577: l_return_status := OKC_API.G_RET_STS_ERROR;
578: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
579: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
580: 'l_ord_hdr_csr failed. No details found for line id ' ||p_instance_rec.Order_line_id );
581: END IF;
582: OKC_API.set_message(G_APP_NAME, 'OKS_ORD_HDR_DTLS_NOT_FOUND','ORDER_HEADER_ID',p_instance_rec.Order_line_id);
575: If l_Ord_Hdr_csr%notfound then
576: Close l_Ord_Hdr_csr;
577: l_return_status := OKC_API.G_RET_STS_ERROR;
578: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
579: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
580: 'l_ord_hdr_csr failed. No details found for line id ' ||p_instance_rec.Order_line_id );
581: END IF;
582: OKC_API.set_message(G_APP_NAME, 'OKS_ORD_HDR_DTLS_NOT_FOUND','ORDER_HEADER_ID',p_instance_rec.Order_line_id);
583: Raise G_EXCEPTION_HALT_VALIDATION;
585: Close l_Ord_Hdr_csr;
586:
587: p_party_id := Get_Party_id(l_Ord_hdr_rec.Sold_to_Org_id);
588:
589: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
590: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
591: 'party id(OM Generated) = ' ||p_party_id );
592: END IF;
593:
586:
587: p_party_id := Get_Party_id(l_Ord_hdr_rec.Sold_to_Org_id);
588:
589: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
590: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
591: 'party id(OM Generated) = ' ||p_party_id );
592: END IF;
593:
594: OKS_RENEW_UTIL_PUB.GET_RENEW_RULES
605: P_RNRL_Rec => null,
606: X_RNRL_Rec => l_rnrl_rec_out
607: );
608:
609: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
610: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
611: 'oks_renew_util_pub.get_renew_rules(Return status = ' ||l_return_status );
612: END IF;
613:
606: X_RNRL_Rec => l_rnrl_rec_out
607: );
608:
609: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
610: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
611: 'oks_renew_util_pub.get_renew_rules(Return status = ' ||l_return_status );
612: END IF;
613:
614: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
620: Open l_org_csr( p_instance_rec.order_line_id);
621: fetch l_org_csr into l_org_rec ;
622: Close l_org_Csr ;
623:
624: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
625: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW.l_org_csr',
626: 'Org id ='||l_org_rec.org_id ||
627: ',Sold from org id = '|| l_org_rec.sold_from_org_id ||
628: ',Ship from org id = '||l_org_rec.ship_from_org_id );
621: fetch l_org_csr into l_org_rec ;
622: Close l_org_Csr ;
623:
624: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
625: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW.l_org_csr',
626: 'Org id ='||l_org_rec.org_id ||
627: ',Sold from org id = '|| l_org_rec.sold_from_org_id ||
628: ',Ship from org id = '||l_org_rec.ship_from_org_id );
629: END IF;
653:
654:
655: End If;
656:
657: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
658: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW.after org setup',
659: 'Org id = '||okc_context.get_okc_org_id ||
660: ',Organization id = '|| okc_context.get_okc_organization_id );
661: END IF;
654:
655: End If;
656:
657: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
658: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW.after org setup',
659: 'Org id = '||okc_context.get_okc_org_id ||
660: ',Organization id = '|| okc_context.get_okc_organization_id );
661: END IF;
662:
668: p_Ship_date => p_instance_rec.shipped_date,
669: p_installation_date => p_instance_rec.installation_date,
670: x_warranty_tbl => war_tbl
671: ) ;
672: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
673: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
674: 'oks_extwar_util_pvt.get_warranty_info(Return status = '||l_return_status ||',Count = '|| war_tbl.count ||')' );
675: END IF;
676:
669: p_installation_date => p_instance_rec.installation_date,
670: x_warranty_tbl => war_tbl
671: ) ;
672: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
673: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
674: 'oks_extwar_util_pvt.get_warranty_info(Return status = '||l_return_status ||',Count = '|| war_tbl.count ||')' );
675: END IF;
676:
677: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
685:
686:
687: If war_tbl.count = 0 And p_instance_rec.order_line_id = okc_api.g_miss_num Then
688:
689: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
690: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
691: ' Legacy no order line ' );
692: END IF;
693: Raise G_EXCEPTION_HALT_VALIDATION;
686:
687: If war_tbl.count = 0 And p_instance_rec.order_line_id = okc_api.g_miss_num Then
688:
689: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
690: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
691: ' Legacy no order line ' );
692: END IF;
693: Raise G_EXCEPTION_HALT_VALIDATION;
694:
693: Raise G_EXCEPTION_HALT_VALIDATION;
694:
695: ElsIf p_instance_rec.order_line_id <> okc_api.g_miss_num Then
696: p_order_header_id := Get_order_header_id(p_instance_rec.order_line_id);
697: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
698: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
699: ' Order Line Routine. '|| ';'|| 'Order header id = '||p_order_header_id ||'Before update statement' );
700: END IF;
701:
694:
695: ElsIf p_instance_rec.order_line_id <> okc_api.g_miss_num Then
696: p_order_header_id := Get_order_header_id(p_instance_rec.order_line_id);
697: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
698: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
699: ' Order Line Routine. '|| ';'|| 'Order header id = '||p_order_header_id ||'Before update statement' );
700: END IF;
701:
702: /* Fix for Bug 2240584.
713: -- Where header_id = p_order_header_id;
714: --
715: -- Commented out for the fix of bug# 5088409 (JVARGHES)
716:
717: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
718: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
719: ' After update statement' );
720: END IF;
721:
714: --
715: -- Commented out for the fix of bug# 5088409 (JVARGHES)
716:
717: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
718: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
719: ' After update statement' );
720: END IF;
721:
722: OKS_INTEGRATION_UTIL_PUB.Create_K_Order_Details
726: , x_msg_count => l_msg_count
727: , x_msg_data => l_msg_data
728: );
729:
730: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
732: 'oks_integration_util_pub.create_k_order_details(Return status = '||l_return_status ||')' );
733: END IF;
734:
727: , x_msg_data => l_msg_data
728: );
729:
730: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
732: 'oks_integration_util_pub.create_k_order_details(Return status = '||l_return_status ||')' );
733: END IF;
734:
735: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
743:
744: If Not war_tbl.Count = 0 Then
745:
746: If p_instance_rec.order_line_id = okc_api.g_miss_num Then -- Legacy Warranty Routine
747: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
748: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
749: ' Legacy Warranty Routine' );
750: END IF;
751:
744: If Not war_tbl.Count = 0 Then
745:
746: If p_instance_rec.order_line_id = okc_api.g_miss_num Then -- Legacy Warranty Routine
747: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
748: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
749: ' Legacy Warranty Routine' );
750: END IF;
751:
752: l_chr_id := null;
756:
757: Open l_line_csr (war_tbl(l_ptr).service_item_id);
758: Fetch l_line_csr Into l_itm_rec;
759: Close l_line_csr;
760: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
761: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW.l_line_csr',
762: ' Name = '||l_itm_rec.name ||',Description = '||l_itm_rec.description ||
763: ',Primary UOM code = '||l_itm_rec.Primary_UOM_Code ||',Service starting delay = '||l_itm_rec.Service_starting_delay);
764: END IF;
757: Open l_line_csr (war_tbl(l_ptr).service_item_id);
758: Fetch l_line_csr Into l_itm_rec;
759: Close l_line_csr;
760: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
761: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW.l_line_csr',
762: ' Name = '||l_itm_rec.name ||',Description = '||l_itm_rec.description ||
763: ',Primary UOM code = '||l_itm_rec.Primary_UOM_Code ||',Service starting delay = '||l_itm_rec.Service_starting_delay);
764: END IF;
765:
776: -- If customer product has two or more warraties attached to it in BOM, only one contract will get created
777: -- with as many warranty lines.
778: -- profile option created for warranty consolidation --23-apr-2003
779:
780: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
781: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
782: ' Warranty consolidation profile option '|| fnd_profile.value('OKS_WARRANTY_CONSOLIDATION'));
783: END IF;
784:
777: -- with as many warranty lines.
778: -- profile option created for warranty consolidation --23-apr-2003
779:
780: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
781: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
782: ' Warranty consolidation profile option '|| fnd_profile.value('OKS_WARRANTY_CONSOLIDATION'));
783: END IF;
784:
785: If l_chr_id IS NOT NULL AND NVL(fnd_profile.value('OKS_WARRANTY_CONSOLIDATION'),'Y') = 'Y' Then
877: , x_return_status => l_return_status
878: , x_msg_count => x_msg_count
879: ,x_msg_data => x_msg_data
880: );
881: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
883: 'oks_extwarprgm_pvt .create_contract_ibnew(Return status = '||l_return_status ||
884: ',Chr_id = ' || l_chr_Id || ')');
885: END IF;
878: , x_msg_count => x_msg_count
879: ,x_msg_data => x_msg_data
880: );
881: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
883: 'oks_extwarprgm_pvt .create_contract_ibnew(Return status = '||l_return_status ||
884: ',Chr_id = ' || l_chr_Id || ')');
885: END IF;
886:
894:
895: Raise G_EXCEPTION_HALT_VALIDATION;
896:
897: End If; -- Legacy Warranty Routine End
898: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
899: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
900: 'Order based Warranty Routine' );
901: END IF;
902:
895: Raise G_EXCEPTION_HALT_VALIDATION;
896:
897: End If; -- Legacy Warranty Routine End
898: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
899: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
900: 'Order based Warranty Routine' );
901: END IF;
902:
903: --OM Originated Warranty Routine Starts Here
911: X_Return_Status => l_return_status,
912: X_Header_Rec => l_header_rec
913: );
914:
915: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
916: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
917: 'oks_extwar_util_pvt.get_contract_header_info(Return status = '||l_return_status || ')');
918: END IF;
919:
912: X_Header_Rec => l_header_rec
913: );
914:
915: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
916: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
917: 'oks_extwar_util_pvt.get_contract_header_info(Return status = '||l_return_status || ')');
918: END IF;
919:
920: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
933: X_Return_Status => l_return_status,
934: X_Line_Rec => l_line_rec
935: );
936:
937: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
938: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
939: 'oks_extwar_util_pvt.get_contract_line_info(Return status = '||l_return_status || ')');
940: END IF;
941:
934: X_Line_Rec => l_line_rec
935: );
936:
937: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
938: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
939: 'oks_extwar_util_pvt.get_contract_line_info(Return status = '||l_return_status || ')');
940: END IF;
941:
942: -- Exception to be written
955: P_Serv_start_date => war_tbl(l_ptr).Warranty_start_date,
956: P_Serv_end_date => war_tbl(l_ptr).Warranty_end_date,
957: X_Service_Status =>l_service_status
958: );
959: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
960: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
961: 'oks_extwar_util_pvt.check_service_duplicate(Return status = '||l_return_status ||
962: 'Service status = ' || l_service_status || ')');
963: END IF;
956: P_Serv_end_date => war_tbl(l_ptr).Warranty_end_date,
957: X_Service_Status =>l_service_status
958: );
959: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
960: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
961: 'oks_extwar_util_pvt.check_service_duplicate(Return status = '||l_return_status ||
962: 'Service status = ' || l_service_status || ')');
963: END IF;
964:
982: Open get_chr_id_csr(p_order_header_id);
983: Fetch get_chr_id_csr into l_chr_id;
984: close get_chr_id_csr;
985:
986: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
987: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
988: 'Warranty consolidation profile option '|| fnd_profile.value('OKS_WARRANTY_CONSOLIDATION'));
989: END IF;
990:
983: Fetch get_chr_id_csr into l_chr_id;
984: close get_chr_id_csr;
985:
986: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
987: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_NEW',
988: 'Warranty consolidation profile option '|| fnd_profile.value('OKS_WARRANTY_CONSOLIDATION'));
989: END IF;
990:
991: If l_chr_id Is not null AND NVL(fnd_profile.value('OKS_WARRANTY_CONSOLIDATION'),'Y') = 'Y' then
1087: , x_return_status => l_return_status
1088: , x_msg_count => x_msg_count
1089: , x_msg_data => x_msg_data
1090: );
1091: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1092: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
1093: 'oks_extwarprgm_pvt .create_contract_ibnew(Return status = '||l_return_status || ')');
1094: END IF;
1095:
1088: , x_msg_count => x_msg_count
1089: , x_msg_data => x_msg_data
1090: );
1091: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1092: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
1093: 'oks_extwarprgm_pvt .create_contract_ibnew(Return status = '||l_return_status || ')');
1094: END IF;
1095:
1096: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1103: p_encoded => 'F',
1104: p_data => l_msg_data,
1105: p_msg_index_out => l_index
1106: );
1107: If(G_FND_LOG_OPTION = 'Y') Then
1108: FND_FILE.PUT_LINE (FND_FILE.LOG, 'OM WARRANTY ERROR : ' || l_msg_data );
1109: End If;
1110: End Loop;
1111:
2056: fnd_profile.put('AFLOG_ENABLED', 'Y');
2057: fnd_profile.put('AFLOG_MODULE', '%');
2058: fnd_profile.put('AFLOG_LEVEL', '1');
2059: fnd_profile.put('AFLOG_FILENAME', '');
2060: fnd_log_repository.init;
2061:
2062: */
2063: x_return_status := l_return_status;
2064:
2083: OKC_API.set_message(G_APP_NAME,'OKS_SUBSCRIPTION_INST_ERR');
2084: Raise G_EXCEPTION_HALT_VALIDATION;
2085:
2086: End If;
2087: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2088: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2089: 'Batch Id'||p_batch_id ||')' );
2090: End If;
2091: If p_batch_id Is not Null Then
2084: Raise G_EXCEPTION_HALT_VALIDATION;
2085:
2086: End If;
2087: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2088: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2089: 'Batch Id'||p_batch_id ||')' );
2090: End If;
2091: If p_batch_id Is not Null Then
2092:
2101: x_msg_count => x_msg_count,
2102: x_msg_data => x_msg_data
2103: );
2104:
2105: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2106: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2107: 'OKS_MASS_UPDATE.update_contracts(Return status = ' ||l_return_status );
2108: END IF;
2109:
2102: x_msg_data => x_msg_data
2103: );
2104:
2105: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2106: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2107: 'OKS_MASS_UPDATE.update_contracts(Return status = ' ||l_return_status );
2108: END IF;
2109:
2110: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2119: -- Get all the instances for new transaction
2120: Open get_instances_for_new_csr;
2121: Fetch get_instances_for_new_csr Bulk Collect into instance_tbl;
2122: Close get_instances_for_new_csr;
2123: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2124: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2125: 'Number of instances with transaction New =' ||instance_tbl.count);
2126: End If;
2127: If instance_tbl.count > 0 Then
2120: Open get_instances_for_new_csr;
2121: Fetch get_instances_for_new_csr Bulk Collect into instance_tbl;
2122: Close get_instances_for_new_csr;
2123: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2124: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2125: 'Number of instances with transaction New =' ||instance_tbl.count);
2126: End If;
2127: If instance_tbl.count > 0 Then
2128: For i in 1..instance_tbl.count
2127: If instance_tbl.count > 0 Then
2128: For i in 1..instance_tbl.count
2129: Loop
2130:
2131: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2132:
2133: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.IB_INTERFACE.Begin.parameters',
2134: 'Transaction Type = '|| 'NEW'|| 'Transaction date = '|| instance_tbl(i).transaction_date
2135: ||'Bom explosion flag = '|| instance_tbl(i).bom_explosion_flag );
2129: Loop
2130:
2131: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2132:
2133: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.IB_INTERFACE.Begin.parameters',
2134: 'Transaction Type = '|| 'NEW'|| 'Transaction date = '|| instance_tbl(i).transaction_date
2135: ||'Bom explosion flag = '|| instance_tbl(i).bom_explosion_flag );
2136: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.IB_INTERFACE.Begin.parameter',
2137: 'Old Org = '||instance_tbl(i).org_id||',Old Customer Product Id = '||instance_tbl(i).old_customer_product_id
2132:
2133: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.IB_INTERFACE.Begin.parameters',
2134: 'Transaction Type = '|| 'NEW'|| 'Transaction date = '|| instance_tbl(i).transaction_date
2135: ||'Bom explosion flag = '|| instance_tbl(i).bom_explosion_flag );
2136: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.IB_INTERFACE.Begin.parameter',
2137: 'Old Org = '||instance_tbl(i).org_id||',Old Customer Product Id = '||instance_tbl(i).old_customer_product_id
2138: ||',Old Order Line Id = '||instance_tbl(i).order_line_id ||',Old Shipped Date = '|| instance_tbl(i).shipped_date
2139: ||',Old Bill To = '|| instance_tbl(i).bill_to_site_use_id ||',Old Ship To = '||instance_tbl(i).ship_to_site_use_id
2140: ||',Old Quantity = '|| instance_tbl(i).old_quantity || ',Old Unit Of Measurement = '|| instance_tbl(i).old_unit_of_measure
2153:
2154:
2155:
2156:
2157: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2158: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2159: 'Ib_new(Return status = '||l_return_status ||')' );
2160: End If;
2161: x_return_status := l_return_status;
2154:
2155:
2156:
2157: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2158: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2159: 'Ib_new(Return status = '||l_return_status ||')' );
2160: End If;
2161: x_return_status := l_return_status;
2162: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2170: ------------------------------------------------------
2171:
2172: If l_inst_dtls_tbl.count = 0 OR l_return_status <> 'S' Then
2173:
2174: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2175: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2176: 'No records for history details or status invalid ' );
2177: End If;
2178: Null;
2171:
2172: If l_inst_dtls_tbl.count = 0 OR l_return_status <> 'S' Then
2173:
2174: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2175: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2176: 'No records for history details or status invalid ' );
2177: End If;
2178: Null;
2179: Else
2212: x_msg_data => x_msg_data,
2213: p_insv_rec => l_insthist_rec,
2214: x_insv_rec => x_insthist_rec
2215: );
2216: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2217: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE.instance history',
2218: 'oks_ins_pvt.insert_row(Return status = '||l_return_status ||')' );
2219: End If;
2220: x_return_status := l_return_status;
2213: p_insv_rec => l_insthist_rec,
2214: x_insv_rec => x_insthist_rec
2215: );
2216: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2217: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE.instance history',
2218: 'oks_ins_pvt.insert_row(Return status = '||l_return_status ||')' );
2219: End If;
2220: x_return_status := l_return_status;
2221: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2238: x_msg_data => x_msg_data,
2239: p_ihdv_tbl => l_inst_dtls_tbl,
2240: x_ihdv_tbl => x_inst_dtls_tbl
2241: );
2242: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2243: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE.instance history details',
2244: 'oks_ihd_pvt.insert_row(Return status = '||l_return_status ||')' );
2245: End If;
2246: x_return_status := l_return_status;
2239: p_ihdv_tbl => l_inst_dtls_tbl,
2240: x_ihdv_tbl => x_inst_dtls_tbl
2241: );
2242: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2243: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE.instance history details',
2244: 'oks_ihd_pvt.insert_row(Return status = '||l_return_status ||')' );
2245: End If;
2246: x_return_status := l_return_status;
2247: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2259: -- Transfer transaction
2260: Open get_Contracts_for_transfer_csr;
2261: Fetch get_Contracts_for_transfer_csr Bulk Collect into k_trf_tbl;
2262: Close get_Contracts_for_transfer_csr;
2263: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2264: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2265: 'Number of instances with transaction Transfer=' ||k_trf_tbl.count);
2266: End If;
2267:
2260: Open get_Contracts_for_transfer_csr;
2261: Fetch get_Contracts_for_transfer_csr Bulk Collect into k_trf_tbl;
2262: Close get_Contracts_for_transfer_csr;
2263: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2264: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2265: 'Number of instances with transaction Transfer=' ||k_trf_tbl.count);
2266: End If;
2267:
2268:
2276: x_return_status => l_return_status,
2277: x_msg_count => x_msg_count,
2278: x_msg_data => x_msg_data
2279: );
2280: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2281: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2282: 'oks_extwarprgm_pvt .create_k_system_transfer(Return status = '||l_return_status ||')' );
2283: End If;
2284:
2277: x_msg_count => x_msg_count,
2278: x_msg_data => x_msg_data
2279: );
2280: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2281: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2282: 'oks_extwarprgm_pvt .create_k_system_transfer(Return status = '||l_return_status ||')' );
2283: End If;
2284:
2285: x_return_status := l_return_status;
2293: -- Terminate transaction
2294: Open get_k_for_trm_csr;
2295: Fetch get_k_for_trm_csr Bulk Collect into k_trm_tbl;
2296: Close get_k_for_trm_csr;
2297: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2298: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2299: 'Number of instances with transaction Terminate=' ||k_trm_tbl.count);
2300: End If;
2301:
2294: Open get_k_for_trm_csr;
2295: Fetch get_k_for_trm_csr Bulk Collect into k_trm_tbl;
2296: Close get_k_for_trm_csr;
2297: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2298: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2299: 'Number of instances with transaction Terminate=' ||k_trm_tbl.count);
2300: End If;
2301:
2302:
2308: x_return_status => l_return_status,
2309: x_msg_count => x_msg_count,
2310: x_msg_data => x_msg_data
2311: );
2312: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2313: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2314: 'Create_contract_terminate(Return status = '||l_return_status ||')' );
2315: End If;
2316: x_return_status := l_return_status;
2309: x_msg_count => x_msg_count,
2310: x_msg_data => x_msg_data
2311: );
2312: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2313: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2314: 'Create_contract_terminate(Return status = '||l_return_status ||')' );
2315: End If;
2316: x_return_status := l_return_status;
2317: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2324: Open get_k_for_ret_csr;
2325: Fetch get_k_for_ret_csr Bulk Collect into k_ret_tbl;
2326: Close get_k_for_ret_csr;
2327:
2328: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2329: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2330: 'Number of instances with transaction Return=' ||k_ret_tbl.count);
2331: End If;
2332:
2325: Fetch get_k_for_ret_csr Bulk Collect into k_ret_tbl;
2326: Close get_k_for_ret_csr;
2327:
2328: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2329: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2330: 'Number of instances with transaction Return=' ||k_ret_tbl.count);
2331: End If;
2332:
2333: --errorout_n('in return count'||K_ret_tbl.count);
2341: x_msg_count => x_msg_count,
2342: x_msg_data => x_msg_data
2343: );
2344:
2345: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2346: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2347: 'Create_Contract_IBreturn(Return status = '||l_return_status ||')' );
2348: End If;
2349: x_return_status := l_return_status;
2342: x_msg_data => x_msg_data
2343: );
2344:
2345: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2346: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2347: 'Create_Contract_IBreturn(Return status = '||l_return_status ||')' );
2348: End If;
2349: x_return_status := l_return_status;
2350: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2352: Raise G_EXCEPTION_HALT_VALIDATION;
2353: End if;
2354: End If;
2355: -- Update transaction
2356: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2357: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2358: 'Instance quantity Update Profile=' ||fnd_profile.value('OKS_INSTANCE_QUANTITY_UPDATE'));
2359: End If;
2360:
2353: End if;
2354: End If;
2355: -- Update transaction
2356: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2357: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2358: 'Instance quantity Update Profile=' ||fnd_profile.value('OKS_INSTANCE_QUANTITY_UPDATE'));
2359: End If;
2360:
2361: If NVL(fnd_profile.value('OKS_INSTANCE_QUANTITY_UPDATE'),'N') = 'Y' Then
2362: Open get_k_for_upd_csr;
2363: Fetch get_k_for_upd_csr Bulk Collect into k_upd_tbl;
2364: Close get_k_for_upd_csr;
2365:
2366: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2367: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2368: 'Number of instances with transaction Update=' ||k_upd_tbl.count);
2369: End If;
2370:
2363: Fetch get_k_for_upd_csr Bulk Collect into k_upd_tbl;
2364: Close get_k_for_upd_csr;
2365:
2366: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2367: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2368: 'Number of instances with transaction Update=' ||k_upd_tbl.count);
2369: End If;
2370:
2371:
2377: x_return_status => l_return_status,
2378: x_msg_count => x_msg_count,
2379: x_msg_data => x_msg_data
2380: );
2381: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2382: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2383: 'Create_contract_IBupdate(Return status = '||l_return_status ||')' );
2384: End If;
2385: x_return_status := l_return_status;
2378: x_msg_count => x_msg_count,
2379: x_msg_data => x_msg_data
2380: );
2381: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2382: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2383: 'Create_contract_IBupdate(Return status = '||l_return_status ||')' );
2384: End If;
2385: x_return_status := l_return_status;
2386: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2397: Fetch get_k_for_idc_csr Bulk Collect into k_idc_tbl;
2398: Close get_k_for_idc_csr;
2399: --errorout_n('idc'||k_idc_tbl.count );
2400:
2401: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2402: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2403: 'Number of instances with transaction Idc=' ||k_idc_tbl.count);
2404: End If;
2405:
2398: Close get_k_for_idc_csr;
2399: --errorout_n('idc'||k_idc_tbl.count );
2400:
2401: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2402: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2403: 'Number of instances with transaction Idc=' ||k_idc_tbl.count);
2404: End If;
2405:
2406:
2411: x_return_status => l_return_status,
2412: x_msg_count => x_msg_count,
2413: x_msg_data => x_msg_data
2414: );
2415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2416: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2417: 'Update_contract_idc(Return status = '||l_return_status ||')' );
2418: End If;
2419: x_return_status := l_return_status;
2412: x_msg_count => x_msg_count,
2413: x_msg_data => x_msg_data
2414: );
2415: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2416: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2417: 'Update_contract_idc(Return status = '||l_return_status ||')' );
2418: End If;
2419: x_return_status := l_return_status;
2420:
2430:
2431: Open get_k_for_spl_csr;
2432: Fetch get_k_for_spl_csr Bulk Collect into k_spl_tbl;
2433: Close get_k_for_spl_csr;
2434: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2435: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2436: 'Number of instances with transaction Split=' ||k_spl_tbl.count);
2437: End If;
2438:
2431: Open get_k_for_spl_csr;
2432: Fetch get_k_for_spl_csr Bulk Collect into k_spl_tbl;
2433: Close get_k_for_spl_csr;
2434: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2435: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2436: 'Number of instances with transaction Split=' ||k_spl_tbl.count);
2437: End If;
2438:
2439:
2445: x_return_status => l_return_status,
2446: x_msg_count => x_msg_count,
2447: x_msg_data => x_msg_data
2448: );
2449: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2451: 'Create_contract_ibsplit(Return status = '||l_return_status ||')' );
2452: End If;
2453: x_return_status := l_return_status;
2446: x_msg_count => x_msg_count,
2447: x_msg_data => x_msg_data
2448: );
2449: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2451: 'Create_contract_ibsplit(Return status = '||l_return_status ||')' );
2452: End If;
2453: x_return_status := l_return_status;
2454: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2462: Open get_k_for_rpl_csr;
2463: Fetch get_k_for_rpl_csr Bulk Collect into k_rpl_tbl;
2464: Close get_k_for_rpl_csr;
2465:
2466: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2467: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2468: 'Number of instances with transaction Replace=' ||k_rpl_tbl.count);
2469: End If;
2470:
2463: Fetch get_k_for_rpl_csr Bulk Collect into k_rpl_tbl;
2464: Close get_k_for_rpl_csr;
2465:
2466: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2467: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2468: 'Number of instances with transaction Replace=' ||k_rpl_tbl.count);
2469: End If;
2470:
2471:
2473: If K_rpl_tbl.count > 0 Then
2474: --Call out to Pre-Integration
2475: --This is done as part of License Migration
2476: --Call out starts here
2477: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2478: THEN
2479: fnd_log.string(FND_LOG.LEVEL_STATEMENT
2480: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2481: ,'Before OKS_OMIB_EXTNS_PUB.pre_integration call: ' ||
2475: --This is done as part of License Migration
2476: --Call out starts here
2477: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2478: THEN
2479: fnd_log.string(FND_LOG.LEVEL_STATEMENT
2480: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2481: ,'Before OKS_OMIB_EXTNS_PUB.pre_integration call: ' ||
2482: ' ,p_api_version = '|| p_api_version ||
2483: ' ,p_init_msg_list = ' || p_init_msg_list ||
2503: ,x_return_status => x_return_status
2504: ,x_msg_count => x_msg_count
2505: ,x_msg_data => x_msg_data);
2506:
2507: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
2508: THEN
2509: fnd_log.string(FND_LOG.LEVEL_EVENT
2510: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2511: ,'After OKS_OMIB_INT_EXTNS_PUB.pre_integration Call: ' ||
2505: ,x_msg_data => x_msg_data);
2506:
2507: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
2508: THEN
2509: fnd_log.string(FND_LOG.LEVEL_EVENT
2510: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2511: ,'After OKS_OMIB_INT_EXTNS_PUB.pre_integration Call: ' ||
2512: ' ,x_process_status = ' || l_process_status ||
2513: ' ,x_return_status = ' || x_return_status);
2525: x_return_status => l_return_status,
2526: x_msg_count => x_msg_count,
2527: x_msg_data => x_msg_data
2528: );
2529: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2531: 'Update_Contract_IBReplace(Return status = '||l_return_status ||')' );
2532: End If;
2533: x_return_status := l_return_status;
2526: x_msg_count => x_msg_count,
2527: x_msg_data => x_msg_data
2528: );
2529: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2530: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE',
2531: 'Update_Contract_IBReplace(Return status = '||l_return_status ||')' );
2532: End If;
2533: x_return_status := l_return_status;
2534: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2536: Raise G_EXCEPTION_HALT_VALIDATION;
2537: End if;
2538: End If;
2539: --Call out to post integration starts here
2540: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2541: THEN
2542: fnd_log.string(FND_LOG.LEVEL_STATEMENT
2543: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2544: ,'Before OKS_OMIB_EXTNS_PUB.post_integration call: ' ||
2538: End If;
2539: --Call out to post integration starts here
2540: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
2541: THEN
2542: fnd_log.string(FND_LOG.LEVEL_STATEMENT
2543: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2544: ,'Before OKS_OMIB_EXTNS_PUB.post_integration call: ' ||
2545: ' ,p_transaction_type = ' || 'RPL'||
2546: ' ,p_transaction_date = ' || K_rpl_tbl(1).transaction_date||
2565: ,p_subline_id => NULL
2566: ,x_return_status => x_return_status
2567: ,x_msg_count => x_msg_count
2568: ,x_msg_data => x_msg_data);
2569: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
2570: THEN
2571: fnd_log.string(FND_LOG.LEVEL_EVENT
2572: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2573: ,'After OKS_OMIB_INT_EXTNS_PUB.post_integration Call: ' ||
2567: ,x_msg_count => x_msg_count
2568: ,x_msg_data => x_msg_data);
2569: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
2570: THEN
2571: fnd_log.string(FND_LOG.LEVEL_EVENT
2572: ,G_MODULE_CURRENT||'.IB_INTERFACE'
2573: ,'After OKS_OMIB_INT_EXTNS_PUB.post_integration Call: ' ||
2574: ' ,x_return_status = ' || x_return_status);
2575: END IF;
2589:
2590: Exception
2591: When G_EXCEPTION_HALT_VALIDATION Then
2592: x_return_status := l_return_status;
2593: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2594: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.IB_INTERFACE.UNEXPECTED',
2595: 'Return status = '||x_return_status );
2596: END IF;
2597: --Fix for bug 4947476
2590: Exception
2591: When G_EXCEPTION_HALT_VALIDATION Then
2592: x_return_status := l_return_status;
2593: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2594: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.IB_INTERFACE.UNEXPECTED',
2595: 'Return status = '||x_return_status );
2596: END IF;
2597: --Fix for bug 4947476
2598: FND_MSG_PUB.Count_And_Get
2602: );
2603:
2604: When Others Then
2605: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2606: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2607: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.IB_INTERFACE.UNEXPECTED',
2608: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
2609: END IF;
2610: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2603:
2604: When Others Then
2605: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2606: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2607: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.IB_INTERFACE.UNEXPECTED',
2608: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
2609: END IF;
2610: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2611: --Fix for bug 4947476
2635: WHERE batch_ID = P_Batch_ID;
2636: Exception
2637: When Others Then
2638: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2639: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2640: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.IB_INTERFACE.UNEXPECTED',
2641: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
2642: END IF;
2643: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2636: Exception
2637: When Others Then
2638: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2639: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2640: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.IB_INTERFACE.UNEXPECTED',
2641: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
2642: END IF;
2643: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2644:
2675:
2676: IF l_dummy_var = '?'
2677: THEN
2678: x_return_status := OKC_API.G_RET_STS_ERROR;
2679: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2680: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
2681: 'Accounts mismatch ' ||p_batch_id ||'Account id'|| p_new_owner_id );
2682: END IF;
2683: OKC_API.set_message(G_APP_NAME, 'OKS_BATCH_RULES_MISMATCH');
2676: IF l_dummy_var = '?'
2677: THEN
2678: x_return_status := OKC_API.G_RET_STS_ERROR;
2679: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2680: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
2681: 'Accounts mismatch ' ||p_batch_id ||'Account id'|| p_new_owner_id );
2682: END IF;
2683: OKC_API.set_message(G_APP_NAME, 'OKS_BATCH_RULES_MISMATCH');
2684: END IF;
2695:
2696: If x_return_status <> OKC_API.G_RET_STS_SUCCESS
2697: THEN
2698: x_return_status := OKC_API.G_RET_STS_ERROR;
2699: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2700: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
2701: 'Error while deleting the batch ' ||p_batch_id);
2702: END IF;
2703: END IF;
2696: If x_return_status <> OKC_API.G_RET_STS_SUCCESS
2697: THEN
2698: x_return_status := OKC_API.G_RET_STS_ERROR;
2699: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2700: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_NEW',
2701: 'Error while deleting the batch ' ||p_batch_id);
2702: END IF;
2703: END IF;
2704: END IF;
2760: x_msg_data => x_msg_data,
2761: p_oks_batch_rules_v_rec => l_batch_rule,
2762: x_oks_batch_rules_v_rec => x_batch_rule);
2763:
2764: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2765: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.CREATE_BATCH',
2766: 'oks_brl_pvt.insert_row(Return status = '|| l_return_status || ')');
2767: END IF;
2768:
2761: p_oks_batch_rules_v_rec => l_batch_rule,
2762: x_oks_batch_rules_v_rec => x_batch_rule);
2763:
2764: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2765: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.CREATE_BATCH',
2766: 'oks_brl_pvt.insert_row(Return status = '|| l_return_status || ')');
2767: END IF;
2768:
2769: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2773: x_return_status := l_return_status;
2774: Exception
2775: When G_EXCEPTION_HALT_VALIDATION Then
2776: x_return_status := l_return_status;
2777: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2778: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.CARETE_BATCH_RULES.UNEXPECTED',
2779: 'No Batch rules created');
2780: END IF;
2781:
2774: Exception
2775: When G_EXCEPTION_HALT_VALIDATION Then
2776: x_return_status := l_return_status;
2777: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2778: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.CARETE_BATCH_RULES.UNEXPECTED',
2779: 'No Batch rules created');
2780: END IF;
2781:
2782: When Others Then
2781:
2782: When Others Then
2783: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2784: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2785: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2786: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.CARETE_BATCH_RULES.UNEXPECTED',
2787: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
2788: END IF;
2789: End;
2782: When Others Then
2783: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2784: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2785: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2786: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.CARETE_BATCH_RULES.UNEXPECTED',
2787: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
2788: END IF;
2789: End;
2790:
3093: x_return_status => x_return_status,
3094: x_msg_count => x_msg_count,
3095: x_msg_data => x_msg_data);
3096:
3097: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3098: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.Create_item_instance',
3099: 'Csi PAI status = ('|| x_return_status || ')');
3100: END IF;
3101:
3094: x_msg_count => x_msg_count,
3095: x_msg_data => x_msg_data);
3096:
3097: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3098: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.Create_item_instance',
3099: 'Csi PAI status = ('|| x_return_status || ')');
3100: END IF;
3101:
3102: p_instance_rec.instance_id :=lp_instance_rec.instance_id;