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

APPS.OKC_PRICE_PUB dependencies on OKC_API

Line 446: OKC_API.set_message(G_APP_NAME, 'OKC_QP_NOT_INSTALLED');

442: Fetch c1 Into l_dummy;
443: l_row_notfound := c1%NotFound;
444: Close c1;
445: If l_row_notfound Then
446: OKC_API.set_message(G_APP_NAME, 'OKC_QP_NOT_INSTALLED');
447: l_return_status := False;
448: End If;
449: Return (l_return_status);
450: End Product_Installed;

Line 477: x_return_status := OKC_API.G_RET_STS_SUCCESS;

473: from okc_k_lines_b
474: where id = p_cle_id;
475: Begin
476: -- dbms_output.put_line('Get_Price_List');
477: x_return_status := OKC_API.G_RET_STS_SUCCESS;
478: If p_clev_tbl(1).id Is Null Or
479: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
480: If p_clev_tbl(1).cle_id Is Null Or
481: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then

Line 479: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then

475: Begin
476: -- dbms_output.put_line('Get_Price_List');
477: x_return_status := OKC_API.G_RET_STS_SUCCESS;
478: If p_clev_tbl(1).id Is Null Or
479: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
480: If p_clev_tbl(1).cle_id Is Null Or
481: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then
482: l_cle_id := Null;
483: Else

Line 481: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then

477: x_return_status := OKC_API.G_RET_STS_SUCCESS;
478: If p_clev_tbl(1).id Is Null Or
479: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
480: If p_clev_tbl(1).cle_id Is Null Or
481: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then
482: l_cle_id := Null;
483: Else
484: l_cle_id := p_clev_tbl(1).cle_id;
485: End If;

Line 518: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then

514: End Loop;
515: Close c1;
516: End If;
517: If p_clev_tbl(1).dnz_chr_id Is Null Or
518: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then
519: If l_cle_id Is Not Null Then
520: Open c2(l_cle_id);
521: Fetch c2 Into l_chr_id;
522: l_row_notfound := c2%NotFound;

Line 548: OKC_API.set_message(G_APP_NAME, 'OKC_PRICE_LIST_NOT_FOUND');

544: x_price_list := Null;
545: When No_Lov_Price_List Then
546: x_price_list := Null;
547: When No_Price_List Then
548: OKC_API.set_message(G_APP_NAME, 'OKC_PRICE_LIST_NOT_FOUND');
549: x_return_status := OKC_API.G_RET_STS_ERROR;
550: When OK_Price_List Then
551: If c1%IsOpen Then
552: Close c1;

Line 549: x_return_status := OKC_API.G_RET_STS_ERROR;

545: When No_Lov_Price_List Then
546: x_price_list := Null;
547: When No_Price_List Then
548: OKC_API.set_message(G_APP_NAME, 'OKC_PRICE_LIST_NOT_FOUND');
549: x_return_status := OKC_API.G_RET_STS_ERROR;
550: When OK_Price_List Then
551: If c1%IsOpen Then
552: Close c1;
553: End If;

Line 556: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');

552: Close c1;
553: End If;
554: x_price_list := l_price_list;
555: When Invalid_Line Then
556: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');
557: x_return_status := OKC_API.G_RET_STS_ERROR;
558: WHEN OTHERS THEN
559: If c1%IsOpen Then
560: Close c1;

Line 557: x_return_status := OKC_API.G_RET_STS_ERROR;

553: End If;
554: x_price_list := l_price_list;
555: When Invalid_Line Then
556: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');
557: x_return_status := OKC_API.G_RET_STS_ERROR;
558: WHEN OTHERS THEN
559: If c1%IsOpen Then
560: Close c1;
561: End If;

Line 565: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

561: End If;
562: If c2%IsOpen Then
563: Close c2;
564: End If;
565: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
566: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
567: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
568: End Get_Price_List;
569: --

Line 567: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

