111:
112:
113: l_header_cursor_stmt := 'select ord.source_document_id, ord.org_id, ord.source_document_type_id, ord.price_list_id, ord.transactional_curr_code, ord_src.name ';
114: l_header_cursor_stmt := l_header_cursor_stmt || ' from oe_order_headers_all ord, OE_ORDER_SOURCES ord_src where header_id = :v_a_header_id and ord.source_document_type_id= ord_src.order_source_id(+)' ;
115: l_header_cursor := dbms_sql.open_cursor;
116: dbms_sql.parse(l_header_cursor, l_header_cursor_stmt , dbms_sql.NATIVE);
117:
118: dbms_sql.bind_variable( l_header_cursor, ':v_a_header_id', p_header_id);
119:
112:
113: l_header_cursor_stmt := 'select ord.source_document_id, ord.org_id, ord.source_document_type_id, ord.price_list_id, ord.transactional_curr_code, ord_src.name ';
114: l_header_cursor_stmt := l_header_cursor_stmt || ' from oe_order_headers_all ord, OE_ORDER_SOURCES ord_src where header_id = :v_a_header_id and ord.source_document_type_id= ord_src.order_source_id(+)' ;
115: l_header_cursor := dbms_sql.open_cursor;
116: dbms_sql.parse(l_header_cursor, l_header_cursor_stmt , dbms_sql.NATIVE);
117:
118: dbms_sql.bind_variable( l_header_cursor, ':v_a_header_id', p_header_id);
119:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
114: l_header_cursor_stmt := l_header_cursor_stmt || ' from oe_order_headers_all ord, OE_ORDER_SOURCES ord_src where header_id = :v_a_header_id and ord.source_document_type_id= ord_src.order_source_id(+)' ;
115: l_header_cursor := dbms_sql.open_cursor;
116: dbms_sql.parse(l_header_cursor, l_header_cursor_stmt , dbms_sql.NATIVE);
117:
118: dbms_sql.bind_variable( l_header_cursor, ':v_a_header_id', p_header_id);
119:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
116: dbms_sql.parse(l_header_cursor, l_header_cursor_stmt , dbms_sql.NATIVE);
117:
118: dbms_sql.bind_variable( l_header_cursor, ':v_a_header_id', p_header_id);
119:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
123: dbms_sql.define_column (l_header_cursor, 4, l_pricelist_id);
124: dbms_sql.define_column (l_header_cursor, 5, l_transaction_curr_code, 15);
117:
118: dbms_sql.bind_variable( l_header_cursor, ':v_a_header_id', p_header_id);
119:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
123: dbms_sql.define_column (l_header_cursor, 4, l_pricelist_id);
124: dbms_sql.define_column (l_header_cursor, 5, l_transaction_curr_code, 15);
125: dbms_sql.define_column (l_header_cursor, 6, l_quote_source_code, 240 );
118: dbms_sql.bind_variable( l_header_cursor, ':v_a_header_id', p_header_id);
119:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
123: dbms_sql.define_column (l_header_cursor, 4, l_pricelist_id);
124: dbms_sql.define_column (l_header_cursor, 5, l_transaction_curr_code, 15);
125: dbms_sql.define_column (l_header_cursor, 6, l_quote_source_code, 240 );
126:
119:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
123: dbms_sql.define_column (l_header_cursor, 4, l_pricelist_id);
124: dbms_sql.define_column (l_header_cursor, 5, l_transaction_curr_code, 15);
125: dbms_sql.define_column (l_header_cursor, 6, l_quote_source_code, 240 );
126:
127:
120: dbms_sql.define_column (l_header_cursor, 1, l_source_document_id);
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
123: dbms_sql.define_column (l_header_cursor, 4, l_pricelist_id);
124: dbms_sql.define_column (l_header_cursor, 5, l_transaction_curr_code, 15);
125: dbms_sql.define_column (l_header_cursor, 6, l_quote_source_code, 240 );
126:
127:
128:
121: dbms_sql.define_column (l_header_cursor, 2, l_org_id);
122: dbms_sql.define_column (l_header_cursor, 3, l_source_document_type_id);
123: dbms_sql.define_column (l_header_cursor, 4, l_pricelist_id);
124: dbms_sql.define_column (l_header_cursor, 5, l_transaction_curr_code, 15);
125: dbms_sql.define_column (l_header_cursor, 6, l_quote_source_code, 240 );
126:
127:
128:
129: l_dummy_id := dbms_sql.execute (l_header_cursor);
125: dbms_sql.define_column (l_header_cursor, 6, l_quote_source_code, 240 );
126:
127:
128:
129: l_dummy_id := dbms_sql.execute (l_header_cursor);
130:
131: if ( dbms_sql.fetch_rows(l_header_cursor)>0 ) then
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
127:
128:
129: l_dummy_id := dbms_sql.execute (l_header_cursor);
130:
131: if ( dbms_sql.fetch_rows(l_header_cursor)>0 ) then
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
128:
129: l_dummy_id := dbms_sql.execute (l_header_cursor);
130:
131: if ( dbms_sql.fetch_rows(l_header_cursor)>0 ) then
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
136: dbms_sql.column_value (l_header_cursor, 5, l_transaction_curr_code);
129: l_dummy_id := dbms_sql.execute (l_header_cursor);
130:
131: if ( dbms_sql.fetch_rows(l_header_cursor)>0 ) then
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
136: dbms_sql.column_value (l_header_cursor, 5, l_transaction_curr_code);
137: dbms_sql.column_value (l_header_cursor, 6, l_quote_source_code);
130:
131: if ( dbms_sql.fetch_rows(l_header_cursor)>0 ) then
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
136: dbms_sql.column_value (l_header_cursor, 5, l_transaction_curr_code);
137: dbms_sql.column_value (l_header_cursor, 6, l_quote_source_code);
138:
131: if ( dbms_sql.fetch_rows(l_header_cursor)>0 ) then
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
136: dbms_sql.column_value (l_header_cursor, 5, l_transaction_curr_code);
137: dbms_sql.column_value (l_header_cursor, 6, l_quote_source_code);
138:
139:
132: dbms_sql.column_value(l_header_cursor, 1, l_source_document_id);
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
136: dbms_sql.column_value (l_header_cursor, 5, l_transaction_curr_code);
137: dbms_sql.column_value (l_header_cursor, 6, l_quote_source_code);
138:
139:
140: else
133: dbms_sql.column_value (l_header_cursor, 2, l_org_id);
134: dbms_sql.column_value (l_header_cursor, 3, l_source_document_type_id);
135: dbms_sql.column_value (l_header_cursor, 4, l_pricelist_id);
136: dbms_sql.column_value (l_header_cursor, 5, l_transaction_curr_code);
137: dbms_sql.column_value (l_header_cursor, 6, l_quote_source_code);
138:
139:
140: else
141: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
328: if (LINE_TBL.count > 0) then
329: for i in LINE_TBL.FIRST..LINE_TBL.LAST loop
330:
331: l_line_cursor_stmt := 'select org_id, ship_from_org_id, inventory_item_id, order_quantity_uom, price_list_id, unit_list_price, unit_selling_price from oe_order_lines_all where line_id=:v_line_id';
332: l_line_cursor := dbms_sql.open_cursor;
333: dbms_sql.parse(l_line_cursor,l_line_cursor_stmt , dbms_sql.NATIVE);
334:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
329: for i in LINE_TBL.FIRST..LINE_TBL.LAST loop
330:
331: l_line_cursor_stmt := 'select org_id, ship_from_org_id, inventory_item_id, order_quantity_uom, price_list_id, unit_list_price, unit_selling_price from oe_order_lines_all where line_id=:v_line_id';
332: l_line_cursor := dbms_sql.open_cursor;
333: dbms_sql.parse(l_line_cursor,l_line_cursor_stmt , dbms_sql.NATIVE);
334:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
331: l_line_cursor_stmt := 'select org_id, ship_from_org_id, inventory_item_id, order_quantity_uom, price_list_id, unit_list_price, unit_selling_price from oe_order_lines_all where line_id=:v_line_id';
332: l_line_cursor := dbms_sql.open_cursor;
333: dbms_sql.parse(l_line_cursor,l_line_cursor_stmt , dbms_sql.NATIVE);
334:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
332: l_line_cursor := dbms_sql.open_cursor;
333: dbms_sql.parse(l_line_cursor,l_line_cursor_stmt , dbms_sql.NATIVE);
334:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
340: dbms_sql.define_column (l_line_cursor, 6, l_unit_list_price);
333: dbms_sql.parse(l_line_cursor,l_line_cursor_stmt , dbms_sql.NATIVE);
334:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
340: dbms_sql.define_column (l_line_cursor, 6, l_unit_list_price);
341: dbms_sql.define_column (l_line_cursor, 7, l_unit_selling_price);
334:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
340: dbms_sql.define_column (l_line_cursor, 6, l_unit_list_price);
341: dbms_sql.define_column (l_line_cursor, 7, l_unit_selling_price);
342:
335: dbms_sql.define_column (l_line_cursor, 1, l_line_org_id );
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
340: dbms_sql.define_column (l_line_cursor, 6, l_unit_list_price);
341: dbms_sql.define_column (l_line_cursor, 7, l_unit_selling_price);
342:
343:
336: dbms_sql.define_column (l_line_cursor, 2, l_ship_from_org_id );
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
340: dbms_sql.define_column (l_line_cursor, 6, l_unit_list_price);
341: dbms_sql.define_column (l_line_cursor, 7, l_unit_selling_price);
342:
343:
344:
337: dbms_sql.define_column (l_line_cursor, 3, l_inventory_item_id);
338: dbms_sql.define_column (l_line_cursor, 4, l_ordered_quantity_uom, 3);
339: dbms_sql.define_column (l_line_cursor, 5, l_line_price_list_id);
340: dbms_sql.define_column (l_line_cursor, 6, l_unit_list_price);
341: dbms_sql.define_column (l_line_cursor, 7, l_unit_selling_price);
342:
343:
344:
345: dbms_sql.bind_variable(l_line_cursor, ':v_line_id', LINE_TBL(i).LINE_ID) ;
341: dbms_sql.define_column (l_line_cursor, 7, l_unit_selling_price);
342:
343:
344:
345: dbms_sql.bind_variable(l_line_cursor, ':v_line_id', LINE_TBL(i).LINE_ID) ;
346:
347: l_dummy_id := dbms_sql.execute (l_line_cursor);
348:
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
343:
344:
345: dbms_sql.bind_variable(l_line_cursor, ':v_line_id', LINE_TBL(i).LINE_ID) ;
346:
347: l_dummy_id := dbms_sql.execute (l_line_cursor);
348:
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
345: dbms_sql.bind_variable(l_line_cursor, ':v_line_id', LINE_TBL(i).LINE_ID) ;
346:
347: l_dummy_id := dbms_sql.execute (l_line_cursor);
348:
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
346:
347: l_dummy_id := dbms_sql.execute (l_line_cursor);
348:
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
347: l_dummy_id := dbms_sql.execute (l_line_cursor);
348:
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
355: dbms_sql.column_value (l_line_cursor, 6, l_unit_list_price);
348:
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
355: dbms_sql.column_value (l_line_cursor, 6, l_unit_list_price);
356: dbms_sql.column_value (l_line_cursor, 7, l_unit_selling_price);
349: if ( dbms_sql.fetch_rows(l_line_cursor) > 0) then
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
355: dbms_sql.column_value (l_line_cursor, 6, l_unit_list_price);
356: dbms_sql.column_value (l_line_cursor, 7, l_unit_selling_price);
357:
350: dbms_sql.column_value(l_line_cursor, 1, l_line_org_id);
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
355: dbms_sql.column_value (l_line_cursor, 6, l_unit_list_price);
356: dbms_sql.column_value (l_line_cursor, 7, l_unit_selling_price);
357:
358:
351: dbms_sql.column_value (l_line_cursor, 2, l_ship_from_org_id );
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
355: dbms_sql.column_value (l_line_cursor, 6, l_unit_list_price);
356: dbms_sql.column_value (l_line_cursor, 7, l_unit_selling_price);
357:
358:
359: else
352: dbms_sql.column_value (l_line_cursor, 3, l_inventory_item_id);
353: dbms_sql.column_value (l_line_cursor, 4, l_ordered_quantity_uom);
354: dbms_sql.column_value (l_line_cursor, 5, l_line_price_list_id);
355: dbms_sql.column_value (l_line_cursor, 6, l_unit_list_price);
356: dbms_sql.column_value (l_line_cursor, 7, l_unit_selling_price);
357:
358:
359: else
360: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;