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