563: Close c2;
564: End If;
565: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
566: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
567: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
568: End Get_Price_List;
569: --
570: Procedure Get_Inventory_Item(p_clev_tbl OKC_CONTRACT_PUB.clev_tbl_type,
571: p_cimv_tbl OKC_CONTRACT_ITEM_PUB.cimv_tbl_type,

Line 589: x_return_status := OKC_API.G_RET_STS_SUCCESS;

585: Inv_Item_Not_Found Exception;
586: Item_Uom_Qty_Null Exception;
587: BEGIN
588: -- dbms_output.put_line('Get_Inventory_Item');
589: x_return_status := OKC_API.G_RET_STS_SUCCESS;
590: If Nvl(p_cimv_tbl(1).priced_item_yn, 'N') = 'Y' Then
591: x_inventory_item_id := p_cimv_tbl(1).object1_id1;
592: x_uom_code := p_cimv_tbl(1).uom_code;
593: x_qty := p_cimv_tbl(1).number_of_items;

Line 595: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then

591: x_inventory_item_id := p_cimv_tbl(1).object1_id1;
592: x_uom_code := p_cimv_tbl(1).uom_code;
593: x_qty := p_cimv_tbl(1).number_of_items;
594: Elsif p_clev_tbl(1).id Is Null Or
595: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
596: Raise Inv_Item_Not_Found;
597: Else
598: Open c1(p_clev_tbl(1).id);
599: Fetch c1

Line 616: x_return_status := OKC_API.G_RET_STS_ERROR;

612: Raise Item_Uom_Qty_Null;
613: End If;
614: EXCEPTION
615: When Inv_Item_Not_Found Then
616: x_return_status := OKC_API.G_RET_STS_ERROR;
617: OKC_API.set_message(G_APP_NAME, 'OKC_INV_ITEM_NOT_FOUND');
618: When Item_Uom_Qty_Null Then
619: x_return_status := OKC_API.G_RET_STS_ERROR;
620: OKC_API.set_message(G_APP_NAME, 'OKC_ITEM_UOM_QTY_NULL');

Line 617: OKC_API.set_message(G_APP_NAME, 'OKC_INV_ITEM_NOT_FOUND');

613: End If;
614: EXCEPTION
615: When Inv_Item_Not_Found Then
616: x_return_status := OKC_API.G_RET_STS_ERROR;
617: OKC_API.set_message(G_APP_NAME, 'OKC_INV_ITEM_NOT_FOUND');
618: When Item_Uom_Qty_Null Then
619: x_return_status := OKC_API.G_RET_STS_ERROR;
620: OKC_API.set_message(G_APP_NAME, 'OKC_ITEM_UOM_QTY_NULL');
621: WHEN OTHERS THEN

Line 619: x_return_status := OKC_API.G_RET_STS_ERROR;

615: When Inv_Item_Not_Found Then
616: x_return_status := OKC_API.G_RET_STS_ERROR;
617: OKC_API.set_message(G_APP_NAME, 'OKC_INV_ITEM_NOT_FOUND');
618: When Item_Uom_Qty_Null Then
619: x_return_status := OKC_API.G_RET_STS_ERROR;
620: OKC_API.set_message(G_APP_NAME, 'OKC_ITEM_UOM_QTY_NULL');
621: WHEN OTHERS THEN
622: If c1%IsOpen Then
623: Close c1;

Line 620: OKC_API.set_message(G_APP_NAME, 'OKC_ITEM_UOM_QTY_NULL');

616: x_return_status := OKC_API.G_RET_STS_ERROR;
617: OKC_API.set_message(G_APP_NAME, 'OKC_INV_ITEM_NOT_FOUND');
618: When Item_Uom_Qty_Null Then
619: x_return_status := OKC_API.G_RET_STS_ERROR;
620: OKC_API.set_message(G_APP_NAME, 'OKC_ITEM_UOM_QTY_NULL');
621: WHEN OTHERS THEN
622: If c1%IsOpen Then
623: Close c1;
624: End If;

Line 625: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

621: WHEN OTHERS THEN
622: If c1%IsOpen Then
623: Close c1;
624: End If;
625: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
626: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
627: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
628: END Get_Inventory_Item;
629: --

Line 627: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

623: Close c1;
624: End If;
625: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
626: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
627: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
628: END Get_Inventory_Item;
629: --
630: Procedure Get_Currency_Code(p_clev_tbl OKC_CONTRACT_PUB.clev_tbl_type,
631: x_cur_code OUT NOCOPY Varchar2,

Line 648: x_return_status := OKC_API.G_RET_STS_SUCCESS;

644: l_row_notfound Boolean := True;
645: Contract_Not_Found Exception;
646: BEGIN
647: -- dbms_output.put_line('Get_Currency_Code');
648: x_return_status := OKC_API.G_RET_STS_SUCCESS;
649: If p_clev_tbl(1).currency_code Is Null Or
650: p_clev_tbl(1).currency_code = OKC_API.G_MISS_CHAR Then
651: If p_clev_tbl(1).dnz_chr_id Is Null Or
652: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then

Line 650: p_clev_tbl(1).currency_code = OKC_API.G_MISS_CHAR Then

646: BEGIN
647: -- dbms_output.put_line('Get_Currency_Code');
648: x_return_status := OKC_API.G_RET_STS_SUCCESS;
649: If p_clev_tbl(1).currency_code Is Null Or
650: p_clev_tbl(1).currency_code = OKC_API.G_MISS_CHAR Then
651: If p_clev_tbl(1).dnz_chr_id Is Null Or
652: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then
653: If p_clev_tbl(1).id Is Null Or
654: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then

Line 652: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then

648: x_return_status := OKC_API.G_RET_STS_SUCCESS;
649: If p_clev_tbl(1).currency_code Is Null Or
650: p_clev_tbl(1).currency_code = OKC_API.G_MISS_CHAR Then
651: If p_clev_tbl(1).dnz_chr_id Is Null Or
652: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then
653: If p_clev_tbl(1).id Is Null Or
654: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
655: If p_clev_tbl(1).cle_id Is Null Or
656: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then

Line 654: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then

650: p_clev_tbl(1).currency_code = OKC_API.G_MISS_CHAR Then
651: If p_clev_tbl(1).dnz_chr_id Is Null Or
652: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then
653: If p_clev_tbl(1).id Is Null Or
654: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
655: If p_clev_tbl(1).cle_id Is Null Or
656: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then
657: Raise Contract_Not_Found;
658: Else

Line 656: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then

652: p_clev_tbl(1).dnz_chr_id = OKC_API.G_MISS_NUM Then
653: If p_clev_tbl(1).id Is Null Or
654: p_clev_tbl(1).id = OKC_API.G_MISS_NUM Then
655: If p_clev_tbl(1).cle_id Is Null Or
656: p_clev_tbl(1).cle_id = OKC_API.G_MISS_NUM Then
657: Raise Contract_Not_Found;
658: Else
659: l_cle_id := p_clev_tbl(1).cle_id;
660: End If;

Line 687: x_return_status := OKC_API.G_RET_STS_ERROR;

683: x_cur_code := p_clev_tbl(1).currency_code;
684: End If;
685: EXCEPTION
686: When Contract_Not_Found Then
687: x_return_status := OKC_API.G_RET_STS_ERROR;
688: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');
689: WHEN OTHERS THEN
690: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
691: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

Line 688: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');

684: End If;
685: EXCEPTION
686: When Contract_Not_Found Then
687: x_return_status := OKC_API.G_RET_STS_ERROR;
688: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');
689: WHEN OTHERS THEN
690: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
691: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
692: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);

Line 690: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

686: When Contract_Not_Found Then
687: x_return_status := OKC_API.G_RET_STS_ERROR;
688: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');
689: WHEN OTHERS THEN
690: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
691: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
692: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
693: END Get_Currency_Code;
694: --

Line 691: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

687: x_return_status := OKC_API.G_RET_STS_ERROR;
688: OKC_API.set_message(G_APP_NAME, 'OKC_CONTRACT_NOT_FOUND');
689: WHEN OTHERS THEN
690: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
691: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
692: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
693: END Get_Currency_Code;
694: --
695: Procedure BUILD_OKC_KLINE_REC

Line 770: l_return_status Varchar2(10) := OKC_API.G_RET_STS_SUCCESS;

766: P_name Varchar2(40);
767: l_chrid Number;
768: l_service_period Varchar2(10);
769: l_Service_duration Number;
770: l_return_status Varchar2(10) := OKC_API.G_RET_STS_SUCCESS;
771: l_agreement_id Number;
772: l_Cust_Acct_id Number;
773: l_item_id Varchar2(40);
774: l_party_id Number;

Line 782: x_return_status := OKC_API.G_RET_STS_SUCCESS;

778:
779: l_rule_rec GET_RULE_CSR%ROWTYPE;
780:
781: BEGIN
782: x_return_status := OKC_API.G_RET_STS_SUCCESS;
783:
784: X_Contract_line_rec.line_id:= p_contract_line_id;
785: OPEN Get_line_det_csr;
786: FETCH Get_Line_det_csr INTO

Line 858: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

854:
855:
856: EXCEPTION
857: WHEN G_EXCEPTION_HALT_VALIDATION Then
858: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
859: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
860: WHEN OTHERS Then
861: ----Dbms_Output.Put_Line('OTHERS IN BUILD ' || sqlerrm);
862: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 859: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);

