[Home] [Help]
19: -- Validates and applies the requested changes and any derived
20: -- changes to the Purchase Order, Purchase Agreement, or Release.
21: --Notes:
22: -- For details, see the comments in the package body for
23: -- PO_DOCUMENT_UPDATE_PVT.update_document.
24: --End of Comments
25: -------------------------------------------------------------------------------
26: PROCEDURE update_document (
27: p_api_version IN NUMBER,
49: IF (FND_API.to_boolean(p_init_msg_list)) THEN
50: FND_MSG_PUB.initialize;
51: END IF;
52:
53: PO_DOCUMENT_UPDATE_PVT.update_document(
54: p_api_version => 1.0,
55: p_init_msg_list => p_init_msg_list,
56: x_return_status => x_return_status,
57: p_changes => p_changes,
67:
68: EXCEPTION
69: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
70: -- Add the errors on the API message list to x_api_errors.
71: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
72: p_api_errors => x_api_errors,
73: x_return_status => x_return_status
74: );
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
77: -- Add the unexpected error to the API message list.
78: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
79: p_proc_name => l_api_name );
80: -- Add the errors on the API message list to x_api_errors.
81: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
82: p_api_errors => x_api_errors,
83: x_return_status => x_return_status
84: );
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229:
230: FND_MSG_PUB.initialize;
231:
232: --
233: -- Moved the following logic from the private API (PO_DOCUMENT_UPDATE_PVT)
234: -- to the group API, because the private API now takes changes as a
235: -- PO_CHANGES_REC_TYPE object instead of individual procedure arguments.
236:
237: l_progress := '010';
255: INTO l_po_header_id, l_revision_num,
256: l_authorization_status, l_document_subtype;
257:
258: IF (l_po_header_csr%NOTFOUND) THEN
259: PO_DOCUMENT_UPDATE_PVT.add_error (
260: p_api_errors => x_api_errors,
261: x_return_status => l_return_status,
262: p_message_name => 'PO_INVALID_DOC_IDS',
263: p_table_name => 'PO_HEADERS',
278: INTO l_po_release_id, l_revision_num,
279: l_authorization_status, l_document_subtype;
280:
281: if (l_po_release_csr%NOTFOUND) then
282: PO_DOCUMENT_UPDATE_PVT.add_error (
283: p_api_errors => x_api_errors,
284: x_return_status => l_return_status,
285: p_message_name => 'PO_CHNG_INVALID_RELEASE_NUM',
286: p_table_name => 'PO_RELEASES',
307: -- Check if the document is one of the supported types.
308: IF (l_po_release_id IS NULL) THEN -- PO/PA
309: l_header_table_name := 'PO_HEADERS';
310: IF l_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN
311: PO_DOCUMENT_UPDATE_PVT.add_error (
312: p_api_errors => x_api_errors,
313: x_return_status => l_return_status,
314: p_message_name => l_message_name, --
315: p_table_name => l_header_table_name,
320: END IF; -- l_document_subtype
321: ELSE -- Release
322: l_header_table_name := 'PO_RELEASES';
323: IF l_document_subtype NOT IN ('SCHEDULED', 'BLANKET') THEN
324: PO_DOCUMENT_UPDATE_PVT.add_error (
325: p_api_errors => x_api_errors,
326: x_return_status => l_return_status,
327: p_message_name => l_message_name, --
328: p_table_name => l_header_table_name,
337:
338: -- Check if the document is in a supported status.
339: -- Bug#4156064: allow changing of PO with incomplete status also
340: IF l_authorization_status NOT IN ('APPROVED', 'REQUIRES REAPPROVAL', 'INCOMPLETE') THEN
341: PO_DOCUMENT_UPDATE_PVT.add_error (
342: p_api_errors => x_api_errors,
343: x_return_status => l_return_status,
344: p_message_name => 'PO_ALL_DOC_CANNOT_BE_OPENED',
345: p_table_name => l_header_table_name,
352: l_progress := '060';
353:
354: -- Verify that the passed in revision equals the current revision.
355: IF (l_revision_num <> p_revision_number) THEN
356: PO_DOCUMENT_UPDATE_PVT.add_error (
357: p_api_errors => x_api_errors,
358: x_return_status => l_return_status,
359: p_message_name => 'PO_CHNG_REVISION_NOT_MATCH',
360: p_table_name => l_header_table_name,
376: OPEN l_po_line_csr (l_po_header_id, p_line_number);
377: FETCH l_po_line_csr INTO l_po_line_id;
378:
379: IF (l_po_line_csr%NOTFOUND) THEN
380: PO_DOCUMENT_UPDATE_PVT.add_error (
381: p_api_errors => x_api_errors,
382: x_return_status => l_return_status,
383: p_message_name => 'PO_CHNG_INVALID_LINE_NUM',
384: p_table_name => 'PO_LINES',
396: l_progress := '080';
397:
398: IF (p_new_promised_date IS NOT NULL) THEN
399: -- Lines do not have promised date.
400: PO_DOCUMENT_UPDATE_PVT.add_error (
401: p_api_errors => x_api_errors,
402: x_return_status => l_return_status,
403: p_message_name => 'PO_CHNG_NO_DATE_CHANGE_LINE',
404: p_table_name => 'PO_LINES',
409: END IF; -- p_new_promised_date
410:
411: IF (p_new_need_by_date IS NOT NULL) THEN
412: -- Lines do not have need by date.
413: PO_DOCUMENT_UPDATE_PVT.add_error (
414: p_api_errors => x_api_errors,
415: x_return_status => l_return_status,
416: p_message_name => 'PO_CHNG_NO_NEED_DATE_ON_LINE',
417: p_table_name => 'PO_LINES',
440: OPEN l_po_shipment_csr (l_po_line_id, p_shipment_number);
441: FETCH l_po_shipment_csr INTO l_line_location_id;
442:
443: IF (l_po_shipment_csr%NOTFOUND) THEN
444: PO_DOCUMENT_UPDATE_PVT.add_error (
445: p_api_errors => x_api_errors,
446: x_return_status => l_return_status,
447: p_message_name => 'PO_CHNG_INVALID_SHIPMENT_NUM',
448: p_table_name => 'PO_LINE_LOCATIONS',
459: p_shipment_number);
460: FETCH l_release_shipment_csr INTO l_line_location_id;
461:
462: IF (l_release_shipment_csr%NOTFOUND) THEN
463: PO_DOCUMENT_UPDATE_PVT.add_error (
464: p_api_errors => x_api_errors,
465: x_return_status => l_return_status,
466: p_message_name => 'PO_CHNG_INVALID_SHIPMENT_NUM',
467: p_table_name => 'PO_LINE_LOCATIONS',
494:
495: IF (l_shipment_count > 1) THEN
496: -- Do not allow shipment price changes if the line has
497: -- multiple shipments.
498: PO_DOCUMENT_UPDATE_PVT.add_error (
499: p_api_errors => x_api_errors,
500: x_return_status => l_return_status,
501: p_message_name => 'PO_CHNG_PO_NO_SHIP_PRICE',
502: p_table_name => 'PO_LINE_LOCATIONS',
546: -- Derive the buyer ID from the buyer name.
547: IF ( p_BUYER_NAME IS NOT NULL) THEN
548: l_buyer_id := PO_AGENTS_SV1.derive_agent_id(p_BUYER_NAME);
549: IF (l_buyer_id IS NULL) then -- could not find a buyer
550: PO_DOCUMENT_UPDATE_PVT.add_error (
551: p_api_errors => x_api_errors,
552: x_return_status => l_return_status,
553: p_message_name => 'PO_PDOI_DERV_ERROR',
554: p_column_name => 'P_BUYER_NAME',
564:
565: l_progress := '150';
566:
567: -- Call the private PO Change API to derive, validate, and apply the changes.
568: PO_DOCUMENT_UPDATE_PVT.update_document(
569: p_api_version => 1.0,
570: p_init_msg_list => FND_API.G_TRUE,
571: x_return_status => l_return_status,
572: p_changes => l_changes,
588:
589: EXCEPTION
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: -- Add the errors on the API message list to x_api_errors.
592: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
593: p_api_errors => x_api_errors,
594: x_return_status => l_return_status
595: );
596: x_result := 0;
599: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
600: p_proc_name => l_api_name,
601: p_progress => l_progress );
602: -- Add the errors on the API message list to x_api_errors.
603: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
604: p_api_errors => x_api_errors,
605: x_return_status => l_return_status
606: );
607: x_result := 0;
609: END update_document;
610:
611: --
612: -- In file version 115.3, moved this procedure from the private API
613: -- (PO_DOCUMENT_UPDATE_PVT) to the group API, because the private API
614: -- now takes changes as a PO_CHANGES_REC_TYPE object, not as individual
615: -- procedure arguments.
616:
617: -------------------------------------------------------------------------------
646: END IF;
647: END IF;
648:
649: if (p_PO_NUMBER is null) then
650: PO_DOCUMENT_UPDATE_PVT.add_error (
651: p_api_errors => p_api_errors,
652: x_return_status => l_return_status,
653: p_message_name => 'PO_ALL_CNL_PARAM_NULL',
654: p_column_name => 'P_PO_NUMBER'
656: return 0;
657: end if;
658:
659: if (p_REVISION_NUMBER is null) then
660: PO_DOCUMENT_UPDATE_PVT.add_error (
661: p_api_errors => p_api_errors,
662: x_return_status => l_return_status,
663: p_message_name => 'PO_ALL_CNL_PARAM_NULL',
664: p_column_name => 'P_REVISION_NUMBER'
666: return 0;
667: end if;
668:
669: IF (NVL(p_LAUNCH_APPROVALS_FLAG,'N') NOT IN ('Y', 'N')) THEN
670: PO_DOCUMENT_UPDATE_PVT.add_error (
671: p_api_errors => p_api_errors,
672: x_return_status => l_return_status,
673: p_message_name => 'PO_CHNG_INVALID_LAUNCH_FLAG',
674: p_column_name => 'P_LAUNCH_APPROVALS_FLAG');
675: return 0;
676: END IF;
677:
678: IF (p_LINE_NUMBER IS NULL) THEN
679: PO_DOCUMENT_UPDATE_PVT.add_error (
680: p_api_errors => p_api_errors,
681: x_return_status => l_return_status,
682: p_message_name => 'PO_ALL_CNL_PARAM_NULL',
683: p_column_name => 'P_LINE_NUMBER'
700:
701: /* check if process attributes are null */
702:
703: IF (p_secondary_qty IS NULL AND p_preferred_grade IS NULL) THEN
704: PO_DOCUMENT_UPDATE_PVT.add_error (
705: p_api_errors => p_api_errors,
706: x_return_status => l_return_status,
707: p_message_name => 'PO_CHNG_ONE_INPUT_REQUIRED');
708: return 0;
730: --Function:
731: -- Launches the Document Approval workflow for the given document.
732: --Note:
733: -- For details, see the package body comments for
734: -- PO_DOCUMENT_UPDATE_PVT.launch_po_approval_wf.
735: --End of Comments
736: -------------------------------------------------------------------------------
737: PROCEDURE launch_po_approval_wf (
738: p_api_version IN NUMBER,
765: END IF;
766:
767: l_progress := '010';
768:
769: PO_DOCUMENT_UPDATE_PVT.launch_po_approval_wf (
770: p_api_version => 1.0,
771: p_init_msg_list => FND_API.G_FALSE,
772: x_return_status => x_return_status,
773: p_document_id => p_document_id,