1: PACKAGE BODY IEM_THEMES_PVT as
2: /* $Header: iemptheb.pls 115.14 2003/08/26 23:42:00 sboorela shipped $*/
3: /* Fixed Bug 1339163 kbeagle on 11/29/00 Dup theme error when updating score */
4: /* 08/14/01 chtang added create_item_wrap_sss() for 11.5.6 */
5: /* 05/07/02 chtang added update last_update_date of keyword in calculate_weight */
4: /* 08/14/01 chtang added create_item_wrap_sss() for 11.5.6 */
5: /* 05/07/02 chtang added update last_update_date of keyword in calculate_weight */
6: /* 10/15/02 chtang added update last_update_date of intent in calculate_weight */
7: /*****************************************************************************/
8: G_PKG_NAME CONSTANT varchar2(30) :='IEM_THEMES_PVT ';
9:
10:
11: PROCEDURE create_item (p_api_version_number IN NUMBER,
12: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
382: IF (l_cnt > 0 ) then
383: raise IEM_DUPLICATE_THEME;
384: end if;
385:
386: IEM_THEMES_PVT.create_item(
387: p_api_version_number =>p_api_version_number,
388: p_init_msg_list => p_init_msg_list,
389: p_commit => p_commit,
390: p_score => p_score,
513: IF (l_cnt > 0 ) then
514: raise IEM_DUPLICATE_THEME;
515: end if;
516:
517: IEM_THEMES_PVT.create_item(
518: p_api_version_number =>p_api_version_number,
519: p_init_msg_list => p_init_msg_list,
520: p_commit => p_commit,
521: p_score => p_score,
737: not in (select account_intent_doc_id from iem_theme_docs);
738: select email_account_id into l_email_account_id
739: from iem_classifications
740: where classification_id=l_class_id;
741: iem_themes_pvt.calculate_weight (l_email_account_id,
742: 'Q' ,
743: l_status );
744: iem_themes_pvt.calculate_weight (l_email_account_id,
745: 'R' ,
740: where classification_id=l_class_id;
741: iem_themes_pvt.calculate_weight (l_email_account_id,
742: 'Q' ,
743: l_status );
744: iem_themes_pvt.calculate_weight (l_email_account_id,
745: 'R' ,
746: l_status );
747:
748: IF SQL%NOTFOUND THEN
848: SELECT COUNT(*) INTO l_cnt from IEM_THEMES WHERE classification_id=p_classification_id and theme=l_theme2 and query_response=p_query_response and NOT theme_id=p_theme_id;
849: IF (l_cnt > 0 ) then
850: raise IEM_DUPLICATE_THEME;
851: end if;
852: IEM_THEMES_PVT.update_item(
853: p_api_version_number =>p_api_version_number,
854: p_init_msg_list => p_init_msg_list,
855: p_commit => p_commit,
856: p_theme_id => p_theme_id,
1019: raise DOC_EXCEP;
1020: END IF;
1021: END IF;
1022: -- Recalculation of Theme Weight
1023: iem_themes_pvt.calculate_weight (l_email_account_id,
1024: p_query_response ,
1025: l_status );
1026: x_return_status:=l_status;
1027: EXCEPTION WHEN DOC_EXCEP THEN
1125: -- End Of Normalised the score using RMS
1126: EXCEPTION WHEN OTHERS THEN
1127: x_return_status:='E';
1128: END;
1129: END IEM_THEMES_PVT;