39: ,p_source_document_line_id => null
40: ,p_order_source_id => null
41: ,p_source_document_type_id => null); */
42:
43: -- if x_return_status = FND_API.G_RET_STS_SUCCESS THEN
44:
45: if l_debug_level > 0 then
46: oe_debug_pub.ADD('Entering create_and_start_flow '||x_return_status,2 );
47: end if;
50: ELSE
51: l_item_type := 'OENH';
52: END IF;
53:
54: x_return_status := FND_API.G_RET_STS_SUCCESS;
55:
56: oe_order_wf_util.createstart_hdrinternal( P_ITEM_TYPE => l_item_type,
57: P_HEADER_ID => p_header_id,
58: P_TRANSACTION_NUMBER => p_blanket_number,
117: if l_debug_level > 0 then
118: oe_debug_pub.ADD('Blanket Workflow Exception ', 1);
119: end if;
120:
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122:
123: /* IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
124: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
125: 'create_and_start_flow');
123: /* IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
124: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
125: 'create_and_start_flow');
126: END IF; */
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128:
129: end create_and_start_flow;
130:
131: PROCEDURE Submit_Draft ( p_header_id IN NUMBER,
162: ,p_source_document_line_id => null
163: ,p_order_source_id => null
164: ,p_source_document_type_id => null);
165:
166: x_return_status := FND_API.G_RET_STS_SUCCESS;
167:
168: -- Calling Q and A Contracts
169: -- qa_articles is called with NORMAL mode
170: if l_debug_level > 0 then
196: if l_debug_level > 0 then
197: oe_debug_pub.ADD('Entering OE_BLANKET_WF_UTIL.Submit_draft after Ful ret'||l_return_status);
198: end if;
199: END IF;
200: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
201: THEN
202: x_return_status := l_return_status;
203: RAISE submit_draft_exception;
204: else
222:
223: EXCEPTION
224:
225: WHEN SUBMIT_DRAFT_EXCEPTION THEN
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
228:
229: WHEN OTHERS THEN
230: if l_debug_level > 0 then
223: EXCEPTION
224:
225: WHEN SUBMIT_DRAFT_EXCEPTION THEN
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
228:
229: WHEN OTHERS THEN
230: if l_debug_level > 0 then
231: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
238: /* IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
239: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
240: 'Submit_Draft');
241: END IF; */
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243:
244: END Submit_Draft;
245:
246: PROCEDURE Blanket_Date_Changed ( p_header_id IN NUMBER,
280: if l_debug_level > 0 then
281: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
282: end if;
283:
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285:
286: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
287: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
288: 'Blanket_Date_Changed');
289: END IF;
290: /* OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count
291: , p_data => x_msg_data); */
292:
293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
294:
295: END Blanket_Date_Changed;
296:
297: PROCEDURE customer_acceptance (p_header_id IN NUMBER,
307: BEGIN
308: if l_debug_level > 0 then
309: oe_debug_pub.ADD('Entering OE_BLANKET_WF_UTIL.Customer_Accepted ', 1);
310: end if;
311: x_return_status := FND_API.G_RET_STS_SUCCESS;
312:
313: OE_NEGOTIATE_WF.Customer_Accepted(p_header_id => p_header_id,
314: x_return_status => x_return_status);
315: OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count
321: if l_debug_level > 0 then
322: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
323: end if;
324:
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326:
327: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
328: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
329: 'Customer_Accepted');
330: END IF;
331: OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count
332: , p_data => x_msg_data);
333:
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335:
336: END Customer_acceptance;
337:
338: PROCEDURE Customer_Rejected (p_header_id IN NUMBER,
391: if l_debug_level > 0 then
392: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
393: end if;
394:
395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
397: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
398: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
399: 'Customer_Rejected');
402: ( p_count => x_msg_count
403: , p_data => x_msg_data
404: );
405:
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407:
408: end Customer_Rejected;
409:
410: PROCEDURE check_release (p_blanket_number IN NUMBER,
420:
421: if l_debug_level > 0 then
422: oe_debug_pub.ADD('Entering OE_BLANKET_WF_UTIL.Check_release ', 1);
423: end if;
424: l_return_status := FND_API.G_RET_STS_SUCCESS;
425: if p_blanket_number is not null then
426:
427: SELECT 'TRUE'
428: INTO l_dumy
430: WHERE blanket_number = p_blanket_number
431: AND open_flag = 'Y'
432: AND ROWNUM = 1;
433: IF l_dumy = 'TRUE' THEN
434: l_return_status := FND_API.G_RET_STS_ERROR;
435: fnd_message.set_name('ONT', 'OE_BKT_NO_DATE_CHANGE');
436: oe_msg_pub.add;
437: END IF;
438:
443: WHERE blanket_number = p_blanket_number
444: AND open_flag = 'Y'
445: AND ROWNUM = 1;
446: IF l_dumy = 'TRUE' THEN
447: l_return_status := FND_API.G_RET_STS_ERROR;
448: fnd_message.set_name('ONT', 'OE_BKT_NO_DATE_CHANGE');
449: oe_msg_pub.add;
450: END IF;
451: END IF;
461: if l_debug_level > 0 then
462: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
463: end if;
464:
465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
466:
467: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
468: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
469: 'Check Release');
467: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
468: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
469: 'Check Release');
470: END IF;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472:
473: END CHECK_RELEASE;
474:
475: PROCEDURE Extend (p_header_id IN NUMBER,
491: if l_debug_level > 0 then
492: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
493: end if;
494:
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496:
497: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
498: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
499: 'Extend');
497: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
498: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
499: 'Extend');
500: END IF;
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502:
503: END Extend;
504:
505: PROCEDURE Close (p_header_id IN NUMBER,
525: if l_debug_level > 0 then
526: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
527: end if;
528:
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
530:
531: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
532: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
533: 'Close');
531: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
532: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
533: 'Close');
534: END IF;
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536:
537: END Close;
538:
539: PROCEDURE Terminate (p_header_id IN NUMBER,
573: WHEN OTHERS THEN
574: if l_debug_level > 0 then
575: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
576: end if;
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578:
579: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
580: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
581: 'Terminate');
582: END IF;
583: OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count
584: , p_data => x_msg_data);
585:
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587:
588: end Terminate;
589:
590: PROCEDURE Lost (p_header_id IN NUMBER,
642: WHEN OTHERS THEN
643: if l_debug_level > 0 then
644: oe_debug_pub.ADD('In Blanket Workflow Exception ', 1);
645: end if;
646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
647:
648: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
649: OE_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
650: 'Lost');
651: END IF;
652: OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count
653: , p_data => x_msg_data);
654:
655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
656:
657: end Lost;
658:
659: PROCEDURE Complete_Negotiation (p_header_id IN NUMBER,
712: ,x_on_operation_action => l_action
713: );
714:
715: EXCEPTION
716: WHEN FND_API.G_EXC_ERROR THEN
717: l_return_status := FND_API.G_RET_STS_ERROR;
718: raise fnd_api.g_exc_error;
719: END;
720:
713: );
714:
715: EXCEPTION
716: WHEN FND_API.G_EXC_ERROR THEN
717: l_return_status := FND_API.G_RET_STS_ERROR;
718: raise fnd_api.g_exc_error;
719: END;
720:
721: if l_result = OE_PC_GLOBALS.YES then
714:
715: EXCEPTION
716: WHEN FND_API.G_EXC_ERROR THEN
717: l_return_status := FND_API.G_RET_STS_ERROR;
718: raise fnd_api.g_exc_error;
719: END;
720:
721: if l_result = OE_PC_GLOBALS.YES then
722: l_return_status := FND_API.G_RET_STS_ERROR;
718: raise fnd_api.g_exc_error;
719: END;
720:
721: if l_result = OE_PC_GLOBALS.YES then
722: l_return_status := FND_API.G_RET_STS_ERROR;
723: raise fnd_api.g_exc_error;
724: end if;
725:
726: OE_GLOBALS.G_REASON_CODE := 'SYSTEM';
719: END;
720:
721: if l_result = OE_PC_GLOBALS.YES then
722: l_return_status := FND_API.G_RET_STS_ERROR;
723: raise fnd_api.g_exc_error;
724: end if;
725:
726: OE_GLOBALS.G_REASON_CODE := 'SYSTEM';
727: OE_GLOBALS.G_CAPTURED_REASON := 'Y';
755: if l_debug_level > 0 then
756: oe_debug_pub.ADD('Entering OE_BLANKET_WF_UTIL.Complete_Negotiation after LOCKING HEADER'
757: ||l_return_status);
758: end if;
759: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
760: x_return_status := l_return_status;
761: ROLLBACK TO SAVEPOINT Save_Blanket_Changes;
762: END IF;
763:
760: x_return_status := l_return_status;
761: ROLLBACK TO SAVEPOINT Save_Blanket_Changes;
762: END IF;
763:
764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
765: x_return_status := l_return_status;
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
768: x_return_status := l_return_status;
762: END IF;
763:
764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
765: x_return_status := l_return_status;
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
768: x_return_status := l_return_status;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
763:
764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
765: x_return_status := l_return_status;
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
768: x_return_status := l_return_status;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
771: /*
765: x_return_status := l_return_status;
766: RAISE FND_API.G_EXC_ERROR;
767: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
768: x_return_status := l_return_status;
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
770: END IF;
771: /*
772: OE_MSG_PUB.set_msg_context (p_entity_code => 'BLANKET',
773: p_entity_id => p_header_id,
795: , p_x_lock_control=>l_blanket_lock_control
796: , x_return_status => l_return_status
797: , x_msg_count => l_msg_count
798: , x_msg_data => l_msg_data);
799: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
800: x_return_status := l_return_status;
801: ROLLBACK TO SAVEPOINT Save_Blanket_Changes;
802: END IF;
803:
800: x_return_status := l_return_status;
801: ROLLBACK TO SAVEPOINT Save_Blanket_Changes;
802: END IF;
803:
804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
805: x_return_status := l_return_status;
806: RAISE FND_API.G_EXC_ERROR;
807: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: x_return_status := l_return_status;
802: END IF;
803:
804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
805: x_return_status := l_return_status;
806: RAISE FND_API.G_EXC_ERROR;
807: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: x_return_status := l_return_status;
809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
810: END IF;
803:
804: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
805: x_return_status := l_return_status;
806: RAISE FND_API.G_EXC_ERROR;
807: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: x_return_status := l_return_status;
809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
810: END IF;
811:
805: x_return_status := l_return_status;
806: RAISE FND_API.G_EXC_ERROR;
807: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: x_return_status := l_return_status;
809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
810: END IF;
811:
812: update oe_blanket_lines
813: set TRANSACTION_PHASE_CODE = 'F',
820: ||l_return_status);
821: end if;
822: END LOOP;
823: CLOSE c_get_lines;
824: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
825: oe_order_wf_util.createstart_hdrinternal( P_ITEM_TYPE => l_item_type,
826: P_HEADER_ID => l_header_id,
827: P_TRANSACTION_NUMBER => l_blanket_number,
828: P_SALES_DOCUMENT_TYPE_CODE => l_sales_doc_type_code);
828: P_SALES_DOCUMENT_TYPE_CODE => l_sales_doc_type_code);
829: oe_order_wf_util.Start_All_Flows;
830: x_return_status := l_return_status; -- Bug 8816026
831:
832: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
833: x_return_status := l_return_status;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
836: x_return_status := l_return_status;
830: x_return_status := l_return_status; -- Bug 8816026
831:
832: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
833: x_return_status := l_return_status;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
836: x_return_status := l_return_status;
837: RAISE FND_API.G_EXC_ERROR;
838: END IF;
831:
832: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
833: x_return_status := l_return_status;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
836: x_return_status := l_return_status;
837: RAISE FND_API.G_EXC_ERROR;
838: END IF;
839:
833: x_return_status := l_return_status;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
836: x_return_status := l_return_status;
837: RAISE FND_API.G_EXC_ERROR;
838: END IF;
839:
840: END IF;
841: if l_debug_level > 0 then
848: EXCEPTION
849:
850: WHEN Blanket_Complete_Negotiation THEN
851: OE_Quote_Util.G_COMPLETE_NEG := 'N';
852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854:
855: WHEN FND_API.G_EXC_ERROR THEN
856: OE_Quote_Util.G_COMPLETE_NEG := 'N';
849:
850: WHEN Blanket_Complete_Negotiation THEN
851: OE_Quote_Util.G_COMPLETE_NEG := 'N';
852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854:
855: WHEN FND_API.G_EXC_ERROR THEN
856: OE_Quote_Util.G_COMPLETE_NEG := 'N';
857: if l_debug_level > 0 then
851: OE_Quote_Util.G_COMPLETE_NEG := 'N';
852: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854:
855: WHEN FND_API.G_EXC_ERROR THEN
856: OE_Quote_Util.G_COMPLETE_NEG := 'N';
857: if l_debug_level > 0 then
858: oe_debug_pub.ADD('In Blanket Workflow Execution error ', 1);
859: end if;
873:
874: /* OE_MSG_PUB.Count_And_Get ( p_count => x_msg_count
875: , p_data => x_msg_data); */
876:
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878:
879: end Complete_Negotiation;
880:
881: end oe_blanket_wf_util;