[Home] [Help]
475: END IF;
476:
477: l_progress := '260';
478: INSERT
479: INTO po_distributions_draft_all --
481: po_distribution_id,
482: draft_id,
483: --who columns
766:
767: l_progress := '290';
768: SELECT pod.po_distribution_id BULK COLLECT
769: INTO l_dist_id_tbl
770: FROM po_distributions_draft_all pod
771: WHERE pod.po_line_id = p_lines.po_line_id_tbl(i);
772:
773: l_progress := '300';
774: FOR i IN 1..l_dist_id_tbl.COUNT
848: poll.payment_type ,
849: pod.distribution_type ,
850: pod.rate
851: /*Bug 13598209 : PO_LINE_LOCATIONS_ALL & PO_DISTRIBUTIONS_ALL has still not been populated
852: Hence po_distributions_draft_all & po_line_locations_draft_all needs to be used
853: */
854: FROM po_distributions_draft_all pod,
855: po_line_locations_draft_all poll
856: WHERE poll.po_line_id = p_po_line_id
850: pod.rate
851: /*Bug 13598209 : PO_LINE_LOCATIONS_ALL & PO_DISTRIBUTIONS_ALL has still not been populated
852: Hence po_distributions_draft_all & po_line_locations_draft_all needs to be used
853: */
854: FROM po_distributions_draft_all pod,
855: po_line_locations_draft_all poll
856: WHERE poll.po_line_id = p_po_line_id
857: AND pod.line_location_id = poll.line_location_id
858: AND pod.req_distribution_id IS NULL;
1010: d_progress := 70;
1011: --SQL WHAT: Create payitem distributions from backing req. distributions
1012: --SQL WHY : Create all such payitem distributions in one place
1013: INSERT
1014: INTO po_distributions_draft_all
1015: (
1016: po_distribution_id ,
1017: draft_id ,
1018: last_update_date ,
1208: d_progress := 100;
1209: --SQL WHAT: Create payitem distributions in the case of no backing req.
1210: --SQL WHY : Create all such payitem distributions in one place
1211: INSERT
1212: INTO po_distributions_draft_all
1213: (
1214: po_distribution_id ,
1215: draft_id ,
1216: last_update_date ,
1339: d_progress := 120;
1340: --SQL WHAT: Create payitem distributions for advance payitems
1341: --SQL WHY : Create all such payitem distributions in one place
1342: INSERT
1343: INTO po_distributions_draft_all
1344: (
1345: po_distribution_id ,
1346: draft_id ,
1347: last_update_date ,
1434: Hence PO_LINE_LOCATIONS_DRAFT_ALL needs to be used
1435: Similarly for po_distributions_all*/
1436: FROM PO_LINE_LOCATIONS_DRAFT_ALL adv,
1437: PO_LINE_LOCATIONS_DRAFT_ALL deliv,
1438: po_distributions_draft_all pod
1439: WHERE adv.po_line_id = p_lines.po_line_id_tbl(i)
1440: AND adv.payment_type = 'ADVANCE'
1441: AND deliv.line_location_id =
1442: (SELECT poll.line_location_id
1649: END IF;
1650: --SQL WHAT: Update account information for a po distribution
1651: --SQL WHY : PO Distributions that don't have a backing req need to
1652: -- have account defaulted from account generator.
1653: UPDATE po_distributions_draft_all pod
1654: SET pod.code_combination_id = l_code_combination_id ,
1655: pod.budget_account_id = DECODE(NVL(PO_AUTOCREATE_PARAMS.g_sys.po_encumbrance_flag, 'N'), 'Y', l_budget_account_id, NULL) ,
1656: pod.accrual_account_id = l_accrual_account_id ,
1657: pod.variance_account_id = l_variance_account_id
1665: PO_LOG.stmt(d_module, d_progress, 'Deleting distribution - acct. gen failure');
1666: END IF;
1667:
1668: DELETE
1669: FROM po_distributions_draft_all pod
1670: WHERE pod.po_distribution_id = payitem_acct_rec.po_distribution_id
1671: AND pod.draft_id =po_autocreate_params.g_draft_id;
1672:
1673: END IF; -- if l_acct_api_success AND ...
1689: --should this also be po_distribution_draft_all
1690: --changing it to drafts
1691: SELECT pod.po_distribution_id BULK COLLECT
1692: INTO l_dist_id_tbl
1693: FROM po_distributions_draft_all pod
1694: WHERE pod.po_line_id = p_lines.po_line_id_tbl(i)
1695: AND pod.draft_id =po_autocreate_params.g_draft_id;
1696:
1697: FOR i IN 1..l_dist_id_tbl.COUNT
1806: l_gms_po_interface_obj.project_id,
1807: l_gms_po_interface_obj.task_id,
1808: l_gms_po_interface_obj.award_set_id_in,
1809: l_gms_po_interface_obj.award_set_id_out
1810: FROM po_distributions_draft_all pod
1811: WHERE pod.po_line_id = p_po_line_id
1812: AND pod.award_id IS NOT NULL
1813: AND pod.draft_id =po_autocreate_params.g_draft_id;
1814: ELSE
1860: -- award_id's
1861: --SQL WHY : award_id's in PO tables need to be synchronized with
1862: -- award_id's in GMS tables.
1863: FORALL i IN 1..l_gms_po_interface_obj.distribution_id.COUNT
1864: UPDATE po_distributions_draft_all
1865: SET award_id = l_gms_po_interface_obj.award_set_id_out(i)
1866: WHERE po_distribution_id = l_gms_po_interface_obj.distribution_id(i)
1867: AND draft_id =po_autocreate_params.g_draft_id;
1868: ELSE
1914: --Name: calibrate_last_dist_amount
1915: --Pre-reqs:
1916: -- None.
1917: --Modifies:
1918: -- PO_DISTRIBUTIONS_DRAFT_ALL.AMOUNT_ORDERED
1919: --Locks:
1920: -- None.
1921: --Function:
1922: -- This procedure is used to calibrate the amount of the last distribution
1963: SELECT SUM(amount_ordered) ,
1964: MAX(po_distribution_id)
1965: INTO l_sum_dist_amounts ,
1966: l_last_distribution_id
1967: FROM po_distributions_draft_all
1968: WHERE line_location_id = p_line_location_id
1969: AND draft_id =po_autocreate_params.g_draft_id;
1970:
1971: l_progress:='020';
1985: --
1986: -- Set it to the shipment amount minus the sum of all distribution
1987: -- amounts (except the last distribution).
1988: --
1989: UPDATE po_distributions_draft_all
1990: SET amount_ordered = l_shipment_amount - (l_sum_dist_amounts - amount_ordered)
1991: WHERE po_distribution_id = l_last_distribution_id
1992: AND draft_id =po_autocreate_params.g_draft_id RETURNING amount_ordered
1993: INTO l_last_dist_amount;
2011: --Name: calibrate_last_dist_quantity
2012: --Pre-reqs:
2013: -- None.
2014: --Modifies:
2015: -- PO_DISTRIBUTIONS_DRAFT_ALL.QUANTITY_ORDERED
2016: --Locks:
2017: -- None.
2018: --Function:
2019: -- This procedure is used to calibrate the quantity of the last distribution
2056: SELECT SUM(pod.quantity_ordered),
2057: MAX(pod.po_distribution_id)
2058: INTO l_sum_dist_quantities,
2059: l_last_dist_id
2060: FROM po_distributions_draft_all pod
2061: WHERE pod.line_location_id = p_line_location_id
2062: AND pod.draft_id =po_autocreate_params.g_draft_id;
2063:
2064: d_progress := 20;
2071: WHERE poll.line_location_id = p_line_location_id
2072: AND draft_id =po_autocreate_params.g_draft_id;
2073:
2074: d_progress := 30;
2075: UPDATE po_distributions_draft_all pod
2076: SET pod.quantity_ordered = l_shipment_quantity - (l_sum_dist_quantities - pod.quantity_ordered)
2077: WHERE pod.po_distribution_id = l_last_dist_id
2078: AND draft_id =po_autocreate_params.g_draft_id RETURNING pod.quantity_ordered
2079: INTO l_last_dist_qty;
2099: --Name: Default_Acrn_Values
2100: --Pre-reqs:
2101: -- None.
2102: --Modifies:
2103: -- PO_DISTRIBUTIONS_DRAFT_ALL.ACRN
2104: --Locks:
2105: -- None.
2106: --Function:
2107: -- This procedure calls the API po_account_helper.BUILD_ACRN to populate
2104: --Locks:
2105: -- None.
2106: --Function:
2107: -- This procedure calls the API po_account_helper.BUILD_ACRN to populate
2108: -- the ACRN values in the po_distributions_draft_all.
2109: --Caller of the Procedure
2110: --PO_AUTOCREATE_MAINPROC_PVT.process_distributions
2111: --End of Comments
2112: -------------------------------------------------------------------------------
2138: l_charge_acc_tbl,
2139: l_ACRN_tbl
2140: ,L_LOA_TBL,L_CHANGE_STAT_TBL
2141:
2142: FROM po_distributions_draft_all pdd
2143: WHERE pdd.po_header_id = PO_AUTOCREATE_PARAMS.g_po_header_id
2144: AND pdd.draft_id = PO_AUTOCREATE_PARAMS.g_draft_id
2145: ORDER BY pdd.po_distribution_id ;
2146:
2170:
2171: FOR j IN 1..l_dist_id_tbl.Count
2172: LOOP
2173: l_progress := '030';
2174: UPDATE po_distributions_draft_all
2175: SET ACRN = l_ACRN_tbl(j)
2176: WHERE po_distribution_id = l_dist_id_tbl(j)
2177: AND l_ACRN_tbl(j) <> '';
2178: END LOOP;