855:
856: EXCEPTION
857: WHEN G_EXCEPTION_HALT_VALIDATION Then
858: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
859: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
860: WHEN OTHERS Then
861: ----Dbms_Output.Put_Line('OTHERS IN BUILD ' || sqlerrm);
862: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
863: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);

Line 862: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

858: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
859: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
860: WHEN OTHERS Then
861: ----Dbms_Output.Put_Line('OTHERS IN BUILD ' || sqlerrm);
862: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
863: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
864: END;
865:
866:

Line 863: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);

859: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
860: WHEN OTHERS Then
861: ----Dbms_Output.Put_Line('OTHERS IN BUILD ' || sqlerrm);
862: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
863: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
864: END;
865:
866:
867: --- This Procedure loads the pricing attribute table and is called to load

Line 1257: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;

1253: x_Req_LINE_DETAIL_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
1254: x_Req_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
1255: x_return_status OUT NOCOPY Varchar2,
1256: x_return_status_text OUT NOCOPY Varchar2) IS
1257: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1258: l_return_status_text Varchar2(240);
1259: l_Req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
1260: l_Req_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
1261: l_Req_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;

Line 1271: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1267: l_qualifier_contexts_Tbl QP_Attr_Mapping_PUB.Contexts_Result_Tbl_Type;
1268: i Number;
1269:
1270: Begin
1271: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1272: G_CONTROL_REC.pricing_event := OKC_PRICE_PUB.G_PRICING_EVENT;
1273: G_CONTROL_REC.calculate_flag := 'Y';
1274: G_CONTROL_REC.simulation_flag := 'N';
1275:

