[Home] [Help]
538:
539: -- OPM Conv R12 Tracking Bug 4345760
540: -- change variable size for lot num
541:
542: X_LOT_NUMBER qa_results.lot_number%TYPE;
543:
544: X_SERIAL_NUMBER VARCHAR2(30);
545: X_SUBINVENTORY VARCHAR2(10);
546: X_LOCATOR_ID NUMBER;
678: I := 0;
679: X_OCCURRENCE := TO_NUMBER(QLTNINRB.NAME_IN('OCCURRENCE'));
680: FOR UPDATED_RES_COLUMNS IN
681: (SELECT CHAR_ID
682: FROM QA_RESULTS_UPDATE_HISTORY
683: WHERE TXN_HEADER_ID = X_TXN_HEADER_ID
684: AND OCCURRENCE = X_OCCURRENCE) LOOP
685: I := I + 1;
686: UPDATE_COLUMN(I) := UPDATED_RES_COLUMNS.CHAR_ID;
689:
690: IF TOTAL_UPDATES = 0
691: THEN SELECT DECODE(INSERT_TYPE,2,'UPDATE','INSERT')
692: INTO TXN_TYPE
693: FROM QA_RESULTS_INTERFACE
694: WHERE TRANSACTION_INTERFACE_ID = X_TXN_HEADER_ID;
695:
696: IF NVL(TXN_TYPE,'INSERT') = 'UPDATE'
697: THEN TOTAL_UPDATES := 0;
1375: -- generate the new LPN. This API returns the LPN_ID for the
1376: -- new transfer LPN.
1377: --
1378: -- This step has been done in QLTRES during Insert_row beacuse
1379: -- the value of Transfer LPN is not stored in QA_RESULTS and
1380: -- hence cannot be retrieved.
1381: --
1382: -- 3. If transfer_LPN and transfer_LPN_ID exist is the results
1383: -- record, pass it directly to the RCV Inspection API.
2496: OPEN RESULT_COLUMN(l_plan_id,x_pca_id);
2497: FETCH RESULT_COLUMN INTO l_result_column_name;
2498: CLOSE RESULT_COLUMN;
2499:
2500: l_sql_string := 'SELECT '|| l_result_column_name ||' FROM QA_RESULTS '||
2501: 'WHERE PLAN_ID = :l_plan_id AND OCCURRENCE = :l_occurrence';
2502:
2503: EXECUTE IMMEDIATE l_sql_string into l_result_column_value
2504: USING l_plan_id,l_occurrence;
2861: -- with bind variables instead of piecing the SQL together with string concats.
2862: -- Note: the column name is still hardcoded because you can't bind schema object names
2863: -- ilawler Tue May 27 13:34:49 2003
2864: --
2865: update_stmt := 'UPDATE qa_results SET ' || y_column || ' = ' ;
2866:
2867: --set the default bind variable name
2868: bind_var_name := ':CHAR_VALUE';
2869: