DBA Data[Home] [Help]

APPS.IEX_SCORE_NEW_PVT dependencies on IEX_SCORE_NEW_PVT

Line 1: PACKAGE BODY IEX_SCORE_NEW_PVT AS

1: PACKAGE BODY IEX_SCORE_NEW_PVT AS
2: /* $Header: iexvscfb.pls 120.41.12020000.3 2013/03/04 08:28:58 sunagesh ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_SCORE_NEW_PVT';

Line 5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_SCORE_NEW_PVT';

1: PACKAGE BODY IEX_SCORE_NEW_PVT AS
2: /* $Header: iexvscfb.pls 120.41.12020000.3 2013/03/04 08:28:58 sunagesh ship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_SCORE_NEW_PVT';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvscfb.pls';
7: --G_Debug_Level NUMBER := to_number(nvl(fnd_profile.value('IEX_DEBUG_LEVEL'), '0'));
8: G_Batch_Size NUMBER ;
9: PG_DEBUG NUMBER ;

Line 280: NVL(SCORE_RANGE_LOW, IEX_SCORE_NEW_PVT.G_MIN_SCORE),

276: IS
277:
278: CURSOR c_chk_range(p_score_id NUMBER) IS
279: SELECT NVL(WEIGHT_REQUIRED, 'N'),
280: NVL(SCORE_RANGE_LOW, IEX_SCORE_NEW_PVT.G_MIN_SCORE),
281: NVL(SCORE_RANGE_HIGH, IEX_SCORE_NEW_PVT.G_MAX_SCORE),
282: NVL(OUT_OF_RANGE_RULE, IEX_SCORE_NEW_PVT.G_RULE)
283: FROM IEX_SCORES
284: WHERE SCORE_ID = p_score_id;

Line 281: NVL(SCORE_RANGE_HIGH, IEX_SCORE_NEW_PVT.G_MAX_SCORE),

277:
278: CURSOR c_chk_range(p_score_id NUMBER) IS
279: SELECT NVL(WEIGHT_REQUIRED, 'N'),
280: NVL(SCORE_RANGE_LOW, IEX_SCORE_NEW_PVT.G_MIN_SCORE),
281: NVL(SCORE_RANGE_HIGH, IEX_SCORE_NEW_PVT.G_MAX_SCORE),
282: NVL(OUT_OF_RANGE_RULE, IEX_SCORE_NEW_PVT.G_RULE)
283: FROM IEX_SCORES
284: WHERE SCORE_ID = p_score_id;
285:

Line 282: NVL(OUT_OF_RANGE_RULE, IEX_SCORE_NEW_PVT.G_RULE)

278: CURSOR c_chk_range(p_score_id NUMBER) IS
279: SELECT NVL(WEIGHT_REQUIRED, 'N'),
280: NVL(SCORE_RANGE_LOW, IEX_SCORE_NEW_PVT.G_MIN_SCORE),
281: NVL(SCORE_RANGE_HIGH, IEX_SCORE_NEW_PVT.G_MAX_SCORE),
282: NVL(OUT_OF_RANGE_RULE, IEX_SCORE_NEW_PVT.G_RULE)
283: FROM IEX_SCORES
284: WHERE SCORE_ID = p_score_id;
285:
286: l_weight_required VARCHAR2(3);

Line 309: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;

305: WHEN NO_DATA_FOUND THEN
306: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
307: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting score range: ' || sqlerrm);
308: END IF;
309: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
310: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
311: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
312: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
313: WHEN OTHERS THEN

Line 310: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;

306: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
307: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting score range: ' || sqlerrm);
308: END IF;
309: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
310: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
311: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
312: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
313: WHEN OTHERS THEN
314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 311: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;

307: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting score range: ' || sqlerrm);
308: END IF;
309: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
310: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
311: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
312: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
313: WHEN OTHERS THEN
314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
315: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting scr range: ' || sqlerrm);

Line 312: l_rule := IEX_SCORE_NEW_PVT.G_RULE;

308: END IF;
309: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
310: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
311: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
312: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
313: WHEN OTHERS THEN
314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
315: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting scr range: ' || sqlerrm);
316: END IF;

Line 317: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;

313: WHEN OTHERS THEN
314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
315: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting scr range: ' || sqlerrm);
316: END IF;
317: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
318: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
319: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
320: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
321: END;

Line 318: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;

314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
315: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting scr range: ' || sqlerrm);
316: END IF;
317: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
318: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
319: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
320: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
321: END;
322:

Line 319: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;

315: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: Error getting scr range: ' || sqlerrm);
316: END IF;
317: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
318: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
319: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
320: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
321: END;
322:
323: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 320: l_rule := IEX_SCORE_NEW_PVT.G_RULE;

316: END IF;
317: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
318: l_low := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
319: l_high := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
320: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
321: END;
322:
323: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
324: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: weight:' || l_weight_required);

Line 330: IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED := l_weight_required;

326: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: high:' || l_high);
327: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: rule:' || l_rule);
328: END IF;
329:
330: IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED := l_weight_required;
331: IEX_SCORE_NEW_PVT.G_MIN_SCORE := l_low;
332: IEX_SCORE_NEW_PVT.G_MAX_SCORE := l_high;
333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;
334:

Line 331: IEX_SCORE_NEW_PVT.G_MIN_SCORE := l_low;

327: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: rule:' || l_rule);
328: END IF;
329:
330: IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED := l_weight_required;
331: IEX_SCORE_NEW_PVT.G_MIN_SCORE := l_low;
332: IEX_SCORE_NEW_PVT.G_MAX_SCORE := l_high;
333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;
334:
335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 332: IEX_SCORE_NEW_PVT.G_MAX_SCORE := l_high;

328: END IF;
329:
330: IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED := l_weight_required;
331: IEX_SCORE_NEW_PVT.G_MIN_SCORE := l_low;
332: IEX_SCORE_NEW_PVT.G_MAX_SCORE := l_high;
333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;
334:
335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);

Line 333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;

329:
330: IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED := l_weight_required;
331: IEX_SCORE_NEW_PVT.G_MIN_SCORE := l_low;
332: IEX_SCORE_NEW_PVT.G_MAX_SCORE := l_high;
333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;
334:
335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);
337: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_low:' || IEX_SCORE_NEW_PVT.G_MIN_SCORE);

Line 336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);

332: IEX_SCORE_NEW_PVT.G_MAX_SCORE := l_high;
333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;
334:
335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);
337: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_low:' || IEX_SCORE_NEW_PVT.G_MIN_SCORE);
338: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_high:' || IEX_SCORE_NEW_PVT.G_MAX_SCORE);
339: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_rule:' || IEX_SCORE_NEW_PVT.G_RULE);
340: END IF;

Line 337: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_low:' || IEX_SCORE_NEW_PVT.G_MIN_SCORE);

333: IEX_SCORE_NEW_PVT.G_RULE := l_rule;
334:
335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);
337: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_low:' || IEX_SCORE_NEW_PVT.G_MIN_SCORE);
338: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_high:' || IEX_SCORE_NEW_PVT.G_MAX_SCORE);
339: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_rule:' || IEX_SCORE_NEW_PVT.G_RULE);
340: END IF;
341:

Line 338: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_high:' || IEX_SCORE_NEW_PVT.G_MAX_SCORE);

334:
335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);
337: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_low:' || IEX_SCORE_NEW_PVT.G_MIN_SCORE);
338: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_high:' || IEX_SCORE_NEW_PVT.G_MAX_SCORE);
339: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_rule:' || IEX_SCORE_NEW_PVT.G_RULE);
340: END IF;
341:
342: END getScoreRange;

Line 339: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_rule:' || IEX_SCORE_NEW_PVT.G_RULE);

335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
336: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_weight:' || IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED);
337: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_low:' || IEX_SCORE_NEW_PVT.G_MIN_SCORE);
338: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_high:' || IEX_SCORE_NEW_PVT.G_MAX_SCORE);
339: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScoreRange: g_rule:' || IEX_SCORE_NEW_PVT.G_RULE);
340: END IF;
341:
342: END getScoreRange;
343:

Line 370: X_SCORE_COMP_TBL OUT NOCOPY IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL)

366: || in 11.5.11.
367: || 1. new column METRIC_FLAG in iex_score_components
368: */
369: PROCEDURE getComponents(P_SCORE_ID IN NUMBER,
370: X_SCORE_COMP_TBL OUT NOCOPY IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL)
371: IS
372:
373: -- clchang updated the cursor 10/18/04 with metric_flag;
374: --

Line 389: l_score_comp_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL;

385: AND NVL(METRIC_FLAG, 'N') = 'N'
386: order by score_component_id;
387:
388:
389: l_score_comp_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL;
390: i NUMBER := 0;
391: l_score_comp_id NUMBER;
392: l_score_component_weight NUMBER(3,2);
393: l_score_comp_value VARCHAR2(2000);

Line 471: procedure getScores(p_score_comp_tbl IN IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL,

467: ||
468: || 11/02/04 acaraujo x_scores_tbl returns the bridge to the next concurrent prog.
469: || and scores are store as per the G_BATCH_SIZE to the history table
470: */
471: procedure getScores(p_score_comp_tbl IN IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL,
472: t_object_ids IN IEX_FILTER_PUB.UNIVERSE_IDS,
473: x_scores_tbl OUT NOCOPY IEX_SCORE_NEW_PVT.SCORES_TBL)
474: IS
475:

Line 473: x_scores_tbl OUT NOCOPY IEX_SCORE_NEW_PVT.SCORES_TBL)

469: || and scores are store as per the G_BATCH_SIZE to the history table
470: */
471: procedure getScores(p_score_comp_tbl IN IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL,
472: t_object_ids IN IEX_FILTER_PUB.UNIVERSE_IDS,
473: x_scores_tbl OUT NOCOPY IEX_SCORE_NEW_PVT.SCORES_TBL)
474: IS
475:
476: l_api_name varchar2(10) ;
477: l_universe_size number := 0;

