[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,
50: IF (FND_API.to_boolean(p_init_msg_list)) THEN
51: FND_MSG_PUB.initialize;
52: END IF;
53:
54: PO_DOCUMENT_UPDATE_PVT.update_document(
55: p_api_version => 1.0,
56: p_init_msg_list => p_init_msg_list,
57: x_return_status => x_return_status,
58: p_changes => p_changes,
69:
70: EXCEPTION
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72: -- Add the errors on the API message list to x_api_errors.
73: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
74: p_api_errors => x_api_errors,
75: x_return_status => x_return_status
76: );
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79: -- Add the unexpected error to the API message list.
80: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
81: p_proc_name => l_api_name );
82: -- Add the errors on the API message list to x_api_errors.
83: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
84: p_api_errors => x_api_errors,
85: x_return_status => x_return_status
86: );
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
231:
232: FND_MSG_PUB.initialize;
233:
234: --
235: -- Moved the following logic from the private API (PO_DOCUMENT_UPDATE_PVT)
236: -- to the group API, because the private API now takes changes as a
237: -- PO_CHANGES_REC_TYPE object instead of individual procedure arguments.
238:
239: l_progress := '010';
257: INTO l_po_header_id, l_revision_num,
258: l_authorization_status, l_document_subtype;
259:
260: IF (l_po_header_csr%NOTFOUND) THEN
261: PO_DOCUMENT_UPDATE_PVT.add_error (
262: p_api_errors => x_api_errors,
263: x_return_status => l_return_status,
264: p_message_name => 'PO_INVALID_DOC_IDS',
265: p_table_name => 'PO_HEADERS',
280: INTO l_po_release_id, l_revision_num,
281: l_authorization_status, l_document_subtype;
282:
283: if (l_po_release_csr%NOTFOUND) then
284: PO_DOCUMENT_UPDATE_PVT.add_error (
285: p_api_errors => x_api_errors,
286: x_return_status => l_return_status,
287: p_message_name => 'PO_CHNG_INVALID_RELEASE_NUM',
288: p_table_name => 'PO_RELEASES',
309: -- Check if the document is one of the supported types.
310: IF (l_po_release_id IS NULL) THEN -- PO/PA
311: l_header_table_name := 'PO_HEADERS';
312: IF l_document_subtype NOT IN ('STANDARD', 'PLANNED') THEN
313: PO_DOCUMENT_UPDATE_PVT.add_error (
314: p_api_errors => x_api_errors,
315: x_return_status => l_return_status,
316: p_message_name => l_message_name, --
317: p_table_name => l_header_table_name,
322: END IF; -- l_document_subtype
323: ELSE -- Release
324: l_header_table_name := 'PO_RELEASES';
325: IF l_document_subtype NOT IN ('SCHEDULED', 'BLANKET') THEN
326: PO_DOCUMENT_UPDATE_PVT.add_error (
327: p_api_errors => x_api_errors,
328: x_return_status => l_return_status,
329: p_message_name => l_message_name, --
330: p_table_name => l_header_table_name,
339:
340: -- Check if the document is in a supported status.
341: -- Bug#4156064: allow changing of PO with incomplete status also
342: IF l_authorization_status NOT IN ('APPROVED', 'REQUIRES REAPPROVAL', 'INCOMPLETE') THEN
343: PO_DOCUMENT_UPDATE_PVT.add_error (
344: p_api_errors => x_api_errors,
345: x_return_status => l_return_status,
346: p_message_name => 'PO_ALL_DOC_CANNOT_BE_OPENED',
347: p_table_name => l_header_table_name,
354: l_progress := '060';
355:
356: -- Verify that the passed in revision equals the current revision.
357: IF (l_revision_num <> p_revision_number) THEN
358: PO_DOCUMENT_UPDATE_PVT.add_error (
359: p_api_errors => x_api_errors,
360: x_return_status => l_return_status,
361: p_message_name => 'PO_CHNG_REVISION_NOT_MATCH',
362: p_table_name => l_header_table_name,
378: OPEN l_po_line_csr (l_po_header_id, p_line_number);
379: FETCH l_po_line_csr INTO l_po_line_id;
380:
381: IF (l_po_line_csr%NOTFOUND) THEN
382: PO_DOCUMENT_UPDATE_PVT.add_error (
383: p_api_errors => x_api_errors,
384: x_return_status => l_return_status,
385: p_message_name => 'PO_CHNG_INVALID_LINE_NUM',
386: p_table_name => 'PO_LINES',
398: l_progress := '080';
399:
400: IF (p_new_promised_date IS NOT NULL) THEN
401: -- Lines do not have promised date.
402: PO_DOCUMENT_UPDATE_PVT.add_error (
403: p_api_errors => x_api_errors,
404: x_return_status => l_return_status,
405: p_message_name => 'PO_CHNG_NO_DATE_CHANGE_LINE',
406: p_table_name => 'PO_LINES',
411: END IF; -- p_new_promised_date
412:
413: IF (p_new_need_by_date IS NOT NULL) THEN
414: -- Lines do not have need by date.
415: PO_DOCUMENT_UPDATE_PVT.add_error (
416: p_api_errors => x_api_errors,
417: x_return_status => l_return_status,
418: p_message_name => 'PO_CHNG_NO_NEED_DATE_ON_LINE',
419: p_table_name => 'PO_LINES',
442: OPEN l_po_shipment_csr (l_po_line_id, p_shipment_number);
443: FETCH l_po_shipment_csr INTO l_line_location_id;
444:
445: IF (l_po_shipment_csr%NOTFOUND) THEN
446: PO_DOCUMENT_UPDATE_PVT.add_error (
447: p_api_errors => x_api_errors,
448: x_return_status => l_return_status,
449: p_message_name => 'PO_CHNG_INVALID_SHIPMENT_NUM',
450: p_table_name => 'PO_LINE_LOCATIONS',
461: p_shipment_number);
462: FETCH l_release_shipment_csr INTO l_line_location_id;
463:
464: IF (l_release_shipment_csr%NOTFOUND) THEN
465: PO_DOCUMENT_UPDATE_PVT.add_error (
466: p_api_errors => x_api_errors,
467: x_return_status => l_return_status,
468: p_message_name => 'PO_CHNG_INVALID_SHIPMENT_NUM',
469: p_table_name => 'PO_LINE_LOCATIONS',
496:
497: IF (l_shipment_count > 1) THEN
498: -- Do not allow shipment price changes if the line has
499: -- multiple shipments.
500: PO_DOCUMENT_UPDATE_PVT.add_error (
501: p_api_errors => x_api_errors,
502: x_return_status => l_return_status,
503: p_message_name => 'PO_CHNG_PO_NO_SHIP_PRICE',
504: p_table_name => 'PO_LINE_LOCATIONS',
548: -- Derive the buyer ID from the buyer name.
549: IF ( p_BUYER_NAME IS NOT NULL) THEN
550: l_buyer_id := PO_AGENTS_SV1.derive_agent_id(p_BUYER_NAME);
551: IF (l_buyer_id IS NULL) then -- could not find a buyer
552: PO_DOCUMENT_UPDATE_PVT.add_error (
553: p_api_errors => x_api_errors,
554: x_return_status => l_return_status,
555: p_message_name => 'PO_PDOI_DERV_ERROR',
556: p_column_name => 'P_BUYER_NAME',
566:
567: l_progress := '150';
568:
569: -- Call the private PO Change API to derive, validate, and apply the changes.
570: PO_DOCUMENT_UPDATE_PVT.update_document(
571: p_api_version => 1.0,
572: p_init_msg_list => FND_API.G_TRUE,
573: x_return_status => l_return_status,
574: p_changes => l_changes,
590:
591: EXCEPTION
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
593: -- Add the errors on the API message list to x_api_errors.
594: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
595: p_api_errors => x_api_errors,
596: x_return_status => l_return_status
597: );
598: x_result := 0;
601: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
602: p_proc_name => l_api_name,
603: p_progress => l_progress );
604: -- Add the errors on the API message list to x_api_errors.
605: PO_DOCUMENT_UPDATE_PVT.add_message_list_errors (
606: p_api_errors => x_api_errors,
607: x_return_status => l_return_status
608: );
609: x_result := 0;
611: END update_document;
612:
613: --
614: -- In file version 115.3, moved this procedure from the private API
615: -- (PO_DOCUMENT_UPDATE_PVT) to the group API, because the private API
616: -- now takes changes as a PO_CHANGES_REC_TYPE object, not as individual
617: -- procedure arguments.
618:
619: -------------------------------------------------------------------------------
648: END IF;
649: END IF;
650:
651: if (p_PO_NUMBER is null) then
652: PO_DOCUMENT_UPDATE_PVT.add_error (
653: p_api_errors => p_api_errors,
654: x_return_status => l_return_status,
655: p_message_name => 'PO_ALL_CNL_PARAM_NULL',
656: p_column_name => 'P_PO_NUMBER'
658: return 0;
659: end if;
660:
661: if (p_REVISION_NUMBER is null) then
662: PO_DOCUMENT_UPDATE_PVT.add_error (
663: p_api_errors => p_api_errors,
664: x_return_status => l_return_status,
665: p_message_name => 'PO_ALL_CNL_PARAM_NULL',
666: p_column_name => 'P_REVISION_NUMBER'
668: return 0;
669: end if;
670:
671: IF (NVL(p_LAUNCH_APPROVALS_FLAG,'N') NOT IN ('Y', 'N')) THEN
672: PO_DOCUMENT_UPDATE_PVT.add_error (
673: p_api_errors => p_api_errors,
674: x_return_status => l_return_status,
675: p_message_name => 'PO_CHNG_INVALID_LAUNCH_FLAG',
676: p_column_name => 'P_LAUNCH_APPROVALS_FLAG');
677: return 0;
678: END IF;
679:
680: IF (p_LINE_NUMBER IS NULL) THEN
681: PO_DOCUMENT_UPDATE_PVT.add_error (
682: p_api_errors => p_api_errors,
683: x_return_status => l_return_status,
684: p_message_name => 'PO_ALL_CNL_PARAM_NULL',
685: p_column_name => 'P_LINE_NUMBER'
702:
703: /* check if process attributes are null */
704:
705: IF (p_secondary_qty IS NULL AND p_preferred_grade IS NULL) THEN
706: PO_DOCUMENT_UPDATE_PVT.add_error (
707: p_api_errors => p_api_errors,
708: x_return_status => l_return_status,
709: p_message_name => 'PO_CHNG_ONE_INPUT_REQUIRED');
710: return 0;
732: --Function:
733: -- Launches the Document Approval workflow for the given document.
734: --Note:
735: -- For details, see the package body comments for
736: -- PO_DOCUMENT_UPDATE_PVT.launch_po_approval_wf.
737: --End of Comments
738: -------------------------------------------------------------------------------
739: PROCEDURE launch_po_approval_wf (
740: p_api_version IN NUMBER,
767: END IF;
768:
769: l_progress := '010';
770:
771: PO_DOCUMENT_UPDATE_PVT.launch_po_approval_wf (
772: p_api_version => 1.0,
773: p_init_msg_list => FND_API.G_FALSE,
774: x_return_status => x_return_status,
775: p_document_id => p_document_id,