[Home] [Help]
2499: l_progress VARCHAR2(3) := '000';
2500: l_action VARCHAR2(30);
2501: l_doc_type PO_DOCUMENT_TYPES.document_type_code%TYPE;
2502: l_doc_subtype PO_HEADERS_ALL.type_lookup_code%TYPE;
2503: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
2504: l_po_return_code VARCHAR2(10);
2505: l_online_report_id PO_ONLINE_REPORT_TEXT.online_report_id%TYPE;
2506:
2507: l_amt_based_line_flag VARCHAR2(1); -- Bug 3480949
2572: , 'N'
2573: )
2574: INTO l_amt_based_line_flag
2575: FROM PO_LINE_LOCATIONS_ALL PLL
2576: , PO_DISTRIBUTIONS_ALL POD
2577: WHERE POD.po_distribution_id = p_distribution_id
2578: AND PLL.line_location_id = POD.line_location_id
2579: ;
2580:
2628:
2629: -- Get the distribution_type
2630: SELECT POD.distribution_type
2631: INTO l_distribution_type
2632: FROM PO_DISTRIBUTIONS_ALL POD
2633: WHERE POD.po_distribution_id = p_distribution_id;
2634:
2635: l_progress := '070';
2636:
3332: ELSIF p_doc_level='SHIPMENT' THEN
3333: SELECT po_header_id into l_po_document_id FROM po_line_locations_all
3334: WHERE line_location_id = p_doc_level_id ;
3335: ELSIF p_doc_level='DISTRIBUTION' THEN
3336: SELECT po_header_id into l_po_document_id FROM po_distributions_all
3337: WHERE po_distribution_id = p_doc_level_id ;
3338: END IF;
3339: END IF;
3340:
3342: IF p_doc_level='SHIPMENT' THEN
3343: SELECT po_header_id into l_rel_document_id FROM po_line_locations_all
3344: WHERE line_location_id = p_doc_level_id ;
3345: ELSIF p_doc_level='DISTRIBUTION' THEN
3346: SELECT po_header_id into l_rel_document_id FROM po_distributions_all
3347: WHERE po_distribution_id = p_doc_level_id ;
3348: END IF;
3349: END IF;
3350:
3629: -- Bug 9980635: Non Reoverable Tax amounts in IL tables are not in sync with the PO tables
3630: IF (p_check_only_flag <> 'Y') THEN
3631: FOR indx IN 1..l_distribution_id_tbl.Count LOOP
3632: IF l_distribution_type_tbl(indx) IN ( 'STANDARD','PLANNED', 'SCHEDULED','BLANKET', 'AGREEMENT') THEN
3633: UPDATE po_distributions_all
3634: SET nonrecoverable_tax = nvl(l_nonrecoverable_tax_tbl(indx),0)
3635: WHERE po_distribution_id = l_distribution_id_tbl(indx);
3636: ELSIF l_distribution_type_tbl(indx) IN ('REQUISITION') THEN
3637: UPDATE po_req_distributions_all
4482: -- PO_ENCUMBRANCE_GT
4483: --Locks:
4484: -- PO_HEADERS_ALL
4485: -- PO_RELEASES_ALL
4486: -- PO_DISTRIBUTIONS_ALL
4487: -- PO_REQUISITION_HEADERS_ALL
4488: -- PO_REQ_DISTRIBUTIONS_ALL
4489: --Function:
4490: -- Flattens the PO transaction tables to retrieve all of the
4819: , CHANGE_IN_FUNDED_VALUE
4820: /* <
4821: , amount_changed_flag
4822: --
4823: -- populating amount_changed_flag from po_distributions_all table.
4824: )
4825: SELECT
4826: p_adjustment_status_tbl(i)
4827: , POD.distribution_type
4889: , POD.CHANGE_IN_FUNDED_VALUE
4890: /* <
4891: , POD.amount_changed_flag -- <13503748>
4892: FROM
4893: PO_DISTRIBUTIONS_ALL POD
4894: , PO_LINE_LOCATIONS_ALL POLL
4895: , PO_LINES_ALL POL
4896: , PO_HEADERS_ALL POH
4897: , PO_SESSION_GT DIST_IDS
5008: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_ENC_GT_ACTION_IDS';
5009: l_log_head CONSTANT VARCHAR2(100) := g_log_head || l_api_name;
5010: l_progress VARCHAR2(3) := '000';
5011:
5012: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
5013:
5014: BEGIN
5015:
5016: -- Standard Start of API savepoint
5469: select nvl(pod.encumbered_flag, 'N')
5470: into l_found
5471: from po_req_distributions_all prd,
5472: po_requisition_lines_all prl,
5473: po_distributions_all pod
5474: where prd.distribution_id = p_req_dist_id
5475: and prl.requisition_line_id = prd.requisition_line_id
5476: and prl.document_type_code = 'BLANKET'
5477: and pod.po_header_id = prl.blanket_po_header_id