[Home] [Help]
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;
11: theme_tbl theme_type:=theme_type();
12: score_tbl score_type:=score_type();
13: -- Below cursor will check for existing data for the message
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;
11: theme_tbl theme_type:=theme_type();
12: score_tbl score_type:=score_type();
13: -- Below cursor will check for existing data for the message
14: cursor c_weight is select keyword,weight from iem_imt_keywords
10: TYPE score_type is TABLE OF iem_imt_keywords.weight%type;
11: theme_tbl theme_type:=theme_type();
12: score_tbl score_type:=score_type();
13: -- Below cursor will check for existing data for the message
14: cursor c_weight is select keyword,weight from iem_imt_keywords
15: where message_id=p_message_id and message_type=1 and message_part=l_part_id and message_format=1 ;
16: cursor c1 is select rowid from iem_imt_texts
17: where message_id=p_message_id and message_type=1 and message_part=l_part_id and message_format=1 ;
18: l_theme_buf THEME_TABLE;
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;
41: -- Insert Into iem_imt_keywords Table for Future Use
42: IF l_theme_buf.count>0 THEN
43: for i in l_theme_buf.first..l_theme_buf.last LOOP
44: xbuf(i).theme:=l_theme_buf(i).theme;
45: xbuf(i).weight:=l_theme_buf(i).weight;
48: score_tbl.extend;
49: score_tbl(score_tbl.last):=l_theme_buf(i).weight;
50: END LOOP;
51: FORALL j in indices of theme_tbl
52: insert into iem_imt_keywords(message_id,message_type,message_part,message_format,keyword,weight)
53: values(p_message_id,1,l_part_id,1,theme_tbl(j),score_tbl(j));
54: END IF;
55: END IF;
56: END GetThemes;
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();
66: cursor c_weight is select keyword from iem_imt_keywords
67: where message_id=p_message_id and message_type=1 and message_part=l_part_id and message_format=2
68: order by 1;
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();
66: cursor c_weight is select keyword from iem_imt_keywords
67: where message_id=p_message_id and message_type=1 and message_part=l_part_id and message_format=2
68: order by 1;
69: cursor c1 is select rowid from iem_imt_texts where
70: message_id=p_message_id and message_type=1 and message_part=l_part_id and message_format=2;
71: l_token_buf TOKEN_TABLE;
72: l_count number:=0;
73: l_status varchar2(10);
74: l_schema varchar2(10);
75: l_keyword iem_imt_keywords.keyword%type;
76: l_counter number;
77: dml_errors EXCEPTION;
78: PRAGMA exception_init(dml_errors, -24381);
79: l_start number:=1;
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;
98: -- Insert Into iem_imt_keywords Table for Future Use
99: IF l_token_buf.count>0 THEN
100: for i in l_token_buf.first..l_token_buf.last LOOP
101: theme_tbl.extend;
102: theme_tbl(theme_tbl.last):=l_token_buf(i).token;
103: END LOOP;
104: LOOP
105: BEGIN
106: FORALL j in l_start..theme_tbl.count
107: insert into iem_imt_keywords(message_id,message_type,message_part,message_format,keyword,weight)
108: values(p_message_id,1,l_part_id,2,theme_tbl(j),null);
109: EXIT;
110: EXCEPTION WHEN OTHERS THEN
111: l_start := l_start + sql%rowcount + 1;
257: l_theme_buf THEME_TABLE;
258: l_schema varchar2(100);
259: l_message_id number;
260: l_counter number;
261: TYPE theme_type is TABLE OF iem_imt_keywords.keyword%type;
262: theme_tbl theme_type:=theme_type();
263: l_start number:=1;
264: cursor c1 is select rowid from iem_imt_texts
265: where message_id=l_seq and message_type=2 ;
262: theme_tbl theme_type:=theme_type();
263: l_start number:=1;
264: cursor c1 is select rowid from iem_imt_texts
265: where message_id=l_seq and message_type=2 ;
266: cursor c_Weight is select keyword from iem_imt_keywords where message_id=l_message_id;
267: begin
268: -- Insert the content into IEM_IMT_TEXTS
269: iem_insert_texts(p_text,p_lang,l_seq,l_status);
270: l_schema:='IEM';
284: CTX_DOC.TOKENS(l_schema||'.IEM_IMT_INDEX',
285: CTX_DOC.PKENCODE(v1.rowid), l_token_buf);
286: end loop;
287: IF l_token_buf.count>0 THEN
288: select nvl(max(message_id),0)+1 into l_message_id from iem_imt_keywords;
289: for i in l_token_buf.first..l_token_buf.last LOOP
290: theme_tbl.extend;
291: theme_tbl(theme_tbl.last):=l_token_buf(i).token;
292: END LOOP;
292: END LOOP;
293: LOOP
294: BEGIN
295: FORALL j in l_start..theme_tbl.count
296: insert into iem_imt_keywords(message_id,message_type,message_part,message_format,keyword,weight)
297: values(l_message_id,1,0,2,theme_tbl(j),null);
298: EXIT;
299: EXCEPTION WHEN OTHERS THEN
300: l_start := l_start + sql%rowcount + 1;
313: for i in theme_tbl.first..theme_tbl.last LOOP
314: xbuf(l_counter).keyword:=theme_tbl(i);
315: l_counter:=l_counter+1;
316: end loop;
317: delete from iem_imt_keywords where message_id=l_message_id;
318: END IF;
319: end if;
320: end get_tokens;
321: