[Home] [Help]
687: -- Procedure Validate_BC_Params
688: -- ============================
689: --
690: -- The purpose of this procedure is to check whether Budgetary Control is enabled
691: -- in the Standard and Commitment Budgets for PO's and Requisitions.
692: -- In the event of both Standard PO and Requisition encumbrance being disabled, terminate processing
693: --
694: -- IN Parameters
695: -- -------------
688: -- ============================
689: --
690: -- The purpose of this procedure is to check whether Budgetary Control is enabled
691: -- in the Standard and Commitment Budgets for PO's and Requisitions.
692: -- In the event of both Standard PO and Requisition encumbrance being disabled, terminate processing
693: --
694: -- IN Parameters
695: -- -------------
696: -- p_sob_id Set of Books Id
813: THEN
814: -- since CBC is not enabled for PO, Year End Process should not be run. Terminate with Error
815: Raise E_IGC_CBC_PO_DISABLE_YEP ;
816: ELSE -- l_cbc_enabled = 'N'
817: -- Check that Standard Budgetary Control is enabled
818: IF (g_debug_mode = 'Y') THEN
819: Put_Debug_Msg (l_full_path,p_debug_msg => 'Checking SBC enabled');
820: END IF;
821:
1321: AND NVL(pol.closed_code,'X') <> 'FINALLY CLOSED'
1322: AND NVL(pol.cancel_flag,'N') = 'N'
1323: AND pol.org_id = p_org_id
1324: AND NVL(poll.closed_code,'X') <> 'FINALLY CLOSED'
1325: AND poll.shipment_type IN ('STANDARD','PLANNED','BLANKET','SCHEDULED')
1326: AND NVL(poll.cancel_flag,'N') = 'N'
1327: AND poll.org_id = p_org_id
1328: AND pod.prevent_encumbrance_flag = 'N'
1329: AND pod.org_id = p_org_id
1560: -- IN Parameters
1561: -- -------------
1562: -- p_batch_size User entered value used to determine batch size of bulk fetches
1563: -- p_document_type Type of document: PO, REQ or REL
1564: -- p_document_subtype Subtype of document type: BLANKET, SCHEDULED, PLANNED, STANDARD, etc
1565: -- p_document_id Id of document
1566: --
1567: -- OUT Parameters
1568: -- --------------
1596: IF (g_debug_mode = 'Y') THEN
1597: Put_Debug_Msg (l_full_path,p_debug_msg => '**** Validate Distributions ****');
1598: END IF;
1599:
1600: -- Set cursor to check distributions for Standard PO's
1601: IF p_document_type = 'PO' and p_document_subtype = 'STANDARD'
1602: THEN
1603: OPEN c_valid_dist FOR
1604: SELECT DISTINCT tmp.line_id,
1597: Put_Debug_Msg (l_full_path,p_debug_msg => '**** Validate Distributions ****');
1598: END IF;
1599:
1600: -- Set cursor to check distributions for Standard PO's
1601: IF p_document_type = 'PO' and p_document_subtype = 'STANDARD'
1602: THEN
1603: OPEN c_valid_dist FOR
1604: SELECT DISTINCT tmp.line_id,
1605: tmp.line_location_id,
1652: AND tmp.po_release_id = p_document_id
1653: AND ai.cancelled_date IS NULL
1654: ORDER BY result_error_code ASC;
1655:
1656: -- If not a Standard PO, Blanket Release or Scheduled Release, then no distributions so return success
1657: ELSE
1658: IF (g_debug_mode = 'Y') THEN
1659: Put_Debug_Msg (l_full_path,p_debug_msg => 'No distributions for this document type');
1660: END IF;
1658: IF (g_debug_mode = 'Y') THEN
1659: Put_Debug_Msg (l_full_path,p_debug_msg => 'No distributions for this document type');
1660: END IF;
1661: RETURN FND_API.G_RET_STS_SUCCESS;
1662: END IF; -- p_document_type = 'PO' and p_document_subtype = 'STANDARD'
1663:
1664: -- fetch distributions in batches determined by user parameter
1665: LOOP
1666: FETCH c_valid_dist BULK COLLECT INTO l_valid_dist_rec.line_id,
1790: IF (g_debug_mode = 'Y') THEN
1791: Put_Debug_Msg (l_full_path,p_debug_msg => '**** Create Journal Adjustments ****');
1792: END IF;
1793:
1794: --Process Standard and Planned PO's with Backing Requisitions
1795: IF p_document_type = 'PO' AND p_document_subtype IN ('STANDARD','PLANNED')
1796: THEN
1797: IF (g_debug_mode = 'Y') THEN
1798: Put_Debug_Msg (l_full_path,p_debug_msg => 'Starting Req Adjustments for POs');
1791: Put_Debug_Msg (l_full_path,p_debug_msg => '**** Create Journal Adjustments ****');
1792: END IF;
1793:
1794: --Process Standard and Planned PO's with Backing Requisitions
1795: IF p_document_type = 'PO' AND p_document_subtype IN ('STANDARD','PLANNED')
1796: THEN
1797: IF (g_debug_mode = 'Y') THEN
1798: Put_Debug_Msg (l_full_path,p_debug_msg => 'Starting Req Adjustments for POs');
1799: END IF;
1994: AND prd.requisition_line_id = prl.requisition_line_id
1995: AND prl.line_location_id = poll.line_location_id
1996: AND pod.line_location_id = poll.line_location_id
1997: AND pod.po_distribution_id = p_distribution_id_tbl(l_index)
1998: AND poll.shipment_type IN ('STANDARD','PLANNED')
1999: AND NVL(poll.cancel_flag,'N') = 'N'
2000: AND NVL(poll.closed_code,'OPEN') <> 'FINALLY CLOSED'
2001: AND base_cur.currency_code = glsob.currency_code
2002: AND fsp.set_of_books_id = glsob.set_of_books_id
2228: AND prd.requisition_line_id = prl.requisition_line_id
2229: AND prl.line_location_id = poll.line_location_id
2230: AND pod.line_location_id = poll.line_location_id
2231: AND pod.po_distribution_id = p_distribution_id_tbl(l_index)
2232: AND poll.shipment_type IN ('STANDARD','PLANNED')
2233: AND NVL(poll.cancel_flag,'N') = 'N'
2234: AND NVL(poll.closed_code,'OPEN') <> 'FINALLY CLOSED'
2235: AND base_cur.currency_code = glsob.currency_code
2236: AND fsp.set_of_books_id = glsob.set_of_books_id
2683: AND prd.requisition_line_id = prl.requisition_line_id
2684: AND prl.line_location_id = poll.line_location_id
2685: AND pod.line_location_id = poll.line_location_id
2686: AND pod.po_distribution_id = p_distribution_id_tbl(l_index)
2687: -- AND poll.shipment_type IN ('STANDARD','PLANNED')
2688: AND NVL(poll.cancel_flag,'N') = 'N'
2689: AND NVL(poll.closed_code,'OPEN') <> 'FINALLY CLOSED'
2690: AND base_cur.currency_code = glsob.currency_code
2691: AND fsp.set_of_books_id = glsob.set_of_books_id
3140: -- p_org_id Org Id
3141: -- p_year Year being processed
3142: -- p_process_phase User entered processing phase: F - Final, P - Preliminary
3143: -- p_document_type Type of document: PO, REQ or REL
3144: -- p_document_subtype Subtype of document type: BLANKET, SCHEDULED, PLANNED, STANDARD, etc
3145: -- p_document_id Id of document
3146: -- p_prev_year_end_date End Date of year being closed
3147: -- p_prev_year_end_period End period name of year being closed
3148: -- p_prev_year_end_num End period number of year being closed
4745: -- =======================
4746: --
4747: -- This is the main procedure of the PO/CBC Year End Process.
4748: -- This process, to be run at Year End, carries forward encumbrances to the next fiscal year.
4749: -- Encumbrances are carried forward in both the Standard and Commitment Budgets at a transactional
4750: -- level for Requisitions, whilst encumbrances for PO's are carried forward only in the Standard
4751: -- Budget. Funds reservation in the Standard Budget is carried out in Forced Mode.
4752: --
4753: -- IN Parameters
4746: --
4747: -- This is the main procedure of the PO/CBC Year End Process.
4748: -- This process, to be run at Year End, carries forward encumbrances to the next fiscal year.
4749: -- Encumbrances are carried forward in both the Standard and Commitment Budgets at a transactional
4750: -- level for Requisitions, whilst encumbrances for PO's are carried forward only in the Standard
4751: -- Budget. Funds reservation in the Standard Budget is carried out in Forced Mode.
4752: --
4753: -- IN Parameters
4754: -- -------------
4747: -- This is the main procedure of the PO/CBC Year End Process.
4748: -- This process, to be run at Year End, carries forward encumbrances to the next fiscal year.
4749: -- Encumbrances are carried forward in both the Standard and Commitment Budgets at a transactional
4750: -- level for Requisitions, whilst encumbrances for PO's are carried forward only in the Standard
4751: -- Budget. Funds reservation in the Standard Budget is carried out in Forced Mode.
4752: --
4753: -- IN Parameters
4754: -- -------------
4755: -- p_sob_id Set of Books Id
4761: -- p_batch_size User entered value used to determine batch size of bulk fetches
4762: --
4763: -- OUT Parameters
4764: -- --------------
4765: -- errbuf Standard Concurrent Processing Error Buffer
4766: -- retcode Standard Concurrent Processing Return Code
4767: --
4768: --
4769: PROCEDURE Year_End_Main(errbuf OUT NOCOPY VARCHAR2,
4762: --
4763: -- OUT Parameters
4764: -- --------------
4765: -- errbuf Standard Concurrent Processing Error Buffer
4766: -- retcode Standard Concurrent Processing Return Code
4767: --
4768: --
4769: PROCEDURE Year_End_Main(errbuf OUT NOCOPY VARCHAR2,
4770: retcode OUT NOCOPY VARCHAR2,