[Home] [Help]
36: 1. Check for holds on the record
37: 2. If not on holds, check for valid location
38: 3. If location is valid, check for valid user
39: 4. If user is valid, insert into PO_REQUISITION_INTERFACE and
40: OE_DROP_SHIP_SOURCES tables
41: This program will be called as a concurrent program or from the
42: workflow.
43: -----------------------------------------------------------------*/
44:
579:
580: begin
581: select 'Y' -- added begin block for bug 7433481
582: into l_exists
583: from oe_drop_ship_sources
584: where line_id=l_drop_ship_line_rec.line_id;
585: exception
586: when no_data_found then
587: l_exists:='N';
623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
624: END IF;
625: END IF;
626:
627: /* insert into oe_drop_ship_sources table */
628:
629: IF l_debug_level > 0 THEN
630: oe_debug_pub.add('Inserting Dropship Source Record',1);
631: END IF;
1003: oe_debug_pub.add( 'START OF INSERT_DROP_SHIP_SOURCE' , 1 ) ;
1004: END IF;
1005:
1006:
1007: INSERT INTO oe_drop_ship_sources
1008: (drop_ship_source_id,
1009: header_id,
1010: line_id,
1011: destination_organization_id,
1346: line_location_id,po_release_id,drop_ship_source_id
1347: INTO l_requisition_header_id,l_pur_header_id,
1348: l_requisition_line_id,l_pur_line_id,
1349: l_line_loc_id,l_pur_release_id,l_drop_ship_id
1350: FROM oe_drop_ship_sources
1351: WHERE line_id = p_request_tbl(I).entity_id;
1352:
1353: IF l_requisition_header_id IS NOT NULL THEN
1354: l_req_created := 'Y';