[Home] [Help]
805: X_PROGRAM_ID, X_GROUP_ID,
806: l_col1, l_col2, l_col3, l_col4, l_col5;
807:
808: If (sql%rowcount >0) THEN
809: QLTTRAMB.qa_import_log('Mandatory revision not provided. Error count :'||sql%rowcount);
810: END IF;
811:
812: END IF;
813:
857: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
858: X_PROGRAM_ID, X_GROUP_ID,
859: l_col1, l_col2, l_col3, l_col4, l_col5;
860:
861: QLTTRAMB.qa_import_log('Revision entered for a non revision controlled item. Error count :' ||sql%rowcount);
862:
863: END VALIDATE_REVISION;
864:
865: -- Bug 3775614. Component lot and serial numbers were not validated properly.
948: X_PROGRAM_ID, X_GROUP_ID,2,
949: l_col1, l_col2, l_col3, l_col4, l_col5,2;
950:
951: If (sql%rowcount >0) THEN
952: QLTTRAMB.qa_import_log('Mandatory lot not provided. Error count :'|| sql%rowcount);
953: END If;
954:
955: END IF;
956:
991: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
992: X_PROGRAM_ID, X_GROUP_ID,2,
993: l_col1, l_col2, l_col3, l_col4, l_col5,1;
994:
995: QLTTRAMB.qa_import_log('Item not under lot control and lot provided. Error count :'||sql%rowcount);
996:
997: -- If item is lot controlled and lot is entered validate the value entered.
998:
999:
1032: X_PROGRAM_ID, X_GROUP_ID,2,
1033: l_col1, l_col2, l_col3, l_col4, l_col5,2;
1034:
1035: If (sql%rowcount >0) THEN
1036: QLTTRAMB.qa_import_log('Invalid lot not provided. Error count :'|| sql%rowcount);
1037: END If;
1038:
1039: END VALIDATE_LOT_NUMBER;
1040:
1115: X_PROGRAM_ID, X_GROUP_ID,2,
1116: l_col1, l_col2, l_col3, l_col4, l_col5,1;
1117:
1118: If (sql%rowcount >0) THEN
1119: QLTTRAMB.qa_import_log('Mandatory serial not provided. Error count :'|| sql%rowcount);
1120: END IF;
1121:
1122: END IF;
1123:
1160: X_PROGRAM_ID, X_GROUP_ID,2,
1161: l_col1, l_col2, l_col3, l_col4, l_col5,1;
1162:
1163: If (sql%rowcount >0) THEN
1164: QLTTRAMB.qa_import_log('Serial entered for a non serial controlled item. Error count :' ||sql%rowcount);
1165: END IF;
1166:
1167: -- If item is SERIAL controlled and SERIAL is entered, validate the value entered.
1168: -- We should not have Serial Number validation restricted to those having
1230: l_col1, l_col2, l_col3, l_col4, l_col5;
1231: --,-1;
1232:
1233: If (sql%rowcount >0) THEN
1234: QLTTRAMB.qa_import_log('Invalid Serial. Error count :' ||sql%rowcount);
1235: END If;
1236:
1237: END VALIDATE_SERIAL_NUMBER;
1238:
1359: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
1360: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
1361:
1362: If (sql%rowcount >0) THEN
1363: QLTTRAMB.qa_import_log('Invalid datatype for column :'||ERROR_COL_NAME||' Error count :' ||sql%rowcount);
1364: END IF;
1365: END IF;
1366: END LOOP;
1367:
1643: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
1644: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
1645:
1646: If (sql%rowcount >0) THEN
1647: QLTTRAMB.qa_import_log('Not under locator control locator must be null. Error count :' ||sql%rowcount);
1648: END IF;
1649: END IF;
1650:
1651: -- update interface table with gen loc ctrl value
1786: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
1787: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
1788:
1789: If (sql%rowcount >0) THEN
1790: QLTTRAMB.qa_import_log('invalid locator. Error count :' ||sql%rowcount);
1791: END IF;
1792: END IF; -- CID > 0
1793: --Bug 3766000
1794: -- While Importing Results, no error is being thrown even when we
1809: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
1810: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
1811:
1812: If (sql%rowcount >0) THEN
1813: QLTTRAMB.qa_import_log('invalid locator, not in subinv. Error count :' ||sql%rowcount);
1814: END IF;
1815: END IF; -- (V) THEN
1816: END IF;
1817: END LOOP;
1977: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
1978: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
1979:
1980: If (sql%rowcount >0) THEN
1981: QLTTRAMB.qa_import_log('invalid to locator, not under loc control. Error count :' ||sql%rowcount);
1982: END IF;
1983: END IF;
1984: -- update interface table with gen loc ctrl value
1985:
2110: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
2111: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
2112:
2113: If (sql%rowcount >0) THEN
2114: QLTTRAMB.qa_import_log('invalid to locator. Error count :' ||sql%rowcount);
2115: END IF;
2116: END IF; -- CID > 0
2117:
2118: --Bug 3766000
2134: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
2135: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
2136:
2137: If (sql%rowcount >0) THEN
2138: QLTTRAMB.qa_import_log('invalid to locator, not in subinv. Error count :' ||sql%rowcount);
2139: END IF;
2140: END IF; -- (V) THEN
2141: END IF;
2142: END LOOP;
2427: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
2428: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
2429:
2430: If (sql%rowcount >0) THEN
2431: QLTTRAMB.qa_import_log('invalid Item. Error count :' ||sql%rowcount);
2432: END IF;
2433: END IF;
2434: END LOOP;
2435:
2487: X_PROGRAM_ID, X_GROUP_ID,2,
2488: l_col1, l_col2, l_col3, l_col4, l_col5;
2489:
2490: If (sql%rowcount >0) THEN
2491: QLTTRAMB.qa_import_log('invalid comp Item. Error count :' ||sql%rowcount);
2492: END IF;
2493: END IF;
2494:
2495: END VALIDATE_ITEM;
2683: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
2684: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
2685:
2686: If (sql%rowcount >0) THEN
2687: QLTTRAMB.qa_import_log('invalid EAM Item. Error count :' ||sql%rowcount);
2688: END IF;
2689: END IF;
2690: END LOOP;
2691:
2871: SYSDATE, X_USER_ID, SYSDATE, X_USER_ID, X_LAST_UPDATE_LOGIN,
2872: X_REQUEST_ID, X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, SYSDATE);
2873:
2874: If (sql%rowcount >0) THEN
2875: QLTTRAMB.qa_import_log('invalid reference. Error count :' ||sql%rowcount);
2876: END IF;
2877: END IF;
2878: END LOOP;
2879:
2954: X_GROUP_ID,
2955: l_col1, l_col2, l_col3, l_col4, l_col5;
2956:
2957: If (sql%rowcount >0) THEN
2958: QLTTRAMB.qa_import_log('invalid values ERROR_COL_NAME:'||ERROR_COL_NAME||' Error count :' ||sql%rowcount);
2959: END IF;
2960: END VALIDATE_VALUES;
2961:
2962: PROCEDURE VALIDATE_SUBINVENTORY(COL_NAME VARCHAR2,
3046: X_GROUP_ID,
3047: l_col1, l_col2, l_col3, l_col4, l_col5;
3048:
3049: If (sql%rowcount >0) THEN
3050: QLTTRAMB.qa_import_log('invalid subinv Error count :' ||sql%rowcount);
3051: END IF;
3052:
3053: -- Bug 3136107.
3054: -- SQL Bind project. Code modified to use bind variables instead of literals
3174: X_GROUP_ID,
3175: l_col1, l_col2, l_col3, l_col4, l_col5;
3176:
3177: If (sql%rowcount >0) THEN
3178: QLTTRAMB.qa_import_log('invalid to SUBINV Error count :' ||sql%rowcount);
3179: END IF;
3180:
3181: -- Bug 3136107.
3182: -- SQL Bind project. Code modified to use bind variables instead of literals
3332: null_char,
3333: null_date;
3334:
3335: If (sql%rowcount >0) THEN
3336: QLTTRAMB.qa_import_log('invalid to validate values with SQL ERROR_COL_NAME :'|| ERROR_COL_NAME||' Error count :' ||sql%rowcount);
3337: END IF;
3338:
3339: EXCEPTION WHEN OTHERS THEN
3340: g_sqlerrm := sqlerrm;
3485: X_REQUEST_ID NUMBER, X_PROGRAM_APPLICATION_ID NUMBER,
3486: X_PROGRAM_ID NUMBER, X_LAST_UPDATE_LOGIN NUMBER,
3487: X_COLUMN_NAME VARCHAR2 DEFAULT NULL) IS
3488: BEGIN
3489: QLTTRAMB.qa_import_log('Procedure SET_ERROR_STATUS');
3490: QLTTRAMB.qa_import_log('Setting error status for error caused on column X_COLUMN_NAME='||X_COLUMN_NAME);
3491:
3492: IF (X_COLUMN_NAME IS NULL) THEN
3493: UPDATE QA_RESULTS_INTERFACE qri
3486: X_PROGRAM_ID NUMBER, X_LAST_UPDATE_LOGIN NUMBER,
3487: X_COLUMN_NAME VARCHAR2 DEFAULT NULL) IS
3488: BEGIN
3489: QLTTRAMB.qa_import_log('Procedure SET_ERROR_STATUS');
3490: QLTTRAMB.qa_import_log('Setting error status for error caused on column X_COLUMN_NAME='||X_COLUMN_NAME);
3491:
3492: IF (X_COLUMN_NAME IS NULL) THEN
3493: UPDATE QA_RESULTS_INTERFACE qri
3494: SET PROCESS_STATUS = 3,
3503: FROM qa_interface_errors qie
3504: WHERE qie.transaction_interface_id = qri.transaction_interface_id);
3505:
3506: IF (sql%rowcount >0) THEN
3507: QLTTRAMB.qa_import_log('In SET_ERROR_STATUS X_COLUMN_NAME is null. Error count :'|| sql%rowcount);
3508: END IF;
3509:
3510: -- Bug 1558445, slow performance.
3511: -- AND TRANSACTION_INTERFACE_ID IN
3528: QRI.TRANSACTION_INTERFACE_ID
3529: AND QIE.ERROR_COLUMN = X_COLUMN_NAME);
3530:
3531: IF (sql%rowcount >0) THEN
3532: QLTTRAMB.qa_import_log('In SET_ERROR_STATUS for column :'|| X_COLUMN_NAME || ' Error count :'|| sql%rowcount);
3533: END IF;
3534: END IF;
3535:
3536: QLTTRAMB.qa_import_log('End of procedure SET_ERROR_STATUS');
3532: QLTTRAMB.qa_import_log('In SET_ERROR_STATUS for column :'|| X_COLUMN_NAME || ' Error count :'|| sql%rowcount);
3533: END IF;
3534: END IF;
3535:
3536: QLTTRAMB.qa_import_log('End of procedure SET_ERROR_STATUS');
3537: END SET_ERROR_STATUS;
3538:
3539: /* validate_reasonable_limits
3540: *
3703: l_col1, l_col2, l_col3, l_col4, l_col5,
3704: X_CHAR_ID;
3705:
3706: If (sql%rowcount >0) THEN
3707: QLTTRAMB.qa_import_log('invalid validate reasonable limits ERROR_COL_NAME :'|| ERROR_COL_NAME||' Error count :' ||sql%rowcount);
3708: END IF;
3709: -- QLTTRAFB.EXEC_SQL(SQL_STATEMENT);
3710: END VALIDATE_REASONABLE_LIMITS;
3711:
3739:
3740: RO_MUST_BE_NULL BOOLEAN;
3741:
3742: BEGIN
3743: QLTTRAMB.qa_import_log('----------------------------------');
3744: QLTTRAMB.qa_import_log('Start Procedure VALIDATE_STEPS');
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3740: RO_MUST_BE_NULL BOOLEAN;
3741:
3742: BEGIN
3743: QLTTRAMB.qa_import_log('----------------------------------');
3744: QLTTRAMB.qa_import_log('Start Procedure VALIDATE_STEPS');
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3741:
3742: BEGIN
3743: QLTTRAMB.qa_import_log('----------------------------------');
3744: QLTTRAMB.qa_import_log('Start Procedure VALIDATE_STEPS');
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3742: BEGIN
3743: QLTTRAMB.qa_import_log('----------------------------------');
3744: QLTTRAMB.qa_import_log('Start Procedure VALIDATE_STEPS');
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3743: QLTTRAMB.qa_import_log('----------------------------------');
3744: QLTTRAMB.qa_import_log('Start Procedure VALIDATE_STEPS');
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3744: QLTTRAMB.qa_import_log('Start Procedure VALIDATE_STEPS');
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3745: QLTTRAMB.qa_import_log('X_ENABLED_FLAG = '||X_ENABLED_FLAG);
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3746: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3747: QLTTRAMB.qa_import_log('X_MANDATORY_FLAG = '|| X_MANDATORY_FLAG );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3748: QLTTRAMB.qa_import_log('COL_NAME = '|| COL_NAME );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3749: QLTTRAMB.qa_import_log('FROM_CLAUSE = '|| FROM_CLAUSE );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3757: QLTTRAMB.qa_import_log('GRANDPARENT_COL = '|| GRANDPARENT_COL );
3750: QLTTRAMB.qa_import_log('WHERE_CLAUSE = '|| WHERE_CLAUSE );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3757: QLTTRAMB.qa_import_log('GRANDPARENT_COL = '|| GRANDPARENT_COL );
3758: QLTTRAMB.qa_import_log('GREAT_GRANDPARENT_COL = '|| GREAT_GRANDPARENT_COL );
3751: QLTTRAMB.qa_import_log('X_CHAR_ID = '|| X_CHAR_ID );
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3757: QLTTRAMB.qa_import_log('GRANDPARENT_COL = '|| GRANDPARENT_COL );
3758: QLTTRAMB.qa_import_log('GREAT_GRANDPARENT_COL = '|| GREAT_GRANDPARENT_COL );
3759:
3752: QLTTRAMB.qa_import_log('X_CHAR_NAME = '|| X_CHAR_NAME );
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3757: QLTTRAMB.qa_import_log('GRANDPARENT_COL = '|| GRANDPARENT_COL );
3758: QLTTRAMB.qa_import_log('GREAT_GRANDPARENT_COL = '|| GREAT_GRANDPARENT_COL );
3759:
3760: -- construct error column name, which is just the column name, unless
3753: QLTTRAMB.qa_import_log('X_PLAN_ID = '|| X_PLAN_ID );
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3757: QLTTRAMB.qa_import_log('GRANDPARENT_COL = '|| GRANDPARENT_COL );
3758: QLTTRAMB.qa_import_log('GREAT_GRANDPARENT_COL = '|| GREAT_GRANDPARENT_COL );
3759:
3760: -- construct error column name, which is just the column name, unless
3761: -- it's a characterx column in which case it's char_name (characterx).
3754: QLTTRAMB.qa_import_log('X_SQL_VALIDATION_STRING = '|| X_SQL_VALIDATION_STRING );
3755: QLTTRAMB.qa_import_log('X_DATATYPE = '|| X_DATATYPE );
3756: QLTTRAMB.qa_import_log('PARENT_COL = '|| PARENT_COL );
3757: QLTTRAMB.qa_import_log('GRANDPARENT_COL = '|| GRANDPARENT_COL );
3758: QLTTRAMB.qa_import_log('GREAT_GRANDPARENT_COL = '|| GREAT_GRANDPARENT_COL );
3759:
3760: -- construct error column name, which is just the column name, unless
3761: -- it's a characterx column in which case it's char_name (characterx).
3762:
3790: X_GROUP_ID, X_USER_ID,
3791: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3792: X_PROGRAM_ID);
3793: exception when others then
3794: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_DISABLED failed');
3795: QLTTRAMB.qa_import_log('The call is made to validate that the values in element and dependent elements are null if disabled');
3796: end;
3797: ELSE
3798:
3791: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3792: X_PROGRAM_ID);
3793: exception when others then
3794: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_DISABLED failed');
3795: QLTTRAMB.qa_import_log('The call is made to validate that the values in element and dependent elements are null if disabled');
3796: end;
3797: ELSE
3798:
3799:
3805: ERROR_NEED_PARENT, X_GROUP_ID,
3806: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
3807: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST);
3808: exception when others then
3809: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_PARENT_ENTERED failed');
3810: QLTTRAMB.qa_import_log('The call is made to validate if the parent is entered');
3811: end;
3812: END IF;
3813:
3806: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
3807: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST);
3808: exception when others then
3809: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_PARENT_ENTERED failed');
3810: QLTTRAMB.qa_import_log('The call is made to validate if the parent is entered');
3811: end;
3812: END IF;
3813:
3814:
3847: X_GROUP_ID, X_USER_ID,
3848: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3849: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST);
3850: exception when others then
3851: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_READ_ONLY failed');
3852: QLTTRAMB.qa_import_log('The call is made to validate if element is read only');
3853: end;
3854: END IF;
3855:
3848: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3849: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST);
3850: exception when others then
3851: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_READ_ONLY failed');
3852: QLTTRAMB.qa_import_log('The call is made to validate if element is read only');
3853: end;
3854: END IF;
3855:
3856: QLTTRAMB.qa_import_log('Validating Seeded elements by calling procedures');
3852: QLTTRAMB.qa_import_log('The call is made to validate if element is read only');
3853: end;
3854: END IF;
3855:
3856: QLTTRAMB.qa_import_log('Validating Seeded elements by calling procedures');
3857: -- do special mandatory validation for revision
3858: IF (COL_NAME IN ('REVISION', 'COMP_REVISION')) THEN
3859: BEGIN
3860: VALIDATE_REVISION(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
3860: VALIDATE_REVISION(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
3861: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3862: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST, X_MANDATORY_FLAG);
3863: exception when others then
3864: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_REVISION failed');
3865: QLTTRAMB.qa_import_log('The call is made to validate the element Revision');
3866: end;
3867:
3868: -- do special mandatory validation for locator
3861: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3862: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST, X_MANDATORY_FLAG);
3863: exception when others then
3864: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_REVISION failed');
3865: QLTTRAMB.qa_import_log('The call is made to validate the element Revision');
3866: end;
3867:
3868: -- do special mandatory validation for locator
3869: ELSIF (COL_NAME IN ('LOCATOR', 'COMP_LOCATOR')) THEN
3871: VALIDATE_LOCATOR(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
3872: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
3873: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
3874: exception when others then
3875: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_LOCATOR failed');
3876: QLTTRAMB.qa_import_log('The call is made to validate the element locator');
3877: end;
3878: -- Start of inclusions for NCM Hardcode Elements.
3879: -- suramasw Thu Oct 31 10:48:59 PST 2002.
3872: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
3873: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
3874: exception when others then
3875: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_LOCATOR failed');
3876: QLTTRAMB.qa_import_log('The call is made to validate the element locator');
3877: end;
3878: -- Start of inclusions for NCM Hardcode Elements.
3879: -- suramasw Thu Oct 31 10:48:59 PST 2002.
3880: -- Bug 2449067.
3884: VALIDATE_TO_LOCATOR(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
3885: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
3886: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
3887: exception when others then
3888: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_TO_LOCATOR failed');
3889: QLTTRAMB.qa_import_log('The call is made to validate the element To_locator');
3890: end;
3891:
3892: -- End of inclusions for NCM Hardcode Elements.
3885: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
3886: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
3887: exception when others then
3888: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_TO_LOCATOR failed');
3889: QLTTRAMB.qa_import_log('The call is made to validate the element To_locator');
3890: end;
3891:
3892: -- End of inclusions for NCM Hardcode Elements.
3893:
3906: VALIDATE_LOT_NUMBER(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
3907: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3908: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST, X_MANDATORY_FLAG);
3909: exception when others then
3910: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_LOT_NUMBER failed');
3911: QLTTRAMB.qa_import_log('The call is made to validate the element LOT_NUMBER');
3912: end;
3913:
3914: ELSIF (COL_NAME IN ('SERIAL_NUMBER','COMP_SERIAL_NUMBER')) THEN
3907: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3908: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST, X_MANDATORY_FLAG);
3909: exception when others then
3910: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_LOT_NUMBER failed');
3911: QLTTRAMB.qa_import_log('The call is made to validate the element LOT_NUMBER');
3912: end;
3913:
3914: ELSIF (COL_NAME IN ('SERIAL_NUMBER','COMP_SERIAL_NUMBER')) THEN
3915: BEGIN
3916: VALIDATE_SERIAL_NUMBER(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
3917: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3918: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST, X_MANDATORY_FLAG);
3919: exception when others then
3920: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_SERIAL_NUMBER failed');
3921: QLTTRAMB.qa_import_log('The call is made to validate the element SERIAL_NUMBER');
3922: end;
3923:
3924: -- if not revision and it's mandatory, validate no null values
3917: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3918: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST, X_MANDATORY_FLAG);
3919: exception when others then
3920: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_SERIAL_NUMBER failed');
3921: QLTTRAMB.qa_import_log('The call is made to validate the element SERIAL_NUMBER');
3922: end;
3923:
3924: -- if not revision and it's mandatory, validate no null values
3925:
3929: X_GROUP_ID, X_USER_ID,
3930: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3931: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST);
3932: exception when others then
3933: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_MANDATORY failed');
3934: QLTTRAMB.qa_import_log('The call is made to validate the mandatory element');
3935: end;
3936: END IF; -- mandatory test
3937:
3930: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3931: X_PROGRAM_ID, PARENT_COL, ERROR_COL_LIST);
3932: exception when others then
3933: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_MANDATORY failed');
3934: QLTTRAMB.qa_import_log('The call is made to validate the mandatory element');
3935: end;
3936: END IF; -- mandatory test
3937:
3938: -- if it's a numeric or date characterx column, validate datatypes
3942: VALIDATE_DATATYPES(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
3943: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3944: X_PROGRAM_ID, X_DATATYPE);
3945: exception when others then
3946: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_DATATYPES failed');
3947: QLTTRAMB.qa_import_log('The call is made to validate the datatypes of element');
3948: end;
3949: END IF;
3950:
3943: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3944: X_PROGRAM_ID, X_DATATYPE);
3945: exception when others then
3946: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_DATATYPES failed');
3947: QLTTRAMB.qa_import_log('The call is made to validate the datatypes of element');
3948: end;
3949: END IF;
3950:
3951:
3959: FORMAT_DATATYPES(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
3960: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3961: X_PROGRAM_ID, X_DATATYPE, X_DECIMAL_PRECISION, ERROR_COL_LIST);
3962: exception when others then
3963: QLTTRAMB.qa_import_log('Error - Call to FORMAT_DATATYPES failed');
3964: QLTTRAMB.qa_import_log('The call is made to format the datatypes of element');
3965: end;
3966: END IF;
3967:
3960: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
3961: X_PROGRAM_ID, X_DATATYPE, X_DECIMAL_PRECISION, ERROR_COL_LIST);
3962: exception when others then
3963: QLTTRAMB.qa_import_log('Error - Call to FORMAT_DATATYPES failed');
3964: QLTTRAMB.qa_import_log('The call is made to format the datatypes of element');
3965: end;
3966: END IF;
3967:
3968:
4022: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4023: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4024: X_CHAR_ID, X_PLAN_ID, ERROR_COL_LIST);
4025: exception when others then
4026: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_LOOKUPS failed');
4027: QLTTRAMB.qa_import_log('The call is made to validate the lookup values');
4028: end;
4029: ELSIF (X_SQL_VALIDATION_STRING IS NOT NULL) THEN
4030: BEGIN
4023: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4024: X_CHAR_ID, X_PLAN_ID, ERROR_COL_LIST);
4025: exception when others then
4026: QLTTRAMB.qa_import_log('Error - Call to QLTTRAFB.VALIDATE_LOOKUPS failed');
4027: QLTTRAMB.qa_import_log('The call is made to validate the lookup values');
4028: end;
4029: ELSIF (X_SQL_VALIDATION_STRING IS NOT NULL) THEN
4030: BEGIN
4031: VALIDATE_VALUES_WITH_SQL(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4032: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4033: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4034: X_SQL_VALIDATION_STRING, ERROR_COL_LIST);
4035: exception when others then
4036: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_VALUES_WITH_SQL failed');
4037: QLTTRAMB.qa_import_log('The call is made to validate the lookup values');
4038: end;
4039: END IF;
4040: END IF;
4033: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4034: X_SQL_VALIDATION_STRING, ERROR_COL_LIST);
4035: exception when others then
4036: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_VALUES_WITH_SQL failed');
4037: QLTTRAMB.qa_import_log('The call is made to validate the lookup values');
4038: end;
4039: END IF;
4040: END IF;
4041:
4046: VALIDATE_ITEM(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4047: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4048: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4049: exception when others then
4050: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_ITEM failed');
4051: QLTTRAMB.qa_import_log('The call is made to validate the item element');
4052: end;
4053: ELSIF (COL_NAME IN ('SUBINVENTORY', 'COMP_SUBINVENTORY')) THEN
4054: BEGIN
4047: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4048: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4049: exception when others then
4050: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_ITEM failed');
4051: QLTTRAMB.qa_import_log('The call is made to validate the item element');
4052: end;
4053: ELSIF (COL_NAME IN ('SUBINVENTORY', 'COMP_SUBINVENTORY')) THEN
4054: BEGIN
4055: VALIDATE_SUBINVENTORY(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4055: VALIDATE_SUBINVENTORY(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4056: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4057: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4058: exception when others then
4059: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_SUBINVENTORY failed');
4060: QLTTRAMB.qa_import_log('The call is made to validate the subinv element');
4061: end;
4062: -- Start of inclusions for NCM Hardcode Elements.
4063: -- suramasw Thu Oct 31 10:48:59 PST 2002.
4056: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4057: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4058: exception when others then
4059: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_SUBINVENTORY failed');
4060: QLTTRAMB.qa_import_log('The call is made to validate the subinv element');
4061: end;
4062: -- Start of inclusions for NCM Hardcode Elements.
4063: -- suramasw Thu Oct 31 10:48:59 PST 2002.
4064: -- Bug 2449067.
4068: VALIDATE_TO_SUBINVENTORY(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4069: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4070: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4071: exception when others then
4072: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_TO_SUBINVENTORY failed');
4073: QLTTRAMB.qa_import_log('The call is made to validate the to_subinv element');
4074: end;
4075: -- End of inclusions for NCM Hardcode Elements.
4076:
4069: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4070: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4071: exception when others then
4072: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_TO_SUBINVENTORY failed');
4073: QLTTRAMB.qa_import_log('The call is made to validate the to_subinv element');
4074: end;
4075: -- End of inclusions for NCM Hardcode Elements.
4076:
4077: END IF;
4094: VALIDATE_EAM_ITEMS(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4095: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4096: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4097: exception when others then
4098: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_EAM_ITEMS failed');
4099: QLTTRAMB.qa_import_log('The call is made to validate the eam elements');
4100: end;
4101: END IF;
4102: -- End of code additions for bug #2368381
4095: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4096: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4097: exception when others then
4098: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_EAM_ITEMS failed');
4099: QLTTRAMB.qa_import_log('The call is made to validate the eam elements');
4100: end;
4101: END IF;
4102: -- End of code additions for bug #2368381
4103:
4110: VALIDATE_REFERENCE(COL_NAME, ERROR_COL_NAME, X_GROUP_ID,
4111: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4112: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4113: exception when others then
4114: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_REFERENCE failed');
4115: QLTTRAMB.qa_import_log('The call is made to validate reference elements');
4116: end;
4117: END IF;
4118:
4111: X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4112: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4113: exception when others then
4114: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_REFERENCE failed');
4115: QLTTRAMB.qa_import_log('The call is made to validate reference elements');
4116: end;
4117: END IF;
4118:
4119: -- End of inclusions for NCM Hardcode Elements.
4128: VALIDATE_VALUES(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
4129: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
4130: X_PROGRAM_ID, FROM_CLAUSE, WHERE_CLAUSE, ERROR_COL_LIST);
4131: exception when others then
4132: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_VALUES failed');
4133: QLTTRAMB.qa_import_log('The call is made to validate values defined on UD elements');
4134: end;
4135: END IF;
4136:
4129: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
4130: X_PROGRAM_ID, FROM_CLAUSE, WHERE_CLAUSE, ERROR_COL_LIST);
4131: exception when others then
4132: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_VALUES failed');
4133: QLTTRAMB.qa_import_log('The call is made to validate values defined on UD elements');
4134: end;
4135: END IF;
4136:
4137: -- derive ids (if there are ids to be derived)
4141: DERIVE_IDS(COL_NAME, ERROR_COL_NAME, X_GROUP_ID, X_USER_ID,
4142: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
4143: X_PROGRAM_ID, ID_ASSIGN, ERROR_COL_LIST);
4144: exception when others then
4145: QLTTRAMB.qa_import_log('Error - Call to DERIVE_IDS failed');
4146: QLTTRAMB.qa_import_log('The call is made to get the IDs on Seeded element Values');
4147: end;
4148: END IF;
4149:
4142: X_LAST_UPDATE_LOGIN, X_REQUEST_ID, X_PROGRAM_APPLICATION_ID,
4143: X_PROGRAM_ID, ID_ASSIGN, ERROR_COL_LIST);
4144: exception when others then
4145: QLTTRAMB.qa_import_log('Error - Call to DERIVE_IDS failed');
4146: QLTTRAMB.qa_import_log('The call is made to get the IDs on Seeded element Values');
4147: end;
4148: END IF;
4149:
4150: -- validate reasonable limits
4153: X_DATATYPE, X_CHAR_ID, X_GROUP_ID, X_USER_ID,
4154: X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4155: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4156: exception when others then
4157: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_REASONABLE_LIMITS failed');
4158: QLTTRAMB.qa_import_log('The call is made to get the spec reasonable limits');
4159: end;
4160:
4161: -- validate actions
4154: X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4155: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4156: exception when others then
4157: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_REASONABLE_LIMITS failed');
4158: QLTTRAMB.qa_import_log('The call is made to get the spec reasonable limits');
4159: end;
4160:
4161: -- validate actions
4162: BEGIN
4165: X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4166: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4167: X_PLAN_ID, ERROR_COL_LIST);
4168: exception when others then
4169: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_ACTIONS failed');
4170: QLTTRAMB.qa_import_log('The call is made to validate actions on element');
4171: end;
4172:
4173: -- for the special case where both item and production line are on
4166: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4167: X_PLAN_ID, ERROR_COL_LIST);
4168: exception when others then
4169: QLTTRAMB.qa_import_log('Error - Call to VALIDATE_ACTIONS failed');
4170: QLTTRAMB.qa_import_log('The call is made to validate actions on element');
4171: end;
4172:
4173: -- for the special case where both item and production line are on
4174: -- the plan, we need to derive wip entity id
4177: BEGIN
4178: DERIVE_JOB(X_GROUP_ID, X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4179: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4180: exception when others then
4181: QLTTRAMB.qa_import_log('Error - Call to DERIVE_JOB failed');
4182: QLTTRAMB.qa_import_log('The call is made to derive job_id from elements item and prod_line');
4183: end;
4184: END IF;
4185:
4178: DERIVE_JOB(X_GROUP_ID, X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
4179: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, ERROR_COL_LIST);
4180: exception when others then
4181: QLTTRAMB.qa_import_log('Error - Call to DERIVE_JOB failed');
4182: QLTTRAMB.qa_import_log('The call is made to derive job_id from elements item and prod_line');
4183: end;
4184: END IF;
4185:
4186: END IF; -- disabled test
4367: l_viewname VARCHAR2(100);
4368: l_importviewname VARCHAR2(100);
4369:
4370: BEGIN
4371: QLTTRAMB.qa_import_log('--------------------------------');
4372: QLTTRAMB.qa_import_log('Start of Procedure VALIDATE_UPDATE_TYPE_RECORDS');
4373:
4374: SELECT MATCHING_ELEMENTS, TRANSACTION_INTERFACE_ID
4375: INTO X_MATCHING_ELEMENTS, X_TRANSACTION_INTERFACE_ID
4368: l_importviewname VARCHAR2(100);
4369:
4370: BEGIN
4371: QLTTRAMB.qa_import_log('--------------------------------');
4372: QLTTRAMB.qa_import_log('Start of Procedure VALIDATE_UPDATE_TYPE_RECORDS');
4373:
4374: SELECT MATCHING_ELEMENTS, TRANSACTION_INTERFACE_ID
4375: INTO X_MATCHING_ELEMENTS, X_TRANSACTION_INTERFACE_ID
4376: FROM QA_RESULTS_INTERFACE
4456: END IF;
4457: END LOOP;
4458: IF MATCH_ERROR = TRUE
4459: THEN
4460: QLTTRAMB.qa_import_log('Error - The records to be updated doesn''t have valid matching_elements');
4461: RAISE MATCHING_ERROR;
4462: END IF;
4463:
4464: --
4492: FROM QA_PLANS
4493: WHERE PLAN_ID = X_PLAN_ID;
4494:
4495: exception when no_data_found then
4496: QLTTRAMB.qa_import_log('Error - The plan name or view name or import view name is not found for plan_id ='||X_PLAN_ID);
4497: end;
4498:
4499: -- Now select the QA_RESULTS rowids that needs to be updated.
4500:
4668: ELSIF I > 1
4669: THEN RAISE MORE_THAN_ONE_ROWID_ERROR;
4670: END IF;
4671:
4672: QLTTRAMB.qa_import_log('Completed procedure VALIDATE_UPDATE_TYPE_RECORDS');
4673: QLTTRAMB.qa_import_log('-------------------------------------------------');
4674:
4675: RETURN STMT_OF_ROWIDS;
4676:
4669: THEN RAISE MORE_THAN_ONE_ROWID_ERROR;
4670: END IF;
4671:
4672: QLTTRAMB.qa_import_log('Completed procedure VALIDATE_UPDATE_TYPE_RECORDS');
4673: QLTTRAMB.qa_import_log('-------------------------------------------------');
4674:
4675: RETURN STMT_OF_ROWIDS;
4676:
4677: EXCEPTION
4695: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4696: X_LAST_UPDATE_LOGIN, 'GROUP_ID');
4697:
4698: If (sql%rowcount >0) THEN
4699: QLTTRAMB.qa_import_log('Exception NO_DATA_FOUND or TOO_MANY_ROWS Error count :' ||sql%rowcount);
4700: END IF;
4701:
4702: RETURN '';
4703:
4720: SET_ERROR_STATUS(X_GROUP_ID, X_USER_ID, X_REQUEST_ID,
4721: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4722: X_LAST_UPDATE_LOGIN, 'MATCHING_ELEMENTS');
4723: If (sql%rowcount >0) THEN
4724: QLTTRAMB.qa_import_log('Exception MATCHING_ERROR Error count :' ||sql%rowcount);
4725: END IF;
4726:
4727: RETURN '';
4728:
4746: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4747: X_LAST_UPDATE_LOGIN, 'MATCHING_ELEMENTS');
4748:
4749: If (sql%rowcount >0) THEN
4750: QLTTRAMB.qa_import_log('Exception NO_ROWIDS_ERROR Error count :' ||sql%rowcount);
4751: END IF;
4752:
4753: RETURN '';
4754:
4772: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID,
4773: X_LAST_UPDATE_LOGIN, 'MATCHING_ELEMENTS');
4774:
4775: If (sql%rowcount >0) THEN
4776: QLTTRAMB.qa_import_log('Exception MORE_THAN_ONE_ROWID_ERROR Error count :' ||sql%rowcount);
4777: END IF;
4778:
4779: RETURN '';
4780:
4812: -- srhariha. Fri Apr 15 04:19:55 PDT 2005.
4813: L_ROWID ROWID;
4814:
4815: BEGIN
4816: QLTTRAMB.qa_import_log('----------------------------------');
4817: QLTTRAMB.qa_import_log('Start of procedure RETRIEVE_UPDATE_RECORDS');
4818:
4819: SELECT NAME INTO X_PLAN_NAME
4820: FROM QA_PLANS
4813: L_ROWID ROWID;
4814:
4815: BEGIN
4816: QLTTRAMB.qa_import_log('----------------------------------');
4817: QLTTRAMB.qa_import_log('Start of procedure RETRIEVE_UPDATE_RECORDS');
4818:
4819: SELECT NAME INTO X_PLAN_NAME
4820: FROM QA_PLANS
4821: WHERE PLAN_ID = X_PLAN_ID;
4857: UPDATE_STMT := UPDATE_STMT || ',';
4858: END IF;
4859: END LOOP;
4860:
4861: QLTTRAMB.qa_import_log('Building the update command for update');
4862:
4863: UPDATE_STMT := UPDATE_STMT || ') = (SELECT';
4864:
4865: -- date fix by Peter Chow (pchow)
4945: UPDATE_STMT := UPDATE_STMT || ' FROM "'|| l_viewname ||
4946: '" V ' || 'WHERE V.ROW_ID = :BIND_ROWID ' ||
4947: ') WHERE QRI.GROUP_ID = :GROUP_ID ';
4948:
4949: QLTTRAMB.qa_import_log('Built the update statement for update');
4950: QLTTRAMB.qa_import_log('UPDATE_STMT='|| substr(UPDATE_STMT,1,1000));
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4946: '" V ' || 'WHERE V.ROW_ID = :BIND_ROWID ' ||
4947: ') WHERE QRI.GROUP_ID = :GROUP_ID ';
4948:
4949: QLTTRAMB.qa_import_log('Built the update statement for update');
4950: QLTTRAMB.qa_import_log('UPDATE_STMT='|| substr(UPDATE_STMT,1,1000));
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4947: ') WHERE QRI.GROUP_ID = :GROUP_ID ';
4948:
4949: QLTTRAMB.qa_import_log('Built the update statement for update');
4950: QLTTRAMB.qa_import_log('UPDATE_STMT='|| substr(UPDATE_STMT,1,1000));
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4955: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,5005,1000), 'SQL completed'));
4948:
4949: QLTTRAMB.qa_import_log('Built the update statement for update');
4950: QLTTRAMB.qa_import_log('UPDATE_STMT='|| substr(UPDATE_STMT,1,1000));
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4955: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,5005,1000), 'SQL completed'));
4956: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,6006,1000), 'SQL completed'));
4949: QLTTRAMB.qa_import_log('Built the update statement for update');
4950: QLTTRAMB.qa_import_log('UPDATE_STMT='|| substr(UPDATE_STMT,1,1000));
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4955: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,5005,1000), 'SQL completed'));
4956: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,6006,1000), 'SQL completed'));
4957:
4950: QLTTRAMB.qa_import_log('UPDATE_STMT='|| substr(UPDATE_STMT,1,1000));
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4955: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,5005,1000), 'SQL completed'));
4956: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,6006,1000), 'SQL completed'));
4957:
4958: L_ROWID := substr(stmt_of_rowids,3,length(stmt_of_rowids)-4);
4951: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,1001,1000), 'SQL completed'));
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4955: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,5005,1000), 'SQL completed'));
4956: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,6006,1000), 'SQL completed'));
4957:
4958: L_ROWID := substr(stmt_of_rowids,3,length(stmt_of_rowids)-4);
4959:
4952: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,2002,1000), 'SQL completed'));
4953: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,3003,1000), 'SQL completed'));
4954: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,4004,1000), 'SQL completed'));
4955: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,5005,1000), 'SQL completed'));
4956: QLTTRAMB.qa_import_log(nvl(substr(UPDATE_STMT,6006,1000), 'SQL completed'));
4957:
4958: L_ROWID := substr(stmt_of_rowids,3,length(stmt_of_rowids)-4);
4959:
4960: EXECUTE IMMEDIATE UPDATE_STMT USING L_ROWID,X_GROUP_ID;
4967: */
4968:
4969: -- QLTTRAFB.EXEC_SQL(UPDATE_STMT);
4970:
4971: QLTTRAMB.qa_import_log('Procedure RETRIEVE_UPDATE_RECORDS completed');
4972: QLTTRAMB.qa_import_log('--------------------------------------------');
4973:
4974: END RETRIEVE_UPDATE_RECORDS;
4975:
4968:
4969: -- QLTTRAFB.EXEC_SQL(UPDATE_STMT);
4970:
4971: QLTTRAMB.qa_import_log('Procedure RETRIEVE_UPDATE_RECORDS completed');
4972: QLTTRAMB.qa_import_log('--------------------------------------------');
4973:
4974: END RETRIEVE_UPDATE_RECORDS;
4975:
4976:
5045:
5046:
5047:
5048: BEGIN
5049: QLTTRAMB.qa_import_log('==================================');
5050: QLTTRAMB.qa_import_log('call to validate function');
5051:
5052: -- get info for who columns
5053:
5046:
5047:
5048: BEGIN
5049: QLTTRAMB.qa_import_log('==================================');
5050: QLTTRAMB.qa_import_log('call to validate function');
5051:
5052: -- get info for who columns
5053:
5054: X_USER_ID := who_user_id;
5090: AND QA_CREATED_BY_NAME IS NULL;
5091:
5092: --
5093: -- From now on no validation is need for name because user id is
5094: -- passed directly from Form as a param to qlttramb.
5095: -- bso Fri Jul 23 11:16:04 PDT 1999
5096: --
5097:
5098: -- uncommented the following piece of code for bug 3663648.suramasw.
5128: FROM FND_USER_VIEW FU2
5129: WHERE QRI.QA_CREATED_BY_NAME = FU2.USER_NAME);
5130:
5131: If (sql%rowcount >0) THEN
5132: QLTTRAMB.qa_import_log('Error in created by Error count :' ||sql%rowcount);
5133: END IF;
5134:
5135: -- in the above where, we should really be checking start_
5136: -- and end_date to make sure it is a current user. the
5215: FROM FND_USER_VIEW FU2
5216: WHERE QRI.QA_LAST_UPDATED_BY_NAME = FU2.USER_NAME);
5217:
5218: If (sql%rowcount >0) THEN
5219: QLTTRAMB.qa_import_log('Error in last updated by Error count :' ||sql%rowcount);
5220: END IF;
5221:
5222: -- in the above where, we should really be checking start_
5223: -- and end_date to make sure it is a current user. the
5281: WHERE QRI.ORGANIZATION_CODE = OOD.ORGANIZATION_CODE);
5282: -- AND NVL(OOD.DISABLE_DATE, SYSDATE) >= SYSDATE);
5283:
5284: If (sql%rowcount >0) THEN
5285: QLTTRAMB.qa_import_log('Error in group validation for organization_code Error count :' ||sql%rowcount);
5286: END IF;
5287:
5288: -- group derivation for organization_id
5289: -- Bug 4958776. SQL Repository Fix SQL ID: 15009164
5325: open inv_org_id(X_GROUP_ID);
5326: fetch inv_org_id into x_org_id;
5327: close inv_org_id;
5328:
5329: QLTTRAMB.qa_import_log('Completed with updating records with status running, inv_org_id='||x_org_id);
5330:
5331: --
5332: -- Bug 5604471
5333: -- Replaced the call to the fnd_profile.save_user API
5407: qri.operating_unit IS NOT NULL AND
5408: qri.operating_unit_id IS NULL;
5409:
5410: If (sql%rowcount >0) THEN
5411: QLTTRAMB.qa_import_log('Error in group validation of operating unit Error count :' ||sql%rowcount);
5412: END IF;
5413:
5414: -- stage 2 -----------------------------------------------------------------
5415: --
5443: WHERE QRI.PLAN_NAME = QPVV.NAME
5444: AND QRI.ORGANIZATION_ID = QPVV.ORGANIZATION_ID);
5445:
5446: If (sql%rowcount >0) THEN
5447: QLTTRAMB.qa_import_log('Error in group validation of plan name Error count :' ||sql%rowcount);
5448: END IF;
5449:
5450: -- group derivation for plan_id
5451:
5506: nvl(trunc(qsvv.effective_from), trunc(sysdate)) AND
5507: nvl(trunc(qsvv.effective_to), trunc(sysdate))));
5508:
5509: If (sql%rowcount >0) THEN
5510: QLTTRAMB.qa_import_log('Error in group validation of spec name Error count :' ||sql%rowcount);
5511: END IF;
5512: -- group derivation for spec_id
5513:
5514: --
5567: QRI.TRANSACTION_INTERFACE_ID
5568: AND QIE.ERROR_COLUMN IN ('ORGANIZATION_CODE', 'PLAN_NAME',
5569: 'SPEC_NAME', NULL));
5570: exception when no_data_found then
5571: QLTTRAMB.qa_import_log('Error - There are no rows with correct org name+plan name+spec name');
5572: end ;
5573:
5574: -- when x_plan_id is null, it indicates that every row has failed
5575: -- validation. if this is the case, it's pointless to go through all
5682:
5683: -- Adding update capabilities. 1 = 'INSERT' and 2 = 'UPDATE';
5684: -- also everything else will be interpreted as 'INSERT'
5685: IF TYPE_OF_TXN = 2 THEN
5686: QLTTRAMB.qa_import_log('calling validate update_type records');
5687: COPY_STMT_OF_ROWIDS := VALIDATE_UPDATE_TYPE_RECORDS(X_GROUP_ID,
5688: X_PLAN_ID,
5689: CHAR_NAME_TABLE,
5690: DEVELOPER_NAME_TABLE,
5697: X_PROGRAM_APPLICATION_ID,
5698: X_PROGRAM_ID);
5699: STMT_OF_ROWIDS := COPY_STMT_OF_ROWIDS;
5700:
5701: QLTTRAMB.qa_import_log('Got stmt_of_rowids as string which has all rowids to be updated');
5702:
5703: -- Bug 3759926.Update transaction was failing if plan has read only or disabled elements.
5704: -- Retrieve update records was not considering this scenario.
5705: -- As part of fix, passing read only and enabled flag table as arguments to the procedure.
5723:
5724: -- locate each element in the collection element reference tables
5725: -- and if it is on the plan, go through the validation steps
5726:
5727: QLTTRAMB.qa_import_log('calling validate_steps for each column now.');
5728:
5729: I := POSITION_IN_TABLE('PRODUCTION_LINE', DEVELOPER_NAME_TABLE, NUM_ELEMS);
5730: IF (I <> -1) THEN
5731: -- set production line to be a parent of item (used later on)
7163: END IF;
7164: END IF;
7165: END LOOP;
7166:
7167: QLTTRAMB.qa_import_log('Successfully done with validating all setups for elements');
7168: QLTTRAMB.qa_import_log('Going to validate the sequence elements');
7169:
7170: -- For Sequence Project. Call Derive_sequence for all the enabled
7171: -- Sequence Collection elements in the plan.
7164: END IF;
7165: END LOOP;
7166:
7167: QLTTRAMB.qa_import_log('Successfully done with validating all setups for elements');
7168: QLTTRAMB.qa_import_log('Going to validate the sequence elements');
7169:
7170: -- For Sequence Project. Call Derive_sequence for all the enabled
7171: -- Sequence Collection elements in the plan.
7172: -- kabalakr 15 JAN 2002.
7171: -- Sequence Collection elements in the plan.
7172: -- kabalakr 15 JAN 2002.
7173:
7174: FOR J IN 1..QA_SEQUENCE_API.MAX_SEQUENCE LOOP
7175: QLTTRAMB.qa_import_log('validating sequence element for SEQUENCE column = SEQUENCE'|| to_char(j));
7176:
7177: I := POSITION_IN_TABLE('SEQUENCE'||to_char(j),
7178: RESULT_COLUMN_NAME_TABLE, NUM_ELEMS);
7179: IF (I <> -1) THEN
7191: P_PROGRAM_ID => X_PROGRAM_ID,
7192: P_CHAR_NAME => CHAR_NAME_TABLE(I),
7193: P_TXN_TYPE => TYPE_OF_TXN);
7194: exception when others then
7195: QLTTRAMB.qa_import_log('Error - Failue in procedure VALIDATE_SEQUENCE');
7196: QLTTRAMB.qa_import_log('Call was made to validate the sequence elements');
7197: end;
7198:
7199: IF(ENABLED_FLAG_TABLE(I) = 1) THEN
7192: P_CHAR_NAME => CHAR_NAME_TABLE(I),
7193: P_TXN_TYPE => TYPE_OF_TXN);
7194: exception when others then
7195: QLTTRAMB.qa_import_log('Error - Failue in procedure VALIDATE_SEQUENCE');
7196: QLTTRAMB.qa_import_log('Call was made to validate the sequence elements');
7197: end;
7198:
7199: IF(ENABLED_FLAG_TABLE(I) = 1) THEN
7200: BEGIN
7201: DERIVE_SEQUENCE(X_GROUP_ID, X_USER_ID, X_LAST_UPDATE_LOGIN, X_REQUEST_ID,
7202: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, 'SEQUENCE'||to_char(J),
7203: CHAR_ID_TABLE(I), TYPE_OF_TXN);
7204: exception when others then
7205: QLTTRAMB.qa_import_log('Error - Failue in procedure DERIVE_SEQUENCE');
7206: QLTTRAMB.qa_import_log('Call was made to get the sequence number for enabled sequence elements');
7207: end;
7208: END IF;
7209: END IF;
7202: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, 'SEQUENCE'||to_char(J),
7203: CHAR_ID_TABLE(I), TYPE_OF_TXN);
7204: exception when others then
7205: QLTTRAMB.qa_import_log('Error - Failue in procedure DERIVE_SEQUENCE');
7206: QLTTRAMB.qa_import_log('Call was made to get the sequence number for enabled sequence elements');
7207: end;
7208: END IF;
7209: END IF;
7210: END LOOP;
7210: END LOOP;
7211:
7212: -- End of Sequence Project Changes.
7213:
7214: QLTTRAMB.qa_import_log('Calling validate_steps for remaining seeded elements now');
7215:
7216: -- stage 4 -----------------------------------------------------------------
7217: --
7218: -- validate ...
7687: CHAR_ID_TABLE(I), CHAR_NAME_TABLE(I), DATATYPE_TABLE(I),
7688: DECIMAL_PRECISION_TABLE(I), X_PLAN_ID, VALUES_EXIST_FLAG_TABLE(I), READ_ONLY_FLAG_TABLE(I),NULL);
7689: END IF;
7690:
7691: QLTTRAMB.qa_import_log('All validate_steps completed setting error_status if any');
7692:
7693: -- stage 7 -----------------------------------------------------------------
7694: --
7695: -- done with validation
7699: -- final step: set error status for all rows that had errors
7700: SET_ERROR_STATUS(X_GROUP_ID, X_USER_ID, X_REQUEST_ID,
7701: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, X_LAST_UPDATE_LOGIN);
7702:
7703: QLTTRAMB.qa_import_log('"No Error" found - Error status set successful, returning');
7704: QLTTRAMB.qa_import_log('Function VALIDATE Completed successfully');
7705: QLTTRAMB.qa_import_log('------------------------------------------');
7706:
7707: RETURN TRUE;
7700: SET_ERROR_STATUS(X_GROUP_ID, X_USER_ID, X_REQUEST_ID,
7701: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, X_LAST_UPDATE_LOGIN);
7702:
7703: QLTTRAMB.qa_import_log('"No Error" found - Error status set successful, returning');
7704: QLTTRAMB.qa_import_log('Function VALIDATE Completed successfully');
7705: QLTTRAMB.qa_import_log('------------------------------------------');
7706:
7707: RETURN TRUE;
7708: END VALIDATE;
7701: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID, X_LAST_UPDATE_LOGIN);
7702:
7703: QLTTRAMB.qa_import_log('"No Error" found - Error status set successful, returning');
7704: QLTTRAMB.qa_import_log('Function VALIDATE Completed successfully');
7705: QLTTRAMB.qa_import_log('------------------------------------------');
7706:
7707: RETURN TRUE;
7708: END VALIDATE;
7709:
8172: FROM QA_RESULTS_INTERFACE
8173: WHERE TRANSACTION_INTERFACE_ID = X_TRANSACTION_INTERFACE_ID;
8174:
8175: If (sql%rowcount >0) THEN
8176: QLTTRAMB.qa_import_log('Exception in update valid rows. Resource busy Error count :' ||sql%rowcount);
8177: END IF;
8178:
8179: UPDATE QA_RESULTS_INTERFACE
8180: SET PROCESS_STATUS = 3
8370: -- Gapless Sequence Proj. rponnusa Wed Jul 30 04:52:45 PDT 2003
8371: l_return_status VARCHAR2(1);
8372:
8373: BEGIN
8374: QLTTRAMB.qa_import_log('Inside TRANSFER_VALID_ROWS X_GROUP_ID :'||X_GROUP_ID);
8375:
8376: SELECT MAX(PLAN_ID)
8377: INTO X_PLAN_ID
8378: FROM QA_RESULTS_INTERFACE QRI
8381:
8382: -- if no rows were successfully validated, no need to continue
8383:
8384: IF (X_PLAN_ID IS NULL) THEN
8385: QLTTRAMB.qa_import_log('transfer_valid_rows max plan id is null hence returning');
8386: RETURN;
8387: END IF;
8388:
8389: -- Gapless Sequence Proj. rponnusa Wed Jul 30 04:52:45 PDT 2003
8535: -- Bug 3136107.
8536: -- SQL Bind project. Code modified to use bind variables instead of literals
8537: -- Same as the fix done for Bug 3079312.suramasw.
8538:
8539: QLTTRAMB.qa_import_log('Insert SQL :'||Substr(SQL_STATEMENT,1,3900));
8540:
8541: EXECUTE IMMEDIATE SQL_STATEMENT USING X_USER_ID,
8542: X_USER_ID,
8543: X_LAST_UPDATE_LOGIN,
8546: X_PROGRAM_ID,
8547: X_TXN_HEADER_ID,
8548: X_GROUP_ID;
8549:
8550: QLTTRAMB.qa_import_log('After executing insert');
8551:
8552: -- QLTTRAFB.EXEC_SQL(SQL_STATEMENT);
8553:
8554: -- Gapless Sequence Proj. rponnusa Wed Jul 30 04:52:45 PDT 2003
8554: -- Gapless Sequence Proj. rponnusa Wed Jul 30 04:52:45 PDT 2003
8555: -- call api to generate seq. value for all the records identified by txn_header_id
8556: -- we can safely call sequence api before inserting history/automatic records
8557: -- since Seq. values only going to be copied to history/automatic records
8558: QLTTRAMB.qa_import_log('Generating sequences');
8559:
8560: QA_SEQUENCE_API.Generate_Seq_for_DDE(X_TXN_HEADER_ID,X_PLAN_ID,l_return_status);
8561:
8562: QLTTRAMB.qa_import_log('After generating sequences');
8558: QLTTRAMB.qa_import_log('Generating sequences');
8559:
8560: QA_SEQUENCE_API.Generate_Seq_for_DDE(X_TXN_HEADER_ID,X_PLAN_ID,l_return_status);
8561:
8562: QLTTRAMB.qa_import_log('After generating sequences');
8563:
8564: -- Bug 2302539
8565: -- To process History/automatic records in Parent-child
8566: -- scanario the following call added.
8571: -- QA_PARENT_CHILD_PKG.insert_history_auto_rec(X_PLAN_ID, X_TXN_HEADER_ID, 1, 4) ;
8572: -- pdube Mon Jun 15 23:07:13 PDT 2009
8573: Exception
8574: when others then
8575: QLTTRAMB.qa_import_log('Exception in TRANSFER_VALID_ROWS :'||sqlerrm(sqlcode));
8576: raise;
8577: END TRANSFER_VALID_ROWS;
8578:
8579:
8627: X_PROGRAM_APPLICATION_ID := who_program_application_id;
8628: X_PROGRAM_ID := who_program_id;
8629: X_LAST_UPDATE_LOGIN := who_last_update_login;
8630:
8631: QLTTRAMB.qa_import_log('Staring the transaction worker with values');
8632: QLTTRAMB.qa_import_log('X_USER_ID = '||X_USER_ID);
8633: QLTTRAMB.qa_import_log('X_REQUEST_ID = '||X_REQUEST_ID);
8634:
8635: -- update process status to 2 (running) for rows in this group
8628: X_PROGRAM_ID := who_program_id;
8629: X_LAST_UPDATE_LOGIN := who_last_update_login;
8630:
8631: QLTTRAMB.qa_import_log('Staring the transaction worker with values');
8632: QLTTRAMB.qa_import_log('X_USER_ID = '||X_USER_ID);
8633: QLTTRAMB.qa_import_log('X_REQUEST_ID = '||X_REQUEST_ID);
8634:
8635: -- update process status to 2 (running) for rows in this group
8636:
8629: X_LAST_UPDATE_LOGIN := who_last_update_login;
8630:
8631: QLTTRAMB.qa_import_log('Staring the transaction worker with values');
8632: QLTTRAMB.qa_import_log('X_USER_ID = '||X_USER_ID);
8633: QLTTRAMB.qa_import_log('X_REQUEST_ID = '||X_REQUEST_ID);
8634:
8635: -- update process status to 2 (running) for rows in this group
8636:
8637: UPDATE QA_RESULTS_INTERFACE
8649: -- Bug 2548710 rponnusa Mon Nov 18 03:49:15 PST 2002
8650:
8651: G_ROW_COUNT := SQL%ROWCOUNT;
8652:
8653: QLTTRAMB.qa_import_log('Updated to running status for group_id = '||X_GROUP_ID);
8654:
8655: QLTTRAMB.qa_import_log('Rowcount per processor = '||G_ROW_COUNT);
8656:
8657: -- delete rows from the errors table that are associated with the
8651: G_ROW_COUNT := SQL%ROWCOUNT;
8652:
8653: QLTTRAMB.qa_import_log('Updated to running status for group_id = '||X_GROUP_ID);
8654:
8655: QLTTRAMB.qa_import_log('Rowcount per processor = '||G_ROW_COUNT);
8656:
8657: -- delete rows from the errors table that are associated with the
8658: -- rows we are about to validate. we do this so that old errors will
8659: -- not stick around after the user has resubmitted a record.
8668:
8669: -- Modified call to 'Validate'. Added 2 more parameters as a result of
8670: -- adding update capabilities.
8671: IF (X_VAL_FLAG = 1) THEN
8672: QLTTRAMB.qa_import_log('validate flag is true calling validate, X_VAL_FLAG = '|| X_VAL_FLAG);
8673: ERRCODE := QLTTRAWB.VALIDATE(X_GROUP_ID,TYPE_OF_TXN,STMT_OF_ROWIDS);
8674: IF (ERRCODE = FALSE) THEN
8675: QLTTRAMB.qa_import_log('failed in call to validate');
8676: RAISE CRITICAL_ERROR;
8671: IF (X_VAL_FLAG = 1) THEN
8672: QLTTRAMB.qa_import_log('validate flag is true calling validate, X_VAL_FLAG = '|| X_VAL_FLAG);
8673: ERRCODE := QLTTRAWB.VALIDATE(X_GROUP_ID,TYPE_OF_TXN,STMT_OF_ROWIDS);
8674: IF (ERRCODE = FALSE) THEN
8675: QLTTRAMB.qa_import_log('failed in call to validate');
8676: RAISE CRITICAL_ERROR;
8677: END IF;
8678: --
8679: -- Bugs 5641894, 5752546
8681: -- For bug 5752546 added two more parameters, one to send the type of transaction 1 - Insert and 2 - Update and the other parameter gets the row_ids which would be used for update transactions.
8682: -- skolluku Tue Feb 20 2007
8683: --
8684: ELSE
8685: QLTTRAMB.qa_import_log('validate flag is false calling validate');
8686: update_no_validate(X_GROUP_ID,TYPE_OF_TXN,STMT_OF_ROWIDS);
8687: END IF;
8688:
8689: -- update collection_id, qa_created_by, and qa_last_updated_by
8691: -- update qa_created_by and qa_last_updated_by if they are null for updates
8692:
8693: IF TYPE_OF_TXN <> 2
8694: THEN
8695: QLTTRAMB.qa_import_log('type of transaction = insert, setting who columns');
8696:
8697: SELECT QA_COLLECTION_ID_S.NEXTVAL INTO X_COLLECTION_ID FROM DUAL;
8698:
8699: UPDATE QA_RESULTS_INTERFACE
8702: QA_LAST_UPDATED_BY = NVL(QA_LAST_UPDATED_BY, X_USER_ID)
8703: WHERE GROUP_ID = X_GROUP_ID
8704: AND PROCESS_STATUS = 2;
8705: ELSE
8706: QLTTRAMB.qa_import_log('type of transaction = update, setting who columns');
8707:
8708: UPDATE QA_RESULTS_INTERFACE
8709: SET QA_CREATED_BY = NVL(QA_CREATED_BY, X_USER_ID),
8710: QA_LAST_UPDATED_BY = NVL(QA_LAST_UPDATED_BY, X_USER_ID)
8724: ACTION_FLAG := FALSE;
8725: END IF;
8726: CLOSE C;
8727:
8728: QLTTRAMB.qa_import_log('validation completed, inserting data now');
8729:
8730: -- we need to select a txn_header_id, in case actions were fired
8731:
8732: SELECT MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL INTO X_TXN_HEADER_ID FROM DUAL;
8730: -- we need to select a txn_header_id, in case actions were fired
8731:
8732: SELECT MTL_MATERIAL_TRANSACTIONS_S.NEXTVAL INTO X_TXN_HEADER_ID FROM DUAL;
8733:
8734: QLTTRAMB.qa_import_log('X_TXN_HEADER_ID :'||X_TXN_HEADER_ID ||' TYPE_OF_TXN :'||TYPE_OF_TXN);
8735:
8736: -- insert the valid records into the results table
8737: -- modified for update capabilities; 1 = 'INSERT' and 2 = 'UPDATE'
8738: -- also everything else will be interpreted as 'INSERT'
8740: POPULATE_HISTORY_TABLE(X_GROUP_ID, X_TXN_HEADER_ID,
8741: STMT_OF_ROWIDS, X_USER_ID, X_LAST_UPDATE_LOGIN,
8742: X_REQUEST_ID,X_PROGRAM_APPLICATION_ID,X_PROGRAM_ID);
8743:
8744: QLTTRAMB.qa_import_log('Calling UPDATE_VALID_ROWS');
8745:
8746: UPDATE_VALID_ROWS(X_GROUP_ID, X_USER_ID, X_LAST_UPDATE_LOGIN,
8747: X_TXN_HEADER_ID, X_REQUEST_ID,
8748: X_PROGRAM_APPLICATION_ID,
8747: X_TXN_HEADER_ID, X_REQUEST_ID,
8748: X_PROGRAM_APPLICATION_ID,
8749: X_PROGRAM_ID, STMT_OF_ROWIDS);
8750: ELSE
8751: QLTTRAMB.qa_import_log('Calling TRANSFER_VALID_ROWS');
8752:
8753: TRANSFER_VALID_ROWS(X_GROUP_ID, X_USER_ID, X_LAST_UPDATE_LOGIN,
8754: X_TXN_HEADER_ID, X_REQUEST_ID,
8755: X_PROGRAM_APPLICATION_ID, X_PROGRAM_ID);
8805: -- Passing IMPORT as the value for ARGUMENT2 in qltactwb.
8806: -- whenever qltactwb is called from qlttrawb, the value IMPORT will
8807: -- also be passed.
8808: -- Bug 3273447. suramasw
8809: QLTTRAMB.qa_import_log('Firing actions');
8810: ACTIONS_REQUEST_ID := FND_REQUEST.SUBMIT_REQUEST('QA', 'QLTACTWB', NULL,
8811: NULL, FALSE, X_TXN_HEADER_ID,'IMPORT');
8812: END IF;
8813:
8874: END LOOP;
8875:
8876: COMMIT;
8877:
8878: QLTTRAMB.qa_import_log('Returning successfully from the worker');
8879:
8880: RETURN TRUE;
8881:
8882: END IF; -- (l_req_data IS NULL)
8893: WHEN user_sql_error THEN
8894:
8895: l_error_message := error_bad_sql || ' ' || g_sqlerrm;
8896:
8897: QLTTRAMB.qa_import_log('Exception user_sql_error :'||l_error_message);
8898:
8899: INSERT INTO qa_interface_errors
8900: (transaction_interface_id, error_message, error_column,
8901: last_update_date, last_updated_by,
8909: FROM qa_results_interface
8910: WHERE group_id = x_group_id;
8911:
8912: If (sql%rowcount >0) THEN
8913: QLTTRAMB.qa_import_log('Error in transaction worker due to user_sql_error Column : '||g_col_name || ' Error count :' || sql%rowcount);
8914: END IF;
8915:
8916: UPDATE qa_results_interface
8917: SET process_status = 3
8920: COMMIT;
8921: RETURN FALSE;
8922:
8923: WHEN OTHERS THEN
8924: QLTTRAMB.qa_import_log('Exception when others :'||sqlerrm(sqlcode));
8925: INSERT INTO QA_INTERFACE_ERRORS
8926: (TRANSACTION_INTERFACE_ID, ERROR_MESSAGE, ERROR_COLUMN,
8927: LAST_UPDATE_DATE, LAST_UPDATED_BY,
8928: CREATION_DATE, CREATED_BY, LAST_UPDATE_LOGIN,
8936: FROM QA_RESULTS_INTERFACE
8937: WHERE GROUP_ID = X_GROUP_ID;
8938:
8939: If (sql%rowcount >0) THEN
8940: QLTTRAMB.qa_import_log('Error in transaction exception when others Error count :' || sql%rowcount);
8941: END IF;
8942:
8943: UPDATE QA_RESULTS_INTERFACE
8944: SET PROCESS_STATUS = 3