[Home] [Help]
23: --R12.MOAC--
24: l_org_id NUMBER :=-99;
25: l_access_mode VARCHAR2(1);
26: --
27: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
28: --
29: BEGIN
30: -- for every record in g_line_tbl, parse the G_line_tbl for records to be processed together
31: -- e.g. sets, SMCs etc. those line_id will be inserted into the exclude list, only if
32: -- a given line_id which is not in the list will be processed by the loop
33:
34: l_count := p_x_sch_line_tbl.count;
35: IF l_debug_level > 0 THEN
36: oe_debug_pub.add( 'SCH: IN SCH_WINDOW_KEY_COMMIT: COUNT:' || L_COUNT ) ;
37: END IF;
38: --R12.MOAC--
39: l_access_mode := mo_global.get_access_mode;
40:
44: For I in 1..l_count Loop --loop for all modified lines
45: BEGIN
46:
47: IF l_debug_level > 0 THEN
48: oe_debug_pub.add( 'SCH: MAIN LOOP LINE_ID: ' || P_X_SCH_LINE_TBL ( I ) .LINE_ID ) ;
49: END IF;
50: IF nvl(p_x_sch_line_tbl(I).exclude, 'N') <> 'Y' THEN
51: --R12.MOAC--
52: IF l_access_mode <> 'S' and l_org_id <> p_x_sch_line_tbl(I).org_id THEN
108: IF L <= l_count THEN
109: For J in L..l_count Loop --loop for remained modified lines
110: 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
111: IF l_debug_level > 0 THEN
112: oe_debug_pub.add( 'SCH: BINGO! LINE: ' || P_X_SCH_LINE_TBL ( J ) .LINE_ID || ' HAS SAME HEADER_ID', 5 ) ;
113: END IF;
114: p_x_sch_line_tbl(J).exclude := 'Y'; --so that we will not process them when we come to it
115:
116: OE_Line_Util.Query_Row
165: End Loop; --for remained modified lines
166: END IF; --L <= l_count
167:
168: IF l_debug_level > 0 THEN
169: oe_debug_pub.add( 'SCH: GOING TO CALL LINES NOW' ) ;
170: END IF;
171:
172: K := 2; --reset K
173:
181: x_return_status => x_return_status);
182:
183: l_init_msg := FND_API.G_FALSE;
184: IF l_debug_level > 0 THEN
185: oe_debug_pub.add( 'SCH: DONE CALLING LINES: ' || X_RETURN_STATUS ) ;
186: END IF;
187:
188: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: x_failed_count := l_failed_count;
221: l_x_line_tbl.delete;
222: l_x_old_line_tbl.delete;
223: IF l_debug_level > 0 THEN
224: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
225: END IF;
226: x_msg_count := oe_msg_pub.count_msg;
227: IF l_debug_level > 0 THEN
228: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! MSG COUNT: ' || OE_MSG_PUB.COUNT_MSG ) ;
224: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
225: END IF;
226: x_msg_count := oe_msg_pub.count_msg;
227: IF l_debug_level > 0 THEN
228: oe_debug_pub.add( 'SCH: IN EXCEPTION HANDLER! MSG COUNT: ' || OE_MSG_PUB.COUNT_MSG ) ;
229: END IF;
230:
231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
233: l_failed_count := l_failed_count + l_x_line_tbl.count;
234: x_failed_count := l_failed_count;
235: IF l_debug_level > 0 THEN
236: oe_debug_pub.add( 'SCH: IN UNEXP EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
237: END IF;
238: l_x_line_tbl.delete;
239: l_x_old_line_tbl.delete;
240:
239: l_x_old_line_tbl.delete;
240:
241: x_msg_count := oe_msg_pub.count_msg;
242: IF l_debug_level > 0 THEN
243: oe_debug_pub.add( 'SCH: IN UNEXP EXCEPTION HANDLER! MSG COUNT: ' || OE_MSG_PUB.COUNT_MSG ) ;
244: END IF;
245:
246: WHEN OTHERS THEN
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
248: l_failed_count := l_failed_count + l_x_line_tbl.count;
249: x_failed_count := l_failed_count;
250: IF l_debug_level > 0 THEN
251: oe_debug_pub.add( 'SCH: IN OTHER EXCEPTION HANDLER! FAILED COUNT: ' || L_FAILED_COUNT ) ;
252: END IF;
253: l_x_line_tbl.delete;
254: l_x_old_line_tbl.delete;
255:
292: l_line_id NUMBER;
293: l_header_id NUMBER;
294: l_header_line_tbl header_line_tab;
295: --
296: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
297: --
298: BEGIN
299: IF l_debug_level > 0 THEN
300: oe_debug_pub.add( 'SCH: IN ORDER_BOUNDARY_SORTING' ) ;
296: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
297: --
298: BEGIN
299: IF l_debug_level > 0 THEN
300: oe_debug_pub.add( 'SCH: IN ORDER_BOUNDARY_SORTING' ) ;
301: END IF;
302: j := 1;
303: init := 1;
304: nextpos := INSTR(l_record_ids,',',1,j) ;
316: l_header_line_tbl(j).header_id := l_header_id;
317: l_header_line_tbl(j).exclude := 'N';
318:
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add( 'SCH: LINE_ID:' || L_LINE_ID || ' HEADER_ID:' || L_HEADER_ID , 5 ) ;
321: END IF;
322:
323: init := nextpos + 1.0;
324: j := j + 1.0;
350: /* for testing purpose only, to verify the list */
351: /*
352: For I in 1..K Loop
353: IF l_debug_level > 0 THEN
354: oe_debug_pub.add( 'K: ' || K || ' - ' || X_LINE_LIST_TBL ( I ) .LINE_LIST || ' COUNT: ' || X_LINE_LIST_TBL ( I ) .COUNT ) ;
355: END IF;
356: End Loop;
357: */
358:
381: --R12.MOAC
382: l_access_mode VARCHAR2(1);
383: l_org_id NUMBER;
384: --
385: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
386: --
387: BEGIN
388: IF l_debug_level > 0 THEN
389: oe_debug_pub.add( 'IN SUBMIT_RESERVATION_REQUEST ' ) ;
385: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
386: --
387: BEGIN
388: IF l_debug_level > 0 THEN
389: oe_debug_pub.add( 'IN SUBMIT_RESERVATION_REQUEST ' ) ;
390: END IF;
391: --R12.MOAC Start
392: l_access_mode := mo_global.get_access_mode;
393: IF l_access_mode = 'S' THEN
466: IF (l_request_id > 0) THEN
467: COMMIT WORK;
468: END IF;
469: IF l_debug_level > 0 THEN
470: oe_debug_pub.add( 'EXITING SUBMIT_RESERVATION_REQUEST ' ) ;
471: END IF;
472: return l_request_id;
473:
474: END Submit_Reservation_Request;
487: WHERE Reservation_set_name =p_reservation_set;
488:
489: l_set_id NUMBER;
490: --
491: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
492: --
493: BEGIN
494: OPEN rsv_set_id;
495: FETCH rsv_set_id INTO l_set_id;
494: OPEN rsv_set_id;
495: FETCH rsv_set_id INTO l_set_id;
496: CLOSE rsv_set_id;
497: IF l_debug_level > 0 THEN
498: oe_debug_pub.add( 'IN UPDATE_RESERVATION_QTY FOR SET:'||l_set_id ) ;
499: END IF;
500:
501:
502: FOR I IN 1..p_sch_line_tbl.COUNT
511: AND Line_Id = p_sch_line_tbl(I).line_id;
512:
513: END LOOP;
514: IF l_debug_level > 0 THEN
515: oe_debug_pub.add( 'EXITING UPDATE_RESERVATION_QTY' ) ;
516: END IF;
517:
518: END Update_Reservation_Qty;
519:
531: WHERE reservation_set_name = p_reservation_set_name;
532:
533: l_process_flag VARCHAR2(1);
534: --
535: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
536: --
537: BEGIN
538: OPEN set_processed;
539: FETCH set_processed INTO l_process_flag;
594: l_msg_count NUMBER;
595: l_msg_data VARCHAR2(2000);
596: l_error_count NUMBER := 0;
597: --
598: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
599: --
600: BEGIN
601:
602: IF l_debug_level > 0 THEN
599: --
600: BEGIN
601:
602: IF l_debug_level > 0 THEN
603: oe_debug_pub.add( 'ENTERING Process_Schedule_Action ' , 1 ) ;
604: END IF;
605: /* MOAC Changes */
606: --Remember and re-set the access mode, if its Multi.
607: l_access_mode := mo_global.get_access_mode();
608: x_return_status := FND_API.G_RET_STS_SUCCESS;
609: l_count := p_selected_line_tbl.count;
610:
611: IF l_debug_level > 0 THEN
612: oe_debug_pub.add( 'Lines selected '||l_count , 1 ) ;
613: END IF;
614: IF l_count > 1 THEN
615: FOR I IN 1..p_selected_line_tbl.count Loop
616:
691: END IF;
692: END IF;
693: x_msg_count := l_error_count;
694: IF l_debug_level > 0 THEN
695: oe_debug_pub.add( 'EXITING Process_Schedule_Action ' , 1 ) ;
696: END IF;
697: EXCEPTION
698: WHEN OTHERS THEN
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;