[Home] [Help]
1: package body ec_utils as
2: -- $Header: ECUTILB.pls 120.2.12000000.2 2007/02/08 14:05:55 cpeixoto ship $
3:
4: NEW_VARIABLE CONSTANT pls_integer :=10;
5: ASSIGN_DEFAULT CONSTANT pls_integer :=20;
44: hash_value pls_integer; -- Bug 2708573
45: hash_string varchar2(3200);
46: BEGIN
47: if EC_DEBUG.G_debug_level >= 2 then
48: ec_debug.PUSH('EC_UTILS.FIND_VARIABLE');
49: ec_debug.pl(3,'i_variable_level',i_variable_level);
50: ec_debug.pl(3,'i_variable_name',i_variable_name);
51: end if;
52: /**
67: */
68: -- Bug 2708573
69: hash_string:=to_char(i_variable_level) || '-' ||i_variable_name;
70: hash_value:= dbms_utility.get_hash_value(hash_string,1,100000);
71: if ec_utils.g_stack_pos_tbl.exists(hash_value) then
72: i_stack_pos := ec_utils.g_stack_pos_tbl(hash_value);
73: i_plsql_pos := to_number(nvl(g_stack(i_stack_pos).variable_position,0));
74: bFound := TRUE;
75: end if;
68: -- Bug 2708573
69: hash_string:=to_char(i_variable_level) || '-' ||i_variable_name;
70: hash_value:= dbms_utility.get_hash_value(hash_string,1,100000);
71: if ec_utils.g_stack_pos_tbl.exists(hash_value) then
72: i_stack_pos := ec_utils.g_stack_pos_tbl(hash_value);
73: i_plsql_pos := to_number(nvl(g_stack(i_stack_pos).variable_position,0));
74: bFound := TRUE;
75: end if;
76:
77: if EC_DEBUG.G_debug_level >= 2 then
78: ec_debug.pl(3,'i_stack_pos',i_stack_pos);
79: ec_debug.pl(3,'i_plsql_pos',i_plsql_pos);
80: ec_debug.pl(3,'bFound',bFound);
81: ec_debug.pop('EC_UTILS.FIND_VARIABLE');
82: end if;
83: return bFound;
84: EXCEPTION
85: WHEN EC_UTILS.PROGRAM_EXIT then
81: ec_debug.pop('EC_UTILS.FIND_VARIABLE');
82: end if;
83: return bFound;
84: EXCEPTION
85: WHEN EC_UTILS.PROGRAM_EXIT then
86: raise;
87: WHEN OTHERS THEN
88: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_VARIABLE');
89: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
84: EXCEPTION
85: WHEN EC_UTILS.PROGRAM_EXIT then
86: raise;
87: WHEN OTHERS THEN
88: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_VARIABLE');
89: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
90: i_ret_code :=2;
91: raise EC_UTILS.PROGRAM_EXIT;
92: END find_variable;
87: WHEN OTHERS THEN
88: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_VARIABLE');
89: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
90: i_ret_code :=2;
91: raise EC_UTILS.PROGRAM_EXIT;
92: END find_variable;
93:
94: /**
95: Executes a select string and returns the First Column from the select
107: m_success boolean;
108: error_position pls_integer;
109: begin
110: if EC_DEBUG.G_debug_level >= 2 then
111: ec_debug.push('EC_UTILS.EXECUTE_STRING');
112: ec_debug.pl(3,'cString',cString);
113: end if;
114:
115: /* cursor_handle := dbms_sql.open_cursor;
118: dbms_sql.parse(cursor_handle,cString,dbms_sql.native);
119: EXCEPTION
120: WHEN OTHERS THEN
121: error_position := dbms_sql.last_error_position;
122: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_STRING');
123: ece_error_handling_pvt.print_parse_error (error_position,cString);
124:
125: if dbms_sql.is_open(cursor_handle)
126: then
126: then
127: dbms_sql.close_cursor(cursor_handle);
128: end if;
129: i_ret_code :=2;
130: raise EC_UTILS.PROGRAM_EXIT;
131: END;
132:
133: dbms_sql.define_column(cursor_handle,1,m_value,20000);
134: ret_query := dbms_sql.execute_and_fetch(cursor_handle,m_success);
142: EXECUTE IMMEDIATE cString
143: INTO o_value;
144: if EC_DEBUG.G_debug_level >= 2 then
145: ec_debug.pl(3,'o_value',o_value);
146: ec_debug.POP('EC_UTILS.EXECUTE_STRING');
147: end if;
148: exception
149: WHEN EC_UTILS.PROGRAM_EXIT then
150: raise;
145: ec_debug.pl(3,'o_value',o_value);
146: ec_debug.POP('EC_UTILS.EXECUTE_STRING');
147: end if;
148: exception
149: WHEN EC_UTILS.PROGRAM_EXIT then
150: raise;
151: WHEN OTHERS then
152: /* if DBMS_SQL.IS_OPEN(cursor_handle) then
153: dbms_sql.close_cursor(cursor_handle);
152: /* if DBMS_SQL.IS_OPEN(cursor_handle) then
153: dbms_sql.close_cursor(cursor_handle);
154: end if;
155: */
156: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_STRING');
157: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
158: i_ret_code :=2;
159: raise EC_UTILS.PROGRAM_EXIT;
160: end execute_string;
155: */
156: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_STRING');
157: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
158: i_ret_code :=2;
159: raise EC_UTILS.PROGRAM_EXIT;
160: end execute_string;
161:
162: procedure get_nextval_seq
163: (
167: is
168: cString varchar2(2000);
169: begin
170: if EC_DEBUG.G_debug_level >= 2 then
171: ec_debug.push('EC_UTILS.GET_NEXTVAL_SEQ');
172: ec_debug.pl(3,'i_seq_name',i_seq_name);
173: end if;
174: cString := 'select '||i_seq_name||'.NEXTVAL from dual';
175: execute_string
178: o_value
179: );
180: if EC_DEBUG.G_debug_level >= 2 then
181: ec_debug.pl(3,'o_value',o_value);
182: ec_debug.pop('EC_UTILS.GET_NEXTVAL_SEQ');
183: end if;
184: EXCEPTION
185: WHEN EC_UTILS.PROGRAM_EXIT then
186: raise;
181: ec_debug.pl(3,'o_value',o_value);
182: ec_debug.pop('EC_UTILS.GET_NEXTVAL_SEQ');
183: end if;
184: EXCEPTION
185: WHEN EC_UTILS.PROGRAM_EXIT then
186: raise;
187: WHEN OTHERS then
188: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
189: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
184: EXCEPTION
185: WHEN EC_UTILS.PROGRAM_EXIT then
186: raise;
187: WHEN OTHERS then
188: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
189: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
190: i_ret_code := 2;
191: raise EC_UTILS.PROGRAM_EXIT;
192: end get_nextval_seq;
187: WHEN OTHERS then
188: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_NEXTVAL_SEQ');
189: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
190: i_ret_code := 2;
191: raise EC_UTILS.PROGRAM_EXIT;
192: end get_nextval_seq;
193:
194: /**
195: Returns the Function Value by building a select Clause for the
203: is
204: cString varchar2(2000);
205: begin
206: if EC_DEBUG.G_debug_level >= 2 then
207: ec_debug.push('EC_UTILS.GET_FUNCTION_VALUE');
208: ec_debug.pl(3,'i_function_name',i_function_name);
209: end if;
210: if i_function_name = 'SYSDATE'
211: then
222: o_value
223: );
224: if EC_DEBUG.G_debug_level >= 2 then
225: ec_debug.pl(3,'o_value',o_value);
226: ec_debug.pop('EC_UTILS.GET_FUNCTION_VALUE');
227: end if;
228: EXCEPTION
229: WHEN EC_UTILS.PROGRAM_EXIT then
230: raise;
225: ec_debug.pl(3,'o_value',o_value);
226: ec_debug.pop('EC_UTILS.GET_FUNCTION_VALUE');
227: end if;
228: EXCEPTION
229: WHEN EC_UTILS.PROGRAM_EXIT then
230: raise;
231: WHEN OTHERS then
232: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_FUNCTION_VALUE');
233: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
228: EXCEPTION
229: WHEN EC_UTILS.PROGRAM_EXIT then
230: raise;
231: WHEN OTHERS then
232: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_FUNCTION_VALUE');
233: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
234: i_ret_code := 2;
235: raise EC_UTILS.PROGRAM_EXIT;
236: end get_function_value;
231: WHEN OTHERS then
232: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_FUNCTION_VALUE');
233: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
234: i_ret_code := 2;
235: raise EC_UTILS.PROGRAM_EXIT;
236: end get_function_value;
237:
238: procedure dump_stack
239: is
239: is
240: m_count pls_integer := g_stack.COUNT;
241: begin
242: if EC_DEBUG.G_debug_level >= 2 then
243: ec_debug.PUSH('EC_UTILS.DUMP_STACK');
244: ec_debug.pl(3,'EC','ECE_STACK_DUMP',null);
245: end if;
246:
247: for i in 1..m_count
257: );
258: end if;
259: end loop;
260: if EC_DEBUG.G_debug_level >= 2 then
261: ec_debug.POP('EC_UTILS.DUMP_STACK');
262: end if;
263: EXCEPTION
264: WHEN OTHERS then
265: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.DUMP_STACK');
261: ec_debug.POP('EC_UTILS.DUMP_STACK');
262: end if;
263: EXCEPTION
264: WHEN OTHERS then
265: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.DUMP_STACK');
266: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
267: i_ret_code := 2;
268: raise EC_UTILS.PROGRAM_EXIT;
269: end dump_stack;
264: WHEN OTHERS then
265: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.DUMP_STACK');
266: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
267: i_ret_code := 2;
268: raise EC_UTILS.PROGRAM_EXIT;
269: end dump_stack;
270:
271: procedure get_position_for_stack
272: (
276: i_first_found BOOLEAN := FALSE;
277: i_last_found BOOLEAN := FALSE;
278: begin
279: if EC_DEBUG.G_debug_level >= 2 then
280: ec_debug.push('EC_UTILS.GET_POSITION_FOR_STACK');
281: ec_debug.pl(3,'i_level',i_level);
282: end if;
283:
284: if ec_utils.g_stack.COUNT = 0
280: ec_debug.push('EC_UTILS.GET_POSITION_FOR_STACK');
281: ec_debug.pl(3,'i_level',i_level);
282: end if;
283:
284: if ec_utils.g_stack.COUNT = 0
285: then
286: if EC_DEBUG.G_debug_level >= 2 then
287: ec_debug.pop('EC_UTILS.GET_POSITION_FOR_STACK');
288: end if;
283:
284: if ec_utils.g_stack.COUNT = 0
285: then
286: if EC_DEBUG.G_debug_level >= 2 then
287: ec_debug.pop('EC_UTILS.GET_POSITION_FOR_STACK');
288: end if;
289: return;
290: end if;
291: for i in 1..ec_utils.g_stack.COUNT
287: ec_debug.pop('EC_UTILS.GET_POSITION_FOR_STACK');
288: end if;
289: return;
290: end if;
291: for i in 1..ec_utils.g_stack.COUNT
292: loop
293: if g_stack(i).level is null
294: then
295: ec_debug.pl(0,'EC','ECE_LEVEL_NULL','VARIABLE_NAME',ec_utils.g_stack(i).variable_name);
291: for i in 1..ec_utils.g_stack.COUNT
292: loop
293: if g_stack(i).level is null
294: then
295: ec_debug.pl(0,'EC','ECE_LEVEL_NULL','VARIABLE_NAME',ec_utils.g_stack(i).variable_name);
296: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_VARIABLE');
297: i_ret_code :=2;
298: raise EC_UTILS.PROGRAM_EXIT;
299: end if;
292: loop
293: if g_stack(i).level is null
294: then
295: ec_debug.pl(0,'EC','ECE_LEVEL_NULL','VARIABLE_NAME',ec_utils.g_stack(i).variable_name);
296: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_VARIABLE');
297: i_ret_code :=2;
298: raise EC_UTILS.PROGRAM_EXIT;
299: end if;
300:
294: then
295: ec_debug.pl(0,'EC','ECE_LEVEL_NULL','VARIABLE_NAME',ec_utils.g_stack(i).variable_name);
296: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_VARIABLE');
297: i_ret_code :=2;
298: raise EC_UTILS.PROGRAM_EXIT;
299: end if;
300:
301: if g_stack(i).level = i_level
302: then
331: end if;
332: if EC_DEBUG.G_debug_level >= 2 then
333: ec_debug.pl(3,'Stack Pointer('||i_level||') Start Position',g_stack_pointer(i_level).start_pos);
334: ec_debug.pl(3,'Stack Pointer('||i_level||') End Position',g_stack_pointer(i_level).end_pos);
335: ec_debug.pop('EC_UTILS.GET_POSITION_FOR_STACK');
336: end if;
337: EXCEPTION
338: WHEN EC_UTILS.PROGRAM_EXIT then
339: raise;
334: ec_debug.pl(3,'Stack Pointer('||i_level||') End Position',g_stack_pointer(i_level).end_pos);
335: ec_debug.pop('EC_UTILS.GET_POSITION_FOR_STACK');
336: end if;
337: EXCEPTION
338: WHEN EC_UTILS.PROGRAM_EXIT then
339: raise;
340: WHEN OTHERS then
341: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_POSITION_FOR_STACK');
342: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
337: EXCEPTION
338: WHEN EC_UTILS.PROGRAM_EXIT then
339: raise;
340: WHEN OTHERS then
341: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_POSITION_FOR_STACK');
342: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
343: i_ret_code := 2;
344: raise EC_UTILS.PROGRAM_EXIT;
345: end get_position_for_stack;
340: WHEN OTHERS then
341: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_POSITION_FOR_STACK');
342: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
343: i_ret_code := 2;
344: raise EC_UTILS.PROGRAM_EXIT;
345: end get_position_for_stack;
346: /**
347: Executes the Data from the ECE_TRAN_STAGE_DATA for a given Stage and Level.
348: **/
353: )
354: is
355: begin
356: if EC_DEBUG.G_debug_level >= 2 then
357: ec_debug.push('EC_UTILS.EXECUTE_STAGE_DATA');
358: ec_debug.pl(3,'i_stage',i_stage);
359: ec_debug.pl(3,'i_level',i_level);
360: end if;
361: /* Bug 2708573
630: end loop;
631: end if;
632: end if;
633: if EC_DEBUG.G_debug_level >= 2 then
634: ec_debug.pop('EC_UTILS.EXECUTE_STAGE_DATA');
635: end if;
636: EXCEPTION
637: WHEN EC_UTILS.PROGRAM_EXIT then
638: raise;
633: if EC_DEBUG.G_debug_level >= 2 then
634: ec_debug.pop('EC_UTILS.EXECUTE_STAGE_DATA');
635: end if;
636: EXCEPTION
637: WHEN EC_UTILS.PROGRAM_EXIT then
638: raise;
639: WHEN OTHERS THEN
640: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_STAGE_DATA');
641: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
636: EXCEPTION
637: WHEN EC_UTILS.PROGRAM_EXIT then
638: raise;
639: WHEN OTHERS THEN
640: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_STAGE_DATA');
641: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
642: i_ret_code := 2;
643: raise EC_UTILS.PROGRAM_EXIT;
644: end execute_stage_data;
639: WHEN OTHERS THEN
640: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_STAGE_DATA');
641: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
642: i_ret_code := 2;
643: raise EC_UTILS.PROGRAM_EXIT;
644: end execute_stage_data;
645:
646:
647: /**
682:
683: i_counter pls_integer :=0;
684: begin
685: if EC_DEBUG.G_debug_level >= 2 then
686: ec_debug.push('EC_UTILS.GET_TRAN_STAGE_DATA');
687: ec_debug.pl(3,'i_transaction_type',i_transaction_type);
688: ec_debug.pl(3,'EC','ECE_TRAN_STAGE_DATA','TRANSACTION_TYPE',i_transaction_type);
689: end if;
690:
741: end if;
742:
743: end loop;
744: if EC_DEBUG.G_debug_level >= 2 then
745: ec_debug.pop('EC_UTILS.GET_TRAN_STAGE_DATA');
746: end if;
747: EXCEPTION
748: WHEN OTHERS THEN
749: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_TRAN_STAGE_DATA');
745: ec_debug.pop('EC_UTILS.GET_TRAN_STAGE_DATA');
746: end if;
747: EXCEPTION
748: WHEN OTHERS THEN
749: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_TRAN_STAGE_DATA');
750: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
751: i_ret_code := 2;
752: raise EC_UTILS.PROGRAM_EXIT;
753: end get_tran_stage_data;
748: WHEN OTHERS THEN
749: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.GET_TRAN_STAGE_DATA');
750: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
751: i_ret_code := 2;
752: raise EC_UTILS.PROGRAM_EXIT;
753: end get_tran_stage_data;
754:
755: procedure sort_stage_data
756: is
756: is
757: j pls_integer :=0;
758: k pls_integer :=0;
759: l pls_integer :=0;
760: i_tmp1_stage_data ec_utils.stage_data;
761: begin
762: if EC_DEBUG.G_debug_level >= 2 then
763: ec_debug.PUSH('EC_UTILS.SORT_STAGE_DATA');
764: end if;
759: l pls_integer :=0;
760: i_tmp1_stage_data ec_utils.stage_data;
761: begin
762: if EC_DEBUG.G_debug_level >= 2 then
763: ec_debug.PUSH('EC_UTILS.SORT_STAGE_DATA');
764: end if;
765: /**
766: Store the Stage 10 data in i_tmp1_stage_data tbl.
767: **/
984: i_tmp2_stage_data(i).function_name||' '||
985: i_tmp2_stage_data(i).clause
986: );
987: end loop;
988: ec_debug.POP('EC_UTILS.SORT_STAGE_DATA');
989: end if;
990: EXCEPTION
991: WHEN OTHERS THEN
992: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.SORT_STAGE_DATA');
988: ec_debug.POP('EC_UTILS.SORT_STAGE_DATA');
989: end if;
990: EXCEPTION
991: WHEN OTHERS THEN
992: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.SORT_STAGE_DATA');
993: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
994: i_ret_code := 2;
995: raise EC_UTILS.PROGRAM_EXIT;
996: end sort_stage_data;
991: WHEN OTHERS THEN
992: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.SORT_STAGE_DATA');
993: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
994: i_ret_code := 2;
995: raise EC_UTILS.PROGRAM_EXIT;
996: end sort_stage_data;
997:
998: procedure find_pos
999: (
1011: tbl_pos pls_integer;
1012:
1013: BEGIN
1014: if EC_DEBUG.G_debug_level >= 2 then
1015: ec_debug.PUSH('EC_UTILS.FIND_POS');
1016: ec_debug.pl(3,'i_level',i_level);
1017: ec_debug.pl(3,'i_search_text',i_search_text);
1018: end if;
1019:
1032: */
1033: -- Bug 2617428
1034: hash_string:=to_char(i_level) || '-' ||cIn_String;
1035: hash_value:= dbms_utility.get_hash_value(hash_string,1,8192);
1036: if ec_utils.g_col_pos_tbl_1.exists(hash_value) then
1037: if ec_utils.g_col_pos_tbl_1(hash_value).occr = 1 then
1038: o_pos := ec_utils.g_col_pos_tbl_1(hash_value).value;
1039: bFound := TRUE;
1040: else
1033: -- Bug 2617428
1034: hash_string:=to_char(i_level) || '-' ||cIn_String;
1035: hash_value:= dbms_utility.get_hash_value(hash_string,1,8192);
1036: if ec_utils.g_col_pos_tbl_1.exists(hash_value) then
1037: if ec_utils.g_col_pos_tbl_1(hash_value).occr = 1 then
1038: o_pos := ec_utils.g_col_pos_tbl_1(hash_value).value;
1039: bFound := TRUE;
1040: else
1041: -- Bug 2834366
1034: hash_string:=to_char(i_level) || '-' ||cIn_String;
1035: hash_value:= dbms_utility.get_hash_value(hash_string,1,8192);
1036: if ec_utils.g_col_pos_tbl_1.exists(hash_value) then
1037: if ec_utils.g_col_pos_tbl_1(hash_value).occr = 1 then
1038: o_pos := ec_utils.g_col_pos_tbl_1(hash_value).value;
1039: bFound := TRUE;
1040: else
1041: -- Bug 2834366
1042: -- Added the following to prevent hash collision.
1039: bFound := TRUE;
1040: else
1041: -- Bug 2834366
1042: -- Added the following to prevent hash collision.
1043: tbl_pos := ec_utils.g_col_pos_tbl_1(hash_value).start_pos;
1044: while tbl_pos<=ec_utils.g_col_pos_tbl_2.LAST
1045: loop
1046: if ec_utils.g_col_pos_tbl_2(tbl_pos) = hash_value then
1047: if upper(g_file_tbl(tbl_pos).interface_column_name) = cIn_String and
1040: else
1041: -- Bug 2834366
1042: -- Added the following to prevent hash collision.
1043: tbl_pos := ec_utils.g_col_pos_tbl_1(hash_value).start_pos;
1044: while tbl_pos<=ec_utils.g_col_pos_tbl_2.LAST
1045: loop
1046: if ec_utils.g_col_pos_tbl_2(tbl_pos) = hash_value then
1047: if upper(g_file_tbl(tbl_pos).interface_column_name) = cIn_String and
1048: g_file_tbl(tbl_pos).external_level=i_level then
1042: -- Added the following to prevent hash collision.
1043: tbl_pos := ec_utils.g_col_pos_tbl_1(hash_value).start_pos;
1044: while tbl_pos<=ec_utils.g_col_pos_tbl_2.LAST
1045: loop
1046: if ec_utils.g_col_pos_tbl_2(tbl_pos) = hash_value then
1047: if upper(g_file_tbl(tbl_pos).interface_column_name) = cIn_String and
1048: g_file_tbl(tbl_pos).external_level=i_level then
1049: o_pos := tbl_pos;
1050: bFound := TRUE;
1050: bFound := TRUE;
1051: exit;
1052: end if;
1053: end if;
1054: tbl_pos:=ec_utils.g_col_pos_tbl_2.NEXT(tbl_pos);
1055: end loop;
1056: end if;
1057: end if;
1058: else
1077: end if;
1078: end if;
1079: if EC_DEBUG.G_debug_level >= 2 then
1080: ec_debug.pl(3,'o_pos',o_pos);
1081: ec_debug.POP('EC_UTILS.FIND_POS');
1082: end if;
1083: EXCEPTION
1084: WHEN POS_NOT_FOUND THEN
1085: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
1082: end if;
1083: EXCEPTION
1084: WHEN POS_NOT_FOUND THEN
1085: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
1086: ec_debug.POP('EC_UTILS.FIND_POS');
1087: i_ret_code := 2;
1088: raise EC_UTILS.PROGRAM_EXIT;
1089: WHEN OTHERS THEN
1090: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1084: WHEN POS_NOT_FOUND THEN
1085: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
1086: ec_debug.POP('EC_UTILS.FIND_POS');
1087: i_ret_code := 2;
1088: raise EC_UTILS.PROGRAM_EXIT;
1089: WHEN OTHERS THEN
1090: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1091: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1092: i_ret_code := 2;
1086: ec_debug.POP('EC_UTILS.FIND_POS');
1087: i_ret_code := 2;
1088: raise EC_UTILS.PROGRAM_EXIT;
1089: WHEN OTHERS THEN
1090: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1091: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1092: i_ret_code := 2;
1093: raise EC_UTILS.PROGRAM_EXIT;
1094: END find_pos;
1089: WHEN OTHERS THEN
1090: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1091: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1092: i_ret_code := 2;
1093: raise EC_UTILS.PROGRAM_EXIT;
1094: END find_pos;
1095:
1096: /**
1097: Overloaded Function to search for a column on the Pl/SQL table , from a Given level to
1111: bFound BOOLEAN := FALSE;
1112: POS_NOT_FOUND EXCEPTION;
1113: BEGIN
1114: if EC_DEBUG.G_debug_level >= 2 then
1115: ec_debug.PUSH('EC_UTILS.FIND_POS');
1116: ec_debug.pl(3,'i_from_level',i_from_level);
1117: ec_debug.pl(3,'i_to_level',i_to_level);
1118: ec_debug.pl(3,'i_search_text',i_search_text);
1119: ec_debug.pl(3,'i_required',i_required);
1149: end if;
1150: end if;
1151: if EC_DEBUG.G_debug_level >= 3 then
1152: ec_debug.pl(3,'o_pos',o_pos);
1153: ec_debug.POP('EC_UTILS.FIND_POS');
1154: end if;
1155: EXCEPTION
1156: WHEN POS_NOT_FOUND THEN
1157: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
1154: end if;
1155: EXCEPTION
1156: WHEN POS_NOT_FOUND THEN
1157: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
1158: ec_debug.POP('EC_UTILS.FIND_POS');
1159: i_ret_code := 2;
1160: raise EC_UTILS.PROGRAM_EXIT;
1161: WHEN OTHERS THEN
1162: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1156: WHEN POS_NOT_FOUND THEN
1157: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
1158: ec_debug.POP('EC_UTILS.FIND_POS');
1159: i_ret_code := 2;
1160: raise EC_UTILS.PROGRAM_EXIT;
1161: WHEN OTHERS THEN
1162: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1163: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1164: i_ret_code := 2;
1158: ec_debug.POP('EC_UTILS.FIND_POS');
1159: i_ret_code := 2;
1160: raise EC_UTILS.PROGRAM_EXIT;
1161: WHEN OTHERS THEN
1162: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1163: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1164: i_ret_code := 2;
1165: raise EC_UTILS.PROGRAM_EXIT;
1166: END find_pos;
1161: WHEN OTHERS THEN
1162: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.FIND_POS');
1163: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1164: i_ret_code := 2;
1165: raise EC_UTILS.PROGRAM_EXIT;
1166: END find_pos;
1167:
1168: /**
1169: Creates a variable passed as i_variable_name on the Stack for a given Level.
1188: hash_value pls_integer; -- Bug 2708573
1189: hash_string varchar2(3200);
1190: begin
1191: if EC_DEBUG.G_debug_level >= 2 then
1192: ec_debug.push('EC_UTILS.CREATE_NEW_VARIABLE');
1193: ec_debug.pl(3,'i_variable_level',i_variable_level);
1194: ec_debug.pl(3,'i_variable_name',i_variable_name);
1195: ec_debug.pl(3,'i_variable_value',i_variable_value);
1196: end if;
1206: then
1207: /* Bug 2708573
1208: ec_debug.pl(0,'EC','ECE_DUPLICATE_VARIABLE_STACK','VARIABLE_NAME',i_variable_name);
1209: i_ret_code := 2;
1210: raise EC_UTILS.PROGRAM_EXIT;
1211: */
1212: -- Bug 2708573
1213: if i_variable_level = 0 and g_stack(i_stack_pos).variable_value is null
1214: then
1251: -- Bug 2708573
1252: -- Populate Hash table for searching the g_stack
1253: hash_string := to_char(i_variable_level)||'-'||i_variable_name ;
1254: hash_value := dbms_utility.get_hash_value(hash_string,1,100000);
1255: ec_utils.g_stack_pos_tbl(hash_value):=m_count;
1256:
1257: end if;
1258: if EC_DEBUG.G_debug_level >= 2 then
1259: ec_debug.pop('EC_UTILS.CREATE_NEW_VARIABLE');
1255: ec_utils.g_stack_pos_tbl(hash_value):=m_count;
1256:
1257: end if;
1258: if EC_DEBUG.G_debug_level >= 2 then
1259: ec_debug.pop('EC_UTILS.CREATE_NEW_VARIABLE');
1260: end if;
1261: EXCEPTION
1262: WHEN EC_UTILS.PROGRAM_EXIT then
1263: raise;
1258: if EC_DEBUG.G_debug_level >= 2 then
1259: ec_debug.pop('EC_UTILS.CREATE_NEW_VARIABLE');
1260: end if;
1261: EXCEPTION
1262: WHEN EC_UTILS.PROGRAM_EXIT then
1263: raise;
1264: WHEN OTHERS THEN
1265: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.CREATE_NEW_VARIABLE');
1266: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1261: EXCEPTION
1262: WHEN EC_UTILS.PROGRAM_EXIT then
1263: raise;
1264: WHEN OTHERS THEN
1265: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.CREATE_NEW_VARIABLE');
1266: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1267: i_ret_code := 2;
1268: raise EC_UTILS.PROGRAM_EXIT;
1269: end create_new_variable;
1264: WHEN OTHERS THEN
1265: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.CREATE_NEW_VARIABLE');
1266: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1267: i_ret_code := 2;
1268: raise EC_UTILS.PROGRAM_EXIT;
1269: end create_new_variable;
1270:
1271: /**
1272: if x is null then set y := default value
1289: o_plsql_pos pls_integer;
1290: o_plsql_pre_pos pls_integer;
1291: BEGIN
1292: if EC_DEBUG.G_debug_level >= 2 then
1293: ec_debug.push('EC_UTILS.IF_XNULL_SETYDEFAULT');
1294: ec_debug.pl(3,'i_variable_level',i_variable_level);
1295: ec_debug.pl(3,'i_variable_name',i_variable_name);
1296: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
1297: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
1307: if NOT ( var_present)
1308: then
1309: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1310: i_ret_code := 2;
1311: raise EC_UTILS.PROGRAM_EXIT;
1312: end if;
1313:
1314: pre_var_present := find_variable
1315: (
1323: then
1324: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
1325: 'VARIABLE_NAME',i_previous_variable_name);
1326: i_ret_code := 2;
1327: raise EC_UTILS.PROGRAM_EXIT;
1328: end if;
1329:
1330: if i_variable_level = 0
1331: then
1363: end if;
1364: end if;
1365: end if;
1366: if EC_DEBUG.G_debug_level >= 2 then
1367: ec_debug.pop('EC_UTILS.IF_XNULL_SETYDEFAULT');
1368: end if;
1369: EXCEPTION
1370: WHEN EC_UTILS.PROGRAM_EXIT then
1371: raise;
1366: if EC_DEBUG.G_debug_level >= 2 then
1367: ec_debug.pop('EC_UTILS.IF_XNULL_SETYDEFAULT');
1368: end if;
1369: EXCEPTION
1370: WHEN EC_UTILS.PROGRAM_EXIT then
1371: raise;
1372: WHEN OTHERS THEN
1373: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_XNULL_SETYDEFAULT');
1374: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1369: EXCEPTION
1370: WHEN EC_UTILS.PROGRAM_EXIT then
1371: raise;
1372: WHEN OTHERS THEN
1373: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_XNULL_SETYDEFAULT');
1374: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1375: i_ret_code := 2;
1376: raise EC_UTILS.PROGRAM_EXIT;
1377: END IF_XNULL_SETYDEFAULT;
1372: WHEN OTHERS THEN
1373: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_XNULL_SETYDEFAULT');
1374: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1375: i_ret_code := 2;
1376: raise EC_UTILS.PROGRAM_EXIT;
1377: END IF_XNULL_SETYDEFAULT;
1378:
1379: /**
1380: Assigns the Value from a Previously Defined Variable
1396: o_plsql_pos pls_integer;
1397: o_plsql_pre_pos pls_integer;
1398: BEGIN
1399: if EC_DEBUG.G_debug_level >= 2 then
1400: ec_debug.push('EC_UTILS.ASSIGN_PRE_DEFINED_VARIABLES');
1401: ec_debug.pl(3,'i_variable_level',i_variable_level);
1402: ec_debug.pl(3,'i_variable_name',i_variable_name);
1403: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
1404: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
1413: if NOT ( var_present)
1414: then
1415: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1416: i_ret_code := 2;
1417: raise EC_UTILS.PROGRAM_EXIT;
1418: end if;
1419:
1420: pre_var_present := find_variable
1421: (
1429: then
1430: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
1431: 'VARIABLE_NAME',i_previous_variable_name);
1432: i_ret_code := 2;
1433: raise EC_UTILS.PROGRAM_EXIT;
1434: end if;
1435:
1436: if i_variable_level = 0
1437: then
1465: end if;
1466: end if;
1467: end if;
1468: if EC_DEBUG.G_debug_level >= 2 then
1469: ec_debug.pop('EC_UTILS.ASSIGN_PRE_DEFINED_VARIABLES');
1470: end if;
1471: EXCEPTION
1472: WHEN EC_UTILS.PROGRAM_EXIT then
1473: raise;
1468: if EC_DEBUG.G_debug_level >= 2 then
1469: ec_debug.pop('EC_UTILS.ASSIGN_PRE_DEFINED_VARIABLES');
1470: end if;
1471: EXCEPTION
1472: WHEN EC_UTILS.PROGRAM_EXIT then
1473: raise;
1474: WHEN OTHERS THEN
1475: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_PRE_DEFINED_VARIABLES');
1476: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1471: EXCEPTION
1472: WHEN EC_UTILS.PROGRAM_EXIT then
1473: raise;
1474: WHEN OTHERS THEN
1475: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_PRE_DEFINED_VARIABLES');
1476: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1477: i_ret_code := 2;
1478: raise EC_UTILS.PROGRAM_EXIT;
1479: END assign_pre_defined_variables;
1474: WHEN OTHERS THEN
1475: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_PRE_DEFINED_VARIABLES');
1476: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1477: i_ret_code := 2;
1478: raise EC_UTILS.PROGRAM_EXIT;
1479: END assign_pre_defined_variables;
1480:
1481:
1482: /**
1494: o_stack_pos pls_integer;
1495: o_plsql_pos pls_integer;
1496: BEGIN
1497: if EC_DEBUG.G_debug_level >= 2 then
1498: ec_debug.push('EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1499: ec_debug.pl(3,'i_variable_level',i_variable_level);
1500: ec_debug.pl(3,'i_variable_name',i_variable_name);
1501: ec_debug.pl(3,'i_default_value',i_default_value);
1502: end if;
1525: end if;
1526: else
1527: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1528: i_ret_code := 2;
1529: raise EC_UTILS.PROGRAM_EXIT;
1530: end if;
1531: if EC_DEBUG.G_debug_level >= 2 then
1532: ec_debug.pop('EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1533: end if;
1528: i_ret_code := 2;
1529: raise EC_UTILS.PROGRAM_EXIT;
1530: end if;
1531: if EC_DEBUG.G_debug_level >= 2 then
1532: ec_debug.pop('EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1533: end if;
1534: EXCEPTION
1535: WHEN EC_UTILS.PROGRAM_EXIT then
1536: raise;
1531: if EC_DEBUG.G_debug_level >= 2 then
1532: ec_debug.pop('EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1533: end if;
1534: EXCEPTION
1535: WHEN EC_UTILS.PROGRAM_EXIT then
1536: raise;
1537: WHEN OTHERS THEN
1538: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1539: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1534: EXCEPTION
1535: WHEN EC_UTILS.PROGRAM_EXIT then
1536: raise;
1537: WHEN OTHERS THEN
1538: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1539: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1540: i_ret_code := 2;
1541: raise EC_UTILS.PROGRAM_EXIT;
1542: END assign_default_to_variables;
1537: WHEN OTHERS THEN
1538: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_DEFAULT_TO_VARIABLES');
1539: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1540: i_ret_code := 2;
1541: raise EC_UTILS.PROGRAM_EXIT;
1542: END assign_default_to_variables;
1543:
1544: /**
1545: If the Variable is null then assign the Default Value.
1559: o_stack_pos pls_integer;
1560: o_plsql_pos pls_integer;
1561: BEGIN
1562: if EC_DEBUG.G_debug_level >= 2 then
1563: ec_debug.push('EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1564: ec_debug.pl(3,'i_variable_level',i_variable_level);
1565: ec_debug.pl(3,'i_variable_name',i_variable_name);
1566: ec_debug.pl(3,'i_default_value',i_default_value);
1567: end if;
1596: end if;
1597: else
1598: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1599: i_ret_code := 2;
1600: raise EC_UTILS.PROGRAM_EXIT;
1601: end if;
1602: if EC_DEBUG.G_debug_level >= 2 then
1603: ec_debug.pop('EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1604: end if;
1599: i_ret_code := 2;
1600: raise EC_UTILS.PROGRAM_EXIT;
1601: end if;
1602: if EC_DEBUG.G_debug_level >= 2 then
1603: ec_debug.pop('EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1604: end if;
1605: EXCEPTION
1606: WHEN EC_UTILS.PROGRAM_EXIT then
1607: raise;
1602: if EC_DEBUG.G_debug_level >= 2 then
1603: ec_debug.pop('EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1604: end if;
1605: EXCEPTION
1606: WHEN EC_UTILS.PROGRAM_EXIT then
1607: raise;
1608: WHEN OTHERS THEN
1609: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1610: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1605: EXCEPTION
1606: WHEN EC_UTILS.PROGRAM_EXIT then
1607: raise;
1608: WHEN OTHERS THEN
1609: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1610: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1611: i_ret_code := 2;
1612: raise EC_UTILS.PROGRAM_EXIT;
1613: END if_null_equal_default_value;
1608: WHEN OTHERS THEN
1609: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_EQUAL_DEFAULT_VALUE');
1610: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1611: i_ret_code := 2;
1612: raise EC_UTILS.PROGRAM_EXIT;
1613: END if_null_equal_default_value;
1614:
1615: /**
1616: If the Value of the Variable is Null then assign
1636: o_plsql_pos pls_integer;
1637: o_plsql_pre_pos pls_integer;
1638: BEGIN
1639: if EC_DEBUG.G_debug_level >= 2 then
1640: ec_debug.push('EC_UTILS.IF_NULL_PRE_DEFINED_VARIABLE');
1641: ec_debug.pl(3,'i_variable_level',i_variable_level);
1642: ec_debug.pl(3,'i_variable_name',i_variable_name);
1643: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
1644: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
1654: if NOT ( var_present)
1655: then
1656: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1657: i_ret_code := 2;
1658: raise EC_UTILS.PROGRAM_EXIT;
1659: end if;
1660:
1661: pre_var_present := find_variable
1662: (
1670: then
1671: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
1672: 'VARIABLE_NAME',i_previous_variable_name);
1673: i_ret_code := 2;
1674: raise EC_UTILS.PROGRAM_EXIT;
1675: end if;
1676:
1677: if i_variable_level = 0
1678: then
1712: end if;
1713: end if;
1714: end if;
1715: if EC_DEBUG.G_debug_level >= 2 then
1716: ec_debug.pop('EC_UTILS.IF_NULL_PRE_DEFINED_VARIABLE');
1717: end if;
1718: EXCEPTION
1719: WHEN EC_UTILS.PROGRAM_EXIT then
1720: raise;
1715: if EC_DEBUG.G_debug_level >= 2 then
1716: ec_debug.pop('EC_UTILS.IF_NULL_PRE_DEFINED_VARIABLE');
1717: end if;
1718: EXCEPTION
1719: WHEN EC_UTILS.PROGRAM_EXIT then
1720: raise;
1721: WHEN OTHERS THEN
1722: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_PRE_DEFINED_VARIABLE');
1723: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1718: EXCEPTION
1719: WHEN EC_UTILS.PROGRAM_EXIT then
1720: raise;
1721: WHEN OTHERS THEN
1722: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_PRE_DEFINED_VARIABLE');
1723: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1724: i_ret_code := 2;
1725: raise EC_UTILS.PROGRAM_EXIT;
1726: END if_null_pre_defined_variable;
1721: WHEN OTHERS THEN
1722: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_PRE_DEFINED_VARIABLE');
1723: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1724: i_ret_code := 2;
1725: raise EC_UTILS.PROGRAM_EXIT;
1726: END if_null_pre_defined_variable;
1727:
1728: /**
1729: If the Value of the Variable is not Null then assign
1751: o_plsql_pos pls_integer;
1752: o_plsql_pre_pos pls_integer;
1753: BEGIN
1754: if EC_DEBUG.G_debug_level >= 2 then
1755: ec_debug.push('EC_UTILS.IF_NOT_NULL_DEFINED_VARIABLE');
1756: ec_debug.pl(3,'i_variable_level',i_variable_level);
1757: ec_debug.pl(3,'i_variable_name',i_variable_name);
1758: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
1759: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
1769: if NOT ( var_present)
1770: then
1771: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1772: i_ret_code := 2;
1773: raise EC_UTILS.PROGRAM_EXIT;
1774: end if;
1775:
1776: pre_var_present := find_variable
1777: (
1784: if NOT ( pre_var_present)
1785: then
1786: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_previous_variable_name);
1787: i_ret_code := 2;
1788: raise EC_UTILS.PROGRAM_EXIT;
1789: end if;
1790:
1791: if i_variable_level = 0 /* My current Variable Level is 0 */
1792: then
1826: end if;
1827: end if;
1828: end if;
1829: if EC_DEBUG.G_debug_level >= 2 then
1830: ec_debug.pop('EC_UTILS.IF_NOT_NULL_DEFINED_VARIABLE');
1831: end if;
1832: EXCEPTION
1833: WHEN EC_UTILS.PROGRAM_EXIT then
1834: raise;
1829: if EC_DEBUG.G_debug_level >= 2 then
1830: ec_debug.pop('EC_UTILS.IF_NOT_NULL_DEFINED_VARIABLE');
1831: end if;
1832: EXCEPTION
1833: WHEN EC_UTILS.PROGRAM_EXIT then
1834: raise;
1835: WHEN OTHERS THEN
1836: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NOT_NULL_DEFINED_VARIABLE');
1837: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1832: EXCEPTION
1833: WHEN EC_UTILS.PROGRAM_EXIT then
1834: raise;
1835: WHEN OTHERS THEN
1836: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NOT_NULL_DEFINED_VARIABLE');
1837: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1838: i_ret_code := 2;
1839: raise EC_UTILS.PROGRAM_EXIT;
1840: END if_not_null_defined_variable; /* Bug 1999536*/
1835: WHEN OTHERS THEN
1836: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NOT_NULL_DEFINED_VARIABLE');
1837: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1838: i_ret_code := 2;
1839: raise EC_UTILS.PROGRAM_EXIT;
1840: END if_not_null_defined_variable; /* Bug 1999536*/
1841:
1842: /**
1843: If the Variable is different from Previous variable Value and the
1868: o_plsql_pre_pos pls_integer;
1869: o_plsql_next_pos pls_integer;
1870: BEGIN
1871: if EC_DEBUG.G_debug_level >= 2 then
1872: ec_debug.push('EC_UTILS.IF_DIFF_PRE_NEXT_THEN_DEFAULT');
1873: ec_debug.pl(3,'i_variable_level',i_variable_level);
1874: ec_debug.pl(3,'i_variable_name',i_variable_name);
1875: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
1876: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
1887: if NOT ( var_present)
1888: then
1889: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1890: i_ret_code := 2;
1891: raise EC_UTILS.PROGRAM_EXIT;
1892: end if;
1893:
1894: pre_var_present := find_variable
1895: (
1903: then
1904: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
1905: 'VARIABLE_NAME',i_previous_variable_name);
1906: i_ret_code := 2;
1907: raise EC_UTILS.PROGRAM_EXIT;
1908: end if;
1909:
1910: next_var_present := find_variable
1911: (
1919: then
1920: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
1921: 'VARIABLE_NAME',i_next_variable_name);
1922: i_ret_code := 2;
1923: raise EC_UTILS.PROGRAM_EXIT;
1924: end if;
1925:
1926: if i_variable_level = 0
1927: then
1976: end if;
1977: end if;
1978: end if;
1979: if EC_DEBUG.G_debug_level >= 2 then
1980: ec_debug.pop('EC_UTILS.IF_DIFF_PRE_NEXT_THEN_DEFAULT');
1981: end if;
1982: EXCEPTION
1983: WHEN EC_UTILS.PROGRAM_EXIT then
1984: raise;
1979: if EC_DEBUG.G_debug_level >= 2 then
1980: ec_debug.pop('EC_UTILS.IF_DIFF_PRE_NEXT_THEN_DEFAULT');
1981: end if;
1982: EXCEPTION
1983: WHEN EC_UTILS.PROGRAM_EXIT then
1984: raise;
1985: WHEN OTHERS THEN
1986: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_DIFF_PRE_NEXT_THEN_DEFAULT');
1987: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1982: EXCEPTION
1983: WHEN EC_UTILS.PROGRAM_EXIT then
1984: raise;
1985: WHEN OTHERS THEN
1986: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_DIFF_PRE_NEXT_THEN_DEFAULT');
1987: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1988: i_ret_code := 2;
1989: raise EC_UTILS.PROGRAM_EXIT;
1990: end if_diff_pre_next_then_default;
1985: WHEN OTHERS THEN
1986: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_DIFF_PRE_NEXT_THEN_DEFAULT');
1987: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
1988: i_ret_code := 2;
1989: raise EC_UTILS.PROGRAM_EXIT;
1990: end if_diff_pre_next_then_default;
1991:
1992: /**
1993: If the Variable is equal to Default value then assign the value of a
2013: o_plsql_pos pls_integer;
2014: o_plsql_pre_pos pls_integer;
2015: BEGIN
2016: if EC_DEBUG.G_debug_level >= 2 then
2017: ec_debug.push('EC_UTILS.IF_DEFAULT_PRE_DEFINED_VAR');
2018: ec_debug.pl(3,'i_variable_level',i_variable_level);
2019: ec_debug.pl(3,'i_variable_name',i_variable_name);
2020: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
2021: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
2032: if NOT ( var_present)
2033: then
2034: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2035: i_ret_code := 2;
2036: raise EC_UTILS.PROGRAM_EXIT;
2037: end if;
2038:
2039: pre_var_present := find_variable
2040: (
2048: then
2049: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
2050: 'VARIABLE_NAME',i_previous_variable_name);
2051: i_ret_code := 2;
2052: raise EC_UTILS.PROGRAM_EXIT;
2053: end if;
2054:
2055: if i_variable_level = 0
2056: then
2090: end if;
2091: end if;
2092: end if;
2093: if EC_DEBUG.G_debug_level >= 2 then
2094: ec_debug.pop('EC_UTILS.IF_DEFAULT_PRE_DEFINED_VAR');
2095: end if;
2096: EXCEPTION
2097: WHEN EC_UTILS.PROGRAM_EXIT then
2098: raise;
2093: if EC_DEBUG.G_debug_level >= 2 then
2094: ec_debug.pop('EC_UTILS.IF_DEFAULT_PRE_DEFINED_VAR');
2095: end if;
2096: EXCEPTION
2097: WHEN EC_UTILS.PROGRAM_EXIT then
2098: raise;
2099: WHEN OTHERS THEN
2100: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_DEFAULT_PRE_DEFINED_VAR');
2101: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2096: EXCEPTION
2097: WHEN EC_UTILS.PROGRAM_EXIT then
2098: raise;
2099: WHEN OTHERS THEN
2100: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_DEFAULT_PRE_DEFINED_VAR');
2101: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2102: i_ret_code := 2;
2103: raise EC_UTILS.PROGRAM_EXIT;
2104: END if_default_pre_defined_var;
2099: WHEN OTHERS THEN
2100: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_DEFAULT_PRE_DEFINED_VAR');
2101: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2102: i_ret_code := 2;
2103: raise EC_UTILS.PROGRAM_EXIT;
2104: END if_default_pre_defined_var;
2105:
2106: /**
2107: Assign the Nextvalue from a sequence.
2118: o_stack_pos pls_integer;
2119: o_plsql_pos pls_integer;
2120: BEGIN
2121: if EC_DEBUG.G_debug_level >= 2 then
2122: ec_debug.push('EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2123: ec_debug.pl(3,'i_variable_level',i_variable_level);
2124: ec_debug.pl(3,'i_variable_name',i_variable_name);
2125: ec_debug.pl(3,'i_sequence_name',i_sequence_name);
2126: end if;
2154: end if;
2155: else
2156: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2157: i_ret_code := 2;
2158: raise EC_UTILS.PROGRAM_EXIT;
2159: end if;
2160: if EC_DEBUG.G_debug_level >= 2 then
2161: ec_debug.pop('EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2162: end if;
2157: i_ret_code := 2;
2158: raise EC_UTILS.PROGRAM_EXIT;
2159: end if;
2160: if EC_DEBUG.G_debug_level >= 2 then
2161: ec_debug.pop('EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2162: end if;
2163: EXCEPTION
2164: WHEN EC_UTILS.PROGRAM_EXIT then
2165: raise;
2160: if EC_DEBUG.G_debug_level >= 2 then
2161: ec_debug.pop('EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2162: end if;
2163: EXCEPTION
2164: WHEN EC_UTILS.PROGRAM_EXIT then
2165: raise;
2166: WHEN OTHERS THEN
2167: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2168: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2163: EXCEPTION
2164: WHEN EC_UTILS.PROGRAM_EXIT then
2165: raise;
2166: WHEN OTHERS THEN
2167: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2168: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2169: i_ret_code := 2;
2170: raise EC_UTILS.PROGRAM_EXIT;
2171: END assign_nextval_from_sequence;
2166: WHEN OTHERS THEN
2167: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
2168: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2169: i_ret_code := 2;
2170: raise EC_UTILS.PROGRAM_EXIT;
2171: END assign_nextval_from_sequence;
2172:
2173: /**
2174: Assigns the value returned by a function.
2185: o_stack_pos pls_integer;
2186: o_plsql_pos pls_integer;
2187: BEGIN
2188: if EC_DEBUG.G_debug_level >= 2 then
2189: ec_debug.push('EC_UTILS.ASSIGN_FUNCTION_VALUE');
2190: ec_debug.pl(3,'i_variable_level',i_variable_level);
2191: ec_debug.pl(3,'i_variable_name',i_variable_name);
2192: ec_debug.pl(3,'i_function_name',i_function_name);
2193: end if;
2224: end if;
2225: else
2226: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2227: i_ret_code := 2;
2228: raise EC_UTILS.PROGRAM_EXIT;
2229: end if;
2230: if EC_DEBUG.G_debug_level >= 2 then
2231: ec_debug.pop('EC_UTILS.ASSIGN_FUNCTION_VALUE');
2232: end if;
2227: i_ret_code := 2;
2228: raise EC_UTILS.PROGRAM_EXIT;
2229: end if;
2230: if EC_DEBUG.G_debug_level >= 2 then
2231: ec_debug.pop('EC_UTILS.ASSIGN_FUNCTION_VALUE');
2232: end if;
2233: EXCEPTION
2234: WHEN EC_UTILS.PROGRAM_EXIT then
2235: raise;
2230: if EC_DEBUG.G_debug_level >= 2 then
2231: ec_debug.pop('EC_UTILS.ASSIGN_FUNCTION_VALUE');
2232: end if;
2233: EXCEPTION
2234: WHEN EC_UTILS.PROGRAM_EXIT then
2235: raise;
2236: WHEN OTHERS THEN
2237: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_FUNCTION_VALUE');
2238: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2233: EXCEPTION
2234: WHEN EC_UTILS.PROGRAM_EXIT then
2235: raise;
2236: WHEN OTHERS THEN
2237: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_FUNCTION_VALUE');
2238: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2239: i_ret_code := 2;
2240: raise EC_UTILS.PROGRAM_EXIT;
2241: END assign_function_value;
2236: WHEN OTHERS THEN
2237: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.ASSIGN_FUNCTION_VALUE');
2238: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2239: i_ret_code := 2;
2240: raise EC_UTILS.PROGRAM_EXIT;
2241: END assign_function_value;
2242:
2243: /**
2244: If the value of the variable is null then skip the Document.
2257: o_stack_pos pls_integer;
2258: o_plsql_pos pls_integer;
2259: BEGIN
2260: if EC_DEBUG.G_debug_level >= 2 then
2261: ec_debug.push('EC_UTILS.IF_NULL_SKIP_DOCUMENT');
2262: ec_debug.pl(3,'i_variable_level',i_variable_level);
2263: ec_debug.pl(3,'i_variable_name',i_variable_name);
2264: end if;
2265:
2274: if NOT ( var_present )
2275: then
2276: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2277: i_ret_code := 2;
2278: raise EC_UTILS.PROGRAM_EXIT;
2279: end if;
2280:
2281: if i_variable_level = 0
2282: then
2294: i_ret_code :=1;
2295: end if;
2296: end if;
2297: if EC_DEBUG.G_debug_level >= 2 then
2298: ec_debug.pop('EC_UTILS.IF_NULL_SKIP_DOCUMENT');
2299: end if;
2300: EXCEPTION
2301: WHEN EC_UTILS.PROGRAM_EXIT then
2302: raise;
2297: if EC_DEBUG.G_debug_level >= 2 then
2298: ec_debug.pop('EC_UTILS.IF_NULL_SKIP_DOCUMENT');
2299: end if;
2300: EXCEPTION
2301: WHEN EC_UTILS.PROGRAM_EXIT then
2302: raise;
2303: WHEN OTHERS THEN
2304: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_SKIP_DOCUMENT');
2305: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2300: EXCEPTION
2301: WHEN EC_UTILS.PROGRAM_EXIT then
2302: raise;
2303: WHEN OTHERS THEN
2304: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_SKIP_DOCUMENT');
2305: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2306: i_ret_code := 2;
2307: raise EC_UTILS.PROGRAM_EXIT;
2308: END if_null_skip_document;
2303: WHEN OTHERS THEN
2304: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NULL_SKIP_DOCUMENT');
2305: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2306: i_ret_code := 2;
2307: raise EC_UTILS.PROGRAM_EXIT;
2308: END if_null_skip_document;
2309:
2310: /**
2311: Increment the value of the variable by 1.
2321: o_stack_pos pls_integer;
2322: o_plsql_pos pls_integer;
2323: BEGIN
2324: if EC_DEBUG.G_debug_level >= 2 then
2325: ec_debug.push('EC_UTILS.INCREMENT_BY_ONE');
2326: ec_debug.pl(3,'i_variable_level',i_variable_level);
2327: ec_debug.pl(3,'i_variable_name',i_variable_name);
2328: end if;
2329: var_present := find_variable
2352: end if;
2353: else
2354: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2355: i_ret_code := 2;
2356: raise EC_UTILS.PROGRAM_EXIT;
2357: end if;
2358: if EC_DEBUG.G_debug_level >= 2 then
2359: ec_debug.pop('EC_UTILS.INCREMENT_BY_ONE');
2360: end if;
2355: i_ret_code := 2;
2356: raise EC_UTILS.PROGRAM_EXIT;
2357: end if;
2358: if EC_DEBUG.G_debug_level >= 2 then
2359: ec_debug.pop('EC_UTILS.INCREMENT_BY_ONE');
2360: end if;
2361: EXCEPTION
2362: WHEN EC_UTILS.PROGRAM_EXIT then
2363: raise;
2358: if EC_DEBUG.G_debug_level >= 2 then
2359: ec_debug.pop('EC_UTILS.INCREMENT_BY_ONE');
2360: end if;
2361: EXCEPTION
2362: WHEN EC_UTILS.PROGRAM_EXIT then
2363: raise;
2364: WHEN OTHERS THEN
2365: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.INCREMENT_BY_ONE');
2366: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2361: EXCEPTION
2362: WHEN EC_UTILS.PROGRAM_EXIT then
2363: raise;
2364: WHEN OTHERS THEN
2365: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.INCREMENT_BY_ONE');
2366: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2367: i_ret_code := 2;
2368: raise EC_UTILS.PROGRAM_EXIT;
2369: END increment_by_one;
2364: WHEN OTHERS THEN
2365: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.INCREMENT_BY_ONE');
2366: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2367: i_ret_code := 2;
2368: raise EC_UTILS.PROGRAM_EXIT;
2369: END increment_by_one;
2370:
2371: /**
2372: Creates the Columns in the PL/SQL table required by the Open Interface Tables but are not
2390: hash_string varchar2(3200);
2391: p_count pls_integer :=0; -- 2996147
2392: BEGIN
2393: if EC_DEBUG.G_debug_level >= 2 then
2394: ec_debug.push('EC_UTILS.CREATE_MANDATORY_COLUMNS');
2395: ec_debug.pl(3,'i_variable_level',i_variable_level);
2396: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
2397: ec_debug.pl(3,'i_variable_name',i_variable_name);
2398: ec_debug.pl(3,'i_default_value',i_default_value);
2422: end if;
2423: -- 2996147
2424: hash_string:=to_char( g_file_tbl(m_count).external_level)||'-'||upper(g_file_tbl(m_count).interface_column_name);
2425: hash_val := dbms_utility.get_hash_value(hash_string,1,8192);
2426: if ec_utils.g_col_pos_tbl_1.exists(hash_val) then
2427: if ec_utils.g_col_pos_tbl_1(hash_val).occr=1 then
2428: p_count:=ec_utils.g_col_pos_tbl_1(hash_val).value;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2423: -- 2996147
2424: hash_string:=to_char( g_file_tbl(m_count).external_level)||'-'||upper(g_file_tbl(m_count).interface_column_name);
2425: hash_val := dbms_utility.get_hash_value(hash_string,1,8192);
2426: if ec_utils.g_col_pos_tbl_1.exists(hash_val) then
2427: if ec_utils.g_col_pos_tbl_1(hash_val).occr=1 then
2428: p_count:=ec_utils.g_col_pos_tbl_1(hash_val).value;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2424: hash_string:=to_char( g_file_tbl(m_count).external_level)||'-'||upper(g_file_tbl(m_count).interface_column_name);
2425: hash_val := dbms_utility.get_hash_value(hash_string,1,8192);
2426: if ec_utils.g_col_pos_tbl_1.exists(hash_val) then
2427: if ec_utils.g_col_pos_tbl_1(hash_val).occr=1 then
2428: p_count:=ec_utils.g_col_pos_tbl_1(hash_val).value;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2425: hash_val := dbms_utility.get_hash_value(hash_string,1,8192);
2426: if ec_utils.g_col_pos_tbl_1.exists(hash_val) then
2427: if ec_utils.g_col_pos_tbl_1(hash_val).occr=1 then
2428: p_count:=ec_utils.g_col_pos_tbl_1(hash_val).value;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2426: if ec_utils.g_col_pos_tbl_1.exists(hash_val) then
2427: if ec_utils.g_col_pos_tbl_1(hash_val).occr=1 then
2428: p_count:=ec_utils.g_col_pos_tbl_1(hash_val).value;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2427: if ec_utils.g_col_pos_tbl_1(hash_val).occr=1 then
2428: p_count:=ec_utils.g_col_pos_tbl_1(hash_val).value;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2435: ec_utils.g_col_pos_tbl_2(m_count):=hash_val;
2429: ec_utils.g_col_pos_tbl_2(p_count):=hash_val;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2435: ec_utils.g_col_pos_tbl_2(m_count):=hash_val;
2436: else
2437: ec_utils.g_col_pos_tbl_1(hash_val).occr:=1;
2430: ec_utils.g_col_pos_tbl_1(hash_val).value:=0;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2435: ec_utils.g_col_pos_tbl_2(m_count):=hash_val;
2436: else
2437: ec_utils.g_col_pos_tbl_1(hash_val).occr:=1;
2438: ec_utils.g_col_pos_tbl_1(hash_val).value:=m_count;
2431: ec_utils.g_col_pos_tbl_1(hash_val).start_pos:=p_count;
2432: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2435: ec_utils.g_col_pos_tbl_2(m_count):=hash_val;
2436: else
2437: ec_utils.g_col_pos_tbl_1(hash_val).occr:=1;
2438: ec_utils.g_col_pos_tbl_1(hash_val).value:=m_count;
2439: end if;
2433: ec_utils.g_col_pos_tbl_1(hash_val).occr:=
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2435: ec_utils.g_col_pos_tbl_2(m_count):=hash_val;
2436: else
2437: ec_utils.g_col_pos_tbl_1(hash_val).occr:=1;
2438: ec_utils.g_col_pos_tbl_1(hash_val).value:=m_count;
2439: end if;
2440: -- 2996147
2441: if EC_DEBUG.G_debug_level >= 3 then
2434: ec_utils.g_col_pos_tbl_1(hash_val).occr +1;
2435: ec_utils.g_col_pos_tbl_2(m_count):=hash_val;
2436: else
2437: ec_utils.g_col_pos_tbl_1(hash_val).occr:=1;
2438: ec_utils.g_col_pos_tbl_1(hash_val).value:=m_count;
2439: end if;
2440: -- 2996147
2441: if EC_DEBUG.G_debug_level >= 3 then
2442: ec_debug.pl(3,i_variable_name,g_file_tbl(m_count).value);
2441: if EC_DEBUG.G_debug_level >= 3 then
2442: ec_debug.pl(3,i_variable_name,g_file_tbl(m_count).value);
2443: end if;
2444: if EC_DEBUG.G_debug_level >= 2 then
2445: ec_debug.pop('EC_UTILS.CREATE_MANDATORY_COLUMNS');
2446: end if;
2447: EXCEPTION
2448: WHEN OTHERS THEN
2449: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.CREATE_MANDATORY_COLUMNS');
2445: ec_debug.pop('EC_UTILS.CREATE_MANDATORY_COLUMNS');
2446: end if;
2447: EXCEPTION
2448: WHEN OTHERS THEN
2449: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.CREATE_MANDATORY_COLUMNS');
2450: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2451: i_ret_code := 2;
2452: raise EC_UTILS.PROGRAM_EXIT;
2453: end create_mandatory_columns;
2448: WHEN OTHERS THEN
2449: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.CREATE_MANDATORY_COLUMNS');
2450: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2451: i_ret_code := 2;
2452: raise EC_UTILS.PROGRAM_EXIT;
2453: end create_mandatory_columns;
2454:
2455: procedure append_clause
2456: (
2462: o_stack_pos pls_integer;
2463: o_plsql_pos pls_integer;
2464: BEGIN
2465: if EC_DEBUG.G_debug_level >= 2 then
2466: ec_debug.push('EC_UTILS.APPEND_CLAUSE');
2467: ec_debug.pl(3,'i_level',i_level);
2468: ec_debug.pl(3,'i_where_clause',i_where_clause);
2469: end if;
2470: g_int_levels(i_level).sql_stmt :=
2473: ec_debug.pl(3,'i_where_clause',
2474: g_int_levels(i_level).sql_stmt);
2475: end if;
2476: if EC_DEBUG.G_debug_level >= 2 then
2477: ec_debug.pop('EC_UTILS.APPEND_CLAUSE');
2478: end if;
2479: EXCEPTION
2480: WHEN OTHERS THEN
2481: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.APPEND_CLAUSE');
2477: ec_debug.pop('EC_UTILS.APPEND_CLAUSE');
2478: end if;
2479: EXCEPTION
2480: WHEN OTHERS THEN
2481: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.APPEND_CLAUSE');
2482: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2483: i_ret_code := 2;
2484: raise EC_UTILS.PROGRAM_EXIT;
2485: END append_clause;
2480: WHEN OTHERS THEN
2481: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.APPEND_CLAUSE');
2482: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2483: i_ret_code := 2;
2484: raise EC_UTILS.PROGRAM_EXIT;
2485: END append_clause;
2486:
2487: procedure if_Notnull_append_clause
2488: (
2496: o_stack_pos pls_integer;
2497: o_plsql_pos pls_integer;
2498: BEGIN
2499: if EC_DEBUG.G_debug_level >= 2 then
2500: ec_debug.push('EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2501: ec_debug.pl(3,'i_level',i_level);
2502: ec_debug.pl(3,'i_variable_level',i_variable_level);
2503: ec_debug.pl(3,'i_variable_name',i_variable_name);
2504: ec_debug.pl(3,'i_where_clause',i_where_clause);
2524:
2525: else
2526: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2527: i_ret_code := 2;
2528: raise EC_UTILS.PROGRAM_EXIT;
2529: end if;
2530:
2531: ec_debug.pl(3,'i_where_clause',g_int_levels(i_level).sql_stmt);
2532: if EC_DEBUG.G_debug_level >= 2 then
2529: end if;
2530:
2531: ec_debug.pl(3,'i_where_clause',g_int_levels(i_level).sql_stmt);
2532: if EC_DEBUG.G_debug_level >= 2 then
2533: ec_debug.pop('EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2534: end if;
2535: EXCEPTION
2536: WHEN EC_UTILS.PROGRAM_EXIT then
2537: raise;
2532: if EC_DEBUG.G_debug_level >= 2 then
2533: ec_debug.pop('EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2534: end if;
2535: EXCEPTION
2536: WHEN EC_UTILS.PROGRAM_EXIT then
2537: raise;
2538: WHEN OTHERS THEN
2539: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2540: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2535: EXCEPTION
2536: WHEN EC_UTILS.PROGRAM_EXIT then
2537: raise;
2538: WHEN OTHERS THEN
2539: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2540: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2541: i_ret_code := 2;
2542: raise EC_UTILS.PROGRAM_EXIT;
2543: END if_notnull_append_clause;
2538: WHEN OTHERS THEN
2539: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2540: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2541: i_ret_code := 2;
2542: raise EC_UTILS.PROGRAM_EXIT;
2543: END if_notnull_append_clause;
2544:
2545: procedure bind_variables_for_view
2546: (
2555: i_date date;
2556: i_number number;
2557: BEGIN
2558: if EC_DEBUG.G_debug_level >= 2 then
2559: ec_debug.push('EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2560: ec_debug.pl(3,'i_variable_name',i_variable_name);
2561: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
2562: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
2563: end if;
2638:
2639: else
2640: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2641: i_ret_code := 2;
2642: raise EC_UTILS.PROGRAM_EXIT;
2643: end if;
2644: if EC_DEBUG.G_debug_level >= 2 then
2645: ec_debug.pop('EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2646: end if;
2641: i_ret_code := 2;
2642: raise EC_UTILS.PROGRAM_EXIT;
2643: end if;
2644: if EC_DEBUG.G_debug_level >= 2 then
2645: ec_debug.pop('EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2646: end if;
2647: EXCEPTION
2648: WHEN EC_UTILS.PROGRAM_EXIT then
2649: raise;
2644: if EC_DEBUG.G_debug_level >= 2 then
2645: ec_debug.pop('EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2646: end if;
2647: EXCEPTION
2648: WHEN EC_UTILS.PROGRAM_EXIT then
2649: raise;
2650: WHEN OTHERS THEN
2651: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2652: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2647: EXCEPTION
2648: WHEN EC_UTILS.PROGRAM_EXIT then
2649: raise;
2650: WHEN OTHERS THEN
2651: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2652: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2653: i_ret_code := 2;
2654: raise EC_UTILS.PROGRAM_EXIT;
2655: END bind_variables_for_view;
2650: WHEN OTHERS THEN
2651: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.BIND_VARIABLES_FOR_VIEW');
2652: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2653: i_ret_code := 2;
2654: raise EC_UTILS.PROGRAM_EXIT;
2655: END bind_variables_for_view;
2656:
2657: /**
2658: Executes a given stored procedure or a function with parameters of following datatype :
2673: o_stack_pos pls_integer;
2674: o_plsql_pos pls_integer;
2675: BEGIN
2676: if EC_DEBUG.G_debug_level >= 2 then
2677: ec_debug.push('EC_UTILS.EXECUTE_PROC');
2678: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2679: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2680: end if;
2681:
2697: i_procedure_name,
2698: 1070
2699: );
2700: if EC_DEBUG.G_debug_level >= 2 then
2701: ec_debug.pop('EC_UTILS.EXECUTE_PROC');
2702: end if;
2703: EXCEPTION
2704: WHEN OTHERS THEN
2705: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_PROC');
2701: ec_debug.pop('EC_UTILS.EXECUTE_PROC');
2702: end if;
2703: EXCEPTION
2704: WHEN OTHERS THEN
2705: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_PROC');
2706: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2707: i_ret_code := 2;
2708: raise EC_UTILS.PROGRAM_EXIT;
2709: END execute_proc;
2704: WHEN OTHERS THEN
2705: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXECUTE_PROC');
2706: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2707: i_ret_code := 2;
2708: raise EC_UTILS.PROGRAM_EXIT;
2709: END execute_proc;
2710:
2711: /**
2712: Execute the Stored procedure or function only when x is null.
2728: o_stack_pos pls_integer;
2729: o_plsql_pos pls_integer;
2730: BEGIN
2731: if EC_DEBUG.G_debug_level >= 2 then
2732: ec_debug.push('EC_UTILS.IFXNULL_EXECUTE_PROC');
2733: ec_debug.pl(3,'i_variable_level',i_variable_level);
2734: ec_debug.pl(3,'i_variable_name',i_variable_name);
2735: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2736: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2746: if NOT ( var_present)
2747: then
2748: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2749: i_ret_code := 2;
2750: raise EC_UTILS.PROGRAM_EXIT;
2751: end if;
2752:
2753: if i_variable_level = 0
2754: then
2770: );
2771: end if;
2772: end if;
2773: if EC_DEBUG.G_debug_level >= 2 then
2774: ec_debug.pop('EC_UTILS.IFXNULL_EXECUTE_PROC');
2775: end if;
2776: EXCEPTION
2777: WHEN EC_UTILS.PROGRAM_EXIT then
2778: raise;
2773: if EC_DEBUG.G_debug_level >= 2 then
2774: ec_debug.pop('EC_UTILS.IFXNULL_EXECUTE_PROC');
2775: end if;
2776: EXCEPTION
2777: WHEN EC_UTILS.PROGRAM_EXIT then
2778: raise;
2779: WHEN OTHERS THEN
2780: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXNULL_EXECUTE_PROC');
2781: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2776: EXCEPTION
2777: WHEN EC_UTILS.PROGRAM_EXIT then
2778: raise;
2779: WHEN OTHERS THEN
2780: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXNULL_EXECUTE_PROC');
2781: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2782: i_ret_code := 2;
2783: raise EC_UTILS.PROGRAM_EXIT;
2784: END ifxnull_execute_proc;
2779: WHEN OTHERS THEN
2780: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXNULL_EXECUTE_PROC');
2781: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2782: i_ret_code := 2;
2783: raise EC_UTILS.PROGRAM_EXIT;
2784: END ifxnull_execute_proc;
2785:
2786: /**
2787: Execute the Stored procedure or function only when x is null.
2803: o_stack_pos pls_integer;
2804: o_plsql_pos pls_integer;
2805: BEGIN
2806: if EC_DEBUG.G_debug_level >= 2 then
2807: ec_debug.push('EC_UTILS.IFXNOTNULL_EXECUTE_PROC');
2808: ec_debug.pl(3,'i_variable_level',i_variable_level);
2809: ec_debug.pl(3,'i_variable_name',i_variable_name);
2810: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2811: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2821: if NOT ( var_present)
2822: then
2823: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2824: i_ret_code := 2;
2825: raise EC_UTILS.PROGRAM_EXIT;
2826: end if;
2827:
2828: if i_variable_level = 0
2829: then
2845: );
2846: end if;
2847: end if;
2848: if EC_DEBUG.G_debug_level >= 2 then
2849: ec_debug.pop('EC_UTILS.IFXNOTNULL_EXECUTE_PROC');
2850: end if;
2851: EXCEPTION
2852: WHEN EC_UTILS.PROGRAM_EXIT then
2853: raise;
2848: if EC_DEBUG.G_debug_level >= 2 then
2849: ec_debug.pop('EC_UTILS.IFXNOTNULL_EXECUTE_PROC');
2850: end if;
2851: EXCEPTION
2852: WHEN EC_UTILS.PROGRAM_EXIT then
2853: raise;
2854: WHEN OTHERS THEN
2855: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXNOTNULL_EXECUTE_PROC');
2856: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2851: EXCEPTION
2852: WHEN EC_UTILS.PROGRAM_EXIT then
2853: raise;
2854: WHEN OTHERS THEN
2855: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXNOTNULL_EXECUTE_PROC');
2856: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2857: i_ret_code := 2;
2858: raise EC_UTILS.PROGRAM_EXIT;
2859: END ifxnotnull_execute_proc;
2854: WHEN OTHERS THEN
2855: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXNOTNULL_EXECUTE_PROC');
2856: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2857: i_ret_code := 2;
2858: raise EC_UTILS.PROGRAM_EXIT;
2859: END ifxnotnull_execute_proc;
2860:
2861: /**
2862: Execute the Stored procedure or function only when x = default value.
2879: o_stack_pos pls_integer;
2880: o_plsql_pos pls_integer;
2881: BEGIN
2882: if EC_DEBUG.G_debug_level >= 2 then
2883: ec_debug.push('EC_UTILS.IFXCONST_EXECUTE_PROC');
2884: ec_debug.pl(3,'i_variable_level',i_variable_level);
2885: ec_debug.pl(3,'i_variable_name',i_variable_name);
2886: ec_debug.pl(3,'i_default_value',i_default_value);
2887: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2897: if NOT ( var_present)
2898: then
2899: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2900: i_ret_code := 2;
2901: raise EC_UTILS.PROGRAM_EXIT;
2902: end if;
2903:
2904: if i_variable_level = 0
2905: then
2921: );
2922: end if;
2923: end if;
2924: if EC_DEBUG.G_debug_level >= 2 then
2925: ec_debug.pop('EC_UTILS.IFXCONST_EXECUTE_PROC');
2926: end if;
2927: EXCEPTION
2928: WHEN EC_UTILS.PROGRAM_EXIT then
2929: raise;
2924: if EC_DEBUG.G_debug_level >= 2 then
2925: ec_debug.pop('EC_UTILS.IFXCONST_EXECUTE_PROC');
2926: end if;
2927: EXCEPTION
2928: WHEN EC_UTILS.PROGRAM_EXIT then
2929: raise;
2930: WHEN OTHERS THEN
2931: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXCONST_EXECUTE_PROC');
2932: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2927: EXCEPTION
2928: WHEN EC_UTILS.PROGRAM_EXIT then
2929: raise;
2930: WHEN OTHERS THEN
2931: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXCONST_EXECUTE_PROC');
2932: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2933: i_ret_code := 2;
2934: raise EC_UTILS.PROGRAM_EXIT;
2935: END ifxconst_execute_proc;
2930: WHEN OTHERS THEN
2931: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXCONST_EXECUTE_PROC');
2932: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
2933: i_ret_code := 2;
2934: raise EC_UTILS.PROGRAM_EXIT;
2935: END ifxconst_execute_proc;
2936:
2937: /**
2938: if x is equal to y , then execute procedure or function.
2958: o_plsql_pos pls_integer;
2959: o_plsql_pre_pos pls_integer;
2960: BEGIN
2961: if EC_DEBUG.G_debug_level >= 2 then
2962: ec_debug.push('EC_UTILS.IFXPRE_EXECUTE_PROC');
2963: ec_debug.pl(3,'i_variable_level',i_variable_level);
2964: ec_debug.pl(3,'i_variable_name',i_variable_name);
2965: ec_debug.pl(3,'i_previous_variable_level',i_previous_variable_level);
2966: ec_debug.pl(3,'i_previous_variable_name',i_previous_variable_name);
2977: if NOT ( var_present)
2978: then
2979: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2980: i_ret_code := 2;
2981: raise EC_UTILS.PROGRAM_EXIT;
2982: end if;
2983:
2984: pre_var_present := find_variable
2985: (
2993: then
2994: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK',
2995: 'VARIABLE_NAME',i_previous_variable_name);
2996: i_ret_code := 2;
2997: raise EC_UTILS.PROGRAM_EXIT;
2998: end if;
2999:
3000: if i_variable_level = 0
3001: then
3041: end if;
3042: end if;
3043: end if;
3044: if EC_DEBUG.G_debug_level >= 2 then
3045: ec_debug.pop('EC_UTILS.IFXPRE_EXECUTE_PROC');
3046: end if;
3047: EXCEPTION
3048: WHEN EC_UTILS.PROGRAM_EXIT then
3049: raise;
3044: if EC_DEBUG.G_debug_level >= 2 then
3045: ec_debug.pop('EC_UTILS.IFXPRE_EXECUTE_PROC');
3046: end if;
3047: EXCEPTION
3048: WHEN EC_UTILS.PROGRAM_EXIT then
3049: raise;
3050: WHEN OTHERS THEN
3051: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXPRE_EXECUTE_PROC');
3052: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3047: EXCEPTION
3048: WHEN EC_UTILS.PROGRAM_EXIT then
3049: raise;
3050: WHEN OTHERS THEN
3051: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXPRE_EXECUTE_PROC');
3052: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3053: i_ret_code := 2;
3054: raise EC_UTILS.PROGRAM_EXIT;
3055: END ifxpre_execute_proc;
3050: WHEN OTHERS THEN
3051: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.IFXPRE_EXECUTE_PROC');
3052: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3053: i_ret_code := 2;
3054: raise EC_UTILS.PROGRAM_EXIT;
3055: END ifxpre_execute_proc;
3056:
3057: procedure ext_find_position
3058: (
3066: bFound BOOLEAN := FALSE;
3067: POS_NOT_FOUND EXCEPTION;
3068: BEGIN
3069: if EC_DEBUG.G_debug_level >= 2 then
3070: ec_debug.PUSH('EC_UTILS.EXT_FIND_POSITION');
3071: ec_debug.pl(3,'i_level',i_level);
3072: ec_debug.pl(3,'i_search_text',i_search_text);
3073: end if;
3074:
3105: end if;
3106: end if;
3107: if EC_DEBUG.G_debug_level >= 2 then
3108: ec_debug.pl(3,'o_pos',o_pos);
3109: ec_debug.POP('EC_UTILS.EXT_FIND_POSITION');
3110: end if;
3111: EXCEPTION
3112: WHEN POS_NOT_FOUND THEN
3113: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
3110: end if;
3111: EXCEPTION
3112: WHEN POS_NOT_FOUND THEN
3113: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
3114: ec_debug.POP('EC_UTILS.EXT_FIND_POSITION');
3115: i_ret_code := 2;
3116: raise EC_UTILS.PROGRAM_EXIT;
3117: WHEN OTHERS THEN
3118: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_FIND_POSITION');
3112: WHEN POS_NOT_FOUND THEN
3113: ec_debug.pl(0,'EC','ECE_PLSQL_POS_NOT_FOUND','COLUMN_NAME',cIn_String);
3114: ec_debug.POP('EC_UTILS.EXT_FIND_POSITION');
3115: i_ret_code := 2;
3116: raise EC_UTILS.PROGRAM_EXIT;
3117: WHEN OTHERS THEN
3118: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_FIND_POSITION');
3119: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3120: i_ret_code := 2;
3114: ec_debug.POP('EC_UTILS.EXT_FIND_POSITION');
3115: i_ret_code := 2;
3116: raise EC_UTILS.PROGRAM_EXIT;
3117: WHEN OTHERS THEN
3118: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_FIND_POSITION');
3119: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3120: i_ret_code := 2;
3121: raise EC_UTILS.PROGRAM_EXIT;
3122: END ext_find_position;
3117: WHEN OTHERS THEN
3118: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_FIND_POSITION');
3119: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3120: i_ret_code := 2;
3121: raise EC_UTILS.PROGRAM_EXIT;
3122: END ext_find_position;
3123:
3124: procedure EXT_GET_KEY_VALUE
3125: (
3130: o_stack_pos pls_integer;
3131: o_plsql_pos pls_integer;
3132: BEGIN
3133: if EC_DEBUG.G_debug_level >= 2 then
3134: ec_debug.push('EC_UTILS.EXT_GET_KEY_VALUE');
3135: ec_debug.pl(3,'i_position',i_position);
3136: end if;
3137: if i_position is not null then
3138: o_value := g_file_tbl(i_position).value;
3140: ec_debug.pl(3,o_value,g_file_tbl(i_position).value);
3141: end if;
3142: end if;
3143: if EC_DEBUG.G_debug_level >= 2 then
3144: ec_debug.pop('EC_UTILS.EXT_GET_KEY_VALUE');
3145: end if;
3146: EXCEPTION
3147: WHEN OTHERS THEN
3148: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_GET_KEY_VALUE');
3144: ec_debug.pop('EC_UTILS.EXT_GET_KEY_VALUE');
3145: end if;
3146: EXCEPTION
3147: WHEN OTHERS THEN
3148: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_GET_KEY_VALUE');
3149: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3150: i_ret_code := 2;
3151: raise EC_UTILS.PROGRAM_EXIT;
3152: END EXT_GET_KEY_VALUE;
3147: WHEN OTHERS THEN
3148: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_GET_KEY_VALUE');
3149: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3150: i_ret_code := 2;
3151: raise EC_UTILS.PROGRAM_EXIT;
3152: END EXT_GET_KEY_VALUE;
3153:
3154: procedure EXT_INSERT_VALUE
3155: (
3160: o_stack_pos pls_integer;
3161: o_plsql_pos pls_integer;
3162: BEGIN
3163: if EC_DEBUG.G_debug_level >= 2 then
3164: ec_debug.push('EC_UTILS.EXT_INSERT_VALUE');
3165: ec_debug.pl(3,'i_position',i_position);
3166: ec_debug.pl(3,'i_value',i_value);
3167: end if;
3168: if i_position is not null then
3170: ec_debug.pl(3,'i_value_put',g_file_tbl(i_position).value);
3171: end if;
3172:
3173: if EC_DEBUG.G_debug_level >= 2 then
3174: ec_debug.pop('EC_UTILS.EXT_INSERT_VALUE');
3175: end if;
3176: EXCEPTION
3177: WHEN OTHERS THEN
3178: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_INSERT_VALUE');
3174: ec_debug.pop('EC_UTILS.EXT_INSERT_VALUE');
3175: end if;
3176: EXCEPTION
3177: WHEN OTHERS THEN
3178: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_INSERT_VALUE');
3179: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3180: i_ret_code := 2;
3181: raise EC_UTILS.PROGRAM_EXIT;
3182: END EXT_INSERT_VALUE;
3177: WHEN OTHERS THEN
3178: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','EC_UTILS.EXT_INSERT_VALUE');
3179: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
3180: i_ret_code := 2;
3181: raise EC_UTILS.PROGRAM_EXIT;
3182: END EXT_INSERT_VALUE;
3183:
3184: end ec_utils;
3180: i_ret_code := 2;
3181: raise EC_UTILS.PROGRAM_EXIT;
3182: END EXT_INSERT_VALUE;
3183:
3184: end ec_utils;