194: --If Instance ID is NULL, QPR API will fail so DONT call.
195: IF l_instance_id is NULL THEN
196: FND_MESSAGE.SET_NAME('ONT','OE_PROFILE_INCORRECT');
197: FND_MESSAGE.SET_TOKEN('PROFILE_NAME', 'QPR_CURRENT_INSTANCE');
198: OE_MSG_PUB.ADD;
199: x_return_status :='E';
200: x_is_deal_compliant := 'N';
201: ELSE
202:
313: --If Instance ID is NULL, QPR API will fail so DONT call.
314: IF l_instance_id is NULL THEN
315: FND_MESSAGE.SET_NAME('ONT','OE_PROFILE_INCORRECT');
316: FND_MESSAGE.SET_TOKEN('PROFILE_NAME', 'QPR_CURRENT_INSTANCE');
317: OE_MSG_PUB.ADD;
318: l_deal_return_stat :='E';
319: ELSE
320:
321: --Bug 6870738 starts
330: resultout := 'COMPLETE:N';
331: OE_STANDARD_WF.Save_Messages;
332: OE_STANDARD_WF.Clear_Msg_Context;
333: FND_MESSAGE.SET_NAME('ONT', 'OE_COMPLIANCE_ERROR_DEAL_EXIST');
334: OE_MSG_PUB.ADD;
335:
336: RETURN;
337: END IF;
338: --Bug 6870738 ends
363: OE_STANDARD_WF.Save_Messages;
364: OE_STANDARD_WF.Clear_Msg_Context;
365: FND_MESSAGE.SET_NAME('ONT', 'OE_ORDER_COMPLIANCE_FAILED');
366: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', L_ORDER_NUMBER);
367: OE_MSG_PUB.ADD;
368: IF (l_rules_desc is NOT NULL) THEN
369: FND_MESSAGE.SET_NAME('ONT', 'OE_WF_EXCEPTION');
370: FND_MESSAGE.SET_TOKEN('EXCEPTION', 'Rules Violated are: ' || l_rules_desc);
371: OE_MSG_PUB.ADD;
367: OE_MSG_PUB.ADD;
368: IF (l_rules_desc is NOT NULL) THEN
369: FND_MESSAGE.SET_NAME('ONT', 'OE_WF_EXCEPTION');
370: FND_MESSAGE.SET_TOKEN('EXCEPTION', 'Rules Violated are: ' || l_rules_desc);
371: OE_MSG_PUB.ADD;
372: END IF;
373: return;
374: ELSE
375: UPDATE oe_order_headers_all SET
389: OE_STANDARD_WF.Save_Messages;
390: OE_STANDARD_WF.Clear_Msg_Context;
391: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_COMPLIANCE_PASSED');
392: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', L_ORDER_NUMBER);
393: OE_MSG_PUB.ADD;
394: return;
395: END IF;
396: END IF; -- End for 'RUN' mode
397:
502: END IF;
503: x_return_status := FND_API.G_RET_STS_SUCCESS;
504: -- Initialize message list.
505: IF FND_API.to_Boolean(p_init_msg_list) THEN
506: OE_MSG_PUB.initialize;
507: END IF;
508:
509: SELECT order_source_id, orig_sys_document_ref, change_sequence, source_document_type_id, source_document_id,
510: ORDER_NUMBER , quote_number, VERSION_NUMBER, ORDER_TYPE_ID , ORG_ID
514: WHERE HEADER_ID = p_header_id;
515:
516: L_ORDER_NUMBER := nvl(L_ORDER_NUMBER, L_QUOTE_NUMBER); --For Quote Order No is NULL
517:
518: OE_MSG_PUB.set_msg_context(
519: p_entity_code => 'HEADER'
520: ,p_entity_id => p_header_id
521: ,p_header_id => p_header_id
522: ,p_line_id => null
540: OPEN Compliance_errored;
541: FETCH Compliance_errored INTO l_Compliance_errored_flag;
542: IF (Compliance_errored%FOUND) THEN
543: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_COMP_CHECK_ERRORED');
544: OE_MSG_PUB.ADD;
545: RAISE FND_API.G_EXC_ERROR;
546: ELSE
547: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_COMP_NOT_ELIGIBLE');
548: OE_MSG_PUB.ADD;
544: OE_MSG_PUB.ADD;
545: RAISE FND_API.G_EXC_ERROR;
546: ELSE
547: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_COMP_NOT_ELIGIBLE');
548: OE_MSG_PUB.ADD;
549: RAISE FND_API.G_EXC_ERROR;
550: END IF;
551: CLOSE Compliance_errored;
552: END IF;
580: IF l_debug_level > 0 THEN
581: oe_debug_pub.add( 'AFTER CALLING WF_ENGINE' ) ;
582: END IF;
583:
584: OE_MSG_PUB.set_msg_context(
585: p_entity_code => 'HEADER'
586: ,p_entity_id => p_header_id
587: ,p_header_id => p_header_id
588: ,p_line_id => null
594: ,p_source_document_id => l_source_document_id
595: ,p_source_document_line_id => null );
596:
597:
598: OE_MSG_PUB.Count_And_Get
599: ( p_count => x_msg_count
600: , p_data => x_msg_data
601: );
602:
599: ( p_count => x_msg_count
600: , p_data => x_msg_data
601: );
602:
603: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
604:
605: IF l_debug_level > 0 THEN
606: oe_debug_pub.add( 'EXIT OE_DEALS_UTIL.COMPLETE_Compliance_eligible' , 1 ) ;
607: END IF;
617: END IF;
618: IF (Compliance_errored%ISOPEN) THEN
619: CLOSE Compliance_errored;
620: END IF;
621: OE_MSG_PUB.Count_And_Get
622: ( p_count => x_msg_count
623: , p_data => x_msg_data
624: );
625: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
621: OE_MSG_PUB.Count_And_Get
622: ( p_count => x_msg_count
623: , p_data => x_msg_data
624: );
625: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
626:
627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
628: IF l_debug_level > 0 THEN
629: oe_debug_pub.add( 'EXC UNEXPECTED ERROR OE_DEALS_UTIL.COMPLETE_Compliance_eligible' , 1 ) ;
634: END IF;
635: IF (Compliance_errored%ISOPEN) THEN
636: CLOSE Compliance_errored;
637: END IF;
638: OE_MSG_PUB.Count_And_Get
639: ( p_count => x_msg_count
640: , p_data => x_msg_data
641: );
642: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
638: OE_MSG_PUB.Count_And_Get
639: ( p_count => x_msg_count
640: , p_data => x_msg_data
641: );
642: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
643:
644: WHEN OTHERS THEN
645: IF l_debug_level > 0 THEN
646: oe_debug_pub.add( 'OTHER ERROR OE_DEALS_UTIL.COMPLETE_Compliance_eligible' , 1 ) ;
651: END IF;
652: IF (Compliance_errored%ISOPEN) THEN
653: CLOSE Compliance_errored;
654: END IF;
655: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
656: THEN
657: OE_MSG_PUB.Add_Exc_Msg
658: ( 'OE_DEALS_UTIL'
659: , 'Complete_Compliance_Eligible'
653: CLOSE Compliance_errored;
654: END IF;
655: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
656: THEN
657: OE_MSG_PUB.Add_Exc_Msg
658: ( 'OE_DEALS_UTIL'
659: , 'Complete_Compliance_Eligible'
660: );
661: END IF;
658: ( 'OE_DEALS_UTIL'
659: , 'Complete_Compliance_Eligible'
660: );
661: END IF;
662: OE_MSG_PUB.Count_And_Get
663: ( p_count => x_msg_count
664: , p_data => x_msg_data
665: );
666: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
662: OE_MSG_PUB.Count_And_Get
663: ( p_count => x_msg_count
664: , p_data => x_msg_data
665: );
666: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
667: END Complete_Compliance_Eligible;
668:
669:
670: --DEALS CALLING
936:
937: IF l_list_line_id is NULL THEN
938: FND_MESSAGE.SET_NAME('ONT','OE_PROFILE_INCORRECT');
939: FND_MESSAGE.SET_TOKEN('PROFILE_NAME', 'QPR_DEAL_DIFF_MODIFIER');
940: OE_MSG_PUB.ADD;
941: IF l_debug_level > 0 THEN
942: oe_debug_pub.add( 'Profile is NULL ' , 1 ) ;
943: END IF;
944: RAISE FND_API.G_EXC_ERROR;
1089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1091:
1092: FOR k IN 1 .. x_msg_count LOOP
1093: x_msg_data := oe_msg_pub.get( p_msg_index => k,p_encoded => 'F');
1094: END LOOP;
1095:
1096: WHEN OTHERS THEN
1097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1211: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence, l_source_document_type_id, l_source_document_id
1212: FROM OE_ORDER_HEADERS_ALL
1213: WHERE HEADER_ID = p_header_id;
1214:
1215: OE_MSG_PUB.set_msg_context(
1216: p_entity_code => 'HEADER'
1217: ,p_entity_id => p_header_id
1218: ,p_header_id => p_header_id
1219: ,p_line_id => null
1292: END IF;
1293:
1294:
1295: FND_MESSAGE.SET_NAME('ONT','OE_ORDER_DEAL_UPDATED');
1296: OE_MSG_PUB.ADD;
1297: END IF;
1298: ELSE
1299: FND_MESSAGE.SET_NAME('ONT','OE_DEAL_UPDATE_FAILED');
1300: OE_MSG_PUB.ADD;
1296: OE_MSG_PUB.ADD;
1297: END IF;
1298: ELSE
1299: FND_MESSAGE.SET_NAME('ONT','OE_DEAL_UPDATE_FAILED');
1300: OE_MSG_PUB.ADD;
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303: OE_MSG_PUB.set_msg_context(
1304: p_entity_code => 'HEADER'
1299: FND_MESSAGE.SET_NAME('ONT','OE_DEAL_UPDATE_FAILED');
1300: OE_MSG_PUB.ADD;
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303: OE_MSG_PUB.set_msg_context(
1304: p_entity_code => 'HEADER'
1305: ,p_entity_id => p_header_id
1306: ,p_header_id => p_header_id
1307: ,p_line_id => null
1311: ,p_change_sequence => l_change_sequence
1312: ,p_source_document_type_id => l_source_document_type_id
1313: ,p_source_document_id => l_source_document_id
1314: ,p_source_document_line_id => null );
1315: OE_MSG_PUB.Count_And_Get
1316: ( p_count => x_msg_count
1317: , p_data => x_msg_data
1318: );
1319:
1316: ( p_count => x_msg_count
1317: , p_data => x_msg_data
1318: );
1319:
1320: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1321: EXCEPTION
1322: WHEN OTHERS THEN
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1320: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1321: EXCEPTION
1322: WHEN OTHERS THEN
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1325: OE_MSG_PUB.Add_Exc_Msg
1326: ( 'OE_DEALS_UTIL'
1327: , 'Update_Order_with_Deal'
1328: );
1321: EXCEPTION
1322: WHEN OTHERS THEN
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1325: OE_MSG_PUB.Add_Exc_Msg
1326: ( 'OE_DEALS_UTIL'
1327: , 'Update_Order_with_Deal'
1328: );
1329: END IF;
1326: ( 'OE_DEALS_UTIL'
1327: , 'Update_Order_with_Deal'
1328: );
1329: END IF;
1330: OE_MSG_PUB.Count_And_Get
1331: ( p_count => x_msg_count
1332: , p_data => x_msg_data
1333: );
1334: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1330: OE_MSG_PUB.Count_And_Get
1331: ( p_count => x_msg_count
1332: , p_data => x_msg_data
1333: );
1334: OE_MSG_PUB.Reset_Msg_Context(p_entity_code => 'HEADER');
1335: END Update_Order_with_Deal;
1336:
1337: END OE_DEALS_UTIL;