[Home] [Help]
514:
515: -- OPM Conv R12 Tracking Bug 4345760
516: -- change variable size for lot num
517:
518: X_LOT_NUMBER qa_results.lot_number%TYPE;
519:
520: X_SERIAL_NUMBER VARCHAR2(30);
521: X_SUBINVENTORY VARCHAR2(10);
522: X_LOCATOR_ID NUMBER;
639: I := 0;
640: X_OCCURRENCE := TO_NUMBER(QLTNINRB.NAME_IN('OCCURRENCE'));
641: FOR UPDATED_RES_COLUMNS IN
642: (SELECT CHAR_ID
643: FROM QA_RESULTS_UPDATE_HISTORY
644: WHERE TXN_HEADER_ID = X_TXN_HEADER_ID
645: AND OCCURRENCE = X_OCCURRENCE) LOOP
646: I := I + 1;
647: UPDATE_COLUMN(I) := UPDATED_RES_COLUMNS.CHAR_ID;
650:
651: IF TOTAL_UPDATES = 0
652: THEN SELECT DECODE(INSERT_TYPE,2,'UPDATE','INSERT')
653: INTO TXN_TYPE
654: FROM QA_RESULTS_INTERFACE
655: WHERE TRANSACTION_INTERFACE_ID = X_TXN_HEADER_ID;
656:
657: IF NVL(TXN_TYPE,'INSERT') = 'UPDATE'
658: THEN TOTAL_UPDATES := 0;
1336: -- generate the new LPN. This API returns the LPN_ID for the
1337: -- new transfer LPN.
1338: --
1339: -- This step has been done in QLTRES during Insert_row beacuse
1340: -- the value of Transfer LPN is not stored in QA_RESULTS and
1341: -- hence cannot be retrieved.
1342: --
1343: -- 3. If transfer_LPN and transfer_LPN_ID exist is the results
1344: -- record, pass it directly to the RCV Inspection API.
2367: OPEN RESULT_COLUMN(l_plan_id,x_pca_id);
2368: FETCH RESULT_COLUMN INTO l_result_column_name;
2369: CLOSE RESULT_COLUMN;
2370:
2371: l_sql_string := 'SELECT '|| l_result_column_name ||' FROM QA_RESULTS '||
2372: 'WHERE PLAN_ID = :l_plan_id AND OCCURRENCE = :l_occurrence';
2373:
2374: EXECUTE IMMEDIATE l_sql_string into l_result_column_value
2375: USING l_plan_id,l_occurrence;
2732: -- with bind variables instead of piecing the SQL together with string concats.
2733: -- Note: the column name is still hardcoded because you can't bind schema object names
2734: -- ilawler Tue May 27 13:34:49 2003
2735: --
2736: update_stmt := 'UPDATE qa_results SET ' || y_column || ' = ' ;
2737:
2738: --set the default bind variable name
2739: bind_var_name := ':CHAR_VALUE';
2740: