192:
193: l_instance_id := FND_PROFILE.VALUE('QPR_CURRENT_INSTANCE') ;
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';
193: l_instance_id := FND_PROFILE.VALUE('QPR_CURRENT_INSTANCE') ;
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
311:
312: l_instance_id := FND_PROFILE.VALUE('QPR_CURRENT_INSTANCE') ;
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
312: l_instance_id := FND_PROFILE.VALUE('QPR_CURRENT_INSTANCE') ;
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:
329: THEN
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;
361: IF nvl(l_deal_return_stat,'S') = 'E' OR nvl(l_is_deal_compliant,'N') = 'N' THEN
362: resultout := 'COMPLETE:N';
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');
362: resultout := 'COMPLETE:N';
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);
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;
372: END IF;
373: return;
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;
372: END IF;
373: return;
374: ELSE
387:
388: resultout := 'COMPLETE:Y';
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;
388: resultout := 'COMPLETE:Y';
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
539: END IF;
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');
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;
549: RAISE FND_API.G_EXC_ERROR;
550: END IF;
551: CLOSE Compliance_errored;
827: --Bug 7039864
828: --Deal management requires message text and not the code
829: IF x_message_name IS NOT NULL
830: THEN
831: FND_MESSAGE.SET_NAME('ONT',x_message_name);
832: x_message_name := FND_MESSAGE.GET;
833: END IF;
834: oe_debug_pub.add('x_message_name: '||x_message_name);
835:
828: --Deal management requires message text and not the code
829: IF x_message_name IS NOT NULL
830: THEN
831: FND_MESSAGE.SET_NAME('ONT',x_message_name);
832: x_message_name := FND_MESSAGE.GET;
833: END IF;
834: oe_debug_pub.add('x_message_name: '||x_message_name);
835:
836: EXCEPTION
838: x_return_status := FND_API.G_RET_STS_ERROR;
839: --Bug 7039864
840: IF x_message_name IS NOT NULL
841: THEN
842: FND_MESSAGE.SET_NAME('ONT',x_message_name);
843: x_message_name := FND_MESSAGE.GET;
844: END IF;
845: oe_debug_pub.add('x_message_name: '||x_message_name);
846: END;
839: --Bug 7039864
840: IF x_message_name IS NOT NULL
841: THEN
842: FND_MESSAGE.SET_NAME('ONT',x_message_name);
843: x_message_name := FND_MESSAGE.GET;
844: END IF;
845: oe_debug_pub.add('x_message_name: '||x_message_name);
846: END;
847:
934: l_db_link := '@' || l_db_link;
935: END IF;
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 ) ;
935: END IF;
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;
1291: oe_debug_pub.add( 'After WF Engine call - ' || l_wf_count , 1 ) ;
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');
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;
1301: RAISE FND_API.G_EXC_ERROR;
1302: END IF;
1303: OE_MSG_PUB.set_msg_context(