9028:
9029: -- Initialize message list if p_init_msg_list is set to TRUE.
9030: IF FND_API.to_Boolean( p_init_msg_list )
9031: THEN
9032: FND_MSG_PUB.initialize;
9033: END IF;
9034:
9035: x_return_status := FND_API.G_RET_STS_SUCCESS;
9036: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
9210: IF FND_API.to_Boolean( p_commit ) THEN
9211: COMMIT WORK;
9212: END IF;
9213:
9214: FND_MSG_PUB.Count_And_Get
9215: ( p_count => x_msg_count,
9216: p_data => x_msg_data
9217: );
9218: EXCEPTION
9219: WHEN FND_API.G_EXC_ERROR THEN
9220: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
9221: P_API_NAME => L_API_NAME
9222: ,P_PKG_NAME => G_PKG_NAME
9223: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
9224: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
9225: ,P_SQLCODE => SQLCODE
9226: ,P_SQLERRM => SQLERRM
9227: ,X_MSG_COUNT => X_MSG_COUNT
9231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9232: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
9233: P_API_NAME => L_API_NAME
9234: ,P_PKG_NAME => G_PKG_NAME
9235: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
9236: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
9237: ,P_SQLCODE => SQLCODE
9238: ,P_SQLERRM => SQLERRM
9239: ,X_MSG_COUNT => X_MSG_COUNT
9359:
9360: -- Initialize message list if p_init_msg_list is set to TRUE.
9361: IF FND_API.to_Boolean( p_init_msg_list )
9362: THEN
9363: FND_MSG_PUB.initialize;
9364: END IF;
9365:
9366: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
9367: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Start Copy_Price_To_Quote ',1,'Y');
9396: END IF;
9397: x_return_status := FND_API.G_RET_STS_ERROR;
9398: l_message_text := C_status_code_rec.pricing_status_code || ': '||C_status_code_rec.pricing_status_text;
9399:
9400: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9401: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');
9402: FND_MESSAGE.Set_Token('MSG_TXT', substr(l_message_text, 1,255), FALSE);
9403: FND_MSG_PUB.ADD;
9404: END IF;
9399:
9400: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9401: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');
9402: FND_MESSAGE.Set_Token('MSG_TXT', substr(l_message_text, 1,255), FALSE);
9403: FND_MSG_PUB.ADD;
9404: END IF;
9405: RAISE FND_API.G_EXC_ERROR;
9406: END LOOP;
9407:
9415: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Inside GSA error',1,'Y');
9416: END IF;
9417: x_return_status := FND_API.G_RET_STS_ERROR;
9418: FND_MESSAGE.Set_Name('ASO', 'GSA Violation in Pricing');
9419: FND_MSG_PUB.ADD;
9420: RAISE FND_API.G_EXC_ERROR;
9421: END LOOP;
9422: ELSE
9423: FOR C_status_code_GSA_rec in C_status_code_GSA LOOP
9424: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
9425: aso_debug_pub.add('ASO_PRICING_CORE_PVT:inside GSA Warning',1,'Y');
9426: END IF;
9427: FND_MESSAGE.Set_Name('ASO', 'GSA Violation in Pricing');
9428: FND_MSG_PUB.ADD;
9429: END LOOP;
9430: END IF;
9431:
9432: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
10421: IF FND_API.to_Boolean( p_commit ) THEN
10422: COMMIT WORK;
10423: END IF;
10424:
10425: FND_MSG_PUB.Count_And_Get
10426: ( p_encoded => 'F',
10427: p_count => x_msg_count,
10428: p_data => x_msg_data
10429: );
10428: p_data => x_msg_data
10429: );
10430:
10431: for l in 1 ..x_msg_count loop
10432: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
10433: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
10434: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Messge count and get '||x_msg_data, 1, 'Y');
10435: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Messge count and get '||x_msg_count, 1, 'Y');
10436: END IF;
10536:
10537: -- Initialize message list if p_init_msg_list is set to TRUE.
10538: IF FND_API.to_Boolean( p_init_msg_list )
10539: THEN
10540: FND_MSG_PUB.initialize;
10541: END IF;
10542:
10543: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
10544: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Start Process_Charges ',1,'Y');
10622: IF FND_API.to_Boolean( p_commit ) THEN
10623: COMMIT WORK;
10624: END IF;
10625:
10626: FND_MSG_PUB.Count_And_Get
10627: ( p_encoded => 'F',
10628: p_count => x_msg_count,
10629: p_data => x_msg_data
10630: );
10628: p_count => x_msg_count,
10629: p_data => x_msg_data
10630: );
10631:
10632: FND_MSG_PUB.Count_And_Get
10633: ( p_encoded => 'F',
10634: p_count => x_msg_count,
10635: p_data => x_msg_data
10636: );
10635: p_data => x_msg_data
10636: );
10637:
10638: for l in 1 ..x_msg_count loop
10639: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
10640: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
10641: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Messge count and get '||x_msg_data, 1, 'Y');
10642: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Messge count and get '||x_msg_count, 1, 'Y');
10643: END IF;
10921:
10922: -- Initialize message list if p_init_msg_list is set to TRUE.
10923: IF FND_API.to_Boolean( p_init_msg_list )
10924: THEN
10925: FND_MSG_PUB.initialize;
10926: END IF;
10927:
10928: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
10929: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Start Process_PRG ',1,'Y');
11218: l_qte_header_rec.last_update_date := l_last_update_date;
11219:
11220: exception when no_data_found then
11221: x_return_status := FND_API.G_RET_STS_ERROR;
11222: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11223: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_COLUMN');
11224: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
11225: FND_MSG_PUB.ADD;
11226: END IF;
11221: x_return_status := FND_API.G_RET_STS_ERROR;
11222: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11223: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_COLUMN');
11224: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
11225: FND_MSG_PUB.ADD;
11226: END IF;
11227: raise FND_API.G_EXC_ERROR;
11228: end;
11229:
11534: ,x_return_status_Text =>l_return_status_Text
11535: );
11536: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11537: x_return_status := l_return_status;
11538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11539: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');
11540: FND_MESSAGE.Set_Token('MSG_TXT', substr(l_return_status_text, 1,255), FALSE);
11541: FND_MSG_PUB.ADD;
11542: END IF;
11537: x_return_status := l_return_status;
11538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
11539: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');
11540: FND_MESSAGE.Set_Token('MSG_TXT', substr(l_return_status_text, 1,255), FALSE);
11541: FND_MSG_PUB.ADD;
11542: END IF;
11543: RAISE FND_API.G_EXC_ERROR;
11544: END IF;
11545:
11613: IF FND_API.to_Boolean( p_commit ) THEN
11614: COMMIT WORK;
11615: END IF;
11616:
11617: FND_MSG_PUB.Count_And_Get
11618: ( p_encoded => 'F',
11619: p_count => x_msg_count,
11620: p_data => x_msg_data
11621: );
11619: p_count => x_msg_count,
11620: p_data => x_msg_data
11621: );
11622:
11623: FND_MSG_PUB.Count_And_Get
11624: ( p_encoded => 'F',
11625: p_count => x_msg_count,
11626: p_data => x_msg_data
11627: );
11626: p_data => x_msg_data
11627: );
11628:
11629: for l in 1 ..x_msg_count loop
11630: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
11631: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
11632: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Messge count and get '||x_msg_data, 1, 'Y');
11633: aso_debug_pub.add('ASO_PRICING_CORE_PVT:Messge count and get '||x_msg_count, 1, 'Y');
11634: END IF;