67: END Salesrep_Id;
68:
69:
70: FUNCTION Service_Index (
71: quote_line_id NUMBER := FND_API.G_MISS_NUM,
72: quote_line_index NUMBER := FND_API.G_MISS_NUM,
73: P_Line_Rltship_Tbl ASO_QUOTE_PUB.Line_Rltship_Tbl_Type ,
74: p_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type
75: ) RETURN NUMBER
68:
69:
70: FUNCTION Service_Index (
71: quote_line_id NUMBER := FND_API.G_MISS_NUM,
72: quote_line_index NUMBER := FND_API.G_MISS_NUM,
73: P_Line_Rltship_Tbl ASO_QUOTE_PUB.Line_Rltship_Tbl_Type ,
74: p_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type
75: ) RETURN NUMBER
76: IS
73: P_Line_Rltship_Tbl ASO_QUOTE_PUB.Line_Rltship_Tbl_Type ,
74: p_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type
75: ) RETURN NUMBER
76: IS
77: l_parent_id NUMBER := FND_API.G_MISS_NUM;
78: l_parent_index NUMBER := FND_API.G_MISS_NUM;
79: l_shipment_id NUMBER := FND_API.G_MISS_NUM;
80: l_shipment_index NUMBER := FND_API.G_MISS_NUM;
81: BEGIN
74: p_shipment_tbl ASO_QUOTE_PUB.Shipment_Tbl_Type
75: ) RETURN NUMBER
76: IS
77: l_parent_id NUMBER := FND_API.G_MISS_NUM;
78: l_parent_index NUMBER := FND_API.G_MISS_NUM;
79: l_shipment_id NUMBER := FND_API.G_MISS_NUM;
80: l_shipment_index NUMBER := FND_API.G_MISS_NUM;
81: BEGIN
82:
75: ) RETURN NUMBER
76: IS
77: l_parent_id NUMBER := FND_API.G_MISS_NUM;
78: l_parent_index NUMBER := FND_API.G_MISS_NUM;
79: l_shipment_id NUMBER := FND_API.G_MISS_NUM;
80: l_shipment_index NUMBER := FND_API.G_MISS_NUM;
81: BEGIN
82:
83: -- ids is a fall back. quotes should be using index
76: IS
77: l_parent_id NUMBER := FND_API.G_MISS_NUM;
78: l_parent_index NUMBER := FND_API.G_MISS_NUM;
79: l_shipment_id NUMBER := FND_API.G_MISS_NUM;
80: l_shipment_index NUMBER := FND_API.G_MISS_NUM;
81: BEGIN
82:
83: -- ids is a fall back. quotes should be using index
84: -- figure OUT NOCOPY /* file.sql.39 change */ the parent to which this service has to be linked.
99: -- figure OUT NOCOPY /* file.sql.39 change */ the corresponding shipment line id/index
100: -- If the service is a delayed service then both parent_id and parent_index
101: -- will be g_miss values.
102:
103: IF l_parent_id <> FND_API.G_MISS_NUM
104: OR l_parent_index <> FND_API.G_MISS_NUM THEN
105:
106: FOR i in 1..p_shipment_tbl.count LOOP
107: IF p_shipment_tbl(i).quote_line_id = l_parent_id
100: -- If the service is a delayed service then both parent_id and parent_index
101: -- will be g_miss values.
102:
103: IF l_parent_id <> FND_API.G_MISS_NUM
104: OR l_parent_index <> FND_API.G_MISS_NUM THEN
105:
106: FOR i in 1..p_shipment_tbl.count LOOP
107: IF p_shipment_tbl(i).quote_line_id = l_parent_id
108: OR p_shipment_tbl(i).qte_line_index = l_parent_index THEN
118: -- index into the order line. however, this may not be the case in future.
119: -- then we will have to check the source code id to figure it out.
120:
121:
122: IF l_shipment_index <> FND_API.G_MISS_NUM THEN
123: return l_shipment_index;
124: END IF;
125:
126: END;
180: aso_debug_pub.add('before calling oe_msg_pub.get',1,'N');
181: END IF;
182: oe_msg_pub.get (
183: p_msg_index => k
184: ,p_encoded => FND_API.G_FALSE
185: ,p_data => l_msg_data
186: ,p_msg_index_out => l_msg_index);
187:
188: IF (upper(l_msg_data) <> 'ORDER HAS BEEN BOOKED.') THEN -- bug# 1935468
238:
239: IF aso_debug_pub.g_debug_flag = 'Y' THEN
240: aso_debug_pub.add('l_msg_orig_sys_line_ref'||l_msg_orig_sys_line_ref,1,'N');
241: END IF;
242: IF l_msg_orig_sys_line_ref IS NOT NULL AND l_msg_orig_sys_line_ref <> FND_API.G_MISS_CHAR THEN
243: l_msg_context := 'Error in Line: '||rtrim(l_msg_orig_sys_line_ref)||' :';
244: END IF;
245:
246: x_msg_data := l_msg_context||l_msg_data;
301: Open C_fulfillment(p_qte_line_tbl(i).inventory_item_id);
302: FETCH C_fulfillment into l_electronic_flag, l_content_id;
303: Close C_fulfillment;
304:
305: IF l_electronic_flag = FND_API.G_TRUE THEN
306: fulfil_index := fulfil_index + 1;
307: x_ffm_content_tbl(fulfil_index).content_id
308: := l_content_id;
309: x_ffm_content_tbl(fulfil_index).quantity
545:
546:
547: PROCEDURE Create_order(
548: P_Api_Version_Number IN NUMBER,
549: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
550: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
551: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
552: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
553: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
546:
547: PROCEDURE Create_order(
548: P_Api_Version_Number IN NUMBER,
549: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
550: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
551: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
552: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
553: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
554: := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
619:
620: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
621:
622: -- Standard call to check for call compatibility.
623: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
624: p_api_version_number,
625: l_api_name,
626: G_PKG_NAME)
627: THEN
624: p_api_version_number,
625: l_api_name,
626: G_PKG_NAME)
627: THEN
628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
629: END IF;
630:
631:
632: -- Initialize message list if p_init_msg_list is set to TRUE.
629: END IF;
630:
631:
632: -- Initialize message list if p_init_msg_list is set to TRUE.
633: IF FND_API.to_Boolean( p_init_msg_list )
634: THEN
635: FND_MSG_PUB.initialize;
636: END IF;
637:
638: -- Debug Message
639: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
640:
641: -- Initialize API return status to SUCCESS
642: x_return_status := FND_API.G_RET_STS_SUCCESS;
643:
644: --
645: -- API body
646: --
697: X_Return_Status => X_Return_Status,
698: X_Msg_Count => X_Msg_Count,
699: X_Msg_Data => X_Msg_Data
700: );
701: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: -- retrieve_oe_messages;
703: RAISE FND_API.G_EXC_ERROR;
704: END IF;
705:
699: X_Msg_Data => X_Msg_Data
700: );
701: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
702: -- retrieve_oe_messages;
703: RAISE FND_API.G_EXC_ERROR;
704: END IF;
705:
706:
707: -- End of API body
707: -- End of API body
708: --
709:
710: -- Standard check for p_commit
711: IF FND_API.to_Boolean( p_commit )
712: THEN
713: COMMIT WORK;
714: END IF;
715:
721: p_data => x_msg_data
722: );
723:
724: EXCEPTION
725: WHEN FND_API.G_EXC_ERROR THEN
726: null;
727: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
728: P_API_NAME => L_API_NAME
729: ,P_PKG_NAME => G_PKG_NAME
732: ,X_MSG_COUNT => X_MSG_COUNT
733: ,X_MSG_DATA => X_MSG_DATA
734: ,X_RETURN_STATUS => X_RETURN_STATUS);
735:
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: null;
738: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
739: P_API_NAME => L_API_NAME
740: ,P_PKG_NAME => G_PKG_NAME
758:
759:
760: PROCEDURE Update_order(
761: P_Api_Version_Number IN NUMBER,
762: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
763: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
764: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
765: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
766: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
759:
760: PROCEDURE Update_order(
761: P_Api_Version_Number IN NUMBER,
762: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
763: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
764: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
765: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
766: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
767: := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
828:
829: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
830:
831: -- Standard call to check for call compatibility.
832: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
833: p_api_version_number,
834: l_api_name,
835: G_PKG_NAME)
836: THEN
833: p_api_version_number,
834: l_api_name,
835: G_PKG_NAME)
836: THEN
837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
838: END IF;
839:
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
838: END IF;
839:
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list )
843: THEN
844: FND_MSG_PUB.initialize;
845: END IF;
846:
847: -- Debug Message
848: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
849:
850: -- Initialize API return status to SUCCESS
851: x_return_status := FND_API.G_RET_STS_SUCCESS;
852:
853: --
854: -- API body
855: --
909: X_Msg_Count => X_Msg_Count,
910: X_Msg_Data => X_Msg_Data
911: );
912:
913: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
914: -- retrieve_oe_messages;
915: RAISE FND_API.G_EXC_ERROR;
916: END IF;
917:
911: );
912:
913: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
914: -- retrieve_oe_messages;
915: RAISE FND_API.G_EXC_ERROR;
916: END IF;
917:
918: --
919: -- End of API body
919: -- End of API body
920: --
921:
922: -- Standard check for p_commit
923: IF FND_API.to_Boolean( p_commit )
924: THEN
925: COMMIT WORK;
926: END IF;
927:
933: p_data => x_msg_data
934: );
935:
936: EXCEPTION
937: WHEN FND_API.G_EXC_ERROR THEN
938: null;
939: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
940: P_API_NAME => L_API_NAME
941: ,P_PKG_NAME => G_PKG_NAME
944: ,X_MSG_COUNT => X_MSG_COUNT
945: ,X_MSG_DATA => X_MSG_DATA
946: ,X_RETURN_STATUS => X_RETURN_STATUS);
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949: null;
950: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
951: P_API_NAME => L_API_NAME
952: ,P_PKG_NAME => G_PKG_NAME
970:
971:
972: PROCEDURE Delete_order(
973: P_Api_Version_Number IN NUMBER,
974: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
975: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
976: P_Order_Header_id IN NUMBER,
977: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
978: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
971:
972: PROCEDURE Delete_order(
973: P_Api_Version_Number IN NUMBER,
974: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
975: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
976: P_Order_Header_id IN NUMBER,
977: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
978: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
979: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
988: -- Standard Start of API savepoint
989: SAVEPOINT Delete_Order_PVT;
990:
991: -- Standard call to check for call compatibility.
992: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
993: p_api_version_number,
994: l_api_name,
995: G_PKG_NAME)
996: THEN
993: p_api_version_number,
994: l_api_name,
995: G_PKG_NAME)
996: THEN
997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
998: END IF;
999:
1000:
1001: -- Initialize message list if p_init_msg_list is set to TRUE.
998: END IF;
999:
1000:
1001: -- Initialize message list if p_init_msg_list is set to TRUE.
1002: IF FND_API.to_Boolean( p_init_msg_list )
1003: THEN
1004: FND_MSG_PUB.initialize;
1005: END IF;
1006:
1007: -- Debug Message
1008: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1009:
1010: -- Initialize API return status to SUCCESS
1011: x_return_status := FND_API.G_RET_STS_SUCCESS;
1012:
1013: --
1014: -- API body
1015: --
1024: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1025: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1026: FND_MSG_PUB.ADD;
1027: END IF;
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030:
1031:
1032: OE_ORDER_PUB.Delete_Order
1037: , x_msg_data => x_msg_data
1038: );
1039:
1040:
1041: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1042: retrieve_oe_messages;
1043: RAISE FND_API.G_EXC_ERROR;
1044: END IF;
1045:
1039:
1040:
1041: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1042: retrieve_oe_messages;
1043: RAISE FND_API.G_EXC_ERROR;
1044: END IF;
1045:
1046:
1047: --
1048: -- End of API body
1049: --
1050:
1051: -- Standard check for p_commit
1052: IF FND_API.to_Boolean( p_commit )
1053: THEN
1054: COMMIT WORK;
1055: END IF;
1056:
1062: p_data => x_msg_data
1063: );
1064:
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: null;
1068: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1069: P_API_NAME => L_API_NAME
1070: ,P_PKG_NAME => G_PKG_NAME
1073: ,X_MSG_COUNT => X_MSG_COUNT
1074: ,X_MSG_DATA => X_MSG_DATA
1075: ,X_RETURN_STATUS => X_RETURN_STATUS);
1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: null;
1079: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1080: P_API_NAME => L_API_NAME
1081: ,P_PKG_NAME => G_PKG_NAME
1099:
1100:
1101: PROCEDURE BOOK_ORDER(
1102: P_Api_Version_Number IN NUMBER ,
1103: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1104: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1105: p_order_header_id IN NUMBER ,
1106: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1107: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1100:
1101: PROCEDURE BOOK_ORDER(
1102: P_Api_Version_Number IN NUMBER ,
1103: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1104: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1105: p_order_header_id IN NUMBER ,
1106: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1107: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1108: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1174: -- Standard Start of API savepoint
1175: SAVEPOINT Book_Order_PUB;
1176:
1177: -- Standard call to check for call compatibility.
1178: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1179: p_api_version_number,
1180: l_api_name,
1181: G_PKG_NAME)
1182: THEN
1179: p_api_version_number,
1180: l_api_name,
1181: G_PKG_NAME)
1182: THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: END IF;
1185:
1186:
1187: -- Initialize message list if p_init_msg_list is set to TRUE.
1184: END IF;
1185:
1186:
1187: -- Initialize message list if p_init_msg_list is set to TRUE.
1188: IF FND_API.to_Boolean( p_init_msg_list )
1189: THEN
1190: FND_MSG_PUB.initialize;
1191: END IF;
1192:
1193: -- Debug Message
1194: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1195:
1196: -- Initialize API return status to SUCCESS
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1198:
1199: --
1200: -- API body
1201: --
1210: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1211: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1212: FND_MSG_PUB.ADD;
1213: END IF;
1214: RAISE FND_API.G_EXC_ERROR;
1215: END IF;
1216: /*
1217: OE_ORDER_BOOK_UTIL.BOOK_ORDER
1218: (p_api_version_number => 1.0
1221: ,x_msg_count => x_msg_count
1222: ,x_msg_data => x_msg_data
1223: ) ;
1224:
1225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1226: retrieve_oe_messages;
1227: RAISE FND_API.G_EXC_ERROR;
1228: END IF;
1229:
1223: ) ;
1224:
1225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1226: retrieve_oe_messages;
1227: RAISE FND_API.G_EXC_ERROR;
1228: END IF;
1229:
1230: */
1231:
1245: OE_STANDARD_WF.SAVE_MESSAGES_OFF;
1246:
1247: OE_Order_GRP.Process_Order
1248: ( p_api_version_number => 1.0
1249: , p_init_msg_list => FND_API.G_TRUE
1250: , p_return_values => l_return_values
1251: , p_commit => FND_API.G_FALSE
1252: , x_return_status => x_return_status
1253: , x_msg_count => x_msg_count
1247: OE_Order_GRP.Process_Order
1248: ( p_api_version_number => 1.0
1249: , p_init_msg_list => FND_API.G_TRUE
1250: , p_return_values => l_return_values
1251: , p_commit => FND_API.G_FALSE
1252: , x_return_status => x_return_status
1253: , x_msg_count => x_msg_count
1254: , x_msg_data => x_msg_data
1255: , p_header_rec => l_header_rec
1281: -- hyang: 2692785
1282: l_header_rec := lx_header_rec;
1283:
1284: -- Check return status from the above procedure call
1285: IF x_return_status = FND_API.G_RET_STS_ERROR then
1286: raise FND_API.G_EXC_ERROR;
1287: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1288: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1282: l_header_rec := lx_header_rec;
1283:
1284: -- Check return status from the above procedure call
1285: IF x_return_status = FND_API.G_RET_STS_ERROR then
1286: raise FND_API.G_EXC_ERROR;
1287: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1288: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1290:
1283:
1284: -- Check return status from the above procedure call
1285: IF x_return_status = FND_API.G_RET_STS_ERROR then
1286: raise FND_API.G_EXC_ERROR;
1287: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1288: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1290:
1291: --
1284: -- Check return status from the above procedure call
1285: IF x_return_status = FND_API.G_RET_STS_ERROR then
1286: raise FND_API.G_EXC_ERROR;
1287: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1288: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1289: END IF;
1290:
1291: --
1292: -- End of API body.
1292: -- End of API body.
1293: --
1294:
1295: -- Standard check for p_commit
1296: IF FND_API.to_Boolean( p_commit )
1297: THEN
1298: COMMIT WORK;
1299: END IF;
1300:
1309: p_data => x_msg_data
1310: );
1311:
1312: EXCEPTION
1313: WHEN FND_API.G_EXC_ERROR THEN
1314: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1315: P_API_NAME => L_API_NAME
1316: ,P_PKG_NAME => G_PKG_NAME
1317: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1319: ,X_MSG_COUNT => X_MSG_COUNT
1320: ,X_MSG_DATA => X_MSG_DATA
1321: ,X_RETURN_STATUS => X_RETURN_STATUS);
1322:
1323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1324: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1325: P_API_NAME => L_API_NAME
1326: ,P_PKG_NAME => G_PKG_NAME
1327: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1346:
1347:
1348: PROCEDURE CANCEL_ORDER(
1349: P_Api_Version_Number IN NUMBER ,
1350: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1351: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1352: p_order_header_id IN NUMBER ,
1353: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1354: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1347:
1348: PROCEDURE CANCEL_ORDER(
1349: P_Api_Version_Number IN NUMBER ,
1350: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1351: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1352: p_order_header_id IN NUMBER ,
1353: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1354: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1355: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1426: -- Standard Start of API savepoint
1427: SAVEPOINT CANCEL_Order_PUB;
1428:
1429: -- Standard call to check for call compatibility.
1430: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1431: p_api_version_number,
1432: l_api_name,
1433: G_PKG_NAME)
1434: THEN
1431: p_api_version_number,
1432: l_api_name,
1433: G_PKG_NAME)
1434: THEN
1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END IF;
1437:
1438:
1439: -- Initialize message list if p_init_msg_list is set to TRUE.
1436: END IF;
1437:
1438:
1439: -- Initialize message list if p_init_msg_list is set to TRUE.
1440: IF FND_API.to_Boolean( p_init_msg_list )
1441: THEN
1442: FND_MSG_PUB.initialize;
1443: END IF;
1444:
1445: -- Debug Message
1446: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1447:
1448: -- Initialize API return status to SUCCESS
1449: x_return_status := FND_API.G_RET_STS_SUCCESS;
1450:
1451: --
1452: -- API body
1453: --
1462: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1463: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1464: FND_MSG_PUB.ADD;
1465: END IF;
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468:
1469:
1470: -- Initialize OM record types
1488: OE_STANDARD_WF.SAVE_MESSAGES_OFF;
1489:
1490: OE_Order_GRP.Process_Order
1491: ( p_api_version_number => 1.0
1492: , p_init_msg_list => FND_API.G_TRUE
1493: , p_return_values => l_return_values
1494: , p_commit => FND_API.G_FALSE
1495: , x_return_status => x_return_status
1496: , x_msg_count => x_msg_count
1490: OE_Order_GRP.Process_Order
1491: ( p_api_version_number => 1.0
1492: , p_init_msg_list => FND_API.G_TRUE
1493: , p_return_values => l_return_values
1494: , p_commit => FND_API.G_FALSE
1495: , x_return_status => x_return_status
1496: , x_msg_count => x_msg_count
1497: , x_msg_data => x_msg_data
1498: , p_header_rec => l_header_rec
1523: -- hyang: 2692785
1524: l_header_rec := lx_header_rec;
1525:
1526: -- Check return status from the above procedure call
1527: IF x_return_status = FND_API.G_RET_STS_ERROR then
1528: raise FND_API.G_EXC_ERROR;
1529: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1530: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1524: l_header_rec := lx_header_rec;
1525:
1526: -- Check return status from the above procedure call
1527: IF x_return_status = FND_API.G_RET_STS_ERROR then
1528: raise FND_API.G_EXC_ERROR;
1529: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1530: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1525:
1526: -- Check return status from the above procedure call
1527: IF x_return_status = FND_API.G_RET_STS_ERROR then
1528: raise FND_API.G_EXC_ERROR;
1529: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1530: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1533: --
1526: -- Check return status from the above procedure call
1527: IF x_return_status = FND_API.G_RET_STS_ERROR then
1528: raise FND_API.G_EXC_ERROR;
1529: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1530: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1533: --
1534: -- End of API body.
1534: -- End of API body.
1535: --
1536:
1537: -- Standard check for p_commit
1538: IF FND_API.to_Boolean( p_commit )
1539: THEN
1540: COMMIT WORK;
1541: END IF;
1542:
1551: p_data => x_msg_data
1552: );
1553:
1554: EXCEPTION
1555: WHEN FND_API.G_EXC_ERROR THEN
1556: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1557: P_API_NAME => L_API_NAME
1558: ,P_PKG_NAME => G_PKG_NAME
1559: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1561: ,X_MSG_COUNT => X_MSG_COUNT
1562: ,X_MSG_DATA => X_MSG_DATA
1563: ,X_RETURN_STATUS => X_RETURN_STATUS);
1564:
1565: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1566: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1567: P_API_NAME => L_API_NAME
1568: ,P_PKG_NAME => G_PKG_NAME
1569: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1591: -- ASO_QUOTE_PUB.
1592:
1593: PROCEDURE Create_order(
1594: P_Api_Version IN NUMBER,
1595: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1596: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1597: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
1598: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
1599: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
1592:
1593: PROCEDURE Create_order(
1594: P_Api_Version IN NUMBER,
1595: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1596: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1597: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
1598: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
1599: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
1600: := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
1789:
1790: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1791:
1792: -- Standard call to check for call compatibility.
1793: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1794: p_api_version,
1795: l_api_name,
1796: G_PKG_NAME)
1797: THEN
1794: p_api_version,
1795: l_api_name,
1796: G_PKG_NAME)
1797: THEN
1798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1799: END IF;
1800:
1801:
1802: -- Initialize message list if p_init_msg_list is set to TRUE.
1799: END IF;
1800:
1801:
1802: -- Initialize message list if p_init_msg_list is set to TRUE.
1803: IF FND_API.to_Boolean( p_init_msg_list )
1804: THEN
1805: FND_MSG_PUB.initialize;
1806: END IF;
1807:
1808: -- Debug Message
1809: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1810:
1811: -- Initialize API return status to SUCCESS
1812: x_return_status := FND_API.G_RET_STS_SUCCESS;
1813:
1814: --
1815: -- API body
1816: --
1825: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1826: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1827: FND_MSG_PUB.ADD;
1828: END IF;
1829: RAISE FND_API.G_EXC_ERROR;
1830: END IF;
1831: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1832: aso_debug_pub.add('Create_Order: Begin ', 1, 'N');
1833: END IF;
1832: aso_debug_pub.add('Create_Order: Begin ', 1, 'N');
1833: END IF;
1834: -- change the org to whatever is stored in the org id column
1835: IF p_qte_rec.org_id is not NULL
1836: AND p_qte_rec.org_id <> FND_API.G_MISS_NUM THEN
1837:
1838: /* fnd_client_info.set_org_context(p_qte_rec.org_id); */ --Commented Code Yogeshwar (MOAC)
1839: MO_GLOBAL.set_policy_context('S', p_qte_rec.org_id) ; --New Code Yogeshwar (MOAC)
1840:
1849: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1850: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
1851: FND_MSG_PUB.ADD;
1852: END IF;
1853: RAISE FND_API.G_EXC_ERROR;
1854: ELSIF p_header_payment_tbl.count = 1 THEN
1855: IF p_header_payment_tbl(1).payment_option = 'SPLIT' THEN
1856: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1857: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
1856: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1857: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
1858: FND_MSG_PUB.ADD;
1859: END IF;
1860: RAISE FND_API.G_EXC_ERROR;
1861: END IF;
1862:
1863: END IF;-- p_hd_payment
1864:
1871: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1872: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_PAYMENTS');
1873: FND_MSG_PUB.ADD;
1874: END IF;
1875: RAISE FND_API.G_EXC_ERROR;
1876: END IF;
1877: END LOOP;
1878: END IF;
1879: END IF;
1937:
1938: -- set the control record flags
1939: -- book order
1940:
1941: IF p_control_rec.book_flag = FND_API.G_TRUE THEN
1942: l_request_tbl(i).entity_code := OE_GLOBALS.G_ENTITY_HEADER;
1943: l_request_tbl(i).request_type := OE_GLOBALS.G_BOOK_ORDER;
1944: i := i + 1;
1945: END IF; -- booking
1947: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1948: aso_debug_pub.add('Create_Order: l_CC_Auth_Prof: '||l_CC_Auth_Prof, 1, 'N');
1949: END IF;
1950:
1951: IF l_CC_Auth_Prof = 'Y' AND P_Control_Rec.CC_By_Fax <> FND_API.G_TRUE THEN
1952:
1953: FOR x IN 1..l_Header_Payment_tbl.count LOOP
1954: IF l_Header_Payment_tbl(x).Payment_Type_Code = 'CREDIT_CARD' AND l_Header_Payment_tbl(x).trxn_extension_id IS NOT NULL THEN
1955: --l_cc_auth_failure_prof := NVL(FND_PROFILE.Value('ASO_CC_AUTH_FAILURE'), 'REJECT');
2059: IF SQL%NOTFOUND THEN
2060: aso_debug_pub.add('Create_OrderSQL%NOTFOUND ASO_API_QUOTE_ORDER_PROGRESS ');
2061: FND_MESSAGE.Set_Name('ASO', 'ASO_API_QUOTE_ORDER_PROGRESS');
2062: FND_MSG_PUB.ADD;
2063: RAISE FND_API.G_EXC_ERROR;
2064: End if;
2065: End If;
2066:
2067: aso_debug_pub.add('before process_order L_QUOTE_HEADER_ID ' || L_QUOTE_HEADER_ID);
2075: WHEN OTHERS THEN
2076: aso_debug_pub.add('In others ASO_API_QUOTE_ORDER_PROGRESS ');
2077: FND_MESSAGE.SET_NAME('ASO', 'ASO_API_QUOTE_ORDER_PROGRESS');
2078: FND_MSG_PUB.ADD;
2079: RAISE FND_API.G_EXC_ERROR;
2080: END;
2081: End If; */
2082: --End Fix for Bug bug 12775283
2083:
2153: If FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) Then
2154: FND_MESSAGE.SET_NAME('ASO', 'ASO_API_QUOTE_ORDER_PROGRESS');
2155: FND_MSG_PUB.ADD;
2156: END If;
2157: RAISE FND_API.G_EXC_ERROR;
2158: END;
2159:
2160: End If;
2161:
2166: /*** End : Code change done for Bug 14358079 ***/
2167:
2168: OE_Order_GRP.Process_Order
2169: ( p_api_version_number => 1.0
2170: , p_init_msg_list => FND_API.G_TRUE
2171: , p_return_values => l_return_values
2172: , p_commit => FND_API.G_FALSE
2173: , x_return_status => x_return_status
2174: , x_msg_count => x_msg_count
2168: OE_Order_GRP.Process_Order
2169: ( p_api_version_number => 1.0
2170: , p_init_msg_list => FND_API.G_TRUE
2171: , p_return_values => l_return_values
2172: , p_commit => FND_API.G_FALSE
2173: , x_return_status => x_return_status
2174: , x_msg_count => x_msg_count
2175: , x_msg_data => x_msg_data
2176: , p_header_rec => l_header_rec
2236: aso_debug_pub.add('Create_Order: After Proc_Order: x_return_status: '||x_return_status, 1, 'N');
2237: aso_utility_pvt.print_login_info();
2238: END IF;
2239:
2240: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2241: -- retrieve_oe_messages;
2242: IF x_msg_count > 0 THEN
2243: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2244: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2247: END IF;
2248:
2249: retrieve_oe_messages;
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2252: raise FND_API.G_EXC_ERROR;
2253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2248:
2249: retrieve_oe_messages;
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2252: raise FND_API.G_EXC_ERROR;
2253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2249: retrieve_oe_messages;
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2252: raise FND_API.G_EXC_ERROR;
2253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: END IF;
2250:
2251: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2252: raise FND_API.G_EXC_ERROR;
2253: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2254: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: END IF;
2258:
2256:
2257: END IF;
2258:
2259:
2260: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2261: p_control_rec.book_flag = FND_API.G_TRUE AND
2262: l_action_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS)
2263: THEN
2264: if x_msg_count > 0 then
2257: END IF;
2258:
2259:
2260: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2261: p_control_rec.book_flag = FND_API.G_TRUE AND
2262: l_action_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS)
2263: THEN
2264: if x_msg_count > 0 then
2265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2258:
2259:
2260: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2261: p_control_rec.book_flag = FND_API.G_TRUE AND
2262: l_action_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS)
2263: THEN
2264: if x_msg_count > 0 then
2265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2266: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2267: FND_MSG_PUB.ADD;
2268: END IF;
2269: end if;
2270: retrieve_oe_messages;
2271: x_return_status := FND_API.G_RET_STS_ERROR;
2272: RAISE FND_API.G_EXC_ERROR;
2273: END IF;
2274:
2275: retrieve_oe_messages;
2268: END IF;
2269: end if;
2270: retrieve_oe_messages;
2271: x_return_status := FND_API.G_RET_STS_ERROR;
2272: RAISE FND_API.G_EXC_ERROR;
2273: END IF;
2274:
2275: retrieve_oe_messages;
2276:
2294: -- to OM can be avoided.
2295: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2296: aso_debug_pub.add('Create_Order: Before fulfilment: ', 1, 'N');
2297: END IF;
2298: IF p_control_rec.INTERFACE_FFM_FLAG = FND_API.G_TRUE
2299: AND x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2300: p_ffm_request_rec.party_id := p_qte_rec.party_id;
2301: p_ffm_request_rec.user_id := FND_GLOBAL.USER_ID;
2302: p_ffm_request_rec.server_id := p_control_rec.server_id;
2295: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2296: aso_debug_pub.add('Create_Order: Before fulfilment: ', 1, 'N');
2297: END IF;
2298: IF p_control_rec.INTERFACE_FFM_FLAG = FND_API.G_TRUE
2299: AND x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2300: p_ffm_request_rec.party_id := p_qte_rec.party_id;
2301: p_ffm_request_rec.user_id := FND_GLOBAL.USER_ID;
2302: p_ffm_request_rec.server_id := p_control_rec.server_id;
2303:
2314:
2315: ASO_FFM_INT.Submit_FFM_Request(
2316: P_Api_Version_Number => 1.0 ,
2317: p_Init_Msg_List => p_init_msg_list ,
2318: p_Commit => FND_API.G_FALSE ,
2319: p_validation_Level => FND_API.G_VALID_LEVEL_FULL,
2320: p_ffm_request_rec => p_ffm_request_rec,
2321: p_ffm_content_tbl => l_ffm_content_tbl,
2322: p_bind_tbl => l_ffm_bind_tbl ,
2315: ASO_FFM_INT.Submit_FFM_Request(
2316: P_Api_Version_Number => 1.0 ,
2317: p_Init_Msg_List => p_init_msg_list ,
2318: p_Commit => FND_API.G_FALSE ,
2319: p_validation_Level => FND_API.G_VALID_LEVEL_FULL,
2320: p_ffm_request_rec => p_ffm_request_rec,
2321: p_ffm_content_tbl => l_ffm_content_tbl,
2322: p_bind_tbl => l_ffm_bind_tbl ,
2323: X_Request_ID => x_request_id ,
2327:
2328: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2329: aso_debug_pub.add('Create_Order: After submit_ffm_request x_return_status: '||x_return_status, 1, 'N');
2330: END IF;
2331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2332: --retrieve_oe_messages;
2333: RAISE FND_API.G_EXC_ERROR;
2334: END IF;
2335: END IF;
2329: aso_debug_pub.add('Create_Order: After submit_ffm_request x_return_status: '||x_return_status, 1, 'N');
2330: END IF;
2331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2332: --retrieve_oe_messages;
2333: RAISE FND_API.G_EXC_ERROR;
2334: END IF;
2335: END IF;
2336:
2337: END IF;
2340: --
2341: -- End of API body
2342: --
2343: -- Standard check for p_commit
2344: IF FND_API.to_Boolean( p_commit )
2345: THEN
2346: COMMIT WORK;
2347: END IF;
2348:
2354: p_data => x_msg_data
2355: );
2356:
2357: EXCEPTION
2358: WHEN FND_API.G_EXC_ERROR THEN
2359: null;
2360: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2361: P_API_NAME => L_API_NAME
2362: ,P_PKG_NAME => G_PKG_NAME
2365: ,X_MSG_COUNT => X_MSG_COUNT
2366: ,X_MSG_DATA => X_MSG_DATA
2367: ,X_RETURN_STATUS => X_RETURN_STATUS);
2368:
2369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2370: null;
2371: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2372: P_API_NAME => L_API_NAME
2373: ,P_PKG_NAME => G_PKG_NAME
2381: /*** Start : Code change done for Bug 14358079 ***/
2382: IF SQLCODE = -54 THEN
2383: FND_MESSAGE.SET_NAME('ASO', 'ASO_API_QUOTE_ORDER_PROGRESS');
2384: FND_MSG_PUB.ADD;
2385: RAISE FND_API.G_EXC_ERROR;
2386: -- X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
2387: END IF;
2388: /*** End : Code change done for Bug 14358079 ***/
2389:
2382: IF SQLCODE = -54 THEN
2383: FND_MESSAGE.SET_NAME('ASO', 'ASO_API_QUOTE_ORDER_PROGRESS');
2384: FND_MSG_PUB.ADD;
2385: RAISE FND_API.G_EXC_ERROR;
2386: -- X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
2387: END IF;
2388: /*** End : Code change done for Bug 14358079 ***/
2389:
2390: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2401:
2402:
2403: PROCEDURE Update_order(
2404: P_Api_Version IN NUMBER,
2405: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2406: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2407: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
2408: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
2409: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
2402:
2403: PROCEDURE Update_order(
2404: P_Api_Version IN NUMBER,
2405: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2406: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2407: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
2408: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
2409: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
2410: := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
2558:
2559: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
2560:
2561: -- Standard call to check for call compatibility.
2562: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2563: p_api_version ,
2564: l_api_name,
2565: G_PKG_NAME)
2566: THEN
2563: p_api_version ,
2564: l_api_name,
2565: G_PKG_NAME)
2566: THEN
2567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2568: END IF;
2569:
2570:
2571: -- Initialize message list if p_init_msg_list is set to TRUE.
2568: END IF;
2569:
2570:
2571: -- Initialize message list if p_init_msg_list is set to TRUE.
2572: IF FND_API.to_Boolean( p_init_msg_list )
2573: THEN
2574: FND_MSG_PUB.initialize;
2575: END IF;
2576:
2577: -- Debug Message
2578: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
2579:
2580: -- Initialize API return status to SUCCESS
2581: x_return_status := FND_API.G_RET_STS_SUCCESS;
2582:
2583: --
2584: -- API body
2585: --
2594: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
2595: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2596: FND_MSG_PUB.ADD;
2597: END IF;
2598: RAISE FND_API.G_EXC_ERROR;
2599: END IF;
2600:
2601:
2602: -- change the org to whatever is stored in the org id column
2600:
2601:
2602: -- change the org to whatever is stored in the org id column
2603: IF p_qte_rec.org_id is not NULL
2604: AND p_qte_rec.org_id <> FND_API.G_MISS_NUM THEN
2605:
2606: /* fnd_client_info.set_org_context(p_qte_rec.org_id); */ --Commented Code Yogeshwar (MOAC)
2607: MO_GLOBAL.set_policy_context ('S', p_qte_rec.org_id) ; --New Code Yogeshwar (MOAC)
2608:
2608:
2609: END IF;
2610:
2611: IF p_qte_rec.order_id is null OR
2612: p_qte_rec.order_id = FND_API.G_MISS_NUM THEN
2613:
2614: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2615: THEN
2616: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
2616: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
2617: FND_MESSAGE.Set_Token('COLUMN', 'ORDER_ID', FALSE);
2618: FND_MSG_PUB.ADD;
2619: END IF;
2620: raise FND_API.G_EXC_ERROR;
2621: END IF;
2622:
2623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2624: aso_debug_pub.add('l_split_pay_prof: '||l_split_pay_prof,1,'N');
2629: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2630: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
2631: FND_MSG_PUB.ADD;
2632: END IF;
2633: RAISE FND_API.G_EXC_ERROR;
2634: ELSIF p_header_payment_tbl.count = 1 THEN
2635: IF p_header_payment_tbl(1).payment_option = 'SPLIT' THEN
2636: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2637: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
2636: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2637: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
2638: FND_MSG_PUB.ADD;
2639: END IF;
2640: RAISE FND_API.G_EXC_ERROR;
2641: END IF;
2642:
2643: END IF;-- p_hd_payment
2644:
2650: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2651: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_PAYMENTS');
2652: FND_MSG_PUB.ADD;
2653: END IF;
2654: RAISE FND_API.G_EXC_ERROR;
2655: END IF;
2656: END LOOP;
2657: END IF;
2658: END IF;
2716:
2717: -- set the control record flags
2718: -- book order
2719:
2720: IF p_control_rec.book_flag = FND_API.G_TRUE THEN
2721: l_request_tbl(i).entity_code := OE_GLOBALS.G_ENTITY_HEADER;
2722: l_request_tbl(i).request_type := OE_GLOBALS.G_BOOK_ORDER;
2723: i := i + 1;
2724: END IF; -- booking
2726: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2727: aso_debug_pub.add('Create_Order: l_CC_Auth_Prof: '||l_CC_Auth_Prof, 1, 'N');
2728: END IF;
2729:
2730: IF l_CC_Auth_Prof = 'Y' AND P_Control_Rec.CC_By_Fax <> FND_API.G_TRUE THEN
2731:
2732: FOR x IN 1..l_Header_Payment_tbl.count LOOP
2733: IF l_Header_Payment_tbl(x).Payment_Type_Code = 'CREDIT_CARD' AND l_Header_Payment_tbl(x).trxn_extension_id IS NOT NULL THEN
2734: --l_cc_auth_failure_prof := NVL(FND_PROFILE.Value('ASO_CC_AUTH_FAILURE'), 'REJECT');
2790:
2791: -- cancel code - this should be changed
2792: FOR i in 1..l_line_tbl.count LOOP
2793: IF l_line_tbl(i).ordered_quantity is not NULL
2794: OR l_line_tbl(i).ordered_quantity <> FND_API.G_MISS_NUM THEN
2795:
2796: OPEN C_cancel_reason;
2797: FETCH C_cancel_reason into l_line_tbl(i).change_reason;
2798: CLOSE C_cancel_reason;
2809: OE_STANDARD_WF.SAVE_MESSAGES_OFF;
2810:
2811: OE_Order_GRP.Process_Order
2812: ( p_api_version_number => l_api_version_number
2813: , p_init_msg_list => FND_API.G_TRUE
2814: , p_return_values => l_return_values
2815: , p_commit => p_commit
2816: , x_return_status => x_return_status
2817: , x_msg_count => x_msg_count
2886: aso_debug_pub.add('Update_Order: After Process_Order: x_return_status'||x_return_status,1,'Y');
2887: aso_utility_pvt.print_login_info();
2888: END IF;
2889:
2890: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2891: IF x_msg_count > 0 THEN
2892: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2893: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2894: FND_MSG_PUB.ADD;
2896: END IF;
2897:
2898: retrieve_oe_messages;
2899:
2900: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2901: raise FND_API.G_EXC_ERROR;
2902: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2903: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2904: END IF;
2897:
2898: retrieve_oe_messages;
2899:
2900: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2901: raise FND_API.G_EXC_ERROR;
2902: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2903: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2904: END IF;
2905:
2898: retrieve_oe_messages;
2899:
2900: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2901: raise FND_API.G_EXC_ERROR;
2902: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2903: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2904: END IF;
2905:
2906: END IF;
2899:
2900: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2901: raise FND_API.G_EXC_ERROR;
2902: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2903: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2904: END IF;
2905:
2906: END IF;
2907:
2904: END IF;
2905:
2906: END IF;
2907:
2908: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2909: p_control_rec.book_flag = FND_API.G_TRUE AND
2910: l_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2911: if x_msg_count > 0 then
2912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2905:
2906: END IF;
2907:
2908: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2909: p_control_rec.book_flag = FND_API.G_TRUE AND
2910: l_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2911: if x_msg_count > 0 then
2912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2913: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2906: END IF;
2907:
2908: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2909: p_control_rec.book_flag = FND_API.G_TRUE AND
2910: l_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2911: if x_msg_count > 0 then
2912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2913: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2914: FND_MSG_PUB.ADD;
2914: FND_MSG_PUB.ADD;
2915: END IF;
2916: end if;
2917: retrieve_oe_messages;
2918: x_return_status := FND_API.G_RET_STS_ERROR;
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2922: retrieve_oe_messages;
2915: END IF;
2916: end if;
2917: retrieve_oe_messages;
2918: x_return_status := FND_API.G_RET_STS_ERROR;
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2922: retrieve_oe_messages;
2923:
2939: -- End of API body
2940: --
2941:
2942: -- Standard check for p_commit
2943: IF FND_API.to_Boolean( p_commit )
2944: THEN
2945: COMMIT WORK;
2946: END IF;
2947:
2953: p_data => x_msg_data
2954: );
2955:
2956: EXCEPTION
2957: WHEN FND_API.G_EXC_ERROR THEN
2958: null;
2959: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2960: P_API_NAME => L_API_NAME
2961: ,P_PKG_NAME => G_PKG_NAME
2964: ,X_MSG_COUNT => X_MSG_COUNT
2965: ,X_MSG_DATA => X_MSG_DATA
2966: ,X_RETURN_STATUS => X_RETURN_STATUS);
2967:
2968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2969: null;
2970: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2971: P_API_NAME => L_API_NAME
2972: ,P_PKG_NAME => G_PKG_NAME
3287: begin
3288:
3289: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
3290:
3291: x_return_status := FND_API.G_RET_STS_SUCCESS;
3292:
3293: OPEN relationship_cur;
3294: FETCH relationship_cur INTO l_party_type;
3295: IF (relationship_cur%NOTFOUND) THEN
3293: OPEN relationship_cur;
3294: FETCH relationship_cur INTO l_party_type;
3295: IF (relationship_cur%NOTFOUND) THEN
3296: l_party_type := NULL;
3297: x_return_status := FND_API.G_RET_STS_ERROR;
3298: END IF;
3299: CLOSE relationship_cur;
3300:
3301: IF l_party_type = 'PARTY_RELATIONSHIP' THEN
3302: OPEN site_use_cur;
3303: FETCH site_use_cur INTO l_site_use_id;
3304: IF (site_use_cur%NOTFOUND) THEN
3305: l_site_use_id := NULL;
3306: x_return_status := FND_API.G_RET_STS_ERROR;
3307: END IF;
3308: CLOSE site_use_cur;
3309: END IF;
3310:
3354: begin
3355:
3356: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
3357:
3358: x_return_status := FND_API.G_RET_STS_SUCCESS;
3359:
3360: OPEN relationship_cur;
3361: FETCH relationship_cur INTO l_party_type;
3362: IF (relationship_cur%NOTFOUND) THEN
3360: OPEN relationship_cur;
3361: FETCH relationship_cur INTO l_party_type;
3362: IF (relationship_cur%NOTFOUND) THEN
3363: l_party_type := NULL;
3364: x_return_status := FND_API.G_RET_STS_ERROR;
3365: END IF;
3366: CLOSE relationship_cur;
3367:
3368: IF l_party_type = 'PARTY_RELATIONSHIP' THEN
3369: OPEN org_contact;
3370: FETCH org_contact INTO l_org_contact_id;
3371: IF (org_contact%NOTFOUND) THEN
3372: l_org_contact_id := NULL;
3373: x_return_status := FND_API.G_RET_STS_ERROR;
3374: END IF;
3375: CLOSE org_contact;
3376:
3377: OPEN cust_role;
3377: OPEN cust_role;
3378: FETCH cust_role INTO l_cust_account_role_id;
3379: IF (cust_role%NOTFOUND) THEN
3380: l_cust_account_role_id := NULL;
3381: x_return_status := FND_API.G_RET_STS_ERROR;
3382: END IF;
3383: CLOSE cust_role;
3384:
3385: END IF;
3420:
3421: LOOP
3422: FETCH C_get_cust_id_from_party_id INTO lx_cust_id;
3423: IF C_get_cust_id_from_party_id%ROWCOUNT > 1 THEN
3424: x_return_status := FND_API.G_RET_STS_ERROR;
3425: EXIT;
3426: END IF;
3427: EXIT WHEN C_get_cust_id_from_party_id%NOTFOUND;
3428: END LOOP;
3428: END LOOP;
3429:
3430: CLOSE C_get_cust_id_from_party_id;
3431:
3432: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3433: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
3434: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3435: FND_MSG_PUB.ADD;
3436: raise FND_API.G_EXC_ERROR;
3432: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3433: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
3434: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3435: FND_MSG_PUB.ADD;
3436: raise FND_API.G_EXC_ERROR;
3437: END IF;
3438:
3439: IF lx_cust_id IS NULL OR lx_cust_id = FND_API.G_MISS_NUM THEN
3440: IF p_qte_rec.party_id is not NULL
3435: FND_MSG_PUB.ADD;
3436: raise FND_API.G_EXC_ERROR;
3437: END IF;
3438:
3439: IF lx_cust_id IS NULL OR lx_cust_id = FND_API.G_MISS_NUM THEN
3440: IF p_qte_rec.party_id is not NULL
3441: AND p_qte_rec.party_id <> FND_API.G_MISS_NUM THEN
3442: ASO_PARTY_INT.Create_Customer_Account(
3443: p_api_version => 1.0
3437: END IF;
3438:
3439: IF lx_cust_id IS NULL OR lx_cust_id = FND_API.G_MISS_NUM THEN
3440: IF p_qte_rec.party_id is not NULL
3441: AND p_qte_rec.party_id <> FND_API.G_MISS_NUM THEN
3442: ASO_PARTY_INT.Create_Customer_Account(
3443: p_api_version => 1.0
3444: ,P_Qte_REC => p_qte_rec
3445: ,x_return_status => l_return_status
3447: ,x_msg_data => l_msg_data
3448: ,x_acct_id => lx_cust_account_id
3449: );
3450:
3451: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3452: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3453: THEN
3454: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3455: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3454: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3455: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3456: FND_MSG_PUB.ADD;
3457: END IF;
3458: raise FND_API.G_EXC_ERROR;
3459: END IF;
3460:
3461: p_Cust_Acct_Id := lx_cust_account_id;
3462: END IF;