[Home] [Help]
66: l_var_present := find_stack_variable (i_variable_name,
67: x_stack_pos);
68: if (l_var_present) then
69: x_stack_var := TRUE;
70: x_value := ecx_utils.g_stack(x_stack_pos).variable_value;
71: else
72: if(l_statementEnabled) then
73: ecx_debug.log(l_statement,'ECX', 'ECX_VARIABLE_NOT_ON_STACK', i_method_name,
74: 'VARIABLE_NAME',i_variable_name);
73: ecx_debug.log(l_statement,'ECX', 'ECX_VARIABLE_NOT_ON_STACK', i_method_name,
74: 'VARIABLE_NAME',i_variable_name);
75: end if;
76: ecx_debug.setErrorInfo(2,30,'ECX_STACKVAR_NOT_FOUND');
77: raise ecx_utils.PROGRAM_EXIT;
78: end if;
79: else
80: /* Get the Value based on the direction */
81: if ( i_variable_direction = 'S' )
79: else
80: /* Get the Value based on the direction */
81: if ( i_variable_direction = 'S' )
82: then
83: x_value := ecx_utils.g_source(i_variable_pos).value;
84: else
85: x_value := ecx_utils.g_target(i_variable_pos).value;
86: end if;
87: x_stack_var := FALSE;
81: if ( i_variable_direction = 'S' )
82: then
83: x_value := ecx_utils.g_source(i_variable_pos).value;
84: else
85: x_value := ecx_utils.g_target(i_variable_pos).value;
86: end if;
87: x_stack_var := FALSE;
88: end if;
89:
97: ecx_debug.pop(i_method_name);
98: end if;
99:
100: EXCEPTION
101: WHEN ecx_utils.PROGRAM_EXIT then
102: if (l_procedureEnabled) then
103: ecx_debug.pop(i_method_name);
104: end if;
105: raise;
113: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_VAR_ATTR');
114: if (l_procedureEnabled) then
115: ecx_debug.pop(i_method_name);
116: end if;
117: raise ecx_utils.PROGRAM_EXIT;
118:
119: END get_var_attr;
120:
121: procedure assign_value (
138: ecx_debug.log(l_statement,'i_direction', i_direction,i_method_name);
139: end if;
140:
141: if (i_stack_var) then
142: ecx_utils.g_stack(i_stack_pos).variable_value := i_value;
143: else
144: /* Based on the direction look into either Source or Target Struct */
145: if ( i_direction = 'S' )
146: then
143: else
144: /* Based on the direction look into either Source or Target Struct */
145: if ( i_direction = 'S' )
146: then
147: ecx_utils.g_source(i_plsql_pos).value := i_value;
148: else
149: ecx_utils.g_target(i_plsql_pos).value := i_value;
150: end if;
151: end if;
145: if ( i_direction = 'S' )
146: then
147: ecx_utils.g_source(i_plsql_pos).value := i_value;
148: else
149: ecx_utils.g_target(i_plsql_pos).value := i_value;
150: end if;
151: end if;
152:
153: if (l_procedureEnabled) then
166: if (l_procedureEnabled) then
167: ecx_debug.pop(i_method_name);
168: end if;
169:
170: raise ecx_utils.PROGRAM_EXIT;
171:
172: END assign_value;
173:
174:
197:
198: if (i_stack_var) then
199: /** Change required for Clob Support -- 2263729 ***/
200: /*** Change Storing CLOB as a varchar2***/
201: ecx_utils.g_stack(i_stack_pos).variable_value := dbms_lob.substr(i_c_value,
202: ecx_utils.G_VARCHAR_LEN ,1);
203: else
204: /* Based on the direction look into either Source or Target Struct */
205: if ( i_direction = 'S' )
198: if (i_stack_var) then
199: /** Change required for Clob Support -- 2263729 ***/
200: /*** Change Storing CLOB as a varchar2***/
201: ecx_utils.g_stack(i_stack_pos).variable_value := dbms_lob.substr(i_c_value,
202: ecx_utils.G_VARCHAR_LEN ,1);
203: else
204: /* Based on the direction look into either Source or Target Struct */
205: if ( i_direction = 'S' )
206: then
203: else
204: /* Based on the direction look into either Source or Target Struct */
205: if ( i_direction = 'S' )
206: then
207: ecx_utils.g_source(i_plsql_pos).clob_value := i_c_value;
208: ecx_utils.g_source(i_plsql_pos).is_clob := 'N';
209: else
210: ecx_utils.g_target(i_plsql_pos).clob_value := i_c_value;
211: ecx_utils.g_target(i_plsql_pos).is_clob := 'N';
204: /* Based on the direction look into either Source or Target Struct */
205: if ( i_direction = 'S' )
206: then
207: ecx_utils.g_source(i_plsql_pos).clob_value := i_c_value;
208: ecx_utils.g_source(i_plsql_pos).is_clob := 'N';
209: else
210: ecx_utils.g_target(i_plsql_pos).clob_value := i_c_value;
211: ecx_utils.g_target(i_plsql_pos).is_clob := 'N';
212: end if;
206: then
207: ecx_utils.g_source(i_plsql_pos).clob_value := i_c_value;
208: ecx_utils.g_source(i_plsql_pos).is_clob := 'N';
209: else
210: ecx_utils.g_target(i_plsql_pos).clob_value := i_c_value;
211: ecx_utils.g_target(i_plsql_pos).is_clob := 'N';
212: end if;
213: end if;
214:
207: ecx_utils.g_source(i_plsql_pos).clob_value := i_c_value;
208: ecx_utils.g_source(i_plsql_pos).is_clob := 'N';
209: else
210: ecx_utils.g_target(i_plsql_pos).clob_value := i_c_value;
211: ecx_utils.g_target(i_plsql_pos).is_clob := 'N';
212: end if;
213: end if;
214:
215: if (l_procedureEnabled) then
228: if (l_procedureEnabled) then
229: ecx_debug.pop(i_method_name);
230: end if;
231:
232: raise ecx_utils.PROGRAM_EXIT;
233:
234: END assign_value;
235:
236: function find_stack_variable (
247: if(l_statementEnabled) then
248: ecx_debug.log(l_statement,'i_variable_name',i_variable_name,i_method_name);
249: end if;
250:
251: for k in 1..ecx_utils.g_stack.count loop
252: if UPPER(ecx_utils.g_stack(k).VARIABLE_NAME) = UPPER(i_variable_name)
253: then
254: i_stack_pos := k;
255: bFound := TRUE;
248: ecx_debug.log(l_statement,'i_variable_name',i_variable_name,i_method_name);
249: end if;
250:
251: for k in 1..ecx_utils.g_stack.count loop
252: if UPPER(ecx_utils.g_stack(k).VARIABLE_NAME) = UPPER(i_variable_name)
253: then
254: i_stack_pos := k;
255: bFound := TRUE;
256: exit;
277: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.FIND_STACK_VARIABLE');
278: if (l_procedureEnabled) then
279: ecx_debug.pop(i_method_name);
280: end if;
281: raise ecx_utils.PROGRAM_EXIT;
282:
283: END find_stack_variable;
284:
285:
300: ecx_debug.push(i_method_name);
301: end if;
302:
303: cInsert_stmt := cInsert_stmt || ' ' ||
304: ecx_utils.g_target_levels(p_level).base_table_name || ' (';
305:
306:
307: i := ecx_utils.g_target_levels(p_level).file_start_pos;
308: loop
303: cInsert_stmt := cInsert_stmt || ' ' ||
304: ecx_utils.g_target_levels(p_level).base_table_name || ' (';
305:
306:
307: i := ecx_utils.g_target_levels(p_level).file_start_pos;
308: loop
309: if (ecx_utils.g_target(i).internal_level = p_level) and
310: (ecx_utils.g_target(i).base_column_name is not null) then
311: cInsert_stmt := cInsert_stmt || ' ' ||
305:
306:
307: i := ecx_utils.g_target_levels(p_level).file_start_pos;
308: loop
309: if (ecx_utils.g_target(i).internal_level = p_level) and
310: (ecx_utils.g_target(i).base_column_name is not null) then
311: cInsert_stmt := cInsert_stmt || ' ' ||
312: ecx_utils.g_target(i).base_column_name || ',';
313:
306:
307: i := ecx_utils.g_target_levels(p_level).file_start_pos;
308: loop
309: if (ecx_utils.g_target(i).internal_level = p_level) and
310: (ecx_utils.g_target(i).base_column_name is not null) then
311: cInsert_stmt := cInsert_stmt || ' ' ||
312: ecx_utils.g_target(i).base_column_name || ',';
313:
314: cValue_stmt := cValue_stmt || ':f' || i || ',';
308: loop
309: if (ecx_utils.g_target(i).internal_level = p_level) and
310: (ecx_utils.g_target(i).base_column_name is not null) then
311: cInsert_stmt := cInsert_stmt || ' ' ||
312: ecx_utils.g_target(i).base_column_name || ',';
313:
314: cValue_stmt := cValue_stmt || ':f' || i || ',';
315: end if;
316: exit when i = ecx_utils.g_target_levels(p_level).file_end_pos;
312: ecx_utils.g_target(i).base_column_name || ',';
313:
314: cValue_stmt := cValue_stmt || ':f' || i || ',';
315: end if;
316: exit when i = ecx_utils.g_target_levels(p_level).file_end_pos;
317: i := ecx_utils.g_target.next(i);
318:
319: end loop;
320:
313:
314: cValue_stmt := cValue_stmt || ':f' || i || ',';
315: end if;
316: exit when i = ecx_utils.g_target_levels(p_level).file_end_pos;
317: i := ecx_utils.g_target.next(i);
318:
319: end loop;
320:
321: cInsert_stmt := RTRIM(cInsert_stmt, ',') || ')';
351: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.BUILD_INSERT_STMT');
352: if (l_procedureEnabled) then
353: ecx_debug.pop(i_method_name);
354: end if;
355: raise ecx_utils.program_exit;
356:
357: WHEN ecx_utils.program_exit then
358: if (l_procedureEnabled) then
359: ecx_debug.pop(i_method_name);
353: ecx_debug.pop(i_method_name);
354: end if;
355: raise ecx_utils.program_exit;
356:
357: WHEN ecx_utils.program_exit then
358: if (l_procedureEnabled) then
359: ecx_debug.pop(i_method_name);
360: end if;
361: raise;
369:
370: if (l_procedureEnabled) then
371: ecx_debug.pop(i_method_name);
372: end if;
373: raise ecx_utils.program_exit;
374:
375: END build_insert_stmt;
376:
377:
398: if(l_statementEnabled) then
399: ecx_debug.log(l_statement,'p_level', p_level,i_method_name);
400: end if;
401:
402: if (ecx_utils.g_target_levels(p_level).cursor_handle = 0 or
403: ecx_utils.g_target_levels(p_level).cursor_handle is null) then
404: build_insert_stmt (ecx_utils.g_target_levels(p_level).cursor_handle, p_level);
405: end if;
406:
399: ecx_debug.log(l_statement,'p_level', p_level,i_method_name);
400: end if;
401:
402: if (ecx_utils.g_target_levels(p_level).cursor_handle = 0 or
403: ecx_utils.g_target_levels(p_level).cursor_handle is null) then
404: build_insert_stmt (ecx_utils.g_target_levels(p_level).cursor_handle, p_level);
405: end if;
406:
407: l_insert_cursor := ecx_utils.g_target_levels(p_level).cursor_handle;
400: end if;
401:
402: if (ecx_utils.g_target_levels(p_level).cursor_handle = 0 or
403: ecx_utils.g_target_levels(p_level).cursor_handle is null) then
404: build_insert_stmt (ecx_utils.g_target_levels(p_level).cursor_handle, p_level);
405: end if;
406:
407: l_insert_cursor := ecx_utils.g_target_levels(p_level).cursor_handle;
408:
403: ecx_utils.g_target_levels(p_level).cursor_handle is null) then
404: build_insert_stmt (ecx_utils.g_target_levels(p_level).cursor_handle, p_level);
405: end if;
406:
407: l_insert_cursor := ecx_utils.g_target_levels(p_level).cursor_handle;
408:
409: -- bind insert_statement
410:
411: k := ecx_utils.g_target_levels(p_level).file_start_pos;
407: l_insert_cursor := ecx_utils.g_target_levels(p_level).cursor_handle;
408:
409: -- bind insert_statement
410:
411: k := ecx_utils.g_target_levels(p_level).file_start_pos;
412: loop
413: if (ecx_utils.g_target(k).internal_level = p_level) and
414: (ecx_utils.g_target(k).base_column_name is not null) then
415:
409: -- bind insert_statement
410:
411: k := ecx_utils.g_target_levels(p_level).file_start_pos;
412: loop
413: if (ecx_utils.g_target(k).internal_level = p_level) and
414: (ecx_utils.g_target(k).base_column_name is not null) then
415:
416: BEGIN
417:
410:
411: k := ecx_utils.g_target_levels(p_level).file_start_pos;
412: loop
413: if (ecx_utils.g_target(k).internal_level = p_level) and
414: (ecx_utils.g_target(k).base_column_name is not null) then
415:
416: BEGIN
417:
418: if ecx_utils.g_target(k).data_type = 12 then
414: (ecx_utils.g_target(k).base_column_name is not null) then
415:
416: BEGIN
417:
418: if ecx_utils.g_target(k).data_type = 12 then
419: if ecx_utils.g_target(k).value is null then
420: l_date := null;
421: else
422: l_date := to_date(ecx_utils.g_target(k).value,
415:
416: BEGIN
417:
418: if ecx_utils.g_target(k).data_type = 12 then
419: if ecx_utils.g_target(k).value is null then
420: l_date := null;
421: else
422: l_date := to_date(ecx_utils.g_target(k).value,
423: 'YYYYMMDD HH24MISS');
418: if ecx_utils.g_target(k).data_type = 12 then
419: if ecx_utils.g_target(k).value is null then
420: l_date := null;
421: else
422: l_date := to_date(ecx_utils.g_target(k).value,
423: 'YYYYMMDD HH24MISS');
424: end if;
425: if(l_statementEnabled) then
426: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, l_date,i_method_name);
422: l_date := to_date(ecx_utils.g_target(k).value,
423: 'YYYYMMDD HH24MISS');
424: end if;
425: if(l_statementEnabled) then
426: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, l_date,i_method_name);
427: end if;
428: dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_date);
429:
430: elsif ecx_utils.g_target(k).data_type = 2 then
426: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, l_date,i_method_name);
427: end if;
428: dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_date);
429:
430: elsif ecx_utils.g_target(k).data_type = 2 then
431: if ecx_utils.g_target(k).value is null then
432: l_number := null;
433: else
434: l_number := to_number(ecx_utils.g_target(k).value);
427: end if;
428: dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_date);
429:
430: elsif ecx_utils.g_target(k).data_type = 2 then
431: if ecx_utils.g_target(k).value is null then
432: l_number := null;
433: else
434: l_number := to_number(ecx_utils.g_target(k).value);
435: end if;
430: elsif ecx_utils.g_target(k).data_type = 2 then
431: if ecx_utils.g_target(k).value is null then
432: l_number := null;
433: else
434: l_number := to_number(ecx_utils.g_target(k).value);
435: end if;
436: if(l_statementEnabled) then
437: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, l_number,i_method_name);
438: end if;
433: else
434: l_number := to_number(ecx_utils.g_target(k).value);
435: end if;
436: if(l_statementEnabled) then
437: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, l_number,i_method_name);
438: end if;
439: dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_number);
440:
441: -- Target is a CLOB datatype
438: end if;
439: dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_number);
440:
441: -- Target is a CLOB datatype
442: elsif ecx_utils.g_target(k).data_type = 112 then
443:
444: get_clob (ecx_utils.g_target(k).clob_value ,
445: ecx_utils.g_target(k).value,
446: l_clob_value);
440:
441: -- Target is a CLOB datatype
442: elsif ecx_utils.g_target(k).data_type = 112 then
443:
444: get_clob (ecx_utils.g_target(k).clob_value ,
445: ecx_utils.g_target(k).value,
446: l_clob_value);
447:
448: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_clob_value );
441: -- Target is a CLOB datatype
442: elsif ecx_utils.g_target(k).data_type = 112 then
443:
444: get_clob (ecx_utils.g_target(k).clob_value ,
445: ecx_utils.g_target(k).value,
446: l_clob_value);
447:
448: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_clob_value );
449:
446: l_clob_value);
447:
448: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_clob_value );
449:
450: if ecx_utils.g_target(k).clob_value is not null Then
451: if(l_statementEnabled) then
452: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name,
453: ecx_utils.g_target(k).clob_value,
454: i_method_name);
448: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_clob_value );
449:
450: if ecx_utils.g_target(k).clob_value is not null Then
451: if(l_statementEnabled) then
452: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name,
453: ecx_utils.g_target(k).clob_value,
454: i_method_name);
455: end if;
456: else
449:
450: if ecx_utils.g_target(k).clob_value is not null Then
451: if(l_statementEnabled) then
452: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name,
453: ecx_utils.g_target(k).clob_value,
454: i_method_name);
455: end if;
456: else
457: if(l_statementEnabled) then
454: i_method_name);
455: end if;
456: else
457: if(l_statementEnabled) then
458: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, ecx_utils.g_target(k).value,
459: i_method_name);
460: end if;
461: end if;
462:
461: end if;
462:
463: -- Target data type is VARCHAR2
464: else
465: get_varchar(ecx_utils.g_target(k).clob_value ,
466: ecx_utils.g_target(k).value,
467: l_value);
468:
469: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_value);
462:
463: -- Target data type is VARCHAR2
464: else
465: get_varchar(ecx_utils.g_target(k).clob_value ,
466: ecx_utils.g_target(k).value,
467: l_value);
468:
469: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_value);
470:
468:
469: dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_value);
470:
471:
472: if ecx_utils.g_target(k).clob_value is not null Then
473: if(l_statementEnabled) then
474: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name,
475: ecx_utils.g_target(k).clob_value,i_method_name);
476: end if;
470:
471:
472: if ecx_utils.g_target(k).clob_value is not null Then
473: if(l_statementEnabled) then
474: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name,
475: ecx_utils.g_target(k).clob_value,i_method_name);
476: end if;
477: else
478: if(l_statementEnabled) then
471:
472: if ecx_utils.g_target(k).clob_value is not null Then
473: if(l_statementEnabled) then
474: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name,
475: ecx_utils.g_target(k).clob_value,i_method_name);
476: end if;
477: else
478: if(l_statementEnabled) then
479: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, ecx_utils.g_target(k).value,
475: ecx_utils.g_target(k).clob_value,i_method_name);
476: end if;
477: else
478: if(l_statementEnabled) then
479: ecx_debug.log(l_statement,ecx_utils.g_target(k).base_column_name, ecx_utils.g_target(k).value,
480: i_method_name);
481: end if;
482: end if;
483:
492: raise l_data_conversion_failed;
493: END;
494:
495: end if;
496: exit when k = ecx_utils.g_target_levels(p_level).file_end_pos;
497: k := ecx_utils.g_target.next(k);
498: if dbms_lob.istemporary(l_clob_value) = 1 Then
499: dbms_lob.freetemporary(l_clob_value);
500: end if;
493: END;
494:
495: end if;
496: exit when k = ecx_utils.g_target_levels(p_level).file_end_pos;
497: k := ecx_utils.g_target.next(k);
498: if dbms_lob.istemporary(l_clob_value) = 1 Then
499: dbms_lob.freetemporary(l_clob_value);
500: end if;
501:
517: EXCEPTION
518: WHEN l_data_conversion_failed then
519: if(l_unexpectedEnabled) then
520: ecx_debug.log(l_unexpected , 'ECX', 'ECX_DATATYPE_CONVERSION_FAILED',i_method_name, 'DATATYPE',
521: ecx_utils.g_target(k).data_type);
522: ecx_debug.log(l_unexpected, ecx_utils.g_target(k).base_column_name,
523: 'yy'||ecx_utils.g_target(k).value||'xx',i_method_name);
524: end if;
525: ecx_debug.setErrorInfo(2,30,'ECX_DATATYPE_CONV_FAILED');
518: WHEN l_data_conversion_failed then
519: if(l_unexpectedEnabled) then
520: ecx_debug.log(l_unexpected , 'ECX', 'ECX_DATATYPE_CONVERSION_FAILED',i_method_name, 'DATATYPE',
521: ecx_utils.g_target(k).data_type);
522: ecx_debug.log(l_unexpected, ecx_utils.g_target(k).base_column_name,
523: 'yy'||ecx_utils.g_target(k).value||'xx',i_method_name);
524: end if;
525: ecx_debug.setErrorInfo(2,30,'ECX_DATATYPE_CONV_FAILED');
526: if (l_procedureEnabled) then
519: if(l_unexpectedEnabled) then
520: ecx_debug.log(l_unexpected , 'ECX', 'ECX_DATATYPE_CONVERSION_FAILED',i_method_name, 'DATATYPE',
521: ecx_utils.g_target(k).data_type);
522: ecx_debug.log(l_unexpected, ecx_utils.g_target(k).base_column_name,
523: 'yy'||ecx_utils.g_target(k).value||'xx',i_method_name);
524: end if;
525: ecx_debug.setErrorInfo(2,30,'ECX_DATATYPE_CONV_FAILED');
526: if (l_procedureEnabled) then
527: ecx_debug.pop(i_method_name);
525: ecx_debug.setErrorInfo(2,30,'ECX_DATATYPE_CONV_FAILED');
526: if (l_procedureEnabled) then
527: ecx_debug.pop(i_method_name);
528: end if;
529: raise ecx_utils.program_exit;
530:
531: WHEN l_insert_failed then
532: if(l_unexpectedEnabled) then
533: ecx_debug.log(l_unexpected ,'ECX', 'ECX_STAGE_INSERT_FAILED',i_method_name, 'LEVEL', p_level);
537: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.INSERT_LEVEL_INTO_TABLE');
538: if (l_procedureEnabled) then
539: ecx_debug.pop(i_method_name);
540: end if;
541: raise ecx_utils.program_exit;
542:
543: WHEN ecx_utils.program_exit then
544: if (l_procedureEnabled) then
545: ecx_debug.pop(i_method_name);
539: ecx_debug.pop(i_method_name);
540: end if;
541: raise ecx_utils.program_exit;
542:
543: WHEN ecx_utils.program_exit then
544: if (l_procedureEnabled) then
545: ecx_debug.pop(i_method_name);
546: end if;
547: raise;
555:
556: if (l_procedureEnabled) then
557: ecx_debug.pop(i_method_name);
558: end if;
559: raise ecx_utils.program_exit;
560:
561: END insert_level_into_table;
562:
563:
621: end if;
622: if dbms_sql.is_open(cursor_handle) then
623: dbms_sql.close_cursor(cursor_handle);
624: end if;
625: ecx_debug.seTErrorInfo(2,30,SQLERRM||' - ECX_UTILS.EXECUTE_STRING');
626: raise ecx_utils.PROGRAM_EXIT;
627:
628: WHEN ecx_utils.PROGRAM_EXIT then
629: if (l_procedureEnabled) then
622: if dbms_sql.is_open(cursor_handle) then
623: dbms_sql.close_cursor(cursor_handle);
624: end if;
625: ecx_debug.seTErrorInfo(2,30,SQLERRM||' - ECX_UTILS.EXECUTE_STRING');
626: raise ecx_utils.PROGRAM_EXIT;
627:
628: WHEN ecx_utils.PROGRAM_EXIT then
629: if (l_procedureEnabled) then
630: ecx_debug.pop(i_method_name);
624: end if;
625: ecx_debug.seTErrorInfo(2,30,SQLERRM||' - ECX_UTILS.EXECUTE_STRING');
626: raise ecx_utils.PROGRAM_EXIT;
627:
628: WHEN ecx_utils.PROGRAM_EXIT then
629: if (l_procedureEnabled) then
630: ecx_debug.pop(i_method_name);
631: end if;
632: raise;
643: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.EXECUTE_STRING');
644: if (l_procedureEnabled) then
645: ecx_debug.pop(i_method_name);
646: end if;
647: raise ecx_utils.PROGRAM_EXIT;
648:
649: END execute_string;
650:
651:
669: end if;
670:
671:
672: EXCEPTION
673: WHEN ecx_utils.PROGRAM_EXIT then
674: if (l_procedureEnabled) then
675: ecx_debug.pop(i_method_name);
676: end if;
677: raise;
685: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_NEXTVAL_SEQ');
686: if (l_procedureEnabled) then
687: ecx_debug.pop(i_method_name);
688: end if;
689: raise ecx_utils.PROGRAM_EXIT;
690:
691: END get_nextval_seq;
692:
693:
720: ecx_debug.pop(i_method_name);
721: end if;
722:
723: EXCEPTION
724: WHEN ecx_utils.PROGRAM_EXIT then
725: if (l_procedureEnabled) then
726: ecx_debug.pop(i_method_name);
727: end if;
728: raise;
736: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_FUNCTION_VALUE');
737: if (l_procedureEnabled) then
738: ecx_debug.pop(i_method_name);
739: end if;
740: raise ecx_utils.PROGRAM_EXIT;
741:
742: END get_function_value;
743:
744:
744:
745: procedure dump_stack IS
746:
747: i_method_name varchar2(2000) := 'ecx_actions.dump_stack';
748: m_count pls_integer := ecx_utils.g_stack.COUNT;
749:
750: BEGIN
751: if (l_procedureEnabled) then
752: ecx_debug.push(i_method_name);
759:
760: for i in 1..m_count loop
761: --for i in m_count.first..m_count.last loop
762: if(l_statementEnabled) then
763: ecx_debug.log(l_statement,ecx_utils.g_stack(i).variable_name||' ' ||
764: ecx_utils.g_stack(i).variable_value||' '||
765: ecx_utils.g_stack(i).data_type,i_method_name);
766: end if;
767: end loop;
760: for i in 1..m_count loop
761: --for i in m_count.first..m_count.last loop
762: if(l_statementEnabled) then
763: ecx_debug.log(l_statement,ecx_utils.g_stack(i).variable_name||' ' ||
764: ecx_utils.g_stack(i).variable_value||' '||
765: ecx_utils.g_stack(i).data_type,i_method_name);
766: end if;
767: end loop;
768:
761: --for i in m_count.first..m_count.last loop
762: if(l_statementEnabled) then
763: ecx_debug.log(l_statement,ecx_utils.g_stack(i).variable_name||' ' ||
764: ecx_utils.g_stack(i).variable_value||' '||
765: ecx_utils.g_stack(i).data_type,i_method_name);
766: end if;
767: end loop;
768:
769: if (l_procedureEnabled) then
779: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.DUMP_STACK');
780: if (l_procedureEnabled) then
781: ecx_debug.pop(i_method_name);
782: end if;
783: raise ecx_utils.PROGRAM_EXIT;
784:
785: END dump_stack;
786:
787: PROCEDURE concat_variables
878: EXCEPTION
879: WHEN VALUE_ERROR then
880: ecx_debug.setErrorInfo(1, 30, 'ECX_INVALID_VARCHAR2_LEN');
881: if(l_unexpectedEnabled) then
882: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
883: end if;
884: if (l_procedureEnabled) then
885: ecx_debug.pop(i_method_name);
886: end if;
883: end if;
884: if (l_procedureEnabled) then
885: ecx_debug.pop(i_method_name);
886: end if;
887: raise ecx_utils.PROGRAM_EXIT;
888: WHEN ecx_utils.PROGRAM_EXIT then
889: if (l_procedureEnabled) then
890: ecx_debug.pop(i_method_name);
891: end if;
884: if (l_procedureEnabled) then
885: ecx_debug.pop(i_method_name);
886: end if;
887: raise ecx_utils.PROGRAM_EXIT;
888: WHEN ecx_utils.PROGRAM_EXIT then
889: if (l_procedureEnabled) then
890: ecx_debug.pop(i_method_name);
891: end if;
892: raise ecx_utils.PROGRAM_EXIT;
888: WHEN ecx_utils.PROGRAM_EXIT then
889: if (l_procedureEnabled) then
890: ecx_debug.pop(i_method_name);
891: end if;
892: raise ecx_utils.PROGRAM_EXIT;
893: WHEN OTHERS THEN
894: if(l_unexpectedEnabled) then
895: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,
896: 'PROGRESS_LEVEL', 'ECX_ACTIONS.CONCAT_VAR');
899: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONCAT_VAR');
900: if (l_procedureEnabled) then
901: ecx_debug.pop(i_method_name);
902: end if;
903: raise ecx_utils.PROGRAM_EXIT;
904:
905: END concat_variables;
906:
907: PROCEDURE substr_variables
1008: end if;
1009:
1010:
1011: EXCEPTION
1012: WHEN ecx_utils.PROGRAM_EXIT then
1013: if (l_procedureEnabled) then
1014: ecx_debug.pop(i_method_name);
1015: end if;
1016: raise;
1025: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.SUBSTR_VAR');
1026: if (l_procedureEnabled) then
1027: ecx_debug.pop(i_method_name);
1028: end if;
1029: raise ecx_utils.PROGRAM_EXIT;
1030:
1031: END substr_variables;
1032:
1033:
1087: end if;
1088:
1089:
1090: EXCEPTION
1091: WHEN ecx_utils.PROGRAM_EXIT then
1092: if (l_procedureEnabled) then
1093: ecx_debug.pop(i_method_name);
1094: end if;
1095: raise;
1105: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.ASSIGN_PRE_DEFINED_VARIABLES');
1106: if (l_procedureEnabled) then
1107: ecx_debug.pop(i_method_name);
1108: end if;
1109: raise ecx_utils.PROGRAM_EXIT;
1110:
1111: END assign_pre_defined_variables;
1112:
1113:
1149: ecx_debug.pop(i_method_name);
1150: end if;
1151:
1152: EXCEPTION
1153: WHEN ecx_utils.PROGRAM_EXIT then
1154: if (l_procedureEnabled) then
1155: ecx_debug.pop(i_method_name);
1156: end if;
1157: raise;
1165: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.ASSIGN_NEXTVAL_FROM_SEQUENCE');
1166: if (l_procedureEnabled) then
1167: ecx_debug.pop(i_method_name);
1168: end if;
1169: raise ecx_utils.PROGRAM_EXIT;
1170:
1171: END assign_nextval_from_sequence;
1172:
1173:
1206: ecx_debug.pop(i_method_name);
1207: end if;
1208:
1209: EXCEPTION
1210: WHEN ecx_utils.PROGRAM_EXIT then
1211: if (l_procedureEnabled) then
1212: ecx_debug.pop(i_method_name);
1213: end if;
1214: raise;
1223: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.ASSIGN_FUNCTION_VALUE');
1224: if (l_procedureEnabled) then
1225: ecx_debug.pop(i_method_name);
1226: end if;
1227: raise ecx_utils.PROGRAM_EXIT;
1228:
1229: END assign_function_value;
1230:
1231:
1244: ecx_debug.log(l_statement,'i_level',i_level,i_method_name);
1245: ecx_debug.log(l_statement,'i_where_clause',i_where_clause,i_method_name);
1246: end if;
1247:
1248: ecx_utils.g_source_levels(i_level).sql_stmt :=
1249: ecx_utils.g_source_levels(i_level).sql_stmt ||' '|| i_where_clause;
1250:
1251: if(l_statementEnabled) then
1252: ecx_debug.log(l_statement,'i_where_clause', ecx_utils.g_source_levels(i_level).sql_stmt,
1245: ecx_debug.log(l_statement,'i_where_clause',i_where_clause,i_method_name);
1246: end if;
1247:
1248: ecx_utils.g_source_levels(i_level).sql_stmt :=
1249: ecx_utils.g_source_levels(i_level).sql_stmt ||' '|| i_where_clause;
1250:
1251: if(l_statementEnabled) then
1252: ecx_debug.log(l_statement,'i_where_clause', ecx_utils.g_source_levels(i_level).sql_stmt,
1253: i_method_name);
1248: ecx_utils.g_source_levels(i_level).sql_stmt :=
1249: ecx_utils.g_source_levels(i_level).sql_stmt ||' '|| i_where_clause;
1250:
1251: if(l_statementEnabled) then
1252: ecx_debug.log(l_statement,'i_where_clause', ecx_utils.g_source_levels(i_level).sql_stmt,
1253: i_method_name);
1254: end if;
1255:
1256: if (l_procedureEnabled) then
1257: ecx_debug.pop(i_method_name);
1258: end if;
1259:
1260: EXCEPTION
1261: WHEN ecx_utils.PROGRAM_EXIT then
1262: if (l_procedureEnabled) then
1263: ecx_debug.pop(i_method_name);
1264: end if;
1265: raise;
1275: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.APPEND_CLAUSE');
1276: if (l_procedureEnabled) then
1277: ecx_debug.pop(i_method_name);
1278: end if;
1279: raise ecx_utils.PROGRAM_EXIT;
1280:
1281: END append_clause;
1282:
1283: procedure append_clause_for_view (
1299: if (l_procedureEnabled) then
1300: ecx_debug.push(i_method_name);
1301: end if;
1302:
1303: if (ecx_utils.g_stage_data.count <> 0)
1304: then
1305: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1306: loop
1307: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1301: end if;
1302:
1303: if (ecx_utils.g_stage_data.count <> 0)
1304: then
1305: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1306: loop
1307: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1308: then
1309: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1303: if (ecx_utils.g_stage_data.count <> 0)
1304: then
1305: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1306: loop
1307: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1308: then
1309: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1310: then
1311: i_where_clause := ecx_utils.g_stage_data(i).clause;
1305: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1306: loop
1307: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1308: then
1309: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1310: then
1311: i_where_clause := ecx_utils.g_stage_data(i).clause;
1312: if(l_statementEnabled) then
1313: ecx_debug.log(l_statement,'Where Clause ', i_where_clause,i_method_name);
1307: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1308: then
1309: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1310: then
1311: i_where_clause := ecx_utils.g_stage_data(i).clause;
1312: if(l_statementEnabled) then
1313: ecx_debug.log(l_statement,'Where Clause ', i_where_clause,i_method_name);
1314: end if;
1315: if i_where_clause is not null
1325: end if;
1326:
1327:
1328: EXCEPTION
1329: WHEN ecx_utils.PROGRAM_EXIT then
1330: if (l_procedureEnabled) then
1331: ecx_debug.pop(i_method_name);
1332: end if;
1333: raise;
1341: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.APPEND_CLAUSE_FOR_VIEW');
1342: if (l_procedureEnabled) then
1343: ecx_debug.pop(i_method_name);
1344: end if;
1345: raise ecx_utils.PROGRAM_EXIT;
1346:
1347: END append_clause_for_view;
1348:
1349: procedure bind_variables_for_view (
1364: if (l_procedureEnabled) then
1365: ecx_debug.push(i_method_name);
1366: end if;
1367:
1368: if (ecx_utils.g_stage_data.count <> 0)
1369: then
1370: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1371: loop
1372: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1366: end if;
1367:
1368: if (ecx_utils.g_stage_data.count <> 0)
1369: then
1370: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1371: loop
1372: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1373: then
1374: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1368: if (ecx_utils.g_stage_data.count <> 0)
1369: then
1370: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1371: loop
1372: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1373: then
1374: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1375: then
1376: i_variable_name := ecx_utils.g_stage_data(i).variable_value;
1370: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
1371: loop
1372: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1373: then
1374: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1375: then
1376: i_variable_name := ecx_utils.g_stage_data(i).variable_value;
1377: if(l_statementEnabled) then
1378: ecx_debug.log(l_statement,'Bind Variable Name ', i_variable_name,i_method_name);
1372: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).level = i_level)
1373: then
1374: if ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE
1375: then
1376: i_variable_name := ecx_utils.g_stage_data(i).variable_value;
1377: if(l_statementEnabled) then
1378: ecx_debug.log(l_statement,'Bind Variable Name ', i_variable_name,i_method_name);
1379: end if;
1380:
1382: then
1383: /**
1384: get from Default. If null , get it from the variable
1385: **/
1386: pre_var_value := ecx_utils.g_stage_data(i).operand1_constant;
1387: if pre_var_value is null
1388: then
1389: get_var_attr (ecx_utils.g_stage_data(i).operand1_level,
1390: ecx_utils.g_stage_data(i).operand1_name,
1385: **/
1386: pre_var_value := ecx_utils.g_stage_data(i).operand1_constant;
1387: if pre_var_value is null
1388: then
1389: get_var_attr (ecx_utils.g_stage_data(i).operand1_level,
1390: ecx_utils.g_stage_data(i).operand1_name,
1391: ecx_utils.g_stage_data(i).operand1_direction,
1392: ecx_utils.g_stage_data(i).operand1_pos,
1393: pre_var_value, pre_var_on_stack,
1386: pre_var_value := ecx_utils.g_stage_data(i).operand1_constant;
1387: if pre_var_value is null
1388: then
1389: get_var_attr (ecx_utils.g_stage_data(i).operand1_level,
1390: ecx_utils.g_stage_data(i).operand1_name,
1391: ecx_utils.g_stage_data(i).operand1_direction,
1392: ecx_utils.g_stage_data(i).operand1_pos,
1393: pre_var_value, pre_var_on_stack,
1394: pre_var_stack_pos);
1387: if pre_var_value is null
1388: then
1389: get_var_attr (ecx_utils.g_stage_data(i).operand1_level,
1390: ecx_utils.g_stage_data(i).operand1_name,
1391: ecx_utils.g_stage_data(i).operand1_direction,
1392: ecx_utils.g_stage_data(i).operand1_pos,
1393: pre_var_value, pre_var_on_stack,
1394: pre_var_stack_pos);
1395: end if;
1388: then
1389: get_var_attr (ecx_utils.g_stage_data(i).operand1_level,
1390: ecx_utils.g_stage_data(i).operand1_name,
1391: ecx_utils.g_stage_data(i).operand1_direction,
1392: ecx_utils.g_stage_data(i).operand1_pos,
1393: pre_var_value, pre_var_on_stack,
1394: pre_var_stack_pos);
1395: end if;
1396: if pre_var_value = 'NULL'
1403: end if;
1404:
1405: --if not ( ecx_conditions.check_type_condition('6',pre_var_value,1,null,1)) then
1406: if pre_var_on_stack then
1407: l_data_type := ecx_utils.g_stack(pre_var_stack_pos).data_type;
1408: if(l_statementEnabled) then
1409: ecx_debug.log(l_statement,'Data Type' , to_char(nvl(l_data_type,-1)),i_method_name);
1410: end if;
1411: else
1408: if(l_statementEnabled) then
1409: ecx_debug.log(l_statement,'Data Type' , to_char(nvl(l_data_type,-1)),i_method_name);
1410: end if;
1411: else
1412: l_data_type := ecx_utils.g_source(
1413: ecx_utils.g_stage_data(i).operand1_pos).data_type;
1414: if(l_statementEnabled) then
1415: ecx_debug.log(l_statement, 'Data Type 2' , to_char(nvl(l_data_type,-1)),i_method_name);
1416: end if;
1409: ecx_debug.log(l_statement,'Data Type' , to_char(nvl(l_data_type,-1)),i_method_name);
1410: end if;
1411: else
1412: l_data_type := ecx_utils.g_source(
1413: ecx_utils.g_stage_data(i).operand1_pos).data_type;
1414: if(l_statementEnabled) then
1415: ecx_debug.log(l_statement, 'Data Type 2' , to_char(nvl(l_data_type,-1)),i_method_name);
1416: end if;
1417: end if;
1419:
1420: if l_data_type = 2 then
1421: i_number := to_number(pre_var_value);
1422: dbms_sql.bind_variable (
1423: ecx_utils.g_source_levels(i_level).Cursor_Handle,
1424: i_variable_name, i_number);
1425: if(l_statementEnabled) then
1426: ecx_debug.log(l_statement, 'Binding Value ',i_number,i_method_name);
1427: end if;
1428:
1429: elsif l_data_type = 12 then
1430: i_date := to_date(pre_var_value,'YYYYMMDD HH24MISS');
1431: dbms_sql.bind_variable (
1432: ecx_utils.g_source_levels(i_level).Cursor_Handle,
1433: i_variable_name, i_date);
1434: if(l_statementEnabled) then
1435: ecx_debug.log(l_statement,'Binding Value ',i_date,i_method_name);
1436: end if;
1435: ecx_debug.log(l_statement,'Binding Value ',i_date,i_method_name);
1436: end if;
1437: else
1438: dbms_sql.bind_variable (
1439: ecx_utils.g_source_levels(i_level).Cursor_Handle,
1440: i_variable_name, pre_var_value);
1441: if(l_statementEnabled) then
1442: ecx_debug.log(l_statement,'Binding Value ',pre_var_value,i_method_name);
1443: end if;
1458: ecx_debug.pop(i_method_name);
1459: end if;
1460: ecx_debug.setErrorInfo(1,30,'ECX_INVALID_NUMBER','pre_var_value',
1461: pre_var_value,'variable_name',i_variable_name);
1462: raise ecx_utils.program_exit;
1463: WHEN ecx_utils.PROGRAM_EXIT then
1464: if (l_procedureEnabled) then
1465: ecx_debug.pop(i_method_name);
1466: end if;
1459: end if;
1460: ecx_debug.setErrorInfo(1,30,'ECX_INVALID_NUMBER','pre_var_value',
1461: pre_var_value,'variable_name',i_variable_name);
1462: raise ecx_utils.program_exit;
1463: WHEN ecx_utils.PROGRAM_EXIT then
1464: if (l_procedureEnabled) then
1465: ecx_debug.pop(i_method_name);
1466: end if;
1467: raise;
1476: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.BIND_VARIABLES_FOR_VIEW');
1477: if (l_procedureEnabled) then
1478: ecx_debug.pop(i_method_name);
1479: end if;
1480: raise ecx_utils.PROGRAM_EXIT;
1481:
1482: END bind_variables_for_view;
1483:
1484:
1499: ecx_debug.push(i_method_name);
1500: end if;
1501:
1502: l_proc_call := 'BEGIN ' || p_procedure_name || '(';
1503: if (ecx_utils.g_procedure_mappings.count <> 0)
1504: then
1505: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1506: loop
1507: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1501:
1502: l_proc_call := 'BEGIN ' || p_procedure_name || '(';
1503: if (ecx_utils.g_procedure_mappings.count <> 0)
1504: then
1505: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1506: loop
1507: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1508: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) then
1509:
1503: if (ecx_utils.g_procedure_mappings.count <> 0)
1504: then
1505: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1506: loop
1507: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1508: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) then
1509:
1510: if not (l_first_param) then
1511: l_proc_call := l_proc_call || ', ';
1504: then
1505: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1506: loop
1507: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1508: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) then
1509:
1510: if not (l_first_param) then
1511: l_proc_call := l_proc_call || ', ';
1512: else
1513: l_first_param := false;
1514: end if;
1515:
1516: l_proc_call := l_proc_call ||
1517: ecx_utils.g_procedure_mappings(i).parameter_name ||
1518: ' => :' || ecx_utils.g_procedure_mappings(i).parameter_name;
1519: end if;
1520: end loop;
1521: end if;
1514: end if;
1515:
1516: l_proc_call := l_proc_call ||
1517: ecx_utils.g_procedure_mappings(i).parameter_name ||
1518: ' => :' || ecx_utils.g_procedure_mappings(i).parameter_name;
1519: end if;
1520: end loop;
1521: end if;
1522:
1550: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.BUILD_PROCEDURE_CALL');
1551: if (l_procedureEnabled) then
1552: ecx_debug.pop(i_method_name);
1553: end if;
1554: raise ecx_utils.program_exit;
1555:
1556: WHEN ecx_utils.PROGRAM_EXIT then
1557: if (l_procedureEnabled) then
1558: ecx_debug.pop(i_method_name);
1552: ecx_debug.pop(i_method_name);
1553: end if;
1554: raise ecx_utils.program_exit;
1555:
1556: WHEN ecx_utils.PROGRAM_EXIT then
1557: if (l_procedureEnabled) then
1558: ecx_debug.pop(i_method_name);
1559: end if;
1560: raise;
1568: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.BUILD_PROCEDURE_CALL');
1569: if (l_procedureEnabled) then
1570: ecx_debug.pop(i_method_name);
1571: end if;
1572: raise ecx_utils.PROGRAM_EXIT;
1573:
1574: END build_procedure_call;
1575:
1576: procedure bind_proc_variables (
1592: BEGIN
1593: if (l_procedureEnabled) then
1594: ecx_debug.push(i_method_name);
1595: end if;
1596: if (ecx_utils.g_procedure_mappings.count <> 0)
1597: then
1598: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1599: loop
1600: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1594: ecx_debug.push(i_method_name);
1595: end if;
1596: if (ecx_utils.g_procedure_mappings.count <> 0)
1597: then
1598: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1599: loop
1600: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1601: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) then
1602: /** Look for Constant Value first. If null get it from Variable **/
1596: if (ecx_utils.g_procedure_mappings.count <> 0)
1597: then
1598: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1599: loop
1600: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1601: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) then
1602: /** Look for Constant Value first. If null get it from Variable **/
1603: l_var_value := null;
1604: l_clob_value := null;
1597: then
1598: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1599: loop
1600: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1601: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) then
1602: /** Look for Constant Value first. If null get it from Variable **/
1603: l_var_value := null;
1604: l_clob_value := null;
1605: l_temp_loc := null;
1602: /** Look for Constant Value first. If null get it from Variable **/
1603: l_var_value := null;
1604: l_clob_value := null;
1605: l_temp_loc := null;
1606: l_var_value := ecx_utils.g_procedure_mappings(i).variable_constant;
1607:
1608: if l_var_value = 'NULL'
1609: then
1610: l_var_value :=null;
1611: end if;
1612:
1613: if l_var_value is null
1614: --do not assign value to OUT parameters
1615: and ecx_utils.g_procedure_mappings(i).action_type <> 1070
1616: then
1617: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1618: then
1619: l_stack_found := find_stack_variable(
1613: if l_var_value is null
1614: --do not assign value to OUT parameters
1615: and ecx_utils.g_procedure_mappings(i).action_type <> 1070
1616: then
1617: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1618: then
1619: l_stack_found := find_stack_variable(
1620: ecx_utils.g_procedure_mappings(i).variable_name,
1621: l_stack_pos);
1616: then
1617: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1618: then
1619: l_stack_found := find_stack_variable(
1620: ecx_utils.g_procedure_mappings(i).variable_name,
1621: l_stack_pos);
1622: l_var_value := ecx_utils.g_stack(l_stack_pos).variable_value;
1623:
1624: /* Based on the direction look in either source or target */
1618: then
1619: l_stack_found := find_stack_variable(
1620: ecx_utils.g_procedure_mappings(i).variable_name,
1621: l_stack_pos);
1622: l_var_value := ecx_utils.g_stack(l_stack_pos).variable_value;
1623:
1624: /* Based on the direction look in either source or target */
1625: elsif ecx_utils.g_procedure_mappings(i).variable_direction = 'S'
1626: then
1621: l_stack_pos);
1622: l_var_value := ecx_utils.g_stack(l_stack_pos).variable_value;
1623:
1624: /* Based on the direction look in either source or target */
1625: elsif ecx_utils.g_procedure_mappings(i).variable_direction = 'S'
1626: then
1627: if(l_statementEnabled) then
1628: ecx_debug.log(l_statement,'Bind variable is in source',i_method_name);
1629: end if;
1629: end if;
1630: if (l_clob_value is null) then
1631: dbms_lob.createtemporary(l_clob_value,true,dbms_lob.session);
1632: end if;
1633: l_clob_value := ecx_utils.g_source(ecx_utils.g_procedure_mappings(i).variable_pos).clob_value;
1634: l_var_value := ecx_utils.g_source(ecx_utils.g_procedure_mappings(i).variable_pos).value;
1635:
1636: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1637: l_len := dbms_lob.getlength(l_clob_value) ;
1630: if (l_clob_value is null) then
1631: dbms_lob.createtemporary(l_clob_value,true,dbms_lob.session);
1632: end if;
1633: l_clob_value := ecx_utils.g_source(ecx_utils.g_procedure_mappings(i).variable_pos).clob_value;
1634: l_var_value := ecx_utils.g_source(ecx_utils.g_procedure_mappings(i).variable_pos).value;
1635:
1636: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1637: l_len := dbms_lob.getlength(l_clob_value) ;
1638: if (l_clob_value is not null and
1632: end if;
1633: l_clob_value := ecx_utils.g_source(ecx_utils.g_procedure_mappings(i).variable_pos).clob_value;
1634: l_var_value := ecx_utils.g_source(ecx_utils.g_procedure_mappings(i).variable_pos).value;
1635:
1636: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1637: l_len := dbms_lob.getlength(l_clob_value) ;
1638: if (l_clob_value is not null and
1639: ( l_len > ecx_utils.G_VARCHAR_LEN)) then
1640: get_varchar(l_clob_value ,
1635:
1636: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1637: l_len := dbms_lob.getlength(l_clob_value) ;
1638: if (l_clob_value is not null and
1639: ( l_len > ecx_utils.G_VARCHAR_LEN)) then
1640: get_varchar(l_clob_value ,
1641: l_var_value,
1642: l_var_value);
1643: l_clob_value := null;
1643: l_clob_value := null;
1644: end if;
1645: l_len := length(l_var_value) ;
1646: if (l_var_value is not null and
1647: ( l_len > ecx_utils.G_VARCHAR_LEN)) then
1648: get_varchar(l_clob_value ,
1649: l_var_value,
1650: l_var_value);
1651: l_clob_value := null;
1660: if (l_clob_value is null) then
1661: dbms_lob.createtemporary(l_clob_value,true,dbms_lob.session);
1662: end if;
1663:
1664: l_clob_value := ecx_utils.g_target(ecx_utils.g_procedure_mappings(i).variable_pos).clob_value;
1665: l_var_value := ecx_utils.g_target(ecx_utils.g_procedure_mappings(i).variable_pos).value;
1666:
1667: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1668: l_len := dbms_lob.getlength(l_clob_value) ;
1661: dbms_lob.createtemporary(l_clob_value,true,dbms_lob.session);
1662: end if;
1663:
1664: l_clob_value := ecx_utils.g_target(ecx_utils.g_procedure_mappings(i).variable_pos).clob_value;
1665: l_var_value := ecx_utils.g_target(ecx_utils.g_procedure_mappings(i).variable_pos).value;
1666:
1667: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1668: l_len := dbms_lob.getlength(l_clob_value) ;
1669: if (l_clob_value is not null and
1663:
1664: l_clob_value := ecx_utils.g_target(ecx_utils.g_procedure_mappings(i).variable_pos).clob_value;
1665: l_var_value := ecx_utils.g_target(ecx_utils.g_procedure_mappings(i).variable_pos).value;
1666:
1667: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1668: l_len := dbms_lob.getlength(l_clob_value) ;
1669: if (l_clob_value is not null and
1670: (l_len > ecx_utils.G_VARCHAR_LEN)) then
1671: get_varchar(l_clob_value ,
1666:
1667: if ecx_utils.g_procedure_mappings(i).data_type <> 112 then
1668: l_len := dbms_lob.getlength(l_clob_value) ;
1669: if (l_clob_value is not null and
1670: (l_len > ecx_utils.G_VARCHAR_LEN)) then
1671: get_varchar(l_clob_value ,
1672: l_var_value,
1673: l_var_value);
1674: l_clob_value := null;
1674: l_clob_value := null;
1675: end if;
1676: l_len := length(l_var_value) ;
1677: if (l_var_value is not null and
1678: ( l_len > ecx_utils.G_VARCHAR_LEN)) then
1679: get_varchar(l_clob_value ,
1680: l_var_value,
1681: l_var_value);
1682: l_clob_value := null;
1690: ecx_debug.log(l_statement,'l_var_value', l_var_value,i_method_name);
1691: if (l_clob_value is not null) then
1692: ecx_debug.log(l_statement,'l_clob_value', l_clob_value,i_method_name);
1693: end if;
1694: ecx_debug.log(l_statement,'variable_name', ecx_utils.g_procedure_mappings(i).variable_name,
1695: i_method_name);
1696: end if;
1697:
1698: if (ecx_utils.g_procedure_mappings(i).data_type = 1) then
1694: ecx_debug.log(l_statement,'variable_name', ecx_utils.g_procedure_mappings(i).variable_name,
1695: i_method_name);
1696: end if;
1697:
1698: if (ecx_utils.g_procedure_mappings(i).data_type = 1) then
1699: dbms_sql.bind_variable(p_proc_cursor,
1700: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1701: l_var_value,ecx_utils.G_VARCHAR_LEN);
1702:
1696: end if;
1697:
1698: if (ecx_utils.g_procedure_mappings(i).data_type = 1) then
1699: dbms_sql.bind_variable(p_proc_cursor,
1700: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1701: l_var_value,ecx_utils.G_VARCHAR_LEN);
1702:
1703: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1704: dbms_sql.bind_variable(p_proc_cursor,
1697:
1698: if (ecx_utils.g_procedure_mappings(i).data_type = 1) then
1699: dbms_sql.bind_variable(p_proc_cursor,
1700: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1701: l_var_value,ecx_utils.G_VARCHAR_LEN);
1702:
1703: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1704: dbms_sql.bind_variable(p_proc_cursor,
1705: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1699: dbms_sql.bind_variable(p_proc_cursor,
1700: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1701: l_var_value,ecx_utils.G_VARCHAR_LEN);
1702:
1703: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1704: dbms_sql.bind_variable(p_proc_cursor,
1705: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1706: to_number(l_var_value));
1707: if(l_statementEnabled) then
1701: l_var_value,ecx_utils.G_VARCHAR_LEN);
1702:
1703: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1704: dbms_sql.bind_variable(p_proc_cursor,
1705: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1706: to_number(l_var_value));
1707: if(l_statementEnabled) then
1708: ecx_debug.log(l_statement,'after binding',i_method_name);
1709: end if;
1706: to_number(l_var_value));
1707: if(l_statementEnabled) then
1708: ecx_debug.log(l_statement,'after binding',i_method_name);
1709: end if;
1710: elsif (ecx_utils.g_procedure_mappings(i).data_type = 12) then
1711: dbms_sql.bind_variable(p_proc_cursor,
1712: ':' || ecx_utils.g_procedure_mappings(i).parameter_name,
1713: to_date(l_var_value, 'YYYYMMDD HH24MISS'));
1714:
1708: ecx_debug.log(l_statement,'after binding',i_method_name);
1709: end if;
1710: elsif (ecx_utils.g_procedure_mappings(i).data_type = 12) then
1711: dbms_sql.bind_variable(p_proc_cursor,
1712: ':' || ecx_utils.g_procedure_mappings(i).parameter_name,
1713: to_date(l_var_value, 'YYYYMMDD HH24MISS'));
1714:
1715: elsif (ecx_utils.g_procedure_mappings(i).data_type = 96) then
1716: dbms_sql.bind_variable(p_proc_cursor,
1711: dbms_sql.bind_variable(p_proc_cursor,
1712: ':' || ecx_utils.g_procedure_mappings(i).parameter_name,
1713: to_date(l_var_value, 'YYYYMMDD HH24MISS'));
1714:
1715: elsif (ecx_utils.g_procedure_mappings(i).data_type = 96) then
1716: dbms_sql.bind_variable(p_proc_cursor,
1717: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name, l_var_value, 600);
1718:
1719: /** Change required for Clob Support -- 2263729 ***/
1713: to_date(l_var_value, 'YYYYMMDD HH24MISS'));
1714:
1715: elsif (ecx_utils.g_procedure_mappings(i).data_type = 96) then
1716: dbms_sql.bind_variable(p_proc_cursor,
1717: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name, l_var_value, 600);
1718:
1719: /** Change required for Clob Support -- 2263729 ***/
1720: elsif (ecx_utils.g_procedure_mappings(i).data_type = 112) then
1721: if l_clob_value is not null Then
1716: dbms_sql.bind_variable(p_proc_cursor,
1717: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name, l_var_value, 600);
1718:
1719: /** Change required for Clob Support -- 2263729 ***/
1720: elsif (ecx_utils.g_procedure_mappings(i).data_type = 112) then
1721: if l_clob_value is not null Then
1722: if(l_statementEnabled) then
1723: ecx_debug.log(l_statement,'Binding clob is not null',i_method_name);
1724: end if;
1722: if(l_statementEnabled) then
1723: ecx_debug.log(l_statement,'Binding clob is not null',i_method_name);
1724: end if;
1725: dbms_sql.bind_variable(p_proc_cursor,
1726: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name, l_clob_value);
1727:
1728: elsif l_var_value is not null Then
1729: if(l_statementEnabled) then
1730: ecx_debug.log(l_statement,'Binding varchar is not null',i_method_name);
1731: end if;
1732: /** bind the varchar2 variable to clob. ***/
1733: get_clob(l_clob_value,l_var_value,l_temp_loc);
1734: dbms_sql.bind_variable(p_proc_cursor,
1735: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,l_temp_loc);
1736:
1737: else
1738: if(l_statementEnabled) then
1739: ecx_debug.log(l_statement,'Binding clob is null',i_method_name);
1740: end if;
1741:
1742: /** just bind the null clob so that bind will not fail***/
1743: dbms_sql.bind_variable(p_proc_cursor,
1744: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,l_clob_value);
1745: end if;
1746: else
1747: if(l_statementEnabled) then
1748: ecx_debug.log(l_statement,'ECX', 'ECX_PROCEDURE_EXECUTION',i_method_name,
1751: ecx_debug.log(l_statement,'ECX', 'ECX_UNSUPPORTED_DATATYPE',i_method_name,
1752: 'Unsupported Data Type');
1753: end if;
1754: ecx_debug.setErrorInfo(2,30,'ECX_UNSUPPORTED_DATATYPE');
1755: raise ecx_utils.program_exit;
1756: end if;
1757: end if;
1758: if dbms_lob.istemporary(l_temp_loc) = 1 Then
1759: dbms_lob.freetemporary(l_temp_loc);
1780: ecx_debug.pop(i_method_name);
1781: end if;
1782:
1783: EXCEPTION
1784: WHEN ecx_utils.PROGRAM_EXIT then
1785: if dbms_lob.istemporary(l_temp_loc) = 1 Then
1786: dbms_lob.freetemporary(l_temp_loc);
1787: end if;
1788: if dbms_lob.istemporary(l_clob_value) = 1 Then
1808: end if;
1809: if (l_procedureEnabled) then
1810: ecx_debug.pop(i_method_name);
1811: end if;
1812: raise ecx_utils.PROGRAM_EXIT;
1813:
1814: END bind_proc_variables;
1815:
1816:
1834: if (l_procedureEnabled) then
1835: ecx_debug.push(i_method_name);
1836: end if;
1837:
1838: if (ecx_utils.g_procedure_mappings.count <> 0)
1839: then
1840: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1841: loop
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1836: end if;
1837:
1838: if (ecx_utils.g_procedure_mappings.count <> 0)
1839: then
1840: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1841: loop
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1838: if (ecx_utils.g_procedure_mappings.count <> 0)
1839: then
1840: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1841: loop
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1845: ecx_utils.g_procedure_mappings(i).action_type = 1080) then
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1839: then
1840: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1841: loop
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1845: ecx_utils.g_procedure_mappings(i).action_type = 1080) then
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1847: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1840: for i in ecx_utils.g_procedure_mappings.first..ecx_utils.g_procedure_mappings.last
1841: loop
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1845: ecx_utils.g_procedure_mappings(i).action_type = 1080) then
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1847: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1848: then
1841: loop
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1845: ecx_utils.g_procedure_mappings(i).action_type = 1080) then
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1847: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1848: then
1849: l_stack_var := find_stack_variable(
1842: if (ecx_utils.g_procedure_mappings(i).transtage_id = p_transtage_id) and
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1845: ecx_utils.g_procedure_mappings(i).action_type = 1080) then
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1847: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1848: then
1849: l_stack_var := find_stack_variable(
1850: ecx_utils.g_procedure_mappings(i).variable_name,
1843: (ecx_utils.g_procedure_mappings(i).procedure_name = p_procedure_name) and
1844: (ecx_utils.g_procedure_mappings(i).action_type = 1070 or
1845: ecx_utils.g_procedure_mappings(i).action_type = 1080) then
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1847: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1848: then
1849: l_stack_var := find_stack_variable(
1850: ecx_utils.g_procedure_mappings(i).variable_name,
1851: l_stack_pos);
1846: xml_frag_count := ecx_utils.g_xml_frag.count;
1847: if ( ecx_utils.g_procedure_mappings(i).variable_direction = 'G' )
1848: then
1849: l_stack_var := find_stack_variable(
1850: ecx_utils.g_procedure_mappings(i).variable_name,
1851: l_stack_pos);
1852: else
1853: l_stack_var := false;
1854: l_var_pos := ecx_utils.g_procedure_mappings(i).variable_pos;
1850: ecx_utils.g_procedure_mappings(i).variable_name,
1851: l_stack_pos);
1852: else
1853: l_stack_var := false;
1854: l_var_pos := ecx_utils.g_procedure_mappings(i).variable_pos;
1855: end if;
1856: if(l_statementEnabled) then
1857: ecx_debug.log(l_statement,'fragment count',xml_frag_count,i_method_name);
1858: end if;
1857: ecx_debug.log(l_statement,'fragment count',xml_frag_count,i_method_name);
1858: end if;
1859:
1860:
1861: if (ecx_utils.g_procedure_mappings(i).data_type = 1) then
1862: dbms_sql.variable_value (p_proc_cursor,
1863: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1864: l_varchar_value);
1865: frag_found := FALSE;
1859:
1860:
1861: if (ecx_utils.g_procedure_mappings(i).data_type = 1) then
1862: dbms_sql.variable_value (p_proc_cursor,
1863: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1864: l_varchar_value);
1865: frag_found := FALSE;
1866: -- XML Fragment change
1867: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1863: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1864: l_varchar_value);
1865: frag_found := FALSE;
1866: -- XML Fragment change
1867: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1868: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T') then
1869: if ecx_utils.g_xml_frag.count > 0 then
1870: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1871: loop
1864: l_varchar_value);
1865: frag_found := FALSE;
1866: -- XML Fragment change
1867: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1868: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T') then
1869: if ecx_utils.g_xml_frag.count > 0 then
1870: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1871: loop
1872: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos
1865: frag_found := FALSE;
1866: -- XML Fragment change
1867: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1868: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T') then
1869: if ecx_utils.g_xml_frag.count > 0 then
1870: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1871: loop
1872: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos
1873: then
1866: -- XML Fragment change
1867: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1868: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T') then
1869: if ecx_utils.g_xml_frag.count > 0 then
1870: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1871: loop
1872: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos
1873: then
1874: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1868: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T') then
1869: if ecx_utils.g_xml_frag.count > 0 then
1870: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1871: loop
1872: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos
1873: then
1874: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1875: frag_found := TRUE;
1876: if frag_found then
1870: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1871: loop
1872: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos
1873: then
1874: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1875: frag_found := TRUE;
1876: if frag_found then
1877: exit;
1878: end if;
1880: end loop;
1881: end if;
1882:
1883: if (not frag_found) then
1884: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos :=
1885: l_var_pos;
1886: ecx_utils.g_xml_frag(xml_frag_count+1).value := l_varchar_value;
1887: if(l_statementEnabled) then
1888: ecx_debug.log(l_statement,'value',ecx_utils.g_xml_frag(xml_frag_count+1).value,i_method_name);
1882:
1883: if (not frag_found) then
1884: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos :=
1885: l_var_pos;
1886: ecx_utils.g_xml_frag(xml_frag_count+1).value := l_varchar_value;
1887: if(l_statementEnabled) then
1888: ecx_debug.log(l_statement,'value',ecx_utils.g_xml_frag(xml_frag_count+1).value,i_method_name);
1889: end if;
1890: end if;
1884: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos :=
1885: l_var_pos;
1886: ecx_utils.g_xml_frag(xml_frag_count+1).value := l_varchar_value;
1887: if(l_statementEnabled) then
1888: ecx_debug.log(l_statement,'value',ecx_utils.g_xml_frag(xml_frag_count+1).value,i_method_name);
1889: end if;
1890: end if;
1891:
1892: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1888: ecx_debug.log(l_statement,'value',ecx_utils.g_xml_frag(xml_frag_count+1).value,i_method_name);
1889: end if;
1890: end if;
1891:
1892: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1893: ecx_utils.g_target(l_var_pos).value := null;
1894: ecx_utils.g_target(l_var_pos).clob_value := null;
1895: end if;
1896:
1889: end if;
1890: end if;
1891:
1892: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1893: ecx_utils.g_target(l_var_pos).value := null;
1894: ecx_utils.g_target(l_var_pos).clob_value := null;
1895: end if;
1896:
1897: else
1890: end if;
1891:
1892: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1893: ecx_utils.g_target(l_var_pos).value := null;
1894: ecx_utils.g_target(l_var_pos).clob_value := null;
1895: end if;
1896:
1897: else
1898: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1895: end if;
1896:
1897: else
1898: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1899: ecx_utils.g_procedure_mappings(i).variable_direction,l_varchar_value);
1900: end if;
1901:
1902: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1903: dbms_sql.variable_value (p_proc_cursor,
1898: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1899: ecx_utils.g_procedure_mappings(i).variable_direction,l_varchar_value);
1900: end if;
1901:
1902: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1903: dbms_sql.variable_value (p_proc_cursor,
1904: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1905: l_num);
1906: frag_found := FALSE;
1900: end if;
1901:
1902: elsif (ecx_utils.g_procedure_mappings(i).data_type = 2) then
1903: dbms_sql.variable_value (p_proc_cursor,
1904: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1905: l_num);
1906: frag_found := FALSE;
1907: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1908: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1903: dbms_sql.variable_value (p_proc_cursor,
1904: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1905: l_num);
1906: frag_found := FALSE;
1907: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1908: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1909: -- XML Fragment change
1910:
1911: if ecx_utils.g_xml_frag.count > 0 then
1904: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1905: l_num);
1906: frag_found := FALSE;
1907: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1908: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1909: -- XML Fragment change
1910:
1911: if ecx_utils.g_xml_frag.count > 0 then
1912: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1907: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1908: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1909: -- XML Fragment change
1910:
1911: if ecx_utils.g_xml_frag.count > 0 then
1912: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1913: loop
1914: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1915: ecx_utils.g_xml_frag(frag_count).value := to_char(l_num);
1908: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1909: -- XML Fragment change
1910:
1911: if ecx_utils.g_xml_frag.count > 0 then
1912: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1913: loop
1914: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1915: ecx_utils.g_xml_frag(frag_count).value := to_char(l_num);
1916: frag_found := TRUE;
1910:
1911: if ecx_utils.g_xml_frag.count > 0 then
1912: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1913: loop
1914: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1915: ecx_utils.g_xml_frag(frag_count).value := to_char(l_num);
1916: frag_found := TRUE;
1917: if frag_found then
1918: exit;
1911: if ecx_utils.g_xml_frag.count > 0 then
1912: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1913: loop
1914: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1915: ecx_utils.g_xml_frag(frag_count).value := to_char(l_num);
1916: frag_found := TRUE;
1917: if frag_found then
1918: exit;
1919: end if;
1921: end loop;
1922: end if;
1923:
1924: if (not frag_found) then
1925: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos := l_var_pos;
1926: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_num);
1927: end if;
1928:
1929: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1922: end if;
1923:
1924: if (not frag_found) then
1925: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos := l_var_pos;
1926: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_num);
1927: end if;
1928:
1929: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1930: ecx_utils.g_target(l_var_pos).value := null;
1925: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos := l_var_pos;
1926: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_num);
1927: end if;
1928:
1929: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1930: ecx_utils.g_target(l_var_pos).value := null;
1931: ecx_utils.g_target(l_var_pos).clob_value := null;
1932: end if;
1933: else
1926: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_num);
1927: end if;
1928:
1929: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1930: ecx_utils.g_target(l_var_pos).value := null;
1931: ecx_utils.g_target(l_var_pos).clob_value := null;
1932: end if;
1933: else
1934: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1927: end if;
1928:
1929: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1930: ecx_utils.g_target(l_var_pos).value := null;
1931: ecx_utils.g_target(l_var_pos).clob_value := null;
1932: end if;
1933: else
1934: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1935: ecx_utils.g_procedure_mappings(i).variable_direction,
1931: ecx_utils.g_target(l_var_pos).clob_value := null;
1932: end if;
1933: else
1934: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1935: ecx_utils.g_procedure_mappings(i).variable_direction,
1936: to_char(l_num));
1937: end if;
1938:
1939: elsif (ecx_utils.g_procedure_mappings(i).data_type = 12) then
1935: ecx_utils.g_procedure_mappings(i).variable_direction,
1936: to_char(l_num));
1937: end if;
1938:
1939: elsif (ecx_utils.g_procedure_mappings(i).data_type = 12) then
1940: dbms_sql.variable_value (p_proc_cursor,
1941: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1942: l_date);
1943: frag_found := FALSE;
1937: end if;
1938:
1939: elsif (ecx_utils.g_procedure_mappings(i).data_type = 12) then
1940: dbms_sql.variable_value (p_proc_cursor,
1941: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1942: l_date);
1943: frag_found := FALSE;
1944: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1945: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1940: dbms_sql.variable_value (p_proc_cursor,
1941: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1942: l_date);
1943: frag_found := FALSE;
1944: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1945: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1946:
1947: if ecx_utils.g_xml_frag.count > 0 then
1948: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1941: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1942: l_date);
1943: frag_found := FALSE;
1944: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1945: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1946:
1947: if ecx_utils.g_xml_frag.count > 0 then
1948: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1949: loop
1943: frag_found := FALSE;
1944: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1945: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1946:
1947: if ecx_utils.g_xml_frag.count > 0 then
1948: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1949: loop
1950: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1951: ecx_utils.g_xml_frag(frag_count).value := to_char(l_date,'YYYYMMDD HH24MISS');
1944: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1945: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1946:
1947: if ecx_utils.g_xml_frag.count > 0 then
1948: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1949: loop
1950: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1951: ecx_utils.g_xml_frag(frag_count).value := to_char(l_date,'YYYYMMDD HH24MISS');
1952: frag_found := TRUE;
1946:
1947: if ecx_utils.g_xml_frag.count > 0 then
1948: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1949: loop
1950: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1951: ecx_utils.g_xml_frag(frag_count).value := to_char(l_date,'YYYYMMDD HH24MISS');
1952: frag_found := TRUE;
1953: if frag_found then
1954: exit;
1947: if ecx_utils.g_xml_frag.count > 0 then
1948: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1949: loop
1950: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1951: ecx_utils.g_xml_frag(frag_count).value := to_char(l_date,'YYYYMMDD HH24MISS');
1952: frag_found := TRUE;
1953: if frag_found then
1954: exit;
1955: end if;
1957: end loop;
1958: end if;
1959:
1960: if (not frag_found) then
1961: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos := l_var_pos;
1962: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_date,'YYYYMMDD HH24MISS');
1963: end if;
1964:
1965: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1958: end if;
1959:
1960: if (not frag_found) then
1961: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos := l_var_pos;
1962: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_date,'YYYYMMDD HH24MISS');
1963: end if;
1964:
1965: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1966: ecx_utils.g_target(l_var_pos).value := null;
1961: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos := l_var_pos;
1962: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_date,'YYYYMMDD HH24MISS');
1963: end if;
1964:
1965: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1966: ecx_utils.g_target(l_var_pos).value := null;
1967: ecx_utils.g_target(l_var_pos).clob_value := null;
1968: end if;
1969: else
1962: ecx_utils.g_xml_frag(xml_frag_count+1).value := to_char(l_date,'YYYYMMDD HH24MISS');
1963: end if;
1964:
1965: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1966: ecx_utils.g_target(l_var_pos).value := null;
1967: ecx_utils.g_target(l_var_pos).clob_value := null;
1968: end if;
1969: else
1970: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1963: end if;
1964:
1965: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1966: ecx_utils.g_target(l_var_pos).value := null;
1967: ecx_utils.g_target(l_var_pos).clob_value := null;
1968: end if;
1969: else
1970: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1971: ecx_utils.g_procedure_mappings(i).variable_direction,
1967: ecx_utils.g_target(l_var_pos).clob_value := null;
1968: end if;
1969: else
1970: assign_value (l_stack_var, l_stack_pos, l_var_pos,
1971: ecx_utils.g_procedure_mappings(i).variable_direction,
1972: to_char(l_date,'YYYYMMDD HH24MISS'));
1973: end if;
1974:
1975:
1972: to_char(l_date,'YYYYMMDD HH24MISS'));
1973: end if;
1974:
1975:
1976: elsif (ecx_utils.g_procedure_mappings(i).data_type = 96) then
1977: dbms_sql.variable_value (p_proc_cursor,
1978: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1979: l_varchar_value);
1980: frag_found := FALSE;
1974:
1975:
1976: elsif (ecx_utils.g_procedure_mappings(i).data_type = 96) then
1977: dbms_sql.variable_value (p_proc_cursor,
1978: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1979: l_varchar_value);
1980: frag_found := FALSE;
1981: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1982: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1977: dbms_sql.variable_value (p_proc_cursor,
1978: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1979: l_varchar_value);
1980: frag_found := FALSE;
1981: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1982: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1983: if ecx_utils.g_xml_frag.count > 0 then
1984: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1985: loop
1978: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
1979: l_varchar_value);
1980: frag_found := FALSE;
1981: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1982: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1983: if ecx_utils.g_xml_frag.count > 0 then
1984: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1985: loop
1986: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1979: l_varchar_value);
1980: frag_found := FALSE;
1981: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1982: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1983: if ecx_utils.g_xml_frag.count > 0 then
1984: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1985: loop
1986: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1987: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1980: frag_found := FALSE;
1981: if (instr(p_procedure_name,ECX_UTILS.G_XML_FRAG_PROC) > 0 and l_var_pos is
1982: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1983: if ecx_utils.g_xml_frag.count > 0 then
1984: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1985: loop
1986: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1987: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1988: frag_found := TRUE;
1982: not null and ecx_utils.g_procedure_mappings(i).variable_direction = 'T' ) then
1983: if ecx_utils.g_xml_frag.count > 0 then
1984: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1985: loop
1986: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1987: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1988: frag_found := TRUE;
1989: if frag_found then
1990: exit;
1983: if ecx_utils.g_xml_frag.count > 0 then
1984: for frag_count in ecx_utils.g_xml_frag.FIRST .. ecx_utils.g_xml_frag.LAST
1985: loop
1986: if ecx_utils.g_xml_frag(frag_count).variable_pos = l_var_pos then
1987: ecx_utils.g_xml_frag(frag_count).value := l_varchar_value;
1988: frag_found := TRUE;
1989: if frag_found then
1990: exit;
1991: end if;
1993: end loop;
1994: end if;
1995:
1996: if (not frag_found) then
1997: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos :=
1998: l_var_pos;
1999: ecx_utils.g_xml_frag(xml_frag_count+1).value :=
2000: l_varchar_value;
2001: end if;
1995:
1996: if (not frag_found) then
1997: ecx_utils.g_xml_frag(xml_frag_count+1).variable_pos :=
1998: l_var_pos;
1999: ecx_utils.g_xml_frag(xml_frag_count+1).value :=
2000: l_varchar_value;
2001: end if;
2002:
2003: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
1999: ecx_utils.g_xml_frag(xml_frag_count+1).value :=
2000: l_varchar_value;
2001: end if;
2002:
2003: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
2004: ecx_utils.g_target(l_var_pos).value := null;
2005: ecx_utils.g_target(l_var_pos).clob_value := null;
2006: end if;
2007: else
2000: l_varchar_value;
2001: end if;
2002:
2003: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
2004: ecx_utils.g_target(l_var_pos).value := null;
2005: ecx_utils.g_target(l_var_pos).clob_value := null;
2006: end if;
2007: else
2008: assign_value (l_stack_var, l_stack_pos, l_var_pos,
2001: end if;
2002:
2003: if (ecx_utils.g_target(l_var_pos).attribute_type =1) then
2004: ecx_utils.g_target(l_var_pos).value := null;
2005: ecx_utils.g_target(l_var_pos).clob_value := null;
2006: end if;
2007: else
2008: assign_value (l_stack_var, l_stack_pos, l_var_pos,
2009: ecx_utils.g_procedure_mappings(i).variable_direction,
2005: ecx_utils.g_target(l_var_pos).clob_value := null;
2006: end if;
2007: else
2008: assign_value (l_stack_var, l_stack_pos, l_var_pos,
2009: ecx_utils.g_procedure_mappings(i).variable_direction,
2010: l_varchar_value );
2011: end if;
2012: /** Change required for Clob Support -- 2263729 ***/
2013: elsif (ecx_utils.g_procedure_mappings(i).data_type = 112) then
2009: ecx_utils.g_procedure_mappings(i).variable_direction,
2010: l_varchar_value );
2011: end if;
2012: /** Change required for Clob Support -- 2263729 ***/
2013: elsif (ecx_utils.g_procedure_mappings(i).data_type = 112) then
2014: dbms_sql.variable_value (p_proc_cursor,
2015: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
2016: l_clob_value);
2017:
2011: end if;
2012: /** Change required for Clob Support -- 2263729 ***/
2013: elsif (ecx_utils.g_procedure_mappings(i).data_type = 112) then
2014: dbms_sql.variable_value (p_proc_cursor,
2015: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
2016: l_clob_value);
2017:
2018: assign_value (l_stack_var, l_stack_pos, l_var_pos,
2019: ecx_utils.g_procedure_mappings(i).variable_direction,
2015: ':' ||ecx_utils.g_procedure_mappings(i).parameter_name,
2016: l_clob_value);
2017:
2018: assign_value (l_stack_var, l_stack_pos, l_var_pos,
2019: ecx_utils.g_procedure_mappings(i).variable_direction,
2020: l_clob_value );
2021: end if;
2022: end if;
2023: end loop;
2026: ecx_debug.pop(i_method_name);
2027: end if;
2028:
2029: EXCEPTION
2030: WHEN ecx_utils.PROGRAM_EXIT then
2031: if (l_procedureEnabled) then
2032: ecx_debug.pop(i_method_name);
2033: end if;
2034: raise;
2042: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.ASSIGN_OUT_VARIABLES');
2043: if (l_procedureEnabled) then
2044: ecx_debug.pop(i_method_name);
2045: end if;
2046: raise ecx_utils.PROGRAM_EXIT;
2047:
2048: END assign_out_variables;
2049:
2050:
2073: ecx_debug.log(l_statement,'i_procedure_name',i_procedure_name,i_method_name);
2074: end if;
2075:
2076: bind_proc_variables (i_transtage_id, i_procedure_name,
2077: ecx_utils.g_procedure_list(i_transtage_id).cursor_handle);
2078:
2079: assign_out_variables (i_transtage_id, i_procedure_name,
2080: ecx_utils.g_procedure_list(i_transtage_id).cursor_handle);
2081:
2076: bind_proc_variables (i_transtage_id, i_procedure_name,
2077: ecx_utils.g_procedure_list(i_transtage_id).cursor_handle);
2078:
2079: assign_out_variables (i_transtage_id, i_procedure_name,
2080: ecx_utils.g_procedure_list(i_transtage_id).cursor_handle);
2081:
2082: if (l_procedureEnabled) then
2083: ecx_debug.pop(i_method_name);
2084: end if;
2083: ecx_debug.pop(i_method_name);
2084: end if;
2085:
2086: EXCEPTION
2087: WHEN ecx_utils.PROGRAM_EXIT then
2088: if (l_procedureEnabled) then
2089: ecx_debug.pop(i_method_name);
2090: end if;
2091: raise;
2098: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.EXECUTE_PROC');
2099: if (l_procedureEnabled) then
2100: ecx_debug.pop(i_method_name);
2101: end if;
2102: raise ecx_utils.PROGRAM_EXIT;
2103:
2104: END execute_proc;
2105:
2106: procedure exit_program
2107: IS
2108: i_method_name varchar2(2000) := 'ecx_actions.exit_program';
2109: begin
2110: ecx_debug.setErrorInfo(1,20,'ECX_USER_INVOKED_EXIT');
2111: raise ecx_utils.program_exit;
2112: exception
2113: WHEN ecx_utils.PROGRAM_EXIT then
2114: raise ecx_utils.program_exit;
2115: WHEN OTHERS THEN
2109: begin
2110: ecx_debug.setErrorInfo(1,20,'ECX_USER_INVOKED_EXIT');
2111: raise ecx_utils.program_exit;
2112: exception
2113: WHEN ecx_utils.PROGRAM_EXIT then
2114: raise ecx_utils.program_exit;
2115: WHEN OTHERS THEN
2116: if(l_unexpectedEnabled) then
2117: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,'PROGRESS_LEVEL','ECX_ACTIONS.EXIT_PROGRAM');
2110: ecx_debug.setErrorInfo(1,20,'ECX_USER_INVOKED_EXIT');
2111: raise ecx_utils.program_exit;
2112: exception
2113: WHEN ecx_utils.PROGRAM_EXIT then
2114: raise ecx_utils.program_exit;
2115: WHEN OTHERS THEN
2116: if(l_unexpectedEnabled) then
2117: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,'PROGRESS_LEVEL','ECX_ACTIONS.EXIT_PROGRAM');
2118: ecx_debug.log(l_unexpected,'ECX','ECX_ERROR_MESSAGE',i_method_name,'ERROR_MESSAGE',SQLERRM);
2117: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,'PROGRESS_LEVEL','ECX_ACTIONS.EXIT_PROGRAM');
2118: ecx_debug.log(l_unexpected,'ECX','ECX_ERROR_MESSAGE',i_method_name,'ERROR_MESSAGE',SQLERRM);
2119: end if;
2120: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.EXIT_PROGRAM');
2121: raise ecx_utils.PROGRAM_EXIT;
2122: end exit_program;
2123:
2124: /** This procedure is overloaded below **/
2125: procedure set_error_exit_program(
2158: if ((i_err_msg not like 'ECX%') and (i_err_msg not like 'WF%'))
2159: then
2160: i_len := instr(i_msg, '_') - 1;
2161: /* if i_len <= 20 then
2162: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2163: end if;*/
2164: select count(*) into i_prod_code_cnt from fnd_application where APPLICATION_SHORT_NAME = substr(i_msg, 1, i_len);
2165: if i_prod_code_cnt = 1 then
2166: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2162: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2163: end if;*/
2164: select count(*) into i_prod_code_cnt from fnd_application where APPLICATION_SHORT_NAME = substr(i_msg, 1, i_len);
2165: if i_prod_code_cnt = 1 then
2166: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2167: end if;
2168: end if;
2169: if(l_statementEnabled) then
2170: ecx_debug.log(l_statement,'Product Code' , ecx_utils.g_cust_msg_code,i_method_name);
2166: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2167: end if;
2168: end if;
2169: if(l_statementEnabled) then
2170: ecx_debug.log(l_statement,'Product Code' , ecx_utils.g_cust_msg_code,i_method_name);
2171: end if;
2172:
2173: ecx_utils.set_error(p_error_type => i_err_type,
2174: p_error_code => i_err_code,
2169: if(l_statementEnabled) then
2170: ecx_debug.log(l_statement,'Product Code' , ecx_utils.g_cust_msg_code,i_method_name);
2171: end if;
2172:
2173: ecx_utils.set_error(p_error_type => i_err_type,
2174: p_error_code => i_err_code,
2175: p_error_msg => i_msg);
2176:
2177: if(l_statementEnabled) then
2176:
2177: if(l_statementEnabled) then
2178: ecx_debug.log(l_statement,'Raising program exit',i_method_name);
2179: end if;
2180: raise ecx_utils.program_exit;
2181: if (l_procedureEnabled) then
2182: ecx_debug.pop(i_method_name);
2183: end if;
2184: exception
2181: if (l_procedureEnabled) then
2182: ecx_debug.pop(i_method_name);
2183: end if;
2184: exception
2185: WHEN ecx_utils.PROGRAM_EXIT then
2186: if (l_procedureEnabled) then
2187: ecx_debug.pop(i_method_name);
2188: end if;
2189: raise ecx_utils.program_exit;
2185: WHEN ecx_utils.PROGRAM_EXIT then
2186: if (l_procedureEnabled) then
2187: ecx_debug.pop(i_method_name);
2188: end if;
2189: raise ecx_utils.program_exit;
2190: WHEN OTHERS THEN
2191: if (l_procedureEnabled) then
2192: ecx_debug.pop(i_method_name);
2193: end if;
2196: 'PROGRESS_LEVEL','ECX_ACTIONS.SET_ERR_EXIT_PROGRAM');
2197: ecx_debug.log(l_statement,'ECX','ECX_ERROR_MESSAGE',i_method_name,'ERROR_MESSAGE',SQLERRM);
2198: end if;*/
2199: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.SET_ERR_EXIT_PROGRAM');
2200: raise ecx_utils.PROGRAM_EXIT;
2201: end set_error_exit_program;
2202:
2203: /** Overloaded for enabling MLS for user invoked error
2204: messages with parameters -2535659 **/
2276: if ((i_err_msg not like 'ECX%') and (i_err_msg not like 'WF%'))
2277: then
2278: i_len := instr(i_msg, '_') - 1;
2279: /* if i_len <= 20 then
2280: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2281: end if;*/
2282: select count(*) into i_prod_code_cnt from fnd_application where APPLICATION_SHORT_NAME = substr(i_msg, 1, i_len);
2283: if i_prod_code_cnt = 1 then
2284: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2280: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2281: end if;*/
2282: select count(*) into i_prod_code_cnt from fnd_application where APPLICATION_SHORT_NAME = substr(i_msg, 1, i_len);
2283: if i_prod_code_cnt = 1 then
2284: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2285: end if;
2286: end if;
2287: if(l_statementEnabled) then
2288: ecx_debug.log(l_statement,'Product Code' , ecx_utils.g_cust_msg_code,i_method_name);
2284: ecx_utils.g_cust_msg_code := substr(i_msg, 1, i_len);
2285: end if;
2286: end if;
2287: if(l_statementEnabled) then
2288: ecx_debug.log(l_statement,'Product Code' , ecx_utils.g_cust_msg_code,i_method_name);
2289: end if;
2290:
2291: ecx_utils.set_error(p_error_type => i_err_type,
2292: p_error_code => i_err_code,
2287: if(l_statementEnabled) then
2288: ecx_debug.log(l_statement,'Product Code' , ecx_utils.g_cust_msg_code,i_method_name);
2289: end if;
2290:
2291: ecx_utils.set_error(p_error_type => i_err_type,
2292: p_error_code => i_err_code,
2293: p_error_msg => i_msg,
2294: p_token1 => p_token1,
2295: p_value1 => p_value1,
2314:
2315: if(l_statementEnabled) then
2316: ecx_debug.log(l_statement,'Raising program exit',i_method_name);
2317: end if;
2318: raise ecx_utils.program_exit;
2319: if (l_procedureEnabled) then
2320: ecx_debug.pop(i_method_name);
2321: end if;
2322:
2320: ecx_debug.pop(i_method_name);
2321: end if;
2322:
2323: exception
2324: WHEN ecx_utils.PROGRAM_EXIT then
2325: if (l_procedureEnabled) then
2326: ecx_debug.pop(i_method_name);
2327: end if;
2328: raise ecx_utils.program_exit;
2324: WHEN ecx_utils.PROGRAM_EXIT then
2325: if (l_procedureEnabled) then
2326: ecx_debug.pop(i_method_name);
2327: end if;
2328: raise ecx_utils.program_exit;
2329: WHEN OTHERS THEN
2330: if (l_procedureEnabled) then
2331: ecx_debug.pop(i_method_name);
2332: end if;
2335: 'PROGRESS_LEVEL','ECX_ACTIONS.SET_ERR_EXIT_PROGRAM');
2336: ecx_debug.log(l_unexpected,'ECX','ECX_ERROR_MESSAGE',i_method_name,'ERROR_MESSAGE',SQLERRM);
2337: end if;
2338: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.SET_ERR_EXIT_PROGRAM');
2339: raise ecx_utils.PROGRAM_EXIT;
2340: end set_error_exit_program;
2341:
2342:
2343:
2399: end if;
2400:
2401: ecx_errorlog.send_error (to_number(var_value),
2402: pre_var_value,
2403: ecx_utils.g_snd_tp_id,
2404: ecx_utils.g_document_id,
2405: ecx_utils.g_transaction_type,
2406: o_ret_code,
2407: o_ret_msg);
2400:
2401: ecx_errorlog.send_error (to_number(var_value),
2402: pre_var_value,
2403: ecx_utils.g_snd_tp_id,
2404: ecx_utils.g_document_id,
2405: ecx_utils.g_transaction_type,
2406: o_ret_code,
2407: o_ret_msg);
2408:
2401: ecx_errorlog.send_error (to_number(var_value),
2402: pre_var_value,
2403: ecx_utils.g_snd_tp_id,
2404: ecx_utils.g_document_id,
2405: ecx_utils.g_transaction_type,
2406: o_ret_code,
2407: o_ret_msg);
2408:
2409: if (l_procedureEnabled) then
2410: ecx_debug.pop(i_method_name);
2411: end if;
2412:
2413: EXCEPTION
2414: WHEN ecx_utils.PROGRAM_EXIT then
2415: if (l_procedureEnabled) then
2416: ecx_debug.pop(i_method_name);
2417: end if;
2418: raise;
2426: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.SEND_ERR');
2427: if (l_procedureEnabled) then
2428: ecx_debug.pop(i_method_name);
2429: end if;
2430: raise ecx_utils.PROGRAM_EXIT;
2431: END send_err;
2432:
2433:
2434: procedure get_api_retcode (
2469: if i_default_value = 'CODE_CONVERSION'
2470: then
2471: if i_previous_variable_direction = 'S'
2472: then
2473: ret_code := ecx_utils.g_source(i_previous_variable_pos).xref_retcode;
2474: else
2475: ret_code := ecx_utils.g_target(i_previous_variable_pos).xref_retcode;
2476: end if;
2477: if(l_statementEnabled) then
2471: if i_previous_variable_direction = 'S'
2472: then
2473: ret_code := ecx_utils.g_source(i_previous_variable_pos).xref_retcode;
2474: else
2475: ret_code := ecx_utils.g_target(i_previous_variable_pos).xref_retcode;
2476: end if;
2477: if(l_statementEnabled) then
2478: ecx_debug.log(l_statement,'return code', ret_code, i_method_name);
2479: end if;
2482:
2483: elsif i_default_value = 'DOCUMENT_ID'
2484: then
2485: assign_value (var_on_stack, var_stack_pos,
2486: i_variable_pos,i_variable_direction, ecx_utils.g_document_id);
2487:
2488: elsif i_default_value = 'RET_CODE'
2489: then
2490: assign_value (var_on_stack, var_stack_pos,
2487:
2488: elsif i_default_value = 'RET_CODE'
2489: then
2490: assign_value (var_on_stack, var_stack_pos,
2491: i_variable_pos,i_variable_direction, ecx_utils.i_ret_code);
2492:
2493: elsif i_default_value = 'RET_MESG'
2494: then
2495: assign_value (var_on_stack, var_stack_pos,
2492:
2493: elsif i_default_value = 'RET_MESG'
2494: then
2495: assign_value (var_on_stack, var_stack_pos,
2496: i_variable_pos,i_variable_direction, ecx_utils.i_errbuf);
2497: elsif i_default_value = 'SENDER_TP_ID'
2498: then
2499: assign_value (var_on_stack, var_stack_pos,
2500: i_variable_pos,i_variable_direction, ecx_utils.g_snd_tp_id);
2496: i_variable_pos,i_variable_direction, ecx_utils.i_errbuf);
2497: elsif i_default_value = 'SENDER_TP_ID'
2498: then
2499: assign_value (var_on_stack, var_stack_pos,
2500: i_variable_pos,i_variable_direction, ecx_utils.g_snd_tp_id);
2501: elsif i_default_value = 'RECEIVER_TP_ID'
2502: then
2503: assign_value (var_on_stack, var_stack_pos,
2504: i_variable_pos,i_variable_direction, ecx_utils.g_rec_tp_id);
2500: i_variable_pos,i_variable_direction, ecx_utils.g_snd_tp_id);
2501: elsif i_default_value = 'RECEIVER_TP_ID'
2502: then
2503: assign_value (var_on_stack, var_stack_pos,
2504: i_variable_pos,i_variable_direction, ecx_utils.g_rec_tp_id);
2505:
2506: elsif i_default_value = 'ORG_ID'
2507: then
2508: assign_value (var_on_stack, var_stack_pos,
2505:
2506: elsif i_default_value = 'ORG_ID'
2507: then
2508: assign_value (var_on_stack, var_stack_pos,
2509: i_variable_pos,i_variable_direction, ecx_utils.g_org_id);
2510: end if;
2511: end if;
2512:
2513: if (l_procedureEnabled) then
2514: ecx_debug.pop(i_method_name);
2515: end if;
2516:
2517: EXCEPTION
2518: WHEN ecx_utils.PROGRAM_EXIT then
2519: if (l_procedureEnabled) then
2520: ecx_debug.pop(i_method_name);
2521: end if;
2522: raise;
2530: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_API_RETCODE');
2531: if (l_procedureEnabled) then
2532: ecx_debug.pop(i_method_name);
2533: end if;
2534: raise ecx_utils.PROGRAM_EXIT;
2535: END get_api_retcode;
2536:
2537:
2538: procedure split_number (
2640: ecx_debug.pop(i_method_name);
2641: end if;
2642:
2643: EXCEPTION
2644: WHEN ecx_utils.PROGRAM_EXIT then
2645: if (l_procedureEnabled) then
2646: ecx_debug.pop(i_method_name);
2647: end if;
2648: raise;
2655: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.SPLIT_NUMBER');
2656: if (l_procedureEnabled) then
2657: ecx_debug.pop(i_method_name);
2658: end if;
2659: raise ecx_utils.PROGRAM_EXIT;
2660:
2661: end split_number;
2662:
2663: /**
2687: end if;
2688:
2689: if (ecx_actions.g_server_timezone is null) then
2690: --- Check for the Installation Type ( Standalone or Embedded );
2691: if (ecx_utils.g_install_mode is null) then
2692: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
2693: end if;
2694:
2695: if ecx_utils.g_install_mode = 'EMBEDDED'
2688:
2689: if (ecx_actions.g_server_timezone is null) then
2690: --- Check for the Installation Type ( Standalone or Embedded );
2691: if (ecx_utils.g_install_mode is null) then
2692: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
2693: end if;
2694:
2695: if ecx_utils.g_install_mode = 'EMBEDDED'
2696: then
2691: if (ecx_utils.g_install_mode is null) then
2692: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
2693: end if;
2694:
2695: if ecx_utils.g_install_mode = 'EMBEDDED'
2696: then
2697: i_string := 'begin
2698: fnd_profile.get('||'''ECX_SERVER_TIMEZONE'''||',ecx_actions.g_server_timezone);
2699: end;';
2748: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GMT_OFFSET');
2749: if (l_procedureEnabled) then
2750: ecx_debug.pop(i_method_name);
2751: end if;
2752: raise ecx_utils.PROGRAM_EXIT;
2753: end gmt_offset;
2754:
2755: procedure convert_to_oag_date(
2756: i_variable_level IN pls_integer,
2824:
2825: var_pos := i_variable_pos+1;
2826:
2827: if(l_statementEnabled) then
2828: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
2829: end if;
2830: if ecx_utils.g_target(var_pos).attribute_name = 'qualifier' then
2831: var_pos := var_pos + 1;
2832: end if;
2826:
2827: if(l_statementEnabled) then
2828: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
2829: end if;
2830: if ecx_utils.g_target(var_pos).attribute_name = 'qualifier' then
2831: var_pos := var_pos + 1;
2832: end if;
2833:
2834: if ecx_utils.g_target(var_pos).attribute_name = 'type' then
2830: if ecx_utils.g_target(var_pos).attribute_name = 'qualifier' then
2831: var_pos := var_pos + 1;
2832: end if;
2833:
2834: if ecx_utils.g_target(var_pos).attribute_name = 'type' then
2835: var_pos := var_pos + 1;
2836: end if;
2837: if ecx_utils.g_target(var_pos).attribute_name = 'index' then
2838: var_pos := var_pos +1;
2833:
2834: if ecx_utils.g_target(var_pos).attribute_name = 'type' then
2835: var_pos := var_pos + 1;
2836: end if;
2837: if ecx_utils.g_target(var_pos).attribute_name = 'index' then
2838: var_pos := var_pos +1;
2839: end if;
2840:
2841: for i in 1..oag_date_tbl.COUNT loop
2840:
2841: for i in 1..oag_date_tbl.COUNT loop
2842: assign_value(stack_var, stack_pos, var_pos,i_variable_direction, oag_date_tbl(i));
2843: if(l_statementEnabled) then
2844: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
2845: ecx_debug.log(l_statement,'value',ecx_utils.g_target(var_pos).value,i_method_name);
2846: end if;
2847: var_pos := var_pos + 1;
2848: end loop;
2841: for i in 1..oag_date_tbl.COUNT loop
2842: assign_value(stack_var, stack_pos, var_pos,i_variable_direction, oag_date_tbl(i));
2843: if(l_statementEnabled) then
2844: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
2845: ecx_debug.log(l_statement,'value',ecx_utils.g_target(var_pos).value,i_method_name);
2846: end if;
2847: var_pos := var_pos + 1;
2848: end loop;
2849:
2847: var_pos := var_pos + 1;
2848: end loop;
2849:
2850: /** make the value of the DATETIME to null **/
2851: ecx_utils.g_target(i_variable_pos).value:=null;
2852:
2853: if (l_procedureEnabled) then
2854: ecx_debug.pop(i_method_name);
2855: end if;
2855: end if;
2856:
2857:
2858: EXCEPTION
2859: WHEN ecx_utils.PROGRAM_EXIT then
2860: if (l_procedureEnabled) then
2861: ecx_debug.pop(i_method_name);
2862: end if;
2863: raise;
2870: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_TO_OAG_DATE');
2871: if (l_procedureEnabled) then
2872: ecx_debug.pop(i_method_name);
2873: end if;
2874: raise ecx_utils.PROGRAM_EXIT;
2875: end convert_to_oag_date;
2876:
2877:
2878: procedure convert_to_oag_operamt(
3044: ecx_debug.pop(i_method_name);
3045: end if;
3046:
3047: EXCEPTION
3048: WHEN ecx_utils.PROGRAM_EXIT then
3049: if (l_procedureEnabled) then
3050: ecx_debug.pop(i_method_name);
3051: end if;
3052: raise;
3059: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_TO_OAG_OPERAMT');
3060: if (l_procedureEnabled) then
3061: ecx_debug.pop(i_method_name);
3062: end if;
3063: raise ecx_utils.PROGRAM_EXIT;
3064: end convert_to_oag_operamt;
3065:
3066: procedure convert_to_oag_amt(
3067: i_variable_level IN pls_integer,
3224:
3225: var_pos := i_variable_pos+1;
3226:
3227: if(l_statementEnabled) then
3228: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,
3229: i_method_name);
3230: end if;
3231: if ecx_utils.g_target(var_pos).attribute_name = 'qualifier' then
3232: var_pos := var_pos + 1;
3227: if(l_statementEnabled) then
3228: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,
3229: i_method_name);
3230: end if;
3231: if ecx_utils.g_target(var_pos).attribute_name = 'qualifier' then
3232: var_pos := var_pos + 1;
3233: end if;
3234:
3235: if ecx_utils.g_target(var_pos).attribute_name = 'type' then
3231: if ecx_utils.g_target(var_pos).attribute_name = 'qualifier' then
3232: var_pos := var_pos + 1;
3233: end if;
3234:
3235: if ecx_utils.g_target(var_pos).attribute_name = 'type' then
3236: var_pos := var_pos + 1;
3237: end if;
3238: if ecx_utils.g_target(var_pos).attribute_name = 'index' then
3239: var_pos := var_pos +1;
3234:
3235: if ecx_utils.g_target(var_pos).attribute_name = 'type' then
3236: var_pos := var_pos + 1;
3237: end if;
3238: if ecx_utils.g_target(var_pos).attribute_name = 'index' then
3239: var_pos := var_pos +1;
3240: end if;
3241:
3242: for i in 1..oag_operamt_tbl.COUNT loop
3247: if (l_procedureEnabled) then
3248: ecx_debug.pop(i_method_name);
3249: end if;
3250: EXCEPTION
3251: WHEN ecx_utils.PROGRAM_EXIT then
3252: if (l_procedureEnabled) then
3253: ecx_debug.pop(i_method_name);
3254: end if;
3255: raise;
3262: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_TO_OAG_AMT');
3263: if (l_procedureEnabled) then
3264: ecx_debug.pop(i_method_name);
3265: end if;
3266: raise ecx_utils.PROGRAM_EXIT;
3267: end convert_to_oag_amt;
3268:
3269:
3270: procedure convert_to_oag_quantity(
3382: ecx_debug.pop(i_method_name);
3383: end if;
3384:
3385: EXCEPTION
3386: WHEN ecx_utils.PROGRAM_EXIT then
3387: if (l_procedureEnabled) then
3388: ecx_debug.pop(i_method_name);
3389: end if;
3390: raise;
3397: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_TO_OAG_QUANTITY');
3398: if (l_procedureEnabled) then
3399: ecx_debug.pop(i_method_name);
3400: end if;
3401: raise ecx_utils.PROGRAM_EXIT;
3402: end convert_to_oag_quantity;
3403:
3404:
3405: procedure combine_number (
3431: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.COMBINE_NUMBER');
3432: if (l_procedureEnabled) then
3433: ecx_debug.pop(i_method_name);
3434: end if;
3435: raise ecx_utils.PROGRAM_EXIT;
3436: end combine_number;
3437:
3438:
3439: /**
3485: x_date := to_date(v_datetime,'YYYYMMDD HH24MISS');
3486:
3487: if (ecx_actions.g_server_timezone is null) then
3488: --- Check for the Installation Type ( Standalone or Embedded );
3489: if (ecx_utils.g_install_mode is null) then
3490: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
3491: end if;
3492:
3493: if ecx_utils.g_install_mode = 'EMBEDDED'
3486:
3487: if (ecx_actions.g_server_timezone is null) then
3488: --- Check for the Installation Type ( Standalone or Embedded );
3489: if (ecx_utils.g_install_mode is null) then
3490: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
3491: end if;
3492:
3493: if ecx_utils.g_install_mode = 'EMBEDDED'
3494: then
3489: if (ecx_utils.g_install_mode is null) then
3490: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
3491: end if;
3492:
3493: if ecx_utils.g_install_mode = 'EMBEDDED'
3494: then
3495: i_string := 'begin
3496: fnd_profile.get('||'''ECX_SERVER_TIMEZONE'''||',ecx_actions.g_server_timezone);
3497: end;';
3545: end if;
3546: if (l_procedureEnabled) then
3547: ecx_debug.pop(i_method_name);
3548: end if;
3549: raise ecx_utils.program_exit;
3550:
3551: WHEN ecx_utils.PROGRAM_EXIT THEN
3552: if (l_procedureEnabled) then
3553: ecx_debug.pop(i_method_name);
3547: ecx_debug.pop(i_method_name);
3548: end if;
3549: raise ecx_utils.program_exit;
3550:
3551: WHEN ecx_utils.PROGRAM_EXIT THEN
3552: if (l_procedureEnabled) then
3553: ecx_debug.pop(i_method_name);
3554: end if;
3555: raise;
3562: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_CONVERTED_DATE');
3563: if (l_procedureEnabled) then
3564: ecx_debug.pop(i_method_name);
3565: end if;
3566: raise ecx_utils.PROGRAM_EXIT;
3567: end get_converted_date;
3568:
3569:
3570: procedure convert_from_oag_date(
3624: var_pos := i_opr1_pos+1;
3625:
3626: if i_opr1_direction = 'S'
3627: then
3628: while ecx_utils.g_source(var_pos).attribute_name <> 'YEAR'
3629: loop
3630: if(l_statementEnabled) then
3631: ecx_debug.log(l_statement,'name',ecx_utils.g_source(var_pos).attribute_name,i_method_name);
3632: end if;
3627: then
3628: while ecx_utils.g_source(var_pos).attribute_name <> 'YEAR'
3629: loop
3630: if(l_statementEnabled) then
3631: ecx_debug.log(l_statement,'name',ecx_utils.g_source(var_pos).attribute_name,i_method_name);
3632: end if;
3633: var_pos := var_pos + 1;
3634: end loop;
3635: else
3632: end if;
3633: var_pos := var_pos + 1;
3634: end loop;
3635: else
3636: while ecx_utils.g_target(var_pos).attribute_name <> 'YEAR'
3637: loop
3638: if(l_statementEnabled) then
3639: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
3640: end if;
3635: else
3636: while ecx_utils.g_target(var_pos).attribute_name <> 'YEAR'
3637: loop
3638: if(l_statementEnabled) then
3639: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
3640: end if;
3641: var_pos := var_pos + 1;
3642: end loop;
3643: end if;
3686: ecx_debug.pop(i_method_name);
3687: end if;
3688:
3689: EXCEPTION
3690: WHEN ecx_utils.PROGRAM_EXIT THEN
3691: if (l_procedureEnabled) then
3692: ecx_debug.pop(i_method_name);
3693: end if;
3694: raise;
3701: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_FROM_OAG_DATE');
3702: if (l_procedureEnabled) then
3703: ecx_debug.pop(i_method_name);
3704: end if;
3705: raise ecx_utils.PROGRAM_EXIT;
3706: end convert_from_oag_date;
3707:
3708:
3709: procedure convert_from_oag_operamt(
3840: if (l_procedureEnabled) then
3841: ecx_debug.pop(i_method_name);
3842: end if;
3843: EXCEPTION
3844: WHEN ecx_utils.PROGRAM_EXIT then
3845: if (l_procedureEnabled) then
3846: ecx_debug.pop(i_method_name);
3847: end if;
3848: raise;
3856: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_FROM_OAG_OPERAMT');
3857: if (l_procedureEnabled) then
3858: ecx_debug.pop(i_method_name);
3859: end if;
3860: raise ecx_utils.PROGRAM_EXIT;
3861: end convert_from_oag_operamt;
3862:
3863: procedure convert_from_oag_amt(
3864: i_variable_level IN pls_integer,
3947: var_pos := i_opr1_pos+1;
3948:
3949: if i_opr1_direction = 'S'
3950: then
3951: while ecx_utils.g_source(var_pos).attribute_name <> 'VALUE'
3952: loop
3953: if(l_statementEnabled) then
3954: ecx_debug.log(l_statement,'name',ecx_utils.g_source(var_pos).attribute_name,i_method_name);
3955: end if;
3950: then
3951: while ecx_utils.g_source(var_pos).attribute_name <> 'VALUE'
3952: loop
3953: if(l_statementEnabled) then
3954: ecx_debug.log(l_statement,'name',ecx_utils.g_source(var_pos).attribute_name,i_method_name);
3955: end if;
3956: var_pos := var_pos + 1;
3957: end loop;
3958: else
3955: end if;
3956: var_pos := var_pos + 1;
3957: end loop;
3958: else
3959: while ecx_utils.g_target(var_pos).attribute_name <> 'VALUE'
3960: loop
3961: if(l_statementEnabled) then
3962: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
3963: end if;
3958: else
3959: while ecx_utils.g_target(var_pos).attribute_name <> 'VALUE'
3960: loop
3961: if(l_statementEnabled) then
3962: ecx_debug.log(l_statement,'name',ecx_utils.g_target(var_pos).attribute_name,i_method_name);
3963: end if;
3964: var_pos := var_pos + 1;
3965: end loop;
3966: end if;
4017: if (l_procedureEnabled) then
4018: ecx_debug.pop(i_method_name);
4019: end if;
4020: EXCEPTION
4021: WHEN ecx_utils.PROGRAM_EXIT then
4022: if (l_procedureEnabled) then
4023: ecx_debug.pop(i_method_name);
4024: end if;
4025: raise;
4032: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_FROM_OAG_AMT');
4033: if (l_procedureEnabled) then
4034: ecx_debug.pop(i_method_name);
4035: end if;
4036: raise ecx_utils.PROGRAM_EXIT;
4037: end convert_from_oag_amt;
4038:
4039: procedure derive_address_id
4040: (
4149: end if;
4150:
4151: if retcode = 2
4152: then
4153: raise ecx_utils.program_exit;
4154: end if;
4155: if (l_procedureEnabled) then
4156: ecx_debug.pop(i_method_name);
4157: end if;
4155: if (l_procedureEnabled) then
4156: ecx_debug.pop(i_method_name);
4157: end if;
4158: EXCEPTION
4159: WHEN ecx_utils.PROGRAM_EXIT then
4160: if (l_procedureEnabled) then
4161: ecx_debug.pop(i_method_name);
4162: end if;
4163: raise;
4170: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.DERIVE_ADDRESS_ID');
4171: if (l_procedureEnabled) then
4172: ecx_debug.pop(i_method_name);
4173: end if;
4174: raise ecx_utils.PROGRAM_EXIT;
4175: end derive_address_id;
4176:
4177: procedure convert_from_oag_quantity(
4178: i_variable_level IN pls_integer,
4271: if (l_procedureEnabled) then
4272: ecx_debug.pop(i_method_name);
4273: end if;
4274: EXCEPTION
4275: WHEN ecx_utils.PROGRAM_EXIT then
4276: if (l_procedureEnabled) then
4277: ecx_debug.pop(i_method_name);
4278: end if;
4279: raise;
4287: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.CONVERT_FROM_AG_QUANTITY');
4288: if (l_procedureEnabled) then
4289: ecx_debug.pop(i_method_name);
4290: end if;
4291: raise ecx_utils.PROGRAM_EXIT;
4292: end convert_from_oag_quantity;
4293:
4294: procedure execute_math_functions
4295: (
4406: ecx_debug.log(l_unexpected,'Cannot convert to number',y,i_method_name);
4407: end if;
4408: ecx_debug.setErrorInfo(2,30,'ECX_CANNOT_CONVERT_TO_NUM',
4409: 'p_value',y);
4410: raise ecx_utils.program_exit;
4411: end;
4412:
4413: begin
4414: z_number := to_number(z);
4418: ecx_debug.log(l_unexpected,'Cannot convert to number the value',z,i_method_name);
4419: end if;
4420: ecx_debug.setErrorInfo(2,30,'ECX_CANNOT_CONVERT_TO_NUM',
4421: 'p_value',z);
4422: raise ecx_utils.program_exit;
4423: end;
4424: x := ecx_conditions.math_functions ( i_math_fun_type, y_number, z_number);
4425:
4426: get_var_attr (
4442: if (l_procedureEnabled) then
4443: ecx_debug.pop(i_method_name);
4444: end if;
4445: EXCEPTION
4446: WHEN ecx_utils.PROGRAM_EXIT then
4447: if (l_procedureEnabled) then
4448: ecx_debug.pop(i_method_name);
4449: end if;
4450: raise;
4458: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.EXECUTE_MATH_FUNCTIONS');
4459: if (l_procedureEnabled) then
4460: ecx_debug.pop(i_method_name);
4461: end if;
4462: raise ecx_utils.PROGRAM_EXIT;
4463: end execute_math_functions;
4464:
4465:
4466: procedure transform_xml_with_xslt
4503: transform_xml_with_xslt (l_filename);
4504:
4505: exception
4506: when others then
4507: raise ecx_utils.program_exit;
4508: end transform_xml_with_xslt;
4509:
4510:
4511: procedure transform_xml_with_xslt
4536: if (l_procedureEnabled) then
4537: ecx_debug.push(i_method_name);
4538: end if;
4539:
4540: if (xmlDOM.isNull(ecx_utils.g_xmldoc)) then
4541: return;
4542: end if;
4543:
4544: if(l_statementEnabled) then
4572: end if;
4573: l_xslt_payload := null;
4574: when others then
4575: ecx_debug.setErrorInfo(2,30,SQLERRM);
4576: raise ecx_utils.program_exit;
4577: end;
4578:
4579: if (l_xslt_payload is null)
4580: then
4586: end if;
4587:
4588: if (ecx_actions.g_xslt_dir is null) then
4589: --- Check for the Installation Type ( Standalone or Embedded );
4590: if (ecx_utils.g_install_mode is null) then
4591: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
4592: end if;
4593:
4594: if ecx_utils.g_install_mode = 'EMBEDDED'
4587:
4588: if (ecx_actions.g_xslt_dir is null) then
4589: --- Check for the Installation Type ( Standalone or Embedded );
4590: if (ecx_utils.g_install_mode is null) then
4591: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
4592: end if;
4593:
4594: if ecx_utils.g_install_mode = 'EMBEDDED'
4595: then
4590: if (ecx_utils.g_install_mode is null) then
4591: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
4592: end if;
4593:
4594: if ecx_utils.g_install_mode = 'EMBEDDED'
4595: then
4596: i_string := 'begin
4597: fnd_profile.get('||'''ECX_UTL_XSLT_DIR'''||',ecx_actions.g_xslt_dir);
4598: end;';
4601: ecx_actions.g_xslt_dir:= wf_core.translate('ECX_UTL_XSLT_DIR');
4602: end if;
4603: end if;
4604:
4605: i_fullpath := ecx_actions.g_xslt_dir||ecx_utils.getFileSeparator()||i_filename;
4606: if(l_statementEnabled) then
4607: ecx_debug.log(l_statement, 'XSLT Fullpath', i_fullpath,i_method_name);
4608: end if;
4609: l_parser := xmlparser.newParser;
4628:
4629: i_processor := xslprocessor.newProcessor;
4630:
4631: -- get the type of the DOMNode
4632: i_node_type := xmlDOM.getNodeType(ecx_utils.g_xmldoc);
4633: if(l_statementEnabled) then
4634: ecx_debug.log(l_statement, 'i_node_type', i_node_type,i_method_name);
4635: end if;
4636:
4638: then
4639: if(l_statementEnabled) then
4640: ecx_debug.log(l_statement, 'Creating Document Object from DOM Node...',i_method_name);
4641: end if;
4642: i_doc := xmlDOM.makeDocument(ecx_utils.g_xmldoc);
4643: if(l_statementEnabled) then
4644: ecx_debug.log(l_statement, 'Before processing XSL',i_method_name);
4645: end if;
4646: i_xmlDocFrag := xslprocessor.processXSL(i_processor, i_stylesheet, i_doc);
4649: then
4650: if(l_statementEnabled) then
4651: ecx_debug.log(l_statement,'Creating Document fragment from DOM Node...',i_method_name);
4652: end if;
4653: i_doc_frag := xmlDOM.makeDocumentFragment(ecx_utils.g_xmldoc);
4654: if(l_statementEnabled) then
4655: ecx_debug.log(l_statement, 'Before processing XSL',i_method_name);
4656: end if;
4657: i_xmlDocFrag := xslprocessor.processXSL(i_processor, i_stylesheet, i_doc_frag);
4663: i_domNode := xmlDOM.makeNode(i_xmlDocFrag);
4664: if(l_statementEnabled) then
4665: ecx_debug.log(l_statement, 'Node created.',i_method_name);
4666: end if;
4667: ecx_utils.g_xmldoc := i_domNode;
4668:
4669: -- free all the used variables
4670:
4671: xslprocessor.freeStylesheet(i_stylesheet);
4696: -- Put All DOM Parser Exceptions Here.
4697: when xmlDOM.INDEX_SIZE_ERR then
4698: ecx_debug.setErrorInfo(1,20,SQLERRM);
4699: if(l_unexpectedEnabled) then
4700: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4701: end if;
4702: -- free all the used variables
4703: if (l_parser.id <> -1)
4704: then
4710: end if;
4711: if (l_procedureEnabled) then
4712: ecx_debug.pop(i_method_name);
4713: end if;
4714: raise ecx_utils.program_exit;
4715: when xmlDOM.DOMSTRING_SIZE_ERR then
4716: ecx_debug.setErrorInfo(1,20,SQLERRM);
4717: if(l_unexpectedEnabled) then
4718: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4714: raise ecx_utils.program_exit;
4715: when xmlDOM.DOMSTRING_SIZE_ERR then
4716: ecx_debug.setErrorInfo(1,20,SQLERRM);
4717: if(l_unexpectedEnabled) then
4718: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4719: end if;
4720: -- free all the used variables
4721: if (l_parser.id <> -1)
4722: then
4728: end if;
4729: if (l_procedureEnabled) then
4730: ecx_debug.pop(i_method_name);
4731: end if;
4732: raise ecx_utils.program_exit;
4733: when xmlDOM.HIERARCHY_REQUEST_ERR then
4734: ecx_debug.setErrorInfo(1,20,SQLERRM);
4735: if(l_unexpectedEnabled) then
4736: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4732: raise ecx_utils.program_exit;
4733: when xmlDOM.HIERARCHY_REQUEST_ERR then
4734: ecx_debug.setErrorInfo(1,20,SQLERRM);
4735: if(l_unexpectedEnabled) then
4736: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4737: end if;
4738: -- free all the used variables
4739: if (l_parser.id <> -1)
4740: then
4746: end if;
4747: if (l_procedureEnabled) then
4748: ecx_debug.pop(i_method_name);
4749: end if;
4750: raise ecx_utils.program_exit;
4751: when xmlDOM.WRONG_DOCUMENT_ERR then
4752: ecx_debug.setErrorInfo(1,20,SQLERRM);
4753: if(l_unexpectedEnabled) then
4754: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4750: raise ecx_utils.program_exit;
4751: when xmlDOM.WRONG_DOCUMENT_ERR then
4752: ecx_debug.setErrorInfo(1,20,SQLERRM);
4753: if(l_unexpectedEnabled) then
4754: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4755: end if;
4756: -- free all the used variables
4757: if (l_parser.id <> -1)
4758: then
4764: end if;
4765: if (l_procedureEnabled) then
4766: ecx_debug.pop(i_method_name);
4767: end if;
4768: raise ecx_utils.program_exit;
4769: when xmlDOM.INVALID_CHARACTER_ERR then
4770: ecx_debug.setErrorInfo(1,20,SQLERRM);
4771: if(l_unexpectedEnabled) then
4772: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4768: raise ecx_utils.program_exit;
4769: when xmlDOM.INVALID_CHARACTER_ERR then
4770: ecx_debug.setErrorInfo(1,20,SQLERRM);
4771: if(l_unexpectedEnabled) then
4772: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4773: end if;
4774: -- free all the used variables
4775: if (l_parser.id <> -1)
4776: then
4782: end if;
4783: if (l_procedureEnabled) then
4784: ecx_debug.pop(i_method_name);
4785: end if;
4786: raise ecx_utils.program_exit;
4787: when xmlDOM.NO_DATA_ALLOWED_ERR then
4788: ecx_debug.setErrorInfo(1,20,SQLERRM);
4789: if(l_unexpectedEnabled) then
4790: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4786: raise ecx_utils.program_exit;
4787: when xmlDOM.NO_DATA_ALLOWED_ERR then
4788: ecx_debug.setErrorInfo(1,20,SQLERRM);
4789: if(l_unexpectedEnabled) then
4790: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4791: end if;
4792: -- free all the used variables
4793: if (l_parser.id <> -1)
4794: then
4800: end if;
4801: if (l_procedureEnabled) then
4802: ecx_debug.pop(i_method_name);
4803: end if;
4804: raise ecx_utils.program_exit;
4805: when xmlDOM.No_MODIFICATION_ALLOWED_ERR then
4806: ecx_debug.setErrorInfo(1,20,SQLERRM);
4807: if(l_unexpectedEnabled) then
4808: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4804: raise ecx_utils.program_exit;
4805: when xmlDOM.No_MODIFICATION_ALLOWED_ERR then
4806: ecx_debug.setErrorInfo(1,20,SQLERRM);
4807: if(l_unexpectedEnabled) then
4808: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4809: end if;
4810: -- free all the used variables
4811: if (l_parser.id <> -1)
4812: then
4818: end if;
4819: if (l_procedureEnabled) then
4820: ecx_debug.pop(i_method_name);
4821: end if;
4822: raise ecx_utils.program_exit;
4823: when xmlDOM.NOT_FOUND_ERR then
4824: ecx_debug.setErrorInfo(1,20,SQLERRM);
4825: if(l_unexpectedEnabled) then
4826: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4822: raise ecx_utils.program_exit;
4823: when xmlDOM.NOT_FOUND_ERR then
4824: ecx_debug.setErrorInfo(1,20,SQLERRM);
4825: if(l_unexpectedEnabled) then
4826: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4827: end if;
4828: -- free all the used variables
4829: if (l_parser.id <> -1)
4830: then
4836: end if;
4837: if (l_procedureEnabled) then
4838: ecx_debug.pop(i_method_name);
4839: end if;
4840: raise ecx_utils.program_exit;
4841: when xmlDOM.NOT_SUPPORTED_ERR then
4842: ecx_debug.setErrorInfo(1,20,SQLERRM);
4843: if(l_unexpectedEnabled) then
4844: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4840: raise ecx_utils.program_exit;
4841: when xmlDOM.NOT_SUPPORTED_ERR then
4842: ecx_debug.setErrorInfo(1,20,SQLERRM);
4843: if(l_unexpectedEnabled) then
4844: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4845: end if;
4846: -- free all the used variables
4847: if (l_parser.id <> -1)
4848: then
4854: end if;
4855: if (l_procedureEnabled) then
4856: ecx_debug.pop(i_method_name);
4857: end if;
4858: raise ecx_utils.program_exit;
4859: when xmlDOM.INUSE_ATTRIBUTE_ERR then
4860: ecx_debug.setErrorInfo(1,20,SQLERRM);
4861: -- free all the used variables
4862: if (l_parser.id <> -1)
4867: then
4868: xmldom.freeDocument(l_xsl_doc);
4869: end if;
4870: if(l_unexpectedEnabled) then
4871: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4872: end if;
4873: if (l_procedureEnabled) then
4874: ecx_debug.pop(i_method_name);
4875: end if;
4872: end if;
4873: if (l_procedureEnabled) then
4874: ecx_debug.pop(i_method_name);
4875: end if;
4876: raise ecx_utils.program_exit;
4877:
4878: WHEN OTHERS THEN
4879: if(l_unexpectedEnabled) then
4880: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,'PROGRESS_LEVEL','ECX_ACTIONS.TRANSFORM_XML_WITH_XSLT');
4892: end if;
4893: if (l_procedureEnabled) then
4894: ecx_debug.pop(i_method_name);
4895: end if;
4896: raise ecx_utils.PROGRAM_EXIT;
4897: end transform_xml_with_xslt;
4898:
4899: /**
4900: Executes the Data from the ECX_TRAN_STAGE_DATA for a given Stage and Level.
4912: variable_value,
4913: variable_direction,
4914: data_type datatype
4915: from ecx_tran_stage_data ets
4916: where ets.map_id = ecx_utils.g_map_id
4917: and variable_level = 0
4918: and action_type = 10;
4919:
4920: i_counter pls_integer:= 0;
4952:
4953: ecx_actions.g_server_timezone := null;
4954: ecx_actions.g_xslt_dir := null;
4955:
4956: ecx_utils.g_stack.DELETE;
4957:
4958: for get_stack_data in stack_data loop
4959: i_counter := i_counter + 1;
4960: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4956: ecx_utils.g_stack.DELETE;
4957:
4958: for get_stack_data in stack_data loop
4959: i_counter := i_counter + 1;
4960: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4961: ecx_utils.g_stack(i_counter).variable_value := get_stack_data.variable_value;
4962: ecx_utils.g_stack(i_counter).data_type := get_stack_data.datatype;
4963: end loop;
4964:
4957:
4958: for get_stack_data in stack_data loop
4959: i_counter := i_counter + 1;
4960: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4961: ecx_utils.g_stack(i_counter).variable_value := get_stack_data.variable_value;
4962: ecx_utils.g_stack(i_counter).data_type := get_stack_data.datatype;
4963: end loop;
4964:
4965: if(l_statementEnabled) then
4958: for get_stack_data in stack_data loop
4959: i_counter := i_counter + 1;
4960: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4961: ecx_utils.g_stack(i_counter).variable_value := get_stack_data.variable_value;
4962: ecx_utils.g_stack(i_counter).data_type := get_stack_data.datatype;
4963: end loop;
4964:
4965: if(l_statementEnabled) then
4966: dump_stack;
4968:
4969: end if;
4970: end if;
4971:
4972: if(ecx_utils.g_stage_data.count <> 0)
4973: then
4974: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4975: loop
4976: exit when i = ecx_utils.g_stage_data.count;
4970: end if;
4971:
4972: if(ecx_utils.g_stage_data.count <> 0)
4973: then
4974: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4975: loop
4976: exit when i = ecx_utils.g_stage_data.count;
4977: if (ecx_utils.g_stage_data(i).stage = i_stage
4978: and ecx_utils.g_stage_data(i).level = i_level and
4972: if(ecx_utils.g_stage_data.count <> 0)
4973: then
4974: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4975: loop
4976: exit when i = ecx_utils.g_stage_data.count;
4977: if (ecx_utils.g_stage_data(i).stage = i_stage
4978: and ecx_utils.g_stage_data(i).level = i_level and
4979: ecx_utils.g_stage_data(i).object_direction = i_direction)
4980: then
4973: then
4974: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4975: loop
4976: exit when i = ecx_utils.g_stage_data.count;
4977: if (ecx_utils.g_stage_data(i).stage = i_stage
4978: and ecx_utils.g_stage_data(i).level = i_level and
4979: ecx_utils.g_stage_data(i).object_direction = i_direction)
4980: then
4981:
4974: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4975: loop
4976: exit when i = ecx_utils.g_stage_data.count;
4977: if (ecx_utils.g_stage_data(i).stage = i_stage
4978: and ecx_utils.g_stage_data(i).level = i_level and
4979: ecx_utils.g_stage_data(i).object_direction = i_direction)
4980: then
4981:
4982: /**
4975: loop
4976: exit when i = ecx_utils.g_stage_data.count;
4977: if (ecx_utils.g_stage_data(i).stage = i_stage
4978: and ecx_utils.g_stage_data(i).level = i_level and
4979: ecx_utils.g_stage_data(i).object_direction = i_direction)
4980: then
4981:
4982: /**
4983: Check for Condition First. If Defined , evaluate it first and then execute an action.
4996: i_vartype2 :=1;
4997: i_valtype2 :=1;
4998: condition_flag :=true;
4999:
5000: if ecx_utils.g_stage_data(i).cond_operator1 is not null
5001: then
5002: /** Condition based on one variable **/
5003: -- Find variable Values
5004: -- Look for Default first. If null , get it from the variable
5002: /** Condition based on one variable **/
5003: -- Find variable Values
5004: -- Look for Default first. If null , get it from the variable
5005:
5006: i_var1 := ecx_utils.g_stage_data(i).cond_var1_constant;
5007: if i_var1 is null
5008: then
5009: get_var_attr (
5010: ecx_utils.g_stage_data(i).cond_var1_level,
5006: i_var1 := ecx_utils.g_stage_data(i).cond_var1_constant;
5007: if i_var1 is null
5008: then
5009: get_var_attr (
5010: ecx_utils.g_stage_data(i).cond_var1_level,
5011: ecx_utils.g_stage_data(i).cond_var1_name,
5012: ecx_utils.g_stage_data(i).cond_var1_direction,
5013: ecx_utils.g_stage_data(i).cond_var1_pos,
5014: i_var1,
5007: if i_var1 is null
5008: then
5009: get_var_attr (
5010: ecx_utils.g_stage_data(i).cond_var1_level,
5011: ecx_utils.g_stage_data(i).cond_var1_name,
5012: ecx_utils.g_stage_data(i).cond_var1_direction,
5013: ecx_utils.g_stage_data(i).cond_var1_pos,
5014: i_var1,
5015: stack_var,
5008: then
5009: get_var_attr (
5010: ecx_utils.g_stage_data(i).cond_var1_level,
5011: ecx_utils.g_stage_data(i).cond_var1_name,
5012: ecx_utils.g_stage_data(i).cond_var1_direction,
5013: ecx_utils.g_stage_data(i).cond_var1_pos,
5014: i_var1,
5015: stack_var,
5016: stack_pos);
5009: get_var_attr (
5010: ecx_utils.g_stage_data(i).cond_var1_level,
5011: ecx_utils.g_stage_data(i).cond_var1_name,
5012: ecx_utils.g_stage_data(i).cond_var1_direction,
5013: ecx_utils.g_stage_data(i).cond_var1_pos,
5014: i_var1,
5015: stack_var,
5016: stack_pos);
5017:
5015: stack_var,
5016: stack_pos);
5017:
5018: /** Get the Data Type for the Left hand side variables **/
5019: if ecx_utils.g_stage_data(i).cond_var1_direction = 'G'
5020: then
5021: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5022: else
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5017:
5018: /** Get the Data Type for the Left hand side variables **/
5019: if ecx_utils.g_stage_data(i).cond_var1_direction = 'G'
5020: then
5021: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5022: else
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5024: then
5025: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5019: if ecx_utils.g_stage_data(i).cond_var1_direction = 'G'
5020: then
5021: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5022: else
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5024: then
5025: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5026: else
5027: i_vartype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5021: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5022: else
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5024: then
5025: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5026: else
5027: i_vartype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5028: end if;
5029: end if;
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5024: then
5025: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5026: else
5027: i_vartype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5028: end if;
5029: end if;
5030: if(l_statementEnabled) then
5031: ecx_debug.log(l_statement,'i_vartype1',i_vartype1,i_method_name);
5068:
5069:
5070:
5071:
5072: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5073: then
5074: i_val1 := ecx_utils.g_stage_data(i).cond_val1_constant;
5075: if i_val1 is null
5076: then
5070:
5071:
5072: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5073: then
5074: i_val1 := ecx_utils.g_stage_data(i).cond_val1_constant;
5075: if i_val1 is null
5076: then
5077: get_var_attr (
5078: ecx_utils.g_stage_data(i).cond_val1_level,
5074: i_val1 := ecx_utils.g_stage_data(i).cond_val1_constant;
5075: if i_val1 is null
5076: then
5077: get_var_attr (
5078: ecx_utils.g_stage_data(i).cond_val1_level,
5079: ecx_utils.g_stage_data(i).cond_val1_name,
5080: ecx_utils.g_stage_data(i).cond_val1_direction,
5081: ecx_utils.g_stage_data(i).cond_val1_pos,
5082: i_val1,
5075: if i_val1 is null
5076: then
5077: get_var_attr (
5078: ecx_utils.g_stage_data(i).cond_val1_level,
5079: ecx_utils.g_stage_data(i).cond_val1_name,
5080: ecx_utils.g_stage_data(i).cond_val1_direction,
5081: ecx_utils.g_stage_data(i).cond_val1_pos,
5082: i_val1,
5083: stack_var,
5076: then
5077: get_var_attr (
5078: ecx_utils.g_stage_data(i).cond_val1_level,
5079: ecx_utils.g_stage_data(i).cond_val1_name,
5080: ecx_utils.g_stage_data(i).cond_val1_direction,
5081: ecx_utils.g_stage_data(i).cond_val1_pos,
5082: i_val1,
5083: stack_var,
5084: stack_pos);
5077: get_var_attr (
5078: ecx_utils.g_stage_data(i).cond_val1_level,
5079: ecx_utils.g_stage_data(i).cond_val1_name,
5080: ecx_utils.g_stage_data(i).cond_val1_direction,
5081: ecx_utils.g_stage_data(i).cond_val1_pos,
5082: i_val1,
5083: stack_var,
5084: stack_pos);
5085: /** Get the Data Type for the right hand side variables **/
5082: i_val1,
5083: stack_var,
5084: stack_pos);
5085: /** Get the Data Type for the right hand side variables **/
5086: if ecx_utils.g_stage_data(i).cond_val1_direction = 'G'
5087: then
5088: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5089: else
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5084: stack_pos);
5085: /** Get the Data Type for the right hand side variables **/
5086: if ecx_utils.g_stage_data(i).cond_val1_direction = 'G'
5087: then
5088: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5089: else
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5091: then
5092: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5086: if ecx_utils.g_stage_data(i).cond_val1_direction = 'G'
5087: then
5088: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5089: else
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5091: then
5092: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5093: else
5094: i_valtype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5088: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5089: else
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5091: then
5092: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5093: else
5094: i_valtype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5095: end if;
5096: end if;
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5091: then
5092: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5093: else
5094: i_valtype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5095: end if;
5096: end if;
5097: if(l_statementEnabled) then
5098: ecx_debug.log(l_statement,'i_valtype1',i_valtype1,i_method_name);
5136:
5137: end if;
5138: end if;
5139:
5140: if ecx_utils.g_stage_data(i).cond_logical_operator is not null
5141: then
5142:
5143: /** Condition based on two variables **/
5144: i_var2 := ecx_utils.g_stage_data(i).cond_var2_constant;
5140: if ecx_utils.g_stage_data(i).cond_logical_operator is not null
5141: then
5142:
5143: /** Condition based on two variables **/
5144: i_var2 := ecx_utils.g_stage_data(i).cond_var2_constant;
5145: if i_var2 is null
5146: then
5147: get_var_attr (
5148: ecx_utils.g_stage_data(i).cond_var2_level,
5144: i_var2 := ecx_utils.g_stage_data(i).cond_var2_constant;
5145: if i_var2 is null
5146: then
5147: get_var_attr (
5148: ecx_utils.g_stage_data(i).cond_var2_level,
5149: ecx_utils.g_stage_data(i).cond_var2_name,
5150: ecx_utils.g_stage_data(i).cond_var2_direction,
5151: ecx_utils.g_stage_data(i).cond_var2_pos,
5152: i_var2,
5145: if i_var2 is null
5146: then
5147: get_var_attr (
5148: ecx_utils.g_stage_data(i).cond_var2_level,
5149: ecx_utils.g_stage_data(i).cond_var2_name,
5150: ecx_utils.g_stage_data(i).cond_var2_direction,
5151: ecx_utils.g_stage_data(i).cond_var2_pos,
5152: i_var2,
5153: stack_var,
5146: then
5147: get_var_attr (
5148: ecx_utils.g_stage_data(i).cond_var2_level,
5149: ecx_utils.g_stage_data(i).cond_var2_name,
5150: ecx_utils.g_stage_data(i).cond_var2_direction,
5151: ecx_utils.g_stage_data(i).cond_var2_pos,
5152: i_var2,
5153: stack_var,
5154: stack_pos);
5147: get_var_attr (
5148: ecx_utils.g_stage_data(i).cond_var2_level,
5149: ecx_utils.g_stage_data(i).cond_var2_name,
5150: ecx_utils.g_stage_data(i).cond_var2_direction,
5151: ecx_utils.g_stage_data(i).cond_var2_pos,
5152: i_var2,
5153: stack_var,
5154: stack_pos);
5155: end if;
5160: i_var2 :=null;
5161: end if;
5162:
5163: /** Get the Data Type for the Left hand side variables **/
5164: if ecx_utils.g_stage_data(i).cond_var2_direction = 'G'
5165: then
5166: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5167: else
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5162:
5163: /** Get the Data Type for the Left hand side variables **/
5164: if ecx_utils.g_stage_data(i).cond_var2_direction = 'G'
5165: then
5166: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5167: else
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5169: then
5170: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5164: if ecx_utils.g_stage_data(i).cond_var2_direction = 'G'
5165: then
5166: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5167: else
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5169: then
5170: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5171: else
5172: i_vartype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5166: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5167: else
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5169: then
5170: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5171: else
5172: i_vartype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5173: end if;
5174: end if;
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5169: then
5170: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5171: else
5172: i_vartype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5173: end if;
5174: end if;
5175: if(l_statementEnabled) then
5176: ecx_debug.log(l_statement,'i_vartype2',i_vartype2,i_method_name);
5176: ecx_debug.log(l_statement,'i_vartype2',i_vartype2,i_method_name);
5177: end if;
5178:
5179:
5180: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5181: then
5182: i_val2 := ecx_utils.g_stage_data(i).cond_val2_constant;
5183: if i_val2 is null
5184: then
5178:
5179:
5180: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5181: then
5182: i_val2 := ecx_utils.g_stage_data(i).cond_val2_constant;
5183: if i_val2 is null
5184: then
5185: get_var_attr (
5186: ecx_utils.g_stage_data(i).cond_val2_level,
5182: i_val2 := ecx_utils.g_stage_data(i).cond_val2_constant;
5183: if i_val2 is null
5184: then
5185: get_var_attr (
5186: ecx_utils.g_stage_data(i).cond_val2_level,
5187: ecx_utils.g_stage_data(i).cond_val2_name,
5188: ecx_utils.g_stage_data(i).cond_val2_direction,
5189: ecx_utils.g_stage_data(i).cond_val2_pos,
5190: i_val2,
5183: if i_val2 is null
5184: then
5185: get_var_attr (
5186: ecx_utils.g_stage_data(i).cond_val2_level,
5187: ecx_utils.g_stage_data(i).cond_val2_name,
5188: ecx_utils.g_stage_data(i).cond_val2_direction,
5189: ecx_utils.g_stage_data(i).cond_val2_pos,
5190: i_val2,
5191: stack_var,
5184: then
5185: get_var_attr (
5186: ecx_utils.g_stage_data(i).cond_val2_level,
5187: ecx_utils.g_stage_data(i).cond_val2_name,
5188: ecx_utils.g_stage_data(i).cond_val2_direction,
5189: ecx_utils.g_stage_data(i).cond_val2_pos,
5190: i_val2,
5191: stack_var,
5192: stack_pos);
5185: get_var_attr (
5186: ecx_utils.g_stage_data(i).cond_val2_level,
5187: ecx_utils.g_stage_data(i).cond_val2_name,
5188: ecx_utils.g_stage_data(i).cond_val2_direction,
5189: ecx_utils.g_stage_data(i).cond_val2_pos,
5190: i_val2,
5191: stack_var,
5192: stack_pos);
5193: end if;
5197: i_val2 :=null;
5198: end if;
5199:
5200: /** Get the Data Type for the right hand side variables **/
5201: if ecx_utils.g_stage_data(i).cond_val2_direction = 'G'
5202: then
5203: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5204: else
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5199:
5200: /** Get the Data Type for the right hand side variables **/
5201: if ecx_utils.g_stage_data(i).cond_val2_direction = 'G'
5202: then
5203: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5204: else
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5206: then
5207: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5201: if ecx_utils.g_stage_data(i).cond_val2_direction = 'G'
5202: then
5203: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5204: else
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5206: then
5207: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5208: else
5209: i_valtype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5203: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5204: else
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5206: then
5207: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5208: else
5209: i_valtype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5210: end if;
5211: end if;
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5206: then
5207: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5208: else
5209: i_valtype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5210: end if;
5211: end if;
5212: if(l_statementEnabled) then
5213: ecx_debug.log(l_statement,'i_valtype2',i_valtype2,i_method_name);
5216: end if;
5217: end if;
5218:
5219: /** Now check the condition **/
5220: if (ecx_utils.g_stage_data(i).cond_operator1 is not null
5221: or
5222: ecx_utils.g_stage_data(i).cond_logical_operator is not null
5223: )
5224: then
5218:
5219: /** Now check the condition **/
5220: if (ecx_utils.g_stage_data(i).cond_operator1 is not null
5221: or
5222: ecx_utils.g_stage_data(i).cond_logical_operator is not null
5223: )
5224: then
5225: condition_flag := ecx_conditions.check_condition
5226: (
5223: )
5224: then
5225: condition_flag := ecx_conditions.check_condition
5226: (
5227: ecx_utils.g_stage_data(i).cond_logical_operator,
5228: ecx_utils.g_stage_data(i).cond_operator1,
5229: i_var1,
5230: i_vartype1,
5231: i_val1,
5224: then
5225: condition_flag := ecx_conditions.check_condition
5226: (
5227: ecx_utils.g_stage_data(i).cond_logical_operator,
5228: ecx_utils.g_stage_data(i).cond_operator1,
5229: i_var1,
5230: i_vartype1,
5231: i_val1,
5232: i_valtype1,
5229: i_var1,
5230: i_vartype1,
5231: i_val1,
5232: i_valtype1,
5233: ecx_utils.g_stage_data(i).cond_operator2,
5234: i_var2,
5235: i_vartype2,
5236: i_val2,
5237: i_valtype2
5244: if ( condition_flag )
5245: then
5246:
5247: /** Not required anymore
5248: if ecx_utils.g_stage_data(i).action_type = ASSIGN_DEFAULT then
5249: assign_default_to_variables
5250: (
5251: ecx_utils.g_stage_data(i).variable_level,
5252: ecx_utils.g_stage_data(i).variable_name,
5247: /** Not required anymore
5248: if ecx_utils.g_stage_data(i).action_type = ASSIGN_DEFAULT then
5249: assign_default_to_variables
5250: (
5251: ecx_utils.g_stage_data(i).variable_level,
5252: ecx_utils.g_stage_data(i).variable_name,
5253: ecx_utils.g_stage_data(i).variable_direction,
5254: ecx_utils.g_stage_data(i).variable_pos,
5255: ecx_utils.g_stage_data(i).default_value
5248: if ecx_utils.g_stage_data(i).action_type = ASSIGN_DEFAULT then
5249: assign_default_to_variables
5250: (
5251: ecx_utils.g_stage_data(i).variable_level,
5252: ecx_utils.g_stage_data(i).variable_name,
5253: ecx_utils.g_stage_data(i).variable_direction,
5254: ecx_utils.g_stage_data(i).variable_pos,
5255: ecx_utils.g_stage_data(i).default_value
5256: );
5249: assign_default_to_variables
5250: (
5251: ecx_utils.g_stage_data(i).variable_level,
5252: ecx_utils.g_stage_data(i).variable_name,
5253: ecx_utils.g_stage_data(i).variable_direction,
5254: ecx_utils.g_stage_data(i).variable_pos,
5255: ecx_utils.g_stage_data(i).default_value
5256: );
5257: **/
5250: (
5251: ecx_utils.g_stage_data(i).variable_level,
5252: ecx_utils.g_stage_data(i).variable_name,
5253: ecx_utils.g_stage_data(i).variable_direction,
5254: ecx_utils.g_stage_data(i).variable_pos,
5255: ecx_utils.g_stage_data(i).default_value
5256: );
5257: **/
5258:
5251: ecx_utils.g_stage_data(i).variable_level,
5252: ecx_utils.g_stage_data(i).variable_name,
5253: ecx_utils.g_stage_data(i).variable_direction,
5254: ecx_utils.g_stage_data(i).variable_pos,
5255: ecx_utils.g_stage_data(i).default_value
5256: );
5257: **/
5258:
5259: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5255: ecx_utils.g_stage_data(i).default_value
5256: );
5257: **/
5258:
5259: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5260: assign_pre_defined_variables
5261: (
5262: ecx_utils.g_stage_data(i).variable_level,
5263: ecx_utils.g_stage_data(i).variable_name,
5258:
5259: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5260: assign_pre_defined_variables
5261: (
5262: ecx_utils.g_stage_data(i).variable_level,
5263: ecx_utils.g_stage_data(i).variable_name,
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5259: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5260: assign_pre_defined_variables
5261: (
5262: ecx_utils.g_stage_data(i).variable_level,
5263: ecx_utils.g_stage_data(i).variable_name,
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5260: assign_pre_defined_variables
5261: (
5262: ecx_utils.g_stage_data(i).variable_level,
5263: ecx_utils.g_stage_data(i).variable_name,
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5261: (
5262: ecx_utils.g_stage_data(i).variable_level,
5263: ecx_utils.g_stage_data(i).variable_name,
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5269: ecx_utils.g_stage_data(i).operand1_pos,
5262: ecx_utils.g_stage_data(i).variable_level,
5263: ecx_utils.g_stage_data(i).variable_name,
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5269: ecx_utils.g_stage_data(i).operand1_pos,
5270: ecx_utils.g_stage_data(i).operand1_constant
5263: ecx_utils.g_stage_data(i).variable_name,
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5269: ecx_utils.g_stage_data(i).operand1_pos,
5270: ecx_utils.g_stage_data(i).operand1_constant
5271: );
5264: ecx_utils.g_stage_data(i).variable_direction,
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5269: ecx_utils.g_stage_data(i).operand1_pos,
5270: ecx_utils.g_stage_data(i).operand1_constant
5271: );
5272:
5265: ecx_utils.g_stage_data(i).variable_pos,
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5269: ecx_utils.g_stage_data(i).operand1_pos,
5270: ecx_utils.g_stage_data(i).operand1_constant
5271: );
5272:
5273: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5266: ecx_utils.g_stage_data(i).operand1_level,
5267: ecx_utils.g_stage_data(i).operand1_name,
5268: ecx_utils.g_stage_data(i).operand1_direction,
5269: ecx_utils.g_stage_data(i).operand1_pos,
5270: ecx_utils.g_stage_data(i).operand1_constant
5271: );
5272:
5273: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5274: assign_nextval_from_sequence
5269: ecx_utils.g_stage_data(i).operand1_pos,
5270: ecx_utils.g_stage_data(i).operand1_constant
5271: );
5272:
5273: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5274: assign_nextval_from_sequence
5275: (
5276: ecx_utils.g_stage_data(i).variable_level,
5277: ecx_utils.g_stage_data(i).variable_name,
5272:
5273: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5274: assign_nextval_from_sequence
5275: (
5276: ecx_utils.g_stage_data(i).variable_level,
5277: ecx_utils.g_stage_data(i).variable_name,
5278: ecx_utils.g_stage_data(i).variable_direction,
5279: ecx_utils.g_stage_data(i).variable_pos,
5280: ecx_utils.g_stage_data(i).sequence_name
5273: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5274: assign_nextval_from_sequence
5275: (
5276: ecx_utils.g_stage_data(i).variable_level,
5277: ecx_utils.g_stage_data(i).variable_name,
5278: ecx_utils.g_stage_data(i).variable_direction,
5279: ecx_utils.g_stage_data(i).variable_pos,
5280: ecx_utils.g_stage_data(i).sequence_name
5281: );
5274: assign_nextval_from_sequence
5275: (
5276: ecx_utils.g_stage_data(i).variable_level,
5277: ecx_utils.g_stage_data(i).variable_name,
5278: ecx_utils.g_stage_data(i).variable_direction,
5279: ecx_utils.g_stage_data(i).variable_pos,
5280: ecx_utils.g_stage_data(i).sequence_name
5281: );
5282:
5275: (
5276: ecx_utils.g_stage_data(i).variable_level,
5277: ecx_utils.g_stage_data(i).variable_name,
5278: ecx_utils.g_stage_data(i).variable_direction,
5279: ecx_utils.g_stage_data(i).variable_pos,
5280: ecx_utils.g_stage_data(i).sequence_name
5281: );
5282:
5283: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5276: ecx_utils.g_stage_data(i).variable_level,
5277: ecx_utils.g_stage_data(i).variable_name,
5278: ecx_utils.g_stage_data(i).variable_direction,
5279: ecx_utils.g_stage_data(i).variable_pos,
5280: ecx_utils.g_stage_data(i).sequence_name
5281: );
5282:
5283: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5284: assign_function_value
5279: ecx_utils.g_stage_data(i).variable_pos,
5280: ecx_utils.g_stage_data(i).sequence_name
5281: );
5282:
5283: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5284: assign_function_value
5285: (
5286: ecx_utils.g_stage_data(i).variable_level,
5287: ecx_utils.g_stage_data(i).variable_name,
5282:
5283: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5284: assign_function_value
5285: (
5286: ecx_utils.g_stage_data(i).variable_level,
5287: ecx_utils.g_stage_data(i).variable_name,
5288: ecx_utils.g_stage_data(i).variable_direction,
5289: ecx_utils.g_stage_data(i).variable_pos,
5290: ecx_utils.g_stage_data(i).function_name
5283: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5284: assign_function_value
5285: (
5286: ecx_utils.g_stage_data(i).variable_level,
5287: ecx_utils.g_stage_data(i).variable_name,
5288: ecx_utils.g_stage_data(i).variable_direction,
5289: ecx_utils.g_stage_data(i).variable_pos,
5290: ecx_utils.g_stage_data(i).function_name
5291: );
5284: assign_function_value
5285: (
5286: ecx_utils.g_stage_data(i).variable_level,
5287: ecx_utils.g_stage_data(i).variable_name,
5288: ecx_utils.g_stage_data(i).variable_direction,
5289: ecx_utils.g_stage_data(i).variable_pos,
5290: ecx_utils.g_stage_data(i).function_name
5291: );
5292:
5285: (
5286: ecx_utils.g_stage_data(i).variable_level,
5287: ecx_utils.g_stage_data(i).variable_name,
5288: ecx_utils.g_stage_data(i).variable_direction,
5289: ecx_utils.g_stage_data(i).variable_pos,
5290: ecx_utils.g_stage_data(i).function_name
5291: );
5292:
5293: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5286: ecx_utils.g_stage_data(i).variable_level,
5287: ecx_utils.g_stage_data(i).variable_name,
5288: ecx_utils.g_stage_data(i).variable_direction,
5289: ecx_utils.g_stage_data(i).variable_pos,
5290: ecx_utils.g_stage_data(i).function_name
5291: );
5292:
5293: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5294: convert_to_oag_date
5289: ecx_utils.g_stage_data(i).variable_pos,
5290: ecx_utils.g_stage_data(i).function_name
5291: );
5292:
5293: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5294: convert_to_oag_date
5295: (
5296: ecx_utils.g_stage_data(i).variable_level,
5297: ecx_utils.g_stage_data(i).variable_name,
5292:
5293: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5294: convert_to_oag_date
5295: (
5296: ecx_utils.g_stage_data(i).variable_level,
5297: ecx_utils.g_stage_data(i).variable_name,
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5293: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5294: convert_to_oag_date
5295: (
5296: ecx_utils.g_stage_data(i).variable_level,
5297: ecx_utils.g_stage_data(i).variable_name,
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5294: convert_to_oag_date
5295: (
5296: ecx_utils.g_stage_data(i).variable_level,
5297: ecx_utils.g_stage_data(i).variable_name,
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5295: (
5296: ecx_utils.g_stage_data(i).variable_level,
5297: ecx_utils.g_stage_data(i).variable_name,
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5303: ecx_utils.g_stage_data(i).operand1_direction,
5296: ecx_utils.g_stage_data(i).variable_level,
5297: ecx_utils.g_stage_data(i).variable_name,
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5303: ecx_utils.g_stage_data(i).operand1_direction,
5304: ecx_utils.g_stage_data(i).operand1_constant
5297: ecx_utils.g_stage_data(i).variable_name,
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5303: ecx_utils.g_stage_data(i).operand1_direction,
5304: ecx_utils.g_stage_data(i).operand1_constant
5305: );
5298: ecx_utils.g_stage_data(i).variable_pos,
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5303: ecx_utils.g_stage_data(i).operand1_direction,
5304: ecx_utils.g_stage_data(i).operand1_constant
5305: );
5306:
5299: ecx_utils.g_stage_data(i).variable_direction,
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5303: ecx_utils.g_stage_data(i).operand1_direction,
5304: ecx_utils.g_stage_data(i).operand1_constant
5305: );
5306:
5307: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5300: ecx_utils.g_stage_data(i).operand1_level,
5301: ecx_utils.g_stage_data(i).operand1_name,
5302: ecx_utils.g_stage_data(i).operand1_pos,
5303: ecx_utils.g_stage_data(i).operand1_direction,
5304: ecx_utils.g_stage_data(i).operand1_constant
5305: );
5306:
5307: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5308: convert_to_oag_operamt(
5303: ecx_utils.g_stage_data(i).operand1_direction,
5304: ecx_utils.g_stage_data(i).operand1_constant
5305: );
5306:
5307: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5308: convert_to_oag_operamt(
5309: ecx_utils.g_stage_data(i).variable_level,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5305: );
5306:
5307: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5308: convert_to_oag_operamt(
5309: ecx_utils.g_stage_data(i).variable_level,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5306:
5307: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5308: convert_to_oag_operamt(
5309: ecx_utils.g_stage_data(i).variable_level,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5307: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5308: convert_to_oag_operamt(
5309: ecx_utils.g_stage_data(i).variable_level,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5308: convert_to_oag_operamt(
5309: ecx_utils.g_stage_data(i).variable_level,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5309: ecx_utils.g_stage_data(i).variable_level,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5310: ecx_utils.g_stage_data(i).variable_name,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5311: ecx_utils.g_stage_data(i).variable_pos,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5312: ecx_utils.g_stage_data(i).variable_direction,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5313: ecx_utils.g_stage_data(i).operand1_level,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5314: ecx_utils.g_stage_data(i).operand1_name,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5315: ecx_utils.g_stage_data(i).operand1_pos,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5316: ecx_utils.g_stage_data(i).operand1_direction,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5317: ecx_utils.g_stage_data(i).operand1_constant,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5318: ecx_utils.g_stage_data(i).operand2_level,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5319: ecx_utils.g_stage_data(i).operand2_name,
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5327: ecx_utils.g_stage_data(i).operand3_constant
5320: ecx_utils.g_stage_data(i).operand2_pos,
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5327: ecx_utils.g_stage_data(i).operand3_constant
5328: );
5321: ecx_utils.g_stage_data(i).operand2_direction,
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5327: ecx_utils.g_stage_data(i).operand3_constant
5328: );
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5322: ecx_utils.g_stage_data(i).operand2_constant,
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5327: ecx_utils.g_stage_data(i).operand3_constant
5328: );
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5330: convert_to_oag_amt(
5323: ecx_utils.g_stage_data(i).operand3_level,
5324: ecx_utils.g_stage_data(i).operand3_name,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5327: ecx_utils.g_stage_data(i).operand3_constant
5328: );
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5330: convert_to_oag_amt(
5331: ecx_utils.g_stage_data(i).variable_level,
5325: ecx_utils.g_stage_data(i).operand3_pos,
5326: ecx_utils.g_stage_data(i).operand3_direction,
5327: ecx_utils.g_stage_data(i).operand3_constant
5328: );
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5330: convert_to_oag_amt(
5331: ecx_utils.g_stage_data(i).variable_level,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5327: ecx_utils.g_stage_data(i).operand3_constant
5328: );
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5330: convert_to_oag_amt(
5331: ecx_utils.g_stage_data(i).variable_level,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5328: );
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5330: convert_to_oag_amt(
5331: ecx_utils.g_stage_data(i).variable_level,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5329: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5330: convert_to_oag_amt(
5331: ecx_utils.g_stage_data(i).variable_level,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5330: convert_to_oag_amt(
5331: ecx_utils.g_stage_data(i).variable_level,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5331: ecx_utils.g_stage_data(i).variable_level,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5332: ecx_utils.g_stage_data(i).variable_name,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5333: ecx_utils.g_stage_data(i).variable_pos,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5334: ecx_utils.g_stage_data(i).variable_direction,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5335: ecx_utils.g_stage_data(i).operand1_level,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5336: ecx_utils.g_stage_data(i).operand1_name,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5337: ecx_utils.g_stage_data(i).operand1_pos,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5338: ecx_utils.g_stage_data(i).operand1_direction,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5339: ecx_utils.g_stage_data(i).operand1_constant,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5340: ecx_utils.g_stage_data(i).operand2_level,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5348: ecx_utils.g_stage_data(i).operand3_direction,
5341: ecx_utils.g_stage_data(i).operand2_name,
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5348: ecx_utils.g_stage_data(i).operand3_direction,
5349: ecx_utils.g_stage_data(i).operand3_constant
5342: ecx_utils.g_stage_data(i).operand2_pos,
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5348: ecx_utils.g_stage_data(i).operand3_direction,
5349: ecx_utils.g_stage_data(i).operand3_constant
5350: );
5343: ecx_utils.g_stage_data(i).operand2_direction,
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5348: ecx_utils.g_stage_data(i).operand3_direction,
5349: ecx_utils.g_stage_data(i).operand3_constant
5350: );
5351:
5344: ecx_utils.g_stage_data(i).operand2_constant,
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5348: ecx_utils.g_stage_data(i).operand3_direction,
5349: ecx_utils.g_stage_data(i).operand3_constant
5350: );
5351:
5352: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5345: ecx_utils.g_stage_data(i).operand3_level,
5346: ecx_utils.g_stage_data(i).operand3_name,
5347: ecx_utils.g_stage_data(i).operand3_pos,
5348: ecx_utils.g_stage_data(i).operand3_direction,
5349: ecx_utils.g_stage_data(i).operand3_constant
5350: );
5351:
5352: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5353: convert_to_oag_quantity(
5348: ecx_utils.g_stage_data(i).operand3_direction,
5349: ecx_utils.g_stage_data(i).operand3_constant
5350: );
5351:
5352: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5353: convert_to_oag_quantity(
5354: ecx_utils.g_stage_data(i).variable_level,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5350: );
5351:
5352: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5353: convert_to_oag_quantity(
5354: ecx_utils.g_stage_data(i).variable_level,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5351:
5352: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5353: convert_to_oag_quantity(
5354: ecx_utils.g_stage_data(i).variable_level,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5352: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5353: convert_to_oag_quantity(
5354: ecx_utils.g_stage_data(i).variable_level,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5353: convert_to_oag_quantity(
5354: ecx_utils.g_stage_data(i).variable_level,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5354: ecx_utils.g_stage_data(i).variable_level,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5355: ecx_utils.g_stage_data(i).variable_name,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5356: ecx_utils.g_stage_data(i).variable_pos,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5357: ecx_utils.g_stage_data(i).variable_direction,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5358: ecx_utils.g_stage_data(i).operand1_level,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5366: ecx_utils.g_stage_data(i).operand2_direction,
5359: ecx_utils.g_stage_data(i).operand1_name,
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5366: ecx_utils.g_stage_data(i).operand2_direction,
5367: ecx_utils.g_stage_data(i).operand2_constant
5360: ecx_utils.g_stage_data(i).operand1_pos,
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5366: ecx_utils.g_stage_data(i).operand2_direction,
5367: ecx_utils.g_stage_data(i).operand2_constant
5368: );
5361: ecx_utils.g_stage_data(i).operand1_direction,
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5366: ecx_utils.g_stage_data(i).operand2_direction,
5367: ecx_utils.g_stage_data(i).operand2_constant
5368: );
5369:
5362: ecx_utils.g_stage_data(i).operand1_constant,
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5366: ecx_utils.g_stage_data(i).operand2_direction,
5367: ecx_utils.g_stage_data(i).operand2_constant
5368: );
5369:
5370: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5363: ecx_utils.g_stage_data(i).operand2_level,
5364: ecx_utils.g_stage_data(i).operand2_name,
5365: ecx_utils.g_stage_data(i).operand2_pos,
5366: ecx_utils.g_stage_data(i).operand2_direction,
5367: ecx_utils.g_stage_data(i).operand2_constant
5368: );
5369:
5370: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5371: convert_from_oag_date
5366: ecx_utils.g_stage_data(i).operand2_direction,
5367: ecx_utils.g_stage_data(i).operand2_constant
5368: );
5369:
5370: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5371: convert_from_oag_date
5372: (
5373: ecx_utils.g_stage_data(i).variable_level,
5374: ecx_utils.g_stage_data(i).variable_name,
5369:
5370: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5371: convert_from_oag_date
5372: (
5373: ecx_utils.g_stage_data(i).variable_level,
5374: ecx_utils.g_stage_data(i).variable_name,
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5370: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5371: convert_from_oag_date
5372: (
5373: ecx_utils.g_stage_data(i).variable_level,
5374: ecx_utils.g_stage_data(i).variable_name,
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5371: convert_from_oag_date
5372: (
5373: ecx_utils.g_stage_data(i).variable_level,
5374: ecx_utils.g_stage_data(i).variable_name,
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5372: (
5373: ecx_utils.g_stage_data(i).variable_level,
5374: ecx_utils.g_stage_data(i).variable_name,
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5380: ecx_utils.g_stage_data(i).operand1_direction,
5373: ecx_utils.g_stage_data(i).variable_level,
5374: ecx_utils.g_stage_data(i).variable_name,
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5380: ecx_utils.g_stage_data(i).operand1_direction,
5381: ecx_utils.g_stage_data(i).operand1_constant
5374: ecx_utils.g_stage_data(i).variable_name,
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5380: ecx_utils.g_stage_data(i).operand1_direction,
5381: ecx_utils.g_stage_data(i).operand1_constant
5382: );
5375: ecx_utils.g_stage_data(i).variable_pos,
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5380: ecx_utils.g_stage_data(i).operand1_direction,
5381: ecx_utils.g_stage_data(i).operand1_constant
5382: );
5383:
5376: ecx_utils.g_stage_data(i).variable_direction,
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5380: ecx_utils.g_stage_data(i).operand1_direction,
5381: ecx_utils.g_stage_data(i).operand1_constant
5382: );
5383:
5384: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5377: ecx_utils.g_stage_data(i).operand1_level,
5378: ecx_utils.g_stage_data(i).operand1_name,
5379: ecx_utils.g_stage_data(i).operand1_pos,
5380: ecx_utils.g_stage_data(i).operand1_direction,
5381: ecx_utils.g_stage_data(i).operand1_constant
5382: );
5383:
5384: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5385: convert_from_oag_operamt(
5380: ecx_utils.g_stage_data(i).operand1_direction,
5381: ecx_utils.g_stage_data(i).operand1_constant
5382: );
5383:
5384: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5385: convert_from_oag_operamt(
5386: ecx_utils.g_stage_data(i).variable_level,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5382: );
5383:
5384: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5385: convert_from_oag_operamt(
5386: ecx_utils.g_stage_data(i).variable_level,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5383:
5384: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5385: convert_from_oag_operamt(
5386: ecx_utils.g_stage_data(i).variable_level,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5384: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5385: convert_from_oag_operamt(
5386: ecx_utils.g_stage_data(i).variable_level,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5385: convert_from_oag_operamt(
5386: ecx_utils.g_stage_data(i).variable_level,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5386: ecx_utils.g_stage_data(i).variable_level,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5387: ecx_utils.g_stage_data(i).variable_name,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5388: ecx_utils.g_stage_data(i).variable_pos,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5389: ecx_utils.g_stage_data(i).variable_direction,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5390: ecx_utils.g_stage_data(i).operand1_level,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5391: ecx_utils.g_stage_data(i).operand1_name,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5392: ecx_utils.g_stage_data(i).operand1_pos,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5393: ecx_utils.g_stage_data(i).operand1_direction,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5394: ecx_utils.g_stage_data(i).operand1_constant,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5395: ecx_utils.g_stage_data(i).operand2_level,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5396: ecx_utils.g_stage_data(i).operand2_name,
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5404: ecx_utils.g_stage_data(i).operand3_constant
5397: ecx_utils.g_stage_data(i).operand2_pos,
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5404: ecx_utils.g_stage_data(i).operand3_constant
5405: );
5398: ecx_utils.g_stage_data(i).operand2_direction,
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5404: ecx_utils.g_stage_data(i).operand3_constant
5405: );
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5399: ecx_utils.g_stage_data(i).operand2_constant,
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5404: ecx_utils.g_stage_data(i).operand3_constant
5405: );
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5407: convert_from_oag_amt(
5400: ecx_utils.g_stage_data(i).operand3_level,
5401: ecx_utils.g_stage_data(i).operand3_name,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5404: ecx_utils.g_stage_data(i).operand3_constant
5405: );
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5407: convert_from_oag_amt(
5408: ecx_utils.g_stage_data(i).variable_level,
5402: ecx_utils.g_stage_data(i).operand3_pos,
5403: ecx_utils.g_stage_data(i).operand3_direction,
5404: ecx_utils.g_stage_data(i).operand3_constant
5405: );
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5407: convert_from_oag_amt(
5408: ecx_utils.g_stage_data(i).variable_level,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5404: ecx_utils.g_stage_data(i).operand3_constant
5405: );
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5407: convert_from_oag_amt(
5408: ecx_utils.g_stage_data(i).variable_level,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5405: );
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5407: convert_from_oag_amt(
5408: ecx_utils.g_stage_data(i).variable_level,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5406: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5407: convert_from_oag_amt(
5408: ecx_utils.g_stage_data(i).variable_level,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5407: convert_from_oag_amt(
5408: ecx_utils.g_stage_data(i).variable_level,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5408: ecx_utils.g_stage_data(i).variable_level,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5409: ecx_utils.g_stage_data(i).variable_name,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5410: ecx_utils.g_stage_data(i).variable_pos,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5411: ecx_utils.g_stage_data(i).variable_direction,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5412: ecx_utils.g_stage_data(i).operand1_level,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5413: ecx_utils.g_stage_data(i).operand1_name,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5414: ecx_utils.g_stage_data(i).operand1_pos,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5415: ecx_utils.g_stage_data(i).operand1_direction,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5416: ecx_utils.g_stage_data(i).operand1_constant,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5417: ecx_utils.g_stage_data(i).operand2_level,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5425: ecx_utils.g_stage_data(i).operand3_direction,
5418: ecx_utils.g_stage_data(i).operand2_name,
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5425: ecx_utils.g_stage_data(i).operand3_direction,
5426: ecx_utils.g_stage_data(i).operand3_constant
5419: ecx_utils.g_stage_data(i).operand2_pos,
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5425: ecx_utils.g_stage_data(i).operand3_direction,
5426: ecx_utils.g_stage_data(i).operand3_constant
5427: );
5420: ecx_utils.g_stage_data(i).operand2_direction,
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5425: ecx_utils.g_stage_data(i).operand3_direction,
5426: ecx_utils.g_stage_data(i).operand3_constant
5427: );
5428:
5421: ecx_utils.g_stage_data(i).operand2_constant,
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5425: ecx_utils.g_stage_data(i).operand3_direction,
5426: ecx_utils.g_stage_data(i).operand3_constant
5427: );
5428:
5429: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5422: ecx_utils.g_stage_data(i).operand3_level,
5423: ecx_utils.g_stage_data(i).operand3_name,
5424: ecx_utils.g_stage_data(i).operand3_pos,
5425: ecx_utils.g_stage_data(i).operand3_direction,
5426: ecx_utils.g_stage_data(i).operand3_constant
5427: );
5428:
5429: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5430: convert_from_oag_quantity(
5425: ecx_utils.g_stage_data(i).operand3_direction,
5426: ecx_utils.g_stage_data(i).operand3_constant
5427: );
5428:
5429: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5430: convert_from_oag_quantity(
5431: ecx_utils.g_stage_data(i).variable_level,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5427: );
5428:
5429: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5430: convert_from_oag_quantity(
5431: ecx_utils.g_stage_data(i).variable_level,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5428:
5429: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5430: convert_from_oag_quantity(
5431: ecx_utils.g_stage_data(i).variable_level,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5429: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5430: convert_from_oag_quantity(
5431: ecx_utils.g_stage_data(i).variable_level,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5430: convert_from_oag_quantity(
5431: ecx_utils.g_stage_data(i).variable_level,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5431: ecx_utils.g_stage_data(i).variable_level,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5432: ecx_utils.g_stage_data(i).variable_name,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5433: ecx_utils.g_stage_data(i).variable_pos,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5434: ecx_utils.g_stage_data(i).variable_direction,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5435: ecx_utils.g_stage_data(i).operand1_level,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5443: ecx_utils.g_stage_data(i).operand2_direction,
5436: ecx_utils.g_stage_data(i).operand1_name,
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5443: ecx_utils.g_stage_data(i).operand2_direction,
5444: ecx_utils.g_stage_data(i).operand2_constant
5437: ecx_utils.g_stage_data(i).operand1_pos,
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5443: ecx_utils.g_stage_data(i).operand2_direction,
5444: ecx_utils.g_stage_data(i).operand2_constant
5445: );
5438: ecx_utils.g_stage_data(i).operand1_direction,
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5443: ecx_utils.g_stage_data(i).operand2_direction,
5444: ecx_utils.g_stage_data(i).operand2_constant
5445: );
5446:
5439: ecx_utils.g_stage_data(i).operand1_constant,
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5443: ecx_utils.g_stage_data(i).operand2_direction,
5444: ecx_utils.g_stage_data(i).operand2_constant
5445: );
5446:
5447: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5440: ecx_utils.g_stage_data(i).operand2_level,
5441: ecx_utils.g_stage_data(i).operand2_name,
5442: ecx_utils.g_stage_data(i).operand2_pos,
5443: ecx_utils.g_stage_data(i).operand2_direction,
5444: ecx_utils.g_stage_data(i).operand2_constant
5445: );
5446:
5447: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5448: insert_level_into_table (i_level);
5443: ecx_utils.g_stage_data(i).operand2_direction,
5444: ecx_utils.g_stage_data(i).operand2_constant
5445: );
5446:
5447: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5448: insert_level_into_table (i_level);
5449:
5450: /** Removed the call as it is being called in the initialization of source itself **/
5451: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5447: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5448: insert_level_into_table (i_level);
5449:
5450: /** Removed the call as it is being called in the initialization of source itself **/
5451: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5452: --append_clause
5453: --(
5454: --ecx_utils.g_stage_data(i).level,
5455: --ecx_utils.g_stage_data(i).clause
5450: /** Removed the call as it is being called in the initialization of source itself **/
5451: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5452: --append_clause
5453: --(
5454: --ecx_utils.g_stage_data(i).level,
5455: --ecx_utils.g_stage_data(i).clause
5456: --);
5457:
5458: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5451: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5452: --append_clause
5453: --(
5454: --ecx_utils.g_stage_data(i).level,
5455: --ecx_utils.g_stage_data(i).clause
5456: --);
5457:
5458: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5459: execute_proc
5454: --ecx_utils.g_stage_data(i).level,
5455: --ecx_utils.g_stage_data(i).clause
5456: --);
5457:
5458: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5459: execute_proc
5460: (
5461: ecx_utils.g_stage_data(i).transtage_id,
5462: ecx_utils.g_stage_data(i).custom_procedure_name
5457:
5458: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5459: execute_proc
5460: (
5461: ecx_utils.g_stage_data(i).transtage_id,
5462: ecx_utils.g_stage_data(i).custom_procedure_name
5463: );
5464:
5465: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5458: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5459: execute_proc
5460: (
5461: ecx_utils.g_stage_data(i).transtage_id,
5462: ecx_utils.g_stage_data(i).custom_procedure_name
5463: );
5464:
5465: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5466: exit_program;
5461: ecx_utils.g_stage_data(i).transtage_id,
5462: ecx_utils.g_stage_data(i).custom_procedure_name
5463: );
5464:
5465: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5466: exit_program;
5467:
5468: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5469: send_err
5464:
5465: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5466: exit_program;
5467:
5468: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5469: send_err
5470: (
5471: ecx_utils.g_stage_data(i).operand1_level,
5472: ecx_utils.g_stage_data(i).operand1_name,
5467:
5468: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5469: send_err
5470: (
5471: ecx_utils.g_stage_data(i).operand1_level,
5472: ecx_utils.g_stage_data(i).operand1_name,
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5468: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5469: send_err
5470: (
5471: ecx_utils.g_stage_data(i).operand1_level,
5472: ecx_utils.g_stage_data(i).operand1_name,
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5469: send_err
5470: (
5471: ecx_utils.g_stage_data(i).operand1_level,
5472: ecx_utils.g_stage_data(i).operand1_name,
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5470: (
5471: ecx_utils.g_stage_data(i).operand1_level,
5472: ecx_utils.g_stage_data(i).operand1_name,
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5471: ecx_utils.g_stage_data(i).operand1_level,
5472: ecx_utils.g_stage_data(i).operand1_name,
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5479: ecx_utils.g_stage_data(i).operand2_pos,
5472: ecx_utils.g_stage_data(i).operand1_name,
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5479: ecx_utils.g_stage_data(i).operand2_pos,
5480: ecx_utils.g_stage_data(i).operand2_constant
5473: ecx_utils.g_stage_data(i).operand1_direction,
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5479: ecx_utils.g_stage_data(i).operand2_pos,
5480: ecx_utils.g_stage_data(i).operand2_constant
5481: );
5474: ecx_utils.g_stage_data(i).operand1_pos,
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5479: ecx_utils.g_stage_data(i).operand2_pos,
5480: ecx_utils.g_stage_data(i).operand2_constant
5481: );
5482:
5475: ecx_utils.g_stage_data(i).operand1_constant,
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5479: ecx_utils.g_stage_data(i).operand2_pos,
5480: ecx_utils.g_stage_data(i).operand2_constant
5481: );
5482:
5483: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5476: ecx_utils.g_stage_data(i).operand2_level,
5477: ecx_utils.g_stage_data(i).operand2_name,
5478: ecx_utils.g_stage_data(i).operand2_direction,
5479: ecx_utils.g_stage_data(i).operand2_pos,
5480: ecx_utils.g_stage_data(i).operand2_constant
5481: );
5482:
5483: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5484: get_api_retcode
5479: ecx_utils.g_stage_data(i).operand2_pos,
5480: ecx_utils.g_stage_data(i).operand2_constant
5481: );
5482:
5483: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5484: get_api_retcode
5485: (
5486: ecx_utils.g_stage_data(i).variable_level,
5487: ecx_utils.g_stage_data(i).variable_name,
5482:
5483: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5484: get_api_retcode
5485: (
5486: ecx_utils.g_stage_data(i).variable_level,
5487: ecx_utils.g_stage_data(i).variable_name,
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5483: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5484: get_api_retcode
5485: (
5486: ecx_utils.g_stage_data(i).variable_level,
5487: ecx_utils.g_stage_data(i).variable_name,
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5484: get_api_retcode
5485: (
5486: ecx_utils.g_stage_data(i).variable_level,
5487: ecx_utils.g_stage_data(i).variable_name,
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5485: (
5486: ecx_utils.g_stage_data(i).variable_level,
5487: ecx_utils.g_stage_data(i).variable_name,
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5486: ecx_utils.g_stage_data(i).variable_level,
5487: ecx_utils.g_stage_data(i).variable_name,
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5487: ecx_utils.g_stage_data(i).variable_name,
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5495: ecx_utils.g_stage_data(i).function_name
5488: ecx_utils.g_stage_data(i).variable_direction,
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5495: ecx_utils.g_stage_data(i).function_name
5496: );
5489: ecx_utils.g_stage_data(i).variable_pos,
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5495: ecx_utils.g_stage_data(i).function_name
5496: );
5497: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5490: ecx_utils.g_stage_data(i).default_value,
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5495: ecx_utils.g_stage_data(i).function_name
5496: );
5497: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5498: concat_variables
5491: ecx_utils.g_stage_data(i).operand1_level,
5492: ecx_utils.g_stage_data(i).operand1_name,
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5495: ecx_utils.g_stage_data(i).function_name
5496: );
5497: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5498: concat_variables
5499: (
5493: ecx_utils.g_stage_data(i).operand1_direction,
5494: ecx_utils.g_stage_data(i).operand1_pos,
5495: ecx_utils.g_stage_data(i).function_name
5496: );
5497: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5498: concat_variables
5499: (
5500: ecx_utils.g_stage_data(i).variable_level,
5501: ecx_utils.g_stage_data(i).variable_name,
5496: );
5497: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5498: concat_variables
5499: (
5500: ecx_utils.g_stage_data(i).variable_level,
5501: ecx_utils.g_stage_data(i).variable_name,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5497: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5498: concat_variables
5499: (
5500: ecx_utils.g_stage_data(i).variable_level,
5501: ecx_utils.g_stage_data(i).variable_name,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5498: concat_variables
5499: (
5500: ecx_utils.g_stage_data(i).variable_level,
5501: ecx_utils.g_stage_data(i).variable_name,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5499: (
5500: ecx_utils.g_stage_data(i).variable_level,
5501: ecx_utils.g_stage_data(i).variable_name,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5500: ecx_utils.g_stage_data(i).variable_level,
5501: ecx_utils.g_stage_data(i).variable_name,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5501: ecx_utils.g_stage_data(i).variable_name,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5502: ecx_utils.g_stage_data(i).variable_direction,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5503: ecx_utils.g_stage_data(i).variable_pos,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5504: ecx_utils.g_stage_data(i).operand1_level,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5512: ecx_utils.g_stage_data(i).operand2_pos,
5505: ecx_utils.g_stage_data(i).operand1_name,
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5512: ecx_utils.g_stage_data(i).operand2_pos,
5513: ecx_utils.g_stage_data(i).operand2_constant
5506: ecx_utils.g_stage_data(i).operand1_direction,
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5512: ecx_utils.g_stage_data(i).operand2_pos,
5513: ecx_utils.g_stage_data(i).operand2_constant
5514: );
5507: ecx_utils.g_stage_data(i).operand1_pos,
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5512: ecx_utils.g_stage_data(i).operand2_pos,
5513: ecx_utils.g_stage_data(i).operand2_constant
5514: );
5515:
5508: ecx_utils.g_stage_data(i).operand1_constant,
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5512: ecx_utils.g_stage_data(i).operand2_pos,
5513: ecx_utils.g_stage_data(i).operand2_constant
5514: );
5515:
5516: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5509: ecx_utils.g_stage_data(i).operand2_level,
5510: ecx_utils.g_stage_data(i).operand2_name,
5511: ecx_utils.g_stage_data(i).operand2_direction,
5512: ecx_utils.g_stage_data(i).operand2_pos,
5513: ecx_utils.g_stage_data(i).operand2_constant
5514: );
5515:
5516: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5517: substr_variables
5512: ecx_utils.g_stage_data(i).operand2_pos,
5513: ecx_utils.g_stage_data(i).operand2_constant
5514: );
5515:
5516: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5517: substr_variables
5518: (
5519: ecx_utils.g_stage_data(i).variable_level,
5520: ecx_utils.g_stage_data(i).variable_name,
5515:
5516: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5517: substr_variables
5518: (
5519: ecx_utils.g_stage_data(i).variable_level,
5520: ecx_utils.g_stage_data(i).variable_name,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5516: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5517: substr_variables
5518: (
5519: ecx_utils.g_stage_data(i).variable_level,
5520: ecx_utils.g_stage_data(i).variable_name,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5517: substr_variables
5518: (
5519: ecx_utils.g_stage_data(i).variable_level,
5520: ecx_utils.g_stage_data(i).variable_name,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5518: (
5519: ecx_utils.g_stage_data(i).variable_level,
5520: ecx_utils.g_stage_data(i).variable_name,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5519: ecx_utils.g_stage_data(i).variable_level,
5520: ecx_utils.g_stage_data(i).variable_name,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5520: ecx_utils.g_stage_data(i).variable_name,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5521: ecx_utils.g_stage_data(i).variable_direction,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5522: ecx_utils.g_stage_data(i).variable_pos,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5523: ecx_utils.g_stage_data(i).operand1_level,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5524: ecx_utils.g_stage_data(i).operand1_name,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5525: ecx_utils.g_stage_data(i).operand1_direction,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5526: ecx_utils.g_stage_data(i).operand1_pos,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5527: ecx_utils.g_stage_data(i).operand1_constant,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5528: ecx_utils.g_stage_data(i).operand2_level,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5536: ecx_utils.g_stage_data(i).operand3_pos,
5529: ecx_utils.g_stage_data(i).operand2_name,
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5536: ecx_utils.g_stage_data(i).operand3_pos,
5537: ecx_utils.g_stage_data(i).operand3_constant
5530: ecx_utils.g_stage_data(i).operand2_direction,
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5536: ecx_utils.g_stage_data(i).operand3_pos,
5537: ecx_utils.g_stage_data(i).operand3_constant
5538: );
5531: ecx_utils.g_stage_data(i).operand2_pos,
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5536: ecx_utils.g_stage_data(i).operand3_pos,
5537: ecx_utils.g_stage_data(i).operand3_constant
5538: );
5539:
5532: ecx_utils.g_stage_data(i).operand2_constant,
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5536: ecx_utils.g_stage_data(i).operand3_pos,
5537: ecx_utils.g_stage_data(i).operand3_constant
5538: );
5539:
5540: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5533: ecx_utils.g_stage_data(i).operand3_level,
5534: ecx_utils.g_stage_data(i).operand3_name,
5535: ecx_utils.g_stage_data(i).operand3_direction,
5536: ecx_utils.g_stage_data(i).operand3_pos,
5537: ecx_utils.g_stage_data(i).operand3_constant
5538: );
5539:
5540: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5541: then
5536: ecx_utils.g_stage_data(i).operand3_pos,
5537: ecx_utils.g_stage_data(i).operand3_constant
5538: );
5539:
5540: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5541: then
5542: execute_math_functions
5543: (
5544: ecx_utils.g_stage_data(i).action_type,
5540: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5541: then
5542: execute_math_functions
5543: (
5544: ecx_utils.g_stage_data(i).action_type,
5545: ecx_utils.g_stage_data(i).variable_level,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5541: then
5542: execute_math_functions
5543: (
5544: ecx_utils.g_stage_data(i).action_type,
5545: ecx_utils.g_stage_data(i).variable_level,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5542: execute_math_functions
5543: (
5544: ecx_utils.g_stage_data(i).action_type,
5545: ecx_utils.g_stage_data(i).variable_level,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5543: (
5544: ecx_utils.g_stage_data(i).action_type,
5545: ecx_utils.g_stage_data(i).variable_level,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5544: ecx_utils.g_stage_data(i).action_type,
5545: ecx_utils.g_stage_data(i).variable_level,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5545: ecx_utils.g_stage_data(i).variable_level,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5546: ecx_utils.g_stage_data(i).variable_name,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5547: ecx_utils.g_stage_data(i).variable_pos,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5548: ecx_utils.g_stage_data(i).variable_direction,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5549: ecx_utils.g_stage_data(i).operand1_level,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5550: ecx_utils.g_stage_data(i).operand1_name,
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5558: ecx_utils.g_stage_data(i).operand2_constant
5551: ecx_utils.g_stage_data(i).operand1_pos,
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5558: ecx_utils.g_stage_data(i).operand2_constant
5559: );
5552: ecx_utils.g_stage_data(i).operand1_direction,
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5558: ecx_utils.g_stage_data(i).operand2_constant
5559: );
5560: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5553: ecx_utils.g_stage_data(i).operand1_constant,
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5558: ecx_utils.g_stage_data(i).operand2_constant
5559: );
5560: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5561: transform_xml_with_xslt
5554: ecx_utils.g_stage_data(i).operand2_level,
5555: ecx_utils.g_stage_data(i).operand2_name,
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5558: ecx_utils.g_stage_data(i).operand2_constant
5559: );
5560: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5561: transform_xml_with_xslt
5562: (
5556: ecx_utils.g_stage_data(i).operand2_pos,
5557: ecx_utils.g_stage_data(i).operand2_direction,
5558: ecx_utils.g_stage_data(i).operand2_constant
5559: );
5560: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5561: transform_xml_with_xslt
5562: (
5563: ecx_utils.g_stage_data(i).default_value,
5564: ecx_utils.g_stage_data(i).operand1_level,
5559: );
5560: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5561: transform_xml_with_xslt
5562: (
5563: ecx_utils.g_stage_data(i).default_value,
5564: ecx_utils.g_stage_data(i).operand1_level,
5565: ecx_utils.g_stage_data(i).operand1_name,
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5560: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5561: transform_xml_with_xslt
5562: (
5563: ecx_utils.g_stage_data(i).default_value,
5564: ecx_utils.g_stage_data(i).operand1_level,
5565: ecx_utils.g_stage_data(i).operand1_name,
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5568: ecx_utils.g_stage_data(i).operand1_constant
5561: transform_xml_with_xslt
5562: (
5563: ecx_utils.g_stage_data(i).default_value,
5564: ecx_utils.g_stage_data(i).operand1_level,
5565: ecx_utils.g_stage_data(i).operand1_name,
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5568: ecx_utils.g_stage_data(i).operand1_constant
5569: );
5562: (
5563: ecx_utils.g_stage_data(i).default_value,
5564: ecx_utils.g_stage_data(i).operand1_level,
5565: ecx_utils.g_stage_data(i).operand1_name,
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5568: ecx_utils.g_stage_data(i).operand1_constant
5569: );
5570: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5563: ecx_utils.g_stage_data(i).default_value,
5564: ecx_utils.g_stage_data(i).operand1_level,
5565: ecx_utils.g_stage_data(i).operand1_name,
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5568: ecx_utils.g_stage_data(i).operand1_constant
5569: );
5570: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5571: then
5564: ecx_utils.g_stage_data(i).operand1_level,
5565: ecx_utils.g_stage_data(i).operand1_name,
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5568: ecx_utils.g_stage_data(i).operand1_constant
5569: );
5570: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5571: then
5572: derive_address_id
5566: ecx_utils.g_stage_data(i).operand1_pos,
5567: ecx_utils.g_stage_data(i).operand1_direction,
5568: ecx_utils.g_stage_data(i).operand1_constant
5569: );
5570: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5571: then
5572: derive_address_id
5573: (
5574: ecx_utils.g_stage_data(i).variable_level,
5570: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5571: then
5572: derive_address_id
5573: (
5574: ecx_utils.g_stage_data(i).variable_level,
5575: ecx_utils.g_stage_data(i).variable_name,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5571: then
5572: derive_address_id
5573: (
5574: ecx_utils.g_stage_data(i).variable_level,
5575: ecx_utils.g_stage_data(i).variable_name,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5572: derive_address_id
5573: (
5574: ecx_utils.g_stage_data(i).variable_level,
5575: ecx_utils.g_stage_data(i).variable_name,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5573: (
5574: ecx_utils.g_stage_data(i).variable_level,
5575: ecx_utils.g_stage_data(i).variable_name,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5574: ecx_utils.g_stage_data(i).variable_level,
5575: ecx_utils.g_stage_data(i).variable_name,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5575: ecx_utils.g_stage_data(i).variable_name,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5576: ecx_utils.g_stage_data(i).variable_pos,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5577: ecx_utils.g_stage_data(i).variable_direction,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5578: ecx_utils.g_stage_data(i).operand1_level,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5586: ecx_utils.g_stage_data(i).operand3_pos,
5579: ecx_utils.g_stage_data(i).operand1_name,
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5586: ecx_utils.g_stage_data(i).operand3_pos,
5587: ecx_utils.g_stage_data(i).operand3_direction
5580: ecx_utils.g_stage_data(i).operand1_pos,
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5586: ecx_utils.g_stage_data(i).operand3_pos,
5587: ecx_utils.g_stage_data(i).operand3_direction
5588: );
5581: ecx_utils.g_stage_data(i).operand1_direction,
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5586: ecx_utils.g_stage_data(i).operand3_pos,
5587: ecx_utils.g_stage_data(i).operand3_direction
5588: );
5589: end if;
5582: ecx_utils.g_stage_data(i).operand1_constant,
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5586: ecx_utils.g_stage_data(i).operand3_pos,
5587: ecx_utils.g_stage_data(i).operand3_direction
5588: );
5589: end if;
5590:
5583: ecx_utils.g_stage_data(i).operand2_constant,
5584: ecx_utils.g_stage_data(i).operand3_level,
5585: ecx_utils.g_stage_data(i).operand3_name,
5586: ecx_utils.g_stage_data(i).operand3_pos,
5587: ecx_utils.g_stage_data(i).operand3_direction
5588: );
5589: end if;
5590:
5591: end if; --- Condition Flag
5601: ecx_debug.pop(i_method_name);
5602: end if;
5603:
5604: EXCEPTION
5605: WHEN ecx_utils.PROGRAM_EXIT then
5606: if (l_procedureEnabled) then
5607: ecx_debug.pop(i_method_name);
5608: end if;
5609: raise;
5617: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.EXECUTE_STAGE_DATA');
5618: if (l_procedureEnabled) then
5619: ecx_debug.pop(i_method_name);
5620: end if;
5621: raise ecx_utils.PROGRAM_EXIT;
5622:
5623:
5624: end execute_stage_data;
5625:
5653: if (l_procedureEnabled) then
5654: ecx_debug.pop(i_method_name);
5655: end if;
5656: EXCEPTION
5657: WHEN ecx_utils.PROGRAM_EXIT then
5658: if (l_procedureEnabled) then
5659: ecx_debug.pop(i_method_name);
5660: end if;
5661: raise;
5669: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_CLOB');
5670: if (l_procedureEnabled) then
5671: ecx_debug.pop(i_method_name);
5672: end if;
5673: raise ecx_utils.PROGRAM_EXIT;
5674: end;
5675:
5676: procedure get_varchar(clobValue in clob , value in Varchar2 , valueOut out nocopy varchar2) as
5677: i_method_name varchar2(2000) := 'ecx_actions.get_varchar';
5679: if (l_procedureEnabled) then
5680: ecx_debug.push(i_method_name);
5681: end if;
5682: if (value is not null) then
5683: valueOut := substr(value , 1, ecx_utils.G_VARCHAR_LEN);
5684: elsif (clobValue is not null) then
5685: valueOut := dbms_lob.substr(clobValue,ecx_utils.G_VARCHAR_LEN,1);
5686: end if;
5687: if (l_procedureEnabled) then
5681: end if;
5682: if (value is not null) then
5683: valueOut := substr(value , 1, ecx_utils.G_VARCHAR_LEN);
5684: elsif (clobValue is not null) then
5685: valueOut := dbms_lob.substr(clobValue,ecx_utils.G_VARCHAR_LEN,1);
5686: end if;
5687: if (l_procedureEnabled) then
5688: ecx_debug.pop(i_method_name);
5689: end if;
5687: if (l_procedureEnabled) then
5688: ecx_debug.pop(i_method_name);
5689: end if;
5690: EXCEPTION
5691: WHEN ecx_utils.PROGRAM_EXIT then
5692: if (l_procedureEnabled) then
5693: ecx_debug.pop(i_method_name);
5694: end if;
5695: raise;
5701: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_VARCHAR');
5702: if (l_procedureEnabled) then
5703: ecx_debug.pop(i_method_name);
5704: end if;
5705: raise ecx_utils.PROGRAM_EXIT;
5706:
5707: end;
5708:
5709: procedure delete_doctype as
5727: end if;
5728:
5729:
5730: -- Initialize the event if it is not already initialized.
5731: if (ecx_utils.g_event is null) then
5732: wf_event_t.initialize(ecx_utils.g_event);
5733: end if;
5734:
5735: -- Add all global variables as parameters to the event.
5728:
5729:
5730: -- Initialize the event if it is not already initialized.
5731: if (ecx_utils.g_event is null) then
5732: wf_event_t.initialize(ecx_utils.g_event);
5733: end if;
5734:
5735: -- Add all global variables as parameters to the event.
5736: for k in 1..ecx_utils.g_stack.count
5732: wf_event_t.initialize(ecx_utils.g_event);
5733: end if;
5734:
5735: -- Add all global variables as parameters to the event.
5736: for k in 1..ecx_utils.g_stack.count
5737: loop
5738: v_name := ecx_utils.g_stack(k).variable_name;
5739: v_value := ecx_utils.g_stack(k).variable_value;
5740: ecx_utils.g_event.addparametertolist
5734:
5735: -- Add all global variables as parameters to the event.
5736: for k in 1..ecx_utils.g_stack.count
5737: loop
5738: v_name := ecx_utils.g_stack(k).variable_name;
5739: v_value := ecx_utils.g_stack(k).variable_value;
5740: ecx_utils.g_event.addparametertolist
5741: ( v_name,
5742: v_value);
5735: -- Add all global variables as parameters to the event.
5736: for k in 1..ecx_utils.g_stack.count
5737: loop
5738: v_name := ecx_utils.g_stack(k).variable_name;
5739: v_value := ecx_utils.g_stack(k).variable_value;
5740: ecx_utils.g_event.addparametertolist
5741: ( v_name,
5742: v_value);
5743:
5736: for k in 1..ecx_utils.g_stack.count
5737: loop
5738: v_name := ecx_utils.g_stack(k).variable_name;
5739: v_value := ecx_utils.g_stack(k).variable_value;
5740: ecx_utils.g_event.addparametertolist
5741: ( v_name,
5742: v_value);
5743:
5744: if(l_statementEnabled) then
5742: v_value);
5743:
5744: if(l_statementEnabled) then
5745: ecx_debug.log(l_statement,'global variable name',
5746: ecx_utils.g_stack(k).variable_name,i_method_name);
5747: ecx_debug.log(l_statement,'global variable value',
5748: ecx_utils.g_stack(k).variable_value,i_method_name);
5749: end if;
5750: end loop;
5744: if(l_statementEnabled) then
5745: ecx_debug.log(l_statement,'global variable name',
5746: ecx_utils.g_stack(k).variable_name,i_method_name);
5747: ecx_debug.log(l_statement,'global variable value',
5748: ecx_utils.g_stack(k).variable_value,i_method_name);
5749: end if;
5750: end loop;
5751: -- Call the procedure. The procedure takes wf_event_t as
5752: -- input and gives out xml_fragment as output.
5753:
5754: proc_call := 'BEGIN ' || proc_name || ' (:EVENT,:XML_FRAGMENT);
5755: END;' ;
5756:
5757: execute immediate proc_call using in ecx_utils.g_event, out xml_fragment;
5758:
5759: if(l_statementEnabled) then
5760: ecx_debug.log(l_statement,'xml fragment',
5761: xml_fragment,i_method_name);
5784: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_XML_FRAGMENT');
5785: if (l_procedureEnabled) then
5786: ecx_debug.pop(i_method_name);
5787: end if;
5788: raise ecx_utils.PROGRAM_EXIT;
5789: end;
5790:
5791: end ecx_actions;