Line 1567: x_return_status := OKC_API.G_RET_STS_ERROR;

1563: Dbms_Output.Put_Line('+--------------------------------------------------------------+'); */
1564:
1565: EXCEPTION
1566: WHEN FND_API.G_EXC_ERROR Then
1567: x_return_status := OKC_API.G_RET_STS_ERROR;
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
1569: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1570: WHEN OTHERS Then
1571: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 1569: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1565: EXCEPTION
1566: WHEN FND_API.G_EXC_ERROR Then
1567: x_return_status := OKC_API.G_RET_STS_ERROR;
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
1569: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1570: WHEN OTHERS Then
1571: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1572: -- Dbms_Output.Put_Line('Error is '|| sqlerrm);
1573: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) Then

Line 1571: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1567: x_return_status := OKC_API.G_RET_STS_ERROR;
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
1569: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1570: WHEN OTHERS Then
1571: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1572: -- Dbms_Output.Put_Line('Error is '|| sqlerrm);
1573: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) Then
1574: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,
1575: 'OKC_PRICE_PUB.CALL_PRICE_ENGINE',

Line 1591: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;

1587: px_message OUT NOCOPY VARCHAR2,
1588: x_return_status OUT NOCOPY VARCHAR2,
1589: x_msg_count OUT NOCOPY NUMBER,
1590: x_msg_data OUT NOCOPY VARCHAR2) IS
1591: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1592: l_return_status_text Varchar2(240) := NULL;
1593: lx_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
1594: lx_Req_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
1595: lx_Req_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;

