[Home] [Help]
654: DIST.SEQUENCE_NUM,
655: DIST.SEGMENT1,
656: DIST.SEGMENT1,
657: l_appl_id,
658: DECODE(DIST.DISTRIBUTION_TYPE,'REQUISITION','PO_REQ_DISTRIBUTIONS_ALL','PO_DISTRIBUTIONS_ALL') DIST_LINK_TYPE,
659: DIST.PROJECT_ID,
660: DIST.AWARD_NUM,
661: DIST.TASK_ID,
662: DIST.EXPENDITURE_ORGANIZATION_ID,
732: BEGIN
733:
734: SELECT prd.distribution_id
735: INTO c_distribution_id
736: FROM po_req_distributions_all prd,
737: po_bc_distributions pbd1, -- for Backing
738: po_bc_distributions pbd2 -- For Main
739: WHERE pbd1.packet_id = x_packet_id
740: AND prd.distribution_id = pbd1.distribution_id
1415: AND GLBC.SOURCE_DISTRIBUTION_ID_NUM_1 =
1416: xld.SOURCE_DISTRIBUTION_ID_NUM_1
1417: AND pbd.distribution_id = xld.SOURCE_DISTRIBUTION_ID_NUM_1
1418: AND decode(pbd.distribution_type,g_dist_type_REQUISITION,
1419: 'PO_REQ_DISTRIBUTIONS_ALL','PO_DISTRIBUTIONS_ALL') = xld.source_distribution_type
1420: AND pbd.ae_event_id = xld.event_id
1421: AND NVL(PBD.applied_to_dist_id_2, pbd.distribution_id) =
1422: XLD.ALLOC_TO_DIST_ID_NUM_1
1423: AND xld.application_id = 201
1451: AND GLBCH.SOURCE_DISTRIBUTION_ID_NUM_1 =
1452: xld.SOURCE_DISTRIBUTION_ID_NUM_1
1453: AND pbd.distribution_id = xld.SOURCE_DISTRIBUTION_ID_NUM_1
1454: AND decode(pbd.distribution_type,g_dist_type_REQUISITION,
1455: 'PO_REQ_DISTRIBUTIONS_ALL','PO_DISTRIBUTIONS_ALL') = xld.source_distribution_type
1456: AND pbd.ae_event_id = xld.event_id
1457: AND NVL(PBD.applied_to_dist_id_2, pbd.distribution_id) =
1458: XLD.ALLOC_TO_DIST_ID_NUM_1
1459: AND xld.application_id = 201
1645: --Pre-reqs:
1646: -- PO_ENCUMBRANCE_GT has all necessary information populated after
1647: -- making a call to the GL Funds Checker
1648: --Modifies:
1649: -- PO_REQ_DISTRIBUTIONS_ALL, PO_DISTRIBUTIONS_ALL, PO_REQUISITION_LINES_ALL,
1650: -- PO_LINE_LOCATIONS_ALL
1651: --Locks:
1652: -- None.
1653: --Function:
1886: -- distribution row was sent to and successful in the GL packet
1887: --SQL Why: If the distribution transaction succeeded, the distribution table
1888: -- fields must be updated to reflect the effect of the transaction
1889:
1890: UPDATE PO_REQ_DISTRIBUTIONS_ALL PRD
1891: SET
1892: (
1893: PRD.encumbered_flag
1894: , PRD.encumbered_amount
1942: -- you can no longer act on it, so we set the prevent-enc
1943: -- flag on these lines -- as a marker to ignore them for
1944: -- future actions
1945:
1946: UPDATE PO_REQ_DISTRIBUTIONS_ALL PRD
1947: SET (
1948: PRD.encumbered_flag
1949: , PRD.prevent_encumbrance_flag
1950: )
2055: --SQL Why: If the distribution transaction succeeded, the distribution
2056: -- table fields must be updated to reflect the effect of the
2057: -- transaction
2058:
2059: UPDATE PO_REQ_DISTRIBUTIONS_ALL PRD
2060: SET
2061: (
2062: PRD.encumbered_flag,
2063: PRD.encumbered_amount
2277: --Bug 5348161: Added MAX aggregator to the logic for updating the Req dist's
2278: --prevent_enc_flag. For CWPOs, multiple PO dists point to the same backing Req
2279: --dist, so the EXEC_D.req_distribution_id = PRD.distribution_id returns multiple
2280: --rows so an aggregator is needed to avoid multiple-row-subquery error.
2281: UPDATE PO_REQ_DISTRIBUTIONS_ALL PRD
2282: SET PRD.prevent_encumbrance_flag
2283: =
2284: (
2285: SELECT
2404: -- distributions from this transaction
2405: --SQL Where: Only updates the distributions if the distribution transaction
2406: -- failed in GL
2407:
2408: UPDATE PO_REQ_DISTRIBUTIONS_ALL PRD
2409: SET PRD.failed_funds_lookup_code
2410: =
2411: (
2412: SELECT TEMP.gl_result_code
2540: =
2541: (
2542: -- Bug 3537764: Modified SET logic to handle the all distributions prevented case
2543: SELECT NVL(min(prd.encumbered_flag), 'N')
2544: FROM PO_REQ_DISTRIBUTIONS_ALL PRD
2545: WHERE PRD.requisition_line_id = PRL.requisition_line_id
2546: AND NVL(PRD.prevent_encumbrance_flag, 'N') = 'N'
2547:
2548: )