[Home] [Help]
1: PACKAGE BODY IEM_TEXT_PVT as
2: /* $Header: iemtextb.pls 120.12.12010000.2 2009/08/10 09:18:18 sanjrao ship $*/
3:
4: PROCEDURE GetThemes(p_message_id IN number,
5: p_part_id in number,
2: /* $Header: iemtextb.pls 120.12.12010000.2 2009/08/10 09:18:18 sanjrao ship $*/
3:
4: PROCEDURE GetThemes(p_message_id IN number,
5: p_part_id in number,
6: xbuf OUT NOCOPY iem_text_pvt.theme_Table,
7: errtext OUT NOCOPY VARCHAR2) IS
8: l_part_id number;
9: TYPE theme_type is TABLE OF iem_imt_keywords.keyword%type;
10: TYPE score_type is TABLE OF iem_imt_keywords.weight%type;
32: xbuf(l_count).theme:=v_theme.keyword;
33: xbuf(l_count).weight:=v_theme.weight;
34: end loop;
35: IF l_count=0 then -- Need to Generate Themes
36: IEM_TEXT_PVT.IEM_PROCESS_PARTS(p_message_id,1,p_part_id,null,l_status);
37: for v1 in c1 loop
38: CTX_DOC.THEMES(l_schema||'.IEM_IMT_INDEX',
39: CTX_DOC.PKENCODE(v1.rowid), l_theme_buf, full_themes => FALSE);
40: end loop;
57:
58: PROCEDURE GetTokens(p_message_id IN number,
59: p_part_id in number,
60: p_lang in varchar2,
61: xbuf OUT NOCOPY iem_text_pvt.token_table,
62: errtext OUT NOCOPY VARCHAR2) IS
63: l_part_id number;
64: TYPE theme_type is TABLE OF iem_imt_keywords.keyword%type;
65: theme_tbl theme_type:=theme_type();
89: l_count:=l_count+1;
90: xbuf(l_count).token:=v_theme.keyword;
91: end loop;
92: IF l_count=0 then -- Need to Generate Tokens
93: IEM_TEXT_PVT.IEM_PROCESS_PARTS(p_message_id,1,p_part_id,p_lang,l_status);
94: for v1 in c1 loop
95: CTX_DOC.TOKENS(l_schema||'.IEM_IMT_INDEX',
96: CTX_DOC.PKENCODE(v1.rowid), l_token_buf);
97: end loop;
181: x_qtokens OUT NOCOPY jtf_varchar2_Table_2000,
182: x_rtokens OUT NOCOPY jtf_varchar2_Table_2000,
183: x_status OUT NOCOPY varchar2)
184: is
185: l_kw_tbl iem_text_pvt.keyword_Rec_tbl;
186: l_theme_enabled varchar2(1);
187: l_count number:=1;
188: cursor c_query is select keyword,weight from iem_intent_dtls
189: where intent_id=p_intent_id
197: l_kw_tbl.delete;
198: x_qtokens:=jtf_varchar2_Table_2000();
199: x_rtokens:=jtf_varchar2_Table_2000();
200: IF p_qtext is not null then
201: iem_text_pvt.get_tokens(p_type,p_lang,p_qtext,l_kw_tbl);
202: IF l_kw_tbl.count>0 then
203: for i in l_kw_tbl.first..l_kw_tbl.last LOOP
204: -- Compare with existing intent keyword and donot allow duplicate keyword
205: l_flag:=0;
218: END IF;
219: l_kw_tbl.delete;
220: l_count:=1;
221: IF p_rtext is not null then
222: iem_text_pvt.get_tokens(p_type,p_lang,p_rtext,l_kw_tbl);
223: IF l_kw_tbl.count>0 then
224: for i in l_kw_tbl.first..l_kw_tbl.last LOOP
225: -- Compare with existing intent keyword and donot allow duplicate keyword
226: l_flag:=0;
246:
247: procedure get_tokens(p_type in number, -- 1 for theme 2 for token
248: p_lang in varchar2,
249: p_text in CLOB,
250: xbuf OUT NOCOPY iem_text_pvt.keyword_rec_tbl) IS
251: l_seq number;
252: l_text raw(32767);
253: l_errortext varchar2(100);
254: l_tokenbuf iem_text_pvt.token_Table;
250: xbuf OUT NOCOPY iem_text_pvt.keyword_rec_tbl) IS
251: l_seq number;
252: l_text raw(32767);
253: l_errortext varchar2(100);
254: l_tokenbuf iem_text_pvt.token_Table;
255: l_token_buf TOKEN_TABLE;
256: l_status varchar2(10);
257: l_theme_buf THEME_TABLE;
258: l_schema varchar2(100);
610: x_status:='S';
611: exception when others then
612: x_status:='E';
613: end RETRIEVE_TEXT;
614: end IEM_TEXT_PVT ;