Line 1603: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1599: lx_Req_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
1600: l_idx NUMBER := 0;
1601: l_contract_line_rec OKC_PRICE_PUB.G_LINE_REC_TYPE := p_contract_line_rec;
1602: Begin
1603: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1604: If nvl(p_contract_line_rec.record_built_flag, 'Y') = 'N' Then
1605: --- Build the contract line record so that it can be used in sourcing pricing attributes
1606: Build_Okc_Kline_Rec(p_Contract_Line_Id => p_contract_line_rec.line_id,
1607: x_CONTRACT_Line_rec => l_contract_line_rec,

Line 1609: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

1605: --- Build the contract line record so that it can be used in sourcing pricing attributes
1606: Build_Okc_Kline_Rec(p_Contract_Line_Id => p_contract_line_rec.line_id,
1607: x_CONTRACT_Line_rec => l_contract_line_rec,
1608: x_return_status => l_return_status);
1609: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1610: Raise G_BUILD_RECORD_FAILED;
1611: End If;
1612: Else
1613: l_contract_line_rec := p_contract_line_rec;

Line 1640: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

1636: x_return_status_text => l_return_status_text);
1637: -- Dbms_Output.Put_Line('After Call_Qp');
1638: -- Dbms_Output.Put_Line('Return Status text : '|| l_return_status || ' : ' || l_return_status_text);
1639:
1640: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1641: -- Dbms_Output.Put_Line('Qp Engine Failed !!');
1642: Raise G_CALL_QP_FAILED;
1643: End If;
1644: -- Dbms_Output.Put_Line('Qp Engine Success !!');

Line 1700: x_return_status := OKC_API.G_RET_STS_ERROR;

1696: End Loop;
1697: End If;
1698: EXCEPTION
1699: When G_BUILD_RECORD_FAILED Then
1700: x_return_status := OKC_API.G_RET_STS_ERROR;
1701: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) Then
1702: FND_MESSAGE.SET_NAME('OKC','OKC_DATA_NOT_POSTED');
1703: FND_MSG_PUB.Add;
1704: End If;

Line 1709: x_return_status := OKC_API.G_RET_STS_ERROR;

1705: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1706: p_data => x_msg_data,
1707: p_encoded => FND_API.G_FALSE);
1708: When G_REQUIRED_ATTR_FAILED Then
1709: x_return_status := OKC_API.G_RET_STS_ERROR;
1710: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) Then
1711: FND_MESSAGE.SET_NAME('OKC','OKC_ITEM_UOM_QTY_NUMM');
1712: FND_MSG_PUB.Add;
1713: End If;

Line 1718: x_return_status := OKC_API.G_RET_STS_ERROR;

1714: FND_MSG_PUB.COUNT_AND_GET(p_count => x_msg_count,
1715: p_data => x_msg_data,
1716: p_encoded => FND_API.G_FALSE);
1717: When G_CALL_QP_FAILED Then
1718: x_return_status := OKC_API.G_RET_STS_ERROR;
1719: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) Then
1720: FND_MESSAGE.SET_NAME('OKC','OKC_QP_FAILED');
1721: FND_MSG_PUB.Add;
1722: End If;

Line 1728: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1724: p_data => x_msg_data,
1725: p_encoded => FND_API.G_FALSE);
1726:
1727: When G_EXCEPTION_HALT_VALIDATION Then
1728: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1729: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1730: SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
1731: When FND_API.G_EXC_ERROR Then
1732: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 1729: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

1725: p_encoded => FND_API.G_FALSE);
1726:
1727: When G_EXCEPTION_HALT_VALIDATION Then
1728: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1729: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1730: SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
1731: When FND_API.G_EXC_ERROR Then
1732: x_return_status := OKC_API.G_RET_STS_ERROR;
1733: When FND_API.G_EXC_UNEXPECTED_ERROR Then

Line 1732: x_return_status := OKC_API.G_RET_STS_ERROR;

1728: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1729: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1730: SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
1731: When FND_API.G_EXC_ERROR Then
1732: x_return_status := OKC_API.G_RET_STS_ERROR;
1733: When FND_API.G_EXC_UNEXPECTED_ERROR Then
1734: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1735: When OTHERS Then
1736: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 1734: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1730: SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
1731: When FND_API.G_EXC_ERROR Then
1732: x_return_status := OKC_API.G_RET_STS_ERROR;
1733: When FND_API.G_EXC_UNEXPECTED_ERROR Then
1734: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1735: When OTHERS Then
1736: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1737: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1738: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);

