28:
29: l_hdr_sql_columns:= ' LAST_UPDATED_BY,CREATED_BY,LAST_UPDATE_LOGIN ';
30:
31:
32: l_Cursor := dbms_sql.open_cursor;
33:
34: l_check_text_rows:= ' SELECT distinct TEXT_CODE ' ||
35: ' FROM '||X_From_Text_Table ||
36: ' WHERE Text_Code = :X_Text_Code';
34: l_check_text_rows:= ' SELECT distinct TEXT_CODE ' ||
35: ' FROM '||X_From_Text_Table ||
36: ' WHERE Text_Code = :X_Text_Code';
37:
38: dbms_sql.parse(l_Cursor,l_check_text_rows,0);
39:
40: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
41: -- Added by Khaja according to Project plan see bug 2935158
42: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code', X_Text_Code);
38: dbms_sql.parse(l_Cursor,l_check_text_rows,0);
39:
40: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
41: -- Added by Khaja according to Project plan see bug 2935158
42: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code', X_Text_Code);
43:
44: l_Rows_processed:=dbms_sql.execute(l_Cursor);
45:
46: -- dbms_output.put_line(l_rows_processed);
40: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
41: -- Added by Khaja according to Project plan see bug 2935158
42: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code', X_Text_Code);
43:
44: l_Rows_processed:=dbms_sql.execute(l_Cursor);
45:
46: -- dbms_output.put_line(l_rows_processed);
47:
48: -- Process the new insert if rows exists otherwise no
45:
46: -- dbms_output.put_line(l_rows_processed);
47:
48: -- Process the new insert if rows exists otherwise no
49: IF dbms_sql.fetch_rows (l_Cursor) > 0 THEN
50:
51: -- Generate new Text_code from sequence.
52: SELECT gem5_text_code_s.nextval into l_New_Text_code
53: FROM DUAL;
66: 'sysdate'||
67: ' FROM '||X_From_Text_Table ||
68: ' WHERE Text_Code = :X_Text_Code ';
69:
70: dbms_sql.parse(l_Cursor,l_TL_Sql_statement,0);
71:
72: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
73: -- Added by Khaja according to Project plan see bug 2935158
74: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
70: dbms_sql.parse(l_Cursor,l_TL_Sql_statement,0);
71:
72: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
73: -- Added by Khaja according to Project plan see bug 2935158
74: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
75: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
76:
77: l_Rows_processed:=dbms_sql.execute(l_Cursor);
78:
71:
72: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
73: -- Added by Khaja according to Project plan see bug 2935158
74: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
75: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
76:
77: l_Rows_processed:=dbms_sql.execute(l_Cursor);
78:
79: -- Prepare the To and From Header table name from the given text table
73: -- Added by Khaja according to Project plan see bug 2935158
74: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
75: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
76:
77: l_Rows_processed:=dbms_sql.execute(l_Cursor);
78:
79: -- Prepare the To and From Header table name from the given text table
80:
81: l_From_Hdr_Table:=substr(X_From_Text_table,1,instr(upper(X_From_Text_table),'TEXT')+3)||'_HDR';
105: 'sysdate'||
106: ' FROM '||l_From_Hdr_Table ||
107: ' WHERE Text_Code = :X_Text_Code ';
108:
109: dbms_sql.parse(l_Cursor,l_TL_Hdr_Sql_stmt,0);
110:
111: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
112: -- Added by Khaja according to Project plan see bug 2935158
113: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
109: dbms_sql.parse(l_Cursor,l_TL_Hdr_Sql_stmt,0);
110:
111: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
112: -- Added by Khaja according to Project plan see bug 2935158
113: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
114: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
115:
116: l_Rows_processed:=dbms_sql.execute(l_Cursor);
117:
110:
111: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
112: -- Added by Khaja according to Project plan see bug 2935158
113: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
114: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
115:
116: l_Rows_processed:=dbms_sql.execute(l_Cursor);
117:
118: -- dbms_output.put_line(l_rows_processed);
112: -- Added by Khaja according to Project plan see bug 2935158
113: dbms_sql.bind_variable(l_Cursor, 'l_New_Text_Code',l_New_Text_Code);
114: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
115:
116: l_Rows_processed:=dbms_sql.execute(l_Cursor);
117:
118: -- dbms_output.put_line(l_rows_processed);
119:
120: dbms_sql.close_cursor(l_Cursor);
116: l_Rows_processed:=dbms_sql.execute(l_Cursor);
117:
118: -- dbms_output.put_line(l_rows_processed);
119:
120: dbms_sql.close_cursor(l_Cursor);
121: -- bug #2880608 placing a commit stmt as per Thomas Danial(GMD) for Session parameter request 4/1/03
122: commit;
123: Return l_New_Text_code;
124:
122: commit;
123: Return l_New_Text_code;
124:
125: ELSE
126: dbms_sql.close_cursor(l_Cursor);
127: -- bug #2880608 placing a commit stmt as per Thomas Danial(GMD) for Session parameter request 4/1/03
128: commit;
129: RETURN NULL;
130: END IF;
130: END IF;
131:
132: EXCEPTION
133: WHEN others THEN
134: IF dbms_sql.is_open (l_Cursor) THEN
135: dbms_sql.close_cursor (l_Cursor);
136: END IF;
137: Raise;
138:
131:
132: EXCEPTION
133: WHEN others THEN
134: IF dbms_sql.is_open (l_Cursor) THEN
135: dbms_sql.close_cursor (l_Cursor);
136: END IF;
137: Raise;
138:
139: End Copy_Text;
168: -- Prepare the Delete stmt for Header text line
169: l_tl_hdr_sql_stmt:=' DELETE FROM '|| l_From_hdr_table ||
170: ' WHERE TEXT_CODE =:X_Text_Code ';
171:
172: l_Cursor := dbms_sql.open_cursor;
173:
174: dbms_sql.parse(l_Cursor,l_tl_Sql_statement,0);
175:
176: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
170: ' WHERE TEXT_CODE =:X_Text_Code ';
171:
172: l_Cursor := dbms_sql.open_cursor;
173:
174: dbms_sql.parse(l_Cursor,l_tl_Sql_statement,0);
175:
176: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
177: -- Added by Khaja according to Project plan see bug 2935158
178: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
174: dbms_sql.parse(l_Cursor,l_tl_Sql_statement,0);
175:
176: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
177: -- Added by Khaja according to Project plan see bug 2935158
178: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
179:
180: l_Rows_processed:=dbms_sql.execute(l_Cursor);
181:
182: dbms_sql.parse(l_Cursor,l_tl_hdr_sql_stmt,0);
176: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
177: -- Added by Khaja according to Project plan see bug 2935158
178: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
179:
180: l_Rows_processed:=dbms_sql.execute(l_Cursor);
181:
182: dbms_sql.parse(l_Cursor,l_tl_hdr_sql_stmt,0);
183:
184: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
178: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
179:
180: l_Rows_processed:=dbms_sql.execute(l_Cursor);
181:
182: dbms_sql.parse(l_Cursor,l_tl_hdr_sql_stmt,0);
183:
184: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
185: -- Added by Khaja according to Project plan see bug 2935158
186: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
182: dbms_sql.parse(l_Cursor,l_tl_hdr_sql_stmt,0);
183:
184: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
185: -- Added by Khaja according to Project plan see bug 2935158
186: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
187:
188: l_Rows_processed:=dbms_sql.execute(l_Cursor);
189:
190: dbms_sql.close_cursor(l_Cursor);
184: -- Modified the SQL stmt to use of Bind Variable,this improves the significant performance
185: -- Added by Khaja according to Project plan see bug 2935158
186: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
187:
188: l_Rows_processed:=dbms_sql.execute(l_Cursor);
189:
190: dbms_sql.close_cursor(l_Cursor);
191:
192: -- bug #2880608 placing a commit stmt as per Thomas Danial(GMD) for Session parameter request 4/1/03
186: dbms_sql.bind_variable(l_Cursor, 'X_Text_Code',X_Text_Code);
187:
188: l_Rows_processed:=dbms_sql.execute(l_Cursor);
189:
190: dbms_sql.close_cursor(l_Cursor);
191:
192: -- bug #2880608 placing a commit stmt as per Thomas Danial(GMD) for Session parameter request 4/1/03
193: commit;
194:
193: commit;
194:
195: EXCEPTION
196: WHEN others THEN
197: IF dbms_sql.is_open (l_Cursor) THEN
198: dbms_sql.close_cursor (l_Cursor);
199: END IF;
200: Raise;
201:
194:
195: EXCEPTION
196: WHEN others THEN
197: IF dbms_sql.is_open (l_Cursor) THEN
198: dbms_sql.close_cursor (l_Cursor);
199: END IF;
200: Raise;
201:
202: End Delete_Text;