159: --Parameters:
160: --IN:
161: --p_id_param_type
162: -- Type of the id. Possible values:
163: -- PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID
164: --p_id_tbl
165: -- Table of ids
166: --p_cascade
167: -- FND_API.G_TRUE if rejection should be propagated to the lower level
191: d_position := 10;
192: RETURN;
193: END IF;
194:
195: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID) THEN
196: d_position := 20;
197: FORALL i IN 1..p_id_tbl.COUNT
198: UPDATE po_headers_interface
199: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
195: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID) THEN
196: d_position := 20;
197: FORALL i IN 1..p_id_tbl.COUNT
198: UPDATE po_headers_interface
199: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
200: processing_id = -PO_PDOI_PARAMS.g_processing_id
201: WHERE interface_header_id = p_id_tbl(i)
202: AND processing_id = PO_PDOI_PARAMS.g_processing_id;
203: ELSE
207:
208: IF (p_cascade = FND_API.G_TRUE) THEN
209: d_position := 40;
210: reject_lines_intf
211: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID
212: , p_id_tbl => p_id_tbl
213: , p_cascade => FND_API.G_TRUE
214: );
215: END IF;
241: --Parameters:
242: --IN:
243: --p_id_param_type
244: -- Type of the id. Possible values:
245: -- PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID
246: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
247: --p_id_tbl
248: -- Table of ids
249: --p_cascade
242: --IN:
243: --p_id_param_type
244: -- Type of the id. Possible values:
245: -- PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID
246: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
247: --p_id_tbl
248: -- Table of ids
249: --p_cascade
250: -- FND_API.G_TRUE if rejection should be propagated to the lower level
276: d_position := 10;
277: RETURN;
278: END IF;
279:
280: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID) THEN
281: d_position := 20;
282:
283: FORALL i IN 1..p_id_tbl.COUNT
284: UPDATE po_lines_interface
281: d_position := 20;
282:
283: FORALL i IN 1..p_id_tbl.COUNT
284: UPDATE po_lines_interface
285: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
286: processing_id = -PO_PDOI_PARAMS.g_processing_id
287: WHERE interface_header_id = p_id_tbl(i)
288: AND processing_id = PO_PDOI_PARAMS.g_processing_id
289: RETURNING interface_line_id, interface_header_id
288: AND processing_id = PO_PDOI_PARAMS.g_processing_id
289: RETURNING interface_line_id, interface_header_id
290: BULK COLLECT INTO l_intf_line_id_tbl, l_intf_header_id_tbl;
291:
292: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
293: d_position := 30;
294:
295: FORALL i IN 1..p_id_tbl.COUNT
296: UPDATE po_lines_interface
293: d_position := 30;
294:
295: FORALL i IN 1..p_id_tbl.COUNT
296: UPDATE po_lines_interface
297: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
298: processing_id = -PO_PDOI_PARAMS.g_processing_id
299: WHERE interface_line_id = p_id_tbl(i)
300: AND processing_id = PO_PDOI_PARAMS.g_processing_id
301: RETURNING interface_line_id, interface_header_id
311:
312: IF (p_cascade = FND_API.G_TRUE) THEN
313: d_position := 40;
314: reject_line_locations_intf
315: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
316: , p_id_tbl => l_intf_line_id_tbl
317: , p_cascade => FND_API.G_TRUE);
318:
319: d_position := 50;
317: , p_cascade => FND_API.G_TRUE);
318:
319: d_position := 50;
320: reject_price_diff_intf
321: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
322: , p_id_tbl => l_intf_line_id_tbl);
323:
324: IF (PO_PDOI_PARAMS.g_request.document_type <>
325: PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
321: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
322: , p_id_tbl => l_intf_line_id_tbl);
323:
324: IF (PO_PDOI_PARAMS.g_request.document_type <>
325: PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
326:
327: d_position := 60;
328: reject_attr_values_intf
329: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
325: PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
326:
327: d_position := 60;
328: reject_attr_values_intf
329: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
330: , p_id_tbl => l_intf_line_id_tbl);
331:
332: d_position := 70;
333: reject_attr_values_tlp_intf
330: , p_id_tbl => l_intf_line_id_tbl);
331:
332: d_position := 70;
333: reject_attr_values_tlp_intf
334: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
335: , p_id_tbl => l_intf_line_id_tbl);
336: END IF;
337: END IF;
338:
359: --Parameters:
360: --IN:
361: --p_id_param_type
362: -- Type of the id. Possible values:
363: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
364: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID
365: --p_id_tbl
366: -- Table of ids
367: --p_cascade
360: --IN:
361: --p_id_param_type
362: -- Type of the id. Possible values:
363: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
364: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID
365: --p_id_tbl
366: -- Table of ids
367: --p_cascade
368: -- FND_API.G_TRUE if rejection should be propagated to the lower level
395: d_position := 10;
396: RETURN;
397: END IF;
398:
399: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
400: d_position := 20;
401: FORALL i IN 1..p_id_tbl.COUNT
402: UPDATE po_line_locations_interface
403: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
399: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
400: d_position := 20;
401: FORALL i IN 1..p_id_tbl.COUNT
402: UPDATE po_line_locations_interface
403: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
404: processing_id = -PO_PDOI_PARAMS.g_processing_id
405: WHERE interface_line_id = p_id_tbl(i)
406: AND processing_id = PO_PDOI_PARAMS.g_processing_id
407: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
403: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
404: processing_id = -PO_PDOI_PARAMS.g_processing_id
405: WHERE interface_line_id = p_id_tbl(i)
406: AND processing_id = PO_PDOI_PARAMS.g_processing_id
407: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
408: <> PO_PDOI_CONSTANTS.g_PROCESS_CODE_OBSOLETE
409: RETURNING interface_line_location_id, interface_header_id
410: BULK COLLECT INTO l_intf_line_loc_id_tbl, l_intf_header_id_tbl;
411:
404: processing_id = -PO_PDOI_PARAMS.g_processing_id
405: WHERE interface_line_id = p_id_tbl(i)
406: AND processing_id = PO_PDOI_PARAMS.g_processing_id
407: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
408: <> PO_PDOI_CONSTANTS.g_PROCESS_CODE_OBSOLETE
409: RETURNING interface_line_location_id, interface_header_id
410: BULK COLLECT INTO l_intf_line_loc_id_tbl, l_intf_header_id_tbl;
411:
412: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID) THEN
408: <> PO_PDOI_CONSTANTS.g_PROCESS_CODE_OBSOLETE
409: RETURNING interface_line_location_id, interface_header_id
410: BULK COLLECT INTO l_intf_line_loc_id_tbl, l_intf_header_id_tbl;
411:
412: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID) THEN
413: d_position := 30;
414: FORALL i IN 1..p_id_tbl.COUNT
415: UPDATE po_line_locations_interface
416: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
412: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID) THEN
413: d_position := 30;
414: FORALL i IN 1..p_id_tbl.COUNT
415: UPDATE po_line_locations_interface
416: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
417: processing_id = -PO_PDOI_PARAMS.g_processing_id
418: WHERE interface_line_location_id = p_id_tbl(i)
419: AND processing_id = PO_PDOI_PARAMS.g_processing_id
420: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
416: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
417: processing_id = -PO_PDOI_PARAMS.g_processing_id
418: WHERE interface_line_location_id = p_id_tbl(i)
419: AND processing_id = PO_PDOI_PARAMS.g_processing_id
420: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
421: <> PO_PDOI_CONSTANTS.g_PROCESS_CODE_OBSOLETE
422: RETURNING interface_line_location_id, interface_header_id
423: BULK COLLECT INTO l_intf_line_loc_id_tbl, l_intf_header_id_tbl;
424: ELSE
417: processing_id = -PO_PDOI_PARAMS.g_processing_id
418: WHERE interface_line_location_id = p_id_tbl(i)
419: AND processing_id = PO_PDOI_PARAMS.g_processing_id
420: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
421: <> PO_PDOI_CONSTANTS.g_PROCESS_CODE_OBSOLETE
422: RETURNING interface_line_location_id, interface_header_id
423: BULK COLLECT INTO l_intf_line_loc_id_tbl, l_intf_header_id_tbl;
424: ELSE
425: d_position := 40;
433: );
434:
435: IF (p_cascade = FND_API.G_TRUE) THEN
436: IF (PO_PDOI_PARAMS.g_request.document_type =
437: PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
438:
439: d_position := 60;
440: reject_distributions_intf
441: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID
437: PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
438:
439: d_position := 60;
440: reject_distributions_intf
441: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID
442: , p_id_tbl => l_intf_line_loc_id_tbl);
443: END IF;
444: END IF;
445:
466: --Parameters:
467: --IN:
468: --p_id_param_type
469: -- Type of the id. Possible values:
470: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID
471: -- PO_PDOI_CONSTANTS.g_INTERFACE_DISTRIBUTION_ID
472: --p_id_tbl
473: -- Table of ids
474: --IN OUT:
467: --IN:
468: --p_id_param_type
469: -- Type of the id. Possible values:
470: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID
471: -- PO_PDOI_CONSTANTS.g_INTERFACE_DISTRIBUTION_ID
472: --p_id_tbl
473: -- Table of ids
474: --IN OUT:
475: --OUT:
496: d_position := 10;
497: RETURN;
498: END IF;
499:
500: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID) THEN
501: d_position := 20;
502: FORALL i IN 1..p_id_tbl.COUNT
503: UPDATE po_distributions_interface
504: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
500: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_LOCATION_ID) THEN
501: d_position := 20;
502: FORALL i IN 1..p_id_tbl.COUNT
503: UPDATE po_distributions_interface
504: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
505: processing_id = -PO_PDOI_PARAMS.g_processing_id
506: WHERE interface_line_location_id = p_id_tbl(i)
507: AND processing_id = PO_PDOI_PARAMS.g_processing_id
508: RETURNING interface_header_id
507: AND processing_id = PO_PDOI_PARAMS.g_processing_id
508: RETURNING interface_header_id
509: BULK COLLECT INTO l_intf_header_id_tbl;
510:
511: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_DISTRIBUTION_ID) THEN
512: d_position := 30;
513: FORALL i IN 1..p_id_tbl.COUNT
514: UPDATE po_distributions_interface
515: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
511: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_DISTRIBUTION_ID) THEN
512: d_position := 30;
513: FORALL i IN 1..p_id_tbl.COUNT
514: UPDATE po_distributions_interface
515: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
516: processing_id = -PO_PDOI_PARAMS.g_processing_id
517: WHERE interface_distribution_id = p_id_tbl(i)
518: AND processing_id = PO_PDOI_PARAMS.g_processing_id
519: RETURNING interface_header_id
552: --Parameters:
553: --IN:
554: --p_id_param_type
555: -- Type of the id. Possible values:
556: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
557: -- PO_PDOI_CONSTANTS.g_PRICE_DIFF_INTERFACE_ID
558: --p_id_tbl
559: -- Table of ids
560: --IN OUT:
553: --IN:
554: --p_id_param_type
555: -- Type of the id. Possible values:
556: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
557: -- PO_PDOI_CONSTANTS.g_PRICE_DIFF_INTERFACE_ID
558: --p_id_tbl
559: -- Table of ids
560: --IN OUT:
561: --OUT:
582: d_position := 10;
583: RETURN;
584: END IF;
585:
586: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
587: d_position := 20;
588: FORALL i IN 1..p_id_tbl.COUNT
589: UPDATE po_price_diff_interface
590: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
586: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
587: d_position := 20;
588: FORALL i IN 1..p_id_tbl.COUNT
589: UPDATE po_price_diff_interface
590: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
591: processing_id = -PO_PDOI_PARAMS.g_processing_id
592: WHERE interface_line_id = p_id_tbl(i)
593: AND processing_id = PO_PDOI_PARAMS.g_processing_id
594: RETURNING interface_header_id
593: AND processing_id = PO_PDOI_PARAMS.g_processing_id
594: RETURNING interface_header_id
595: BULK COLLECT INTO l_intf_header_id_tbl;
596:
597: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_PRICE_DIFF_INTERFACE_ID) THEN
598: d_position := 30;
599: FORALL i IN 1..p_id_tbl.COUNT
600: UPDATE po_price_diff_interface
601: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
597: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_PRICE_DIFF_INTERFACE_ID) THEN
598: d_position := 30;
599: FORALL i IN 1..p_id_tbl.COUNT
600: UPDATE po_price_diff_interface
601: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
602: processing_id = -PO_PDOI_PARAMS.g_processing_id
603: WHERE price_diff_interface_id = p_id_tbl(i)
604: AND processing_id = PO_PDOI_PARAMS.g_processing_id
605: RETURNING interface_header_id
643: --Parameters:
644: --IN:
645: --p_id_param_type
646: -- Type of the id. Possible values:
647: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
648: -- PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_ID
649: --p_id_tbl
650: -- Table of ids
651: --IN OUT:
644: --IN:
645: --p_id_param_type
646: -- Type of the id. Possible values:
647: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
648: -- PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_ID
649: --p_id_tbl
650: -- Table of ids
651: --IN OUT:
652: --OUT:
674: d_position := 10;
675: RETURN;
676: END IF;
677:
678: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
679: d_position := 20;
680: FORALL i IN 1..p_id_tbl.COUNT
681: UPDATE po_attr_values_interface
682: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
678: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
679: d_position := 20;
680: FORALL i IN 1..p_id_tbl.COUNT
681: UPDATE po_attr_values_interface
682: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
683: processing_id = -PO_PDOI_PARAMS.g_processing_id
684: WHERE interface_line_id = p_id_tbl(i)
685: AND processing_id = PO_PDOI_PARAMS.g_processing_id
686: RETURNING interface_header_id
685: AND processing_id = PO_PDOI_PARAMS.g_processing_id
686: RETURNING interface_header_id
687: BULK COLLECT INTO l_intf_header_id_tbl;
688:
689: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_ID) THEN
690: d_position := 30;
691: FORALL i IN 1..p_id_tbl.COUNT
692: UPDATE po_attr_values_interface
693: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
689: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_ID) THEN
690: d_position := 30;
691: FORALL i IN 1..p_id_tbl.COUNT
692: UPDATE po_attr_values_interface
693: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
694: processing_id = -PO_PDOI_PARAMS.g_processing_id
695: WHERE interface_attr_values_id = p_id_tbl(i)
696: AND processing_id = PO_PDOI_PARAMS.g_processing_id
697: RETURNING interface_header_id
729: --Parameters:
730: --IN:
731: --p_id_param_type
732: -- Type of the id. Possible values:
733: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
734: -- PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_TLP_ID
735: --p_id_tbl
736: -- Table of ids
737: --IN OUT:
730: --IN:
731: --p_id_param_type
732: -- Type of the id. Possible values:
733: -- PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID
734: -- PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_TLP_ID
735: --p_id_tbl
736: -- Table of ids
737: --IN OUT:
738: --OUT:
760: d_position := 10;
761: RETURN;
762: END IF;
763:
764: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
765: d_position := 20;
766: FORALL i IN 1..p_id_tbl.COUNT
767: UPDATE po_attr_values_tlp_interface
768: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
764: IF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_LINE_ID) THEN
765: d_position := 20;
766: FORALL i IN 1..p_id_tbl.COUNT
767: UPDATE po_attr_values_tlp_interface
768: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
769: processing_id = -PO_PDOI_PARAMS.g_processing_id
770: WHERE interface_line_id = p_id_tbl(i)
771: AND processing_id = PO_PDOI_PARAMS.g_processing_id
772: RETURNING interface_header_id
771: AND processing_id = PO_PDOI_PARAMS.g_processing_id
772: RETURNING interface_header_id
773: BULK COLLECT INTO l_intf_header_id_tbl;
774:
775: ELSIF (p_id_param_type = PO_PDOI_CONSTANTS.g_INTERFACE_ATTR_VALUES_TLP_ID) THEN
776: d_position := 30;
777:
778: FORALL i IN 1..p_id_tbl.COUNT
779: UPDATE po_attr_values_tlp_interface
776: d_position := 30;
777:
778: FORALL i IN 1..p_id_tbl.COUNT
779: UPDATE po_attr_values_tlp_interface
780: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
781: processing_id = -PO_PDOI_PARAMS.g_processing_id
782: WHERE interface_attr_values_tlp_id = p_id_tbl(i)
783: AND processing_id = PO_PDOI_PARAMS.g_processing_id
784: RETURNING interface_header_id
848: END IF;
849:
850: -- reject interface records
851: reject_headers_intf
852: ( p_id_param_type => PO_PDOI_CONSTANTS.g_INTERFACE_HEADER_ID,
853: p_id_tbl => PO_TBL_NUMBER(p_interface_header_id),
854: p_cascade => FND_API.G_TRUE
855: );
856:
952: PO_LOG.proc_begin(d_module);
953: END IF;
954:
955: IF (PO_PDOI_PARAMS.g_request.document_type =
956: PO_PDOI_CONSTANTS.g_DOC_TYPE_BLANKET) THEN
957: x_doc_type := 'PA';
958: x_doc_subtype := PO_PDOI_PARAMS.g_request.document_type;
959:
960: ELSIF (PO_PDOI_PARAMS.g_request.document_type =
957: x_doc_type := 'PA';
958: x_doc_subtype := PO_PDOI_PARAMS.g_request.document_type;
959:
960: ELSIF (PO_PDOI_PARAMS.g_request.document_type =
961: PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
962: x_doc_type := 'PO';
963: x_doc_subtype := PO_PDOI_PARAMS.g_request.document_type;
964:
965: ELSIF (PO_PDOI_PARAMS.g_request.document_type =
962: x_doc_type := 'PO';
963: x_doc_subtype := PO_PDOI_PARAMS.g_request.document_type;
964:
965: ELSIF (PO_PDOI_PARAMS.g_request.document_type =
966: PO_PDOI_CONSTANTS.g_DOC_TYPE_QUOTATION) THEN
967: x_doc_type := 'QUOTATION';
968: x_doc_subtype := PO_PDOI_PARAMS.g_request.document_subtype;
969: END IF;
970:
1187: d_position := 20;
1188:
1189: -- reject line level records
1190: UPDATE po_lines_interface
1191: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1192: processing_id = -PO_PDOI_PARAMS.g_processing_id
1193: WHERE interface_header_id = p_intf_header_id
1194: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1195: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1191: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1192: processing_id = -PO_PDOI_PARAMS.g_processing_id
1193: WHERE interface_header_id = p_intf_header_id
1194: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1195: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1196: IN (PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING,
1197: PO_PDOI_CONSTANTS.g_PROCESS_CODE_VAL_AND_REJECT);
1198:
1199: d_position := 30;
1192: processing_id = -PO_PDOI_PARAMS.g_processing_id
1193: WHERE interface_header_id = p_intf_header_id
1194: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1195: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1196: IN (PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING,
1197: PO_PDOI_CONSTANTS.g_PROCESS_CODE_VAL_AND_REJECT);
1198:
1199: d_position := 30;
1200:
1193: WHERE interface_header_id = p_intf_header_id
1194: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1195: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1196: IN (PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING,
1197: PO_PDOI_CONSTANTS.g_PROCESS_CODE_VAL_AND_REJECT);
1198:
1199: d_position := 30;
1200:
1201: -- reject line location level records
1199: d_position := 30;
1200:
1201: -- reject line location level records
1202: UPDATE po_line_locations_interface
1203: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1204: processing_id = -PO_PDOI_PARAMS.g_processing_id
1205: WHERE interface_header_id = p_intf_header_id
1206: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1207: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1203: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1204: processing_id = -PO_PDOI_PARAMS.g_processing_id
1205: WHERE interface_header_id = p_intf_header_id
1206: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1207: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1208: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1209:
1210: d_position := 40;
1211:
1204: processing_id = -PO_PDOI_PARAMS.g_processing_id
1205: WHERE interface_header_id = p_intf_header_id
1206: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1207: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1208: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1209:
1210: d_position := 40;
1211:
1212: -- reject price diff level records
1210: d_position := 40;
1211:
1212: -- reject price diff level records
1213: UPDATE po_price_diff_interface
1214: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1215: processing_id = -PO_PDOI_PARAMS.g_processing_id
1216: WHERE interface_header_id = p_intf_header_id
1217: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1218: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1214: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1215: processing_id = -PO_PDOI_PARAMS.g_processing_id
1216: WHERE interface_header_id = p_intf_header_id
1217: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1218: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1219: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1220:
1221: d_position := 50;
1222:
1215: processing_id = -PO_PDOI_PARAMS.g_processing_id
1216: WHERE interface_header_id = p_intf_header_id
1217: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1218: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1219: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1220:
1221: d_position := 50;
1222:
1223: -- reject attr level records
1221: d_position := 50;
1222:
1223: -- reject attr level records
1224: UPDATE po_attr_values_interface
1225: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1226: processing_id = -PO_PDOI_PARAMS.g_processing_id
1227: WHERE interface_header_id = p_intf_header_id
1228: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1229: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1225: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1226: processing_id = -PO_PDOI_PARAMS.g_processing_id
1227: WHERE interface_header_id = p_intf_header_id
1228: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1229: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1230: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1231:
1232: d_position := 60;
1233: UPDATE po_attr_values_tlp_interface
1226: processing_id = -PO_PDOI_PARAMS.g_processing_id
1227: WHERE interface_header_id = p_intf_header_id
1228: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1229: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1230: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1231:
1232: d_position := 60;
1233: UPDATE po_attr_values_tlp_interface
1234: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1230: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1231:
1232: d_position := 60;
1233: UPDATE po_attr_values_tlp_interface
1234: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1235: processing_id = -PO_PDOI_PARAMS.g_processing_id
1236: WHERE interface_header_id = p_intf_header_id
1237: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1238: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1234: SET process_code = PO_PDOI_CONSTANTS.g_PROCESS_CODE_REJECTED,
1235: processing_id = -PO_PDOI_PARAMS.g_processing_id
1236: WHERE interface_header_id = p_intf_header_id
1237: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1238: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1239: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1240:
1241: IF (PO_LOG.d_proc) THEN
1242: PO_LOG.proc_end(d_module);
1235: processing_id = -PO_PDOI_PARAMS.g_processing_id
1236: WHERE interface_header_id = p_intf_header_id
1237: AND processing_id = PO_PDOI_PARAMS.g_processing_id
1238: AND NVL(process_code, PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING)
1239: = PO_PDOI_CONSTANTS.g_PROCESS_CODE_PENDING;
1240:
1241: IF (PO_LOG.d_proc) THEN
1242: PO_LOG.proc_end(d_module);
1243: END IF;