Line 1736: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1732: x_return_status := OKC_API.G_RET_STS_ERROR;
1733: When FND_API.G_EXC_UNEXPECTED_ERROR Then
1734: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1735: When OTHERS Then
1736: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1737: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1738: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1739: End Calculate_Price;
1740: --

Line 1737: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

1733: When FND_API.G_EXC_UNEXPECTED_ERROR Then
1734: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1735: When OTHERS Then
1736: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1737: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1738: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1739: End Calculate_Price;
1740: --
1741:

Line 1752: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;

1748: x_return_status OUT NOCOPY VARCHAR2,
1749: x_msg_count OUT NOCOPY NUMBER,
1750: x_msg_data OUT NOCOPY VARCHAR2) IS
1751: l_contract_line_rec OKC_PRICE_PUB.G_LINE_REC_TYPE;
1752: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1753: l_price_list_id Number;
1754: l_inventory_item_id Number;
1755: l_uom_code Varchar2(3);
1756: l_qty Number;

Line 1761: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1757: l_cur_code Varchar2(15);
1758: QP_Not_Installed Exception;
1759: Mandatory_Data_Missing Exception;
1760: Begin
1761: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1762: --Bug 2752224--Moving after price list check to avoid error
1763: -- when user intends to enter price manually
1764: /*If Not Product_Installed('QP') Then
1765: Raise QP_Not_Installed;

Line 1771: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

1767: */
1768: Get_Price_List(p_clev_tbl,
1769: l_price_list_id,
1770: l_return_status);
1771: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1772: Raise Mandatory_Data_Missing;
1773: Else
1774: if l_price_list_id Is Null Then
1775: -- It is success. Either there is no Pricing Rule attached or

Line 1793: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

