[Home] [Help]
115: -- None.
116: --Function:
117: -- This API is called from the Approval Window or by the
118: -- Concurrent Program. This procedure will update all
119: -- the releases against Blanket Agreeements or Standard
120: -- POs against Global Agreements that have lines that
121: -- are retroactively changed.
122: -- Selects the blanket lines that have been retroactively changed
123: -- and selects all the releases againt BA (or std PO against GA).
345: and poh.org_id = fsp.org_id --
346: and nvl(fsp.purch_encumbrance_flag,'N') = 'N' -- Bug 3573266
347: and poh.org_id = pdt.org_id --
348: and pdt.document_type_code = 'PO' -- Bug 3573266
349: and pdt.document_subtype = 'STANDARD' -- Bug 3573266
350: and (nvl(pdt.archive_external_revision_code,'PRINT') = 'APPROVE' -- Bug 3573266
351: or (not exists (Select 'billed received shipments' -- Bug 3565522
352: from po_line_locations_all poll1
353: where poll1.po_line_id = pol.po_line_id
479: AND poh.org_id = fsp.org_id
480: AND nvl(fsp.purch_encumbrance_flag,'N') = 'N'
481: AND poh.org_id = pdt.org_id
482: AND pdt.document_type_code = 'PO'
483: AND pdt.document_subtype = 'STANDARD'
484: AND
485: (
486: nvl(pdt.archive_external_revision_code,'PRINT') = 'APPROVE'
487: OR
631:
632: l_module := g_log_head||l_api_name||'.'||'000'||'.';
633:
634:
635: -- Standard call to check for call compatibility
636:
637: IF (NOT FND_API.Compatible_API_Call(l_api_version
638: ,p_api_version
639: ,l_api_name
1693: l_module := g_log_head||l_api_name||'.'||'130'||'.';
1694: g_po_release_id_table.delete;
1695: g_po_header_id_table.delete;
1696:
1697: PO_RETROACTIVE_PRICING_PVT.WrapUp_Standard_PO;
1698:
1699:
1700: l_module := g_log_head||l_api_name||'.'||'140'||'.';
1701:
2052:
2053:
2054:
2055: /**
2056: * Private Procedure: WrapUp_Standard_PO
2057: * Modifies: authorization_Status and revision_num in po_headers.
2058: * Effects: If any release shipment is updated with the new price, then
2059: * revision_num must be incremented and authorization_Status
2060: * has to be updated to Requires approval if the status is
2060: * has to be updated to Requires approval if the status is
2061: * Approved. This is called from massupdate_releases procedure.
2062: */
2063:
2064: PROCEDURE WrapUp_Standard_PO IS
2065:
2066: l_global_arch_rev_num_table num_table;
2067: l_row_id_table char30_table;
2068:
2067: l_row_id_table char30_table;
2068:
2069: l_progress varchar2(3);
2070: l_module VARCHAR2(100);
2071: l_api_name CONSTANT VARCHAR2(50) := 'WrapUp_Standard_PO';
2072: x_tax_status VARCHAR2(10);
2073: l_encode varchar2(2000);
2074: l_error_message varchar2(2000);
2075: l_doc_org_id number;
2196: l_module,SQLERRM(SQLCODE));
2197: END IF;
2198: raise;
2199:
2200: end WrapUp_Standard_PO;
2201:
2202: /**
2203: * Private Procedure: Process_Price_Change
2204: * Modifies: updates the global variables with the release_id, revision_num
2602: PO_DOCUMENT_CHECKS_GRP.po_submission_check(
2603: p_api_version => 1.0,
2604: p_action_requested => 'DOC_SUBMISSION_CHECK',
2605: p_document_type => 'PO',
2606: p_document_subtype => 'STANDARD',
2607: p_document_id => g_po_header_id_table(i),
2608: x_return_status => x_return_status,
2609: x_sub_check_status => x_sub_check_status,
2610: x_msg_data => x_msg_data,
2645:
2646: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2647: ( p_doc_id => g_po_header_id_table(i),
2648: p_doc_type => 'PO',
2649: p_doc_subtype => 'STANDARD');
2650: end if;
2651:
2652: -- Bug 3318625
2653: END IF; /* if (g_po_auth_table(i) = 'APPROVED' OR */
3147: --p_document_id
3148: -- The id of the document (po_header_id or po_release_id)
3149: --p_document_type
3150: -- The type of the document
3151: -- PO : Standard PO
3152: -- RELEASE : Release
3153: --RETURN:
3154: -- 'Y': Retroactive Pricing Update
3155: -- 'N': Not a Retroactive Pricing Update
3229: --p_document_id
3230: -- The id of the document (po_header_id or po_release_id)
3231: --p_document_type
3232: -- The type of the document
3233: -- PO : Standard PO
3234: -- RELEASE : Release
3235: --Testing:
3236: --
3237: --End of Comments
3263: PO_DEBUG.debug_stmt(l_log_head,l_progress, 'Reset retroactive_date for PO');
3264: END IF; /* IF g_debug_stmt */
3265:
3266: -- SQL What: Reset retroactive_date for this PO
3267: -- SQL Why : For Standard PO, column po_lines.retroactive_date will
3268: -- be updated if any retroactive pricing changes. Reset it
3269: -- to NULL after processing retroactive pricing.
3270: UPDATE po_lines_all
3271: SET retroactive_date = NULL,
3330: --p_document_id
3331: -- The id of the document (po_header_id or po_release_id)
3332: --p_document_type
3333: -- The type of the document
3334: -- PO : Standard PO
3335: -- RELEASE : Release
3336: --OUT:
3337: --x_return_status
3338: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3369: -- Bug 3314204, Pass Inventory API price in functional price
3370: l_base_curr_precision FND_CURRENCIES.precision%TYPE := 2;
3371:
3372: CURSOR c_stdpo(p_po_header_id NUMBER) IS
3373: -- SQL What: Querying for standard PO which is not consigned
3374: -- SQL Why: Need to process retroactive price correction of
3375: -- invoices and receipt account adjustments
3376: -- SQL Join: po_header_id
3377: SELECT poll.po_header_id,
3417: AND polla.latest_external_flag = 'Y'
3418: AND poll.price_override <> polla.price_override; -- Bug 3526448
3419:
3420: CURSOR c_consigned_stdpo(p_po_header_id NUMBER) IS
3421: -- SQL What: Querying for standard PO which is consigned
3422: -- SQL Why: Need to process retroactive price correction of
3423: -- invoices and receipt account adjustments
3424: -- SQL Join: po_header_id
3425: SELECT poh.po_header_id,
3615: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_id', p_document_id);
3616: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type', p_document_type);
3617: END IF;
3618:
3619: -- Standard call to check for call compatibility
3620: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3621: THEN
3622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3623: END IF;
3657: PO_DEBUG.debug_var(l_log_head,l_progress,'l_consigned_flag', l_consigned_flag);
3658: END IF; /* IF g_debug_stmt */
3659:
3660: IF (l_consigned_flag = 'N') THEN
3661: -- For standard POs and PO releases(not consigned),
3662: -- call the new accounting events API
3663: l_progress := '040';
3664: IF g_debug_stmt THEN
3665: PO_DEBUG.debug_stmt(l_log_head,l_progress,
4636: -- None.
4637: --Function:
4638: -- This function returns true if the Inventory accounting period is open for
4639: -- all ship-to-org's at the shipment level for a Consumption Advice.
4640: -- For Standard PO's, this function is called at the line level. So it
4641: -- checks all PO shipments in a loop.
4642: -- For Blanket releases, this function is called at shipment level. So we
4643: -- do not need a loop.
4644: --