DBA Data[Home] [Help]

APPS.WMS_CONTAINER2_PUB dependencies on DBMS_SQL

Line 1087: -- inventory item. Use DBMS_SQL to do a dynamic query on the

1083: END IF;
1084: END LOOP;
1085: ELSE -- Find outermost LPN(s) for a specific item
1086: -- First we need to get all of the LPN's which store the given
1087: -- inventory item. Use DBMS_SQL to do a dynamic query on the
1088: -- WMS_LPN_CONTENTS table to get all the LPN's that store the
1089: -- given item with the specified parameters.
1090:
1091: l_SelectStmt := 'SELECT PARENT_LPN_ID FROM WMS_LPN_CONTENTS WHERE ';

Line 1111: l_CursorID := DBMS_SQL.OPEN_CURSOR;

1107: -- Tie up loose ends of the where clause in the query statement
1108: l_SelectStmt := l_SelectStmt || '1 = 1';
1109:
1110: -- Open a cursor for processing.
1111: l_CursorID := DBMS_SQL.OPEN_CURSOR;
1112:
1113: -- Parse the query
1114: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1115:

Line 1114: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);

1110: -- Open a cursor for processing.
1111: l_CursorID := DBMS_SQL.OPEN_CURSOR;
1112:
1113: -- Parse the query
1114: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1115:
1116: -- Define the output variables
1117: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);
1118:

Line 1117: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);

1113: -- Parse the query
1114: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1115:
1116: -- Define the output variables
1117: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);
1118:
1119: -- Execute the statement. We don't care about the return value,
1120: -- but we do need to declare a variable for it.
1121: l_Dummy := DBMS_SQL.EXECUTE(l_CursorID);

Line 1121: l_Dummy := DBMS_SQL.EXECUTE(l_CursorID);

1117: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);
1118:
1119: -- Execute the statement. We don't care about the return value,
1120: -- but we do need to declare a variable for it.
1121: l_Dummy := DBMS_SQL.EXECUTE(l_CursorID);
1122:
1123: -- This is the fetch loop
1124: LOOP
1125: -- Fetch the rows into the buffer, and also check for the exit

Line 1127: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN

1123: -- This is the fetch loop
1124: LOOP
1125: -- Fetch the rows into the buffer, and also check for the exit
1126: -- condition from the loop.
1127: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
1128: EXIT;
1129: END IF;
1130:
1131: -- Retrieve the rows from the buffer into a temp variable.

Line 1132: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_temp_lpn);

1128: EXIT;
1129: END IF;
1130:
1131: -- Retrieve the rows from the buffer into a temp variable.
1132: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_temp_lpn);
1133:
1134: -- Get the outermost LPN for each parent lpn from WMS_LPN_CONTENTS
1135: l_current_lpn := l_temp_lpn;
1136: FOR l_lpn_record IN nested_parent_lpn_cursor_2 LOOP

Line 1148: DBMS_SQL.CLOSE_CURSOR(l_CursorID);

1144: END LOOP;
1145: END LOOP;
1146:
1147: -- Close the cursor.
1148: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
1149:
1150: -- Now we have a table, l_temp_table which contains the list of
1151: -- outermost LPN records. There are possibly duplicate records
1152: -- since an item can be stored in multiple LPN's. We now need to

Line 1220: DBMS_SQL.CLOSE_CURSOR(l_CursorID);

1216: ( p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: WHEN OTHERS THEN
1220: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
1221: ROLLBACK TO Get_Outermost_LPN_PUB;
1222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1223: IF FND_MSG_PUB.Check_Msg_Level
1224: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 1323: -- inventory item. Use DBMS_SQL to do a dynamic query on the

1319: END IF;
1320: /* End of input validation */
1321:
1322: -- First we need to get all of the LPN's which store the given
1323: -- inventory item. Use DBMS_SQL to do a dynamic query on the
1324: -- WMS_LPN_CONTENTS table to get all the LPN's that store the
1325: -- given item with the specified parameters.
1326:
1327: l_SelectStmt := 'SELECT a.lpn_id

Line 1375: l_CursorID := DBMS_SQL.OPEN_CURSOR;

1371: -- Finish the WHERE clause with the join condition for the two tables
1372: l_SelectStmt := l_SelectStmt || 'a.lpn_id = b.parent_lpn_id';
1373:
1374: -- Open a cursor for processing.
1375: l_CursorID := DBMS_SQL.OPEN_CURSOR;
1376:
1377: -- Parse the query
1378: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1379:

Line 1378: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);

1374: -- Open a cursor for processing.
1375: l_CursorID := DBMS_SQL.OPEN_CURSOR;
1376:
1377: -- Parse the query
1378: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1379:
1380: -- Define the output variables
1381: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);
1382:

Line 1381: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);

1377: -- Parse the query
1378: DBMS_SQL.PARSE(l_CursorID, l_SelectStmt, DBMS_SQL.V7);
1379:
1380: -- Define the output variables
1381: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);
1382:
1383: -- Execute the statement. We don't care about the return value,
1384: -- but we do need to declare a variable for it.
1385: l_Dummy := DBMS_SQL.EXECUTE(l_CursorID);

Line 1385: l_Dummy := DBMS_SQL.EXECUTE(l_CursorID);

1381: DBMS_SQL.DEFINE_COLUMN(l_CursorID, 1, l_temp_lpn);
1382:
1383: -- Execute the statement. We don't care about the return value,
1384: -- but we do need to declare a variable for it.
1385: l_Dummy := DBMS_SQL.EXECUTE(l_CursorID);
1386:
1387: -- This is the fetch loop
1388: LOOP
1389: -- Fetch the rows into the buffer, and also check for the exit

Line 1391: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN

1387: -- This is the fetch loop
1388: LOOP
1389: -- Fetch the rows into the buffer, and also check for the exit
1390: -- condition from the loop.
1391: IF DBMS_SQL.FETCH_ROWS(l_CursorID) = 0 THEN
1392: EXIT;
1393: END IF;
1394:
1395: -- Retrieve the rows from the buffer into a temp variable.

Line 1396: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_temp_lpn);

1392: EXIT;
1393: END IF;
1394:
1395: -- Retrieve the rows from the buffer into a temp variable.
1396: DBMS_SQL.COLUMN_VALUE(l_CursorID, 1, l_temp_lpn);
1397:
1398: -- Insert the fetched data in the temp record into the temp table
1399: l_temp_table(l_index) := l_temp_lpn;
1400: l_index := l_index + 1;

Line 1405: DBMS_SQL.CLOSE_CURSOR(l_CursorID);

1401:
1402: END LOOP;
1403:
1404: -- Close the cursor.
1405: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
1406: -- Now that we have all the LPN records which satisfy the set of user
1407: -- parameters, we have to sort through these records to see which of them
1408: -- come from homogeneous LPN's.
1409:

Line 1474: DBMS_SQL.CLOSE_CURSOR(l_CursorID);

1470: ( p_count => x_msg_count,
1471: p_data => x_msg_data
1472: );
1473: WHEN OTHERS THEN
1474: DBMS_SQL.CLOSE_CURSOR(l_CursorID);
1475: ROLLBACK TO Get_LPN_List_PUB;
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1477: IF FND_MSG_PUB.Check_Msg_Level
1478: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)