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,
1760:
1761: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1762:
1763: -- Standard call to check for call compatibility.
1764: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1765: p_api_version,
1766: l_api_name,
1767: G_PKG_NAME)
1768: THEN
1765: p_api_version,
1766: l_api_name,
1767: G_PKG_NAME)
1768: THEN
1769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1770: END IF;
1771:
1772:
1773: -- Initialize message list if p_init_msg_list is set to TRUE.
1770: END IF;
1771:
1772:
1773: -- Initialize message list if p_init_msg_list is set to TRUE.
1774: IF FND_API.to_Boolean( p_init_msg_list )
1775: THEN
1776: FND_MSG_PUB.initialize;
1777: END IF;
1778:
1779: -- Debug Message
1780: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1781:
1782: -- Initialize API return status to SUCCESS
1783: x_return_status := FND_API.G_RET_STS_SUCCESS;
1784:
1785: --
1786: -- API body
1787: --
1796: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
1797: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
1798: FND_MSG_PUB.ADD;
1799: END IF;
1800: RAISE FND_API.G_EXC_ERROR;
1801: END IF;
1802: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1803: aso_debug_pub.add('Create_Order: Begin ', 1, 'N');
1804: END IF;
1803: aso_debug_pub.add('Create_Order: Begin ', 1, 'N');
1804: END IF;
1805: -- change the org to whatever is stored in the org id column
1806: IF p_qte_rec.org_id is not NULL
1807: AND p_qte_rec.org_id <> FND_API.G_MISS_NUM THEN
1808:
1809: /* fnd_client_info.set_org_context(p_qte_rec.org_id); */ --Commented Code Yogeshwar (MOAC)
1810: MO_GLOBAL.set_policy_context('S', p_qte_rec.org_id) ; --New Code Yogeshwar (MOAC)
1811:
1820: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1821: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
1822: FND_MSG_PUB.ADD;
1823: END IF;
1824: RAISE FND_API.G_EXC_ERROR;
1825: ELSIF p_header_payment_tbl.count = 1 THEN
1826: IF p_header_payment_tbl(1).payment_option = 'SPLIT' THEN
1827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1828: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
1827: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1828: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
1829: FND_MSG_PUB.ADD;
1830: END IF;
1831: RAISE FND_API.G_EXC_ERROR;
1832: END IF;
1833:
1834: END IF;-- p_hd_payment
1835:
1842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1843: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_PAYMENTS');
1844: FND_MSG_PUB.ADD;
1845: END IF;
1846: RAISE FND_API.G_EXC_ERROR;
1847: END IF;
1848: END LOOP;
1849: END IF;
1850: END IF;
1908:
1909: -- set the control record flags
1910: -- book order
1911:
1912: IF p_control_rec.book_flag = FND_API.G_TRUE THEN
1913: l_request_tbl(i).entity_code := OE_GLOBALS.G_ENTITY_HEADER;
1914: l_request_tbl(i).request_type := OE_GLOBALS.G_BOOK_ORDER;
1915: i := i + 1;
1916: END IF; -- booking
1918: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1919: aso_debug_pub.add('Create_Order: l_CC_Auth_Prof: '||l_CC_Auth_Prof, 1, 'N');
1920: END IF;
1921:
1922: IF l_CC_Auth_Prof = 'Y' AND P_Control_Rec.CC_By_Fax <> FND_API.G_TRUE THEN
1923:
1924: FOR x IN 1..l_Header_Payment_tbl.count LOOP
1925: IF l_Header_Payment_tbl(x).Payment_Type_Code = 'CREDIT_CARD' AND l_Header_Payment_tbl(x).trxn_extension_id IS NOT NULL THEN
1926: --l_cc_auth_failure_prof := NVL(FND_PROFILE.Value('ASO_CC_AUTH_FAILURE'), 'REJECT');
2011: OE_STANDARD_WF.SAVE_MESSAGES_OFF;
2012:
2013: OE_Order_GRP.Process_Order
2014: ( p_api_version_number => 1.0
2015: , p_init_msg_list => FND_API.G_TRUE
2016: , p_return_values => l_return_values
2017: , p_commit => FND_API.G_FALSE
2018: , x_return_status => x_return_status
2019: , x_msg_count => x_msg_count
2013: OE_Order_GRP.Process_Order
2014: ( p_api_version_number => 1.0
2015: , p_init_msg_list => FND_API.G_TRUE
2016: , p_return_values => l_return_values
2017: , p_commit => FND_API.G_FALSE
2018: , x_return_status => x_return_status
2019: , x_msg_count => x_msg_count
2020: , x_msg_data => x_msg_data
2021: , p_header_rec => l_header_rec
2081: aso_debug_pub.add('Create_Order: After Proc_Order: x_return_status: '||x_return_status, 1, 'N');
2082: aso_utility_pvt.print_login_info();
2083: END IF;
2084:
2085: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2086: -- retrieve_oe_messages;
2087: IF x_msg_count > 0 THEN
2088: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2089: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2092: END IF;
2093:
2094: retrieve_oe_messages;
2095:
2096: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2097: raise FND_API.G_EXC_ERROR;
2098: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2099: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2100: END IF;
2093:
2094: retrieve_oe_messages;
2095:
2096: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2097: raise FND_API.G_EXC_ERROR;
2098: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2099: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2100: END IF;
2101:
2094: retrieve_oe_messages;
2095:
2096: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2097: raise FND_API.G_EXC_ERROR;
2098: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2099: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2100: END IF;
2101:
2102: END IF;
2095:
2096: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2097: raise FND_API.G_EXC_ERROR;
2098: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2099: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2100: END IF;
2101:
2102: END IF;
2103:
2101:
2102: END IF;
2103:
2104:
2105: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2106: p_control_rec.book_flag = FND_API.G_TRUE AND
2107: l_action_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS)
2108: THEN
2109: if x_msg_count > 0 then
2102: END IF;
2103:
2104:
2105: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2106: p_control_rec.book_flag = FND_API.G_TRUE AND
2107: l_action_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS)
2108: THEN
2109: if x_msg_count > 0 then
2110: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2103:
2104:
2105: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2106: p_control_rec.book_flag = FND_API.G_TRUE AND
2107: l_action_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS)
2108: THEN
2109: if x_msg_count > 0 then
2110: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2111: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2112: FND_MSG_PUB.ADD;
2113: END IF;
2114: end if;
2115: retrieve_oe_messages;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2117: RAISE FND_API.G_EXC_ERROR;
2118: END IF;
2119:
2120: retrieve_oe_messages;
2113: END IF;
2114: end if;
2115: retrieve_oe_messages;
2116: x_return_status := FND_API.G_RET_STS_ERROR;
2117: RAISE FND_API.G_EXC_ERROR;
2118: END IF;
2119:
2120: retrieve_oe_messages;
2121:
2139: -- to OM can be avoided.
2140: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2141: aso_debug_pub.add('Create_Order: Before fulfilment: ', 1, 'N');
2142: END IF;
2143: IF p_control_rec.INTERFACE_FFM_FLAG = FND_API.G_TRUE
2144: AND x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2145: p_ffm_request_rec.party_id := p_qte_rec.party_id;
2146: p_ffm_request_rec.user_id := FND_GLOBAL.USER_ID;
2147: p_ffm_request_rec.server_id := p_control_rec.server_id;
2140: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2141: aso_debug_pub.add('Create_Order: Before fulfilment: ', 1, 'N');
2142: END IF;
2143: IF p_control_rec.INTERFACE_FFM_FLAG = FND_API.G_TRUE
2144: AND x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2145: p_ffm_request_rec.party_id := p_qte_rec.party_id;
2146: p_ffm_request_rec.user_id := FND_GLOBAL.USER_ID;
2147: p_ffm_request_rec.server_id := p_control_rec.server_id;
2148:
2159:
2160: ASO_FFM_INT.Submit_FFM_Request(
2161: P_Api_Version_Number => 1.0 ,
2162: p_Init_Msg_List => p_init_msg_list ,
2163: p_Commit => FND_API.G_FALSE ,
2164: p_validation_Level => FND_API.G_VALID_LEVEL_FULL,
2165: p_ffm_request_rec => p_ffm_request_rec,
2166: p_ffm_content_tbl => l_ffm_content_tbl,
2167: p_bind_tbl => l_ffm_bind_tbl ,
2160: ASO_FFM_INT.Submit_FFM_Request(
2161: P_Api_Version_Number => 1.0 ,
2162: p_Init_Msg_List => p_init_msg_list ,
2163: p_Commit => FND_API.G_FALSE ,
2164: p_validation_Level => FND_API.G_VALID_LEVEL_FULL,
2165: p_ffm_request_rec => p_ffm_request_rec,
2166: p_ffm_content_tbl => l_ffm_content_tbl,
2167: p_bind_tbl => l_ffm_bind_tbl ,
2168: X_Request_ID => x_request_id ,
2172:
2173: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2174: aso_debug_pub.add('Create_Order: After submit_ffm_request x_return_status: '||x_return_status, 1, 'N');
2175: END IF;
2176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2177: --retrieve_oe_messages;
2178: RAISE FND_API.G_EXC_ERROR;
2179: END IF;
2180: END IF;
2174: aso_debug_pub.add('Create_Order: After submit_ffm_request x_return_status: '||x_return_status, 1, 'N');
2175: END IF;
2176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2177: --retrieve_oe_messages;
2178: RAISE FND_API.G_EXC_ERROR;
2179: END IF;
2180: END IF;
2181:
2182: END IF;
2185: --
2186: -- End of API body
2187: --
2188: -- Standard check for p_commit
2189: IF FND_API.to_Boolean( p_commit )
2190: THEN
2191: COMMIT WORK;
2192: END IF;
2193:
2199: p_data => x_msg_data
2200: );
2201:
2202: EXCEPTION
2203: WHEN FND_API.G_EXC_ERROR THEN
2204: null;
2205: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2206: P_API_NAME => L_API_NAME
2207: ,P_PKG_NAME => G_PKG_NAME
2210: ,X_MSG_COUNT => X_MSG_COUNT
2211: ,X_MSG_DATA => X_MSG_DATA
2212: ,X_RETURN_STATUS => X_RETURN_STATUS);
2213:
2214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2215: null;
2216: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2217: P_API_NAME => L_API_NAME
2218: ,P_PKG_NAME => G_PKG_NAME
2237:
2238:
2239: PROCEDURE Update_order(
2240: P_Api_Version IN NUMBER,
2241: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2242: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2243: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
2244: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
2245: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
2238:
2239: PROCEDURE Update_order(
2240: P_Api_Version IN NUMBER,
2241: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2242: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2243: P_Qte_Rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type
2244: := ASO_QUOTE_PUB.G_MISS_QTE_HEADER_REC,
2245: P_Header_Payment_Tbl IN ASO_QUOTE_PUB.Payment_Tbl_Type
2246: := ASO_QUOTE_PUB.G_MISS_Payment_TBL,
2394:
2395: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
2396:
2397: -- Standard call to check for call compatibility.
2398: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2399: p_api_version ,
2400: l_api_name,
2401: G_PKG_NAME)
2402: THEN
2399: p_api_version ,
2400: l_api_name,
2401: G_PKG_NAME)
2402: THEN
2403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2404: END IF;
2405:
2406:
2407: -- Initialize message list if p_init_msg_list is set to TRUE.
2404: END IF;
2405:
2406:
2407: -- Initialize message list if p_init_msg_list is set to TRUE.
2408: IF FND_API.to_Boolean( p_init_msg_list )
2409: THEN
2410: FND_MSG_PUB.initialize;
2411: END IF;
2412:
2413: -- Debug Message
2414: ASO_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
2415:
2416: -- Initialize API return status to SUCCESS
2417: x_return_status := FND_API.G_RET_STS_SUCCESS;
2418:
2419: --
2420: -- API body
2421: --
2430: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
2431: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
2432: FND_MSG_PUB.ADD;
2433: END IF;
2434: RAISE FND_API.G_EXC_ERROR;
2435: END IF;
2436:
2437:
2438: -- change the org to whatever is stored in the org id column
2436:
2437:
2438: -- change the org to whatever is stored in the org id column
2439: IF p_qte_rec.org_id is not NULL
2440: AND p_qte_rec.org_id <> FND_API.G_MISS_NUM THEN
2441:
2442: /* fnd_client_info.set_org_context(p_qte_rec.org_id); */ --Commented Code Yogeshwar (MOAC)
2443: MO_GLOBAL.set_policy_context ('S', p_qte_rec.org_id) ; --New Code Yogeshwar (MOAC)
2444:
2444:
2445: END IF;
2446:
2447: IF p_qte_rec.order_id is null OR
2448: p_qte_rec.order_id = FND_API.G_MISS_NUM THEN
2449:
2450: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2451: THEN
2452: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
2452: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
2453: FND_MESSAGE.Set_Token('COLUMN', 'ORDER_ID', FALSE);
2454: FND_MSG_PUB.ADD;
2455: END IF;
2456: raise FND_API.G_EXC_ERROR;
2457: END IF;
2458:
2459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2460: aso_debug_pub.add('l_split_pay_prof: '||l_split_pay_prof,1,'N');
2465: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2466: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
2467: FND_MSG_PUB.ADD;
2468: END IF;
2469: RAISE FND_API.G_EXC_ERROR;
2470: ELSIF p_header_payment_tbl.count = 1 THEN
2471: IF p_header_payment_tbl(1).payment_option = 'SPLIT' THEN
2472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2473: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
2472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2473: FND_MESSAGE.Set_Name('ASO', 'ASO_API_SPLIT_PAYMENT');
2474: FND_MSG_PUB.ADD;
2475: END IF;
2476: RAISE FND_API.G_EXC_ERROR;
2477: END IF;
2478:
2479: END IF;-- p_hd_payment
2480:
2486: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2487: FND_MESSAGE.Set_Name('ASO', 'ASO_API_TOO_MANY_PAYMENTS');
2488: FND_MSG_PUB.ADD;
2489: END IF;
2490: RAISE FND_API.G_EXC_ERROR;
2491: END IF;
2492: END LOOP;
2493: END IF;
2494: END IF;
2550:
2551: -- set the control record flags
2552: -- book order
2553:
2554: IF p_control_rec.book_flag = FND_API.G_TRUE THEN
2555: l_request_tbl(i).entity_code := OE_GLOBALS.G_ENTITY_HEADER;
2556: l_request_tbl(i).request_type := OE_GLOBALS.G_BOOK_ORDER;
2557: i := i + 1;
2558: END IF; -- booking
2560: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2561: aso_debug_pub.add('Create_Order: l_CC_Auth_Prof: '||l_CC_Auth_Prof, 1, 'N');
2562: END IF;
2563:
2564: IF l_CC_Auth_Prof = 'Y' AND P_Control_Rec.CC_By_Fax <> FND_API.G_TRUE THEN
2565:
2566: FOR x IN 1..l_Header_Payment_tbl.count LOOP
2567: IF l_Header_Payment_tbl(x).Payment_Type_Code = 'CREDIT_CARD' AND l_Header_Payment_tbl(x).trxn_extension_id IS NOT NULL THEN
2568: --l_cc_auth_failure_prof := NVL(FND_PROFILE.Value('ASO_CC_AUTH_FAILURE'), 'REJECT');
2624:
2625: -- cancel code - this should be changed
2626: FOR i in 1..l_line_tbl.count LOOP
2627: IF l_line_tbl(i).ordered_quantity is not NULL
2628: OR l_line_tbl(i).ordered_quantity <> FND_API.G_MISS_NUM THEN
2629:
2630: OPEN C_cancel_reason;
2631: FETCH C_cancel_reason into l_line_tbl(i).change_reason;
2632: CLOSE C_cancel_reason;
2643: OE_STANDARD_WF.SAVE_MESSAGES_OFF;
2644:
2645: OE_Order_GRP.Process_Order
2646: ( p_api_version_number => l_api_version_number
2647: , p_init_msg_list => FND_API.G_TRUE
2648: , p_return_values => l_return_values
2649: , p_commit => p_commit
2650: , x_return_status => x_return_status
2651: , x_msg_count => x_msg_count
2720: aso_debug_pub.add('Update_Order: After Process_Order: x_return_status'||x_return_status,1,'Y');
2721: aso_utility_pvt.print_login_info();
2722: END IF;
2723:
2724: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2725: IF x_msg_count > 0 THEN
2726: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2727: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2728: FND_MSG_PUB.ADD;
2730: END IF;
2731:
2732: retrieve_oe_messages;
2733:
2734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2735: raise FND_API.G_EXC_ERROR;
2736: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2737: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2731:
2732: retrieve_oe_messages;
2733:
2734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2735: raise FND_API.G_EXC_ERROR;
2736: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2737: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2739:
2732: retrieve_oe_messages;
2733:
2734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2735: raise FND_API.G_EXC_ERROR;
2736: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2737: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2739:
2740: END IF;
2733:
2734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2735: raise FND_API.G_EXC_ERROR;
2736: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2737: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2739:
2740: END IF;
2741:
2738: END IF;
2739:
2740: END IF;
2741:
2742: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2743: p_control_rec.book_flag = FND_API.G_TRUE AND
2744: l_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2745: if x_msg_count > 0 then
2746: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2739:
2740: END IF;
2741:
2742: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2743: p_control_rec.book_flag = FND_API.G_TRUE AND
2744: l_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2745: if x_msg_count > 0 then
2746: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2747: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2740: END IF;
2741:
2742: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND
2743: p_control_rec.book_flag = FND_API.G_TRUE AND
2744: l_request_tbl(1).return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2745: if x_msg_count > 0 then
2746: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2747: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR_MSG');
2748: FND_MSG_PUB.ADD;
2748: FND_MSG_PUB.ADD;
2749: END IF;
2750: end if;
2751: retrieve_oe_messages;
2752: x_return_status := FND_API.G_RET_STS_ERROR;
2753: RAISE FND_API.G_EXC_ERROR;
2754: END IF;
2755:
2756: retrieve_oe_messages;
2749: END IF;
2750: end if;
2751: retrieve_oe_messages;
2752: x_return_status := FND_API.G_RET_STS_ERROR;
2753: RAISE FND_API.G_EXC_ERROR;
2754: END IF;
2755:
2756: retrieve_oe_messages;
2757:
2773: -- End of API body
2774: --
2775:
2776: -- Standard check for p_commit
2777: IF FND_API.to_Boolean( p_commit )
2778: THEN
2779: COMMIT WORK;
2780: END IF;
2781:
2787: p_data => x_msg_data
2788: );
2789:
2790: EXCEPTION
2791: WHEN FND_API.G_EXC_ERROR THEN
2792: null;
2793: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2794: P_API_NAME => L_API_NAME
2795: ,P_PKG_NAME => G_PKG_NAME
2798: ,X_MSG_COUNT => X_MSG_COUNT
2799: ,X_MSG_DATA => X_MSG_DATA
2800: ,X_RETURN_STATUS => X_RETURN_STATUS);
2801:
2802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2803: null;
2804: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
2805: P_API_NAME => L_API_NAME
2806: ,P_PKG_NAME => G_PKG_NAME
3121: begin
3122:
3123: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
3124:
3125: x_return_status := FND_API.G_RET_STS_SUCCESS;
3126:
3127: OPEN relationship_cur;
3128: FETCH relationship_cur INTO l_party_type;
3129: IF (relationship_cur%NOTFOUND) THEN
3127: OPEN relationship_cur;
3128: FETCH relationship_cur INTO l_party_type;
3129: IF (relationship_cur%NOTFOUND) THEN
3130: l_party_type := NULL;
3131: x_return_status := FND_API.G_RET_STS_ERROR;
3132: END IF;
3133: CLOSE relationship_cur;
3134:
3135: IF l_party_type = 'PARTY_RELATIONSHIP' THEN
3136: OPEN site_use_cur;
3137: FETCH site_use_cur INTO l_site_use_id;
3138: IF (site_use_cur%NOTFOUND) THEN
3139: l_site_use_id := NULL;
3140: x_return_status := FND_API.G_RET_STS_ERROR;
3141: END IF;
3142: CLOSE site_use_cur;
3143: END IF;
3144:
3188: begin
3189:
3190: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
3191:
3192: x_return_status := FND_API.G_RET_STS_SUCCESS;
3193:
3194: OPEN relationship_cur;
3195: FETCH relationship_cur INTO l_party_type;
3196: IF (relationship_cur%NOTFOUND) THEN
3194: OPEN relationship_cur;
3195: FETCH relationship_cur INTO l_party_type;
3196: IF (relationship_cur%NOTFOUND) THEN
3197: l_party_type := NULL;
3198: x_return_status := FND_API.G_RET_STS_ERROR;
3199: END IF;
3200: CLOSE relationship_cur;
3201:
3202: IF l_party_type = 'PARTY_RELATIONSHIP' THEN
3203: OPEN org_contact;
3204: FETCH org_contact INTO l_org_contact_id;
3205: IF (org_contact%NOTFOUND) THEN
3206: l_org_contact_id := NULL;
3207: x_return_status := FND_API.G_RET_STS_ERROR;
3208: END IF;
3209: CLOSE org_contact;
3210:
3211: OPEN cust_role;
3211: OPEN cust_role;
3212: FETCH cust_role INTO l_cust_account_role_id;
3213: IF (cust_role%NOTFOUND) THEN
3214: l_cust_account_role_id := NULL;
3215: x_return_status := FND_API.G_RET_STS_ERROR;
3216: END IF;
3217: CLOSE cust_role;
3218:
3219: END IF;
3254:
3255: LOOP
3256: FETCH C_get_cust_id_from_party_id INTO lx_cust_id;
3257: IF C_get_cust_id_from_party_id%ROWCOUNT > 1 THEN
3258: x_return_status := FND_API.G_RET_STS_ERROR;
3259: EXIT;
3260: END IF;
3261: EXIT WHEN C_get_cust_id_from_party_id%NOTFOUND;
3262: END LOOP;
3262: END LOOP;
3263:
3264: CLOSE C_get_cust_id_from_party_id;
3265:
3266: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3267: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
3268: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3269: FND_MSG_PUB.ADD;
3270: raise FND_API.G_EXC_ERROR;
3266: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3267: FND_MESSAGE.Set_Name('ASO', 'ASO_MULTIPLE_CUST_ACCOUNT');
3268: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3269: FND_MSG_PUB.ADD;
3270: raise FND_API.G_EXC_ERROR;
3271: END IF;
3272:
3273: IF lx_cust_id IS NULL OR lx_cust_id = FND_API.G_MISS_NUM THEN
3274: IF p_qte_rec.party_id is not NULL
3269: FND_MSG_PUB.ADD;
3270: raise FND_API.G_EXC_ERROR;
3271: END IF;
3272:
3273: IF lx_cust_id IS NULL OR lx_cust_id = FND_API.G_MISS_NUM THEN
3274: IF p_qte_rec.party_id is not NULL
3275: AND p_qte_rec.party_id <> FND_API.G_MISS_NUM THEN
3276: ASO_PARTY_INT.Create_Customer_Account(
3277: p_api_version => 1.0
3271: END IF;
3272:
3273: IF lx_cust_id IS NULL OR lx_cust_id = FND_API.G_MISS_NUM THEN
3274: IF p_qte_rec.party_id is not NULL
3275: AND p_qte_rec.party_id <> FND_API.G_MISS_NUM THEN
3276: ASO_PARTY_INT.Create_Customer_Account(
3277: p_api_version => 1.0
3278: ,P_Qte_REC => p_qte_rec
3279: ,x_return_status => l_return_status
3281: ,x_msg_data => l_msg_data
3282: ,x_acct_id => lx_cust_account_id
3283: );
3284:
3285: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
3286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3287: THEN
3288: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3289: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3288: FND_MESSAGE.Set_Name('ASO', 'ASO_CUST_ACCOUNT');
3289: FND_MESSAGE.Set_Token('ID', to_char( p_qte_rec.party_id), FALSE);
3290: FND_MSG_PUB.ADD;
3291: END IF;
3292: raise FND_API.G_EXC_ERROR;
3293: END IF;
3294:
3295: p_Cust_Acct_Id := lx_cust_account_id;
3296: END IF;