[Home] [Help]
58: IS
59: l_ind PLS_INTEGER;
60: l_max_ind PLS_INTEGER;
61: --
62: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
63: --
64: BEGIN
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66: x_result := FND_API.G_FALSE;
64: BEGIN
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66: x_result := FND_API.G_FALSE;
67: IF l_debug_level > 0 THEN
68: oe_debug_pub.add('Entering Procedure Check_for_Request in Package OE_Delayed_Requests_Pvt');
69: END IF;
70: -- l_ind to l_max_ind is the range of index positions that can
71: -- hold requests for this entity id - for e.g. if entity_id is
72: -- 2341 and G_MAX_REQUESTS is 10000 then the range would be:
74:
75: l_ind := (mod(p_entity_id,100000) * G_MAX_REQUESTS)+1;
76: l_max_ind := l_ind + G_MAX_REQUESTS - 1;
77:
78: --oe_debug_pub.add('Max Ind :'||l_max_ind);
79:
80: -- Starting from l_ind, search for the first index position
81: -- with a request. This is required as requests can be
82: -- deleted later which will result in indexes without any
92: AND l_ind <= l_max_ind LOOP
93:
94: x_request_ind := l_ind+1;
95:
96: --oe_debug_pub.add('Index :'||l_ind);
97: --oe_debug_pub.add('Entity :'||G_Delayed_Requests(l_ind).Entity_code);
98: --oe_debug_pub.add('Entity ID:'||G_Delayed_Requests(l_ind).entity_id);
99: --oe_debug_pub.add('Request:'||G_Delayed_Requests(l_ind).request_type);
100:
93:
94: x_request_ind := l_ind+1;
95:
96: --oe_debug_pub.add('Index :'||l_ind);
97: --oe_debug_pub.add('Entity :'||G_Delayed_Requests(l_ind).Entity_code);
98: --oe_debug_pub.add('Entity ID:'||G_Delayed_Requests(l_ind).entity_id);
99: --oe_debug_pub.add('Request:'||G_Delayed_Requests(l_ind).request_type);
100:
101: IF G_Delayed_Requests(l_ind).Entity_code = p_entity_code
94: x_request_ind := l_ind+1;
95:
96: --oe_debug_pub.add('Index :'||l_ind);
97: --oe_debug_pub.add('Entity :'||G_Delayed_Requests(l_ind).Entity_code);
98: --oe_debug_pub.add('Entity ID:'||G_Delayed_Requests(l_ind).entity_id);
99: --oe_debug_pub.add('Request:'||G_Delayed_Requests(l_ind).request_type);
100:
101: IF G_Delayed_Requests(l_ind).Entity_code = p_entity_code
102: AND
95:
96: --oe_debug_pub.add('Index :'||l_ind);
97: --oe_debug_pub.add('Entity :'||G_Delayed_Requests(l_ind).Entity_code);
98: --oe_debug_pub.add('Entity ID:'||G_Delayed_Requests(l_ind).entity_id);
99: --oe_debug_pub.add('Request:'||G_Delayed_Requests(l_ind).request_type);
100:
101: IF G_Delayed_Requests(l_ind).Entity_code = p_entity_code
102: AND
103: G_Delayed_Requests(l_ind).Entity_id = p_entity_id
207: l_header_id NUMBER; -- For IR ISO CMS Project
208: l_line_id NUMBER; -- For IR ISO CMS Project
209: l_cancel_order BOOLEAN := FALSE; -- For IR ISO CMS Project
210: --
211: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
212: --
213:
214: BEGIN
215: IF l_debug_level > 0 THEN
212: --
213:
214: BEGIN
215: IF l_debug_level > 0 THEN
216: oe_debug_pub.add('Entering Procedure Process_Request_Pvt ',1);
217: oe_debug_pub.add('Request processed '||G_Delayed_Requests(p_request_ind).processed);
218: END IF;
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220:
213:
214: BEGIN
215: IF l_debug_level > 0 THEN
216: oe_debug_pub.add('Entering Procedure Process_Request_Pvt ',1);
217: oe_debug_pub.add('Request processed '||G_Delayed_Requests(p_request_ind).processed);
218: END IF;
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220:
221:
231: l_entity_code := l_request_rec.entity_code;
232: l_entity_Id := l_request_rec.entity_Id;
233: l_request_type := l_request_rec.request_type;
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add('Request type '||l_request_type,1);
236: oe_debug_pub.add('Entity id '||l_entity_id, 5);
237: oe_debug_pub.add('param1 '||l_request_rec.param1, 5);
238: oe_debug_pub.add('param2 '||l_request_rec.param2, 5);
239: oe_debug_pub.add('param3 '||l_request_rec.param3, 5);
232: l_entity_Id := l_request_rec.entity_Id;
233: l_request_type := l_request_rec.request_type;
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add('Request type '||l_request_type,1);
236: oe_debug_pub.add('Entity id '||l_entity_id, 5);
237: oe_debug_pub.add('param1 '||l_request_rec.param1, 5);
238: oe_debug_pub.add('param2 '||l_request_rec.param2, 5);
239: oe_debug_pub.add('param3 '||l_request_rec.param3, 5);
240: END IF;
233: l_request_type := l_request_rec.request_type;
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add('Request type '||l_request_type,1);
236: oe_debug_pub.add('Entity id '||l_entity_id, 5);
237: oe_debug_pub.add('param1 '||l_request_rec.param1, 5);
238: oe_debug_pub.add('param2 '||l_request_rec.param2, 5);
239: oe_debug_pub.add('param3 '||l_request_rec.param3, 5);
240: END IF;
241: G_Delayed_Requests(p_request_ind).processed := 'I';
234: IF l_debug_level > 0 THEN
235: oe_debug_pub.add('Request type '||l_request_type,1);
236: oe_debug_pub.add('Entity id '||l_entity_id, 5);
237: oe_debug_pub.add('param1 '||l_request_rec.param1, 5);
238: oe_debug_pub.add('param2 '||l_request_rec.param2, 5);
239: oe_debug_pub.add('param3 '||l_request_rec.param3, 5);
240: END IF;
241: G_Delayed_Requests(p_request_ind).processed := 'I';
242:
235: oe_debug_pub.add('Request type '||l_request_type,1);
236: oe_debug_pub.add('Entity id '||l_entity_id, 5);
237: oe_debug_pub.add('param1 '||l_request_rec.param1, 5);
238: oe_debug_pub.add('param2 '||l_request_rec.param2, 5);
239: oe_debug_pub.add('param3 '||l_request_rec.param3, 5);
240: END IF;
241: G_Delayed_Requests(p_request_ind).processed := 'I';
242:
243: IF l_debug_level > 0 THEN
241: G_Delayed_Requests(p_request_ind).processed := 'I';
242:
243: IF l_debug_level > 0 THEN
244: IF OE_GLOBALS.G_CASCADING_REQUEST_LOGGED THEN
245: oe_debug_pub.add('cascade flag set to true');
246: ELSE
247: oe_debug_pub.add('cascade flag set to false');
248: END IF;
249: END IF;
243: IF l_debug_level > 0 THEN
244: IF OE_GLOBALS.G_CASCADING_REQUEST_LOGGED THEN
245: oe_debug_pub.add('cascade flag set to true');
246: ELSE
247: oe_debug_pub.add('cascade flag set to false');
248: END IF;
249: END IF;
250: -- Fix Bug 2062937: Do not set the cascade flag blindly for certain
251: -- delayed requests.
271: ,OE_GLOBALS.G_GENERATE_XML_REQ_HDR
272: ,OE_GLOBALS.G_GENERATE_XML_REQ_LN)
273: THEN
274: IF l_debug_level > 0 THEN
275: oe_debug_pub.add('****** process_obj=>delayed req execution ****', 1);
276: END IF;
277: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
278: END IF;
279:
309: x_return_status => l_return_status);
310:
311: ELSIF l_request_type = OE_GLOBALS.G_PRICE_ADJ THEN
312: IF l_debug_level > 0 THEN
313: Oe_Debug_pub.Add('Before Executing Delayed request Price Adjustment for '||l_request_rec.entity_id);
314: END IF;
315: /* 1905650
316: G_PRICE_ADJ request is now logged against LINE entity
317: */
333: ,p_request_rec => l_request_rec
334: );
335: End if;
336: IF l_debug_level > 0 THEN
337: Oe_Debug_pub.Add('After Executing Delayed request Price Adj for '||l_request_rec.entity_id);
338: END IF;
339: ELSIF l_request_type =
340: OE_GLOBALS.G_CHECK_HSC_QUOTA_TOTAL then
341: if l_entity_code = OE_GLOBALS.G_ENTITY_HEADER_SCREDIT
474:
475: /* 1739574 */
476: ELSIF l_request_type = OE_GLOBALS.G_COMPLETE_ACTIVITY THEN
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.ADD('Calling wf_engine.CompleteActivityInternalName for '||l_request_rec.param1 || '/'||l_request_rec.param2||'/'||l_request_rec.param3 ||'/'||'/'||l_request_rec.param4, 3);
479: END IF;
480: wf_engine.CompleteActivityInternalName(l_request_rec.param1,l_request_rec.param2,l_request_rec.param3,l_request_rec.param4);
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.ADD('Returned from wf_engine.CompleteActivityInternalName ',3);
478: oe_debug_pub.ADD('Calling wf_engine.CompleteActivityInternalName for '||l_request_rec.param1 || '/'||l_request_rec.param2||'/'||l_request_rec.param3 ||'/'||'/'||l_request_rec.param4, 3);
479: END IF;
480: wf_engine.CompleteActivityInternalName(l_request_rec.param1,l_request_rec.param2,l_request_rec.param3,l_request_rec.param4);
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.ADD('Returned from wf_engine.CompleteActivityInternalName ',3);
483: END IF;
484: ELSIF l_request_rec.request_type = OE_GLOBALS.G_UPDATE_SHIPPING THEN
485:
486: OE_Delayed_Requests_UTIL.Update_Shipping
515: ELSIF l_request_rec.request_type = OE_GLOBALS.G_UPDATE_REQUISITION THEN
516:
517: IF NVL(l_request_rec.param2,'N') = 'Y' THEN
518: IF l_debug_level > 0 THEN
519: oe_debug_pub.add('Requisition Header Cancellation is TRUE',5);
520: END IF;
521: l_cancel_order := TRUE;
522:
523: -- For Requisition Header Cancellation, following information is not needed -
524: l_request_rec.param1 := NULL;
525: l_request_rec.date_param1 := NULL;
526: ELSE
527: IF l_debug_level > 0 THEN
528: oe_debug_pub.add('Requisition Header Cancellation is FALSE',5);
529: END IF;
530: l_cancel_order := FALSE;
531: END IF;
532:
558:
559: ELSIF l_request_type =
560: OE_GLOBALS.G_CASCADE_CHANGES then
561: IF l_debug_level > 0 THEN
562: oe_debug_pub.add('Performing Delayed Req for Cascade Changes',1);
563: END IF;
564:
565: OE_CONFIG_UTIL.CASCADE_CHANGES
566: ( p_parent_line_id => l_request_rec.entity_id
567: , p_request_rec => l_request_rec
568: , x_return_status => l_return_status
569: );
570: IF l_debug_level > 0 THEN
571: oe_debug_pub.add('done Delayed Req for Cascade Changes',1);
572: END IF;
573:
574: ELSIF l_request_type =
575: OE_GLOBALS.G_CHANGE_CONFIGURATION then
573:
574: ELSIF l_request_type =
575: OE_GLOBALS.G_CHANGE_CONFIGURATION then
576:
577: oe_debug_pub.add('Performing Delayed Req for Change Config',1);
578:
579: OE_CONFIG_UTIL.CHANGE_CONFIGURATION
580: ( p_request_rec => l_request_rec
581: , x_return_status => l_return_status
580: ( p_request_rec => l_request_rec
581: , x_return_status => l_return_status
582: );
583: IF l_debug_level > 0 THEN
584: oe_debug_pub.add('Done Delayed Req for Change Config',1);
585: END IF;
586:
587: ELSIF l_request_type =
588: OE_GLOBALS.G_CREATE_RESERVATIONS then
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_OPTION THEN
625: IF l_debug_level > 0 THEN
626: oe_debug_pub.add('upd: processed with cfg val', 3);
627: END IF;
628: RETURN;
629:
630: ELSIF l_request_type = OE_GLOBALS.G_DELETE_OPTION THEN
628: RETURN;
629:
630: ELSIF l_request_type = OE_GLOBALS.G_DELETE_OPTION THEN
631: IF l_debug_level > 0 THEN
632: oe_debug_pub.add('del: processed with cfg val', 3);
633: END IF;
634: RETURN;
635:
636: ELSIF l_request_type =
672: END IF;
673: K := G_Delayed_Requests.NEXT(K);
674: END LOOP;
675: IF l_debug_level > 0 THEN
676: oe_debug_pub.add('out of loop for upd/del options table', 1);
677: END IF;
678:
679: OE_DELAYED_REQUESTS_UTIL.VALIDATE_CONFIGURATION
680: ( p_top_model_line_id => l_request_rec.entity_id
682: , p_updated_options_tbl => l_updated_options_tbl
683: , x_return_status => l_return_status
684: );
685: IF l_debug_level > 0 THEN
686: oe_debug_pub.add('ret sts: '|| x_return_status, 4);
687: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
690: oe_debug_pub.add('deleteing after success ', 3);
686: oe_debug_pub.add('ret sts: '|| x_return_status, 4);
687: END IF;
688:
689: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
690: oe_debug_pub.add('deleteing after success ', 3);
691: K := G_Delayed_Requests.FIRST;
692:
693: WHILE K is not null
694: LOOP
708:
709:
710: ELSIF l_request_type = OE_GLOBALS.G_CTO_CHANGE THEN
711: IF l_debug_level > 0 THEN
712: oe_debug_pub.add('cto: processed with notification', 3);
713: END IF;
714: RETURN;
715:
716: ELSIF l_request_type =
716: ELSIF l_request_type =
717: OE_GLOBALS.G_CTO_NOTIFICATION then
718: -- loop over and call cto
719: IF l_debug_level > 0 THEN
720: oe_debug_pub.add('cto notification excecution', 2);
721: END IF;
722:
723: K := G_Delayed_Requests.FIRST;
724:
728: OE_GLOBALS.G_CTO_CHANGE AND
729: G_Delayed_Requests(K).param3 = l_request_rec.entity_id
730: THEN
731: IF l_debug_level > 0 THEN
732: oe_debug_pub.add(K || 'cto change req ', 3);
733: END IF;
734: IF G_Delayed_Requests(K).request_unique_key1 = 'Quantity'
735: THEN
736: l_cto_request_rec.param1 := G_Delayed_Requests(K).param1;
780: ELSIF G_Delayed_Requests(K).request_unique_key1 =
781: 'Config Chg pto_ato'
782: THEN
783: IF l_debug_level > 0 THEN
784: oe_debug_pub.add('ptoato '|| G_Delayed_Requests(K).param4, 1);
785: END IF;
786: l_cto_request_tbl(K).param1 := G_Delayed_Requests(K).param4;
787: l_cto_request_tbl(K).param2 := G_Delayed_Requests(K).param5;
788:
789: ELSIF G_Delayed_Requests(K).request_unique_key1 =
790: 'Decimal Chg'
791: THEN
792: IF l_debug_level > 0 THEN
793: oe_debug_pub.add('for decimal '||G_Delayed_Requests(K).entity_id, 1);
794: END IF;
795: l_cto_decimal_tbl(K) := G_Delayed_Requests(K);
796:
797: ELSIF G_Delayed_Requests(K).request_unique_key1 =
797: ELSIF G_Delayed_Requests(K).request_unique_key1 =
798: 'Split Create'
799: THEN
800: IF l_debug_level > 0 THEN
801: oe_debug_pub.add('split '|| G_Delayed_Requests(K).param4, 1);
802: END IF;
803: l_cto_split_tbl(K) := G_Delayed_Requests(K);
804: END IF;
805: IF l_debug_level > 0 THEN
802: END IF;
803: l_cto_split_tbl(K) := G_Delayed_Requests(K);
804: END IF;
805: IF l_debug_level > 0 THEN
806: oe_debug_pub.add(G_Delayed_Requests(K).request_unique_key1, 4);
807: END IF;
808: --G_Delayed_Requests.delete(K);
809: END IF;
810:
808: --G_Delayed_Requests.delete(K);
809: END IF;
810:
811: IF l_debug_level > 0 THEN
812: oe_debug_pub.add('cto looping', 4);
813: END IF;
814:
815: K := G_Delayed_Requests.NEXT(K);
816: END LOOP;
824: , x_return_status => l_return_status);
825:
826: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
827: IF l_debug_level > 0 THEN
828: oe_debug_pub.add('deleteing after success ', 3);
829: END IF;
830: K := G_Delayed_Requests.FIRST;
831:
832: WHILE K is not null
942:
943: /* BUG 2013611 - Increment promotional balances in response to cancellations */
944: ELSIF l_request_rec.request_type = OE_GLOBALS.G_REVERSE_LIMITS THEN
945: IF l_debug_level > 0 THEN
946: oe_debug_pub.add('About to PERFORM Delayed Request for Reverse Limits',1);
947: END IF;
948:
949: OE_DELAYED_REQUESTS_UTIL.REVERSE_LIMITS
950: ( x_return_status => l_return_status
956: , p_returned_qty => to_number(l_request_rec.param6)
957: , p_line_id => l_request_rec.entity_id
958: );
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('Call Issued to OE_DELAYED_REQUESTS_UTIL.Reverse_Limits',1);
961: END IF;
962: /* BUG 2013611 END */
963:
964: -- Freight Rating.
963:
964: -- Freight Rating.
965: ELSIF l_request_rec.request_type = OE_GLOBALS.G_FREIGHT_RATING THEN
966: IF l_debug_level > 0 THEN
967: Oe_Debug_pub.Add('Before Executing Delayed request Freight Rating for header: '||l_request_rec.entity_id, 3);
968: END IF;
969: OE_FTE_INTEGRATION_PVT.Process_FTE_Action
970: ( p_header_id => l_request_rec.entity_id
971: ,p_line_id => null
979:
980:
981: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_LINE THEN
982: IF l_debug_level > 0 THEN
983: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
984: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
985: END IF;
986: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
987: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
980:
981: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_LINE THEN
982: IF l_debug_level > 0 THEN
983: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
984: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
985: END IF;
986: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
987: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
988: l_Price_Control_Rec.Simulation_Flag := 'N';
993: l_price_control_rec.source_order_amount_flag := 'Y';
994: End If;
995: --RT}
996: IF l_debug_level > 0 THEN
997: Oe_Debug_pub.Add('Before Line Price');
998: END IF;
999: oe_order_adj_pvt.Price_line(
1000: X_Return_Status => l_Return_Status
1001: ,p_Line_id => l_request_rec.entity_id
1005: ,p_request_rec => l_request_rec
1006: ,x_line_Tbl => l_Line_Tbl
1007: );
1008: IF l_debug_level > 0 THEN
1009: Oe_Debug_pub.Add('After Executing Delayed request Price line for '||l_request_rec.entity_id);
1010: END IF;
1011: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_ORDER THEN
1012: IF l_debug_level > 0 THEN
1013: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
1009: Oe_Debug_pub.Add('After Executing Delayed request Price line for '||l_request_rec.entity_id);
1010: END IF;
1011: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_ORDER THEN
1012: IF l_debug_level > 0 THEN
1013: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
1014: Oe_Debug_pub.Add('Before Header Price');
1015: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1016: Oe_Debug_pub.Add('The Action is '||l_request_rec.param3);
1017: Oe_Debug_pub.Add('The get freight flag is: '||l_request_rec.request_unique_key2, 3);
1010: END IF;
1011: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_ORDER THEN
1012: IF l_debug_level > 0 THEN
1013: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
1014: Oe_Debug_pub.Add('Before Header Price');
1015: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1016: Oe_Debug_pub.Add('The Action is '||l_request_rec.param3);
1017: Oe_Debug_pub.Add('The get freight flag is: '||l_request_rec.request_unique_key2, 3);
1018: END IF;
1011: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_ORDER THEN
1012: IF l_debug_level > 0 THEN
1013: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
1014: Oe_Debug_pub.Add('Before Header Price');
1015: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1016: Oe_Debug_pub.Add('The Action is '||l_request_rec.param3);
1017: Oe_Debug_pub.Add('The get freight flag is: '||l_request_rec.request_unique_key2, 3);
1018: END IF;
1019: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
1012: IF l_debug_level > 0 THEN
1013: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
1014: Oe_Debug_pub.Add('Before Header Price');
1015: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1016: Oe_Debug_pub.Add('The Action is '||l_request_rec.param3);
1017: Oe_Debug_pub.Add('The get freight flag is: '||l_request_rec.request_unique_key2, 3);
1018: END IF;
1019: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
1020: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
1013: Oe_Debug_pub.Add('Before Executing Delayed request Price line for '||l_request_rec.entity_id);
1014: Oe_Debug_pub.Add('Before Header Price');
1015: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1016: Oe_Debug_pub.Add('The Action is '||l_request_rec.param3);
1017: Oe_Debug_pub.Add('The get freight flag is: '||l_request_rec.request_unique_key2, 3);
1018: END IF;
1019: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
1020: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
1021: l_Price_Control_Rec.Simulation_Flag := 'N';
1036: ,x_line_Tbl => l_Line_Tbl
1037: ,p_action_code => l_request_rec.param3
1038: );
1039: IF l_debug_level > 0 THEN
1040: Oe_Debug_pub.Add('After Header Price');
1041: Oe_Debug_pub.Add('After Executing Delayed request Price line for '||l_request_rec.entity_id);
1042: END IF;
1043:
1044: /* Customer Acceptance - Start */
1037: ,p_action_code => l_request_rec.param3
1038: );
1039: IF l_debug_level > 0 THEN
1040: Oe_Debug_pub.Add('After Header Price');
1041: Oe_Debug_pub.Add('After Executing Delayed request Price line for '||l_request_rec.entity_id);
1042: END IF;
1043:
1044: /* Customer Acceptance - Start */
1045: ELSIF l_request_rec.request_type = OE_GLOBALS.G_DFLT_CONTINGENCY_ATTRIBUTES THEN
1043:
1044: /* Customer Acceptance - Start */
1045: ELSIF l_request_rec.request_type = OE_GLOBALS.G_DFLT_CONTINGENCY_ATTRIBUTES THEN
1046: IF l_debug_level > 0 THEN
1047: Oe_Debug_pub.Add('Before Defaulting Contingency Attributes ');
1048: END IF;
1049: OE_ACCEPTANCE_UTIL.Default_contingency_Attributes();
1050: IF l_debug_level > 0 THEN
1051: Oe_Debug_pub.Add('After Defaulting Contingency Attributes ');
1047: Oe_Debug_pub.Add('Before Defaulting Contingency Attributes ');
1048: END IF;
1049: OE_ACCEPTANCE_UTIL.Default_contingency_Attributes();
1050: IF l_debug_level > 0 THEN
1051: Oe_Debug_pub.Add('After Defaulting Contingency Attributes ');
1052: END IF;
1053: /* Customer Acceptance - End */
1054:
1055: ELSIF (l_request_type = OE_GLOBALS.G_PROCESS_ADJUSTMENTS) then
1054:
1055: ELSIF (l_request_type = OE_GLOBALS.G_PROCESS_ADJUSTMENTS) then
1056: if l_entity_code = OE_GLOBALS.G_ENTITY_LINE then
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add('count is : ' || G_Delayed_Requests.count );
1059: END IF;
1060: l_prc_adj_index := G_Delayed_Requests.first;
1061:
1062: WHILE l_prc_adj_index is NOT NULL LOOP
1060: l_prc_adj_index := G_Delayed_Requests.first;
1061:
1062: WHILE l_prc_adj_index is NOT NULL LOOP
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add('Ren 0: Param1 :' || l_request_rec.param1);
1065: END IF;
1066: IF G_Delayed_Requests(l_prc_adj_index).request_type = l_request_type THEN
1067: IF l_debug_level > 0 THEN
1068: oe_debug_pub.add('REN: SUCCESS - FOUND THE REQUEST');
1064: oe_debug_pub.add('Ren 0: Param1 :' || l_request_rec.param1);
1065: END IF;
1066: IF G_Delayed_Requests(l_prc_adj_index).request_type = l_request_type THEN
1067: IF l_debug_level > 0 THEN
1068: oe_debug_pub.add('REN: SUCCESS - FOUND THE REQUEST');
1069:
1070: oe_debug_pub.add('Ren 1: Param2 :' || g_delayed_requests(l_prc_adj_index).param2);
1071: END IF;
1072:
1066: IF G_Delayed_Requests(l_prc_adj_index).request_type = l_request_type THEN
1067: IF l_debug_level > 0 THEN
1068: oe_debug_pub.add('REN: SUCCESS - FOUND THE REQUEST');
1069:
1070: oe_debug_pub.add('Ren 1: Param2 :' || g_delayed_requests(l_prc_adj_index).param2);
1071: END IF;
1072:
1073: l_prc_adj_request(I) := g_delayed_requests(l_prc_adj_index);
1074: oe_debug_pub.add('Ren 2: Param2 :' || l_prc_adj_request(I).param2);
1070: oe_debug_pub.add('Ren 1: Param2 :' || g_delayed_requests(l_prc_adj_index).param2);
1071: END IF;
1072:
1073: l_prc_adj_request(I) := g_delayed_requests(l_prc_adj_index);
1074: oe_debug_pub.add('Ren 2: Param2 :' || l_prc_adj_request(I).param2);
1075: g_delayed_requests.delete(l_prc_adj_index);
1076: IF l_debug_level > 0 THEN
1077: oe_debug_pub.add('Ren 3: Param2 :' || l_prc_adj_request(I).param2);
1078: END IF;
1073: l_prc_adj_request(I) := g_delayed_requests(l_prc_adj_index);
1074: oe_debug_pub.add('Ren 2: Param2 :' || l_prc_adj_request(I).param2);
1075: g_delayed_requests.delete(l_prc_adj_index);
1076: IF l_debug_level > 0 THEN
1077: oe_debug_pub.add('Ren 3: Param2 :' || l_prc_adj_request(I).param2);
1078: END IF;
1079: I := I + 1;
1080:
1081: ELSE
1079: I := I + 1;
1080:
1081: ELSE
1082: IF l_debug_level > 0 THEN
1083: oe_debug_pub.add('Ren: Req not found ' || l_prc_adj_index);
1084: END IF;
1085:
1086: END IF;
1087:
1090: END LOOP;
1091:
1092: IF l_prc_adj_request.count > 0 THEN
1093: IF l_debug_level > 0 THEN
1094: oe_debug_pub.add('before calling process_adjustments ');
1095: END IF;
1096:
1097: OE_DELAYED_REQUESTS_UTIL.Process_Adjustments
1098: (p_adjust_tbl => l_prc_adj_request,
1165: /* csheu added for bug #1533658 */
1166:
1167: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_SERVICE THEN
1168: IF l_debug_level > 0 THEN
1169: oe_debug_pub.add('CSH-- Before calls OE_Service_Util.cascade_changes', 1);
1170: END IF;
1171:
1172: OE_Service_Util.cascade_changes
1173: ( p_parent_line_id => l_request_rec.entity_id
1174: ,p_request_rec => l_request_rec
1175: ,x_return_status => l_return_status
1176: );
1177: IF l_debug_level > 0 THEN
1178: oe_debug_pub.add('CSH-- After calls OE_Service_Util.cascade_changes', 1);
1179: END IF;
1180:
1181: /* lchen added for bug #1761154 */
1182:
1181: /* lchen added for bug #1761154 */
1182:
1183: ELSIF l_request_type = OE_GLOBALS.G_CASCADE_OPTIONS_SERVICE then
1184: IF l_debug_level > 0 THEN
1185: oe_debug_pub.add('lchen-- Before calls OE_DELAYED_REQUESTS_UTIL.CASCADE_SERVICE_FOR_OPTIONS', 1);
1186: END IF;
1187: OE_DELAYED_REQUESTS_UTIL.CASCADE_SERVICE_FOR_OPTIONS
1188: ( x_return_status => l_return_status
1189: , p_option_line_id => l_entity_id
1188: ( x_return_status => l_return_status
1189: , p_option_line_id => l_entity_id
1190: );
1191: IF l_debug_level > 0 THEN
1192: oe_debug_pub.add('lchen-- After calls OE_DELAYED_REQUESTS_UTIL.CASCADE_SERVICE_FOR_OPTIONS', 1);
1193: END IF;
1194:
1195: -- added by lkxu: to copy pricing attributes
1196: ELSIF l_request_type = OE_GLOBALS.G_COPY_PRICING_ATTRIBUTES THEN
1324: ( p_request_rec => l_request_rec
1325: , x_return_status => l_return_status);
1326:
1327: IF l_debug_level > 0 THEN
1328: oe_debug_pub.add('Group Schedule Return Status ' || l_return_status,1);
1329: END IF;
1330: -- 4026758
1331: ELSIF l_request_type =
1332: OE_GLOBALS.G_DELETE_SET THEN
1351: END LOOP;
1352:
1353: oe_set_util.Delete_Set(p_request_rec => l_request_rec
1354: , x_return_status => l_return_status);
1355: oe_debug_pub.add('Delete Set Return Status ' || l_return_status,1);
1356: ELSIF (l_request_type =
1357: OE_GLOBALS.G_SCHEDULE_LINE OR
1358: l_request_type =
1359: OE_GLOBALS.G_RESCHEDULE_LINE) then
1380:
1381: K := G_Delayed_Requests.NEXT(K);
1382: END LOOP;
1383: IF l_debug_level > 0 THEN
1384: oe_debug_pub.add('Calling Sch_Line with '|| l_sch_set_tbl.count,1);
1385: END IF;
1386:
1387: -- Commented out the below code -Bug4504362
1388: OE_GROUP_SCH_UTIL.Schedule_Set_lines
1390: , x_return_status => l_return_status);
1391:
1392:
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add('After Calling Sch_Line: '|| l_return_status,1);
1395: END IF;
1396:
1397: -- If Schedule_Line is success for all the lines, mark
1398: -- the request for others lines as processed.
1422:
1423: -- bug 1829201, commitment related changes.
1424: ELSIF l_request_type = OE_GLOBALS.G_CALCULATE_COMMITMENT THEN
1425: IF l_debug_level > 0 THEN
1426: oe_debug_pub.add('Calling procedure calculate_commtment!',1);
1427: END IF;
1428:
1429: --bug 3560198
1430: OE_Commitment_Pvt.calculate_commitment(
1440: );
1441: -- multiple payments
1442: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED THEN
1443: IF l_debug_level > 0 THEN
1444: oe_debug_pub.add('OEXVREQB param1 is: '||l_request_rec.param1,3);
1445: oe_debug_pub.add('OEXVREQB param2 is: '||l_request_rec.param2,3);
1446: oe_debug_pub.add('OEXVREQB param3 is: '||l_request_rec.param3,3);
1447: END IF;
1448: OE_Commitment_Pvt.update_commitment_applied
1441: -- multiple payments
1442: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED THEN
1443: IF l_debug_level > 0 THEN
1444: oe_debug_pub.add('OEXVREQB param1 is: '||l_request_rec.param1,3);
1445: oe_debug_pub.add('OEXVREQB param2 is: '||l_request_rec.param2,3);
1446: oe_debug_pub.add('OEXVREQB param3 is: '||l_request_rec.param3,3);
1447: END IF;
1448: OE_Commitment_Pvt.update_commitment_applied
1449: ( p_line_id => l_request_rec.entity_id
1442: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_COMMITMENT_APPLIED THEN
1443: IF l_debug_level > 0 THEN
1444: oe_debug_pub.add('OEXVREQB param1 is: '||l_request_rec.param1,3);
1445: oe_debug_pub.add('OEXVREQB param2 is: '||l_request_rec.param2,3);
1446: oe_debug_pub.add('OEXVREQB param3 is: '||l_request_rec.param3,3);
1447: END IF;
1448: OE_Commitment_Pvt.update_commitment_applied
1449: ( p_line_id => l_request_rec.entity_id
1450: ,p_amount => l_request_rec.param1
1456: -- Included for the Spares Management (ikon) project mshenoy
1457: -- For the delayed request type of Create Internal Req call the procedure
1458: ELSIF l_request_type = OE_GLOBALS.G_CREATE_INTERNAL_REQ THEN
1459: IF l_debug_level > 0 THEN
1460: oe_debug_pub.add(' Calling auto_create_internal_req hdr id '|| l_entity_id,1);
1461: END IF;
1462: OE_DELAYED_REQUESTS_UTIL.auto_create_internal_req
1463: ( p_ord_header_id => l_entity_id
1464: ,x_return_status => l_return_status);
1462: OE_DELAYED_REQUESTS_UTIL.auto_create_internal_req
1463: ( p_ord_header_id => l_entity_id
1464: ,x_return_status => l_return_status);
1465: IF l_debug_level > 0 THEN
1466: oe_debug_pub.add('After Calling auto_create_internal_req ret_status : '|| l_return_status,1);
1467: END IF;
1468:
1469: /* Modified the following condition to fix the bug 6663462 */
1470:
1472: l_request_type = OE_GLOBALS.G_SCHEDULE_SMC OR
1473: l_request_type = OE_GLOBALS.G_SCHEDULE_NONSMC OR
1474: l_request_type = OE_GLOBALS.G_DELAYED_SCHEDULE THEN
1475: IF l_debug_level > 0 THEN
1476: oe_debug_pub.add('calling Process_Scheduling_Request');
1477: END IF;
1478: Process_Scheduling_Request
1479: ( p_request_ind => p_request_ind
1480: ,p_request_rec => l_request_rec
1479: ( p_request_ind => p_request_ind
1480: ,p_request_rec => l_request_rec
1481: ,x_return_status => l_return_status);
1482: IF l_debug_level > 0 THEN
1483: oe_debug_pub.add('Scheduling_Request '|| l_return_status);
1484: END IF;
1485: ---------
1486: -- Added by rsreeniv
1487: ----------
1486: -- Added by rsreeniv
1487: ----------
1488: ELSIF l_request_rec.request_type = OE_GLOBALS.G_FREIGHT_FOR_INCLUDED THEN
1489: IF l_debug_level > 0 THEN
1490: Oe_Debug_pub.Add('Before Executing Delayed request Freight for included for '||l_request_rec.entity_id);
1491: Oe_Debug_pub.Add('Before Order Price - Freight');
1492: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1493: END IF;
1494: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
1487: ----------
1488: ELSIF l_request_rec.request_type = OE_GLOBALS.G_FREIGHT_FOR_INCLUDED THEN
1489: IF l_debug_level > 0 THEN
1490: Oe_Debug_pub.Add('Before Executing Delayed request Freight for included for '||l_request_rec.entity_id);
1491: Oe_Debug_pub.Add('Before Order Price - Freight');
1492: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1493: END IF;
1494: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
1495: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
1488: ELSIF l_request_rec.request_type = OE_GLOBALS.G_FREIGHT_FOR_INCLUDED THEN
1489: IF l_debug_level > 0 THEN
1490: Oe_Debug_pub.Add('Before Executing Delayed request Freight for included for '||l_request_rec.entity_id);
1491: Oe_Debug_pub.Add('Before Order Price - Freight');
1492: Oe_Debug_pub.Add('The Event is '||l_request_rec.param2);
1493: END IF;
1494: l_Price_Control_Rec.pricing_event := l_request_rec.param2;
1495: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
1496: l_Price_Control_Rec.Simulation_Flag := 'N';
1525: ,p_request_rec => l_request_rec
1526: ,x_line_Tbl => l_Line_Tbl
1527: );
1528: IF l_debug_level > 0 THEN
1529: Oe_Debug_pub.Add('After Header Price');
1530: Oe_Debug_pub.Add('After Executing Delayed request Price line for '||l_request_rec.entity_id);
1531: END IF;
1532: --MRG BGN
1533: ELSIF l_request_type = OE_GLOBALS.G_MARGIN_HOLD THEN
1526: ,x_line_Tbl => l_Line_Tbl
1527: );
1528: IF l_debug_level > 0 THEN
1529: Oe_Debug_pub.Add('After Header Price');
1530: Oe_Debug_pub.Add('After Executing Delayed request Price line for '||l_request_rec.entity_id);
1531: END IF;
1532: --MRG BGN
1533: ELSIF l_request_type = OE_GLOBALS.G_MARGIN_HOLD THEN
1534: IF l_debug_level > 0 THEN
1531: END IF;
1532: --MRG BGN
1533: ELSIF l_request_type = OE_GLOBALS.G_MARGIN_HOLD THEN
1534: IF l_debug_level > 0 THEN
1535: oe_debug_pub.add('From delayed request: executing Oe_Margin_Pvt.Margin_Hold');
1536: END IF;
1537: Oe_Margin_Pvt.Margin_Hold(p_header_id => l_request_rec.entity_id);
1538: --MRG END
1539: -------------
1543:
1544: --MRG BGN
1545: ELSIF l_request_type = OE_GLOBALS.G_GET_COST THEN
1546: IF l_debug_level > 0 THEN
1547: oe_debug_pub.add('From delayed request: executing Oe_Margin_Pvt.Get_Cost');
1548: END IF;
1549: l_unit_cost := Oe_Margin_Pvt.Get_Cost(p_request_rec => l_request_rec);
1550: --MRG END
1551:
1551:
1552:
1553: ELSIF l_request_type = OE_GLOBALS.G_DEL_CHG_LINES Then
1554: IF l_debug_level > 0 THEN
1555: oe_debug_pub.add('Executing Delete_Changed_Lines delayed request');
1556: END IF;
1557:
1558: Oe_Line_Adj_Util.Delete_Changed_Lines_Tbl;
1559: IF l_debug_level > 0 THEN
1556: END IF;
1557:
1558: Oe_Line_Adj_Util.Delete_Changed_Lines_Tbl;
1559: IF l_debug_level > 0 THEN
1560: oe_debug_pub.add('After Delete_Changed_Lines delayed request');
1561: END IF;
1562:
1563: ELSIF l_request_type = OE_GLOBALS.G_VERSION_AUDIT THEN
1564:
1616:
1617: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_HDR_PAYMENT then
1618:
1619: IF l_debug_level > 0 THEN
1620: oe_debug_pub.add('param1 is : ' || l_request_rec.param1);
1621: oe_debug_pub.add('param2 is : ' || l_request_rec.param2);
1622: oe_debug_pub.add('entity id is : ' || l_request_rec.entity_id);
1623: oe_debug_pub.add('entity code is : ' || l_request_rec.entity_code);
1624: END IF;
1617: ELSIF l_request_type = OE_GLOBALS.G_UPDATE_HDR_PAYMENT then
1618:
1619: IF l_debug_level > 0 THEN
1620: oe_debug_pub.add('param1 is : ' || l_request_rec.param1);
1621: oe_debug_pub.add('param2 is : ' || l_request_rec.param2);
1622: oe_debug_pub.add('entity id is : ' || l_request_rec.entity_id);
1623: oe_debug_pub.add('entity code is : ' || l_request_rec.entity_code);
1624: END IF;
1625:
1618:
1619: IF l_debug_level > 0 THEN
1620: oe_debug_pub.add('param1 is : ' || l_request_rec.param1);
1621: oe_debug_pub.add('param2 is : ' || l_request_rec.param2);
1622: oe_debug_pub.add('entity id is : ' || l_request_rec.entity_id);
1623: oe_debug_pub.add('entity code is : ' || l_request_rec.entity_code);
1624: END IF;
1625:
1626: IF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE_PAYMENT
1619: IF l_debug_level > 0 THEN
1620: oe_debug_pub.add('param1 is : ' || l_request_rec.param1);
1621: oe_debug_pub.add('param2 is : ' || l_request_rec.param2);
1622: oe_debug_pub.add('entity id is : ' || l_request_rec.entity_id);
1623: oe_debug_pub.add('entity code is : ' || l_request_rec.entity_code);
1624: END IF;
1625:
1626: IF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE_PAYMENT
1627: AND l_request_rec.param1 = 'UPDATE_LINE' THEN
1633: payment_line_id := NULL;
1634: END IF;
1635:
1636: IF l_debug_level > 0 THEN
1637: oe_debug_pub.add('header id for update_hdr_payment is : ' || payment_header_id,3);
1638: oe_debug_pub.add('line id for update_hdr_payment is : ' || payment_line_id,3);
1639: END IF;
1640:
1641: OE_PrePayment_Pvt.Update_Hdr_Payment (
1634: END IF;
1635:
1636: IF l_debug_level > 0 THEN
1637: oe_debug_pub.add('header id for update_hdr_payment is : ' || payment_header_id,3);
1638: oe_debug_pub.add('line id for update_hdr_payment is : ' || payment_line_id,3);
1639: END IF;
1640:
1641: OE_PrePayment_Pvt.Update_Hdr_Payment (
1642: p_header_id => payment_header_id
1649:
1650: ELSIF l_request_type = OE_GLOBALS.G_APPLY_PPP_HOLD THEN
1651: --bug3507871 start
1652: IF l_debug_level > 0 THEN
1653: oe_debug_pub.add('Before calling Process_Payments for applying PPP hold');
1654: END IF;
1655:
1656: OE_PREPAYMENT_PVT.Process_Payments(
1657: p_header_id => l_request_rec.entity_id,
1664: --bug3507871 end
1665: --bug3625027 start
1666: ELSIF l_request_type = OE_GLOBALS.G_PROCESS_PAYMENT THEN
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add('Request Type: '||l_request_type);
1669: END IF;
1670: IF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT THEN
1671: IF l_debug_level > 0 THEN
1672: oe_debug_pub.add('Before calling Process_Payments Procedure at the header level');
1668: oe_debug_pub.add('Request Type: '||l_request_type);
1669: END IF;
1670: IF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER_PAYMENT THEN
1671: IF l_debug_level > 0 THEN
1672: oe_debug_pub.add('Before calling Process_Payments Procedure at the header level');
1673: END IF;
1674:
1675: OE_PREPAYMENT_PVT.Process_Payments(
1676: p_header_id => l_request_rec.entity_id,
1683: x_msg_count => l_msg_count,
1684: x_return_status => l_return_status);
1685: ELSIF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_LINE_PAYMENT THEN
1686: IF l_debug_level > 0 THEN
1687: oe_debug_pub.add('Before calling Process_Payments Procedure at the line level');
1688: END IF;
1689:
1690: OE_PREPAYMENT_PVT.Process_Payments(
1691: p_header_id => l_request_rec.entity_id,
1710: payment_line_id := NULL;
1711: END IF;
1712:
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add('header id for delete_payment_hold is : ' || payment_header_id,3);
1715: oe_debug_pub.add('line id for delete_payment_hold is : ' || payment_line_id,3);
1716: END IF;
1717:
1718: OE_PrePayment_Pvt.Delete_Payment_Hold
1711: END IF;
1712:
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add('header id for delete_payment_hold is : ' || payment_header_id,3);
1715: oe_debug_pub.add('line id for delete_payment_hold is : ' || payment_line_id,3);
1716: END IF;
1717:
1718: OE_PrePayment_Pvt.Delete_Payment_Hold
1719: ( p_line_id => payment_line_id
1759: old_invoice_to_org_id := to_number(l_request_rec.param1);
1760: END IF;
1761:
1762: IF l_debug_level > 0 THEN
1763: oe_debug_pub.add('header id for delete_payments is : ' || payment_header_id,3);
1764: oe_debug_pub.add('line id for delete_payments is : ' || payment_line_id,3);
1765: END IF;
1766:
1767: OE_PrePayment_Pvt.Delete_Payments
1760: END IF;
1761:
1762: IF l_debug_level > 0 THEN
1763: oe_debug_pub.add('header id for delete_payments is : ' || payment_header_id,3);
1764: oe_debug_pub.add('line id for delete_payments is : ' || payment_line_id,3);
1765: END IF;
1766:
1767: OE_PrePayment_Pvt.Delete_Payments
1768: ( p_line_id => payment_line_id
1830: --ELSE
1831: -- G_Delayed_Requests(p_request_ind).processed := 'Y';
1832: --END IF;
1833: IF l_debug_level > 0 THEN
1834: oe_debug_pub.add('leaving Process_Request_Pvt', 1);
1835: END IF;
1836: EXCEPTION
1837:
1838: WHEN FND_API.G_EXC_ERROR THEN
1835: END IF;
1836: EXCEPTION
1837:
1838: WHEN FND_API.G_EXC_ERROR THEN
1839: oe_debug_pub.add('exe error Process_Request_Pvt', 1);
1840: G_Delayed_Requests(p_request_ind).processed := 'N';
1841: oe_debug_pub.add
1842: ('1 type----- '|| G_Delayed_Requests(p_request_ind).request_type, 1);
1843: oe_debug_pub.add
1837:
1838: WHEN FND_API.G_EXC_ERROR THEN
1839: oe_debug_pub.add('exe error Process_Request_Pvt', 1);
1840: G_Delayed_Requests(p_request_ind).processed := 'N';
1841: oe_debug_pub.add
1842: ('1 type----- '|| G_Delayed_Requests(p_request_ind).request_type, 1);
1843: oe_debug_pub.add
1844: ('1 ind----- '|| p_request_ind, 1);
1845: x_return_status := FND_API.G_RET_STS_ERROR;
1839: oe_debug_pub.add('exe error Process_Request_Pvt', 1);
1840: G_Delayed_Requests(p_request_ind).processed := 'N';
1841: oe_debug_pub.add
1842: ('1 type----- '|| G_Delayed_Requests(p_request_ind).request_type, 1);
1843: oe_debug_pub.add
1844: ('1 ind----- '|| p_request_ind, 1);
1845: x_return_status := FND_API.G_RET_STS_ERROR;
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1844: ('1 ind----- '|| p_request_ind, 1);
1845: x_return_status := FND_API.G_RET_STS_ERROR;
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1848: oe_debug_pub.add('unexp error Process_Request_Pvt', 1);
1849: oe_debug_pub.add('SQL ERROR MESSAGE:'||SQLERRM);
1850: G_Delayed_Requests(p_request_ind).processed := 'N';
1851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1852:
1845: x_return_status := FND_API.G_RET_STS_ERROR;
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1848: oe_debug_pub.add('unexp error Process_Request_Pvt', 1);
1849: oe_debug_pub.add('SQL ERROR MESSAGE:'||SQLERRM);
1850: G_Delayed_Requests(p_request_ind).processed := 'N';
1851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1852:
1853: WHEN NO_DATA_FOUND THEN
1850: G_Delayed_Requests(p_request_ind).processed := 'N';
1851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1852:
1853: WHEN NO_DATA_FOUND THEN
1854: oe_debug_pub.add('Exiting Process_Request_Pvt no_data_found exception ');
1855: G_Delayed_Requests(p_request_ind).processed := 'N';
1856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1857:
1858:
1865: END IF;
1866:
1867: WHEN OTHERS THEN
1868: G_Delayed_Requests(p_request_ind).processed := 'N';
1869: oe_debug_pub.add('SQL ERROR MESSAGE FOR WHEN OTHRES:'||SQLERRM);
1870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1871:
1872: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1873: THEN
1876: , 'Process_Request_Pvt'
1877: );
1878: END IF;
1879:
1880: oe_debug_pub.add('Exiting Process_Request_Pvt with others exception ');
1881:
1882:
1883: End Process_Request_Pvt;
1884:
1940: l_req_entity_ind NUMBER;
1941: l_request OE_Order_PUB.REQUEST_REC_TYPE;
1942: l_req_entity OE_Order_PUB.Requesting_Entity_Rec_Type;
1943: l_log_request VARCHAR2(1);
1944: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1945: BEGIN
1946:
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add('Entering Procedure Log_Request in Package OE_Delayed_Requests_Pvt, entity id: '||p_entity_id||', request type:'||p_request_type);
1944: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1945: BEGIN
1946:
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add('Entering Procedure Log_Request in Package OE_Delayed_Requests_Pvt, entity id: '||p_entity_id||', request type:'||p_request_type);
1949: END IF;
1950:
1951: -- Initialize the request_record
1952: l_request.request_type := p_request_type;
2030: AND nvl(l_request.request_unique_key2,'N') = 'N')
2031: AND l_request_search_rslt = FND_API.g_false THEN
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add('In log_request, calling check_pricing_request.',3);
2035: oe_debug_pub.add('request_unique_key1 is: '||l_request.request_unique_key1,3);
2036: oe_debug_pub.add('request_unique_key2 is: '||l_request.request_unique_key2,3);
2037: END IF;
2038: Check_Pricing_Request
2031: AND l_request_search_rslt = FND_API.g_false THEN
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add('In log_request, calling check_pricing_request.',3);
2035: oe_debug_pub.add('request_unique_key1 is: '||l_request.request_unique_key1,3);
2036: oe_debug_pub.add('request_unique_key2 is: '||l_request.request_unique_key2,3);
2037: END IF;
2038: Check_Pricing_Request
2039: ( p_request_ind => l_request_ind
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add('In log_request, calling check_pricing_request.',3);
2035: oe_debug_pub.add('request_unique_key1 is: '||l_request.request_unique_key1,3);
2036: oe_debug_pub.add('request_unique_key2 is: '||l_request.request_unique_key2,3);
2037: END IF;
2038: Check_Pricing_Request
2039: ( p_request_ind => l_request_ind
2040: ,p_request_rec => l_request
2047:
2048: --Bug 7566697
2049: IF oe_mass_change_pvt.Lines_Remaining = 'Y'
2050: THEN
2051: oe_debug_pub.add('Called from Mass Change, line remaining, NOT logging pricing request');
2052: RETURN;
2053: ELSE
2054: oe_debug_pub.add('Called from Mass Change, last line reached, logging pricing request');
2055: END IF;
2050: THEN
2051: oe_debug_pub.add('Called from Mass Change, line remaining, NOT logging pricing request');
2052: RETURN;
2053: ELSE
2054: oe_debug_pub.add('Called from Mass Change, last line reached, logging pricing request');
2055: END IF;
2056:
2057: END IF;
2058:
2080:
2081: IF l_request_search_rslt = FND_API.g_true -- replace the request
2082: THEN
2083: IF l_debug_level > 0 THEN
2084: OE_Debug_PUB.ADD('Request replaced');
2085: END IF;
2086:
2087: IF g_delayed_requests(l_request_ind).request_type =
2088: OE_GLOBALS.G_CASCADE_CHANGES THEN
2086:
2087: IF g_delayed_requests(l_request_ind).request_type =
2088: OE_GLOBALS.G_CASCADE_CHANGES THEN
2089: IF l_debug_level > 0 THEN
2090: OE_Debug_PUB.ADD('cascade changes, orig qty '||
2091: g_delayed_requests(l_request_ind).param1, 3);
2092: END IF;
2093: l_request.param1 := g_delayed_requests(l_request_ind).param1;
2094:
2094:
2095: ELSIF g_delayed_requests(l_request_ind).request_type =
2096: OE_GLOBALS.G_UPDATE_OPTION THEN
2097: IF l_debug_level > 0 THEN
2098: OE_Debug_PUB.ADD('update option, orig qty '||
2099: g_delayed_requests(l_request_ind).param4, 3);
2100: END IF;
2101:
2102: l_request.param4 := g_delayed_requests(l_request_ind).param4;
2105: -- BLANKETS: exception for blankets to retain old parameters
2106: ELSIF p_request_type = OE_GLOBALS.G_PROCESS_RELEASE
2107: THEN
2108: IF l_debug_level > 0 THEN
2109: oe_debug_pub.add('Retain parameters for old values');
2110: END IF;
2111: l_request.param1 := g_delayed_requests(l_request_ind).param1;
2112: l_request.param2 := g_delayed_requests(l_request_ind).param2;
2113: l_request.param3 := g_delayed_requests(l_request_ind).param3;
2227:
2228:
2229: ELSIF p_request_type = OE_GLOBALS.G_UPDATE_REQUISITION THEN
2230: IF l_debug_level > 0 THEN
2231: oe_debug_pub.add('Type: G_UPDATE_REQUISITION, retain old parameter values',5);
2232: END IF;
2233:
2234: IF g_delayed_requests(l_request_ind).param1 IS NOT NULL
2235: AND l_request.param1 IS NULL THEN
2233:
2234: IF g_delayed_requests(l_request_ind).param1 IS NOT NULL
2235: AND l_request.param1 IS NULL THEN
2236: IF l_debug_level > 0 THEN
2237: oe_debug_pub.add(' Retaining Delta Quantity change for index '||l_request_ind,5);
2238: oe_debug_pub.add(' Old Delta Quantity change is '||g_delayed_requests(l_request_ind).param1,5);
2239: oe_debug_pub.add(' New Delta Quantity change is NULL',5);
2240: END IF;
2241: l_request.param1 := g_delayed_requests(l_request_ind).param1;
2234: IF g_delayed_requests(l_request_ind).param1 IS NOT NULL
2235: AND l_request.param1 IS NULL THEN
2236: IF l_debug_level > 0 THEN
2237: oe_debug_pub.add(' Retaining Delta Quantity change for index '||l_request_ind,5);
2238: oe_debug_pub.add(' Old Delta Quantity change is '||g_delayed_requests(l_request_ind).param1,5);
2239: oe_debug_pub.add(' New Delta Quantity change is NULL',5);
2240: END IF;
2241: l_request.param1 := g_delayed_requests(l_request_ind).param1;
2242: -- Retaining the delta quantity change value if the new delta change is null, which could
2235: AND l_request.param1 IS NULL THEN
2236: IF l_debug_level > 0 THEN
2237: oe_debug_pub.add(' Retaining Delta Quantity change for index '||l_request_ind,5);
2238: oe_debug_pub.add(' Old Delta Quantity change is '||g_delayed_requests(l_request_ind).param1,5);
2239: oe_debug_pub.add(' New Delta Quantity change is NULL',5);
2240: END IF;
2241: l_request.param1 := g_delayed_requests(l_request_ind).param1;
2242: -- Retaining the delta quantity change value if the new delta change is null, which could
2243: -- be typically a case when user will change the order quantity first, and then the
2245: END IF;
2246:
2247: IF NVL(g_delayed_requests(l_request_ind).param2,'N') = 'Y' THEN
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add(' Retaining Header Level Cancellation Flag for index '||l_request_ind,5);
2250: oe_debug_pub.add(' Old Header Level Cancelation flag is '||g_delayed_requests(l_request_ind).param2,5);
2251: oe_debug_pub.add(' New Header Level Cancelation flag is '||l_request.param2,5);
2252: END IF;
2253: l_request.param2 := g_delayed_requests(l_request_ind).param2;
2246:
2247: IF NVL(g_delayed_requests(l_request_ind).param2,'N') = 'Y' THEN
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add(' Retaining Header Level Cancellation Flag for index '||l_request_ind,5);
2250: oe_debug_pub.add(' Old Header Level Cancelation flag is '||g_delayed_requests(l_request_ind).param2,5);
2251: oe_debug_pub.add(' New Header Level Cancelation flag is '||l_request.param2,5);
2252: END IF;
2253: l_request.param2 := g_delayed_requests(l_request_ind).param2;
2254: -- Order Header is requested for cancellation
2247: IF NVL(g_delayed_requests(l_request_ind).param2,'N') = 'Y' THEN
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add(' Retaining Header Level Cancellation Flag for index '||l_request_ind,5);
2250: oe_debug_pub.add(' Old Header Level Cancelation flag is '||g_delayed_requests(l_request_ind).param2,5);
2251: oe_debug_pub.add(' New Header Level Cancelation flag is '||l_request.param2,5);
2252: END IF;
2253: l_request.param2 := g_delayed_requests(l_request_ind).param2;
2254: -- Order Header is requested for cancellation
2255: END IF;
2255: END IF;
2256:
2257: IF g_delayed_requests(l_request_ind).param3 IS NOT NULL THEN
2258: IF l_debug_level > 0 THEN
2259: oe_debug_pub.add(' Incrementing the counter for lines to be cancelled for index '||l_request_ind,5);
2260: oe_debug_pub.add(' Old counter value is '||g_delayed_requests(l_request_ind).param3,5);
2261: END IF;
2262: l_request.param3 := nvl(l_request.param3,0) + g_delayed_requests(l_request_ind).param3;
2263: IF l_debug_level > 0 THEN
2256:
2257: IF g_delayed_requests(l_request_ind).param3 IS NOT NULL THEN
2258: IF l_debug_level > 0 THEN
2259: oe_debug_pub.add(' Incrementing the counter for lines to be cancelled for index '||l_request_ind,5);
2260: oe_debug_pub.add(' Old counter value is '||g_delayed_requests(l_request_ind).param3,5);
2261: END IF;
2262: l_request.param3 := nvl(l_request.param3,0) + g_delayed_requests(l_request_ind).param3;
2263: IF l_debug_level > 0 THEN
2264: oe_debug_pub.add(' New counter value is '||l_request.param3,5);
2260: oe_debug_pub.add(' Old counter value is '||g_delayed_requests(l_request_ind).param3,5);
2261: END IF;
2262: l_request.param3 := nvl(l_request.param3,0) + g_delayed_requests(l_request_ind).param3;
2263: IF l_debug_level > 0 THEN
2264: oe_debug_pub.add(' New counter value is '||l_request.param3,5);
2265: END IF;
2266: -- Counter maintaining number of order line records cancelled during
2267: -- the order header level (Full/Partial) cancellation request
2268: END IF;
2269:
2270: IF l_request.long_param1 IS NOT NULL THEN
2271: IF g_delayed_requests(l_request_ind).long_param1 IS NOT NULL THEN
2272: IF l_debug_level > 0 THEN
2273: oe_debug_pub.add(' Line_ids to be cancelled for index '||l_request_ind,5);
2274: oe_debug_pub.add(' Old Line_ids are '||g_delayed_requests(l_request_ind).long_param1,5);
2275: END IF;
2276: l_request.long_param1 := g_delayed_requests(l_request_ind).long_param1||','|| l_request.long_param1;
2277: IF l_debug_level > 0 THEN
2270: IF l_request.long_param1 IS NOT NULL THEN
2271: IF g_delayed_requests(l_request_ind).long_param1 IS NOT NULL THEN
2272: IF l_debug_level > 0 THEN
2273: oe_debug_pub.add(' Line_ids to be cancelled for index '||l_request_ind,5);
2274: oe_debug_pub.add(' Old Line_ids are '||g_delayed_requests(l_request_ind).long_param1,5);
2275: END IF;
2276: l_request.long_param1 := g_delayed_requests(l_request_ind).long_param1||','|| l_request.long_param1;
2277: IF l_debug_level > 0 THEN
2278: oe_debug_pub.add(' New Line_ids are '||l_request.long_param1,5);
2274: oe_debug_pub.add(' Old Line_ids are '||g_delayed_requests(l_request_ind).long_param1,5);
2275: END IF;
2276: l_request.long_param1 := g_delayed_requests(l_request_ind).long_param1||','|| l_request.long_param1;
2277: IF l_debug_level > 0 THEN
2278: oe_debug_pub.add(' New Line_ids are '||l_request.long_param1,5);
2279: END IF;
2280: -- A string variable containing line_ids, which are cancelled during
2281: -- the Order Header level (Full/Partial) cancellation request
2282: -- In this string, the Line_ids will be separated by a delimiter comma ','
2283: END IF;
2284: ELSE
2285: l_request.long_param1 := g_delayed_requests(l_request_ind).long_param1;
2286: IF l_debug_level > 0 THEN
2287: oe_debug_pub.add(' Only old Line_ids are retained '||l_request.long_param1,5);
2288: END IF;
2289: -- Since this request has not passed the line_id, just retain the global
2290: END IF;
2291:
2291:
2292: IF g_delayed_requests(l_request_ind).date_param1 IS NOT NULL
2293: AND l_request.date_param1 IS NULL THEN
2294: IF l_debug_level > 0 THEN
2295: oe_debug_pub.add(' Retain Old date_param1 : '||g_delayed_requests(l_request_ind).date_param1,5);
2296: END IF;
2297: l_request.date_param1 := g_delayed_requests(l_request_ind).date_param1;
2298: END IF;
2299:
2307: g_delayed_requests(l_request_ind) := l_request;
2308:
2309: ELSE -- insert the new request
2310: IF l_debug_level > 0 THEN
2311: OE_Debug_PUB.ADD('New request inserted');
2312: END IF;
2313: -- l_request_ind := nvl(g_delayed_requests.LAST, 0) + 1;
2314:
2315: -- 11i10 Pricing Changes for blankets
2340:
2341: -- Insert into the requesting entities table
2342: g_requesting_entities(l_req_entity_ind) := l_req_entity;
2343: IF l_debug_level > 0 THEN
2344: oe_debug_pub.add('!!!!!!! index '|| l_request_ind, 5);
2345: END IF;
2346: EXCEPTION
2347:
2348: WHEN FND_API.G_EXC_ERROR THEN
2416: l_return_status Varchar2(1);
2417: l_request_ind number;
2418: l_req_entity_ind number;
2419: --
2420: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2421: --
2422: BEGIN
2423: IF l_debug_level > 0 THEN
2424: oe_debug_pub.add('Entering Procedure Delete_Request in Package OE_Delayed_Requests_Pvt');
2420: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2421: --
2422: BEGIN
2423: IF l_debug_level > 0 THEN
2424: oe_debug_pub.add('Entering Procedure Delete_Request in Package OE_Delayed_Requests_Pvt');
2425: END IF;
2426: x_return_status := FND_API.G_RET_STS_SUCCESS;
2427:
2428: Check_for_Request( p_entity_code => p_entity_code
2491: Procedure Clear_Request( x_return_status OUT NOCOPY VARCHAR2)
2492:
2493: IS
2494: --
2495: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2496: --
2497: BEGIN
2498: IF l_debug_level > 0 THEN
2499: oe_debug_pub.add('Entering Procedure Clear_Request in Package OE_Delayed_Requests_Pvt');
2495: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2496: --
2497: BEGIN
2498: IF l_debug_level > 0 THEN
2499: oe_debug_pub.add('Entering Procedure Clear_Request in Package OE_Delayed_Requests_Pvt');
2500: END IF;
2501:
2502: x_return_status := FND_API.G_RET_STS_SUCCESS;
2503:
2548: l_request_ind Number;
2549: l_request_search_rslt Varchar2(30);
2550: l_return_status Varchar2(30);
2551: --
2552: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2553: --
2554: Begin
2555: x_return_status := FND_API.G_RET_STS_SUCCESS;
2556: IF l_debug_level > 0 THEN
2553: --
2554: Begin
2555: x_return_status := FND_API.G_RET_STS_SUCCESS;
2556: IF l_debug_level > 0 THEN
2557: oe_debug_pub.add('Entering Procedure Process_Request in Package OE_Delayed_Requests_Pvt');
2558: END IF;
2559: Check_for_Request( p_entity_code => p_entity_code
2560: ,p_entity_id => p_entity_id
2561: ,p_request_type => p_request_type
2619:
2620: l_return_status Varchar2(30);
2621: l_ind Number;
2622: --
2623: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2624: --
2625: Begin
2626: oe_order_pvt.set_recursion_mode(p_Entity_Code => 9,
2627: p_In_out => 1);
2627: p_In_out => 1);
2628:
2629: x_return_status := FND_API.G_RET_STS_SUCCESS;
2630: IF l_debug_level > 0 THEN
2631: oe_debug_pub.add('Enter OE_Delayed_Requests_Pvt.Process_Request_for_Entity',1);
2632: END IF;
2633: IF oe_globals.g_recursion_mode = 'N' THEN
2634:
2635:
2646: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2649: IF l_debug_level > 0 THEN
2650: oe_debug_pub.add
2651: ('2 type----- '|| G_Delayed_Requests(l_ind).request_type, 1);
2652: oe_debug_pub.add
2653: ('2 ind----- '|| l_ind, 1);
2654: END IF;
2648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2649: IF l_debug_level > 0 THEN
2650: oe_debug_pub.add
2651: ('2 type----- '|| G_Delayed_Requests(l_ind).request_type, 1);
2652: oe_debug_pub.add
2653: ('2 ind----- '|| l_ind, 1);
2654: END IF;
2655: RAISE FND_API.G_EXC_ERROR;
2656: END IF;
2659: END LOOP;
2660: END IF; -- Recursion mode
2661:
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add('Exiting Process_Request_for_Entity ');
2664: END IF;
2665:
2666: oe_order_pvt.set_recursion_mode(p_Entity_Code => 9,
2667: p_In_out => 0);
2689: , 'Process_Request_for_Entity'
2690: );
2691: END IF;
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add('Exiting Process_Request_for_Entity ');
2694: END IF;
2695:
2696: End Process_Request_for_Entity;
2697:
2708: l_req_entity_ind Number;
2709:
2710: l_entity_id_tbl Entity_Id_Tbl_Type;
2711: --
2712: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2713: --
2714: BEGIN
2715: x_return_status := FND_API.G_RET_STS_SUCCESS;
2716: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2715: x_return_status := FND_API.G_RET_STS_SUCCESS;
2716: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2717: p_In_out => 1);
2718: IF l_debug_level > 0 THEN
2719: oe_debug_pub.add('Entering Procedure Process_Request_for_ReqType in Package OE_Delayed_Requests_Pvt');
2720: END IF;
2721: --IF oe_globals.g_recursion_mode = 'N' THEN
2722: l_ind := G_Delayed_Requests.first;
2723: l_count := 0;
2780: --END IF ; -- Recursion mode
2781: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2782: p_In_out => 0);
2783: IF l_debug_level > 0 THEN
2784: oe_debug_pub.add('leaving process_requenst_for_reqtype', 1);
2785: END IF;
2786: EXCEPTION
2787:
2788: WHEN FND_API.G_EXC_ERROR THEN
2787:
2788: WHEN FND_API.G_EXC_ERROR THEN
2789: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2790: p_In_out => 0);
2791: oe_debug_pub.add('execution error', 1);
2792: x_return_status := FND_API.G_RET_STS_ERROR;
2793:
2794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2795: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2793:
2794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2795: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2796: p_In_out => 0);
2797: oe_debug_pub.add('unexp error', 1);
2798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2799:
2800: WHEN OTHERS THEN
2801: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2799:
2800: WHEN OTHERS THEN
2801: oe_order_pvt.set_recursion_mode(p_Entity_Code => 11,
2802: p_In_out => 0);
2803: oe_debug_pub.add('others error', 1);
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2805:
2806: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2807: THEN
2819: ) IS
2820: l_ind NUMBER; /* 1739574 */
2821: l_return_status Varchar2(30);
2822: --
2823: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2824: --
2825: Begin
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add('Enter OE_Delayed_Requests_Pvt.Process_Delayed_Requests');
2823: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2824: --
2825: Begin
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add('Enter OE_Delayed_Requests_Pvt.Process_Delayed_Requests');
2828: END IF;
2829: oe_order_pvt.set_recursion_mode(p_Entity_Code => 9,
2830: p_In_out => 1);
2831:
3352: END IF;
3353:
3354: --added by MShenoy for Spares Management ikon project - Create internal req.
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add(' Entering Procedure process_Delayed_Requests in Package OE_Delayed_Requests_Pvt');
3357: END IF;
3358:
3359: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
3360: (p_request_type =>OE_GLOBALS.G_CREATE_INTERNAL_REQ
3360: (p_request_type =>OE_GLOBALS.G_CREATE_INTERNAL_REQ
3361: ,p_delete => FND_API.G_TRUE
3362: ,x_return_status => l_return_status);
3363: IF l_debug_level > 0 THEN
3364: oe_debug_pub.add(' leaving Procedure process_Delayed_Requests in Package
3365: OE_Delayed_Requests_Pvt ret status '||l_return_status);
3366: END IF;
3367: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3401: ----------
3402:
3403: --MRG BGN
3404: IF l_debug_level > 0 THEN
3405: oe_debug_pub.add('before call to OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype in process_delayed_requests');
3406: END IF;
3407: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Reqtype
3408: (p_request_type => OE_GLOBALS.G_GET_COST
3409: ,p_delete => FND_API.G_TRUE
3514: /* Please do not put execution of any delayed request beyond this point */
3515: l_ind := G_Delayed_Requests.first;
3516:
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add('Global Request count-PDR-E'||G_Delayed_Requests.count,1);
3519: oe_debug_pub.add('*****l_ind :' || l_ind, 1);
3520: END IF;
3521:
3522: WHILE l_ind IS NOT NULL LOOP
3515: l_ind := G_Delayed_Requests.first;
3516:
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add('Global Request count-PDR-E'||G_Delayed_Requests.count,1);
3519: oe_debug_pub.add('*****l_ind :' || l_ind, 1);
3520: END IF;
3521:
3522: WHILE l_ind IS NOT NULL LOOP
3523: Process_Request_Pvt
3545: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3546: RAISE FND_API.G_EXC_ERROR;
3547: END IF;
3548: IF l_debug_level > 0 THEN
3549: oe_debug_pub.add('Global Request count-PDR-AL'||G_Delayed_Requests.count,1);
3550: END IF;
3551:
3552: -- clear the delayed request cache
3553: Clear_Request(x_return_status);
3595: IS
3596: l_request_rec OE_Order_PUB.request_rec_type;
3597: l_return_status VARCHAR2(1);
3598: --
3599: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3600: --
3601: l_header_id NUMBER;
3602: l_line_id NUMBER;
3603: l_order_source_id NUMBER;
3622: l_lines_list VARCHAR2(4000);
3623:
3624: BEGIN
3625: IF l_debug_level > 0 THEN
3626: oe_debug_pub.ADD('Entering OE_ORDER_PUB.PROCESS_ORDER_ACTIONS', 1);
3627: END IF;
3628:
3629: -- added for notification framework
3630: -- check code release leve first, notificaiont framework is at pack H
3635:
3636: FOR i IN 1..p_x_request_tbl.COUNT LOOP
3637: BEGIN
3638: IF l_debug_level > 0 THEN
3639: oe_debug_pub.ADD('Processing delayed requests # = '
3640: || To_char(i), 2);
3641: END IF;
3642:
3643: -- If request is already processed then loop around.
3647: END IF;
3648:
3649: l_request_rec := p_x_request_tbl(i);
3650: IF l_debug_level > 0 THEN
3651: oe_debug_pub.ADD('Request Type = '
3652: || l_request_rec.request_type, 2);
3653: END IF;
3654: IF l_request_rec.entity_code = 'HEADER' THEN
3655: l_header_id := l_request_rec.entity_id;
3655: l_header_id := l_request_rec.entity_id;
3656: IF l_request_rec.entity_id IS NOT NULL THEN
3657: BEGIN
3658: IF l_debug_level > 0 THEN
3659: oe_debug_pub.add('Getting reference data for header_id:'||l_header_id);
3660: END IF;
3661: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3662: source_document_type_id, source_document_id
3663: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
3683: l_line_id := l_request_rec.entity_id;
3684: IF l_request_rec.entity_id IS NOT NULL THEN
3685: BEGIN
3686: IF l_debug_level > 0 THEN
3687: oe_debug_pub.add('Getting reference data for line_id:'||l_request_rec.entity_id);
3688: END IF;
3689: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3690: source_document_type_id, source_document_id, orig_sys_line_ref,
3691: source_document_line_id, orig_sys_shipment_ref, header_id
3720: ELSIF l_request_rec.entity_code = 'HEADER_ADJ' THEN
3721: IF l_request_rec.entity_id IS NOT NULL THEN
3722: BEGIN
3723: IF l_debug_level > 0 THEN
3724: oe_debug_pub.add('Getting header_id of the header adjustment:'||l_request_rec.entity_id);
3725: END IF;
3726: SELECT header_id
3727: INTO l_header_id
3728: FROM oe_price_adjustments
3736: END IF;
3737: IF l_header_id IS NOT NULL THEN
3738: BEGIN
3739: IF l_debug_level > 0 THEN
3740: oe_debug_pub.add('Getting reference data for header_id:'||l_header_id);
3741: END IF;
3742: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3743: source_document_type_id, source_document_id
3744: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
3763: ELSIF l_request_rec.entity_code = 'LINE_ADJ' THEN
3764: IF l_request_rec.entity_id IS NOT NULL THEN
3765: BEGIN
3766: IF l_debug_level > 0 THEN
3767: oe_debug_pub.add('Getting line_id of the line adjustment:'||l_request_rec.entity_id);
3768: END IF;
3769: SELECT line_id
3770: INTO l_line_id
3771: FROM oe_price_adjustments
3779: END IF;
3780: IF l_line_id IS NOT NULL THEN
3781: BEGIN
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add('Getting reference data for line_id:'||l_line_id);
3784: END IF;
3785: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3786: source_document_type_id, source_document_id, orig_sys_line_ref,
3787: source_document_line_id, orig_sys_shipment_ref, header_id
3816: ELSIF l_request_rec.entity_code = 'HEADER_SCREDIT' THEN
3817: IF l_request_rec.entity_id IS NOT NULL THEN
3818: BEGIN
3819: IF l_debug_level > 0 THEN
3820: oe_debug_pub.add('Getting header_id of the header scredit:'||l_request_rec.entity_id);
3821: END IF;
3822: SELECT header_id
3823: INTO l_header_id
3824: FROM oe_sales_credits
3832: END IF;
3833: IF l_header_id IS NOT NULL THEN
3834: BEGIN
3835: IF l_debug_level > 0 THEN
3836: oe_debug_pub.add('Getting reference data for header_id:'||l_header_id);
3837: END IF;
3838: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3839: source_document_type_id, source_document_id
3840: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
3859: ELSIF l_request_rec.entity_code = 'LINE_SCREDIT' THEN
3860: IF l_request_rec.entity_id IS NOT NULL THEN
3861: BEGIN
3862: IF l_debug_level > 0 THEN
3863: oe_debug_pub.add('Getting line_id of the line scredit:'||l_request_rec.entity_id);
3864: END IF;
3865: SELECT line_id
3866: INTO l_line_id
3867: FROM oe_sales_credits
3875: END IF;
3876: IF l_line_id IS NOT NULL THEN
3877: BEGIN
3878: IF l_debug_level > 0 THEN
3879: oe_debug_pub.add('Getting reference data for line_id:'||l_line_id);
3880: END IF;
3881: SELECT order_source_id, orig_sys_document_ref, change_sequence,
3882: source_document_type_id, source_document_id, orig_sys_line_ref,
3883: source_document_line_id, orig_sys_shipment_ref, header_id
3924: ,p_source_document_type_id => l_source_document_type_id
3925: ,p_source_document_id => l_source_document_id
3926: ,p_source_document_line_id => l_source_document_line_id );
3927: IF l_debug_level > 0 THEN
3928: oe_debug_pub.add('Request Entity:'||l_request_rec.entity_code||
3929: ' Request ID:'||l_request_rec.entity_id);
3930: END IF;
3931:
3932: -- Action Request to Apply Automatic Attachments
3942: ELSIF l_request_rec.request_type = OE_GLOBALS.G_PRICE_ORDER THEN
3943: -- For ER 7243028
3944: IF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER THEN
3945: IF l_debug_level > 0 THEN
3946: oe_debug_pub.add('Before calling Price Order for :' || l_request_rec.entity_id, 5);
3947: END IF;
3948: OE_ORDER_ADJ_PVT.price_action
3949: (
3950: p_header_count => 1,
3974: end if;
3975: end loop;
3976:
3977: IF l_debug_level > 0 THEN
3978: oe_debug_pub.add('Before calling Price Line for count :' || l_lines_count || '; List : ' || l_lines_list, 5);
3979: END IF;
3980: OE_ORDER_ADJ_PVT.price_action
3981: (
3982: p_header_count => 0,
3989: x_msg_data => l_msg_data
3990: );
3991: ELSE
3992: IF l_debug_level > 0 THEN
3993: oe_debug_pub.add('Invalid entity given for Price Order Action. Entity has to be Header or Line', 5);
3994: END IF;
3995:
3996: FND_MESSAGE.SET_NAME('ONT','ONT_INVALID_REQUEST');
3997: FND_MESSAGE.SET_TOKEN('ACTION',l_request_rec.request_type);
4001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4002: END IF;
4003:
4004: IF l_debug_level > 0 THEN
4005: oe_debug_pub.add('After Price Order, Status : ' || l_return_status, 5);
4006: END IF;
4007:
4008: l_request_rec.processed := 'Y';
4009:
4016: -- End of ER 7243028
4017:
4018: ELSIF l_request_rec.request_type = OE_GLOBALS.G_APPLY_HOLD THEN
4019: IF l_debug_level > 0 THEN
4020: OE_Debug_PUB.ADD('Calling Apply_Hold', 2);
4021: END IF;
4022: OE_Delayed_Requests_UTIL.Apply_Hold
4023: (p_validation_level => p_validation_level,
4024: x_request_rec => l_request_rec);
4024: x_request_rec => l_request_rec);
4025:
4026: l_request_rec.processed := 'Y';
4027: IF l_debug_level > 0 THEN
4028: OE_Debug_PUB.ADD('After Calling Apply_hold', 2);
4029: END IF;
4030:
4031: ELSIF l_request_rec.request_type = OE_GLOBALS.G_RELEASE_HOLD THEN
4032: IF l_debug_level > 0 THEN
4029: END IF;
4030:
4031: ELSIF l_request_rec.request_type = OE_GLOBALS.G_RELEASE_HOLD THEN
4032: IF l_debug_level > 0 THEN
4033: OE_Debug_PUB.ADD('Calling Release_Hold', 2);
4034: END IF;
4035: OE_Delayed_Requests_UTIL.Release_Hold
4036: (p_validation_level => p_validation_level,
4037: x_request_rec => l_request_rec);
4036: (p_validation_level => p_validation_level,
4037: x_request_rec => l_request_rec);
4038: l_request_rec.processed := 'Y';
4039: IF l_debug_level > 0 THEN
4040: OE_Debug_PUB.ADD('After Calling Release_hold', 2);
4041: END IF;
4042: --R12 CVV2
4043: ELSIF l_request_rec.request_type = OE_GLOBALS.G_VERIFY_PAYMENT THEN
4044: /*comm rej IF nvl(l_request_rec.param2, 'HOLD') = 'REJECT' THEN
4068: l_request_rec.return_status := l_return_status;
4069: */
4070:
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add('Before call to Authrize Payment header_id is: ' || l_header_id);
4073: oe_debug_pub.add('Before call to Authrize Payment line_id is: ' || l_line_id);
4074: --comm rej oe_debug_pub.add('reject on auth is: ' || l_reject_on_auth_failure);
4075: --comm rej oe_debug_pub.add('reject on risk is: ' || l_reject_on_risk_failure);
4076: oe_debug_pub.add('risk eval flag is: ' || l_request_rec.param1);
4069: */
4070:
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add('Before call to Authrize Payment header_id is: ' || l_header_id);
4073: oe_debug_pub.add('Before call to Authrize Payment line_id is: ' || l_line_id);
4074: --comm rej oe_debug_pub.add('reject on auth is: ' || l_reject_on_auth_failure);
4075: --comm rej oe_debug_pub.add('reject on risk is: ' || l_reject_on_risk_failure);
4076: oe_debug_pub.add('risk eval flag is: ' || l_request_rec.param1);
4077: END IF;
4070:
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add('Before call to Authrize Payment header_id is: ' || l_header_id);
4073: oe_debug_pub.add('Before call to Authrize Payment line_id is: ' || l_line_id);
4074: --comm rej oe_debug_pub.add('reject on auth is: ' || l_reject_on_auth_failure);
4075: --comm rej oe_debug_pub.add('reject on risk is: ' || l_reject_on_risk_failure);
4076: oe_debug_pub.add('risk eval flag is: ' || l_request_rec.param1);
4077: END IF;
4078:
4071: IF l_debug_level > 0 THEN
4072: oe_debug_pub.add('Before call to Authrize Payment header_id is: ' || l_header_id);
4073: oe_debug_pub.add('Before call to Authrize Payment line_id is: ' || l_line_id);
4074: --comm rej oe_debug_pub.add('reject on auth is: ' || l_reject_on_auth_failure);
4075: --comm rej oe_debug_pub.add('reject on risk is: ' || l_reject_on_risk_failure);
4076: oe_debug_pub.add('risk eval flag is: ' || l_request_rec.param1);
4077: END IF;
4078:
4079: OE_Header_UTIL.Query_Row
4072: oe_debug_pub.add('Before call to Authrize Payment header_id is: ' || l_header_id);
4073: oe_debug_pub.add('Before call to Authrize Payment line_id is: ' || l_line_id);
4074: --comm rej oe_debug_pub.add('reject on auth is: ' || l_reject_on_auth_failure);
4075: --comm rej oe_debug_pub.add('reject on risk is: ' || l_reject_on_risk_failure);
4076: oe_debug_pub.add('risk eval flag is: ' || l_request_rec.param1);
4077: END IF;
4078:
4079: OE_Header_UTIL.Query_Row
4080: (p_header_id => l_header_id
4098:
4099: l_request_rec.return_status := l_return_status;
4100:
4101: IF l_debug_level > 0 THEN
4102: oe_debug_pub.add('After call to Authorizat Payment return status : ' || l_return_status);
4103: END IF;
4104:
4105: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4106: RAISE FND_API.G_EXC_ERROR;
4118: AND p_process_WF_requests) THEN
4119:
4120: IF l_request_rec.entity_code = OE_GLOBALS.G_ENTITY_HEADER THEN
4121: IF l_debug_level > 0 THEN
4122: OE_Debug_PUB.ADD('Calling Book Order');
4123: END IF;
4124: OE_Delayed_Requests_UTIL.Book_Order
4125: ( p_validation_level => p_validation_level
4126: , p_header_id => l_request_rec.entity_id
4134: OR l_request_rec.request_type = OE_GLOBALS.G_GET_SHIP_METHOD_AND_RATES) THEN
4135:
4136: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509' THEN
4137: IF l_debug_level > 0 THEN
4138: OE_DEBUG_PUB.Add('Calling Get Ship Method');
4139: END IF;
4140:
4141: -- Get_Ship_Method API not only gets ship method
4142: -- from FTE, but also can get freight rates
4289: oe_order_pvt.set_recursion_mode(p_Entity_Code => 10,
4290: p_In_out => 0);
4291: END IF;
4292: IF l_debug_level > 0 THEN
4293: oe_debug_pub.ADD('Exiting OE_ORDER_PUB.PROCESS_ORDER_ACTIONS', 1);
4294: END IF;
4295: OE_MSG_PUB.reset_msg_context(l_request_rec.entity_code);
4296:
4297: EXCEPTION
4335: req_ind number;
4336: request_delete BOOLEAN;
4337: version_request_id number := 0;
4338: --
4339: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4340: --
4341: BEGIN
4342:
4343:
4343:
4344:
4345: x_return_status := FND_API.G_RET_STS_SUCCESS;
4346: IF l_debug_level > 0 THEN
4347: oe_debug_pub.add('In Delete_Reqs_for_Deleted_Entity');
4348: oe_debug_pub.add('p_entity_code/p_entity_id' ||
4349: p_entity_code || '/' || p_entity_id);
4350: END IF;
4351:
4344:
4345: x_return_status := FND_API.G_RET_STS_SUCCESS;
4346: IF l_debug_level > 0 THEN
4347: oe_debug_pub.add('In Delete_Reqs_for_Deleted_Entity');
4348: oe_debug_pub.add('p_entity_code/p_entity_id' ||
4349: p_entity_code || '/' || p_entity_id);
4350: END IF;
4351:
4352: -- DELETING REQUESTS LOGGED AGAINST THIS ENTITY
4354: i := G_Delayed_Requests.first;
4355:
4356: WHILE i IS NOT NULL LOOP
4357: IF l_debug_level > 0 THEN
4358: oe_debug_pub.add('G_Delayed_Requests.entity_code/entity_id' ||
4359: G_Delayed_Requests(i).entity_code || '/' ||
4360: G_Delayed_Requests(i).entity_id);
4361: oe_debug_pub.add('G_Delayed_Requests.request_type' ||
4362: G_Delayed_Requests(i).request_type);
4357: IF l_debug_level > 0 THEN
4358: oe_debug_pub.add('G_Delayed_Requests.entity_code/entity_id' ||
4359: G_Delayed_Requests(i).entity_code || '/' ||
4360: G_Delayed_Requests(i).entity_id);
4361: oe_debug_pub.add('G_Delayed_Requests.request_type' ||
4362: G_Delayed_Requests(i).request_type);
4363:
4364: END IF;
4365:
4372: G_Delayed_Requests(i).entity_id = p_entity_id)
4373: )
4374: THEN
4375: IF l_debug_level > 0 THEN
4376: oe_debug_pub.add('Delete above request');
4377: END IF;
4378:
4379: -- delete records in requesting entity tables with this request
4380: j := G_Requesting_Entities.first;
4400: -- against the given entity.
4401:
4402: IF NOT p_delete_against THEN
4403: IF l_debug_level > 0 THEN
4404: oe_debug_pub.add('Delete against is FALSE');
4405: END IF;
4406:
4407:
4408: i := G_Requesting_Entities.first;
4445: -- deleting the delayed request
4446: IF request_delete
4447: AND G_Delayed_Requests.Exists(req_ind) THEN
4448: IF l_debug_level > 0 THEN
4449: oe_debug_pub.add('Delete following request =>');
4450: oe_debug_pub.add('G_Delayed_Requests.entity_code/entity_id' ||
4451: G_Delayed_Requests(req_ind).entity_code || '/' ||
4452: G_Delayed_Requests(req_ind).entity_id);
4453: oe_debug_pub.add('G_Delayed_Requests.request_type' ||
4446: IF request_delete
4447: AND G_Delayed_Requests.Exists(req_ind) THEN
4448: IF l_debug_level > 0 THEN
4449: oe_debug_pub.add('Delete following request =>');
4450: oe_debug_pub.add('G_Delayed_Requests.entity_code/entity_id' ||
4451: G_Delayed_Requests(req_ind).entity_code || '/' ||
4452: G_Delayed_Requests(req_ind).entity_id);
4453: oe_debug_pub.add('G_Delayed_Requests.request_type' ||
4454: G_Delayed_Requests(req_ind).request_type);
4449: oe_debug_pub.add('Delete following request =>');
4450: oe_debug_pub.add('G_Delayed_Requests.entity_code/entity_id' ||
4451: G_Delayed_Requests(req_ind).entity_code || '/' ||
4452: G_Delayed_Requests(req_ind).entity_id);
4453: oe_debug_pub.add('G_Delayed_Requests.request_type' ||
4454: G_Delayed_Requests(req_ind).request_type);
4455: END IF;
4456: -- Bug 3800577
4457: -- Reset versioning globals if version request is deleted
4458: IF G_Delayed_Requests(req_ind).request_type
4459: = OE_GLOBALS.G_VERSION_AUDIT
4460: THEN
4461: IF l_debug_level > 0 THEN
4462: oe_debug_pub.add('reset versioning globals');
4463: END IF;
4464: IF (NOT OE_Versioning_Util.Reset_Globals) THEN
4465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4466: END IF;
4513: l_ato_line_id NUMBER;
4514: l_res_changes VARCHAR2(1);
4515: l_request_tbl OE_Order_PUB.request_tbl_type;
4516: --
4517: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4518: --
4519: BEGIN
4520: IF l_debug_level > 0 THEN
4521: oe_debug_pub.add('sch request '|| p_request_rec.request_type, 1);
4517: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4518: --
4519: BEGIN
4520: IF l_debug_level > 0 THEN
4521: oe_debug_pub.add('sch request '|| p_request_rec.request_type, 1);
4522: END IF;
4523:
4524: x_return_status := FND_API.G_RET_STS_SUCCESS;
4525:
4524: x_return_status := FND_API.G_RET_STS_SUCCESS;
4525:
4526: IF p_request_rec.request_type = OE_GLOBALS.G_SCHEDULE_ATO THEN
4527: IF l_debug_level > 0 THEN
4528: oe_debug_pub.add('.. schedule_ato '|| p_request_rec.entity_id, 1);
4529: END IF;
4530:
4531: IF p_request_rec.param9 = 'Y' THEN
4532: K := p_request_ind;
4530:
4531: IF p_request_rec.param9 = 'Y' THEN
4532: K := p_request_ind;
4533: IF l_debug_level > 0 THEN
4534: oe_debug_pub.add('searh for duplicates '|| K, 3);
4535: END IF;
4536: WHILE K is not null
4537: LOOP
4538: IF G_Delayed_Requests(K).request_type
4540: G_Delayed_Requests(K).param2 = p_request_rec.param2 AND
4541: G_Delayed_Requests(K).param9 = 'Y'
4542: THEN
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add('another req for same top model', 2);
4545: END IF;
4546: SELECT ato_line_id
4547: INTO l_ato_line_id
4548: FROM oe_order_lines
4549: WHERE line_id = G_Delayed_Requests(K).entity_id;
4550:
4551: IF nvl(l_ato_line_id, -1) <> G_Delayed_Requests(K).entity_id THEN
4552: IF l_debug_level > 0 THEN
4553: oe_debug_pub.add('2 incorrect sch_ato req ', 3);
4554: END IF;
4555: G_Delayed_Requests.DELETE(K);
4556: END IF;
4557: END IF;
4566: END IF;
4567:
4568: ELSIF p_request_rec.request_type = OE_GLOBALS.G_SCHEDULE_SMC THEN
4569: IF l_debug_level > 0 THEN
4570: oe_debug_pub.add('calling schedule_smc '|| p_request_rec.param24 , 1);
4571: END IF;
4572:
4573: OE_Config_Schedule_Pvt.Schedule_SMC
4574: ( p_request_rec => p_request_rec
4597: END IF;
4598:
4599: IF l_ato_line_id is NULL THEN
4600: IF l_debug_level > 0 THEN
4601: oe_debug_pub.add('req for same model, same action', 2);
4602: END IF;
4603: I := I + 1;
4604: l_request_tbl(I) := G_Delayed_Requests(K);
4605:
4607: l_res_changes := 'Y';
4608: END IF;
4609: ELSE
4610: IF l_debug_level > 0 THEN
4611: oe_debug_pub.add('part of ato '|| l_ato_line_id , 3);
4612: END IF;
4613: END IF;
4614:
4615: G_Delayed_Requests.DELETE(K);
4617: END IF;
4618: K := G_Delayed_Requests.NEXT(K);
4619: END LOOP;
4620: IF l_debug_level > 0 THEN
4621: oe_debug_pub.add('calling schedule_nonsmc '||l_res_changes , 1);
4622: END IF;
4623: OE_Config_Schedule_Pvt.Schedule_NONSMC
4624: ( p_request_tbl => l_request_tbl
4625: ,p_res_changes => l_res_changes
4626: ,x_return_status => x_return_status);
4627:
4628: ELSIF p_request_rec.request_type = OE_GLOBALS.G_DELAYED_SCHEDULE THEN
4629: if l_debug_level > 0 then
4630: oe_debug_pub.add('6663462 : calling delayed_schedule ' , 1);
4631: end if;
4632:
4633: OE_SCHEDULE_UTIL.DELAYED_SCHEDULE_LINES
4634: (x_return_status => x_return_status);
4634: (x_return_status => x_return_status);
4635:
4636: END IF;
4637: IF l_debug_level > 0 THEN
4638: oe_debug_pub.add('type----- '|| p_request_rec.request_type, 4);
4639: oe_debug_pub.add('leaving sch reqs '|| x_return_status, 1);
4640: END IF;
4641: EXCEPTION
4642: WHEN OTHERS THEN
4635:
4636: END IF;
4637: IF l_debug_level > 0 THEN
4638: oe_debug_pub.add('type----- '|| p_request_rec.request_type, 4);
4639: oe_debug_pub.add('leaving sch reqs '|| x_return_status, 1);
4640: END IF;
4641: EXCEPTION
4642: WHEN OTHERS THEN
4643: oe_debug_pub.add('Process_Scheduling_Request error '|| sqlerrm, 1);
4639: oe_debug_pub.add('leaving sch reqs '|| x_return_status, 1);
4640: END IF;
4641: EXCEPTION
4642: WHEN OTHERS THEN
4643: oe_debug_pub.add('Process_Scheduling_Request error '|| sqlerrm, 1);
4644: RAISE;
4645: END Process_Scheduling_Request;
4646:
4647: /*---------------------------------------------------------------
4663: l_request_ind NUMBER;
4664: l_req_entity_ind NUMBER;
4665: l_request OE_Order_PUB.REQUEST_REC_TYPE;
4666: l_req_entity OE_Order_PUB.Requesting_Entity_Rec_Type;
4667: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4668:
4669: BEGIN
4670:
4671: /* Added the following condition to fix the fp bug 3498435 */
4673: IF p_request_rec.request_type = OE_GLOBALS.G_PRICE_ORDER THEN
4674:
4675:
4676: IF l_debug_level > 0 THEN
4677: oe_debug_pub.add('Entering check_pricing_request in Oe_Delayed_Request_PVT.',1);
4678: END IF;
4679: IF (p_request_rec.request_unique_key1 = 'BATCH'
4680: OR p_request_rec.request_unique_key1 = 'BATCH,BOOK')
4681: AND nvl(p_request_rec.request_unique_key2,'N') = 'Y' THEN
4734: IF l_request_search_rslt1 = FND_API.G_TRUE THEN
4735: -- no need to log request with BATCH and Y if BATCH
4736: -- and N already exists.
4737: IF l_debug_level > 0 THEN
4738: oe_debug_pub.add('there already exists BATCH + N so no need to log pricing request.', 3);
4739: END IF;
4740: x_log_request := 'N';
4741:
4742: ELSE
4780: -- check if there already exists request with
4781: -- pricing event 'LINE' with get_freight_flag = 'Y'.
4782: -- If exists, do nothing.
4783: IF l_debug_level > 0 THEN
4784: oe_debug_pub.add('there already exists request with ORDER + N.',3);
4785: END IF;
4786: Check_For_Request(p_request_rec.entity_code,
4787: p_request_rec.entity_id,
4788: p_request_rec.request_type,
4803: IF l_request_search_rslt3 = FND_API.G_TRUE THEN
4804: -- If not exists, replace BATCH event with LINE event
4805: -- since request with 'ORDER' event already exists.
4806: IF l_debug_level > 0 THEN
4807: oe_debug_pub.add('there exists LINE + Y and ORDER + N so no need to log request for BATCH + Y.', 3);
4808: END IF;
4809: x_log_request := 'N';
4810: ELSE
4811: -- if l_request_search_rslt3 = FND_API.G_FALSE THEN
4830:
4831: IF l_request_search_rslt4 = FND_API.G_TRUE THEN
4832: -- if already exists request with LINE and N.
4833: IF l_debug_level > 0 THEN
4834: oe_debug_pub.add('there exists LINE + N and ORDER + N so no need to log request for BATCH + Y.', 3);
4835: END IF;
4836: x_log_request := 'N';
4837:
4838: ELSE
4838: ELSE
4839: -- p_request_rec.request_unique_key1 := 'LINE';
4840: -- replace event BATCH with LINE.
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add('replace BATCH event with LINE + Y and ORDER + N.', 3);
4843: END IF;
4844: p_request_rec.param2 := 'LINE';
4845: p_request_rec.request_unique_key1 := 'LINE';
4846: p_request_rec.request_unique_key2 := 'Y';
4875: -- if l_request_search_rslt1 = FND_API.G_TRUE
4876: -- request with event 'BATCH' and get_freight_flag ='N'
4877: -- exists, don't need to log request.
4878: IF l_debug_level > 0 THEN
4879: oe_debug_pub.add('there exists BATCH + N so no need to log request.', 3);
4880: END IF;
4881: x_log_request := 'N';
4882: ELSE
4883: -- if l_request_search_rslt1 = FND_API.G_FALSE
4905: -- there exists request with BATCH+Y already.
4906: -- need to delete BATCH+Y, log the current request which is
4907: -- ORDER+N and log an additional request LINE+Y.
4908: IF l_debug_level > 0 THEN
4909: oe_debug_pub.add('need to have two separate requests ORDER + N and LINE + Y',3);
4910: END IF;
4911: delete_request(p_entity_code => p_request_rec.entity_code,
4912: p_entity_id => p_request_rec.entity_id,
4913: p_request_type => p_request_rec.request_type,
4934: OR p_request_rec.request_unique_key1 = 'BATCH,BOOK'
4935: AND nvl(p_request_rec.request_unique_key2,'N') = 'N' THEN
4936: -- delete all other request for G_PRICE_ORDER.
4937: IF l_debug_level > 0 THEN
4938: oe_debug_pub.add('delete all other price_order request.',1);
4939: END IF;
4940: delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
4941: p_entity_id => p_request_rec.entity_id,
4942: p_request_type => p_request_rec.request_type,
4985: IF l_request_search_rslt1 = FND_API.G_TRUE THEN
4986: -- request with event 'BATCH' and get_freight_flag ='N'
4987: -- already exists, no need to log request.
4988: IF l_debug_level > 0 THEN
4989: oe_debug_pub.add('there exists BATCH + N so no need to log request.', 3);
4990: END IF;
4991: x_log_request := 'N';
4992: ELSE
4993: -- l_request_search_rslt1 = FND_API.G_FALSE
5015: -- there exists request with BATCH,BOOK+Y already.
5016: -- need to delete BATCH,BOOK+Y, log the current request which is
5017: -- ORDER,BOOK+N and log an additional request LINE+Y.
5018: IF l_debug_level > 0 THEN
5019: oe_debug_pub.add('need to have two separate requests ORDER,BOOK + N and LINE + Y and delete BATCH,BOOK + Y',1);
5020: END IF;
5021: delete_request(p_entity_code => p_request_rec.entity_code,
5022: p_entity_id => p_request_rec.entity_id,
5023: p_request_type => p_request_rec.request_type,
5044:
5045: /* New code added to fix the fp bug 3498435 */
5046: ELSIF p_request_rec.request_type = OE_GLOBALS.G_PRICE_LINE THEN
5047: IF l_debug_level > 0 THEN
5048: oe_debug_pub.add('3498435: Entering check_pricing_request '||p_request_rec.request_unique_key1,1);
5049: END IF;
5050: IF p_request_rec.request_unique_key1 = 'LINE' THEN
5051: Check_For_Request(p_request_rec.entity_code,
5052: p_request_rec.entity_id,
5066: END IF;
5067:
5068: IF l_request_search_rslt1 = FND_API.G_TRUE THEN
5069: IF l_debug_level > 0 THEN
5070: oe_debug_pub.add('there exists BATCH + N so no need to log request.', 3);
5071: END IF;
5072: x_log_request := 'N';
5073: ELSE
5074: IF l_debug_level > 0 THEN
5071: END IF;
5072: x_log_request := 'N';
5073: ELSE
5074: IF l_debug_level > 0 THEN
5075: oe_debug_pub.add('3498435: Search result is false ',1);
5076: END IF;
5077: Check_For_Request(p_request_rec.entity_code,
5078: p_request_rec.entity_id,
5079: p_request_rec.request_type,
5091: RAISE FND_API.G_EXC_ERROR;
5092: END IF;
5093: IF l_request_search_rslt2 = FND_API.G_TRUE THEN
5094: IF l_debug_level > 0 THEN
5095: oe_debug_pub.add('there exists BATCH,BOOK + N so no need to log request.', 3);
5096: END IF;
5097: x_log_request := 'N';
5098: END IF; --l_request_search_rslt2
5099: END IF; --l_request_search_rslt1
5099: END IF; --l_request_search_rslt1
5100: ELSIF (nvl(p_request_rec.request_unique_key1,p_request_rec.param2) = 'BATCH'
5101: OR nvl(p_request_rec.request_unique_key1,p_request_rec.param2) = 'BATCH,BOOK') THEN
5102: IF l_debug_level > 0 THEN
5103: oe_debug_pub.add('Delete Line',3);
5104: END IF;
5105: delete_request(p_entity_code => p_request_rec.entity_code,
5106: p_entity_id => p_request_rec.entity_id,
5107: p_request_type => p_request_rec.request_type,
5115: /* End of New code added to fix the fp bug 3498435 */
5116:
5117:
5118: IF l_debug_level > 0 THEN
5119: oe_debug_pub.add('Exiting procedure OE_Delayed_Requests_Pvt.Check_Pricing_Request', 1);
5120: END IF;
5121:
5122: END Check_Pricing_Request;
5123: