1254: BEGIN
1255: x_return_status := fnd_api.g_ret_sts_success ;
1256: --
1257: --inv_sql_binding_pvt.showsql(g_stmt);
1258: l_cursor := dbms_sql.open_cursor ;
1259: dbms_sql.parse(l_cursor, g_stmt, dbms_sql.v7);
1260: -- bind input variables
1261: inv_sql_binding_pvt.bindvars(l_cursor);
1262: -- now define the output variables
1255: x_return_status := fnd_api.g_ret_sts_success ;
1256: --
1257: --inv_sql_binding_pvt.showsql(g_stmt);
1258: l_cursor := dbms_sql.open_cursor ;
1259: dbms_sql.parse(l_cursor, g_stmt, dbms_sql.v7);
1260: -- bind input variables
1261: inv_sql_binding_pvt.bindvars(l_cursor);
1262: -- now define the output variables
1263: dbms_sql.define_column(l_cursor, 1, l_revision, 3);
1259: dbms_sql.parse(l_cursor, g_stmt, dbms_sql.v7);
1260: -- bind input variables
1261: inv_sql_binding_pvt.bindvars(l_cursor);
1262: -- now define the output variables
1263: dbms_sql.define_column(l_cursor, 1, l_revision, 3);
1264: dbms_sql.define_column(l_cursor, 2, l_lot_number, 30);
1265: dbms_sql.define_column(l_cursor, 3, l_lot_expiration_date);
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1260: -- bind input variables
1261: inv_sql_binding_pvt.bindvars(l_cursor);
1262: -- now define the output variables
1263: dbms_sql.define_column(l_cursor, 1, l_revision, 3);
1264: dbms_sql.define_column(l_cursor, 2, l_lot_number, 30);
1265: dbms_sql.define_column(l_cursor, 3, l_lot_expiration_date);
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1268: dbms_sql.define_column(l_cursor, 6, l_from_cost_group_id);
1261: inv_sql_binding_pvt.bindvars(l_cursor);
1262: -- now define the output variables
1263: dbms_sql.define_column(l_cursor, 1, l_revision, 3);
1264: dbms_sql.define_column(l_cursor, 2, l_lot_number, 30);
1265: dbms_sql.define_column(l_cursor, 3, l_lot_expiration_date);
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1268: dbms_sql.define_column(l_cursor, 6, l_from_cost_group_id);
1269: --
1262: -- now define the output variables
1263: dbms_sql.define_column(l_cursor, 1, l_revision, 3);
1264: dbms_sql.define_column(l_cursor, 2, l_lot_number, 30);
1265: dbms_sql.define_column(l_cursor, 3, l_lot_expiration_date);
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1268: dbms_sql.define_column(l_cursor, 6, l_from_cost_group_id);
1269: --
1270: l_discard := dbms_sql.execute(l_cursor);
1263: dbms_sql.define_column(l_cursor, 1, l_revision, 3);
1264: dbms_sql.define_column(l_cursor, 2, l_lot_number, 30);
1265: dbms_sql.define_column(l_cursor, 3, l_lot_expiration_date);
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1268: dbms_sql.define_column(l_cursor, 6, l_from_cost_group_id);
1269: --
1270: l_discard := dbms_sql.execute(l_cursor);
1271: --
1264: dbms_sql.define_column(l_cursor, 2, l_lot_number, 30);
1265: dbms_sql.define_column(l_cursor, 3, l_lot_expiration_date);
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1268: dbms_sql.define_column(l_cursor, 6, l_from_cost_group_id);
1269: --
1270: l_discard := dbms_sql.execute(l_cursor);
1271: --
1272: -- set the qty that has to be detailed
1266: dbms_sql.define_column(l_cursor, 4, l_from_subinventory, 10);
1267: dbms_sql.define_column(l_cursor, 5, l_from_locator_id);
1268: dbms_sql.define_column(l_cursor, 6, l_from_cost_group_id);
1269: --
1270: l_discard := dbms_sql.execute(l_cursor);
1271: --
1272: -- set the qty that has to be detailed
1273: l_qty_to_detail := p_pp_temp_rec.primary_quantity ;
1274: --
1323:
1324: LOOP
1325: -- when no more rows to fetch, then exit
1326: --
1327: IF dbms_sql.fetch_rows(l_cursor) = 0 THEN
1328: EXIT ;
1329: END IF;
1330: --
1331: -- now retrieve the rows one at a time
1329: END IF;
1330: --
1331: -- now retrieve the rows one at a time
1332: --
1333: dbms_sql.column_value(l_cursor, 1, l_revision);
1334: dbms_sql.column_value(l_cursor, 2, l_lot_number);
1335: dbms_sql.column_value(l_cursor, 3, l_lot_expiration_date);
1336: dbms_sql.column_value(l_cursor, 4, l_from_subinventory);
1337: dbms_sql.column_value(l_cursor, 5, l_from_locator_id);
1330: --
1331: -- now retrieve the rows one at a time
1332: --
1333: dbms_sql.column_value(l_cursor, 1, l_revision);
1334: dbms_sql.column_value(l_cursor, 2, l_lot_number);
1335: dbms_sql.column_value(l_cursor, 3, l_lot_expiration_date);
1336: dbms_sql.column_value(l_cursor, 4, l_from_subinventory);
1337: dbms_sql.column_value(l_cursor, 5, l_from_locator_id);
1338: dbms_sql.column_value(l_cursor, 6, l_from_cost_group_id);
1331: -- now retrieve the rows one at a time
1332: --
1333: dbms_sql.column_value(l_cursor, 1, l_revision);
1334: dbms_sql.column_value(l_cursor, 2, l_lot_number);
1335: dbms_sql.column_value(l_cursor, 3, l_lot_expiration_date);
1336: dbms_sql.column_value(l_cursor, 4, l_from_subinventory);
1337: dbms_sql.column_value(l_cursor, 5, l_from_locator_id);
1338: dbms_sql.column_value(l_cursor, 6, l_from_cost_group_id);
1339: --
1332: --
1333: dbms_sql.column_value(l_cursor, 1, l_revision);
1334: dbms_sql.column_value(l_cursor, 2, l_lot_number);
1335: dbms_sql.column_value(l_cursor, 3, l_lot_expiration_date);
1336: dbms_sql.column_value(l_cursor, 4, l_from_subinventory);
1337: dbms_sql.column_value(l_cursor, 5, l_from_locator_id);
1338: dbms_sql.column_value(l_cursor, 6, l_from_cost_group_id);
1339: --
1340: -- Some initializations
1333: dbms_sql.column_value(l_cursor, 1, l_revision);
1334: dbms_sql.column_value(l_cursor, 2, l_lot_number);
1335: dbms_sql.column_value(l_cursor, 3, l_lot_expiration_date);
1336: dbms_sql.column_value(l_cursor, 4, l_from_subinventory);
1337: dbms_sql.column_value(l_cursor, 5, l_from_locator_id);
1338: dbms_sql.column_value(l_cursor, 6, l_from_cost_group_id);
1339: --
1340: -- Some initializations
1341: --
1334: dbms_sql.column_value(l_cursor, 2, l_lot_number);
1335: dbms_sql.column_value(l_cursor, 3, l_lot_expiration_date);
1336: dbms_sql.column_value(l_cursor, 4, l_from_subinventory);
1337: dbms_sql.column_value(l_cursor, 5, l_from_locator_id);
1338: dbms_sql.column_value(l_cursor, 6, l_from_cost_group_id);
1339: --
1340: -- Some initializations
1341: --
1342: use_this_row := true;
1582: EXIT WHEN l_qty_to_detail = 0;
1583: END LOOP;
1584: --
1585: -- close cursor now
1586: dbms_sql.close_cursor(l_cursor);
1587: --
1588: --
1589: EXCEPTION
1590: WHEN fnd_api.g_exc_error THEN
1588: --
1589: EXCEPTION
1590: WHEN fnd_api.g_exc_error THEN
1591: x_return_status := fnd_api.g_ret_sts_error ;
1592: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1593: --
1594: WHEN fnd_api.g_exc_unexpected_error THEN
1595: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1596: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1592: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1593: --
1594: WHEN fnd_api.g_exc_unexpected_error THEN
1595: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1596: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1597: --
1598: WHEN OTHERS THEN
1599: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1600: --
1595: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1596: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1597: --
1598: WHEN OTHERS THEN
1599: DBMS_SQL.CLOSE_CURSOR(l_cursor);
1600: --
1601: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1602: --
1603: IF (fnd_msg_pub.check_msg_level