[Home] [Help]
1499: -- Creates encumbrance entries in the gl_bc_packets table.
1500: -- Adds distribution-specific transaction information into the
1501: -- po_online_report_text table.
1502: -- Adds entries to the action history.
1503: -- Manipulates PO_ENCUMBRANCE_GT.
1504: -- Updates the base document tables with encumbrance results.
1505: --Function:
1506: -- This procedure transfers encumbrance from OLD requisition
1507: -- lines/distributions to NEW lines/distributions.
1585:
1586: l_progress := '100';
1587: IF g_debug_stmt THEN
1588: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1589: 'Populate po_encumbrance_gt with before distribution ids');
1590: END IF;
1591:
1592: -- Fill the GTT with the data from the doc tables.
1593: populate_encumbrance_gt(
1609:
1610: l_progress := '210';
1611: IF g_debug_stmt THEN
1612: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1613: 'Populate po_encumbrance_gt with after distribution ids');
1614: END IF;
1615:
1616: -- Fill the GTT with the data from the doc tables.
1617: populate_encumbrance_gt(
1928: --p_doc_level_id
1929: -- The id corresponding to the entity type:
1930: -- header_id/release_id, line_id, line_location_id, distribution_id
1931: --p_use_enc_gt_flag
1932: -- Specifies if the input values have been populated in the PO_ENCUMBRANCE_GT
1933: -- table (using populate_encumbrance_gt procedure) instead of being passed in
1934: -- as parameters. Has to be used if multiple ids needs to passed in.
1935: --p_override_funds
1936: -- Indicates whether funds override capability can be used if needed, to make a
3539: END IF;
3540:
3541: l_progress := '046';
3542: IF g_debug_stmt THEN
3543: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3544: END IF;
3545:
3546: -- Bug 5035240 Begin : Moved this code to check after PO_ENCUMBRANCE_GT is populated
3547: IF p_action = g_action_RESERVE THEN
3542: IF g_debug_stmt THEN
3543: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3544: END IF;
3545:
3546: -- Bug 5035240 Begin : Moved this code to check after PO_ENCUMBRANCE_GT is populated
3547: IF p_action = g_action_RESERVE THEN
3548: IF (nvl(p_prevent_partial_flag, 'N') = 'Y'
3549: OR l_gl_call_mode = 'F') THEN
3550:
3555: -- Don't allow partials if there is any backing document
3556: BEGIN
3557: SELECT 'N'
3558: INTO l_partial_flag
3559: FROM PO_ENCUMBRANCE_GT
3560: WHERE origin_sequence_num IS NOT NULL
3561: AND rownum = 1;
3562: l_progress := '048';
3563: EXCEPTION
3594:
3595: SELECT distribution_type,
3596: distribution_id
3597: BULK COLLECT INTO l_distribution_type_tbl, l_distribution_id_tbl
3598: FROM po_encumbrance_gt
3599: ORDER BY line_location_id, distribution_id;
3600:
3601: --if any record is present for encumbrance processing then call the IL API
3602: IF l_Distribution_Id_Tbl.COUNT > 0 and l_distribution_type_tbl.count > 0 THEN
3612:
3613: IF l_Return_Status = 'S' THEN
3614:
3615: IF g_debug_stmt THEN
3616: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Update po_encumbrance_gt with the JAI non-recoverable tax');
3617: END IF;
3618:
3619: --Use forall to bulk update the nonrecoverable tax in the encumbrance table
3620: FORALL indx IN 1..l_nonrecoverable_tax_tbl.COUNT
3617: END IF;
3618:
3619: --Use forall to bulk update the nonrecoverable tax in the encumbrance table
3620: FORALL indx IN 1..l_nonrecoverable_tax_tbl.COUNT
3621: UPDATE po_encumbrance_gt
3622: SET nonrecoverable_tax = nvl(l_nonrecoverable_tax_tbl(indx),0)
3623: WHERE distribution_id = l_distribution_id_tbl(indx)
3624: AND distribution_type = l_distribution_type_tbl(indx);
3625:
3689:
3690: l_progress := '060';
3691:
3692: IF g_debug_stmt THEN
3693: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3694: END IF;
3695:
3696: IF (l_period_exception_flag = 'Y') OR
3697: (l_uom_conversion_exc_flag = 'Y') --
3779: , p_gl_return_code => l_gl_return_code
3780: );
3781:
3782: IF g_debug_stmt THEN
3783: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3784: END IF;
3785:
3786:
3787: -- Bug 11665915 Custom hook to validate funds in an external financial system
3857: -- For Req Split, there are only Reqs (main doc) in the temp table.
3858:
3859: SELECT DISTINCT DISTS.header_id
3860: BULK COLLECT INTO l_doc_id_tbl
3861: FROM PO_ENCUMBRANCE_GT DISTS
3862: ;
3863:
3864: l_progress := '835';
3865:
3874: , g_doc_type_RELEASE, DISTS.po_release_id
3875: , DISTS.header_id
3876: )
3877: INTO l_document_id
3878: FROM PO_ENCUMBRANCE_GT DISTS
3879: WHERE DISTS.origin_sequence_num IS NULL
3880: AND rownum = 1
3881: ;
3882:
4128: ------------------------------------------------------------------------------
4129: --Start of Comments
4130: --Name: create_report_object
4131: --Pre-reqs:
4132: -- PO_ENCUMBRANCE_GT is populated with all result columns after
4133: -- a call to the FL funds checker
4134: --Modifies:
4135: -- None.
4136: --Locks:
4478: --Name: populate_encumbrance_gt
4479: --Pre-reqs:
4480: -- None.
4481: --Modifies:
4482: -- PO_ENCUMBRANCE_GT
4483: --Locks:
4484: -- PO_HEADERS_ALL
4485: -- PO_RELEASES_ALL
4486: -- PO_DISTRIBUTIONS_ALL
4643: PO_DEBUG.debug_stmt(l_log_head,l_progress,'requisition');
4644: END IF;
4645:
4646: FORALL i IN 1 .. p_adjustment_status_tbl.COUNT
4647: INSERT INTO PO_ENCUMBRANCE_GT
4648: ( adjustment_status
4649: , distribution_type
4650: , header_id
4651: , line_id
4757: PO_DEBUG.debug_stmt(l_log_head,l_progress,'not requisition');
4758: END IF;
4759:
4760: FORALL i IN 1 .. p_adjustment_status_tbl.COUNT
4761: INSERT INTO PO_ENCUMBRANCE_GT
4762: ( adjustment_status
4763: , distribution_type
4764: , header_id
4765: , po_release_id
4910: IF p_doc_type = g_doc_type_PO THEN
4911: IF g_debug_stmt THEN
4912: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Updating the CLM Doc Flag for Standard PO Distributions.');
4913: END IF;
4914: UPDATE po_encumbrance_gt DISTS
4915: SET DISTS.CLM_DOC_FLAG = PO_PARTIAL_FUNDING_PKG.is_clm_document(g_doc_type_PO, DISTS.HEADER_ID)
4916: WHERE DISTS.distribution_type = 'STANDARD';
4917:
4918: l_progress := '270';
4952: --Name: populate_enc_gt_action_ids
4953: --Pre-reqs:
4954: -- None.
4955: --Modifies:
4956: -- PO_ENCUMBRANCE_GT
4957: --Locks:
4958: -- None.
4959: --Function:
4960: -- Prepares a call to a do_<> action that will operate on multiple ids
4958: -- None.
4959: --Function:
4960: -- Prepares a call to a do_<> action that will operate on multiple ids
4961: -- for the given doc type/level.
4962: -- The ids are placed in PO_ENCUMBRANCE_GT, where the encumbrance actions
4963: -- will find them. This is a workaround to the inability of Forms to
4964: -- deal with database object tables (otherwise, the IDs could be passed
4965: -- as a table parameter to do_<>).
4966: -- Any pre-existing data in PO_ENCUMBRANCE_GT will be deleted.
4962: -- The ids are placed in PO_ENCUMBRANCE_GT, where the encumbrance actions
4963: -- will find them. This is a workaround to the inability of Forms to
4964: -- deal with database object tables (otherwise, the IDs could be passed
4965: -- as a table parameter to do_<>).
4966: -- Any pre-existing data in PO_ENCUMBRANCE_GT will be deleted.
4967: --Parameters:
4968: --IN:
4969: --p_doc_type
4970: -- Document type. Use the g_doc_type_<> variables, where <> is:
5055: -- hopefully the prevent_encumbrance_flag being set
5056: -- here will stop any data corruption from happening.
5057:
5058: FORALL i IN 1 .. p_doc_level_id_tbl.COUNT
5059: INSERT INTO PO_ENCUMBRANCE_GT
5060: ( distribution_type
5061: , doc_level
5062: , doc_level_id
5063: , prevent_encumbrance_flag
5497: --Name: POPULATE_ENC_GT_WITH_DRAFT
5498: --Pre-reqs:
5499: -- None.
5500: --Modifies:
5501: -- the PO_ENCUMBRANCE_GT global temp table
5502: --Locks:
5503: -- None.
5504: --Function:
5505: -- Populates a Global Temp table with data for a given Draft Id
5563: L_dist_id_tbl(i));
5564:
5565: l_progress := '040';
5566: IF g_debug_stmt THEN
5567: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Inserting Data into PO Encumbrance Gt for Draft');
5568: END IF;
5569:
5570: INSERT INTO po_encumbrance_gt
5571: (adjustment_status,
5566: IF g_debug_stmt THEN
5567: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Inserting Data into PO Encumbrance Gt for Draft');
5568: END IF;
5569:
5570: INSERT INTO po_encumbrance_gt
5571: (adjustment_status,
5572: distribution_type,
5573: header_id,
5574: po_release_id,