1789: l_inventory_item_id,
1790: l_uom_code,
1791: l_qty,
1792: l_return_status);
1793: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1794: Raise Mandatory_Data_Missing;
1795: End If;
1796: Get_Currency_Code(p_clev_tbl,
1797: l_cur_code,

Line 1799: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

1795: End If;
1796: Get_Currency_Code(p_clev_tbl,
1797: l_cur_code,
1798: l_return_status);
1799: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1800: Raise Mandatory_Data_Missing;
1801: End If;
1802: /* dbms_output.put_line('line_id ' || p_cle_id);
1803: dbms_output.put_line('price_list_id ' || l_price_list_id);

Line 1834: x_return_status := OKC_API.G_RET_STS_ERROR;

1830: x_msg_data);
1831: EXCEPTION
1832: When QP_Not_Installed Then
1833: -- dbms_output.put_line('QP_NOT_INSTALLED');
1834: x_return_status := OKC_API.G_RET_STS_ERROR;
1835: When Mandatory_Data_Missing Then
1836: -- dbms_output.put_line('Mandatory_Data_Missing');
1837: x_return_status := l_return_status;
1838: When OTHERS Then

Line 1840: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1836: -- dbms_output.put_line('Mandatory_Data_Missing');
1837: x_return_status := l_return_status;
1838: When OTHERS Then
1839: -- dbms_output.put_line('Unexpected Errors');
1840: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1841: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1842: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1843: End Calculate_Price;
1844: --

Line 1841: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

1837: x_return_status := l_return_status;
1838: When OTHERS Then
1839: -- dbms_output.put_line('Unexpected Errors');
1840: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1841: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1842: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1843: End Calculate_Price;
1844: --
1845: Procedure Calculate_Price(p_clev_tbl OKC_CONTRACT_PUB.clev_tbl_type,

Line 1853: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;

1849: px_message OUT NOCOPY Varchar2,
1850: x_return_status OUT NOCOPY VARCHAR2,
1851: x_msg_count OUT NOCOPY NUMBER,
1852: x_msg_data OUT NOCOPY VARCHAR2) IS
1853: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1854: l_contract_cp_tbl G_SLINE_TBL_TYPE;
1855: Data_Unposted Exception;
1856: Begin
1857: OKC_API.init_msg_list(OKC_API.G_FALSE);

Line 1857: OKC_API.init_msg_list(OKC_API.G_FALSE);

1853: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1854: l_contract_cp_tbl G_SLINE_TBL_TYPE;
1855: Data_Unposted Exception;
1856: Begin
1857: OKC_API.init_msg_list(OKC_API.G_FALSE);
1858: If (p_clev_tbl.COUNT = 0) Or
1859: (p_cimv_tbl.COUNT = 0) Then
1860: Raise Data_Unposted;
1861: End If;

Line 1870: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then

1866: l_return_status,
1867: x_msg_count,
1868: x_msg_data);
1869: x_return_status := l_return_status;
1870: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1871: If l_contract_cp_tbl.count > 0 Then
1872: px_unit_price := l_contract_cp_tbl(1).unit_price;
1873: px_extended_amount := l_contract_cp_tbl(1).extended_amount;
1874: End If;

Line 1878: x_return_status := OKC_API.G_RET_STS_ERROR;

1874: End If;
1875: End If;
1876: EXCEPTION
1877: When Data_Unposted Then
1878: x_return_status := OKC_API.G_RET_STS_ERROR;
1879: OKC_API.set_message(G_APP_NAME, 'OKC_DATA_NOT_POSTED');
1880: When OTHERS Then
1881: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1882: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

Line 1879: OKC_API.set_message(G_APP_NAME, 'OKC_DATA_NOT_POSTED');

1875: End If;
1876: EXCEPTION
1877: When Data_Unposted Then
1878: x_return_status := OKC_API.G_RET_STS_ERROR;
1879: OKC_API.set_message(G_APP_NAME, 'OKC_DATA_NOT_POSTED');
1880: When OTHERS Then
1881: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1882: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1883: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);

Line 1881: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1877: When Data_Unposted Then
1878: x_return_status := OKC_API.G_RET_STS_ERROR;
1879: OKC_API.set_message(G_APP_NAME, 'OKC_DATA_NOT_POSTED');
1880: When OTHERS Then
1881: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1882: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1883: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1884: End Calculate_Price;
1885: --

Line 1882: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,

1878: x_return_status := OKC_API.G_RET_STS_ERROR;
1879: OKC_API.set_message(G_APP_NAME, 'OKC_DATA_NOT_POSTED');
1880: When OTHERS Then
1881: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1882: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN,
1883: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1884: End Calculate_Price;
1885: --
1886: -- ifilimon: added to support unit price retrieving by main item attributes

Line 1896: x_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;

1892: p_qty NUMBER := 1
1893: ) RETURN NUMBER IS
1894: l_contract_cp_tbl OKC_PRICE_PUB.G_SLINE_TBL_TYPE;
1895: l_contract_line_rec OKC_PRICE_PUB.G_LINE_REC_TYPE;
1896: x_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1897: x_message VARCHAR2(1000);
1898: x_msg_count NUMBER;
1899: x_msg_data VARCHAR2(2000);
1900: BEGIN

Line 1922: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN

1918: x_message,
1919: x_return_status,
1920: x_msg_count,
1921: x_msg_data);
1922: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1923: return l_contract_cp_tbl(1).unit_price;
1924: ELSE
1925: return NULL;
1926: END IF;

Line 1944: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;

1940: l_contract_line_rec OKC_PRICE_PUB.G_LINE_REC_TYPE;
1941:
1942: ---- dummy table
1943: l_contract_cp_tbl OKC_PRICE_PUB.G_SLINE_TBL_TYPE;
1944: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1945: l_return_status_text varchar2(240) := NULL;
1946:
1947: lx_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
1948: lx_Req_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;

Line 1961: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1957: CURSOR puom_cur(p_inv_id NUMBER) IS
1958: select primary_uom_code from OKX_SYSTEM_ITEMS_V
1959: WHERE ID1 = p_inv_id;
1960: BEGIN
1961: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1962:
1963: If nvl(p_contract_line_rec.record_built_flag, 'Y') = 'N' Then
1964: --- Build the contract line record so that it can be used in sourcing pricing attributes
1965: BUILD_OKC_KLINE_REC(

Line 1970: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

1966: p_Contract_Line_Id => p_contract_line_rec.line_id,
1967: x_CONTRACT_Line_rec => l_contract_line_rec,
1968: x_return_status => l_return_status);
1969: ----Dbms_Output.Put_Line('RETURN STATUS ' || l_return_status);
1970: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1971: RAISE G_BUILD_RECORD_FAILED;
1972: End If;
1973: Else
1974: l_contract_line_rec := p_contract_line_rec;

Line 2007: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then

2003: x_Req_related_lines_tbl => lx_req_related_lines_tbl,
2004: x_return_status => l_return_status,
2005: x_return_status_text => l_return_status_text);
2006:
2007: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2008: RAISE G_CALL_QP_FAILED;
2009: End If;
2010:
2011: For i in lx_req_related_lines_tbl.first .. lx_req_related_lines_tbl.last

Line 2045: x_return_status := OKC_API.G_RET_STS_ERROR;

2041: End Loop;
2042: x_price_break_tbl := l_price_break_tbl;
2043: EXCEPTION
2044: WHEN G_BUILD_RECORD_FAILED Then
2045: x_return_status := OKC_API.G_RET_STS_ERROR;
2046: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2047: Then
2048: FND_MESSAGE.SET_NAME('OKC','OKC_DATA_NOT_POSTED');
2049: FND_MSG_PUB.Add;

Line 2058: x_return_status := OKC_API.G_RET_STS_ERROR;

2054: p_data => x_msg_data,
2055: p_encoded => FND_API.G_FALSE);
2056:
2057: WHEN G_REQUIRED_ATTR_FAILED Then
2058: x_return_status := OKC_API.G_RET_STS_ERROR;
2059: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2060: Then
2061: FND_MESSAGE.SET_NAME('OKC','OKC_ITEM_UOM_QTY_NULL');
2062: FND_MSG_PUB.Add;

Line 2071: x_return_status := OKC_API.G_RET_STS_ERROR;

2067: p_data => x_msg_data,
2068: p_encoded => FND_API.G_FALSE);
2069:
2070: WHEN G_CALL_QP_FAILED Then
2071: x_return_status := OKC_API.G_RET_STS_ERROR;
2072: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2073: Then
2074: FND_MESSAGE.SET_NAME('OKC','OKC_QP_FAILED');
2075: FND_MSG_PUB.Add;

Line 2084: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

2080: p_data => x_msg_data,
2081: p_encoded => FND_API.G_FALSE);
2082:
2083: WHEN G_EXCEPTION_HALT_VALIDATION Then
2084: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2085: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
2086: WHEN FND_API.G_EXC_ERROR Then
2087: x_return_status := OKC_API.G_RET_STS_ERROR;
2088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then

Line 2085: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);

2081: p_encoded => FND_API.G_FALSE);
2082:
2083: WHEN G_EXCEPTION_HALT_VALIDATION Then
2084: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2085: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
2086: WHEN FND_API.G_EXC_ERROR Then
2087: x_return_status := OKC_API.G_RET_STS_ERROR;
2088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
2089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 2087: x_return_status := OKC_API.G_RET_STS_ERROR;

2083: WHEN G_EXCEPTION_HALT_VALIDATION Then
2084: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2085: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
2086: WHEN FND_API.G_EXC_ERROR Then
2087: x_return_status := OKC_API.G_RET_STS_ERROR;
2088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
2089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2090: WHEN OTHERS Then
2091: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

Line 2089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

2085: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
2086: WHEN FND_API.G_EXC_ERROR Then
2087: x_return_status := OKC_API.G_RET_STS_ERROR;
2088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
2089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2090: WHEN OTHERS Then
2091: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2092: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2093:

Line 2091: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

2087: x_return_status := OKC_API.G_RET_STS_ERROR;
2088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
2089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2090: WHEN OTHERS Then
2091: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2092: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2093:
2094: END GET_PRICE_BREAK;
2095:

Line 2092: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);

2088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR Then
2089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2090: WHEN OTHERS Then
2091: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2092: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2093:
2094: END GET_PRICE_BREAK;
2095:
2096: /*--------Begin Added by Jomy--------*/