[Home] [Help]
1367:
1368: l_progress := '027';
1369: x_return_status := FND_API.G_RET_STS_SUCCESS;
1370:
1371: -- 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.
1372: IF p_document_type in ('PO','RELEASE') THEN
1373:
1374: FOR ship_rec in (select line_location_id from po_line_locations_gt)
1375:
7546: * PLL3.price_override
7547: )
7548: )
7549: )
7550: FROM PO_LINE_LOCATIONS_ALL PLL3
7551: WHERE PLL3.from_header_id = POH.po_header_id
7552: )
7553: )
7554: );
9077: * PLL2.price_override )
9078: )
9079: , 0 )
9080: BULK COLLECT INTO l_prev_doc_line_num, l_prev_rel_amount
9081: FROM PO_LINE_LOCATIONS_ALL PLL2, PO_HEADERS_ALL POH1,
9082: PO_HEADERS_ALL POH2, PO_LINES_GT POL
9083: WHERE POL.po_header_id = p_document_id
9084: AND POL.from_header_id = POH1.po_header_id --JOIN
9085: AND POH1.type_lookup_code = 'BLANKET'
12775: AND (l.cancel_flag is null or l.cancel_flag <> 'Y')
12776: AND (l.closed_code is NULL or l.closed_code NOT IN ('FINALLY CLOSED'))))
12777: AND (p_line_location_id(i) IS NULL
12778: --Case 4: Optionally, Line Location is specified
12779: OR EXISTS (SELECT null from po_line_locations_all l
12780: WHERE l.line_location_id = p_line_location_id(i)
12781: AND (l.cancel_flag is null or l.cancel_flag <> 'Y')
12782: AND (l.closed_code is NULL or l.closed_code NOT IN ('FINALLY CLOSED')))) ;
12783: -- bug3592160 END
13004: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
13005: AND (p_line_location_id(i) IS NULL
13006: --Case 4: Optionally, Line Location is specified
13007: -- Bug 3407980: Modified closed_code condition so that it only discards 'FINALLY CLOSED'
13008: OR EXISTS (SELECT null from po_line_locations_all l
13009: WHERE l.line_location_id = p_line_location_id(i)
13010: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
13011: ;
13012:
13173: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
13174: AND (p_line_location_id(i) IS NULL
13175: --Case 4: Optionally, Line Location is specified
13176: -- Bug 3407980: Modified closed_code condition so that it only discards 'FINALLY CLOSED'
13177: OR EXISTS (SELECT null from po_line_locations_all l
13178: WHERE l.line_location_id = p_line_location_id(i)
13179: AND (l.closed_code is NULL or l.closed_code <> 'FINALLY CLOSED')))
13180: ;
13181:
13350: UPDATE po_headers_gt gt
13351: SET (approved_flag, closed_code, cancel_flag)
13352: =
13353: (SELECT nvl(approved_flag, 'N'), nvl(closed_code, 'OPEN'), NVL(cancel_flag, 'N')
13354: FROM po_line_locations_all s
13355: WHERE s.line_location_id = p_line_location_id(i))
13356: WHERE p_line_location_id(i) is not null and gt.po_header_id = l_sequence(i)
13357: ;
13358:
14322: retroactive_date ,
14323: payment_type , --
14324: description , --
14325: value_basis --
14326: FROM PO_LINE_LOCATIONS_ALL POLL
14327: WHERE POLL.line_location_id = l_line_location_id_tbl(i)
14328: ;
14329:
14330: l_progress := '900';
17260: , NVL(pll.quantity_financed, 0)
17261: INTO l_quantity_received
17262: , l_quantity_billed
17263: , l_quantity_financed
17264: FROM po_line_locations_all pll
17265: WHERE line_location_id = p_line_location_id;
17266:
17267: d_progress := 20;
17268:
17777: l_inventory_item_id,
17778: l_ship_to_organization_id,
17779: l_consigned_flag,
17780: l_outsourced_assembly
17781: FROM po_line_locations_all poll,
17782: po_lines_all pol,
17783: po_headers_all poh
17784: WHERE poh.po_header_id = pol.po_header_id
17785: AND pol.po_line_id = poll.po_line_id
17831:
17832:
17833: ELSIF p_doc_check_status = 'AFTER' THEN
17834:
17835: UPDATE po_line_locations_all
17836: SET lcm_flag = 'Y'
17837: WHERE line_location_id = p_line_location_id;
17838:
17839: UPDATE po_distributions_all
17842: END IF;
17843:
17844: ELSIF l_return_status = 'N' THEN
17845:
17846: UPDATE po_line_locations_all
17847: SET lcm_flag = null
17848: WHERE line_location_id = p_line_location_id
17849: AND lcm_flag = 'Y';
17850: