1841: -- for all entities of the batch provide common message conveying
1842: -- to run concurrent import program manually
1843:
1844: IF (l_trigger_import = 'N' OR l_trigger_import = 'FALSE') THEN
1845: FND_MESSAGE.SET_NAME('EGO', 'EGO_NO_AUTO_IMPORT_ON_TARGET');
1846: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
1847:
1848: FOR ent IN c_pub_ws_entities(p_session_id)
1849: LOOP
1842: -- to run concurrent import program manually
1843:
1844: IF (l_trigger_import = 'N' OR l_trigger_import = 'FALSE') THEN
1845: FND_MESSAGE.SET_NAME('EGO', 'EGO_NO_AUTO_IMPORT_ON_TARGET');
1846: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
1847:
1848: FOR ent IN c_pub_ws_entities(p_session_id)
1849: LOOP
1850:
1948:
1949: -- if the system is invalid
1950: -- insert records for invalid system with error message
1951: IF (l_invld_sys_cnt > 0) THEN
1952: FND_MESSAGE.SET_NAME('EGO', 'EGO_SYS_CODE_NO_CONTEXT');
1953: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
1954: FOR ent IN c_pub_ws_entities(p_session_id)
1955: LOOP
1956:
1949: -- if the system is invalid
1950: -- insert records for invalid system with error message
1951: IF (l_invld_sys_cnt > 0) THEN
1952: FND_MESSAGE.SET_NAME('EGO', 'EGO_SYS_CODE_NO_CONTEXT');
1953: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
1954: FOR ent IN c_pub_ws_entities(p_session_id)
1955: LOOP
1956:
1957: --DBMS_OUTPUT.PUT_LINE('ent.pk1_value: ' || to_char(ent.pk1_value));
2058:
2059: IF (instr(err.ERR_CODE, '_ERROR') <> 0) THEN
2060: IF ((l_error_rec_count > 1) AND (err.ERR_CODE <> 'EGO_SYNC_MIB_STAT_1_ERROR')) THEN
2061:
2062: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2063: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2064: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2065: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2066:
2059: IF (instr(err.ERR_CODE, '_ERROR') <> 0) THEN
2060: IF ((l_error_rec_count > 1) AND (err.ERR_CODE <> 'EGO_SYNC_MIB_STAT_1_ERROR')) THEN
2061:
2062: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2063: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2064: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2065: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2066:
2067: UPDATE EGO_PUBLICATION_BATCH_GT
2060: IF ((l_error_rec_count > 1) AND (err.ERR_CODE <> 'EGO_SYNC_MIB_STAT_1_ERROR')) THEN
2061:
2062: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2063: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2064: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2065: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2066:
2067: UPDATE EGO_PUBLICATION_BATCH_GT
2068: SET STATUS = 'F', MESSAGE = l_message
2061:
2062: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2063: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2064: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2065: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2066:
2067: UPDATE EGO_PUBLICATION_BATCH_GT
2068: SET STATUS = 'F', MESSAGE = l_message
2069: WHERE BATCH_ID = l_batch_id
2083: AND SYSTEM_CODE = l_system_code;
2084: END IF;
2085: IF (l_error_rec_count = 1) THEN
2086:
2087: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2088: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2089: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2090: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2091:
2084: END IF;
2085: IF (l_error_rec_count = 1) THEN
2086:
2087: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2088: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2089: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2090: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2091:
2092: --DBMS_OUTPUT.PUT_LINE('l_batch_id: ' || to_char(l_batch_id));
2085: IF (l_error_rec_count = 1) THEN
2086:
2087: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2088: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2089: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2090: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2091:
2092: --DBMS_OUTPUT.PUT_LINE('l_batch_id: ' || to_char(l_batch_id));
2093: --DBMS_OUTPUT.PUT_LINE('ip.PK1_VALUE: ' || to_char(ip.PK1_VALUE));
2086:
2087: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2088: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2089: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2090: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2091:
2092: --DBMS_OUTPUT.PUT_LINE('l_batch_id: ' || to_char(l_batch_id));
2093: --DBMS_OUTPUT.PUT_LINE('ip.PK1_VALUE: ' || to_char(ip.PK1_VALUE));
2094: --DBMS_OUTPUT.PUT_LINE('ip.SYSTEM_CODE: ' || to_char(ip.SYSTEM_CODE));
2115: END IF;
2116:
2117: IF (instr(err.ERR_CODE, '_WARNING') <> 0) THEN
2118:
2119: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2120: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2121: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2122: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2123:
2116:
2117: IF (instr(err.ERR_CODE, '_WARNING') <> 0) THEN
2118:
2119: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2120: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2121: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2122: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2123:
2124: UPDATE EGO_PUBLICATION_BATCH_GT
2117: IF (instr(err.ERR_CODE, '_WARNING') <> 0) THEN
2118:
2119: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2120: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2121: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2122: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2123:
2124: UPDATE EGO_PUBLICATION_BATCH_GT
2125: SET STATUS = 'W', MESSAGE = l_message
2118:
2119: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2120: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2121: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2122: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2123:
2124: UPDATE EGO_PUBLICATION_BATCH_GT
2125: SET STATUS = 'W', MESSAGE = l_message
2126: WHERE BATCH_ID = l_batch_id
2307: LOOP
2308:
2309: IF (instr(err.ERR_CODE, '_ERROR') <> 0) THEN
2310:
2311: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2312: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2313: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2314: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2315:
2308:
2309: IF (instr(err.ERR_CODE, '_ERROR') <> 0) THEN
2310:
2311: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2312: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2313: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2314: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2315:
2316: --DBMS_OUTPUT.PUT_LINE('l_batch_id: ' || to_char(l_batch_id));
2309: IF (instr(err.ERR_CODE, '_ERROR') <> 0) THEN
2310:
2311: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2312: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2313: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2314: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2315:
2316: --DBMS_OUTPUT.PUT_LINE('l_batch_id: ' || to_char(l_batch_id));
2317: --DBMS_OUTPUT.PUT_LINE('ip.PK1_VALUE: ' || to_char(ip.PK1_VALUE));
2310:
2311: FND_MESSAGE.SET_NAME('EGO', err.ERR_CODE);
2312: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2313: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2314: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2315:
2316: --DBMS_OUTPUT.PUT_LINE('l_batch_id: ' || to_char(l_batch_id));
2317: --DBMS_OUTPUT.PUT_LINE('ip.PK1_VALUE: ' || to_char(ip.PK1_VALUE));
2318: --DBMS_OUTPUT.PUT_LINE('ip.SYSTEM_CODE: ' || to_char(ip.SYSTEM_CODE));
2329: END IF;
2330:
2331: IF (instr(err.ERR_CODE, '_WARNING') <> 0) THEN
2332:
2333: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2334: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2335: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2336: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2337:
2330:
2331: IF (instr(err.ERR_CODE, '_WARNING') <> 0) THEN
2332:
2333: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2334: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2335: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2336: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2337:
2338: -- Update Err_Message in EGO_PUB_WS_ERROR table
2331: IF (instr(err.ERR_CODE, '_WARNING') <> 0) THEN
2332:
2333: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2334: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2335: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2336: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2337:
2338: -- Update Err_Message in EGO_PUB_WS_ERROR table
2339:
2332:
2333: FND_MESSAGE.SET_NAME ('EGO', err.ERR_CODE);
2334: FND_MESSAGE.SET_TOKEN ('ENTITY_NAME', l_param_value);
2335: FND_MESSAGE.SET_TOKEN ('SYSTEM_CODE', l_system_code);
2336: l_message := SUBSTR(FND_MESSAGE.Get, 1, 2000);
2337:
2338: -- Update Err_Message in EGO_PUB_WS_ERROR table
2339:
2340: UPDATE EGO_PUB_WS_ERRORS