[Home] [Help]
43: bFound BOOLEAN := FALSE;
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;
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: /**
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: /**
53: For a given Level , find out the Start and End Position of the Stack. use this range
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: /**
53: For a given Level , find out the Start and End Position of the Stack. use this range
54: to loop through the Stack.
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');
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;
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;
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
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
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;
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;
93:
106: m_value varchar2(20000);
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:
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;
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;
116:
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
140: /*Bug 1853627- Replaced the above dbms_sql with execute immediate statement */
141:
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
141:
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
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;
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;
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;
161:
166: )
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';
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
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
176: (
176: (
177: cString,
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
177: cString,
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
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;
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;
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;
193:
202: )
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'
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
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
212: cString := 'to_char(SYSDATE,''YYYYMMDD HH24MISS'')';
220: (
221: cString,
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
221: cString,
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
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;
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;
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;
237:
238: procedure dump_stack
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:
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
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
248: loop
245: end if;
246:
247: for i in 1..m_count
248: loop
249: if EC_DEBUG.G_debug_level = 3 then
250: ec_debug.pl
251: (3,
252: g_stack(i).level||' '||
253: g_stack(i).variable_name||' ' ||
246:
247: for i in 1..m_count
248: loop
249: if EC_DEBUG.G_debug_level = 3 then
250: ec_debug.pl
251: (3,
252: g_stack(i).level||' '||
253: g_stack(i).variable_name||' ' ||
254: g_stack(i).variable_position||' '||
256: g_stack(i).data_type
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
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;
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;
270:
275: is
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:
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
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
285: then
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;
289: return;
290: 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
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:
328: if ( i_first_found) and NOT (i_last_found)
329: then
330: g_stack_pointer(i_level).end_pos := g_stack_pointer(i_level).start_pos;
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;
329: then
330: g_stack_pointer(i_level).end_pos := g_stack_pointer(i_level).start_pos;
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
330: g_stack_pointer(i_level).end_pos := g_stack_pointer(i_level).start_pos;
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
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;
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;
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;
346: /**
352: i_level IN number
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;
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
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
362: if i_stage = 10
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
362: if i_stage = 10
363: then
374: and i_stage_data(i).level = i_level
375: and i_stage_data(i).action_type <> 110
376: )
377: then
378: if EC_DEBUG.G_debug_level = 3 then
379: ec_debug.pl(3,'i_transtage_id',i_stage_data(i).transtage_id);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
375: and i_stage_data(i).action_type <> 110
376: )
377: then
378: if EC_DEBUG.G_debug_level = 3 then
379: ec_debug.pl(3,'i_transtage_id',i_stage_data(i).transtage_id);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
376: )
377: then
378: if EC_DEBUG.G_debug_level = 3 then
379: ec_debug.pl(3,'i_transtage_id',i_stage_data(i).transtage_id);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
377: then
378: if EC_DEBUG.G_debug_level = 3 then
379: ec_debug.pl(3,'i_transtage_id',i_stage_data(i).transtage_id);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
378: if EC_DEBUG.G_debug_level = 3 then
379: ec_debug.pl(3,'i_transtage_id',i_stage_data(i).transtage_id);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
379: ec_debug.pl(3,'i_transtage_id',i_stage_data(i).transtage_id);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
380: ec_debug.pl(3,'i_seq_number',i_stage_data(i).seq_number);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
381: ec_debug.pl(3,'i_action_type',i_stage_data(i).action_type);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
382: ec_debug.pl(3,'i_variable_level',i_stage_data(i).variable_level);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
383: ec_debug.pl(3,'i_variable_name',i_stage_data(i).variable_name);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
384: ec_debug.pl(3,'i_variable_value',i_stage_data(i).variable_value);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
392: ec_debug.pl(3,'i_function_name',i_stage_data(i).function_name);
385: ec_debug.pl(3,'i_default_value',i_stage_data(i).default_value);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
392: ec_debug.pl(3,'i_function_name',i_stage_data(i).function_name);
393: ec_debug.pl(3,'i_where_clause',i_stage_data(i).clause);
386: ec_debug.pl(3,'i_previous_variable_level',i_stage_data(i).previous_variable_level);
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
392: ec_debug.pl(3,'i_function_name',i_stage_data(i).function_name);
393: ec_debug.pl(3,'i_where_clause',i_stage_data(i).clause);
394: end if;
387: ec_debug.pl(3,'i_previous_variable_name',i_stage_data(i).previous_variable_name);
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
392: ec_debug.pl(3,'i_function_name',i_stage_data(i).function_name);
393: ec_debug.pl(3,'i_where_clause',i_stage_data(i).clause);
394: end if;
395: if i_stage_data(i).action_type = NEW_VARIABLE
388: ec_debug.pl(3,'i_next_variable_name',i_stage_data(i).next_variable_name);
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
392: ec_debug.pl(3,'i_function_name',i_stage_data(i).function_name);
393: ec_debug.pl(3,'i_where_clause',i_stage_data(i).clause);
394: end if;
395: if i_stage_data(i).action_type = NEW_VARIABLE
396: then
389: ec_debug.pl(3,'i_sequence_name',i_stage_data(i).sequence_name);
390: ec_debug.pl(3,'i_custom_procedure_name',i_stage_data(i).custom_procedure_name);
391: ec_debug.pl(3,'i_data_type',i_stage_data(i).data_type);
392: ec_debug.pl(3,'i_function_name',i_stage_data(i).function_name);
393: ec_debug.pl(3,'i_where_clause',i_stage_data(i).clause);
394: end if;
395: if i_stage_data(i).action_type = NEW_VARIABLE
396: then
397: create_new_variable
607: /* Bug 1853627 - Added the following condition which suppress the call to the procedure
608: ** dump_stack when the debug_mode is less than 2
609: */
610:
611: if (ec_debug.G_debug_level >=2) then
612: dump_stack;
613: end if;
614: /**
615: If Stage = 10 , get the stack pointer location.
629: get_position_for_stack(i);
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
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;
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;
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;
645:
681: order by stage,transaction_level,seq_number;
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;
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:
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:
691: /* Bug 2019253 Clearing the Staging tables */
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:
691: /* Bug 2019253 Clearing the Staging tables */
692:
717: g_stage_data(i_counter).custom_procedure_name := get_stage_data.custom_procedure_name;
718: g_stage_data(i_counter).data_type := get_stage_data.data_type;
719: g_stage_data(i_counter).function_name := get_stage_data.function_name;
720: g_stage_data(i_counter).clause := get_stage_data.where_clause;
721: if EC_DEBUG.G_debug_level >= 3 then
722: ec_debug.pl
723: (3,
724: g_stage_data(i_counter).transtage_id||' '||
725: g_stage_data(i_counter).level||' '||
718: g_stage_data(i_counter).data_type := get_stage_data.data_type;
719: g_stage_data(i_counter).function_name := get_stage_data.function_name;
720: g_stage_data(i_counter).clause := get_stage_data.where_clause;
721: if EC_DEBUG.G_debug_level >= 3 then
722: ec_debug.pl
723: (3,
724: g_stage_data(i_counter).transtage_id||' '||
725: g_stage_data(i_counter).level||' '||
726: g_stage_data(i_counter).stage||' '||
740: );
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
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;
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;
754:
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;
765: /**
766: Store the Stage 10 data in i_tmp1_stage_data tbl.
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: **/
807: i_tmp2_stage_data(k).function_name := g_stage_data(i).function_name;
808: i_tmp2_stage_data(k).clause := g_stage_data(i).clause;
809: end if;
810: end loop;
811: if EC_DEBUG.G_debug_level >= 3 then
812: ec_debug.pl(3,'Separation of Data into Stage 10 and rest done. Sorting to proceed');
813: end if;
814:
815: /**
808: i_tmp2_stage_data(k).clause := g_stage_data(i).clause;
809: end if;
810: end loop;
811: if EC_DEBUG.G_debug_level >= 3 then
812: ec_debug.pl(3,'Separation of Data into Stage 10 and rest done. Sorting to proceed');
813: end if;
814:
815: /**
816: Depending on Inbound or Outbound transaction sort the
937: i_tmp_stage_data(l).clause := i_tmp1_stage_data(k).clause;
938: end if;
939: end loop;
940: end if;
941: if EC_DEBUG.G_debug_level >= 2 then
942: ec_debug.pl(3,'Stage 10 data after sorting is as follows :');
943: for i in 1..i_tmp_stage_data.COUNT
944: loop
945: ec_debug.pl
938: end if;
939: end loop;
940: end if;
941: if EC_DEBUG.G_debug_level >= 2 then
942: ec_debug.pl(3,'Stage 10 data after sorting is as follows :');
943: for i in 1..i_tmp_stage_data.COUNT
944: loop
945: ec_debug.pl
946: (3,
941: if EC_DEBUG.G_debug_level >= 2 then
942: ec_debug.pl(3,'Stage 10 data after sorting is as follows :');
943: for i in 1..i_tmp_stage_data.COUNT
944: loop
945: ec_debug.pl
946: (3,
947: i_tmp_stage_data(i).transtage_id||' '||
948: i_tmp_stage_data(i).level||' '||
949: i_tmp_stage_data(i).stage||' '||
961: i_tmp_stage_data(i).function_name||' '||
962: i_tmp_stage_data(i).clause
963: );
964: end loop;
965: ec_debug.pl(3,'Data for Stages other then 10 is as follows :');
966: for i in 1..i_tmp2_stage_data.COUNT
967: loop
968: ec_debug.pl
969: (3,
964: end loop;
965: ec_debug.pl(3,'Data for Stages other then 10 is as follows :');
966: for i in 1..i_tmp2_stage_data.COUNT
967: loop
968: ec_debug.pl
969: (3,
970: i_tmp2_stage_data(i).transtage_id||' '||
971: i_tmp2_stage_data(i).level||' '||
972: i_tmp2_stage_data(i).stage||' '||
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;
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;
997:
1010: hash_string varchar2(3200);
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;
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:
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:
1020: if g_direction = 'I'
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:
1020: if g_direction = 'I'
1021: then
1075: else
1076: o_pos := NULL;
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
1076: o_pos := NULL;
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
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);
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);
1086: ec_debug.POP('EC_UTILS.FIND_POS');
1087: i_ret_code := 2;
1088: raise EC_UTILS.PROGRAM_EXIT;
1089: WHEN OTHERS THEN
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');
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;
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;
1095:
1110: nColumn_count pls_integer := g_file_tbl.COUNT;
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);
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);
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);
1120: end if;
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);
1120: end if;
1121: for j in i_from_level..i_to_level
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);
1120: end if;
1121: for j in i_from_level..i_to_level
1122: loop
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);
1120: end if;
1121: for j in i_from_level..i_to_level
1122: loop
1123: for k in 1..nColumn_count
1147: else
1148: o_pos := NULL;
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
1148: o_pos := NULL;
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
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);
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);
1158: ec_debug.POP('EC_UTILS.FIND_POS');
1159: i_ret_code := 2;
1160: raise EC_UTILS.PROGRAM_EXIT;
1161: WHEN OTHERS THEN
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');
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;
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;
1167:
1187: i_pre_interface_pos pls_integer;
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);
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;
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;
1197: current_on_stack := find_variable
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;
1197: current_on_stack := find_variable
1198: (
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;
1197: current_on_stack := find_variable
1198: (
1199: i_variable_level,
1204:
1205: if ( current_on_stack )
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
1215: g_stack(i_stack_pos).variable_value := i_variable_value;
1216: end if;
1217: if EC_DEBUG.G_debug_level >= 3 then
1218: ec_debug.pl(3,'Variable already on Stack');
1219: ec_debug.pl(3,i_variable_name,i_variable_value);
1220: end if;
1221:
1214: then
1215: g_stack(i_stack_pos).variable_value := i_variable_value;
1216: end if;
1217: if EC_DEBUG.G_debug_level >= 3 then
1218: ec_debug.pl(3,'Variable already on Stack');
1219: ec_debug.pl(3,i_variable_name,i_variable_value);
1220: end if;
1221:
1222: else
1215: g_stack(i_stack_pos).variable_value := i_variable_value;
1216: end if;
1217: if EC_DEBUG.G_debug_level >= 3 then
1218: ec_debug.pl(3,'Variable already on Stack');
1219: ec_debug.pl(3,i_variable_name,i_variable_value);
1220: end if;
1221:
1222: else
1223: if i_variable_level = 0
1226: g_stack(m_count).level := i_variable_level;
1227: g_stack(m_count).variable_name := i_variable_name;
1228: g_stack(m_count).variable_value := i_variable_value;
1229: g_stack(m_count).data_type := i_data_type;
1230: if EC_DEBUG.G_debug_level >= 3 then
1231: ec_debug.pl(3,i_variable_name,i_variable_value);
1232: end if;
1233: else
1234: FIND_POS
1227: g_stack(m_count).variable_name := i_variable_name;
1228: g_stack(m_count).variable_value := i_variable_value;
1229: g_stack(m_count).data_type := i_data_type;
1230: if EC_DEBUG.G_debug_level >= 3 then
1231: ec_debug.pl(3,i_variable_name,i_variable_value);
1232: end if;
1233: else
1234: FIND_POS
1235: (
1243: g_stack(m_count).variable_name := i_variable_name;
1244: g_stack(m_count).variable_position := i_pre_interface_pos;
1245: g_stack(m_count).data_type := i_data_type;
1246: g_file_tbl(i_pre_interface_pos).value := i_variable_value;
1247: if EC_DEBUG.G_debug_level >= 3 then
1248: ec_debug.pl(3,i_variable_name,g_file_tbl(i_pre_interface_pos).value);
1249: end if;
1250: end if;
1251: -- Bug 2708573
1244: g_stack(m_count).variable_position := i_pre_interface_pos;
1245: g_stack(m_count).data_type := i_data_type;
1246: g_file_tbl(i_pre_interface_pos).value := i_variable_value;
1247: if EC_DEBUG.G_debug_level >= 3 then
1248: ec_debug.pl(3,i_variable_name,g_file_tbl(i_pre_interface_pos).value);
1249: end if;
1250: end if;
1251: -- Bug 2708573
1252: -- Populate Hash table for searching the g_stack
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');
1260: end if;
1261: EXCEPTION
1262: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
1270:
1288: o_stack_pre_pos pls_integer;
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);
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);
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);
1298: ec_debug.pl(3,'i_default_value',i_default_value);
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);
1298: ec_debug.pl(3,'i_default_value',i_default_value);
1299: end if;
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);
1298: ec_debug.pl(3,'i_default_value',i_default_value);
1299: end if;
1300: var_present :=find_variable
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);
1298: ec_debug.pl(3,'i_default_value',i_default_value);
1299: end if;
1300: var_present :=find_variable
1301: (
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);
1298: ec_debug.pl(3,'i_default_value',i_default_value);
1299: end if;
1300: var_present :=find_variable
1301: (
1302: i_variable_level,
1305: o_plsql_pos
1306: );
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:
1320: );
1321:
1322: if NOT ( pre_var_present)
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;
1334: if i_previous_variable_level = 0
1335: then
1336: g_stack(o_stack_pre_pos).variable_value
1337: := i_default_value;
1338: if EC_DEBUG.G_debug_level >= 3 then
1339: ec_debug.pl(3,i_previous_variable_name,g_stack(o_stack_pre_pos).variable_value);
1340: end if;
1341: else
1342: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1335: then
1336: g_stack(o_stack_pre_pos).variable_value
1337: := i_default_value;
1338: if EC_DEBUG.G_debug_level >= 3 then
1339: ec_debug.pl(3,i_previous_variable_name,g_stack(o_stack_pre_pos).variable_value);
1340: end if;
1341: else
1342: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1343: if EC_DEBUG.G_debug_level >= 3 then
1339: ec_debug.pl(3,i_previous_variable_name,g_stack(o_stack_pre_pos).variable_value);
1340: end if;
1341: else
1342: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1343: if EC_DEBUG.G_debug_level >= 3 then
1344: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pre_pos).value);
1345: end if;
1346: end if;
1347: end if;
1340: end if;
1341: else
1342: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1343: if EC_DEBUG.G_debug_level >= 3 then
1344: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pre_pos).value);
1345: end if;
1346: end if;
1347: end if;
1348: else
1351: if i_previous_variable_level = 0
1352: then
1353: g_stack(o_stack_pre_pos).variable_value
1354: := i_default_value;
1355: if EC_DEBUG.G_debug_level >= 3 then
1356: ec_debug.pl(3,i_previous_variable_name,g_stack(o_stack_pre_pos).variable_value);
1357: end if;
1358: else
1359: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1352: then
1353: g_stack(o_stack_pre_pos).variable_value
1354: := i_default_value;
1355: if EC_DEBUG.G_debug_level >= 3 then
1356: ec_debug.pl(3,i_previous_variable_name,g_stack(o_stack_pre_pos).variable_value);
1357: end if;
1358: else
1359: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1360: if EC_DEBUG.G_debug_level >= 3 then
1356: ec_debug.pl(3,i_previous_variable_name,g_stack(o_stack_pre_pos).variable_value);
1357: end if;
1358: else
1359: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1360: if EC_DEBUG.G_debug_level >= 3 then
1361: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pre_pos).value);
1362: end if;
1363: end if;
1364: end if;
1357: end if;
1358: else
1359: g_file_tbl(o_plsql_pre_pos).value := i_default_value;
1360: if EC_DEBUG.G_debug_level >= 3 then
1361: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pre_pos).value);
1362: end if;
1363: end if;
1364: end if;
1365: end if;
1362: end if;
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
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;
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;
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;
1378:
1395: o_stack_pre_pos pls_integer;
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);
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);
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);
1405: end if;
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);
1405: end if;
1406: var_present :=find_variable
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);
1405: end if;
1406: var_present :=find_variable
1407: (
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);
1405: end if;
1406: var_present :=find_variable
1407: (
1408: i_variable_level,
1411: o_plsql_pos
1412: );
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:
1426: );
1427:
1428: if NOT ( pre_var_present)
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;
1438: if i_previous_variable_level = 0
1439: then
1440: g_stack(o_stack_pos).variable_value
1441: := g_stack(o_stack_pre_pos).variable_value;
1442: if EC_DEBUG.G_debug_level >= 3 then
1443: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1444: end if;
1445: else
1446: g_stack(o_stack_pos).variable_value
1439: then
1440: g_stack(o_stack_pos).variable_value
1441: := g_stack(o_stack_pre_pos).variable_value;
1442: if EC_DEBUG.G_debug_level >= 3 then
1443: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1444: end if;
1445: else
1446: g_stack(o_stack_pos).variable_value
1447: := g_file_tbl(o_plsql_pre_pos).value;
1444: end if;
1445: else
1446: g_stack(o_stack_pos).variable_value
1447: := g_file_tbl(o_plsql_pre_pos).value;
1448: if EC_DEBUG.G_debug_level >= 3 then
1449: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1450: end if;
1451: end if;
1452: else
1445: else
1446: g_stack(o_stack_pos).variable_value
1447: := g_file_tbl(o_plsql_pre_pos).value;
1448: if EC_DEBUG.G_debug_level >= 3 then
1449: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1450: end if;
1451: end if;
1452: else
1453: if i_previous_variable_level = 0
1453: if i_previous_variable_level = 0
1454: then
1455: g_file_tbl(o_plsql_pos).value
1456: := g_stack(o_stack_pre_pos).variable_value;
1457: if EC_DEBUG.G_debug_level >= 3 then
1458: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1459: end if;
1460: else
1461: g_file_tbl(o_plsql_pos).value
1454: then
1455: g_file_tbl(o_plsql_pos).value
1456: := g_stack(o_stack_pre_pos).variable_value;
1457: if EC_DEBUG.G_debug_level >= 3 then
1458: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1459: end if;
1460: else
1461: g_file_tbl(o_plsql_pos).value
1462: := g_file_tbl(o_plsql_pre_pos).value;
1459: end if;
1460: else
1461: g_file_tbl(o_plsql_pos).value
1462: := g_file_tbl(o_plsql_pre_pos).value;
1463: if EC_DEBUG.G_debug_level >= 3 then
1464: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1465: end if;
1466: end if;
1467: end if;
1460: else
1461: g_file_tbl(o_plsql_pos).value
1462: := g_file_tbl(o_plsql_pre_pos).value;
1463: if EC_DEBUG.G_debug_level >= 3 then
1464: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1465: end if;
1466: end if;
1467: end if;
1468: if EC_DEBUG.G_debug_level >= 2 then
1464: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
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
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;
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;
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;
1480:
1493: var_present BOOLEAN := FALSE;
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);
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;
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;
1503:
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;
1503:
1504: var_present := find_variable
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;
1503:
1504: var_present := find_variable
1505: (
1513: then
1514: if i_variable_level = 0
1515: then
1516: g_stack(o_stack_pos).variable_value := i_default_value;
1517: if EC_DEBUG.G_debug_level >= 3 then
1518: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1519: end if;
1520: else
1521: g_file_tbl(o_plsql_pos).value := i_default_value;
1514: if i_variable_level = 0
1515: then
1516: g_stack(o_stack_pos).variable_value := i_default_value;
1517: if EC_DEBUG.G_debug_level >= 3 then
1518: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1519: end if;
1520: else
1521: g_file_tbl(o_plsql_pos).value := i_default_value;
1522: if EC_DEBUG.G_debug_level >= 3 then
1518: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1519: end if;
1520: else
1521: g_file_tbl(o_plsql_pos).value := i_default_value;
1522: if EC_DEBUG.G_debug_level >= 3 then
1523: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1524: end if;
1525: end if;
1526: else
1519: end if;
1520: else
1521: g_file_tbl(o_plsql_pos).value := i_default_value;
1522: if EC_DEBUG.G_debug_level >= 3 then
1523: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1524: end if;
1525: end if;
1526: else
1527: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
1523: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1524: 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
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;
1534: EXCEPTION
1535: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
1543:
1558: var_present BOOLEAN := FALSE;
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);
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;
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;
1568:
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;
1568:
1569: var_present := find_variable
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;
1568:
1569: var_present := find_variable
1570: (
1580: then
1581: if g_stack(o_stack_pos).variable_value is NULL
1582: then
1583: g_stack(o_stack_pos).variable_value := i_default_value;
1584: if EC_DEBUG.G_debug_level >= 3 then
1585: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1586: end if;
1587: end if;
1588: else
1581: if g_stack(o_stack_pos).variable_value is NULL
1582: then
1583: g_stack(o_stack_pos).variable_value := i_default_value;
1584: if EC_DEBUG.G_debug_level >= 3 then
1585: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1586: end if;
1587: end if;
1588: else
1589: if g_file_tbl(o_plsql_pos).value is NULL
1588: else
1589: if g_file_tbl(o_plsql_pos).value is NULL
1590: then
1591: g_file_tbl(o_plsql_pos).value := i_default_value;
1592: if EC_DEBUG.G_debug_level >= 3 then
1593: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1594: end if;
1595: end if;
1596: end if;
1589: if g_file_tbl(o_plsql_pos).value is NULL
1590: then
1591: g_file_tbl(o_plsql_pos).value := i_default_value;
1592: if EC_DEBUG.G_debug_level >= 3 then
1593: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1594: end if;
1595: end if;
1596: end if;
1597: else
1594: end if;
1595: 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
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;
1605: EXCEPTION
1606: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
1614:
1635: o_stack_pre_pos pls_integer;
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);
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);
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);
1645: end if;
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);
1645: end if;
1646:
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);
1645: end if;
1646:
1647: var_present :=find_variable
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);
1645: end if;
1646:
1647: var_present :=find_variable
1648: (
1652: o_plsql_pos
1653: );
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:
1667: );
1668:
1669: if NOT ( pre_var_present)
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;
1681: if i_previous_variable_level = 0
1682: then
1683: g_stack(o_stack_pos).variable_value
1684: := g_stack(o_stack_pre_pos).variable_value;
1685: if EC_DEBUG.G_debug_level >= 3 then
1686: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1687: end if;
1688: else
1689: g_stack(o_stack_pos).variable_value
1682: then
1683: g_stack(o_stack_pos).variable_value
1684: := g_stack(o_stack_pre_pos).variable_value;
1685: if EC_DEBUG.G_debug_level >= 3 then
1686: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1687: end if;
1688: else
1689: g_stack(o_stack_pos).variable_value
1690: := g_file_tbl(o_plsql_pre_pos).value;
1687: end if;
1688: else
1689: g_stack(o_stack_pos).variable_value
1690: := g_file_tbl(o_plsql_pre_pos).value;
1691: if EC_DEBUG.G_debug_level >= 3 then
1692: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1693: end if;
1694: end if;
1695: end if;
1688: else
1689: g_stack(o_stack_pos).variable_value
1690: := g_file_tbl(o_plsql_pre_pos).value;
1691: if EC_DEBUG.G_debug_level >= 3 then
1692: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1693: end if;
1694: end if;
1695: end if;
1696: else
1699: if i_previous_variable_level = 0
1700: then
1701: g_file_tbl(o_plsql_pos).value
1702: := g_stack(o_stack_pre_pos).variable_value;
1703: if EC_DEBUG.G_debug_level >= 3 then
1704: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1705: end if;
1706: else
1707: g_file_tbl(o_plsql_pos).value
1700: then
1701: g_file_tbl(o_plsql_pos).value
1702: := g_stack(o_stack_pre_pos).variable_value;
1703: if EC_DEBUG.G_debug_level >= 3 then
1704: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1705: end if;
1706: else
1707: g_file_tbl(o_plsql_pos).value
1708: := g_file_tbl(o_plsql_pre_pos).value;
1705: end if;
1706: else
1707: g_file_tbl(o_plsql_pos).value
1708: := g_file_tbl(o_plsql_pre_pos).value;
1709: if EC_DEBUG.G_debug_level >= 3 then
1710: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1711: end if;
1712: end if;
1713: end if;
1706: else
1707: g_file_tbl(o_plsql_pos).value
1708: := g_file_tbl(o_plsql_pre_pos).value;
1709: if EC_DEBUG.G_debug_level >= 3 then
1710: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1711: end if;
1712: end if;
1713: end if;
1714: end if;
1711: end if;
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
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;
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;
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;
1727:
1750: o_stack_pre_pos pls_integer;
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);
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);
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);
1760: end if;
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);
1760: end if;
1761:
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);
1760: end if;
1761:
1762: var_present :=find_variable
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);
1760: end if;
1761:
1762: var_present :=find_variable
1763: (
1767: o_plsql_pos
1768: );
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:
1782: );
1783:
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:
1795: if i_previous_variable_level = 0
1796: then
1797: g_stack(o_stack_pre_pos).variable_value
1798: := g_stack(o_stack_pos).variable_value;
1799: if EC_DEBUG.G_debug_level >= 3 then
1800: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1801: end if;
1802: else
1803: g_file_tbl(o_plsql_pre_pos).value
1796: then
1797: g_stack(o_stack_pre_pos).variable_value
1798: := g_stack(o_stack_pos).variable_value;
1799: if EC_DEBUG.G_debug_level >= 3 then
1800: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1801: end if;
1802: else
1803: g_file_tbl(o_plsql_pre_pos).value
1804: := g_stack(o_stack_pos).variable_value;
1801: end if;
1802: else
1803: g_file_tbl(o_plsql_pre_pos).value
1804: := g_stack(o_stack_pos).variable_value;
1805: if EC_DEBUG.G_debug_level >= 3 then
1806: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1807: end if;
1808: end if;
1809: end if;
1802: else
1803: g_file_tbl(o_plsql_pre_pos).value
1804: := g_stack(o_stack_pos).variable_value;
1805: if EC_DEBUG.G_debug_level >= 3 then
1806: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1807: end if;
1808: end if;
1809: end if;
1810: else /* My current Variable Level is not 0 */
1813: if i_previous_variable_level = 0
1814: then
1815: g_stack(o_stack_pre_pos).variable_value
1816: := g_file_tbl(o_plsql_pos).value;
1817: if EC_DEBUG.G_debug_level >= 3 then
1818: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1819: end if;
1820: else
1821: g_file_tbl(o_plsql_pre_pos).value
1814: then
1815: g_stack(o_stack_pre_pos).variable_value
1816: := g_file_tbl(o_plsql_pos).value;
1817: if EC_DEBUG.G_debug_level >= 3 then
1818: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1819: end if;
1820: else
1821: g_file_tbl(o_plsql_pre_pos).value
1822: := g_file_tbl(o_plsql_pos).value;
1819: end if;
1820: else
1821: g_file_tbl(o_plsql_pre_pos).value
1822: := g_file_tbl(o_plsql_pos).value;
1823: if EC_DEBUG.G_debug_level >= 3 then
1824: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1825: end if;
1826: end if;
1827: end if;
1820: else
1821: g_file_tbl(o_plsql_pre_pos).value
1822: := g_file_tbl(o_plsql_pos).value;
1823: if EC_DEBUG.G_debug_level >= 3 then
1824: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1825: end if;
1826: end if;
1827: end if;
1828: end if;
1825: end if;
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
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;
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*/
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*/
1841:
1867: o_plsql_pos pls_integer;
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);
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);
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);
1877: ec_debug.pl(3,'i_next_variable_name',i_next_variable_name);
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);
1877: ec_debug.pl(3,'i_next_variable_name',i_next_variable_name);
1878: ec_debug.pl(3,'i_default_value',i_default_value);
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);
1877: ec_debug.pl(3,'i_next_variable_name',i_next_variable_name);
1878: ec_debug.pl(3,'i_default_value',i_default_value);
1879: end if;
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);
1877: ec_debug.pl(3,'i_next_variable_name',i_next_variable_name);
1878: ec_debug.pl(3,'i_default_value',i_default_value);
1879: end if;
1880: var_present :=find_variable
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);
1877: ec_debug.pl(3,'i_next_variable_name',i_next_variable_name);
1878: ec_debug.pl(3,'i_default_value',i_default_value);
1879: end if;
1880: var_present :=find_variable
1881: (
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);
1877: ec_debug.pl(3,'i_next_variable_name',i_next_variable_name);
1878: ec_debug.pl(3,'i_default_value',i_default_value);
1879: end if;
1880: var_present :=find_variable
1881: (
1882: i_variable_level,
1885: o_plsql_pos
1886: );
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:
1900: );
1901:
1902: if NOT ( pre_var_present)
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;
1916: );
1917:
1918: if NOT ( next_var_present)
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;
1932: g_stack(o_stack_pos).variable_value <>
1933: g_stack(o_stack_next_pos).variable_value
1934: then
1935: g_stack(o_stack_pos).variable_value := i_default_value;
1936: if EC_DEBUG.G_debug_level >= 3 then
1937: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1938: end if;
1939: end if;
1940: else
1933: g_stack(o_stack_next_pos).variable_value
1934: then
1935: g_stack(o_stack_pos).variable_value := i_default_value;
1936: if EC_DEBUG.G_debug_level >= 3 then
1937: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1938: end if;
1939: end if;
1940: else
1941: if g_stack(o_stack_pos).variable_value <>
1943: g_stack(o_stack_pos).variable_value <>
1944: g_file_tbl(o_plsql_next_pos).value
1945: then
1946: g_stack(o_stack_pos).variable_value := i_default_value;
1947: if EC_DEBUG.G_debug_level >= 3 then
1948: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1949: end if;
1950: end if;
1951: end if;
1944: g_file_tbl(o_plsql_next_pos).value
1945: then
1946: g_stack(o_stack_pos).variable_value := i_default_value;
1947: if EC_DEBUG.G_debug_level >= 3 then
1948: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
1949: end if;
1950: end if;
1951: end if;
1952:
1958: g_file_tbl(o_plsql_pos).value <>
1959: g_stack(o_stack_next_pos).variable_value
1960: then
1961: g_file_tbl(o_plsql_pos).value := i_default_value;
1962: if EC_DEBUG.G_debug_level >= 3 then
1963: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1964: end if;
1965: end if;
1966: else
1959: g_stack(o_stack_next_pos).variable_value
1960: then
1961: g_file_tbl(o_plsql_pos).value := i_default_value;
1962: if EC_DEBUG.G_debug_level >= 3 then
1963: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1964: end if;
1965: end if;
1966: else
1967: if g_file_tbl(o_plsql_pos).value <>
1969: g_file_tbl(o_plsql_pos).value <>
1970: g_file_tbl(o_plsql_next_pos).value
1971: then
1972: g_file_tbl(o_plsql_pos).value := i_default_value;
1973: if EC_DEBUG.G_debug_level >= 3 then
1974: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1975: end if;
1976: end if;
1977: end if;
1970: g_file_tbl(o_plsql_next_pos).value
1971: then
1972: g_file_tbl(o_plsql_pos).value := i_default_value;
1973: if EC_DEBUG.G_debug_level >= 3 then
1974: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
1975: end if;
1976: end if;
1977: end if;
1978: end if;
1975: end if;
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
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;
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;
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;
1991:
2012: o_stack_pre_pos pls_integer;
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);
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);
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);
2022: ec_debug.pl(3,'i_default_value',i_default_value);
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);
2022: ec_debug.pl(3,'i_default_value',i_default_value);
2023: end if;
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);
2022: ec_debug.pl(3,'i_default_value',i_default_value);
2023: end if;
2024:
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);
2022: ec_debug.pl(3,'i_default_value',i_default_value);
2023: end if;
2024:
2025: var_present :=find_variable
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);
2022: ec_debug.pl(3,'i_default_value',i_default_value);
2023: end if;
2024:
2025: var_present :=find_variable
2026: (
2030: o_plsql_pos
2031: );
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:
2045: );
2046:
2047: if NOT ( pre_var_present)
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;
2059: if i_previous_variable_level = 0
2060: then
2061: g_stack(o_stack_pos).variable_value
2062: := g_stack(o_stack_pre_pos).variable_value;
2063: if EC_DEBUG.G_debug_level >= 3 then
2064: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2065: end if;
2066: else
2067: g_stack(o_stack_pos).variable_value
2060: then
2061: g_stack(o_stack_pos).variable_value
2062: := g_stack(o_stack_pre_pos).variable_value;
2063: if EC_DEBUG.G_debug_level >= 3 then
2064: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2065: end if;
2066: else
2067: g_stack(o_stack_pos).variable_value
2068: := g_file_tbl(o_plsql_pre_pos).value;
2065: end if;
2066: else
2067: g_stack(o_stack_pos).variable_value
2068: := g_file_tbl(o_plsql_pre_pos).value;
2069: if EC_DEBUG.G_debug_level >= 3 then
2070: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2071: end if;
2072: end if;
2073: end if;
2066: else
2067: g_stack(o_stack_pos).variable_value
2068: := g_file_tbl(o_plsql_pre_pos).value;
2069: if EC_DEBUG.G_debug_level >= 3 then
2070: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2071: end if;
2072: end if;
2073: end if;
2074: else
2077: if i_previous_variable_level = 0
2078: then
2079: g_file_tbl(o_plsql_pos).value
2080: := g_stack(o_stack_pre_pos).variable_value;
2081: if EC_DEBUG.G_debug_level >= 3 then
2082: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2083: end if;
2084: else
2085: g_file_tbl(o_plsql_pos).value
2078: then
2079: g_file_tbl(o_plsql_pos).value
2080: := g_stack(o_stack_pre_pos).variable_value;
2081: if EC_DEBUG.G_debug_level >= 3 then
2082: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2083: end if;
2084: else
2085: g_file_tbl(o_plsql_pos).value
2086: := g_file_tbl(o_plsql_pre_pos).value;
2083: end if;
2084: else
2085: g_file_tbl(o_plsql_pos).value
2086: := g_file_tbl(o_plsql_pre_pos).value;
2087: if EC_DEBUG.G_debug_level >= 3 then
2088: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2089: end if;
2090: end if;
2091: end if;
2084: else
2085: g_file_tbl(o_plsql_pos).value
2086: := g_file_tbl(o_plsql_pre_pos).value;
2087: if EC_DEBUG.G_debug_level >= 3 then
2088: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2089: end if;
2090: end if;
2091: end if;
2092: end if;
2089: end if;
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
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;
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;
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;
2105:
2117: var_present BOOLEAN := FALSE;
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);
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;
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;
2127: var_present := find_variable
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;
2127: var_present := find_variable
2128: (
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;
2127: var_present := find_variable
2128: (
2129: i_variable_level,
2140: (
2141: i_sequence_name,
2142: g_stack(o_stack_pos).variable_value
2143: );
2144: if EC_DEBUG.G_debug_level >= 3 then
2145: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2146: end if;
2147: else
2148: get_nextval_seq
2141: i_sequence_name,
2142: g_stack(o_stack_pos).variable_value
2143: );
2144: if EC_DEBUG.G_debug_level >= 3 then
2145: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2146: end if;
2147: else
2148: get_nextval_seq
2149: (
2149: (
2150: i_sequence_name,
2151: g_file_tbl(o_plsql_pos).value
2152: );
2153: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
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;
2152: );
2153: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
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
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;
2163: EXCEPTION
2164: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
2172:
2184: var_present BOOLEAN := FALSE;
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);
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;
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;
2194:
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;
2194:
2195: var_present := find_variable
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;
2194:
2195: var_present := find_variable
2196: (
2208: (
2209: i_function_name,
2210: g_stack(o_stack_pos).variable_value
2211: );
2212: if EC_DEBUG.G_debug_level >= 3 then
2213: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2214: end if;
2215: else
2216: get_function_value
2209: i_function_name,
2210: g_stack(o_stack_pos).variable_value
2211: );
2212: if EC_DEBUG.G_debug_level >= 3 then
2213: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2214: end if;
2215: else
2216: get_function_value
2217: (
2217: (
2218: i_function_name,
2219: g_file_tbl(o_plsql_pos).value
2220: );
2221: if EC_DEBUG.G_debug_level >= 3 then
2222: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2223: end if;
2224: end if;
2225: else
2218: i_function_name,
2219: g_file_tbl(o_plsql_pos).value
2220: );
2221: if EC_DEBUG.G_debug_level >= 3 then
2222: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2223: end if;
2224: end if;
2225: else
2226: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2222: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2223: 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
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;
2233: EXCEPTION
2234: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
2242:
2256: var_present BOOLEAN := FALSE;
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;
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:
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:
2266: var_present := find_variable
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:
2266: var_present := find_variable
2267: (
2272: );
2273:
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
2283: if g_stack(o_stack_pos).variable_value is null
2284: then
2285: ec_debug.pl(0,'EC','ECE_MANDATORY_NULL','VARIABLE_NAME',i_variable_name);
2286: g_ext_levels(g_current_level).Status := 'SKIP_DOCUMENT';
2287: i_ret_code :=1;
2288: end if;
2289: else
2288: end if;
2289: else
2290: if g_file_tbl(o_plsql_pos).value is null
2291: then
2292: ec_debug.pl(0,'EC','ECE_MANDATORY_NULL','VARIABLE_NAME',i_variable_name);
2293: g_ext_levels(g_current_level).Status := 'SKIP_DOCUMENT';
2294: i_ret_code :=1;
2295: end if;
2296: end if;
2293: g_ext_levels(g_current_level).Status := 'SKIP_DOCUMENT';
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
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;
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;
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;
2309:
2320: var_present BOOLEAN := FALSE;
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;
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
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
2330: (
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
2330: (
2331: i_variable_level,
2339: if i_variable_level = 0
2340: then
2341: g_stack(o_stack_pos).variable_value
2342: := g_stack(o_stack_pos).variable_value + 1;
2343: if EC_DEBUG.G_debug_level >= 3 then
2344: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2345: end if;
2346: else
2347: g_file_tbl(o_plsql_pos).value
2340: then
2341: g_stack(o_stack_pos).variable_value
2342: := g_stack(o_stack_pos).variable_value + 1;
2343: if EC_DEBUG.G_debug_level >= 3 then
2344: ec_debug.pl(3,i_variable_name,g_stack(o_stack_pos).variable_value);
2345: end if;
2346: else
2347: g_file_tbl(o_plsql_pos).value
2348: := g_file_tbl(o_plsql_pos).value + 1;
2345: end if;
2346: else
2347: g_file_tbl(o_plsql_pos).value
2348: := g_file_tbl(o_plsql_pos).value + 1;
2349: if EC_DEBUG.G_debug_level >= 3 then
2350: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2351: end if;
2352: end if;
2353: else
2346: else
2347: g_file_tbl(o_plsql_pos).value
2348: := g_file_tbl(o_plsql_pos).value + 1;
2349: if EC_DEBUG.G_debug_level >= 3 then
2350: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2351: end if;
2352: end if;
2353: else
2354: ec_debug.pl(0,'EC','ECE_VARIABLE_NOT_ON_STACK','VARIABLE_NAME',i_variable_name);
2350: ec_debug.pl(3,i_variable_name,g_file_tbl(o_plsql_pos).value);
2351: end if;
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
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;
2361: EXCEPTION
2362: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
2370:
2389: hash_val pls_integer; -- 2996147
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);
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);
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);
2399: ec_debug.pl(3,'i_data_type',i_data_type);
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);
2399: ec_debug.pl(3,'i_data_type',i_data_type);
2400: ec_debug.pl(3,'i_function_name',i_function_name);
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);
2399: ec_debug.pl(3,'i_data_type',i_data_type);
2400: ec_debug.pl(3,'i_function_name',i_function_name);
2401: end if;
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);
2399: ec_debug.pl(3,'i_data_type',i_data_type);
2400: ec_debug.pl(3,'i_function_name',i_function_name);
2401: end if;
2402: m_count := m_count + 1;
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);
2399: ec_debug.pl(3,'i_data_type',i_data_type);
2400: ec_debug.pl(3,'i_function_name',i_function_name);
2401: end if;
2402: m_count := m_count + 1;
2403: g_file_tbl(m_count).interface_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);
2399: ec_debug.pl(3,'i_data_type',i_data_type);
2400: ec_debug.pl(3,'i_function_name',i_function_name);
2401: end if;
2402: m_count := m_count + 1;
2403: g_file_tbl(m_count).interface_level := i_variable_level;
2404: g_file_tbl(m_count).external_level := i_previous_variable_level;
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);
2443: end if;
2444: if EC_DEBUG.G_debug_level >= 2 then
2445: ec_debug.pop('EC_UTILS.CREATE_MANDATORY_COLUMNS');
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);
2443: end if;
2444: if EC_DEBUG.G_debug_level >= 2 then
2445: ec_debug.pop('EC_UTILS.CREATE_MANDATORY_COLUMNS');
2446: 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);
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
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;
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;
2454:
2461: var_present BOOLEAN := FALSE;
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;
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 :=
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 :=
2471: g_int_levels(i_level).sql_stmt ||' '|| i_where_clause;
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 :=
2471: g_int_levels(i_level).sql_stmt ||' '|| i_where_clause;
2472: if EC_DEBUG.G_debug_level >= 3 then
2468: ec_debug.pl(3,'i_where_clause',i_where_clause);
2469: end if;
2470: g_int_levels(i_level).sql_stmt :=
2471: g_int_levels(i_level).sql_stmt ||' '|| i_where_clause;
2472: if EC_DEBUG.G_debug_level >= 3 then
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
2469: end if;
2470: g_int_levels(i_level).sql_stmt :=
2471: g_int_levels(i_level).sql_stmt ||' '|| i_where_clause;
2472: if EC_DEBUG.G_debug_level >= 3 then
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');
2472: if EC_DEBUG.G_debug_level >= 3 then
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
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;
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;
2486:
2495: var_present BOOLEAN := FALSE;
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);
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);
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);
2505: end if;
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);
2505: end if;
2506:
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);
2505: end if;
2506:
2507: var_present := find_variable
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);
2505: end if;
2506:
2507: var_present := find_variable
2508: (
2522: ||' '||i_where_clause;
2523: end if;
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:
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
2533: ec_debug.pop('EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2534: end if;
2535: EXCEPTION
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
2533: ec_debug.pop('EC_UTILS.IF_NOTNULL_APPEND_CLAUSE');
2534: end if;
2535: EXCEPTION
2536: WHEN EC_UTILS.PROGRAM_EXIT 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;
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;
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;
2544:
2554: o_plsql_pos pls_integer;
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);
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;
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;
2564: var_present := find_variable
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;
2564: var_present := find_variable
2565: (
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;
2564: var_present := find_variable
2565: (
2566: i_previous_variable_level,
2570: );
2571:
2572: if ( var_present )
2573: then
2574: if EC_DEBUG.G_debug_level >= 3 then
2575: ec_debug.pl(3,'Select Stmt',g_int_levels(g_current_level).sql_stmt);
2576: end if;
2577: if i_previous_variable_level = 0
2578: then
2571:
2572: if ( var_present )
2573: then
2574: if EC_DEBUG.G_debug_level >= 3 then
2575: ec_debug.pl(3,'Select Stmt',g_int_levels(g_current_level).sql_stmt);
2576: end if;
2577: if i_previous_variable_level = 0
2578: then
2579: if EC_DEBUG.G_debug_level >= 3 then
2575: ec_debug.pl(3,'Select Stmt',g_int_levels(g_current_level).sql_stmt);
2576: end if;
2577: if i_previous_variable_level = 0
2578: then
2579: if EC_DEBUG.G_debug_level >= 3 then
2580: ec_debug.pl(3,'Current Level and Cursor '||g_current_level||' '||
2581: g_int_levels(g_current_level).Cursor_Handle,g_stack(o_stack_pos).variable_value);
2582: end if;
2583:
2576: end if;
2577: if i_previous_variable_level = 0
2578: then
2579: if EC_DEBUG.G_debug_level >= 3 then
2580: ec_debug.pl(3,'Current Level and Cursor '||g_current_level||' '||
2581: g_int_levels(g_current_level).Cursor_Handle,g_stack(o_stack_pos).variable_value);
2582: end if;
2583:
2584: if g_stack(o_stack_pos).variable_value is not null
2592: g_int_levels(g_current_level).Cursor_Handle,
2593: i_variable_name,
2594: i_number
2595: );
2596: if EC_DEBUG.G_debug_level >= 3 then
2597: ec_debug.pl(3,'Binding Value ',i_number);
2598: end if;
2599: elsif g_stack(o_stack_pos).data_type = 'DATE'
2600: then
2593: i_variable_name,
2594: i_number
2595: );
2596: if EC_DEBUG.G_debug_level >= 3 then
2597: ec_debug.pl(3,'Binding Value ',i_number);
2598: end if;
2599: elsif g_stack(o_stack_pos).data_type = 'DATE'
2600: then
2601: /* Bug 2463916
2608: g_int_levels(g_current_level).Cursor_Handle,
2609: i_variable_name,
2610: i_date
2611: );
2612: if EC_DEBUG.G_debug_level >= 3 then
2613: ec_debug.pl(3,'Binding Value ',i_date);
2614: end if;
2615: else
2616: dbms_sql.bind_variable
2609: i_variable_name,
2610: i_date
2611: );
2612: if EC_DEBUG.G_debug_level >= 3 then
2613: ec_debug.pl(3,'Binding Value ',i_date);
2614: end if;
2615: else
2616: dbms_sql.bind_variable
2617: (
2618: g_int_levels(g_current_level).Cursor_Handle,
2619: i_variable_name,
2620: g_stack(o_stack_pos).variable_value
2621: );
2622: if EC_DEBUG.G_debug_level >= 3 then
2623: ec_debug.pl(3,'Binding Value ',g_stack(o_stack_pos).variable_value);
2624: end if;
2625: end if;
2626: end if;
2619: i_variable_name,
2620: g_stack(o_stack_pos).variable_value
2621: );
2622: if EC_DEBUG.G_debug_level >= 3 then
2623: ec_debug.pl(3,'Binding Value ',g_stack(o_stack_pos).variable_value);
2624: end if;
2625: end if;
2626: end if;
2627: else
2630: g_int_levels(g_current_level).Cursor_Handle,
2631: i_variable_name,
2632: g_file_tbl(o_plsql_pos).value
2633: );
2634: if EC_DEBUG.G_debug_level >= 3 then
2635: ec_debug.pl(3,'Binding Value ',g_file_tbl(o_plsql_pos).value);
2636: end if;
2637: end if;
2638:
2631: i_variable_name,
2632: g_file_tbl(o_plsql_pos).value
2633: );
2634: if EC_DEBUG.G_debug_level >= 3 then
2635: ec_debug.pl(3,'Binding Value ',g_file_tbl(o_plsql_pos).value);
2636: end if;
2637: end if;
2638:
2639: else
2636: end if;
2637: 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
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;
2647: EXCEPTION
2648: WHEN EC_UTILS.PROGRAM_EXIT then
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;
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;
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;
2656:
2672: var_present BOOLEAN := FALSE;
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;
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:
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:
2682: ec_execution_utils.assign_values
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:
2682: ec_execution_utils.assign_values
2683: (
2696: i_transtage_id,
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
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;
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;
2710:
2727: var_present BOOLEAN := FALSE;
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);
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);
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);
2737: end if;
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);
2737: end if;
2738:
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);
2737: end if;
2738:
2739: var_present :=find_variable
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);
2737: end if;
2738:
2739: var_present :=find_variable
2740: (
2744: o_plsql_pos
2745: );
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:
2769: i_procedure_name
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
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;
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;
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;
2785:
2802: var_present BOOLEAN := FALSE;
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);
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);
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);
2812: end if;
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);
2812: end if;
2813:
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);
2812: end if;
2813:
2814: var_present :=find_variable
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);
2812: end if;
2813:
2814: var_present :=find_variable
2815: (
2819: o_plsql_pos
2820: );
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:
2844: i_procedure_name
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
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;
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;
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;
2860:
2878: var_present BOOLEAN := FALSE;
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);
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);
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);
2888: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
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);
2888: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2889: end if;
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);
2888: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2889: end if;
2890: var_present :=find_variable
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);
2888: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2889: end if;
2890: var_present :=find_variable
2891: (
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);
2888: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2889: end if;
2890: var_present :=find_variable
2891: (
2892: i_variable_level,
2895: o_plsql_pos
2896: );
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:
2920: i_procedure_name
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
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;
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;
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;
2936:
2957: o_stack_pre_pos pls_integer;
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);
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);
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);
2967: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
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);
2967: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2968: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
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);
2967: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2968: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2969: end if;
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);
2967: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2968: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2969: end if;
2970: var_present :=find_variable
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);
2967: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2968: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2969: end if;
2970: var_present :=find_variable
2971: (
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);
2967: ec_debug.pl(3,'i_transtage_id',i_transtage_id);
2968: ec_debug.pl(3,'i_procedure_name',i_procedure_name);
2969: end if;
2970: var_present :=find_variable
2971: (
2972: i_variable_level,
2975: o_plsql_pos
2976: );
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:
2990: );
2991:
2992: if NOT ( pre_var_present)
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;
3040: );
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
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;
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;
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;
3056:
3065: cIn_String varchar2(1000) := UPPER(i_search_text);
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;
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:
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:
3075: if g_direction = 'I'
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:
3075: if g_direction = 'I'
3076: then
3103: else
3104: o_pos := NULL;
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
3104: o_pos := NULL;
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
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);
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);
3114: ec_debug.POP('EC_UTILS.EXT_FIND_POSITION');
3115: i_ret_code := 2;
3116: raise EC_UTILS.PROGRAM_EXIT;
3117: WHEN OTHERS THEN
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');
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;
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;
3123:
3129: is
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
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;
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;
3139: if EC_DEBUG.G_debug_level >= 3 then
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;
3139: if EC_DEBUG.G_debug_level >= 3 then
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
3136: end if;
3137: if i_position is not null then
3138: o_value := g_file_tbl(i_position).value;
3139: if EC_DEBUG.G_debug_level >= 3 then
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');
3139: if EC_DEBUG.G_debug_level >= 3 then
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
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;
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;
3153:
3159: is
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;
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
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
3169: g_file_tbl(i_position).value := i_value;
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
3169: g_file_tbl(i_position).value := i_value;
3170: ec_debug.pl(3,'i_value_put',g_file_tbl(i_position).value);
3166: ec_debug.pl(3,'i_value',i_value);
3167: end if;
3168: if i_position is not null then
3169: g_file_tbl(i_position).value := i_value;
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');
3169: g_file_tbl(i_position).value := i_value;
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
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;
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;
3183: