[Home] [Help]
24: l_org_id NUMBER :=-99;
25: l_access_mode VARCHAR2(1);
26: l_return_status VARCHAR2(1);--bug11790590
27: --
28: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
29: --
30: BEGIN
31: -- for every record in g_line_tbl, parse the G_line_tbl for records to be processed together
32: -- e.g. sets, SMCs etc. those line_id will be inserted into the exclude list, only if
33: -- a given line_id which is not in the list will be processed by the loop
34:
35: l_count := p_x_sch_line_tbl.count;
36: IF l_debug_level > 0 THEN
37: oe_debug_pub.add( 'SCH: IN SCH_WINDOW_KEY_COMMIT: COUNT:' || L_COUNT ) ;
38: END IF;
39: --R12.MOAC--
40: l_access_mode := mo_global.get_access_mode;
41:
45: For I in 1..l_count Loop --loop for all modified lines
46: BEGIN
47:
48: IF l_debug_level > 0 THEN
49: oe_debug_pub.add( 'SCH: MAIN LOOP LINE_ID: ' || P_X_SCH_LINE_TBL ( I ) .LINE_ID ) ;
50: END IF;
51: IF nvl(p_x_sch_line_tbl(I).exclude, 'N') <> 'Y' THEN
52: --R12.MOAC--
53: IF l_access_mode <> 'S' and l_org_id <> p_x_sch_line_tbl(I).org_id THEN
110: IF L <= l_count THEN
111: For J in L..l_count Loop --loop for remained modified lines
112: IF p_x_sch_line_tbl(J).header_id = p_x_sch_line_tbl(I).header_id THEN --if any remained lines has same header
113: IF l_debug_level > 0 THEN
114: oe_debug_pub.add( 'SCH: BINGO! LINE: ' || P_X_SCH_LINE_TBL ( J ) .LINE_ID || ' HAS SAME HEADER_ID', 5 ) ;
115: END IF;
116: p_x_sch_line_tbl(J).exclude := 'Y'; --so that we will not process them when we come to it
117:
118: OE_Line_Util.Query_Row
168: End Loop; --for remained modified lines
169: END IF; --L <= l_count
170:
171: IF l_debug_level > 0 THEN
172: oe_debug_pub.add( 'SCH: GOING TO CALL LINES NOW' ) ;
173: END IF;
174:
175: K := 2; --reset K
176:
184: x_return_status => x_return_status);
185:
186: l_init_msg := FND_API.G_FALSE;
187: IF l_debug_level > 0 THEN
188: oe_debug_pub.add( 'SCH: DONE CALLING LINES: ' || X_RETURN_STATUS ) ;
189: END IF;
190:
191: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225: l_x_old_line_tbl.delete;
226: oe_delayed_requests_pvt.Clear_Request(x_return_status=> l_return_status);--bug11790590
227: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status); --bug11790590
228: IF l_debug_level > 0 THEN
229: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
230: END IF;
231: x_msg_count := oe_msg_pub.count_msg;
232: IF l_debug_level > 0 THEN
233: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! MSG COUNT: ' || OE_MSG_PUB.COUNT_MSG ) ;
229: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
230: END IF;
231: x_msg_count := oe_msg_pub.count_msg;
232: IF l_debug_level > 0 THEN
233: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! MSG COUNT: ' || OE_MSG_PUB.COUNT_MSG ) ;
234: END IF;
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: oe_delayed_requests_pvt.Clear_Request(x_return_status=> l_return_status);--bug11790590
241: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status); --bug11790590
242:
243: IF l_debug_level > 0 THEN
244: oe_debug_pub.add( 'SCH: IN UNEXP EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
245: END IF;
246: l_x_line_tbl.delete;
247: l_x_old_line_tbl.delete;
248:
247: l_x_old_line_tbl.delete;
248:
249: x_msg_count := oe_msg_pub.count_msg;
250: IF l_debug_level > 0 THEN
251: oe_debug_pub.add( 'SCH: IN UNEXP EXCEPTION HANDLER! MSG COUNT: ' || OE_MSG_PUB.COUNT_MSG ) ;
252: END IF;
253:
254: WHEN OTHERS THEN
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: l_failed_count := l_failed_count + l_x_line_tbl.count;
257: x_failed_count := l_failed_count;
258: IF l_debug_level > 0 THEN
259: oe_debug_pub.add( 'SCH: IN OTHER EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
260: END IF;
261: l_x_line_tbl.delete;
262: l_x_old_line_tbl.delete;
263: oe_delayed_requests_pvt.Clear_Request(x_return_status=> l_return_status);--bug11790590
302: l_line_id NUMBER;
303: l_header_id NUMBER;
304: l_header_line_tbl header_line_tab;
305: --
306: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
307: --
308: BEGIN
309: IF l_debug_level > 0 THEN
310: oe_debug_pub.add( 'SCH: IN ORDER_BOUNDARY_SORTING' ) ;
306: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
307: --
308: BEGIN
309: IF l_debug_level > 0 THEN
310: oe_debug_pub.add( 'SCH: IN ORDER_BOUNDARY_SORTING' ) ;
311: END IF;
312: j := 1;
313: init := 1;
314: nextpos := INSTR(l_record_ids,',',1,j) ;
326: l_header_line_tbl(j).header_id := l_header_id;
327: l_header_line_tbl(j).exclude := 'N';
328:
329: IF l_debug_level > 0 THEN
330: oe_debug_pub.add( 'SCH: LINE_ID:' || L_LINE_ID || ' HEADER_ID:' || L_HEADER_ID , 5 ) ;
331: END IF;
332:
333: init := nextpos + 1.0;
334: j := j + 1.0;
360: /* for testing purpose only, to verify the list */
361: /*
362: For I in 1..K Loop
363: IF l_debug_level > 0 THEN
364: oe_debug_pub.add( 'K: ' || K || ' - ' || X_LINE_LIST_TBL ( I ) .LINE_LIST || ' COUNT: ' || X_LINE_LIST_TBL ( I ) .COUNT ) ;
365: END IF;
366: End Loop;
367: */
368:
391: --R12.MOAC
392: l_access_mode VARCHAR2(1);
393: l_org_id NUMBER;
394: --
395: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
396: --
397: BEGIN
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'IN SUBMIT_RESERVATION_REQUEST ' ) ;
395: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
396: --
397: BEGIN
398: IF l_debug_level > 0 THEN
399: oe_debug_pub.add( 'IN SUBMIT_RESERVATION_REQUEST ' ) ;
400: END IF;
401: --R12.MOAC Start
402: l_access_mode := mo_global.get_access_mode;
403: IF l_access_mode = 'S' THEN
413: -- selected rows are inserted into oe_rsv_set_details table without parent, and then the
414: -- concurrent program will delete these rows after processing.
415: FOR I IN 1..p_selected_line_tbl.COUNT LOOP
416: IF l_debug_level > 0 THEN
417: oe_debug_pub.add( ' Line Id '||p_selected_line_tbl(I).id1,1);
418: END IF;
419: INSERT INTO oe_rsv_set_details
420: (reservation_set_id
421: ,line_id
481: IF (l_request_id > 0) THEN
482: COMMIT WORK;
483: END IF;
484: IF l_debug_level > 0 THEN
485: oe_debug_pub.add( 'EXITING SUBMIT_RESERVATION_REQUEST ' ) ;
486: END IF;
487: return l_request_id;
488:
489: END Submit_Reservation_Request;
502: WHERE Reservation_set_name =p_reservation_set;
503:
504: l_set_id NUMBER;
505: --
506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
507: --
508: BEGIN
509: OPEN rsv_set_id;
510: FETCH rsv_set_id INTO l_set_id;
509: OPEN rsv_set_id;
510: FETCH rsv_set_id INTO l_set_id;
511: CLOSE rsv_set_id;
512: IF l_debug_level > 0 THEN
513: oe_debug_pub.add( 'IN UPDATE_RESERVATION_QTY FOR SET:'||l_set_id ) ;
514: END IF;
515:
516:
517: FOR I IN 1..p_sch_line_tbl.COUNT
526: AND Line_Id = p_sch_line_tbl(I).line_id;
527:
528: END LOOP;
529: IF l_debug_level > 0 THEN
530: oe_debug_pub.add( 'EXITING UPDATE_RESERVATION_QTY' ) ;
531: END IF;
532:
533: END Update_Reservation_Qty;
534:
546: WHERE reservation_set_name = p_reservation_set_name;
547:
548: l_process_flag VARCHAR2(1);
549: --
550: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
551: --
552: BEGIN
553: OPEN set_processed;
554: FETCH set_processed INTO l_process_flag;
609: l_msg_count NUMBER;
610: l_msg_data VARCHAR2(2000);
611: l_error_count NUMBER := 0;
612: --
613: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
614: --
615: BEGIN
616:
617: IF l_debug_level > 0 THEN
614: --
615: BEGIN
616:
617: IF l_debug_level > 0 THEN
618: oe_debug_pub.add( 'ENTERING Process_Schedule_Action ' , 1 ) ;
619: END IF;
620: /* MOAC Changes */
621: --Remember and re-set the access mode, if its Multi.
622: l_access_mode := mo_global.get_access_mode();
623: x_return_status := FND_API.G_RET_STS_SUCCESS;
624: l_count := p_selected_line_tbl.count;
625:
626: IF l_debug_level > 0 THEN
627: oe_debug_pub.add( 'Lines selected '||l_count , 1 ) ;
628: END IF;
629: IF l_count > 1 THEN
630: FOR I IN 1..p_selected_line_tbl.count Loop
631:
706: END IF;
707: END IF;
708: x_msg_count := l_error_count;
709: IF l_debug_level > 0 THEN
710: oe_debug_pub.add( 'EXITING Process_Schedule_Action ' , 1 ) ;
711: END IF;
712: EXCEPTION
713: WHEN OTHERS THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;