Line 485: --l_raw_score number := IEX_SCORE_NEW_PVT.G_MIN_SCORE;

481: l_weight_required VARCHAR2(3);
482: l_low varchar2(2000);
483: l_high varchar2(2000);
484: l_rule varchar2(20);
485: --l_raw_score number := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
486: l_raw_score number := 0;
487: l_value VARCHAR2(2000);
488: l_new_value VARCHAR2(2000);
489:

Line 493: l_score_comp_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL ;

489:
490: l_running_score number := 0;
491: l_component_score number := 0;
492: l_count2 number := 0;
493: l_score_comp_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL ;
494: l_score_component_id NUMBER;
495: l_score_component_sql VARCHAR2(2500);
496: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL;
497: vSql varchar2(2500);

Line 496: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL;

492: l_count2 number := 0;
493: l_score_comp_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL ;
494: l_score_component_id NUMBER;
495: l_score_component_sql VARCHAR2(2500);
496: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL;
497: vSql varchar2(2500);
498:
499: type COMPONENT_RANGE is table of NUMBER
500: index by binary_integer;

Line 506: l_new_scores_tbl IEX_SCORE_NEW_PVT.NEW_SCORES_TBL ;

502: i NUMBER := 0;
503: l_execute_style VARCHAR2(1); -- are we using select or function call
504:
505: --- Begin - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
506: l_new_scores_tbl IEX_SCORE_NEW_PVT.NEW_SCORES_TBL ;
507: l_objects_tbl IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL ;
508: l_scorecount number := 0;
509: l_bridge NUMBER;
510: --- End - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994

Line 507: l_objects_tbl IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL ;

503: l_execute_style VARCHAR2(1); -- are we using select or function call
504:
505: --- Begin - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
506: l_new_scores_tbl IEX_SCORE_NEW_PVT.NEW_SCORES_TBL ;
507: l_objects_tbl IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL ;
508: l_scorecount number := 0;
509: l_bridge NUMBER;
510: --- End - Andre Araujo - 11/02/2004 - New storage mode, this one respects the commit size - TAR 4040621.994
511:

Line 785: -- l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;

781: -- IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScores: l_raw_score=' || l_raw_score);
782: -- END IF;
783: --
784: --
785: -- l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
786: --
787: -- -- if weight_required <> Y, sum(score of each comp);
788: -- IF (l_weight_required = 'Y') THEN
789: -- --l_running_score:=l_running_score + round((l_raw_score * l_score_comp_tbl(l_count2).SCORE_COMP_WEIGHT));

Line 831: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then

827: -- clchang updated the score logic
828: /***************
829: -- if the score value falls above or below the hard coded floor / ceiling we will force the score
830: -- to the floor or ceiling
831: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
832: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
833: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
834: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
835: end if;

Line 832: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;

828: /***************
829: -- if the score value falls above or below the hard coded floor / ceiling we will force the score
830: -- to the floor or ceiling
831: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
832: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
833: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
834: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
835: end if;
836: *******************************************/

Line 833: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then

829: -- if the score value falls above or below the hard coded floor / ceiling we will force the score
830: -- to the floor or ceiling
831: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
832: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
833: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
834: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
835: end if;
836: *******************************************/
837:

Line 834: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;

830: -- to the floor or ceiling
831: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
832: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
833: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
834: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
835: end if;
836: *******************************************/
837:
838: /*********************

Line 852: l_rule := IEX_SCORE_NEW_PVT.G_RULE;

848: * if the rule is farthest, then the final score should be 999;
849: ***********************************************************************/
850:
851: -- get the final score
852: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
853: IF (l_rule = 'CLOSEST') THEN
854: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
855: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then

Line 854: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then

850:
851: -- get the final score
852: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
853: IF (l_rule = 'CLOSEST') THEN
854: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
855: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
858: end if;

Line 855: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;

851: -- get the final score
852: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
853: IF (l_rule = 'CLOSEST') THEN
854: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
855: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
858: end if;
859: ELSE

Line 856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then

852: l_rule := IEX_SCORE_NEW_PVT.G_RULE;
853: IF (l_rule = 'CLOSEST') THEN
854: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
855: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
858: end if;
859: ELSE
860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then

Line 857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;

853: IF (l_rule = 'CLOSEST') THEN
854: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
855: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
858: end if;
859: ELSE
860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
861: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;

Line 860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then

856: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
858: end if;
859: ELSE
860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
861: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
862: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
863: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
864: end if;

Line 861: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;

857: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
858: end if;
859: ELSE
860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
861: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
862: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
863: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
864: end if;
865: END IF;

Line 862: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then

858: end if;
859: ELSE
860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
861: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
862: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
863: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
864: end if;
865: END IF;
866: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 863: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;

859: ELSE
860: if l_running_score < IEX_SCORE_NEW_PVT.G_MIN_SCORE then
861: l_running_score := IEX_SCORE_NEW_PVT.G_MAX_SCORE;
862: elsif l_running_score > IEX_SCORE_NEW_PVT.G_MAX_SCORE then
863: l_running_score := IEX_SCORE_NEW_PVT.G_MIN_SCORE;
864: end if;
865: END IF;
866: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
867: IEX_DEBUG_PUB.logMessage('IEX_SCORE: getScores: score:' || l_running_score);

Line 1012: l_components_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL;-- for testGetComponents / testGetScores

1008: l_msg_data VARCHAR2(32767);
1009:
1010: --vPLSQL varchar2(5000);
1011: l_universe IEX_FILTER_PUB.UNIVERSE_IDS; -- for TestUniverse / testGetScores
1012: l_components_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL;-- for testGetComponents / testGetScores
1013: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL; -- fore testGetScores
1014: b_valid BOOLEAN;
1015: -- l_object_type VARCHAR2(25);
1016: l_universe_size NUMBER := 0;

Line 1013: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL; -- fore testGetScores

1009:
1010: --vPLSQL varchar2(5000);
1011: l_universe IEX_FILTER_PUB.UNIVERSE_IDS; -- for TestUniverse / testGetScores
1012: l_components_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL;-- for testGetComponents / testGetScores
1013: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL; -- fore testGetScores
1014: b_valid BOOLEAN;
1015: -- l_object_type VARCHAR2(25);
1016: l_universe_size NUMBER := 0;
1017: l_conc_prog_name VARCHAR2(1000);

Line 1045: l_sc_range_low IEX_SCORE_NEW_PVT.SCORES_TBL;

1041: l_score_comp_name varchar2(100);
1042: l_function_flg varchar2(10);
1043: l_score_comp_wgt number;
1044: l_score_comp_id number;
1045: l_sc_range_low IEX_SCORE_NEW_PVT.SCORES_TBL;
1046: l_sc_range_high IEX_SCORE_NEW_PVT.SCORES_TBL;
1047: l_sc_val IEX_SCORE_NEW_PVT.SCORES_TBL;
1048: l_cnt number;
1049: l_score_comp_val varchar2(5000);

Line 1046: l_sc_range_high IEX_SCORE_NEW_PVT.SCORES_TBL;

1042: l_function_flg varchar2(10);
1043: l_score_comp_wgt number;
1044: l_score_comp_id number;
1045: l_sc_range_low IEX_SCORE_NEW_PVT.SCORES_TBL;
1046: l_sc_range_high IEX_SCORE_NEW_PVT.SCORES_TBL;
1047: l_sc_val IEX_SCORE_NEW_PVT.SCORES_TBL;
1048: l_cnt number;
1049: l_score_comp_val varchar2(5000);
1050: --End Bug 8933776 30-Nov-2009 barathsr

Line 1047: l_sc_val IEX_SCORE_NEW_PVT.SCORES_TBL;

1043: l_score_comp_wgt number;
1044: l_score_comp_id number;
1045: l_sc_range_low IEX_SCORE_NEW_PVT.SCORES_TBL;
1046: l_sc_range_high IEX_SCORE_NEW_PVT.SCORES_TBL;
1047: l_sc_val IEX_SCORE_NEW_PVT.SCORES_TBL;
1048: l_cnt number;
1049: l_score_comp_val varchar2(5000);
1050: --End Bug 8933776 30-Nov-2009 barathsr
1051:

Line 1157: iex_score_new_pvt.getComponents(p_score_id => p_score_id ,

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
1157: iex_score_new_pvt.getComponents(p_score_id => p_score_id ,
1158: X_SCORE_COMP_TBL => l_components_tbl);
1159:
1160: if l_components_tbl is null or l_components_tbl.count < 1 then
1161: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1341: iex_score_new_pvt.getScoreRange(p_score_id => p_score_id );

1337:
1338: -- begin clchang added 10/20/04 for 11.5.11 score engine enhancement
1339: -- get the score_range_low, score_range_high, out_of_range_rule, and
1340: -- weight_required of this given score engine;
1341: iex_score_new_pvt.getScoreRange(p_score_id => p_score_id );
1342: -- if weight_required is Y, then chk weight of each comp is null or not;
1343: IF (IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED = 'Y') Then
1344: FOR i in 1..l_components_tbl.count
1345: LOOP

Line 1343: IF (IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED = 'Y') Then

1339: -- get the score_range_low, score_range_high, out_of_range_rule, and
1340: -- weight_required of this given score engine;
1341: iex_score_new_pvt.getScoreRange(p_score_id => p_score_id );
1342: -- if weight_required is Y, then chk weight of each comp is null or not;
1343: IF (IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED = 'Y') Then
1344: FOR i in 1..l_components_tbl.count
1345: LOOP
1346: if (l_components_tbl(i).score_comp_weight is null) then
1347: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1368: iex_score_new_pvt.getScores(p_score_comp_tbl => l_components_tbl,

1364: -- l_xml_body:=l_xml_body||l_new_line||'';
1365: dbms_lob.writeAppend(tempResult, length(l_xml_body), l_xml_body);
1366: end if;
1367: --End Bug 8933776 30-Nov-2009 barathsr
1368: iex_score_new_pvt.getScores(p_score_comp_tbl => l_components_tbl,
1369: t_object_ids => l_universe,
1370: x_scores_tbl => l_scores_tbl);
1371: --l_xml_body:=l_new_line||'
';
1372: end loop;

Line 1568: l_components_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL; -- for testGetComponents / testGetScores

1564:
1565: IS
1566: --vPLSQL varchar2(5000);
1567: l_universe IEX_FILTER_PUB.UNIVERSE_IDS; -- for TestUniverse / testGetScores
1568: l_components_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL; -- for testGetComponents / testGetScores
1569:
1570: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL; -- fore testGetScores
1571: l_score_id number ;
1572: l_object_type varchar2(25) ;

Line 1570: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL; -- fore testGetScores

1566: --vPLSQL varchar2(5000);
1567: l_universe IEX_FILTER_PUB.UNIVERSE_IDS; -- for TestUniverse / testGetScores
1568: l_components_tbl IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL; -- for testGetComponents / testGetScores
1569:
1570: l_scores_tbl IEX_SCORE_NEW_PVT.SCORES_TBL; -- fore testGetScores
1571: l_score_id number ;
1572: l_object_type varchar2(25) ;
1573: b_valid boolean;
1574:

Line 1589: b_valid := iex_score_new_pvt.checkObject_Compatibility(p_score_id => l_score_id ,

1585: FND_MSG_PUB.Add;
1586: return -1;
1587: end if;
1588:
1589: b_valid := iex_score_new_pvt.checkObject_Compatibility(p_score_id => l_score_id ,
1590: p_object_type => l_object_type);
1591: if not b_Valid then
1592: FND_MESSAGE.Set_Name('IEX', 'IEX_INVALID_SCORING_ENGINE');
1593: FND_MSG_PUB.Add;

Line 1597: IEX_SCORE_NEW_PVT.getCOMPONENTS(p_score_id => l_score_id,

1593: FND_MSG_PUB.Add;
1594: return -1;
1595: end if;
1596:
1597: IEX_SCORE_NEW_PVT.getCOMPONENTS(p_score_id => l_score_id,
1598: x_score_comp_tbl => l_components_tbl);
1599:
1600: -- in case of singular object scoring we can ignore universe?
1601: l_universe(1) := p_object_id;

Line 1608: -- iex_score_new_pvt.getScores(p_score_comp_tbl => l_components_tbl,

1604:
1605: l_scores_tbl(1) := get1Score( l_components_tbl, p_object_id );
1606:
1607: return l_scores_tbl(1);
1608: -- iex_score_new_pvt.getScores(p_score_comp_tbl => l_components_tbl,
1609: -- t_object_ids => l_universe,
1610: -- x_scores_tbl => l_scores_tbl);
1611: --
1612: -- if (l_scores_tbl is not null) and (l_scores_tbl.count > 0) then

Line 1841: IEX_SCORE_NEW_PVT.scoreObjects(p_api_version => 1.0,

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,
1843: p_commit => FND_API.G_TRUE,
1844: x_return_status => l_return_status,
1845: x_msg_count => l_msg_count,

Line 2325: p_score_id IN NUMBER ) return IEX_SCORE_NEW_PVT.SCORE_HISTORY_TBL

2321: function getScoreHistory (p_score_object_id IN NUMBER,
2322: p_score_object_code IN VARCHAR2,
2323: p_from_date IN DATE ,
2324: p_to_date IN DATE ,
2325: p_score_id IN NUMBER ) return IEX_SCORE_NEW_PVT.SCORE_HISTORY_TBL
2326: IS
2327:
2328: l_score_hist_tbl IEX_SCORE_NEW_PVT.SCORE_HISTORY_TBL;
2329: vPLSQL VARCHAR2(200);

Line 2328: l_score_hist_tbl IEX_SCORE_NEW_PVT.SCORE_HISTORY_TBL;

2324: p_to_date IN DATE ,
2325: p_score_id IN NUMBER ) return IEX_SCORE_NEW_PVT.SCORE_HISTORY_TBL
2326: IS
2327:
2328: l_score_hist_tbl IEX_SCORE_NEW_PVT.SCORE_HISTORY_TBL;
2329: vPLSQL VARCHAR2(200);
2330: l_total NUMBER(38) ;
2331: i NUMBER ;
2332: j NUMBER ;

Line 2467: p_objects_tbl IN IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL,

2463: || Major Modifications: when who what
2464: ||
2465: */
2466: procedure storeScoreHistory ( p_score_id IN NUMBER default null,
2467: p_objects_tbl IN IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL,
2468: p_scores_tbl IN IEX_SCORE_NEW_PVT.NEW_SCORES_TBL)
2469: IS
2470:
2471: i NUMBER := 1;

Line 2468: p_scores_tbl IN IEX_SCORE_NEW_PVT.NEW_SCORES_TBL)

2464: ||
2465: */
2466: procedure storeScoreHistory ( p_score_id IN NUMBER default null,
2467: p_objects_tbl IN IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL,
2468: p_scores_tbl IN IEX_SCORE_NEW_PVT.NEW_SCORES_TBL)
2469: IS
2470:
2471: i NUMBER := 1;
2472: n NUMBER := 1;

Line 2583: p_objects_tbl IN IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL,

2579: || Major Modifications: when who what
2580: ||
2581: */
2582: procedure storeDelBuffers ( p_score_id IN NUMBER default null,
2583: p_objects_tbl IN IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL,
2584: p_scores_tbl IN IEX_SCORE_NEW_PVT.NEW_SCORES_TBL,
2585: p_bridge IN NUMBER default null)
2586: IS
2587: i NUMBER := 1;

Line 2584: p_scores_tbl IN IEX_SCORE_NEW_PVT.NEW_SCORES_TBL,

2580: ||
2581: */
2582: procedure storeDelBuffers ( p_score_id IN NUMBER default null,
2583: p_objects_tbl IN IEX_SCORE_NEW_PVT.SCORE_OBJECTS_TBL,
2584: p_scores_tbl IN IEX_SCORE_NEW_PVT.NEW_SCORES_TBL,
2585: p_bridge IN NUMBER default null)
2586: IS
2587: i NUMBER := 1;
2588: n NUMBER := 1;

Line 2699: function get1Score ( p_score_comp_tbl IN IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL, p_object_id IN NUMBER ) return NUMBER

2695: ||
2696: || Major Modifications: when who what
2697: ||
2698: */
2699: function get1Score ( p_score_comp_tbl IN IEX_SCORE_NEW_PVT.SCORE_ENG_COMP_TBL, p_object_id IN NUMBER ) return NUMBER
2700: IS
2701:
2702: l_score_component_id NUMBER;
2703: l_score_component_sql VARCHAR2(2500);

Line 2920: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;

2916: END IF;
2917:
2918: l_xml_body_1:=l_xml_body_1||l_new_line||''||l_raw_score||'';--Added for Bug 8933776 30-Nov-2009 barathsr
2919:
2920: l_weight_required := IEX_SCORE_NEW_PVT.G_WEIGHT_REQUIRED;
2921:
2922: -- if weight_required <> Y, sum(score of each comp);
2923: IF (l_weight_required = 'Y') THEN
2924: --l_running_score:=l_running_score + round((l_raw_score * l_score_comp_tbl(l_count2).SCORE_COMP_WEIGHT));

Line 3045: END IEX_SCORE_NEW_PVT;

3041: G_RULE := 'CLOSEST';
3042: G_WEIGHT_REQUIRED := 'N';
3043:
3044:
3045: END IEX_SCORE_NEW_PVT;