[Home] [Help]
3153:
3154: l_progress := '027';
3155: x_return_status := FND_API.G_RET_STS_SUCCESS;
3156:
3157: -- LCM ER start. If all the submission checks have been passed successfully then update the lcm_flag of po_line_locations_all and po_distributions_all.
3158: IF p_document_type in ('PO','RELEASE') THEN
3159:
3160: FOR ship_rec in (select line_location_id from po_line_locations_gt)
3161:
6488: l_progress := '018';
6489: --Get Shipment Price without applying Rate and Qty
6490: SELECT NVL(ROUND(MAX(POLL.price_override) ,l_pou_func_curr_ext_precn) ,-1) Price
6491: INTO l_ship_price_ext_precn
6492: FROM PO_LINE_LOCATIONS_ALL POLL
6493: WHERE POLL.line_location_id = l_line_location_id(shipment_line)
6494: AND NVL(POLL.cancel_flag,'N') <> 'Y'
6495: AND NVL(POLL.closed_code,'OPEN') <> 'FINALLY CLOSED';
6496:
6845: l_progress := '207';
6846: --Get Shipment Price without applying Rate and Qty
6847: SELECT NVL(ROUND(MAX(POLL.price_override) ,l_pou_func_curr_ext_precn) ,-1) Price
6848: INTO l_ship_price_ext_precn
6849: FROM PO_LINE_LOCATIONS_ALL POLL
6850: WHERE POLL.line_location_id = l_line_location_id(shipment_line)
6851: AND NVL(POLL.cancel_flag,'N') <> 'Y'
6852: AND NVL(POLL.closed_code,'OPEN') <> 'FINALLY CLOSED';
6853:
10636: * PLL3.price_override,l_precision
10637: )
10638: )
10639: )
10640: FROM PO_LINE_LOCATIONS_ALL PLL3
10641: WHERE PLL3.from_header_id = POH.po_header_id
10642: )
10643: )
10644: );
12316: * PLL2.price_override )
12317: )
12318: , 0 )
12319: BULK COLLECT INTO l_prev_doc_line_num, l_prev_rel_amount
12320: FROM PO_LINE_LOCATIONS_ALL PLL2, PO_HEADERS_ALL POH1,
12321: PO_HEADERS_ALL POH2, PO_LINES_GT POL
12322: WHERE POL.po_header_id = p_document_id
12323: AND POL.from_header_id = POH1.po_header_id --JOIN
12324: AND POH1.type_lookup_code = 'BLANKET'
16294: AND (l.cancel_flag is null or l.cancel_flag <> 'Y')
16295: AND (l.closed_code is NULL or l.closed_code NOT IN ('FINALLY CLOSED'))))
16296: AND (p_line_location_id(i) IS NULL
16297: --Case 4: Optionally, Line Location is specified
16298: OR EXISTS (SELECT null from po_line_locations_all l
16299: WHERE l.line_location_id = p_line_location_id(i)
16300: AND (l.cancel_flag is null or l.cancel_flag <> 'Y')
16301: AND (l.closed_code is NULL or l.closed_code NOT IN ('FINALLY CLOSED')))) ;
16302: -- bug3592160 END
16528: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
16529: AND (p_line_location_id(i) IS NULL
16530: --Case 4: Optionally, Line Location is specified
16531: -- Bug 3407980: Modified closed_code condition so that it only discards 'FINALLY CLOSED'
16532: OR EXISTS (SELECT null from po_line_locations_all l
16533: WHERE l.line_location_id = p_line_location_id(i)
16534: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
16535: ;
16536:
16697: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
16698: AND (p_line_location_id(i) IS NULL
16699: --Case 4: Optionally, Line Location is specified
16700: -- Bug 3407980: Modified closed_code condition so that it only discards 'FINALLY CLOSED'
16701: OR EXISTS (SELECT null from po_line_locations_all l
16702: WHERE l.line_location_id = p_line_location_id(i)
16703: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
16704: ;
16705:
16874: UPDATE po_headers_gt gt
16875: SET (approved_flag, closed_code, cancel_flag)
16876: =
16877: (SELECT nvl(approved_flag, 'N'), nvl(closed_code, 'OPEN'), NVL(cancel_flag, 'N')
16878: FROM po_line_locations_all s
16879: WHERE s.line_location_id = p_line_location_id(i))
16880: WHERE p_line_location_id(i) is not null and gt.po_header_id = l_sequence(i)
16881: ;
16882:
17888: FROM PO_LINE_LOCATIONS_MERGE_V POLL
17889: WHERE POLL.LINE_LOCATION_ID = l_line_location_id_tbl(i)
17890: AND POLL.DRAFT_ID = p_draft_id
17891: /*-- CLM Aprvl
17892: FROM PO_LINE_LOCATIONS_ALL POLL
17893: WHERE POLL.line_location_id = l_line_location_id_tbl(i)
17894: -- CLM Aprvl*/
17895: --
17896: AND (l_draft_type <> 'PAR'
21247: , NVL(pll.quantity_financed, 0)
21248: INTO l_quantity_received
21249: , l_quantity_billed
21250: , l_quantity_financed
21251: FROM po_line_locations_all pll
21252: WHERE line_location_id = p_line_location_id;
21253:
21254: d_progress := 20;
21255:
21741: l_consigned_flag VARCHAR2(20);
21742: l_outsourced_assembly VARCHAR2(20);
21743: l_log_head VARCHAR2(70) := 'po.plsql.PO_DOCUMENT_CHECKS_PVT.Set_LCM_Flag';
21744: l_progress VARCHAR2(3) := '000';
21745: l_line_location_id po_line_locations_all.line_location_id%TYPE; --
21747: BEGIN
21748: IF g_debug_stmt THEN
21749: PO_DEBUG.debug_begin(l_log_head);
21771: l_ship_to_organization_id,
21772: l_consigned_flag,
21773: l_outsourced_assembly,
21774: l_line_location_id
21775: FROM po_line_locations_all poll,
21776: po_lines_all pol,
21777: po_headers_all poh
21778: WHERE poh.po_header_id = pol.po_header_id
21779: AND pol.po_line_id = poll.po_line_id
21827:
21828:
21829: ELSIF p_doc_check_status = 'AFTER' THEN
21830:
21831: UPDATE po_line_locations_all
21832: SET lcm_flag = 'Y'
21833: WHERE line_location_id = p_line_location_id;
21834:
21835: UPDATE po_distributions_all
21838: END IF;
21839:
21840: ELSIF l_return_status = 'N' THEN
21841:
21842: UPDATE po_line_locations_all
21843: SET lcm_flag = null
21844: WHERE line_location_id = p_line_location_id
21845: AND lcm_flag = 'Y';
21846:
22954: ),
22955: 'PO_LINE_SHIP_UOM_MISMATCH'
22956:
22957: FROM
22958: PO_LINE_LOCATIONS_ALL PLL,
22959: PO_LINES_ALL POL
22960: WHERE POL.PO_LINE_ID=PLL.PO_LINE_ID
22961: AND NVL(PLL.unit_meas_lookup_code,-1) <> NVL(POL.unit_meas_lookup_code,-1)
22962: AND PLL.PO_RELEASE_ID = P_DOCUMENT_ID;
22992: , 'SHIP_NUM', PLL.SHIPMENT_NUM
22993: ),
22994: 'PO_LINE_SHIP_UOM_MISMATCH'
22995: FROM
22996: PO_LINE_LOCATIONS_ALL PLL,
22997: PO_LINES_ALL POL
22998: WHERE POL.PO_LINE_ID=PLL.PO_LINE_ID
22999: AND NVL(PLL.unit_meas_lookup_code,-1)<>NVL(POL.unit_meas_lookup_code,-1)
23000: -- bug 12597958 : bypassing check for amount based lines.