[Home] [Help]
1459: -- Creates encumbrance entries in the gl_bc_packets table.
1460: -- Adds distribution-specific transaction information into the
1461: -- po_online_report_text table.
1462: -- Adds entries to the action history.
1463: -- Manipulates PO_ENCUMBRANCE_GT.
1464: -- Updates the base document tables with encumbrance results.
1465: --Function:
1466: -- This procedure transfers encumbrance from OLD requisition
1467: -- lines/distributions to NEW lines/distributions.
1545:
1546: l_progress := '100';
1547: IF g_debug_stmt THEN
1548: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1549: 'Populate po_encumbrance_gt with before distribution ids');
1550: END IF;
1551:
1552: -- Fill the GTT with the data from the doc tables.
1553: populate_encumbrance_gt(
1569:
1570: l_progress := '210';
1571: IF g_debug_stmt THEN
1572: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1573: 'Populate po_encumbrance_gt with after distribution ids');
1574: END IF;
1575:
1576: -- Fill the GTT with the data from the doc tables.
1577: populate_encumbrance_gt(
1888: --p_doc_level_id
1889: -- The id corresponding to the entity type:
1890: -- header_id/release_id, line_id, line_location_id, distribution_id
1891: --p_use_enc_gt_flag
1892: -- Specifies if the input values have been populated in the PO_ENCUMBRANCE_GT
1893: -- table (using populate_encumbrance_gt procedure) instead of being passed in
1894: -- as parameters. Has to be used if multiple ids needs to passed in.
1895: --p_override_funds
1896: -- Indicates whether funds override capability can be used if needed, to make a
3459: END IF;
3460:
3461: l_progress := '046';
3462: IF g_debug_stmt THEN
3463: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3464: END IF;
3465:
3466: -- Bug 5035240 Begin : Moved this code to check after PO_ENCUMBRANCE_GT is populated
3467: IF p_action = g_action_RESERVE THEN
3462: IF g_debug_stmt THEN
3463: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3464: END IF;
3465:
3466: -- Bug 5035240 Begin : Moved this code to check after PO_ENCUMBRANCE_GT is populated
3467: IF p_action = g_action_RESERVE THEN
3468: IF (nvl(p_prevent_partial_flag, 'N') = 'Y'
3469: OR l_gl_call_mode = 'F') THEN
3470:
3475: -- Don't allow partials if there is any backing document
3476: BEGIN
3477: SELECT 'N'
3478: INTO l_partial_flag
3479: FROM PO_ENCUMBRANCE_GT
3480: WHERE origin_sequence_num IS NOT NULL
3481: AND rownum = 1;
3482: l_progress := '048';
3483: EXCEPTION
3514:
3515: SELECT distribution_type,
3516: distribution_id
3517: BULK COLLECT INTO l_distribution_type_tbl, l_distribution_id_tbl
3518: FROM po_encumbrance_gt
3519: ORDER BY line_location_id, distribution_id;
3520:
3521: --if any record is present for encumbrance processing then call the IL API
3522: IF l_Distribution_Id_Tbl.COUNT > 0 and l_distribution_type_tbl.count > 0 THEN
3532:
3533: IF l_Return_Status = 'S' THEN
3534:
3535: IF g_debug_stmt THEN
3536: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Update po_encumbrance_gt with the JAI non-recoverable tax');
3537: END IF;
3538:
3539: --Use forall to bulk update the nonrecoverable tax in the encumbrance table
3540: FORALL indx IN 1..l_nonrecoverable_tax_tbl.COUNT
3537: END IF;
3538:
3539: --Use forall to bulk update the nonrecoverable tax in the encumbrance table
3540: FORALL indx IN 1..l_nonrecoverable_tax_tbl.COUNT
3541: UPDATE po_encumbrance_gt
3542: SET nonrecoverable_tax = nvl(l_nonrecoverable_tax_tbl(indx),0)
3543: WHERE distribution_id = l_distribution_id_tbl(indx)
3544: AND distribution_type = l_distribution_type_tbl(indx);
3545:
3585:
3586: l_progress := '060';
3587:
3588: IF g_debug_stmt THEN
3589: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3590: END IF;
3591:
3592: IF (l_period_exception_flag = 'Y') THEN
3593: l_progress := '065';
3660: , p_gl_return_code => l_gl_return_code
3661: );
3662:
3663: IF g_debug_stmt THEN
3664: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3665: END IF;
3666:
3667: IF (p_check_only_flag = 'N') THEN
3668:
3709: -- For Req Split, there are only Reqs (main doc) in the temp table.
3710:
3711: SELECT DISTINCT DISTS.header_id
3712: BULK COLLECT INTO l_doc_id_tbl
3713: FROM PO_ENCUMBRANCE_GT DISTS
3714: ;
3715:
3716: l_progress := '835';
3717:
3726: , g_doc_type_RELEASE, DISTS.po_release_id
3727: , DISTS.header_id
3728: )
3729: INTO l_document_id
3730: FROM PO_ENCUMBRANCE_GT DISTS
3731: WHERE DISTS.origin_sequence_num IS NULL
3732: AND rownum = 1
3733: ;
3734:
3928: ------------------------------------------------------------------------------
3929: --Start of Comments
3930: --Name: create_report_object
3931: --Pre-reqs:
3932: -- PO_ENCUMBRANCE_GT is populated with all result columns after
3933: -- a call to the FL funds checker
3934: --Modifies:
3935: -- None.
3936: --Locks:
4278: --Name: populate_encumbrance_gt
4279: --Pre-reqs:
4280: -- None.
4281: --Modifies:
4282: -- PO_ENCUMBRANCE_GT
4283: --Locks:
4284: -- PO_HEADERS_ALL
4285: -- PO_RELEASES_ALL
4286: -- PO_DISTRIBUTIONS_ALL
4443: PO_DEBUG.debug_stmt(l_log_head,l_progress,'requisition');
4444: END IF;
4445:
4446: FORALL i IN 1 .. p_adjustment_status_tbl.COUNT
4447: INSERT INTO PO_ENCUMBRANCE_GT
4448: ( adjustment_status
4449: , distribution_type
4450: , header_id
4451: , line_id
4543: PO_DEBUG.debug_stmt(l_log_head,l_progress,'not requisition');
4544: END IF;
4545:
4546: FORALL i IN 1 .. p_adjustment_status_tbl.COUNT
4547: INSERT INTO PO_ENCUMBRANCE_GT
4548: ( adjustment_status
4549: , distribution_type
4550: , header_id
4551: , po_release_id
4705: --Name: populate_enc_gt_action_ids
4706: --Pre-reqs:
4707: -- None.
4708: --Modifies:
4709: -- PO_ENCUMBRANCE_GT
4710: --Locks:
4711: -- None.
4712: --Function:
4713: -- Prepares a call to a do_<> action that will operate on multiple ids
4711: -- None.
4712: --Function:
4713: -- Prepares a call to a do_<> action that will operate on multiple ids
4714: -- for the given doc type/level.
4715: -- The ids are placed in PO_ENCUMBRANCE_GT, where the encumbrance actions
4716: -- will find them. This is a workaround to the inability of Forms to
4717: -- deal with database object tables (otherwise, the IDs could be passed
4718: -- as a table parameter to do_<>).
4719: -- Any pre-existing data in PO_ENCUMBRANCE_GT will be deleted.
4715: -- The ids are placed in PO_ENCUMBRANCE_GT, where the encumbrance actions
4716: -- will find them. This is a workaround to the inability of Forms to
4717: -- deal with database object tables (otherwise, the IDs could be passed
4718: -- as a table parameter to do_<>).
4719: -- Any pre-existing data in PO_ENCUMBRANCE_GT will be deleted.
4720: --Parameters:
4721: --IN:
4722: --p_doc_type
4723: -- Document type. Use the g_doc_type_<> variables, where <> is:
4808: -- hopefully the prevent_encumbrance_flag being set
4809: -- here will stop any data corruption from happening.
4810:
4811: FORALL i IN 1 .. p_doc_level_id_tbl.COUNT
4812: INSERT INTO PO_ENCUMBRANCE_GT
4813: ( distribution_type
4814: , doc_level
4815: , doc_level_id
4816: , prevent_encumbrance_flag