[Home] [Help]
286: forall i in 1..X_po_line_ids.Count
287:
288:
289: /*
290: po_session_gt map:
291: KEY : unique key for the current session processing
292: NUM1 : line_location_id
293: NUM2 : shipment_num
294: DATE1: db dates in po_line_locations_all
298: CHAR2: indicates a valid record
299:
300: */
301:
302: insert into po_session_gt (key,
303: num1,
304: num2,
305: date1,
306: date2,
325: ELSE
326: forall i in 1..X_po_line_ids.Count
327:
328: /*
329: po_session_gt map:
330: KEY : unique key for the current session processing
331: NUM1 : line_location_id
332: NUM2 : shipment_num
333: DATE1: db dates in po_line_locations_all
337: CHAR2: indicates a valid record
338:
339: */
340:
341: insert into po_session_gt (key,
342: num1,
343: num2,
344: date1,
345: date2,
370: -- Validation #1 : Old Need by date passed and the db need by date should
371: -- Match
372:
373: l_progress:= '070';
374: UPDATE po_session_gt scratch
375: SET char2 = 'N'
376: WHERE scratch.char1 <>
377: To_char(scratch.date1,'DD-MON-YYYY:hh:mi:ss')
378: AND scratch.KEY = l_session_gt_key;
380: l_progress:= '080';
381: SELECT 'Supply Number '||x_supply_number||' Shipment Number '
382: ||to_char(scratch.num2)||': Need by date does not match the date passed in'
383: BULK collect INTO l_nbd_validate_tbl
384: FROM po_session_gt scratch
385: WHERE scratch.KEY = l_session_gt_key
386: AND Nvl(scratch.char2,'Y') = 'N';
387:
388: IF (l_nbd_validate_tbl IS NOT NULL) then
395: l_nbd_validate_tbl := NULL;
396:
397: -- Validation 2: New need by date should not be NULL
398: l_progress:= '090';
399: UPDATE po_session_gt scratch
400: SET char2 = 'N'
401: WHERE scratch.date2 IS NULL
402: AND scratch.KEY = l_session_gt_key;
403:
403:
404: SELECT 'Supply Number '||x_supply_number||' Shipment Number '
405: ||scratch.num2||': New Need by date is NULL'
406: BULK collect INTO l_nbd_validate_tbl
407: FROM po_session_gt scratch
408: WHERE scratch.KEY = l_session_gt_key
409: AND scratch.date2 IS NULL;
410:
411: IF (l_nbd_validate_tbl IS NOT NULL) then
421: l_progress:= '100';
422:
423: select num1, date2
424: bulk collect into l_line_location_id_tbl, l_need_by_date_tbl
425: from po_session_gt SCRATCH
426: WHERE KEY = l_session_gt_key
427: AND Nvl(scratch.char2,'Y') = 'Y' ;
428: /* Step 5:
429:
462: IF nvl(l_need_by_promise_def_prf,'N') = 'Y' THEN
463: l_promised_by_date_tbl := PO_TBL_DATE();
464: select date2
465: bulk collect into l_promised_by_date_tbl
466: from po_session_gt SCRATCH
467: WHERE KEY = l_session_gt_key
468: AND Nvl(scratch.char2,'Y') = 'Y' ;
469: l_shipment_changes := PO_SHIPMENTS_REC_TYPE.create_object (
470: p_po_line_location_id => l_line_location_id_tbl,
529: -- debug
530: /* Step 9: set the context back to the orginal context.*/
531: PO_MOAC_UTILS_PVT.set_org_context(l_original_org_context) ; --
532:
533: /* Delete all the data from po_session_gt */
534: l_progress:= '170';
535:
536: -- debug
537: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Deleting data from session gt '
537: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Deleting data from session gt '
538: );
539: -- debug
540:
541: DELETE FROM po_session_gt
542: WHERE KEY = l_session_gt_key;
543:
544: /*Step 10 : return from the api */
545: PO_DEBUG.debug_end(l_log_head);
551: -- Set the org context back to the original operating unit.
552: IF (l_original_org_context IS NOT NULL) THEN
553: PO_MOAC_UTILS_PVT.set_org_context(l_original_org_context) ; --
554: END IF;
555: DELETE FROM po_session_gt
556: WHERE KEY = l_session_gt_key;
557: RETURN FALSE;
558:
559: WHEN OTHERS THEN
556: WHERE KEY = l_session_gt_key;
557: RETURN FALSE;
558:
559: WHEN OTHERS THEN
560: DELETE FROM po_session_gt
561: WHERE KEY = l_session_gt_key;
562: IF (l_original_org_context IS NOT NULL) THEN
563: FND_CLIENT_INFO.set_org_context(l_original_org_context);
564: END IF;