[Home] [Help]
224: | Cursor Declarations |
225: +-----------------------------------------------------------------------*/
226: BEGIN
227: --iex_debug_pub.LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
228: FND_FILE.put_line( FND_FILE.LOG,'inside print_clob');
229:
230: LOOP
231: l_end :=
232: DBMS_LOB.INSTR (lob_loc => lob_loc,
234: offset => l_start,
235: nth => 1
236: );
237:
238: -- FND_FILE.put_line( FND_FILE.LOG,'l_end-->'||l_end);
239:
240:
241: IF (NVL (l_end, 0) < 1)
242: THEN
247: DBMS_LOB.SUBSTR (lob_loc => lob_loc,
248: amount => l_end - l_start,
249: offset => l_start
250: );
251: -- FND_FILE.put_line( FND_FILE.LOG,'l_one_line-->'||l_one_line);
252: -- FND_FILE.put_line( FND_FILE.LOG,'c_endline_len-->'||c_endline_len);
253: l_start := l_end + c_endline_len;
254: -- FND_FILE.put_line( FND_FILE.LOG,'l_start-->'||l_start);
255: -- FND_FILE.put_line( FND_FILE.LOG,'32');
248: amount => l_end - l_start,
249: offset => l_start
250: );
251: -- FND_FILE.put_line( FND_FILE.LOG,'l_one_line-->'||l_one_line);
252: -- FND_FILE.put_line( FND_FILE.LOG,'c_endline_len-->'||c_endline_len);
253: l_start := l_end + c_endline_len;
254: -- FND_FILE.put_line( FND_FILE.LOG,'l_start-->'||l_start);
255: -- FND_FILE.put_line( FND_FILE.LOG,'32');
256: Fnd_File.PUT_line(Fnd_File.OUTPUT,l_one_line);
250: );
251: -- FND_FILE.put_line( FND_FILE.LOG,'l_one_line-->'||l_one_line);
252: -- FND_FILE.put_line( FND_FILE.LOG,'c_endline_len-->'||c_endline_len);
253: l_start := l_end + c_endline_len;
254: -- FND_FILE.put_line( FND_FILE.LOG,'l_start-->'||l_start);
255: -- FND_FILE.put_line( FND_FILE.LOG,'32');
256: Fnd_File.PUT_line(Fnd_File.OUTPUT,l_one_line);
257:
258: END LOOP;
251: -- FND_FILE.put_line( FND_FILE.LOG,'l_one_line-->'||l_one_line);
252: -- FND_FILE.put_line( FND_FILE.LOG,'c_endline_len-->'||c_endline_len);
253: l_start := l_end + c_endline_len;
254: -- FND_FILE.put_line( FND_FILE.LOG,'l_start-->'||l_start);
255: -- FND_FILE.put_line( FND_FILE.LOG,'32');
256: Fnd_File.PUT_line(Fnd_File.OUTPUT,l_one_line);
257:
258: END LOOP;
259:
252: -- FND_FILE.put_line( FND_FILE.LOG,'c_endline_len-->'||c_endline_len);
253: l_start := l_end + c_endline_len;
254: -- FND_FILE.put_line( FND_FILE.LOG,'l_start-->'||l_start);
255: -- FND_FILE.put_line( FND_FILE.LOG,'32');
256: Fnd_File.PUT_line(Fnd_File.OUTPUT,l_one_line);
257:
258: END LOOP;
259:
260: END PRINT_CLOB;
539: --Select IEX_DEL_WF_S.NEXTVAL INTO l_bridge FROM Dual;
540: --- End - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
541:
542: l_bridge := l_del_buff_bridge; --Added by schekuri for bug#6373998 by schekuri on 31-Aug-2007
543: FND_FILE.PUT_LINE(FND_FILE.LOG,'Using bridge id ' || l_bridge);
544: l_universe_size := t_object_ids.count;
545: -- IF PG_DEBUG < 10 THEN
546: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
547: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScores: Universe size is ' || l_universe_size);
556: AND scr.Score_ID = scomp.score_id;
557: exception
558: when OTHERS THEN
559: l_conc_prog_name := 'X';
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: getScores: Exception getting the concurrent program. Error: ' || sqlerrm );
561: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: getScores: Program will continue, no concurrent program will be launched' );
562: end;
563: -- End - Andre Araujo - 12/17/2004 - Store del_buffers only if we need to
564:
557: exception
558: when OTHERS THEN
559: l_conc_prog_name := 'X';
560: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: getScores: Exception getting the concurrent program. Error: ' || sqlerrm );
561: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: getScores: Program will continue, no concurrent program will be launched' );
562: end;
563: -- End - Andre Araujo - 12/17/2004 - Store del_buffers only if we need to
564:
565: FOR l_count IN 1..l_universe_size LOOP
570: END IF;
571: end if;
572: l_components_count := p_score_comp_tbl.count;
573: l_running_score := 0;
574: -- fnd_file.put_line(fnd_file.log,'universe size-->'||l_universe_size);
575:
576: -- l_xml_body_2:=l_new_line||'
577: -- dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
578:
581: select score.jtf_object_code
582: into l_jtf_obj_code
583: from iex_scores score
584: where score_id=p_score_comp_tbl(1).score_id;
585: fnd_file.put_line(fnd_file.log,'obj_code-->'||l_jtf_obj_code);
586: fnd_file.put_line(fnd_file.log,'unv_id-->'||t_object_ids(l_count));
587:
588: if l_jtf_obj_code is not null then
589:
582: into l_jtf_obj_code
583: from iex_scores score
584: where score_id=p_score_comp_tbl(1).score_id;
585: fnd_file.put_line(fnd_file.log,'obj_code-->'||l_jtf_obj_code);
586: fnd_file.put_line(fnd_file.log,'unv_id-->'||t_object_ids(l_count));
587:
588: if l_jtf_obj_code is not null then
589:
590: if l_jtf_obj_code='PARTY' then
619: else
620: l_object_id:=t_object_ids(l_count); --Added for Bug 9790046 22-Jun-2010 barathsr
621: end if;
622: end if;
623: -- FND_FILE.put_line( FND_FILE.LOG,'*****get various score details************');
624: /*l_xml_body_2:=l_new_line||'
625: -- l_xml_body_2:=l_xml_body_2||l_new_line||'
626: l_xml_body_2:=l_xml_body_2||l_new_line||'
627: l_xml_body_2:=l_xml_body_2||l_new_line||'
630: dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);*/
631: --Commented to fix 12711600 SNUTHALA 5/JUL/11
632: exception
633: when others then
634: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in get scores in getting jtf obj details'||sqlerrm);
635: IEX_DEBUG_PUB.logMessage('error in get scores in getting jtf obj details'||sqlerrm);
636: end;
637: --Begin fix 12711600 SNUTHALA 5/JUL/11
638: l_xml_body_2:=l_new_line||'
648: dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
649: --End fix 12711600 SNUTHALA 5/JUL/11
650:
651: --End Bug 8933776 30-Nov-2009 barathsr
652: -- fnd_file.put_line(fnd_file.log,'callin get1score');
653:
654: --- get1Score removed from here
655: l_running_score := get1Score( l_score_comp_tbl, t_object_ids(l_count) );
656: -- fnd_file.put_line(fnd_file.log,'out of get1score');
652: -- fnd_file.put_line(fnd_file.log,'callin get1score');
653:
654: --- get1Score removed from here
655: l_running_score := get1Score( l_score_comp_tbl, t_object_ids(l_count) );
656: -- fnd_file.put_line(fnd_file.log,'out of get1score');
657: --- End get1Score removed from here
658: -- /* 3. for each component, execute SQL and get value */
659: -- FOR l_count2 IN 1..l_components_count LOOP
660: -- l_score_component_id := l_score_comp_tbl(l_count2).score_component_id;
874:
875: dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
876: --End Bug 8933776 30-Nov-2009 barathsr
877:
878: -- fnd_file.put_line(fnd_file.log,'end of comp_det tag');
879:
880:
881: -- fill out return table
882: --- Begin - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
899: end if;
900: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
901: IEX_DEBUG_PUB.logMessage('IEX_STORE_PS_SCORE: getScores:Profile:Store Score Histories for Transactions: ' ||t_prf_score_trans);
902: END IF;
903: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile:Store Score Histories for Transactions: '||t_prf_score_trans);
904: --end bug 13426796 by sunagesh on 25-11-2011
905: -- Begin - Andre Araujo - 12/17/2004 - Store del_buffers only if we need to
906: if (l_conc_prog_name <> 'X') then
907: storeDelBuffers ( l_score_comp_tbl(1).SCORE_ID, l_objects_tbl, l_new_scores_tbl,l_bridge);
919:
920:
921: END LOOP; -- universe loop
922:
923: -- fnd_file.put_line(fnd_file.log,'out of universe loop in get scores');
924:
925: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the final score: ');
926: --l_xml_body_2:=l_xml_body_2||l_new_line||''||l_new_line;
927:
921: END LOOP; -- universe loop
922:
923: -- fnd_file.put_line(fnd_file.log,'out of universe loop in get scores');
924:
925: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the final score: ');
926: --l_xml_body_2:=l_xml_body_2||l_new_line||''||l_new_line;
927:
928: -- dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
929: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing comp_det ');
925: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Getting the final score: ');
926: --l_xml_body_2:=l_xml_body_2||l_new_line||''||l_new_line;
927:
928: -- dbms_lob.writeAppend(tempResult, length(l_xml_body_2), l_xml_body_2);
929: -- FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing comp_det ');
930:
931: --- Begin - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
932: if l_scorecount > 0 then -- Store the leftovers
933: --start bug 13426796 by sunagesh on 25-11-2011
943: end if;
944: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
945: IEX_DEBUG_PUB.logMessage('IEX_STORE_PS_SCORE: getScores:Profile:Store Score Histories for Transactions: ' ||t_prf_score_trans);
946: END IF;
947: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile:Store Score Histories for Transactions: '||t_prf_score_trans);
948: --end bug 13426796 by sunagesh on 25-11-2011
949: -- Begin - Andre Araujo - 12/17/2004 - Store del_buffers only if we need to
950: if (l_conc_prog_name <> 'X') then
951: storeDelBuffers ( l_score_comp_tbl(1).SCORE_ID, l_objects_tbl, l_new_scores_tbl,l_bridge);
954:
955:
956: end if;
957:
958: -- fnd_file.put_line(fnd_file.log,'end of get scores');
959:
960: l_scores_tbl.delete;
961: l_scores_tbl(1) := l_bridge;
962: --- End - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
970:
971: Exception
972:
973: When Others Then
974: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in getScores: ' || sqlerrm );
975: RAISE FND_API.G_EXC_ERROR;
976: END getScores;
977:
978: /*
1133: into l_object_type
1134: FROM jtf_objects_vl
1135: where object_code=l_object_code;
1136:
1137: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '***start of xml body***');
1138: l_xml_body:= l_xml_body||l_new_line||'
1139: l_xml_body:= l_xml_body||l_new_line||'
1140: l_xml_body:= l_xml_body||l_new_line||'
1141: l_xml_body:= l_xml_body||l_new_line||'
1148: l_xml_body:= l_xml_body||l_new_line||'
1149: l_xml_body:= l_xml_body||l_new_line||'
1150: exception
1151: when others then
1152: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in score objects in getting score details'||sqlerrm);
1153: IEX_DEBUG_PUB.logMessage('error in score objects in getting score details'||sqlerrm);
1154: end;
1155: --End Bug 8933776 30-Nov-2009 barathsr
1156: -- enumerate components for this scoring engine
1160: if l_components_tbl is null or l_components_tbl.count < 1 then
1161: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1162: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreObjects: No score components for engine');
1163: END IF;
1164: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: scoreObjects: No score components for engine ' || p_score_id);
1165: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_SCORE_ENG_COMPONENTS');
1166: --Begin Bug 8933776 30-Nov-2009 barathsr
1167: l_xml_body:= l_xml_body||l_new_line||'
1168: l_xml_body:= l_xml_body||l_new_line||'';
1184: l_prog_appl := FND_GLOBAL.PROG_APPL_ID;
1185:
1186: --Begin Bug 8933776 30-Nov-2009 barathsr
1187: if l_components_tbl is not null or l_components_tbl.count>1 then
1188: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'count in comp tab-->'||l_components_tbl.count);
1189: for comp in l_components_tbl.first..l_components_tbl.last loop
1190: begin
1191: SELECT sc_typ_tl.score_comp_name,
1192: sc_typ.function_flag,
1200: AND sc_typ.score_comp_type_id= sc_typ_tl.score_comp_type_id
1201: AND sc_typ_tl.language ='US'
1202: AND sc.score_component_id=l_components_tbl(comp).score_component_id;
1203: l_score_comp_id:=l_components_tbl(comp).score_component_id;
1204: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '***get the component details***');
1205: l_xml_body:= l_xml_body||l_new_line||'
1206: l_xml_body:= l_xml_body||l_new_line||'
1207: l_xml_body:= l_xml_body||l_new_line||'
1208: l_xml_body:= l_xml_body||l_new_line||'
1209: l_xml_body:= l_xml_body||l_new_line||'
1210: l_xml_body:= l_xml_body||l_new_line||'
1211: exception
1212: when others then
1213: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in score objects in getting score component details'||sqlerrm);
1214: IEX_DEBUG_PUB.logMessage('error in score objects in getting score component details'||sqlerrm);
1215: end;
1216:
1217:
1219: select count(*)
1220: into l_cnt
1221: from iex_score_comp_det
1222: where score_component_id=l_components_tbl(comp).score_component_id;
1223: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'count in comp_det tab-->'||l_cnt);
1224: for cnt in 1..l_cnt loop
1225: select range_low,range_high,new_value
1226: bulk collect into l_sc_range_low,l_sc_range_high,l_sc_val
1227: from iex_score_comp_det sc_det
1236: l_xml_body:= l_xml_body||l_new_line||'';
1237: end loop;
1238: end if;
1239:
1240: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'out of comp_det loop');
1241: l_xml_body:= l_xml_body||l_new_line||'';
1242: exception
1243: when others then
1244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in score objects in getting score component cnt/range details'||sqlerrm);
1240: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'out of comp_det loop');
1241: l_xml_body:= l_xml_body||l_new_line||'';
1242: exception
1243: when others then
1244: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in score objects in getting score component cnt/range details'||sqlerrm);
1245: IEX_DEBUG_PUB.logMessage('error in score objects in getting score component cnt/range details'||sqlerrm);
1246: end;
1247: end loop;
1248: end if;
1246: end;
1247: end loop;
1248: end if;
1249:
1250: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '***close component details***');
1251: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'tempres-->'||tempResult);
1252: --End Bug 8933776 30-Nov-2009 barathsr
1253:
1254:
1247: end loop;
1248: end if;
1249:
1250: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '***close component details***');
1251: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'tempres-->'||tempResult);
1252: --End Bug 8933776 30-Nov-2009 barathsr
1253:
1254:
1255: Select IEX_DEL_WF_S.NEXTVAL INTO l_del_buff_bridge FROM Dual; --Added by schekuri for bug#6373998 on 31-Aug-2007
1252: --End Bug 8933776 30-Nov-2009 barathsr
1253:
1254:
1255: Select IEX_DEL_WF_S.NEXTVAL INTO l_del_buff_bridge FROM Dual; --Added by schekuri for bug#6373998 on 31-Aug-2007
1256: FND_FILE.PUT_LINE(FND_FILE.LOG,'Using bridge ' || l_del_buff_bridge || ' one for each scoring engine');
1257: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1258: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreObjects: got bridge id ' || l_del_buff_bridge || ' once for each scoring engine');
1259: END IF;
1260:
1280: if (l_universe is null or l_universe.count < 1) and not l_last_batch then
1281: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1282: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreObjects: Universe size is zero');
1283: END IF;
1284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Universe Size is Zero or Invalid for Engine ' || p_score_id);
1285:
1286: FND_MESSAGE.Set_Name('IEX', 'IEX_UNIVERSE_SIZE_ZERO');
1287: FND_MSG_PUB.Add;
1288:
1310:
1311: if (l_universe is null or l_universe.count < 1) and l_count = 1 then
1312: l_return := fnd_concurrent.set_completion_status (status => 'WARNING',
1313: message => 'Zero objects scored. Check object filter of the Scoring engine');
1314: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Warning!!! Zero objects scored. Check object filter of the Scoring engine ');
1315: close universe_cur;
1316: return; -- bug 9570425
1317: end if;
1318:
1315: close universe_cur;
1316: return; -- bug 9570425
1317: end if;
1318:
1319: FND_FILE.PUT_LINE(FND_FILE.LOG,'Scoring objects in batch ' || l_count
1320: || ' is ' || l_universe.count || ' at ' || TO_CHAR(SYSDATE, 'HH24:MI:SSSS') );
1321: if l_universe.count = 0 then
1322: close universe_cur;
1323: exit;
1323: exit;
1324: end if;
1325:
1326: univ_size := l_universe.count;
1327: FND_FILE.PUT_LINE(FND_FILE.LOG, 'universe size ' ||univ_size);
1328: l_universe_size:=l_universe_size+univ_size;
1329:
1330: --Begin Bug 8933776 30-Nov-2009 barathsr
1331: if l_count=1 then
1346: if (l_components_tbl(i).score_comp_weight is null) then
1347: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1348: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreObjects: no comp weight');
1349: END IF;
1350: FND_FILE.PUT_LINE(FND_FILE.LOG,
1351: 'Score Comp Weight are required for Engine '|| p_score_id);
1352: FND_MESSAGE.Set_Name('IEX', 'IEX_WEIGHT_REQUIRED');
1353: FND_MSG_PUB.Add;
1354: RAISE FND_API.G_EXC_ERROR;
1379:
1380: l_bridge := l_scores_tbl(1); -- The table now contains the bridge to the next concurrent program or nothing
1381:
1382:
1383: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Completed Scoring ' || ' objects of type ' || l_object_type);
1384: Begin
1385: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1386: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreObjects: Finding any process to spawn...');
1387: END IF;
1389: Into l_conc_prog_name
1390: From IEX_SCORES scr, fnd_concurrent_programs cp
1391: Where scr.concurrent_prog_name = cp.concurrent_program_name AND
1392: scr.Score_ID = p_score_id;
1393: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: scoreObjects: Spawning ' || l_conc_prog_name);
1394:
1395: --- Begin - Eun Huh - 02/15/2007 - bug 5763675/5696238 if run multiple Scoring Engine Harness program
1396: --at the same time it will pick up only the last one always
1397: --select MAX(request_id)
1438: --the main process should wait till the spawned process is
1439: --over.
1440: IF (l_submit_request_id IS NOT NULL AND l_submit_request_id <> 0) THEN
1441: LOOP
1442: FND_FILE.PUT_LINE(FND_FILE.LOG,
1443: 'Start Time of the spawned Process ' ||
1444: l_conc_prog_name || ' =>'||to_char (sysdate, 'dd/mon/yyyy :HH:MI:SS'));
1445: l_bool := FND_CONCURRENT.wait_for_request(
1446: request_id =>l_submit_request_id,
1455: IF dphase = 'COMPLETE'
1456: --and dstatus = 'NORMAL' --the possible
1457: --values are NORMAL/ERROR/WARNING/CANCELLED/TERMINATED
1458: THEN
1459: FND_FILE.PUT_LINE(FND_FILE.LOG,
1460: 'End Time of the spawned Process ' ||
1461: l_conc_prog_name || ' =>'||to_char (sysdate, 'dd/mon/yyyy :HH:MI:SS'));
1462: EXIT;
1463: END If; --dphase
1463: END If; --dphase
1464:
1465: END LOOP;
1466: END IF; -- if l_submit
1467: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: scoreObjects: Launched cp '
1468: || l_submit_request_id || ' successfully');
1469: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' ||
1470: nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All')); --Added OU Name for MOAC
1471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1465: END LOOP;
1466: END IF; -- if l_submit
1467: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: scoreObjects: Launched cp '
1468: || l_submit_request_id || ' successfully');
1469: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' ||
1470: nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All')); --Added OU Name for MOAC
1471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1472: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreObjects: process spawned '
1473: || l_submit_request_id);
1504: l_xml_body:=l_new_line||''||l_new_line;
1505: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1506: --End Bug 8933776 30-Nov-2009 barathsr
1507:
1508: -- FND_FILE.PUT_LINE(FND_FILE.LOG, '***close score details body***');
1509:
1510: EXCEPTION
1511: WHEN FND_API.G_EXC_ERROR THEN
1512: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1731: exception
1732: when others then l_pf_name := null;
1733: end;
1734:
1735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Default Operating Unit : ' ||
1736: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('DEFAULT_ORG_ID')), ' '));
1737: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Operating Unit: ' ||
1738: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('ORG_ID')), ' '));
1739: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Security Profile: ' || l_pf_name);
1733: end;
1734:
1735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Default Operating Unit : ' ||
1736: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('DEFAULT_ORG_ID')), ' '));
1737: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Operating Unit: ' ||
1738: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('ORG_ID')), ' '));
1739: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Security Profile: ' || l_pf_name);
1740: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1741: -- End bug 6128024
1735: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Default Operating Unit : ' ||
1736: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('DEFAULT_ORG_ID')), ' '));
1737: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Operating Unit: ' ||
1738: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('ORG_ID')), ' '));
1739: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Security Profile: ' || l_pf_name);
1740: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1741: -- End bug 6128024
1742:
1743: --Begin Bug 8933776 30-Nov-2009 barathsr
1736: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('DEFAULT_ORG_ID')), ' '));
1737: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Operating Unit: ' ||
1738: NVL(mo_global.get_ou_name(FND_PROFILE.VALUE('ORG_ID')), ' '));
1739: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Profile Value MO: Security Profile: ' || l_pf_name);
1740: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1741: -- End bug 6128024
1742:
1743: --Begin Bug 8933776 30-Nov-2009 barathsr
1744: begin
1750: else
1751: l_org_id:='All';
1752: end if;
1753:
1754: FND_FILE.PUT_LINE(FND_FILE.LOG, '***start of xml hdr***');
1755:
1756: --Start adding for bug 10210488 snuthala 19th Oct 10
1757: --l_xml_header := '';
1758: -- Instead of hard coding the value, pick the charcter set value from "ICX: Client IANA Encoding" profile.
1818: l_close_tag:=''||l_new_line;
1819:
1820: l_xml_header_length := length(l_xml_header);
1821: -- tempResult := l_xml_header;
1822: -- FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1823:
1824: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1825: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1826: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1823:
1824: dbms_lob.createtemporary(tempResult,FALSE,DBMS_LOB.CALL);
1825: dbms_lob.open(tempResult,dbms_lob.lob_readwrite);
1826: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1827: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1828: exception
1829: when others then
1830: FND_FILE.put_line( FND_FILE.LOG,'err in xml header-->'||sqlerrm);
1831: iex_debug_pub.LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || '-'||sqlerrm);
1826: dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1827: FND_FILE.put_line( FND_FILE.LOG,'Constructing the XML Header is success');
1828: exception
1829: when others then
1830: FND_FILE.put_line( FND_FILE.LOG,'err in xml header-->'||sqlerrm);
1831: iex_debug_pub.LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || '-'||sqlerrm);
1832: end;
1833: --End Bug 8933776 30-Nov-2009 barathsr
1834:
1831: iex_debug_pub.LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || '-'||sqlerrm);
1832: end;
1833: --End Bug 8933776 30-Nov-2009 barathsr
1834:
1835: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Size: ' || G_BATCH_SIZE);
1836: for x in 1..5 loop
1837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running Scoring Engine: ' || to_char(l_num_score_engines(x)));
1838: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All')); --Added for moac
1839: if l_num_score_engines(x) is not null then
1833: --End Bug 8933776 30-Nov-2009 barathsr
1834:
1835: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Size: ' || G_BATCH_SIZE);
1836: for x in 1..5 loop
1837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running Scoring Engine: ' || to_char(l_num_score_engines(x)));
1838: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All')); --Added for moac
1839: if l_num_score_engines(x) is not null then
1840: BEGIN
1841: IEX_SCORE_NEW_PVT.scoreObjects(p_api_version => 1.0,
1834:
1835: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Batch Size: ' || G_BATCH_SIZE);
1836: for x in 1..5 loop
1837: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Running Scoring Engine: ' || to_char(l_num_score_engines(x)));
1838: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || nvl(mo_global.get_ou_name(mo_global.get_current_org_id), 'All')); --Added for moac
1839: if l_num_score_engines(x) is not null then
1840: BEGIN
1841: IEX_SCORE_NEW_PVT.scoreObjects(p_api_version => 1.0,
1842: p_init_msg_list => FND_API.G_TRUE,
1846: x_msg_data => l_msg_data,
1847: p_score_id => l_num_score_engines(x),
1848: p_unv_obj_id => p_object_id,--Added for Bug 8933776 17-Dec-2009 barathsr
1849: p_limit_rows_val => p_limit_rows);--Added for Bug 8933776 30-Nov-2009 barathsr
1850: FND_FILE.PUT_LINE(FND_FILE.LOG,
1851: 'Score Engine: ' || l_num_score_engines(x) ||
1852: ' Status: ' || l_return_status);
1853:
1854:
1868: ERRBUF := l_msg_data;
1869: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1870: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreConcur: Expected Error in Score ' || sqlerrm);
1871: END IF;
1872: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: ' || sqlerrm || ERRBUF);
1873:
1874: -- START -jsanju 10/19/05 , set concurrent status to 'WARNING' if universe size exception occurs for bug 3549051
1875: WHEN IEX_UNIVERSE_SIZE_ZERO_ERROR THEN
1876: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1875: WHEN IEX_UNIVERSE_SIZE_ZERO_ERROR THEN
1876: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1877: IEX_DEBUG_PUB.logMessage('IEX_SCORE: universe size is zero ' || l_msg_data);
1878: END IF;
1879: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Universe Size is Zero ');
1880: request_status := fnd_concurrent.set_completion_status('WARNING'
1881: , 'Universe size is zero');
1882:
1883: -- END -jsanju 10/19/05 , set concurrent status to 'WARNING' if universe size exception occurs for bug 3549051
1887: ERRBUF := l_msg_data;
1888: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1889: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreConcur: Unexpected Error ' || sqlerrm);
1890: END IF;
1891: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: ' || sqlerrm || ERRBUF);
1892: END;
1893:
1894: end if;
1895: end loop;
1893:
1894: end if;
1895: end loop;
1896:
1897: FND_FILE.PUT_LINE(FND_FILE.LOG,'1');
1898: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1899: --print to the o/p file
1900: FND_FILE.PUT_LINE(FND_FILE.LOG,'2');
1901: FND_FILE.PUT_LINE(FND_FILE.LOG,'len_tempRes-->'||length(tempResult));
1896:
1897: FND_FILE.PUT_LINE(FND_FILE.LOG,'1');
1898: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1899: --print to the o/p file
1900: FND_FILE.PUT_LINE(FND_FILE.LOG,'2');
1901: FND_FILE.PUT_LINE(FND_FILE.LOG,'len_tempRes-->'||length(tempResult));
1902: -- FND_FILE.PUT_LINE(FND_FILE.LOG,substr(tempResult,16000,length(tempResult)));
1903: if nvl(p_show_output,'No')='Yes' then
1904: print_clob(lob_loc => tempResult);
1897: FND_FILE.PUT_LINE(FND_FILE.LOG,'1');
1898: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1899: --print to the o/p file
1900: FND_FILE.PUT_LINE(FND_FILE.LOG,'2');
1901: FND_FILE.PUT_LINE(FND_FILE.LOG,'len_tempRes-->'||length(tempResult));
1902: -- FND_FILE.PUT_LINE(FND_FILE.LOG,substr(tempResult,16000,length(tempResult)));
1903: if nvl(p_show_output,'No')='Yes' then
1904: print_clob(lob_loc => tempResult);
1905: else
1898: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1899: --print to the o/p file
1900: FND_FILE.PUT_LINE(FND_FILE.LOG,'2');
1901: FND_FILE.PUT_LINE(FND_FILE.LOG,'len_tempRes-->'||length(tempResult));
1902: -- FND_FILE.PUT_LINE(FND_FILE.LOG,substr(tempResult,16000,length(tempResult)));
1903: if nvl(p_show_output,'No')='Yes' then
1904: print_clob(lob_loc => tempResult);
1905: else
1906: tempResult:=l_xml_header;
1907: -- dbms_lob.writeAppend(tempResult, length(l_xml_header), l_xml_header);
1908: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1909: print_clob(lob_loc => tempResult);
1910: end if;
1911: -- Fnd_File.PUT_line(FND_FILE.LOG,substr(tempResult,1,length(tempResult)));
1912: FND_FILE.PUT_LINE(FND_FILE.LOG,'3');
1913:
1914: -- IF PG_DEBUG < 10 THEN
1915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1908: dbms_lob.writeAppend(tempResult, length(l_close_tag), l_close_tag);
1909: print_clob(lob_loc => tempResult);
1910: end if;
1911: -- Fnd_File.PUT_line(FND_FILE.LOG,substr(tempResult,1,length(tempResult)));
1912: FND_FILE.PUT_LINE(FND_FILE.LOG,'3');
1913:
1914: -- IF PG_DEBUG < 10 THEN
1915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1916: IEX_DEBUG_PUB.logMessage('Score_Concur: ' || 'Return status is ' || l_return_status);
1923: ERRBUF := l_msg_data;
1924: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1925: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreConcur: Expected Error ' || sqlerrm);
1926: END IF;
1927: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: ' || sqlerrm);
1928:
1929: WHEN OTHERS THEN
1930: RETCODE := -1;
1931: ERRBUF := l_msg_data;
1931: ERRBUF := l_msg_data;
1932: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1933: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreConcur: Unexpected Error ' || sqlerrm);
1934: END IF;
1935: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: ' || sqlerrm);
1936: END SCORE_CONCUR;
1937:
1938: /*
1939: || Overview: delete rows from IEX_SCORE_HISTORIES to improve performance
2040: END IF;
2041:
2042: /* build where clause */
2043: if P_SCORE_OBJECT_ID IS NOT NULL then
2044: FND_FILE.PUT_LINE(FND_FILE.LOG,P_SCORE_OBJECT_ID);
2045: i:= i + 1;
2046: l_conditions(i).Col_Name := 'SCORE_OBJECT_ID';
2047: l_conditions(i).Condition := '=';
2048: l_conditions(i).Value := P_SCORE_OBJECT_ID;
2047: l_conditions(i).Condition := '=';
2048: l_conditions(i).Value := P_SCORE_OBJECT_ID;
2049: end if;
2050: if P_SCORE_OBJECT_CODE IS NOT NULL then
2051: FND_FILE.PUT_LINE(FND_FILE.LOG,P_SCORE_OBJECT_CODE);
2052: i := i + 1;
2053: l_conditions(i).Col_Name := 'SCORE_OBJECT_CODE';
2054: l_conditions(i).Condition := '=';
2055: l_conditions(i).Value := '''' || P_SCORE_OBJECT_CODE || '''';
2054: l_conditions(i).Condition := '=';
2055: l_conditions(i).Value := '''' || P_SCORE_OBJECT_CODE || '''';
2056: end if;
2057: if P_FROM_DATE IS NOT NULL then
2058: FND_FILE.PUT_LINE(FND_FILE.LOG,TO_CHAR(P_FROM_DATE));
2059: i := i + 1;
2060: l_conditions(i).Col_Name := 'CREATION_DATE';
2061: l_conditions(i).Condition := '>';
2062: -- l_conditions(i).Value := '''' || to_char(P_FROM_DATE) || '''';
2065: l_conditions(i).Value := '''' || to_char(v_FROM_DATE) || '''';
2066: -- end bug 4504193 by ctlee 2005/07/26
2067: end if;
2068: if P_TO_DATE IS NOT NULL then
2069: FND_FILE.PUT_LINE(FND_FILE.LOG,TO_CHAR(P_TO_DATE));
2070: i := i + 1;
2071: l_conditions(i).Col_Name := 'CREATION_DATE';
2072: l_conditions(i).Condition := '<=';
2073: -- l_conditions(i).Value := '''' || to_char(P_TO_DATE) || '''';
2076: l_conditions(i).Value := '''' || to_char(v_TO_DATE) || '''';
2077: -- end bug 4504193 by ctlee 2005/07/26
2078: end if;
2079: if P_REQUEST_ID IS NOT NULL then
2080: FND_FILE.PUT_LINE(FND_FILE.LOG,P_REQUEST_ID);
2081: i := i + 1;
2082: l_conditions(i).Col_Name := 'REQUEST_ID';
2083: l_conditions(i).Condition := '=';
2084: l_conditions(i).Value := P_REQUEST_ID;
2084: l_conditions(i).Value := P_REQUEST_ID;
2085: end if;
2086: --if P_SAVE_LAST_RUN <> 'N' then
2087: if L_SAVE_LAST_RUN <> 'N' then
2088: FND_FILE.PUT_LINE(FND_FILE.LOG,L_SAVE_LAST_RUN);
2089: -- Begin - Andre Araujo - 03/02/2005 - BUG#4198055 - Did not increase the count, causes not found exception
2090: i := i + 1;
2091: l_conditions(i).Col_Name := 'trunc(CREATION_DATE)';
2092: l_conditions(i).Condition := '<>';
2098: end if;
2099: -- added for bug 13335079 pnaveenk
2100:
2101: if P_ORG_ID IS NOT NULL then
2102: FND_FILE.PUT_LINE(FND_FILE.LOG,P_ORG_ID);
2103: i := i + 1;
2104: l_conditions(i).Col_Name := 'ORG_ID';
2105: l_conditions(i).Condition := '=';
2106: l_conditions(i).Value := P_ORG_ID;
2111:
2112: vPLSQL2 := IEX_UTILITIES.buildWhereClause(l_conditions);
2113:
2114: If NVL(p_truncate,'Y') = 'N' then -- fix a bug 5765878 to truncate table to perform better by Ehuh 2.19.2007
2115: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Delete Filter Applied => '|| vPLSQL2);
2116: end if;
2117:
2118: v_del_sql := v_del_sql || VPLSQL2 ;
2119: End If ;
2126: IEX_DEBUG_PUB.logMessage(vPLSQL2);
2127: END IF;
2128:
2129: If NVL(p_truncate,'Y') = 'N' then -- fix a bug 5765878 to truncate table to perform better by Ehuh 2.19.2007
2130: FND_FILE.PUT_LINE(FND_FILE.LOG, 'SELECT SCORE_HISTORY_ID ' ||
2131: ' FROM IEX_SCORE_HISTORIES ' ||
2132: vPLSQL2);
2133: End if;
2134:
2135: vPLSQL := ' SELECT Count(1), Score_object_code ' ||
2136: ' FROM IEX_SCORE_HISTORIES ' ||
2137: 'GROUP BY SCORE_OBJECT_CODE ';
2138:
2139: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2140: FND_FILE.PUT_LINE(FND_FILE.LOG, ' BEFORE PURGE');
2141: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2142: open sql_cur for
2143: vPLSQL;
2136: ' FROM IEX_SCORE_HISTORIES ' ||
2137: 'GROUP BY SCORE_OBJECT_CODE ';
2138:
2139: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2140: FND_FILE.PUT_LINE(FND_FILE.LOG, ' BEFORE PURGE');
2141: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2142: open sql_cur for
2143: vPLSQL;
2144: LOOP
2137: 'GROUP BY SCORE_OBJECT_CODE ';
2138:
2139: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2140: FND_FILE.PUT_LINE(FND_FILE.LOG, ' BEFORE PURGE');
2141: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2142: open sql_cur for
2143: vPLSQL;
2144: LOOP
2145: l_count := 0;
2146: l_object_code := null;
2147: i := i + 1;
2148: fetch sql_cur into l_count, l_object_code;
2149: exit when sql_cur%NOTFOUND;
2150: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OBJECT_CODE: ' || l_object_code || ' OBJECTS: ' || l_count);
2151: v_tot_objects := v_tot_objects + l_count ;
2152: end loop;
2153: close sql_cur;
2154:
2151: v_tot_objects := v_tot_objects + l_count ;
2152: end loop;
2153: close sql_cur;
2154:
2155: FND_FILE.PUT_LINE(FND_FILE.LOG, 'TOTAL OBJECTS IN IEX_SCORE_HISTORIES BEFORE PURGE: ' || v_tot_objects);
2156:
2157: /* do erasing here */
2158: /* Removed by Andre 06/18/2004, we will need to delete in chunks
2159: EXECUTE IMMEDIATE v_del_sql ;
2160: */
2161: -- added for bug 13335079
2162: If NVL(p_truncate,'Y') <> 'N' THEN -- fix a bug 5765878 to truncate table to perform better by Ehuh 2.19.2007
2163:
2164: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Truncating Table => IEX_SCORE_HISTORIES');
2165:
2166: --v_del_sql := 'truncate table '||l_prod||'.IEX_SCORE_HISTORIES'; -- fix a bug 5765878 to truncate table to perform better by Ehuh 2.19.2007
2167: --EXECUTE IMMEDIATE v_del_sql;
2168:
2180: 'IEX_SCORE_HISTORIES' );
2181:
2182: IEX_DEBUG_PUB.LogMessage('Truncated IEX_SCORE_HISTORIES');
2183:
2184: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Truncated IEX_SCORE_HISTORIES');
2185: --Start bug 8605501 gnramasa 20th Oct 09
2186: BEGIN
2187: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Table IEX_SCORE_HISTORIES has been truncated, so will reset the Sequence '||
2188: 'IEX_SCORE_HISTORIES_S value to 10000');
2183:
2184: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Truncated IEX_SCORE_HISTORIES');
2185: --Start bug 8605501 gnramasa 20th Oct 09
2186: BEGIN
2187: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Table IEX_SCORE_HISTORIES has been truncated, so will reset the Sequence '||
2188: 'IEX_SCORE_HISTORIES_S value to 10000');
2189:
2190: -- EXECUTE IMMEDIATE 'ALTER SEQUENCE '||l_prod||'.IEX_SCORE_HISTORIES_S INCREMENT BY -1';
2191: l_sql_stmt := 'ALTER SEQUENCE IEX_SCORE_HISTORIES_S INCREMENT BY -1' ;
2191: l_sql_stmt := 'ALTER SEQUENCE IEX_SCORE_HISTORIES_S INCREMENT BY -1' ;
2192: ad_ddl.do_ddl( l_prod, 'IEX', ad_ddl.alter_sequence, l_sql_stmt,'IEX_SCORE_HISTORIES_S');
2193:
2194: EXECUTE IMMEDIATE 'select IEX_SCORE_HISTORIES_S.NEXTVAL +1 FROM DUAL' into v_num;
2195: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Before altering Sequence IEX_SCORE_HISTORIES_S value is: '|| v_num);
2196:
2197: if v_num <> 10000 then
2198: --EXECUTE IMMEDIATE 'ALTER SEQUENCE '||l_prod||'.IEX_SCORE_HISTORIES_S INCREMENT BY '|| ((v_num -10000)* -1);
2199: l_sql_stmt := 'ALTER SEQUENCE IEX_SCORE_HISTORIES_S INCREMENT BY ' || ((v_num -10000)* -1);
2198: --EXECUTE IMMEDIATE 'ALTER SEQUENCE '||l_prod||'.IEX_SCORE_HISTORIES_S INCREMENT BY '|| ((v_num -10000)* -1);
2199: l_sql_stmt := 'ALTER SEQUENCE IEX_SCORE_HISTORIES_S INCREMENT BY ' || ((v_num -10000)* -1);
2200: ad_ddl.do_ddl( l_prod, 'IEX', ad_ddl.alter_sequence, l_sql_stmt,'IEX_SCORE_HISTORIES_S');
2201: EXECUTE IMMEDIATE 'select IEX_SCORE_HISTORIES_S.NEXTVAL FROM DUAL' into v_num;
2202: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sequence IEX_SCORE_HISTORIES_S value is: 10000');
2203: else
2204: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sequence IEX_SCORE_HISTORIES_S value is already 10000, so no need to change it again');
2205: end if;
2206: --EXECUTE IMMEDIATE 'ALTER SEQUENCE '||l_prod||'.IEX_SCORE_HISTORIES_S INCREMENT BY 1';
2200: ad_ddl.do_ddl( l_prod, 'IEX', ad_ddl.alter_sequence, l_sql_stmt,'IEX_SCORE_HISTORIES_S');
2201: EXECUTE IMMEDIATE 'select IEX_SCORE_HISTORIES_S.NEXTVAL FROM DUAL' into v_num;
2202: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sequence IEX_SCORE_HISTORIES_S value is: 10000');
2203: else
2204: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sequence IEX_SCORE_HISTORIES_S value is already 10000, so no need to change it again');
2205: end if;
2206: --EXECUTE IMMEDIATE 'ALTER SEQUENCE '||l_prod||'.IEX_SCORE_HISTORIES_S INCREMENT BY 1';
2207: l_sql_stmt := 'ALTER SEQUENCE IEX_SCORE_HISTORIES_S INCREMENT BY 1';
2208: ad_ddl.do_ddl( l_prod, 'IEX', ad_ddl.alter_sequence, l_sql_stmt,'IEX_SCORE_HISTORIES_S');
2205: end if;
2206: --EXECUTE IMMEDIATE 'ALTER SEQUENCE '||l_prod||'.IEX_SCORE_HISTORIES_S INCREMENT BY 1';
2207: l_sql_stmt := 'ALTER SEQUENCE IEX_SCORE_HISTORIES_S INCREMENT BY 1';
2208: ad_ddl.do_ddl( l_prod, 'IEX', ad_ddl.alter_sequence, l_sql_stmt,'IEX_SCORE_HISTORIES_S');
2209: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Sequence IEX_SCORE_HISTORIES_S value is set to 10000');
2210: END;
2211: --End bug 8605501 gnramasa 20th Oct 09
2212:
2213: Else -- fix a bug 5765878 to truncate table to perform better by Ehuh 2.19.2007
2224: open sql_cur for vSelectCount;
2225: fetch sql_cur into vLoopCount;
2226: close sql_cur;
2227:
2228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Final delete statement => '|| v_del_sql);
2229: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Deleting => '|| vLoopCount || ' Records');
2230:
2231: loop
2232: EXECUTE IMMEDIATE v_del_sql;
2225: fetch sql_cur into vLoopCount;
2226: close sql_cur;
2227:
2228: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Final delete statement => '|| v_del_sql);
2229: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Deleting => '|| vLoopCount || ' Records');
2230:
2231: loop
2232: EXECUTE IMMEDIATE v_del_sql;
2233: FND_FILE.PUT_LINE(FND_FILE.LOG, 'i => '|| i );
2229: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Deleting => '|| vLoopCount || ' Records');
2230:
2231: loop
2232: EXECUTE IMMEDIATE v_del_sql;
2233: FND_FILE.PUT_LINE(FND_FILE.LOG, 'i => '|| i );
2234: commit;
2235:
2236: i := i + p_batch_size;
2237: exit when i > vLoopCount;
2243: End if; -- fix a bug 5765878 to truncate table to perform better by Ehuh 2.19.2007
2244:
2245: -- End changes, Andre 06/18/2004
2246:
2247: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' AFTER PURGE');
2249: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2250:
2251: l_total := 0;
2244:
2245: -- End changes, Andre 06/18/2004
2246:
2247: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' AFTER PURGE');
2249: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2250:
2251: l_total := 0;
2252: open sql_cur for
2245: -- End changes, Andre 06/18/2004
2246:
2247: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2248: FND_FILE.PUT_LINE(FND_FILE.LOG, ' AFTER PURGE');
2249: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------------------------------------------');
2250:
2251: l_total := 0;
2252: open sql_cur for
2253: vPLSQL;
2256: l_object_code := null;
2257: i := i + 1;
2258: fetch sql_cur into l_count, l_object_code;
2259: exit when sql_cur%NOTFOUND;
2260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OBJECT_CODE: ' || l_object_code || ' OBJECTS: ' || l_count);
2261: end loop;
2262: close sql_cur;
2263:
2264: Begin
2266: From IEX_SCORE_HISTORIES;
2267: Exception When NO_DATA_FOUND Then
2268: l_total := 0;
2269: END;
2270: FND_FILE.PUT_LINE(FND_FILE.LOG, 'TOTAL OBJECTS IN IEX_SCORE_HISTORIES AFTER PURGE: ' || l_total);
2271:
2272: -- IF PG_DEBUG < 10 THEN
2273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2274: IEX_DEBUG_PUB.logMessage('IEX_SCORE: eraseScores: end time:'|| TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
2280: -- IF PG_DEBUG < 10 THEN
2281: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2282: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreConcur: Expected Error ' || sqlerrm );
2283: END IF;
2284: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: ' || sqlerrm);
2285:
2286: WHEN OTHERS THEN
2287: RETCODE := -1;
2288: ERRBUF := l_msg_data;
2289: -- IF PG_DEBUG < 10 THEN
2290: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2291: IEX_DEBUG_PUB.logMessage('IEX_SCORE: scoreConcur: Unexpected Error ' || sqlerrm);
2292: END IF;
2293: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: ' || sqlerrm);
2294: --dbms_output.put_line(sqlerrm);
2295:
2296: END eraseScores;
2297:
2551: WHEN FND_API.G_EXC_ERROR THEN
2552: IF PG_DEBUG < 10 THEN
2553: IEX_DEBUG_PUB.logMessage('IEX_SCORE: storeScoreHistory: Expected Error ' || sqlerrm );
2554: END IF;
2555: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: IEX_SCORE: storeScoreHistory:' || sqlerrm);
2556:
2557: WHEN OTHERS THEN
2558: IF PG_DEBUG < 10 THEN
2559: IEX_DEBUG_PUB.logMessage('IEX_SCORE: storeScoreHistory: UnExpected Error ' || sqlerrm );
2557: WHEN OTHERS THEN
2558: IF PG_DEBUG < 10 THEN
2559: IEX_DEBUG_PUB.logMessage('IEX_SCORE: storeScoreHistory: UnExpected Error ' || sqlerrm );
2560: END IF;
2561: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR: IEX_SCORE: storeScoreHistory: UnExpected Error' || sqlerrm);
2562:
2563: END storeScoreHistory;
2564:
2565: /*
2667: WHEN FND_API.G_EXC_ERROR THEN
2668: IF PG_DEBUG < 10 THEN
2669: IEX_DEBUG_PUB.logMessage('IEX_SCORE: storeDelBuffers: Expected Error ' || sqlerrm );
2670: END IF;
2671: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR:IEX_SCORE: storeDelBuffers: Expected Error ' || sqlerrm);
2672:
2673: WHEN OTHERS THEN
2674: IF PG_DEBUG < 10 THEN
2675: IEX_DEBUG_PUB.logMessage('IEX_SCORE: storeDelBuffers: UnExpected Error ' || sqlerrm );
2673: WHEN OTHERS THEN
2674: IF PG_DEBUG < 10 THEN
2675: IEX_DEBUG_PUB.logMessage('IEX_SCORE: storeDelBuffers: UnExpected Error ' || sqlerrm );
2676: END IF;
2677: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR:IEX_SCORE: storeDelBuffers: UnExpected Error ' || sqlerrm);
2678:
2679: END storeDelBuffers;
2680:
2681:
2744: l_score_component_sql := p_score_comp_tbl(l_count2).SCORE_COMP_VALUE;
2745: l_execute_style := p_score_comp_tbl(l_count2).function_flag;
2746: -- initialize this to the minimum for any given component
2747: --l_raw_score := IEX_SCORE_PVT.G_MIN_SCORE;
2748: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_cnt-->'||p_score_comp_tbl.count);
2749: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_val-->'|| p_score_comp_tbl(l_count2).SCORE_COMP_VALUE);
2750: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_id-->'|| p_score_comp_tbl(l_count2).score_component_id);
2751:
2752:
2745: l_execute_style := p_score_comp_tbl(l_count2).function_flag;
2746: -- initialize this to the minimum for any given component
2747: --l_raw_score := IEX_SCORE_PVT.G_MIN_SCORE;
2748: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_cnt-->'||p_score_comp_tbl.count);
2749: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_val-->'|| p_score_comp_tbl(l_count2).SCORE_COMP_VALUE);
2750: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_id-->'|| p_score_comp_tbl(l_count2).score_component_id);
2751:
2752:
2753: if PG_DEBUG <= 5 then
2746: -- initialize this to the minimum for any given component
2747: --l_raw_score := IEX_SCORE_PVT.G_MIN_SCORE;
2748: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_cnt-->'||p_score_comp_tbl.count);
2749: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_val-->'|| p_score_comp_tbl(l_count2).SCORE_COMP_VALUE);
2750: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'score_comp_id-->'|| p_score_comp_tbl(l_count2).score_component_id);
2751:
2752:
2753: if PG_DEBUG <= 5 then
2754: IEX_DEBUG_PUB.logMessage('IEX_SCORE: get1Score: executing Component ' || l_count2 ||
2813: l_component_range_tbl.delete;
2814: -- Begin - Andre Araujo - 12/17/2004 - If the detail is not defined this throws a NO DATA FOUND
2815: EXCEPTION
2816: WHEN OTHERS THEN -- This will capture the exception from the component detail
2817: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: get1Score: Exception selecting '||
2818: 'component detail range: WRONG ENGINE CONFIGURATION!!!!!');
2819: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: get1Score: Score will be 1 - Execution will continue.');
2820: l_component_score := 1;
2821: END;
2815: EXCEPTION
2816: WHEN OTHERS THEN -- This will capture the exception from the component detail
2817: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: get1Score: Exception selecting '||
2818: 'component detail range: WRONG ENGINE CONFIGURATION!!!!!');
2819: FND_FILE.PUT_LINE(FND_FILE.LOG, 'IEX_SCORE: get1Score: Score will be 1 - Execution will continue.');
2820: l_component_score := 1;
2821: END;
2822: -- End - Andre Araujo - 12/17/2004 - If the detail is not defined this throws a NO DATA FOUND
2823: END; -- end for exception
2856: l_xml_body_1:=l_xml_body_1||l_new_line||'
2857: l_xml_body_1:=l_xml_body_1||l_new_line||'
2858: exception
2859: when others then
2860: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in get1score in getting score component details'||sqlerrm);
2861: IEX_DEBUG_PUB.logMessage('error in get1score in getting score component details'||sqlerrm);
2862: end;
2863: --End Bug 8933776 30-Nov-2009 barathsr
2864: /* 4. For each component value, get the details of the component
2937: l_xml_body_1:=l_xml_body_1||l_new_line||'';
2938: dbms_lob.writeAppend(tempResult, length(l_xml_body_1), l_xml_body_1);
2939: --End Bug 8933776 30-Nov-2009 barathsr
2940:
2941: -- FND_FILE.put_line( FND_FILE.LOG,'*****end of score details************');
2942:
2943: -- END clchang added 10/18/04 for scr engine enhancement in 11.5.11
2944:
2945: --l_running_score:=l_running_score + round((l_raw_score * p_score_comp_tbl(l_count2).SCORE_COMP_WEIGHT));
2974: WHEN FND_API.G_EXC_ERROR THEN
2975: IF PG_DEBUG < 10 THEN
2976: IEX_DEBUG_PUB.logMessage('IEX_SCORE: get1Score: Expected Error ' || sqlerrm );
2977: END IF;
2978: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR:IEX_SCORE: get1Score: Expected Error ' || sqlerrm);
2979:
2980: WHEN OTHERS THEN
2981: IF PG_DEBUG < 10 THEN
2982: IEX_DEBUG_PUB.logMessage('IEX_SCORE: get1Score: UnExpected Error ' || sqlerrm );
2980: WHEN OTHERS THEN
2981: IF PG_DEBUG < 10 THEN
2982: IEX_DEBUG_PUB.logMessage('IEX_SCORE: get1Score: UnExpected Error ' || sqlerrm );
2983: END IF;
2984: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR:IEX_SCORE: get1Score: UnExpected Error ' || sqlerrm);
2985:
2986: END get1Score;
2987:
2988: --
3024: end if;
3025: exception
3026: when others then
3027: return '1';
3028: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN CONCUR:IEX_SCORE: getComponentScore: UnExpected Error ' || sqlerrm);
3029: end;
3030:
3031: --End Bug 10354240 27-Sep-2010 barathsr
3032: