366: -- Base Unit Price.
367: --x_unit_price
368: -- Adjusted Unit Price.
369: --x_return_status
370: -- FND_API.G_RET_STS_SUCCESS if API succeeds
371: -- FND_API.G_RET_STS_ERROR if API fails
372: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
373: --Testing:
374: --
367: --x_unit_price
368: -- Adjusted Unit Price.
369: --x_return_status
370: -- FND_API.G_RET_STS_SUCCESS if API succeeds
371: -- FND_API.G_RET_STS_ERROR if API fails
372: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
373: --Testing:
374: --
375: --End of Comments
368: -- Adjusted Unit Price.
369: --x_return_status
370: -- FND_API.G_RET_STS_SUCCESS if API succeeds
371: -- FND_API.G_RET_STS_ERROR if API fails
372: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
373: --Testing:
374: --
375: --End of Comments
376: -------------------------------------------------------------------------------
462:
463: BEGIN
464:
465: -- Initialize OUT parameters
466: x_return_status := FND_API.G_RET_STS_SUCCESS;
467: x_base_unit_price := p_unit_price;
468: x_unit_price := p_unit_price;
469:
470: IF g_debug_stmt THEN
698: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
699: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status_text',l_return_status_text);
700: END IF;
701:
702: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
703: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
704: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
705: FND_MSG_PUB.Add;
706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
703: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
704: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
705: FND_MSG_PUB.Add;
706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
707: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
708: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
709: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
710: FND_MSG_PUB.Add;
703: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
704: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
705: FND_MSG_PUB.Add;
706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
707: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
708: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
709: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
710: FND_MSG_PUB.Add;
711: RAISE FND_API.G_EXC_ERROR;
707: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
708: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
709: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
710: FND_MSG_PUB.Add;
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: -- Don't call QP_PREQ_GRP.INSERT_LINE_ATTRS2 since PO has no
715: -- ASK_FOR attributes
750: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
751: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status_text',l_return_status_text);
752: END IF;
753:
754: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
755: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
756: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
757: FND_MSG_PUB.Add;
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
755: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
756: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
757: FND_MSG_PUB.Add;
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
760: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
761: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
762: FND_MSG_PUB.Add;
755: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
756: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
757: FND_MSG_PUB.Add;
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
760: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
761: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
762: FND_MSG_PUB.Add;
763: RAISE FND_API.G_EXC_ERROR;
759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
760: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
761: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
762: FND_MSG_PUB.Add;
763: RAISE FND_API.G_EXC_ERROR;
764: END IF;
765:
766: --
767: PO_CUSTOM_PRICE_PUB.audit_qp_price_adjustment(
774: , x_msg_data => l_msg_data
775: );
776:
777: l_progress := '230';
778: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
779: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status',l_return_status);
780: PO_DEBUG.debug_unexp(l_log_head,l_progress,'audit_qp_price_adjustment errors out');
781: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
782: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_msg_data);
780: PO_DEBUG.debug_unexp(l_log_head,l_progress,'audit_qp_price_adjustment errors out');
781: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
782: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_msg_data);
783: FND_MSG_PUB.Add;
784: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
785: END IF;
786: --
787:
788: l_progress := '240';
828: END IF;
829:
830: x_unit_price := NVL(x_unit_price, x_base_unit_price);
831:
832: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
833: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
834: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_price_status_text);
835: x_return_status := FND_API.g_ret_sts_error;
836: END IF;
831:
832: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
833: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
834: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_price_status_text);
835: x_return_status := FND_API.g_ret_sts_error;
836: END IF;
837:
838: l_progress := '300';
839: IF g_debug_stmt THEN
846: x_unit_price);
847: END IF;
848:
849: EXCEPTION
850: WHEN FND_API.G_EXC_ERROR THEN
851: --raised expected error: assume raiser already pushed onto the stack
852: l_exception_msg := FND_MSG_PUB.get(
853: p_msg_index => FND_MSG_PUB.G_LAST
854: , p_encoded => 'F'
856: IF g_debug_unexp THEN
857: PO_DEBUG.debug_var(l_log_head,l_progress,'l_exception_msg',
858: l_exception_msg);
859: END IF;
860: x_return_status := FND_API.g_ret_sts_error;
861: -- Push the po_return_msg onto msg list and message stack
862: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
863: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
864:
861: -- Push the po_return_msg onto msg list and message stack
862: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
863: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
864:
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866: --raised unexpected error: assume raiser already pushed onto the stack
867: l_exception_msg := FND_MSG_PUB.get(
868: p_msg_index => FND_MSG_PUB.G_LAST
869: , p_encoded => 'F'
871: IF g_debug_unexp THEN
872: PO_DEBUG.debug_var(l_log_head,l_progress,'l_exception_msg',
873: l_exception_msg);
874: END IF;
875: x_return_status := FND_API.g_ret_sts_unexp_error;
876: -- Push the po_return_msg onto msg list and message stack
877: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
878: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
879:
887: IF g_debug_unexp THEN
888: PO_DEBUG.debug_var(l_log_head,l_progress,'l_exception_msg',
889: l_exception_msg);
890: END IF;
891: x_return_status := FND_API.g_ret_sts_unexp_error;
892: -- Push the po_return_msg onto msg list and message stack
893: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
894: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
895: END get_advanced_price;
1066: l_freight_charge_rec_tbl Freight_Charges_Rec_Tbl_Type;
1067: BEGIN
1068:
1069: -- Initialize OUT parameters
1070: x_return_status := FND_API.G_RET_STS_SUCCESS;
1071: IF g_debug_stmt THEN
1072: PO_LOG.proc_begin(l_log_head);
1073: PO_LOG.proc_begin(l_log_head,'p_header_rec.org_id',p_header_rec.org_id);
1074: PO_LOG.proc_begin(l_log_head,'p_header_rec.p_order_header_id',p_header_rec.p_order_header_id);
1421: PO_LOG.stmt(l_log_head,d_pos,'x_return_status',x_return_status);
1422: PO_LOG.stmt(l_log_head,d_pos,'l_return_status_text',l_return_status_text);
1423: END IF;
1424:
1425: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1426: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1427: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1428: FND_MSG_PUB.Add;
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1425: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1426: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1427: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1428: FND_MSG_PUB.Add;
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1431: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1432: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1433: FND_MSG_PUB.Add;
1426: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1427: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1428: FND_MSG_PUB.Add;
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1431: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1432: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1433: FND_MSG_PUB.Add;
1434: RAISE FND_API.G_EXC_ERROR;
1430: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1431: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1432: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1433: FND_MSG_PUB.Add;
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436:
1437: -- Don't call QP_PREQ_GRP.INSERT_LINE_ATTRS2 since PO has no
1438: -- ASK_FOR attributes
1472: PO_LOG.stmt(l_log_head,d_pos,'x_return_status',x_return_status);
1473: PO_LOG.stmt(l_log_head,d_pos,'l_return_status_text',l_return_status_text);
1474: END IF;
1475:
1476: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1477: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1478: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1479: FND_MSG_PUB.Add;
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1477: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1478: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1479: FND_MSG_PUB.Add;
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1482: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1483: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1484: FND_MSG_PUB.Add;
1477: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1478: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1479: FND_MSG_PUB.Add;
1480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1481: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1482: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1483: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1484: FND_MSG_PUB.Add;
1485: RAISE FND_API.G_EXC_ERROR;
1481: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1482: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1483: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_return_status_text);
1484: FND_MSG_PUB.Add;
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1487:
1488: /** No custom price hook for receiving.. need to
1489: incorporate it. whenever we are planning to use
1498: , x_msg_data => l_msg_data
1499: );
1500:
1501: l_progress := '230';
1502: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1503: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status',l_return_status);
1504: PO_DEBUG.debug_unexp(l_log_head,l_progress,'audit_qp_price_adjustment errors out');
1505: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1506: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_msg_data);
1504: PO_DEBUG.debug_unexp(l_log_head,l_progress,'audit_qp_price_adjustment errors out');
1505: FND_MESSAGE.SET_NAME('PO','PO_QP_PRICE_API_ERROR');
1506: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_msg_data);
1507: FND_MSG_PUB.Add;
1508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1509: END IF;
1510: */
1511:
1512: d_pos := 240;
1603: PO_LOG.proc_end(l_log_head,'x_price_tbl('||j||').pricing_status_text',x_price_tbl(j).pricing_status_text);
1604: end LOOP;
1605: END IF;
1606: EXCEPTION
1607: WHEN FND_API.G_EXC_ERROR THEN
1608: --raised expected error: assume raiser already pushed onto the stack
1609: l_exception_msg := FND_MSG_PUB.get(
1610: p_msg_index => FND_MSG_PUB.G_LAST
1611: , p_encoded => 'F'
1612: );
1613: IF g_debug_unexp THEN
1614: PO_LOG.exc(l_log_head,d_pos,l_exception_msg);
1615: END IF;
1616: x_return_status := FND_API.g_ret_sts_error;
1617: -- Push the po_return_msg onto msg list and message stack
1618: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
1619: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
1620:
1617: -- Push the po_return_msg onto msg list and message stack
1618: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
1619: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
1620:
1621: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1622: --raised unexpected error: assume raiser already pushed onto the stack
1623: l_exception_msg := FND_MSG_PUB.get(
1624: p_msg_index => FND_MSG_PUB.G_LAST
1625: , p_encoded => 'F'
1626: );
1627: IF g_debug_unexp THEN
1628: PO_LOG.exc(l_log_head,d_pos,l_exception_msg);
1629: END IF;
1630: x_return_status := FND_API.g_ret_sts_unexp_error;
1631: -- Push the po_return_msg onto msg list and message stack
1632: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
1633: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
1634:
1641: l_exception_msg := FND_MESSAGE.get;
1642: IF g_debug_unexp THEN
1643: PO_LOG.exc(l_log_head,d_pos,l_exception_msg);
1644: END IF;
1645: x_return_status := FND_API.g_ret_sts_unexp_error;
1646: -- Push the po_return_msg onto msg list and message stack
1647: FND_MESSAGE.set_name('PO', 'PO_QP_PRICE_API_ERROR');
1648: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_exception_msg);
1649: END get_advanced_price;