610:
611: -- Initialize message list if p_init_msg_list is set to TRUE.
612: IF FND_API.to_Boolean(p_init_msg_list)
613: THEN
614: FND_MSG_PUB.initialize;
615: END IF;
616:
617: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
618:
759:
760: /* Change for populating QP_PREQ_GRP.CONTROL_RECORD_TYPE.ORG_ID Yogeshwar (MOAC) */
761:
762: IF ((p_qte_header_rec.org_id IS NULL) OR (p_qte_header_rec.org_id = FND_API.G_MISS_NUM)) THEN
763: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
764: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_OU');
765: FND_MSG_PUB.ADD;
766: END IF;
767:
761:
762: IF ((p_qte_header_rec.org_id IS NULL) OR (p_qte_header_rec.org_id = FND_API.G_MISS_NUM)) THEN
763: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
764: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_OU');
765: FND_MSG_PUB.ADD;
766: END IF;
767:
768: RAISE FND_API.G_EXC_ERROR;
769: END IF;
823:
824: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
825: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
828: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
829: FND_MESSAGE.Set_Token('ROW', 'ASO_PRICING_INT AFTER PRICING CALL', TRUE);
830: FND_MSG_PUB.ADD;
831: END IF;
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
828: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
829: FND_MESSAGE.Set_Token('ROW', 'ASO_PRICING_INT AFTER PRICING CALL', TRUE);
830: FND_MSG_PUB.ADD;
831: END IF;
832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
833: ELSE
834: l_message_text := lx_req_line_rec.status_code || ': '||lx_req_line_rec.status_text;
831: END IF;
832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
833: ELSE
834: l_message_text := lx_req_line_rec.status_code || ': '||lx_req_line_rec.status_text;
835: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
836: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');
837: FND_MESSAGE.Set_Token('MSG_TXT', substr(l_message_text,1,255), FALSE);
838: FND_MSG_PUB.ADD;
839: END IF;
834: l_message_text := lx_req_line_rec.status_code || ': '||lx_req_line_rec.status_text;
835: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
836: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');
837: FND_MESSAGE.Set_Token('MSG_TXT', substr(l_message_text,1,255), FALSE);
838: FND_MSG_PUB.ADD;
839: END IF;
840: END IF;
841: lv_return_status := x_return_status;
842: END IF;
869: THEN
870: COMMIT WORK;
871: END IF;
872:
873: FND_MSG_PUB.Count_And_Get
874: ( p_count => x_msg_count,
875: p_data => x_msg_data
876: );
877: IF lv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
883: WHEN FND_API.G_EXC_ERROR THEN
884: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
885: P_API_NAME => L_API_NAME
886: ,P_PKG_NAME => G_PKG_NAME
887: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
888: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
889: ,P_SQLCODE => SQLCODE
890: ,P_SQLERRM => SQLERRM
891: ,X_MSG_COUNT => X_MSG_COUNT
895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
897: P_API_NAME => L_API_NAME
898: ,P_PKG_NAME => G_PKG_NAME
899: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
900: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
901: ,P_SQLCODE => SQLCODE
902: ,P_SQLERRM => SQLERRM
903: ,X_MSG_COUNT => X_MSG_COUNT
980: THEN
981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
982: aso_debug_pub.add('ASO_PRICING_INT:Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
983: END IF;
984: FND_MSG_PUB.initialize;
985: END IF;
986:
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
988:
1136: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1137: aso_debug_pub.add('ASO_PRICING_INT:End of Pricing Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1138: END IF;
1139:
1140: FND_MSG_PUB.Count_And_Get
1141: ( p_encoded => 'F',
1142: p_count => x_msg_count,
1143: p_data => x_msg_data
1144: );
1143: p_data => x_msg_data
1144: );
1145:
1146: for l in 1 .. x_msg_count loop
1147: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
1148: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1149: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_data, 1, 'Y');
1150: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_count, 1, 'Y');
1151: END IF;
1158: END IF;
1159: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1160: P_API_NAME => L_API_NAME
1161: ,P_PKG_NAME => G_PKG_NAME
1162: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1163: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1164: ,P_SQLCODE => SQLCODE
1165: ,P_SQLERRM => SQLERRM
1166: ,X_MSG_COUNT => X_MSG_COUNT
1170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1171: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1172: P_API_NAME => L_API_NAME
1173: ,P_PKG_NAME => G_PKG_NAME
1174: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1175: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1176: ,P_SQLCODE => SQLCODE
1177: ,P_SQLERRM => SQLERRM
1178: ,X_MSG_COUNT => X_MSG_COUNT
1255:
1256: -- Initialize message list if p_init_msg_list is set to TRUE.
1257: IF FND_API.to_Boolean( p_init_msg_list )
1258: THEN
1259: FND_MSG_PUB.initialize;
1260: END IF;
1261:
1262: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1263:
1368: WHEN FND_API.G_EXC_ERROR THEN
1369: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1370: P_API_NAME => L_API_NAME
1371: ,P_PKG_NAME => G_PKG_NAME
1372: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1373: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1374: ,P_SQLCODE => SQLCODE
1375: ,P_SQLERRM => SQLERRM
1376: ,X_MSG_COUNT => X_MSG_COUNT
1380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1381: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1382: P_API_NAME => L_API_NAME
1383: ,P_PKG_NAME => G_PKG_NAME
1384: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1385: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1386: ,P_SQLCODE => SQLCODE
1387: ,P_SQLERRM => SQLERRM
1388: ,X_MSG_COUNT => X_MSG_COUNT
1482:
1483: -- Initialize message list if p_init_msg_list is set to TRUE.
1484: IF FND_API.to_Boolean( p_init_msg_list )
1485: THEN
1486: FND_MSG_PUB.initialize;
1487: END IF;
1488:
1489: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1490: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Order with hdr Id', 1, 'Y');
1530: THEN
1531: COMMIT WORK;
1532: END IF;
1533:
1534: FND_MSG_PUB.Count_And_Get
1535: ( p_count => x_msg_count,
1536: p_data => x_msg_data
1537: );
1538:
1540: WHEN FND_API.G_EXC_ERROR THEN
1541: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1542: P_API_NAME => L_API_NAME
1543: ,P_PKG_NAME => G_PKG_NAME
1544: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1545: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1546: ,P_SQLCODE => SQLCODE
1547: ,P_SQLERRM => SQLERRM
1548: ,X_MSG_COUNT => X_MSG_COUNT
1552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1553: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1554: P_API_NAME => L_API_NAME
1555: ,P_PKG_NAME => G_PKG_NAME
1556: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1557: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
1558: ,P_SQLCODE => SQLCODE
1559: ,P_SQLERRM => SQLERRM
1560: ,X_MSG_COUNT => X_MSG_COUNT