442: x_error_message := po_tbl_varchar2000();
443:
444: IF (supply_number_tbl.Count > 0) THEN
445: FOR i IN 1..supply_number_tbl.Count LOOP
446: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_MISMATCH');
447: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
448: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
443:
444: IF (supply_number_tbl.Count > 0) THEN
445: FOR i IN 1..supply_number_tbl.Count LOOP
446: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_MISMATCH');
447: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
448: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
451: FND_MESSAGE.SET_TOKEN ('PO_DATE',po_date_tbl(i));
444: IF (supply_number_tbl.Count > 0) THEN
445: FOR i IN 1..supply_number_tbl.Count LOOP
446: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_MISMATCH');
447: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
448: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
451: FND_MESSAGE.SET_TOKEN ('PO_DATE',po_date_tbl(i));
452: x_error_message.extend;
445: FOR i IN 1..supply_number_tbl.Count LOOP
446: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_MISMATCH');
447: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
448: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
451: FND_MESSAGE.SET_TOKEN ('PO_DATE',po_date_tbl(i));
452: x_error_message.extend;
453: x_error_message(i) := fnd_message.get;
446: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_MISMATCH');
447: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
448: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
451: FND_MESSAGE.SET_TOKEN ('PO_DATE',po_date_tbl(i));
452: x_error_message.extend;
453: x_error_message(i) := fnd_message.get;
454: add_error_to_msg_list ( p_api_name => l_api_name,
447: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
448: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
451: FND_MESSAGE.SET_TOKEN ('PO_DATE',po_date_tbl(i));
452: x_error_message.extend;
453: x_error_message(i) := fnd_message.get;
454: add_error_to_msg_list ( p_api_name => l_api_name,
455: p_message => x_error_message(i) );
449: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
450: FND_MESSAGE.SET_TOKEN ('ASCP_DATE',ascp_date_tbl(i));
451: FND_MESSAGE.SET_TOKEN ('PO_DATE',po_date_tbl(i));
452: x_error_message.extend;
453: x_error_message(i) := fnd_message.get;
454: add_error_to_msg_list ( p_api_name => l_api_name,
455: p_message => x_error_message(i) );
456: END LOOP;
457: END IF;
478: WHERE scratch.KEY = l_session_gt_key
479: AND scratch.date2 IS NULL;
480: x_error_count := x_error_message.Count;
481: IF (supply_number_tbl.Count > 0) THEN
482: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_NULL');
483: FOR i IN 1..supply_number_tbl.Count LOOP
484: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
485: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
486: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
480: x_error_count := x_error_message.Count;
481: IF (supply_number_tbl.Count > 0) THEN
482: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_NULL');
483: FOR i IN 1..supply_number_tbl.Count LOOP
484: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
485: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
486: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
487: x_error_message.extend;
488: x_error_message(x_error_count+i) := fnd_message.get;
481: IF (supply_number_tbl.Count > 0) THEN
482: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_NULL');
483: FOR i IN 1..supply_number_tbl.Count LOOP
484: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
485: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
486: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
487: x_error_message.extend;
488: x_error_message(x_error_count+i) := fnd_message.get;
489: add_error_to_msg_list ( p_api_name => l_api_name,
482: FND_MESSAGE.SET_NAME('PO','PO_NEED_BY_DATE_NULL');
483: FOR i IN 1..supply_number_tbl.Count LOOP
484: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
485: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
486: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
487: x_error_message.extend;
488: x_error_message(x_error_count+i) := fnd_message.get;
489: add_error_to_msg_list ( p_api_name => l_api_name,
490: p_message => x_error_message(i) );
484: FND_MESSAGE.SET_TOKEN ('SUPPLY_NUMBER',supply_number_tbl(i));
485: FND_MESSAGE.SET_TOKEN ('LINE_NUMBER',line_number_tbl(i));
486: FND_MESSAGE.SET_TOKEN ('SHIPMENT_NUMBER',shipment_number_tbl(i));
487: x_error_message.extend;
488: x_error_message(x_error_count+i) := fnd_message.get;
489: add_error_to_msg_list ( p_api_name => l_api_name,
490: p_message => x_error_message(i) );
491: END LOOP;
492: END IF;
741: p_message VARCHAR2
742: ) IS
743: BEGIN
744: -- Add a generic error to the API message list.
745: FND_MESSAGE.set_name ('PO', 'PO_GENERIC_ERROR');
746: FND_MESSAGE.set_token ('ERROR_TEXT', p_message);
747: FND_MSG_PUB.add;
748:
749: -- Also add it to the FND log, if enabled.
742: ) IS
743: BEGIN
744: -- Add a generic error to the API message list.
745: FND_MESSAGE.set_name ('PO', 'PO_GENERIC_ERROR');
746: FND_MESSAGE.set_token ('ERROR_TEXT', p_message);
747: FND_MSG_PUB.add;
748:
749: -- Also add it to the FND log, if enabled.
750: IF (g_fnd_debug = 'Y') THEN