[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
4500: return;
4501: end if;
4502:
4503: /*start bug 10254870*/
4504: dbms_lob.trim(ecx_utils.g_out_transformed, 0);
4505: transform_xml_with_xslt (i_filename => l_filename,
4506: i_out_transformed => ecx_utils.g_out_transformed);
4507:
4508: exception
4502:
4503: /*start bug 10254870*/
4504: dbms_lob.trim(ecx_utils.g_out_transformed, 0);
4505: transform_xml_with_xslt (i_filename => l_filename,
4506: i_out_transformed => ecx_utils.g_out_transformed);
4507:
4508: exception
4509: when others then
4510: raise ecx_utils.program_exit;
4506: i_out_transformed => ecx_utils.g_out_transformed);
4507:
4508: exception
4509: when others then
4510: raise ecx_utils.program_exit;
4511: end transform_xml_with_xslt;
4512:
4513:
4514: procedure transform_xml_with_xslt
4539: if (l_procedureEnabled) then
4540: ecx_debug.push(i_method_name);
4541: end if;
4542:
4543: if (xmlDOM.isNull(ecx_utils.g_xmldoc)) then
4544: return;
4545: end if;
4546:
4547: if(l_statementEnabled) then
4575: end if;
4576: l_xslt_payload := null;
4577: when others then
4578: ecx_debug.setErrorInfo(2,30,SQLERRM);
4579: raise ecx_utils.program_exit;
4580: end;
4581:
4582: if (l_xslt_payload is null)
4583: then
4589: end if;
4590:
4591: if (ecx_actions.g_xslt_dir is null) then
4592: --- Check for the Installation Type ( Standalone or Embedded );
4593: if (ecx_utils.g_install_mode is null) then
4594: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
4595: end if;
4596:
4597: if ecx_utils.g_install_mode = 'EMBEDDED'
4590:
4591: if (ecx_actions.g_xslt_dir is null) then
4592: --- Check for the Installation Type ( Standalone or Embedded );
4593: if (ecx_utils.g_install_mode is null) then
4594: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
4595: end if;
4596:
4597: if ecx_utils.g_install_mode = 'EMBEDDED'
4598: then
4593: if (ecx_utils.g_install_mode is null) then
4594: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
4595: end if;
4596:
4597: if ecx_utils.g_install_mode = 'EMBEDDED'
4598: then
4599: i_string := 'begin
4600: fnd_profile.get('||'''ECX_UTL_XSLT_DIR'''||',ecx_actions.g_xslt_dir);
4601: end;';
4604: ecx_actions.g_xslt_dir:= wf_core.translate('ECX_UTL_XSLT_DIR');
4605: end if;
4606: end if;
4607:
4608: i_fullpath := ecx_actions.g_xslt_dir||ecx_utils.getFileSeparator()||i_filename;
4609: if(l_statementEnabled) then
4610: ecx_debug.log(l_statement, 'XSLT Fullpath', i_fullpath,i_method_name);
4611: end if;
4612: l_parser := xmlparser.newParser;
4631:
4632: i_processor := xslprocessor.newProcessor;
4633:
4634: -- get the type of the DOMNode
4635: i_node_type := xmlDOM.getNodeType(ecx_utils.g_xmldoc);
4636: if(l_statementEnabled) then
4637: ecx_debug.log(l_statement, 'i_node_type', i_node_type,i_method_name);
4638: end if;
4639:
4641: then
4642: if(l_statementEnabled) then
4643: ecx_debug.log(l_statement, 'Creating Document Object from DOM Node...',i_method_name);
4644: end if;
4645: i_doc := xmlDOM.makeDocument(ecx_utils.g_xmldoc);
4646: if(l_statementEnabled) then
4647: ecx_debug.log(l_statement, 'Before processing XSL',i_method_name);
4648: end if;
4649: i_xmlDocFrag := xslprocessor.processXSL(i_processor, i_stylesheet, i_doc);
4652: then
4653: if(l_statementEnabled) then
4654: ecx_debug.log(l_statement,'Creating Document fragment from DOM Node...',i_method_name);
4655: end if;
4656: i_doc_frag := xmlDOM.makeDocumentFragment(ecx_utils.g_xmldoc);
4657: if(l_statementEnabled) then
4658: ecx_debug.log(l_statement, 'Before processing XSL',i_method_name);
4659: end if;
4660: i_xmlDocFrag := xslprocessor.processXSL(i_processor, i_stylesheet, i_doc_frag);
4666: i_domNode := xmlDOM.makeNode(i_xmlDocFrag);
4667: if(l_statementEnabled) then
4668: ecx_debug.log(l_statement, 'Node created.',i_method_name);
4669: end if;
4670: ecx_utils.g_xmldoc := i_domNode;
4671:
4672: -- free all the used variables
4673:
4674: xslprocessor.freeStylesheet(i_stylesheet);
4699: -- Put All DOM Parser Exceptions Here.
4700: when xmlDOM.INDEX_SIZE_ERR then
4701: ecx_debug.setErrorInfo(1,20,SQLERRM);
4702: if(l_unexpectedEnabled) then
4703: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4704: end if;
4705: -- free all the used variables
4706: if (l_parser.id <> -1)
4707: then
4713: end if;
4714: if (l_procedureEnabled) then
4715: ecx_debug.pop(i_method_name);
4716: end if;
4717: raise ecx_utils.program_exit;
4718: when xmlDOM.DOMSTRING_SIZE_ERR then
4719: ecx_debug.setErrorInfo(1,20,SQLERRM);
4720: if(l_unexpectedEnabled) then
4721: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4717: raise ecx_utils.program_exit;
4718: when xmlDOM.DOMSTRING_SIZE_ERR then
4719: ecx_debug.setErrorInfo(1,20,SQLERRM);
4720: if(l_unexpectedEnabled) then
4721: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4722: end if;
4723: -- free all the used variables
4724: if (l_parser.id <> -1)
4725: then
4731: end if;
4732: if (l_procedureEnabled) then
4733: ecx_debug.pop(i_method_name);
4734: end if;
4735: raise ecx_utils.program_exit;
4736: when xmlDOM.HIERARCHY_REQUEST_ERR then
4737: ecx_debug.setErrorInfo(1,20,SQLERRM);
4738: if(l_unexpectedEnabled) then
4739: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4735: raise ecx_utils.program_exit;
4736: when xmlDOM.HIERARCHY_REQUEST_ERR then
4737: ecx_debug.setErrorInfo(1,20,SQLERRM);
4738: if(l_unexpectedEnabled) then
4739: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4740: end if;
4741: -- free all the used variables
4742: if (l_parser.id <> -1)
4743: then
4749: end if;
4750: if (l_procedureEnabled) then
4751: ecx_debug.pop(i_method_name);
4752: end if;
4753: raise ecx_utils.program_exit;
4754: when xmlDOM.WRONG_DOCUMENT_ERR then
4755: ecx_debug.setErrorInfo(1,20,SQLERRM);
4756: if(l_unexpectedEnabled) then
4757: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4753: raise ecx_utils.program_exit;
4754: when xmlDOM.WRONG_DOCUMENT_ERR then
4755: ecx_debug.setErrorInfo(1,20,SQLERRM);
4756: if(l_unexpectedEnabled) then
4757: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4758: end if;
4759: -- free all the used variables
4760: if (l_parser.id <> -1)
4761: then
4767: end if;
4768: if (l_procedureEnabled) then
4769: ecx_debug.pop(i_method_name);
4770: end if;
4771: raise ecx_utils.program_exit;
4772: when xmlDOM.INVALID_CHARACTER_ERR then
4773: ecx_debug.setErrorInfo(1,20,SQLERRM);
4774: if(l_unexpectedEnabled) then
4775: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4771: raise ecx_utils.program_exit;
4772: when xmlDOM.INVALID_CHARACTER_ERR then
4773: ecx_debug.setErrorInfo(1,20,SQLERRM);
4774: if(l_unexpectedEnabled) then
4775: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4776: end if;
4777: -- free all the used variables
4778: if (l_parser.id <> -1)
4779: then
4785: end if;
4786: if (l_procedureEnabled) then
4787: ecx_debug.pop(i_method_name);
4788: end if;
4789: raise ecx_utils.program_exit;
4790: when xmlDOM.NO_DATA_ALLOWED_ERR then
4791: ecx_debug.setErrorInfo(1,20,SQLERRM);
4792: if(l_unexpectedEnabled) then
4793: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4789: raise ecx_utils.program_exit;
4790: when xmlDOM.NO_DATA_ALLOWED_ERR then
4791: ecx_debug.setErrorInfo(1,20,SQLERRM);
4792: if(l_unexpectedEnabled) then
4793: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4794: end if;
4795: -- free all the used variables
4796: if (l_parser.id <> -1)
4797: then
4803: end if;
4804: if (l_procedureEnabled) then
4805: ecx_debug.pop(i_method_name);
4806: end if;
4807: raise ecx_utils.program_exit;
4808: when xmlDOM.No_MODIFICATION_ALLOWED_ERR then
4809: ecx_debug.setErrorInfo(1,20,SQLERRM);
4810: if(l_unexpectedEnabled) then
4811: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4807: raise ecx_utils.program_exit;
4808: when xmlDOM.No_MODIFICATION_ALLOWED_ERR then
4809: ecx_debug.setErrorInfo(1,20,SQLERRM);
4810: if(l_unexpectedEnabled) then
4811: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4812: end if;
4813: -- free all the used variables
4814: if (l_parser.id <> -1)
4815: then
4821: end if;
4822: if (l_procedureEnabled) then
4823: ecx_debug.pop(i_method_name);
4824: end if;
4825: raise ecx_utils.program_exit;
4826: when xmlDOM.NOT_FOUND_ERR then
4827: ecx_debug.setErrorInfo(1,20,SQLERRM);
4828: if(l_unexpectedEnabled) then
4829: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4825: raise ecx_utils.program_exit;
4826: when xmlDOM.NOT_FOUND_ERR then
4827: ecx_debug.setErrorInfo(1,20,SQLERRM);
4828: if(l_unexpectedEnabled) then
4829: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4830: end if;
4831: -- free all the used variables
4832: if (l_parser.id <> -1)
4833: then
4839: end if;
4840: if (l_procedureEnabled) then
4841: ecx_debug.pop(i_method_name);
4842: end if;
4843: raise ecx_utils.program_exit;
4844: when xmlDOM.NOT_SUPPORTED_ERR then
4845: ecx_debug.setErrorInfo(1,20,SQLERRM);
4846: if(l_unexpectedEnabled) then
4847: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4843: raise ecx_utils.program_exit;
4844: when xmlDOM.NOT_SUPPORTED_ERR then
4845: ecx_debug.setErrorInfo(1,20,SQLERRM);
4846: if(l_unexpectedEnabled) then
4847: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4848: end if;
4849: -- free all the used variables
4850: if (l_parser.id <> -1)
4851: then
4857: end if;
4858: if (l_procedureEnabled) then
4859: ecx_debug.pop(i_method_name);
4860: end if;
4861: raise ecx_utils.program_exit;
4862: when xmlDOM.INUSE_ATTRIBUTE_ERR then
4863: ecx_debug.setErrorInfo(1,20,SQLERRM);
4864: -- free all the used variables
4865: if (l_parser.id <> -1)
4870: then
4871: xmldom.freeDocument(l_xsl_doc);
4872: end if;
4873: if(l_unexpectedEnabled) then
4874: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
4875: end if;
4876: if (l_procedureEnabled) then
4877: ecx_debug.pop(i_method_name);
4878: end if;
4875: end if;
4876: if (l_procedureEnabled) then
4877: ecx_debug.pop(i_method_name);
4878: end if;
4879: raise ecx_utils.program_exit;
4880:
4881: WHEN OTHERS THEN
4882: if(l_unexpectedEnabled) then
4883: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,'PROGRESS_LEVEL','ECX_ACTIONS.TRANSFORM_XML_WITH_XSLT');
4895: end if;
4896: if (l_procedureEnabled) then
4897: ecx_debug.pop(i_method_name);
4898: end if;
4899: raise ecx_utils.PROGRAM_EXIT;
4900: end transform_xml_with_xslt;
4901:
4902: /**
4903: Executes the Data from the ECX_TRAN_STAGE_DATA for a given Stage and Level.
4915: variable_value,
4916: variable_direction,
4917: data_type datatype
4918: from ecx_tran_stage_data ets
4919: where ets.map_id = ecx_utils.g_map_id
4920: and variable_level = 0
4921: and action_type = 10;
4922:
4923: i_counter pls_integer:= 0;
4956:
4957: ecx_actions.g_server_timezone := null;
4958: ecx_actions.g_xslt_dir := null;
4959:
4960: ecx_utils.g_stack.DELETE;
4961:
4962: for get_stack_data in stack_data loop
4963: i_counter := i_counter + 1;
4964: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4960: ecx_utils.g_stack.DELETE;
4961:
4962: for get_stack_data in stack_data loop
4963: i_counter := i_counter + 1;
4964: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4965: ecx_utils.g_stack(i_counter).variable_value := get_stack_data.variable_value;
4966: ecx_utils.g_stack(i_counter).data_type := get_stack_data.datatype;
4967: end loop;
4968:
4961:
4962: for get_stack_data in stack_data loop
4963: i_counter := i_counter + 1;
4964: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4965: ecx_utils.g_stack(i_counter).variable_value := get_stack_data.variable_value;
4966: ecx_utils.g_stack(i_counter).data_type := get_stack_data.datatype;
4967: end loop;
4968:
4969: if(l_statementEnabled) then
4962: for get_stack_data in stack_data loop
4963: i_counter := i_counter + 1;
4964: ecx_utils.g_stack(i_counter).variable_name := get_stack_data.variable_name;
4965: ecx_utils.g_stack(i_counter).variable_value := get_stack_data.variable_value;
4966: ecx_utils.g_stack(i_counter).data_type := get_stack_data.datatype;
4967: end loop;
4968:
4969: if(l_statementEnabled) then
4970: dump_stack;
4972:
4973: end if;
4974: end if;
4975:
4976: if(ecx_utils.g_stage_data.count <> 0)
4977: then
4978: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4979: loop
4980: exit when i = ecx_utils.g_stage_data.count;
4974: end if;
4975:
4976: if(ecx_utils.g_stage_data.count <> 0)
4977: then
4978: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4979: loop
4980: exit when i = ecx_utils.g_stage_data.count;
4981: if (ecx_utils.g_stage_data(i).stage = i_stage
4982: and ecx_utils.g_stage_data(i).level = i_level and
4976: if(ecx_utils.g_stage_data.count <> 0)
4977: then
4978: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4979: loop
4980: exit when i = ecx_utils.g_stage_data.count;
4981: if (ecx_utils.g_stage_data(i).stage = i_stage
4982: and ecx_utils.g_stage_data(i).level = i_level and
4983: ecx_utils.g_stage_data(i).object_direction = i_direction)
4984: then
4977: then
4978: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4979: loop
4980: exit when i = ecx_utils.g_stage_data.count;
4981: if (ecx_utils.g_stage_data(i).stage = i_stage
4982: and ecx_utils.g_stage_data(i).level = i_level and
4983: ecx_utils.g_stage_data(i).object_direction = i_direction)
4984: then
4985:
4978: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
4979: loop
4980: exit when i = ecx_utils.g_stage_data.count;
4981: if (ecx_utils.g_stage_data(i).stage = i_stage
4982: and ecx_utils.g_stage_data(i).level = i_level and
4983: ecx_utils.g_stage_data(i).object_direction = i_direction)
4984: then
4985:
4986: /**
4979: loop
4980: exit when i = ecx_utils.g_stage_data.count;
4981: if (ecx_utils.g_stage_data(i).stage = i_stage
4982: and ecx_utils.g_stage_data(i).level = i_level and
4983: ecx_utils.g_stage_data(i).object_direction = i_direction)
4984: then
4985:
4986: /**
4987: Check for Condition First. If Defined , evaluate it first and then execute an action.
5000: i_vartype2 :=1;
5001: i_valtype2 :=1;
5002: condition_flag :=true;
5003:
5004: if ecx_utils.g_stage_data(i).cond_operator1 is not null
5005: then
5006: /** Condition based on one variable **/
5007: -- Find variable Values
5008: -- Look for Default first. If null , get it from the variable
5006: /** Condition based on one variable **/
5007: -- Find variable Values
5008: -- Look for Default first. If null , get it from the variable
5009:
5010: i_var1 := ecx_utils.g_stage_data(i).cond_var1_constant;
5011: if i_var1 is null
5012: then
5013: get_var_attr (
5014: ecx_utils.g_stage_data(i).cond_var1_level,
5010: i_var1 := ecx_utils.g_stage_data(i).cond_var1_constant;
5011: if i_var1 is null
5012: then
5013: get_var_attr (
5014: ecx_utils.g_stage_data(i).cond_var1_level,
5015: ecx_utils.g_stage_data(i).cond_var1_name,
5016: ecx_utils.g_stage_data(i).cond_var1_direction,
5017: ecx_utils.g_stage_data(i).cond_var1_pos,
5018: i_var1,
5011: if i_var1 is null
5012: then
5013: get_var_attr (
5014: ecx_utils.g_stage_data(i).cond_var1_level,
5015: ecx_utils.g_stage_data(i).cond_var1_name,
5016: ecx_utils.g_stage_data(i).cond_var1_direction,
5017: ecx_utils.g_stage_data(i).cond_var1_pos,
5018: i_var1,
5019: stack_var,
5012: then
5013: get_var_attr (
5014: ecx_utils.g_stage_data(i).cond_var1_level,
5015: ecx_utils.g_stage_data(i).cond_var1_name,
5016: ecx_utils.g_stage_data(i).cond_var1_direction,
5017: ecx_utils.g_stage_data(i).cond_var1_pos,
5018: i_var1,
5019: stack_var,
5020: stack_pos);
5013: get_var_attr (
5014: ecx_utils.g_stage_data(i).cond_var1_level,
5015: ecx_utils.g_stage_data(i).cond_var1_name,
5016: ecx_utils.g_stage_data(i).cond_var1_direction,
5017: ecx_utils.g_stage_data(i).cond_var1_pos,
5018: i_var1,
5019: stack_var,
5020: stack_pos);
5021:
5019: stack_var,
5020: stack_pos);
5021:
5022: /** Get the Data Type for the Left hand side variables **/
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'G'
5024: then
5025: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5026: else
5027: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5021:
5022: /** Get the Data Type for the Left hand side variables **/
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'G'
5024: then
5025: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5026: else
5027: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5028: then
5029: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5023: if ecx_utils.g_stage_data(i).cond_var1_direction = 'G'
5024: then
5025: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5026: else
5027: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5028: then
5029: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5030: else
5031: i_vartype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5025: i_vartype1 := ecx_utils.g_stack(stack_pos).data_type;
5026: else
5027: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5028: then
5029: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5030: else
5031: i_vartype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5032: end if;
5033: end if;
5027: if ecx_utils.g_stage_data(i).cond_var1_direction = 'S'
5028: then
5029: i_vartype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5030: else
5031: i_vartype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var1_pos).data_type;
5032: end if;
5033: end if;
5034: if(l_statementEnabled) then
5035: ecx_debug.log(l_statement,'i_vartype1',i_vartype1,i_method_name);
5072:
5073:
5074:
5075:
5076: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5077: then
5078: i_val1 := ecx_utils.g_stage_data(i).cond_val1_constant;
5079: if i_val1 is null
5080: then
5074:
5075:
5076: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5077: then
5078: i_val1 := ecx_utils.g_stage_data(i).cond_val1_constant;
5079: if i_val1 is null
5080: then
5081: get_var_attr (
5082: ecx_utils.g_stage_data(i).cond_val1_level,
5078: i_val1 := ecx_utils.g_stage_data(i).cond_val1_constant;
5079: if i_val1 is null
5080: then
5081: get_var_attr (
5082: ecx_utils.g_stage_data(i).cond_val1_level,
5083: ecx_utils.g_stage_data(i).cond_val1_name,
5084: ecx_utils.g_stage_data(i).cond_val1_direction,
5085: ecx_utils.g_stage_data(i).cond_val1_pos,
5086: i_val1,
5079: if i_val1 is null
5080: then
5081: get_var_attr (
5082: ecx_utils.g_stage_data(i).cond_val1_level,
5083: ecx_utils.g_stage_data(i).cond_val1_name,
5084: ecx_utils.g_stage_data(i).cond_val1_direction,
5085: ecx_utils.g_stage_data(i).cond_val1_pos,
5086: i_val1,
5087: stack_var,
5080: then
5081: get_var_attr (
5082: ecx_utils.g_stage_data(i).cond_val1_level,
5083: ecx_utils.g_stage_data(i).cond_val1_name,
5084: ecx_utils.g_stage_data(i).cond_val1_direction,
5085: ecx_utils.g_stage_data(i).cond_val1_pos,
5086: i_val1,
5087: stack_var,
5088: stack_pos);
5081: get_var_attr (
5082: ecx_utils.g_stage_data(i).cond_val1_level,
5083: ecx_utils.g_stage_data(i).cond_val1_name,
5084: ecx_utils.g_stage_data(i).cond_val1_direction,
5085: ecx_utils.g_stage_data(i).cond_val1_pos,
5086: i_val1,
5087: stack_var,
5088: stack_pos);
5089: /** Get the Data Type for the right hand side variables **/
5086: i_val1,
5087: stack_var,
5088: stack_pos);
5089: /** Get the Data Type for the right hand side variables **/
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'G'
5091: then
5092: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5093: else
5094: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5088: stack_pos);
5089: /** Get the Data Type for the right hand side variables **/
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'G'
5091: then
5092: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5093: else
5094: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5095: then
5096: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5090: if ecx_utils.g_stage_data(i).cond_val1_direction = 'G'
5091: then
5092: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5093: else
5094: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5095: then
5096: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5097: else
5098: i_valtype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5092: i_valtype1 := ecx_utils.g_stack(stack_pos).data_type;
5093: else
5094: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5095: then
5096: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5097: else
5098: i_valtype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5099: end if;
5100: end if;
5094: if ecx_utils.g_stage_data(i).cond_val1_direction = 'S'
5095: then
5096: i_valtype1 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5097: else
5098: i_valtype1 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val1_pos).data_type;
5099: end if;
5100: end if;
5101: if(l_statementEnabled) then
5102: ecx_debug.log(l_statement,'i_valtype1',i_valtype1,i_method_name);
5140:
5141: end if;
5142: end if;
5143:
5144: if ecx_utils.g_stage_data(i).cond_logical_operator is not null
5145: then
5146:
5147: /** Condition based on two variables **/
5148: i_var2 := ecx_utils.g_stage_data(i).cond_var2_constant;
5144: if ecx_utils.g_stage_data(i).cond_logical_operator is not null
5145: then
5146:
5147: /** Condition based on two variables **/
5148: i_var2 := ecx_utils.g_stage_data(i).cond_var2_constant;
5149: if i_var2 is null
5150: then
5151: get_var_attr (
5152: ecx_utils.g_stage_data(i).cond_var2_level,
5148: i_var2 := ecx_utils.g_stage_data(i).cond_var2_constant;
5149: if i_var2 is null
5150: then
5151: get_var_attr (
5152: ecx_utils.g_stage_data(i).cond_var2_level,
5153: ecx_utils.g_stage_data(i).cond_var2_name,
5154: ecx_utils.g_stage_data(i).cond_var2_direction,
5155: ecx_utils.g_stage_data(i).cond_var2_pos,
5156: i_var2,
5149: if i_var2 is null
5150: then
5151: get_var_attr (
5152: ecx_utils.g_stage_data(i).cond_var2_level,
5153: ecx_utils.g_stage_data(i).cond_var2_name,
5154: ecx_utils.g_stage_data(i).cond_var2_direction,
5155: ecx_utils.g_stage_data(i).cond_var2_pos,
5156: i_var2,
5157: stack_var,
5150: then
5151: get_var_attr (
5152: ecx_utils.g_stage_data(i).cond_var2_level,
5153: ecx_utils.g_stage_data(i).cond_var2_name,
5154: ecx_utils.g_stage_data(i).cond_var2_direction,
5155: ecx_utils.g_stage_data(i).cond_var2_pos,
5156: i_var2,
5157: stack_var,
5158: stack_pos);
5151: get_var_attr (
5152: ecx_utils.g_stage_data(i).cond_var2_level,
5153: ecx_utils.g_stage_data(i).cond_var2_name,
5154: ecx_utils.g_stage_data(i).cond_var2_direction,
5155: ecx_utils.g_stage_data(i).cond_var2_pos,
5156: i_var2,
5157: stack_var,
5158: stack_pos);
5159: end if;
5164: i_var2 :=null;
5165: end if;
5166:
5167: /** Get the Data Type for the Left hand side variables **/
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'G'
5169: then
5170: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5171: else
5172: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5166:
5167: /** Get the Data Type for the Left hand side variables **/
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'G'
5169: then
5170: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5171: else
5172: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5173: then
5174: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5168: if ecx_utils.g_stage_data(i).cond_var2_direction = 'G'
5169: then
5170: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5171: else
5172: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5173: then
5174: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5175: else
5176: i_vartype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5170: i_vartype2 := ecx_utils.g_stack(stack_pos).data_type;
5171: else
5172: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5173: then
5174: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5175: else
5176: i_vartype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5177: end if;
5178: end if;
5172: if ecx_utils.g_stage_data(i).cond_var2_direction = 'S'
5173: then
5174: i_vartype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5175: else
5176: i_vartype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_var2_pos).data_type;
5177: end if;
5178: end if;
5179: if(l_statementEnabled) then
5180: ecx_debug.log(l_statement,'i_vartype2',i_vartype2,i_method_name);
5180: ecx_debug.log(l_statement,'i_vartype2',i_vartype2,i_method_name);
5181: end if;
5182:
5183:
5184: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5185: then
5186: i_val2 := ecx_utils.g_stage_data(i).cond_val2_constant;
5187: if i_val2 is null
5188: then
5182:
5183:
5184: if ecx_utils.g_stage_data(i).cond_operator1 not in ('6','7')
5185: then
5186: i_val2 := ecx_utils.g_stage_data(i).cond_val2_constant;
5187: if i_val2 is null
5188: then
5189: get_var_attr (
5190: ecx_utils.g_stage_data(i).cond_val2_level,
5186: i_val2 := ecx_utils.g_stage_data(i).cond_val2_constant;
5187: if i_val2 is null
5188: then
5189: get_var_attr (
5190: ecx_utils.g_stage_data(i).cond_val2_level,
5191: ecx_utils.g_stage_data(i).cond_val2_name,
5192: ecx_utils.g_stage_data(i).cond_val2_direction,
5193: ecx_utils.g_stage_data(i).cond_val2_pos,
5194: i_val2,
5187: if i_val2 is null
5188: then
5189: get_var_attr (
5190: ecx_utils.g_stage_data(i).cond_val2_level,
5191: ecx_utils.g_stage_data(i).cond_val2_name,
5192: ecx_utils.g_stage_data(i).cond_val2_direction,
5193: ecx_utils.g_stage_data(i).cond_val2_pos,
5194: i_val2,
5195: stack_var,
5188: then
5189: get_var_attr (
5190: ecx_utils.g_stage_data(i).cond_val2_level,
5191: ecx_utils.g_stage_data(i).cond_val2_name,
5192: ecx_utils.g_stage_data(i).cond_val2_direction,
5193: ecx_utils.g_stage_data(i).cond_val2_pos,
5194: i_val2,
5195: stack_var,
5196: stack_pos);
5189: get_var_attr (
5190: ecx_utils.g_stage_data(i).cond_val2_level,
5191: ecx_utils.g_stage_data(i).cond_val2_name,
5192: ecx_utils.g_stage_data(i).cond_val2_direction,
5193: ecx_utils.g_stage_data(i).cond_val2_pos,
5194: i_val2,
5195: stack_var,
5196: stack_pos);
5197: end if;
5201: i_val2 :=null;
5202: end if;
5203:
5204: /** Get the Data Type for the right hand side variables **/
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'G'
5206: then
5207: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5208: else
5209: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5203:
5204: /** Get the Data Type for the right hand side variables **/
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'G'
5206: then
5207: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5208: else
5209: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5210: then
5211: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5205: if ecx_utils.g_stage_data(i).cond_val2_direction = 'G'
5206: then
5207: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5208: else
5209: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5210: then
5211: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5212: else
5213: i_valtype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5207: i_valtype2 := ecx_utils.g_stack(stack_pos).data_type;
5208: else
5209: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5210: then
5211: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5212: else
5213: i_valtype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5214: end if;
5215: end if;
5209: if ecx_utils.g_stage_data(i).cond_val2_direction = 'S'
5210: then
5211: i_valtype2 := ecx_utils.g_source(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5212: else
5213: i_valtype2 := ecx_utils.g_target(ecx_utils.g_stage_data(i).cond_val2_pos).data_type;
5214: end if;
5215: end if;
5216: if(l_statementEnabled) then
5217: ecx_debug.log(l_statement,'i_valtype2',i_valtype2,i_method_name);
5220: end if;
5221: end if;
5222:
5223: /** Now check the condition **/
5224: if (ecx_utils.g_stage_data(i).cond_operator1 is not null
5225: or
5226: ecx_utils.g_stage_data(i).cond_logical_operator is not null
5227: )
5228: then
5222:
5223: /** Now check the condition **/
5224: if (ecx_utils.g_stage_data(i).cond_operator1 is not null
5225: or
5226: ecx_utils.g_stage_data(i).cond_logical_operator is not null
5227: )
5228: then
5229: condition_flag := ecx_conditions.check_condition
5230: (
5227: )
5228: then
5229: condition_flag := ecx_conditions.check_condition
5230: (
5231: ecx_utils.g_stage_data(i).cond_logical_operator,
5232: ecx_utils.g_stage_data(i).cond_operator1,
5233: i_var1,
5234: i_vartype1,
5235: i_val1,
5228: then
5229: condition_flag := ecx_conditions.check_condition
5230: (
5231: ecx_utils.g_stage_data(i).cond_logical_operator,
5232: ecx_utils.g_stage_data(i).cond_operator1,
5233: i_var1,
5234: i_vartype1,
5235: i_val1,
5236: i_valtype1,
5233: i_var1,
5234: i_vartype1,
5235: i_val1,
5236: i_valtype1,
5237: ecx_utils.g_stage_data(i).cond_operator2,
5238: i_var2,
5239: i_vartype2,
5240: i_val2,
5241: i_valtype2
5248: if ( condition_flag )
5249: then
5250:
5251: /** Not required anymore
5252: if ecx_utils.g_stage_data(i).action_type = ASSIGN_DEFAULT then
5253: assign_default_to_variables
5254: (
5255: ecx_utils.g_stage_data(i).variable_level,
5256: ecx_utils.g_stage_data(i).variable_name,
5251: /** Not required anymore
5252: if ecx_utils.g_stage_data(i).action_type = ASSIGN_DEFAULT then
5253: assign_default_to_variables
5254: (
5255: ecx_utils.g_stage_data(i).variable_level,
5256: ecx_utils.g_stage_data(i).variable_name,
5257: ecx_utils.g_stage_data(i).variable_direction,
5258: ecx_utils.g_stage_data(i).variable_pos,
5259: ecx_utils.g_stage_data(i).default_value
5252: if ecx_utils.g_stage_data(i).action_type = ASSIGN_DEFAULT then
5253: assign_default_to_variables
5254: (
5255: ecx_utils.g_stage_data(i).variable_level,
5256: ecx_utils.g_stage_data(i).variable_name,
5257: ecx_utils.g_stage_data(i).variable_direction,
5258: ecx_utils.g_stage_data(i).variable_pos,
5259: ecx_utils.g_stage_data(i).default_value
5260: );
5253: assign_default_to_variables
5254: (
5255: ecx_utils.g_stage_data(i).variable_level,
5256: ecx_utils.g_stage_data(i).variable_name,
5257: ecx_utils.g_stage_data(i).variable_direction,
5258: ecx_utils.g_stage_data(i).variable_pos,
5259: ecx_utils.g_stage_data(i).default_value
5260: );
5261: **/
5254: (
5255: ecx_utils.g_stage_data(i).variable_level,
5256: ecx_utils.g_stage_data(i).variable_name,
5257: ecx_utils.g_stage_data(i).variable_direction,
5258: ecx_utils.g_stage_data(i).variable_pos,
5259: ecx_utils.g_stage_data(i).default_value
5260: );
5261: **/
5262:
5255: ecx_utils.g_stage_data(i).variable_level,
5256: ecx_utils.g_stage_data(i).variable_name,
5257: ecx_utils.g_stage_data(i).variable_direction,
5258: ecx_utils.g_stage_data(i).variable_pos,
5259: ecx_utils.g_stage_data(i).default_value
5260: );
5261: **/
5262:
5263: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5259: ecx_utils.g_stage_data(i).default_value
5260: );
5261: **/
5262:
5263: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5264: assign_pre_defined_variables
5265: (
5266: ecx_utils.g_stage_data(i).variable_level,
5267: ecx_utils.g_stage_data(i).variable_name,
5262:
5263: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5264: assign_pre_defined_variables
5265: (
5266: ecx_utils.g_stage_data(i).variable_level,
5267: ecx_utils.g_stage_data(i).variable_name,
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5263: if ecx_utils.g_stage_data(i).action_type = ASSIGN_PRE_DEFINED then
5264: assign_pre_defined_variables
5265: (
5266: ecx_utils.g_stage_data(i).variable_level,
5267: ecx_utils.g_stage_data(i).variable_name,
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5264: assign_pre_defined_variables
5265: (
5266: ecx_utils.g_stage_data(i).variable_level,
5267: ecx_utils.g_stage_data(i).variable_name,
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5265: (
5266: ecx_utils.g_stage_data(i).variable_level,
5267: ecx_utils.g_stage_data(i).variable_name,
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5273: ecx_utils.g_stage_data(i).operand1_pos,
5266: ecx_utils.g_stage_data(i).variable_level,
5267: ecx_utils.g_stage_data(i).variable_name,
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5273: ecx_utils.g_stage_data(i).operand1_pos,
5274: ecx_utils.g_stage_data(i).operand1_constant
5267: ecx_utils.g_stage_data(i).variable_name,
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5273: ecx_utils.g_stage_data(i).operand1_pos,
5274: ecx_utils.g_stage_data(i).operand1_constant
5275: );
5268: ecx_utils.g_stage_data(i).variable_direction,
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5273: ecx_utils.g_stage_data(i).operand1_pos,
5274: ecx_utils.g_stage_data(i).operand1_constant
5275: );
5276:
5269: ecx_utils.g_stage_data(i).variable_pos,
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5273: ecx_utils.g_stage_data(i).operand1_pos,
5274: ecx_utils.g_stage_data(i).operand1_constant
5275: );
5276:
5277: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5270: ecx_utils.g_stage_data(i).operand1_level,
5271: ecx_utils.g_stage_data(i).operand1_name,
5272: ecx_utils.g_stage_data(i).operand1_direction,
5273: ecx_utils.g_stage_data(i).operand1_pos,
5274: ecx_utils.g_stage_data(i).operand1_constant
5275: );
5276:
5277: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5278: assign_nextval_from_sequence
5273: ecx_utils.g_stage_data(i).operand1_pos,
5274: ecx_utils.g_stage_data(i).operand1_constant
5275: );
5276:
5277: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5278: assign_nextval_from_sequence
5279: (
5280: ecx_utils.g_stage_data(i).variable_level,
5281: ecx_utils.g_stage_data(i).variable_name,
5276:
5277: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5278: assign_nextval_from_sequence
5279: (
5280: ecx_utils.g_stage_data(i).variable_level,
5281: ecx_utils.g_stage_data(i).variable_name,
5282: ecx_utils.g_stage_data(i).variable_direction,
5283: ecx_utils.g_stage_data(i).variable_pos,
5284: ecx_utils.g_stage_data(i).sequence_name
5277: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_NEXTVALUE then
5278: assign_nextval_from_sequence
5279: (
5280: ecx_utils.g_stage_data(i).variable_level,
5281: ecx_utils.g_stage_data(i).variable_name,
5282: ecx_utils.g_stage_data(i).variable_direction,
5283: ecx_utils.g_stage_data(i).variable_pos,
5284: ecx_utils.g_stage_data(i).sequence_name
5285: );
5278: assign_nextval_from_sequence
5279: (
5280: ecx_utils.g_stage_data(i).variable_level,
5281: ecx_utils.g_stage_data(i).variable_name,
5282: ecx_utils.g_stage_data(i).variable_direction,
5283: ecx_utils.g_stage_data(i).variable_pos,
5284: ecx_utils.g_stage_data(i).sequence_name
5285: );
5286:
5279: (
5280: ecx_utils.g_stage_data(i).variable_level,
5281: ecx_utils.g_stage_data(i).variable_name,
5282: ecx_utils.g_stage_data(i).variable_direction,
5283: ecx_utils.g_stage_data(i).variable_pos,
5284: ecx_utils.g_stage_data(i).sequence_name
5285: );
5286:
5287: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5280: ecx_utils.g_stage_data(i).variable_level,
5281: ecx_utils.g_stage_data(i).variable_name,
5282: ecx_utils.g_stage_data(i).variable_direction,
5283: ecx_utils.g_stage_data(i).variable_pos,
5284: ecx_utils.g_stage_data(i).sequence_name
5285: );
5286:
5287: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5288: assign_function_value
5283: ecx_utils.g_stage_data(i).variable_pos,
5284: ecx_utils.g_stage_data(i).sequence_name
5285: );
5286:
5287: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5288: assign_function_value
5289: (
5290: ecx_utils.g_stage_data(i).variable_level,
5291: ecx_utils.g_stage_data(i).variable_name,
5286:
5287: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5288: assign_function_value
5289: (
5290: ecx_utils.g_stage_data(i).variable_level,
5291: ecx_utils.g_stage_data(i).variable_name,
5292: ecx_utils.g_stage_data(i).variable_direction,
5293: ecx_utils.g_stage_data(i).variable_pos,
5294: ecx_utils.g_stage_data(i).function_name
5287: elsif ecx_utils.g_stage_data(i).action_type = ASSIGN_FUNCVAL then
5288: assign_function_value
5289: (
5290: ecx_utils.g_stage_data(i).variable_level,
5291: ecx_utils.g_stage_data(i).variable_name,
5292: ecx_utils.g_stage_data(i).variable_direction,
5293: ecx_utils.g_stage_data(i).variable_pos,
5294: ecx_utils.g_stage_data(i).function_name
5295: );
5288: assign_function_value
5289: (
5290: ecx_utils.g_stage_data(i).variable_level,
5291: ecx_utils.g_stage_data(i).variable_name,
5292: ecx_utils.g_stage_data(i).variable_direction,
5293: ecx_utils.g_stage_data(i).variable_pos,
5294: ecx_utils.g_stage_data(i).function_name
5295: );
5296:
5289: (
5290: ecx_utils.g_stage_data(i).variable_level,
5291: ecx_utils.g_stage_data(i).variable_name,
5292: ecx_utils.g_stage_data(i).variable_direction,
5293: ecx_utils.g_stage_data(i).variable_pos,
5294: ecx_utils.g_stage_data(i).function_name
5295: );
5296:
5297: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5290: ecx_utils.g_stage_data(i).variable_level,
5291: ecx_utils.g_stage_data(i).variable_name,
5292: ecx_utils.g_stage_data(i).variable_direction,
5293: ecx_utils.g_stage_data(i).variable_pos,
5294: ecx_utils.g_stage_data(i).function_name
5295: );
5296:
5297: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5298: convert_to_oag_date
5293: ecx_utils.g_stage_data(i).variable_pos,
5294: ecx_utils.g_stage_data(i).function_name
5295: );
5296:
5297: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5298: convert_to_oag_date
5299: (
5300: ecx_utils.g_stage_data(i).variable_level,
5301: ecx_utils.g_stage_data(i).variable_name,
5296:
5297: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5298: convert_to_oag_date
5299: (
5300: ecx_utils.g_stage_data(i).variable_level,
5301: ecx_utils.g_stage_data(i).variable_name,
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5297: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGDATE then
5298: convert_to_oag_date
5299: (
5300: ecx_utils.g_stage_data(i).variable_level,
5301: ecx_utils.g_stage_data(i).variable_name,
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5298: convert_to_oag_date
5299: (
5300: ecx_utils.g_stage_data(i).variable_level,
5301: ecx_utils.g_stage_data(i).variable_name,
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5299: (
5300: ecx_utils.g_stage_data(i).variable_level,
5301: ecx_utils.g_stage_data(i).variable_name,
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5307: ecx_utils.g_stage_data(i).operand1_direction,
5300: ecx_utils.g_stage_data(i).variable_level,
5301: ecx_utils.g_stage_data(i).variable_name,
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5307: ecx_utils.g_stage_data(i).operand1_direction,
5308: ecx_utils.g_stage_data(i).operand1_constant
5301: ecx_utils.g_stage_data(i).variable_name,
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5307: ecx_utils.g_stage_data(i).operand1_direction,
5308: ecx_utils.g_stage_data(i).operand1_constant
5309: );
5302: ecx_utils.g_stage_data(i).variable_pos,
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5307: ecx_utils.g_stage_data(i).operand1_direction,
5308: ecx_utils.g_stage_data(i).operand1_constant
5309: );
5310:
5303: ecx_utils.g_stage_data(i).variable_direction,
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5307: ecx_utils.g_stage_data(i).operand1_direction,
5308: ecx_utils.g_stage_data(i).operand1_constant
5309: );
5310:
5311: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5304: ecx_utils.g_stage_data(i).operand1_level,
5305: ecx_utils.g_stage_data(i).operand1_name,
5306: ecx_utils.g_stage_data(i).operand1_pos,
5307: ecx_utils.g_stage_data(i).operand1_direction,
5308: ecx_utils.g_stage_data(i).operand1_constant
5309: );
5310:
5311: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5312: convert_to_oag_operamt(
5307: ecx_utils.g_stage_data(i).operand1_direction,
5308: ecx_utils.g_stage_data(i).operand1_constant
5309: );
5310:
5311: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5312: convert_to_oag_operamt(
5313: ecx_utils.g_stage_data(i).variable_level,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5309: );
5310:
5311: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5312: convert_to_oag_operamt(
5313: ecx_utils.g_stage_data(i).variable_level,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5310:
5311: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5312: convert_to_oag_operamt(
5313: ecx_utils.g_stage_data(i).variable_level,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5311: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGOPERAMT then
5312: convert_to_oag_operamt(
5313: ecx_utils.g_stage_data(i).variable_level,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5312: convert_to_oag_operamt(
5313: ecx_utils.g_stage_data(i).variable_level,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5313: ecx_utils.g_stage_data(i).variable_level,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5314: ecx_utils.g_stage_data(i).variable_name,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5315: ecx_utils.g_stage_data(i).variable_pos,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5316: ecx_utils.g_stage_data(i).variable_direction,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5317: ecx_utils.g_stage_data(i).operand1_level,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5318: ecx_utils.g_stage_data(i).operand1_name,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5319: ecx_utils.g_stage_data(i).operand1_pos,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5320: ecx_utils.g_stage_data(i).operand1_direction,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5321: ecx_utils.g_stage_data(i).operand1_constant,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5322: ecx_utils.g_stage_data(i).operand2_level,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5323: ecx_utils.g_stage_data(i).operand2_name,
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5331: ecx_utils.g_stage_data(i).operand3_constant
5324: ecx_utils.g_stage_data(i).operand2_pos,
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5331: ecx_utils.g_stage_data(i).operand3_constant
5332: );
5325: ecx_utils.g_stage_data(i).operand2_direction,
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5331: ecx_utils.g_stage_data(i).operand3_constant
5332: );
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5326: ecx_utils.g_stage_data(i).operand2_constant,
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5331: ecx_utils.g_stage_data(i).operand3_constant
5332: );
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5334: convert_to_oag_amt(
5327: ecx_utils.g_stage_data(i).operand3_level,
5328: ecx_utils.g_stage_data(i).operand3_name,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5331: ecx_utils.g_stage_data(i).operand3_constant
5332: );
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5334: convert_to_oag_amt(
5335: ecx_utils.g_stage_data(i).variable_level,
5329: ecx_utils.g_stage_data(i).operand3_pos,
5330: ecx_utils.g_stage_data(i).operand3_direction,
5331: ecx_utils.g_stage_data(i).operand3_constant
5332: );
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5334: convert_to_oag_amt(
5335: ecx_utils.g_stage_data(i).variable_level,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5331: ecx_utils.g_stage_data(i).operand3_constant
5332: );
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5334: convert_to_oag_amt(
5335: ecx_utils.g_stage_data(i).variable_level,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5332: );
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5334: convert_to_oag_amt(
5335: ecx_utils.g_stage_data(i).variable_level,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5333: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGAMT then
5334: convert_to_oag_amt(
5335: ecx_utils.g_stage_data(i).variable_level,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5334: convert_to_oag_amt(
5335: ecx_utils.g_stage_data(i).variable_level,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5335: ecx_utils.g_stage_data(i).variable_level,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5336: ecx_utils.g_stage_data(i).variable_name,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5337: ecx_utils.g_stage_data(i).variable_pos,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5338: ecx_utils.g_stage_data(i).variable_direction,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5339: ecx_utils.g_stage_data(i).operand1_level,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5340: ecx_utils.g_stage_data(i).operand1_name,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5341: ecx_utils.g_stage_data(i).operand1_pos,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5342: ecx_utils.g_stage_data(i).operand1_direction,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5343: ecx_utils.g_stage_data(i).operand1_constant,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5344: ecx_utils.g_stage_data(i).operand2_level,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5352: ecx_utils.g_stage_data(i).operand3_direction,
5345: ecx_utils.g_stage_data(i).operand2_name,
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5352: ecx_utils.g_stage_data(i).operand3_direction,
5353: ecx_utils.g_stage_data(i).operand3_constant
5346: ecx_utils.g_stage_data(i).operand2_pos,
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5352: ecx_utils.g_stage_data(i).operand3_direction,
5353: ecx_utils.g_stage_data(i).operand3_constant
5354: );
5347: ecx_utils.g_stage_data(i).operand2_direction,
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5352: ecx_utils.g_stage_data(i).operand3_direction,
5353: ecx_utils.g_stage_data(i).operand3_constant
5354: );
5355:
5348: ecx_utils.g_stage_data(i).operand2_constant,
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5352: ecx_utils.g_stage_data(i).operand3_direction,
5353: ecx_utils.g_stage_data(i).operand3_constant
5354: );
5355:
5356: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5349: ecx_utils.g_stage_data(i).operand3_level,
5350: ecx_utils.g_stage_data(i).operand3_name,
5351: ecx_utils.g_stage_data(i).operand3_pos,
5352: ecx_utils.g_stage_data(i).operand3_direction,
5353: ecx_utils.g_stage_data(i).operand3_constant
5354: );
5355:
5356: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5357: convert_to_oag_quantity(
5352: ecx_utils.g_stage_data(i).operand3_direction,
5353: ecx_utils.g_stage_data(i).operand3_constant
5354: );
5355:
5356: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5357: convert_to_oag_quantity(
5358: ecx_utils.g_stage_data(i).variable_level,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5354: );
5355:
5356: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5357: convert_to_oag_quantity(
5358: ecx_utils.g_stage_data(i).variable_level,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5355:
5356: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5357: convert_to_oag_quantity(
5358: ecx_utils.g_stage_data(i).variable_level,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5356: elsif ecx_utils.g_stage_data(i).action_type = CONV_TO_OAGQUANT then
5357: convert_to_oag_quantity(
5358: ecx_utils.g_stage_data(i).variable_level,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5357: convert_to_oag_quantity(
5358: ecx_utils.g_stage_data(i).variable_level,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5358: ecx_utils.g_stage_data(i).variable_level,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5359: ecx_utils.g_stage_data(i).variable_name,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5360: ecx_utils.g_stage_data(i).variable_pos,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5361: ecx_utils.g_stage_data(i).variable_direction,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5362: ecx_utils.g_stage_data(i).operand1_level,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5370: ecx_utils.g_stage_data(i).operand2_direction,
5363: ecx_utils.g_stage_data(i).operand1_name,
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5370: ecx_utils.g_stage_data(i).operand2_direction,
5371: ecx_utils.g_stage_data(i).operand2_constant
5364: ecx_utils.g_stage_data(i).operand1_pos,
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5370: ecx_utils.g_stage_data(i).operand2_direction,
5371: ecx_utils.g_stage_data(i).operand2_constant
5372: );
5365: ecx_utils.g_stage_data(i).operand1_direction,
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5370: ecx_utils.g_stage_data(i).operand2_direction,
5371: ecx_utils.g_stage_data(i).operand2_constant
5372: );
5373:
5366: ecx_utils.g_stage_data(i).operand1_constant,
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5370: ecx_utils.g_stage_data(i).operand2_direction,
5371: ecx_utils.g_stage_data(i).operand2_constant
5372: );
5373:
5374: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5367: ecx_utils.g_stage_data(i).operand2_level,
5368: ecx_utils.g_stage_data(i).operand2_name,
5369: ecx_utils.g_stage_data(i).operand2_pos,
5370: ecx_utils.g_stage_data(i).operand2_direction,
5371: ecx_utils.g_stage_data(i).operand2_constant
5372: );
5373:
5374: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5375: convert_from_oag_date
5370: ecx_utils.g_stage_data(i).operand2_direction,
5371: ecx_utils.g_stage_data(i).operand2_constant
5372: );
5373:
5374: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5375: convert_from_oag_date
5376: (
5377: ecx_utils.g_stage_data(i).variable_level,
5378: ecx_utils.g_stage_data(i).variable_name,
5373:
5374: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5375: convert_from_oag_date
5376: (
5377: ecx_utils.g_stage_data(i).variable_level,
5378: ecx_utils.g_stage_data(i).variable_name,
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5374: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGDATE then
5375: convert_from_oag_date
5376: (
5377: ecx_utils.g_stage_data(i).variable_level,
5378: ecx_utils.g_stage_data(i).variable_name,
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5375: convert_from_oag_date
5376: (
5377: ecx_utils.g_stage_data(i).variable_level,
5378: ecx_utils.g_stage_data(i).variable_name,
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5376: (
5377: ecx_utils.g_stage_data(i).variable_level,
5378: ecx_utils.g_stage_data(i).variable_name,
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5384: ecx_utils.g_stage_data(i).operand1_direction,
5377: ecx_utils.g_stage_data(i).variable_level,
5378: ecx_utils.g_stage_data(i).variable_name,
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5384: ecx_utils.g_stage_data(i).operand1_direction,
5385: ecx_utils.g_stage_data(i).operand1_constant
5378: ecx_utils.g_stage_data(i).variable_name,
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5384: ecx_utils.g_stage_data(i).operand1_direction,
5385: ecx_utils.g_stage_data(i).operand1_constant
5386: );
5379: ecx_utils.g_stage_data(i).variable_pos,
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5384: ecx_utils.g_stage_data(i).operand1_direction,
5385: ecx_utils.g_stage_data(i).operand1_constant
5386: );
5387:
5380: ecx_utils.g_stage_data(i).variable_direction,
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5384: ecx_utils.g_stage_data(i).operand1_direction,
5385: ecx_utils.g_stage_data(i).operand1_constant
5386: );
5387:
5388: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5381: ecx_utils.g_stage_data(i).operand1_level,
5382: ecx_utils.g_stage_data(i).operand1_name,
5383: ecx_utils.g_stage_data(i).operand1_pos,
5384: ecx_utils.g_stage_data(i).operand1_direction,
5385: ecx_utils.g_stage_data(i).operand1_constant
5386: );
5387:
5388: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5389: convert_from_oag_operamt(
5384: ecx_utils.g_stage_data(i).operand1_direction,
5385: ecx_utils.g_stage_data(i).operand1_constant
5386: );
5387:
5388: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5389: convert_from_oag_operamt(
5390: ecx_utils.g_stage_data(i).variable_level,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5386: );
5387:
5388: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5389: convert_from_oag_operamt(
5390: ecx_utils.g_stage_data(i).variable_level,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5387:
5388: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5389: convert_from_oag_operamt(
5390: ecx_utils.g_stage_data(i).variable_level,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5388: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGOPERAMT then
5389: convert_from_oag_operamt(
5390: ecx_utils.g_stage_data(i).variable_level,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5389: convert_from_oag_operamt(
5390: ecx_utils.g_stage_data(i).variable_level,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5390: ecx_utils.g_stage_data(i).variable_level,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5391: ecx_utils.g_stage_data(i).variable_name,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5392: ecx_utils.g_stage_data(i).variable_pos,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5393: ecx_utils.g_stage_data(i).variable_direction,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5394: ecx_utils.g_stage_data(i).operand1_level,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5395: ecx_utils.g_stage_data(i).operand1_name,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5396: ecx_utils.g_stage_data(i).operand1_pos,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5397: ecx_utils.g_stage_data(i).operand1_direction,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5398: ecx_utils.g_stage_data(i).operand1_constant,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5399: ecx_utils.g_stage_data(i).operand2_level,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5400: ecx_utils.g_stage_data(i).operand2_name,
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5408: ecx_utils.g_stage_data(i).operand3_constant
5401: ecx_utils.g_stage_data(i).operand2_pos,
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5408: ecx_utils.g_stage_data(i).operand3_constant
5409: );
5402: ecx_utils.g_stage_data(i).operand2_direction,
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5408: ecx_utils.g_stage_data(i).operand3_constant
5409: );
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5403: ecx_utils.g_stage_data(i).operand2_constant,
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5408: ecx_utils.g_stage_data(i).operand3_constant
5409: );
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5411: convert_from_oag_amt(
5404: ecx_utils.g_stage_data(i).operand3_level,
5405: ecx_utils.g_stage_data(i).operand3_name,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5408: ecx_utils.g_stage_data(i).operand3_constant
5409: );
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5411: convert_from_oag_amt(
5412: ecx_utils.g_stage_data(i).variable_level,
5406: ecx_utils.g_stage_data(i).operand3_pos,
5407: ecx_utils.g_stage_data(i).operand3_direction,
5408: ecx_utils.g_stage_data(i).operand3_constant
5409: );
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5411: convert_from_oag_amt(
5412: ecx_utils.g_stage_data(i).variable_level,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5408: ecx_utils.g_stage_data(i).operand3_constant
5409: );
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5411: convert_from_oag_amt(
5412: ecx_utils.g_stage_data(i).variable_level,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5409: );
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5411: convert_from_oag_amt(
5412: ecx_utils.g_stage_data(i).variable_level,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5410: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGAMT then
5411: convert_from_oag_amt(
5412: ecx_utils.g_stage_data(i).variable_level,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5411: convert_from_oag_amt(
5412: ecx_utils.g_stage_data(i).variable_level,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5412: ecx_utils.g_stage_data(i).variable_level,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5413: ecx_utils.g_stage_data(i).variable_name,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5414: ecx_utils.g_stage_data(i).variable_pos,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5415: ecx_utils.g_stage_data(i).variable_direction,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5416: ecx_utils.g_stage_data(i).operand1_level,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5417: ecx_utils.g_stage_data(i).operand1_name,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5418: ecx_utils.g_stage_data(i).operand1_pos,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5419: ecx_utils.g_stage_data(i).operand1_direction,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5420: ecx_utils.g_stage_data(i).operand1_constant,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5421: ecx_utils.g_stage_data(i).operand2_level,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5429: ecx_utils.g_stage_data(i).operand3_direction,
5422: ecx_utils.g_stage_data(i).operand2_name,
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5429: ecx_utils.g_stage_data(i).operand3_direction,
5430: ecx_utils.g_stage_data(i).operand3_constant
5423: ecx_utils.g_stage_data(i).operand2_pos,
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5429: ecx_utils.g_stage_data(i).operand3_direction,
5430: ecx_utils.g_stage_data(i).operand3_constant
5431: );
5424: ecx_utils.g_stage_data(i).operand2_direction,
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5429: ecx_utils.g_stage_data(i).operand3_direction,
5430: ecx_utils.g_stage_data(i).operand3_constant
5431: );
5432:
5425: ecx_utils.g_stage_data(i).operand2_constant,
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5429: ecx_utils.g_stage_data(i).operand3_direction,
5430: ecx_utils.g_stage_data(i).operand3_constant
5431: );
5432:
5433: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5426: ecx_utils.g_stage_data(i).operand3_level,
5427: ecx_utils.g_stage_data(i).operand3_name,
5428: ecx_utils.g_stage_data(i).operand3_pos,
5429: ecx_utils.g_stage_data(i).operand3_direction,
5430: ecx_utils.g_stage_data(i).operand3_constant
5431: );
5432:
5433: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5434: convert_from_oag_quantity(
5429: ecx_utils.g_stage_data(i).operand3_direction,
5430: ecx_utils.g_stage_data(i).operand3_constant
5431: );
5432:
5433: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5434: convert_from_oag_quantity(
5435: ecx_utils.g_stage_data(i).variable_level,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5431: );
5432:
5433: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5434: convert_from_oag_quantity(
5435: ecx_utils.g_stage_data(i).variable_level,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5432:
5433: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5434: convert_from_oag_quantity(
5435: ecx_utils.g_stage_data(i).variable_level,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5433: elsif ecx_utils.g_stage_data(i).action_type = CONV_FROM_OAGQUANT then
5434: convert_from_oag_quantity(
5435: ecx_utils.g_stage_data(i).variable_level,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5434: convert_from_oag_quantity(
5435: ecx_utils.g_stage_data(i).variable_level,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5435: ecx_utils.g_stage_data(i).variable_level,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5436: ecx_utils.g_stage_data(i).variable_name,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5437: ecx_utils.g_stage_data(i).variable_pos,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5438: ecx_utils.g_stage_data(i).variable_direction,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5439: ecx_utils.g_stage_data(i).operand1_level,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5447: ecx_utils.g_stage_data(i).operand2_direction,
5440: ecx_utils.g_stage_data(i).operand1_name,
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5447: ecx_utils.g_stage_data(i).operand2_direction,
5448: ecx_utils.g_stage_data(i).operand2_constant
5441: ecx_utils.g_stage_data(i).operand1_pos,
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5447: ecx_utils.g_stage_data(i).operand2_direction,
5448: ecx_utils.g_stage_data(i).operand2_constant
5449: );
5442: ecx_utils.g_stage_data(i).operand1_direction,
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5447: ecx_utils.g_stage_data(i).operand2_direction,
5448: ecx_utils.g_stage_data(i).operand2_constant
5449: );
5450:
5443: ecx_utils.g_stage_data(i).operand1_constant,
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5447: ecx_utils.g_stage_data(i).operand2_direction,
5448: ecx_utils.g_stage_data(i).operand2_constant
5449: );
5450:
5451: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5444: ecx_utils.g_stage_data(i).operand2_level,
5445: ecx_utils.g_stage_data(i).operand2_name,
5446: ecx_utils.g_stage_data(i).operand2_pos,
5447: ecx_utils.g_stage_data(i).operand2_direction,
5448: ecx_utils.g_stage_data(i).operand2_constant
5449: );
5450:
5451: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5452: insert_level_into_table (i_level);
5447: ecx_utils.g_stage_data(i).operand2_direction,
5448: ecx_utils.g_stage_data(i).operand2_constant
5449: );
5450:
5451: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5452: insert_level_into_table (i_level);
5453:
5454: /** Removed the call as it is being called in the initialization of source itself **/
5455: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5451: elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
5452: insert_level_into_table (i_level);
5453:
5454: /** Removed the call as it is being called in the initialization of source itself **/
5455: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5456: --append_clause
5457: --(
5458: --ecx_utils.g_stage_data(i).level,
5459: --ecx_utils.g_stage_data(i).clause
5454: /** Removed the call as it is being called in the initialization of source itself **/
5455: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5456: --append_clause
5457: --(
5458: --ecx_utils.g_stage_data(i).level,
5459: --ecx_utils.g_stage_data(i).clause
5460: --);
5461:
5462: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5455: --elsif ecx_utils.g_stage_data(i).action_type = APPEND_WHERECLAUSE then
5456: --append_clause
5457: --(
5458: --ecx_utils.g_stage_data(i).level,
5459: --ecx_utils.g_stage_data(i).clause
5460: --);
5461:
5462: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5463: execute_proc
5458: --ecx_utils.g_stage_data(i).level,
5459: --ecx_utils.g_stage_data(i).clause
5460: --);
5461:
5462: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5463: execute_proc
5464: (
5465: ecx_utils.g_stage_data(i).transtage_id,
5466: ecx_utils.g_stage_data(i).custom_procedure_name
5461:
5462: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5463: execute_proc
5464: (
5465: ecx_utils.g_stage_data(i).transtage_id,
5466: ecx_utils.g_stage_data(i).custom_procedure_name
5467: );
5468:
5469: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5462: elsif ecx_utils.g_stage_data(i).action_type = EXEC_PROCEDURES then
5463: execute_proc
5464: (
5465: ecx_utils.g_stage_data(i).transtage_id,
5466: ecx_utils.g_stage_data(i).custom_procedure_name
5467: );
5468:
5469: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5470: exit_program;
5465: ecx_utils.g_stage_data(i).transtage_id,
5466: ecx_utils.g_stage_data(i).custom_procedure_name
5467: );
5468:
5469: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5470: exit_program;
5471:
5472: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5473: send_err
5468:
5469: elsif ecx_utils.g_stage_data(i).action_type = EXITPROGRAM then
5470: exit_program;
5471:
5472: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5473: send_err
5474: (
5475: ecx_utils.g_stage_data(i).operand1_level,
5476: ecx_utils.g_stage_data(i).operand1_name,
5471:
5472: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5473: send_err
5474: (
5475: ecx_utils.g_stage_data(i).operand1_level,
5476: ecx_utils.g_stage_data(i).operand1_name,
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5472: elsif ecx_utils.g_stage_data(i).action_type = SEND_ERROR then
5473: send_err
5474: (
5475: ecx_utils.g_stage_data(i).operand1_level,
5476: ecx_utils.g_stage_data(i).operand1_name,
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5473: send_err
5474: (
5475: ecx_utils.g_stage_data(i).operand1_level,
5476: ecx_utils.g_stage_data(i).operand1_name,
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5474: (
5475: ecx_utils.g_stage_data(i).operand1_level,
5476: ecx_utils.g_stage_data(i).operand1_name,
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5475: ecx_utils.g_stage_data(i).operand1_level,
5476: ecx_utils.g_stage_data(i).operand1_name,
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5483: ecx_utils.g_stage_data(i).operand2_pos,
5476: ecx_utils.g_stage_data(i).operand1_name,
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5483: ecx_utils.g_stage_data(i).operand2_pos,
5484: ecx_utils.g_stage_data(i).operand2_constant
5477: ecx_utils.g_stage_data(i).operand1_direction,
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5483: ecx_utils.g_stage_data(i).operand2_pos,
5484: ecx_utils.g_stage_data(i).operand2_constant
5485: );
5478: ecx_utils.g_stage_data(i).operand1_pos,
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5483: ecx_utils.g_stage_data(i).operand2_pos,
5484: ecx_utils.g_stage_data(i).operand2_constant
5485: );
5486:
5479: ecx_utils.g_stage_data(i).operand1_constant,
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5483: ecx_utils.g_stage_data(i).operand2_pos,
5484: ecx_utils.g_stage_data(i).operand2_constant
5485: );
5486:
5487: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5480: ecx_utils.g_stage_data(i).operand2_level,
5481: ecx_utils.g_stage_data(i).operand2_name,
5482: ecx_utils.g_stage_data(i).operand2_direction,
5483: ecx_utils.g_stage_data(i).operand2_pos,
5484: ecx_utils.g_stage_data(i).operand2_constant
5485: );
5486:
5487: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5488: get_api_retcode
5483: ecx_utils.g_stage_data(i).operand2_pos,
5484: ecx_utils.g_stage_data(i).operand2_constant
5485: );
5486:
5487: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5488: get_api_retcode
5489: (
5490: ecx_utils.g_stage_data(i).variable_level,
5491: ecx_utils.g_stage_data(i).variable_name,
5486:
5487: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5488: get_api_retcode
5489: (
5490: ecx_utils.g_stage_data(i).variable_level,
5491: ecx_utils.g_stage_data(i).variable_name,
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5487: elsif ecx_utils.g_stage_data(i).action_type = API_RETURN_CODE then
5488: get_api_retcode
5489: (
5490: ecx_utils.g_stage_data(i).variable_level,
5491: ecx_utils.g_stage_data(i).variable_name,
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5488: get_api_retcode
5489: (
5490: ecx_utils.g_stage_data(i).variable_level,
5491: ecx_utils.g_stage_data(i).variable_name,
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5489: (
5490: ecx_utils.g_stage_data(i).variable_level,
5491: ecx_utils.g_stage_data(i).variable_name,
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5490: ecx_utils.g_stage_data(i).variable_level,
5491: ecx_utils.g_stage_data(i).variable_name,
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5491: ecx_utils.g_stage_data(i).variable_name,
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5499: ecx_utils.g_stage_data(i).function_name
5492: ecx_utils.g_stage_data(i).variable_direction,
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5499: ecx_utils.g_stage_data(i).function_name
5500: );
5493: ecx_utils.g_stage_data(i).variable_pos,
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5499: ecx_utils.g_stage_data(i).function_name
5500: );
5501: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5494: ecx_utils.g_stage_data(i).default_value,
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5499: ecx_utils.g_stage_data(i).function_name
5500: );
5501: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5502: concat_variables
5495: ecx_utils.g_stage_data(i).operand1_level,
5496: ecx_utils.g_stage_data(i).operand1_name,
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5499: ecx_utils.g_stage_data(i).function_name
5500: );
5501: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5502: concat_variables
5503: (
5497: ecx_utils.g_stage_data(i).operand1_direction,
5498: ecx_utils.g_stage_data(i).operand1_pos,
5499: ecx_utils.g_stage_data(i).function_name
5500: );
5501: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5502: concat_variables
5503: (
5504: ecx_utils.g_stage_data(i).variable_level,
5505: ecx_utils.g_stage_data(i).variable_name,
5500: );
5501: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5502: concat_variables
5503: (
5504: ecx_utils.g_stage_data(i).variable_level,
5505: ecx_utils.g_stage_data(i).variable_name,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5501: elsif ecx_utils.g_stage_data(i).action_type = CONCAT_VAR then
5502: concat_variables
5503: (
5504: ecx_utils.g_stage_data(i).variable_level,
5505: ecx_utils.g_stage_data(i).variable_name,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5502: concat_variables
5503: (
5504: ecx_utils.g_stage_data(i).variable_level,
5505: ecx_utils.g_stage_data(i).variable_name,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5503: (
5504: ecx_utils.g_stage_data(i).variable_level,
5505: ecx_utils.g_stage_data(i).variable_name,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5504: ecx_utils.g_stage_data(i).variable_level,
5505: ecx_utils.g_stage_data(i).variable_name,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5505: ecx_utils.g_stage_data(i).variable_name,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5506: ecx_utils.g_stage_data(i).variable_direction,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5507: ecx_utils.g_stage_data(i).variable_pos,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5508: ecx_utils.g_stage_data(i).operand1_level,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5516: ecx_utils.g_stage_data(i).operand2_pos,
5509: ecx_utils.g_stage_data(i).operand1_name,
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5516: ecx_utils.g_stage_data(i).operand2_pos,
5517: ecx_utils.g_stage_data(i).operand2_constant
5510: ecx_utils.g_stage_data(i).operand1_direction,
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5516: ecx_utils.g_stage_data(i).operand2_pos,
5517: ecx_utils.g_stage_data(i).operand2_constant
5518: );
5511: ecx_utils.g_stage_data(i).operand1_pos,
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5516: ecx_utils.g_stage_data(i).operand2_pos,
5517: ecx_utils.g_stage_data(i).operand2_constant
5518: );
5519:
5512: ecx_utils.g_stage_data(i).operand1_constant,
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5516: ecx_utils.g_stage_data(i).operand2_pos,
5517: ecx_utils.g_stage_data(i).operand2_constant
5518: );
5519:
5520: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5513: ecx_utils.g_stage_data(i).operand2_level,
5514: ecx_utils.g_stage_data(i).operand2_name,
5515: ecx_utils.g_stage_data(i).operand2_direction,
5516: ecx_utils.g_stage_data(i).operand2_pos,
5517: ecx_utils.g_stage_data(i).operand2_constant
5518: );
5519:
5520: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5521: substr_variables
5516: ecx_utils.g_stage_data(i).operand2_pos,
5517: ecx_utils.g_stage_data(i).operand2_constant
5518: );
5519:
5520: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5521: substr_variables
5522: (
5523: ecx_utils.g_stage_data(i).variable_level,
5524: ecx_utils.g_stage_data(i).variable_name,
5519:
5520: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5521: substr_variables
5522: (
5523: ecx_utils.g_stage_data(i).variable_level,
5524: ecx_utils.g_stage_data(i).variable_name,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5520: elsif ecx_utils.g_stage_data(i).action_type = SUBSTR_VAR then
5521: substr_variables
5522: (
5523: ecx_utils.g_stage_data(i).variable_level,
5524: ecx_utils.g_stage_data(i).variable_name,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5521: substr_variables
5522: (
5523: ecx_utils.g_stage_data(i).variable_level,
5524: ecx_utils.g_stage_data(i).variable_name,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5522: (
5523: ecx_utils.g_stage_data(i).variable_level,
5524: ecx_utils.g_stage_data(i).variable_name,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5523: ecx_utils.g_stage_data(i).variable_level,
5524: ecx_utils.g_stage_data(i).variable_name,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5524: ecx_utils.g_stage_data(i).variable_name,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5525: ecx_utils.g_stage_data(i).variable_direction,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5526: ecx_utils.g_stage_data(i).variable_pos,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5527: ecx_utils.g_stage_data(i).operand1_level,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5528: ecx_utils.g_stage_data(i).operand1_name,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5529: ecx_utils.g_stage_data(i).operand1_direction,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5530: ecx_utils.g_stage_data(i).operand1_pos,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5531: ecx_utils.g_stage_data(i).operand1_constant,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5532: ecx_utils.g_stage_data(i).operand2_level,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5540: ecx_utils.g_stage_data(i).operand3_pos,
5533: ecx_utils.g_stage_data(i).operand2_name,
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5540: ecx_utils.g_stage_data(i).operand3_pos,
5541: ecx_utils.g_stage_data(i).operand3_constant
5534: ecx_utils.g_stage_data(i).operand2_direction,
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5540: ecx_utils.g_stage_data(i).operand3_pos,
5541: ecx_utils.g_stage_data(i).operand3_constant
5542: );
5535: ecx_utils.g_stage_data(i).operand2_pos,
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5540: ecx_utils.g_stage_data(i).operand3_pos,
5541: ecx_utils.g_stage_data(i).operand3_constant
5542: );
5543:
5536: ecx_utils.g_stage_data(i).operand2_constant,
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5540: ecx_utils.g_stage_data(i).operand3_pos,
5541: ecx_utils.g_stage_data(i).operand3_constant
5542: );
5543:
5544: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5537: ecx_utils.g_stage_data(i).operand3_level,
5538: ecx_utils.g_stage_data(i).operand3_name,
5539: ecx_utils.g_stage_data(i).operand3_direction,
5540: ecx_utils.g_stage_data(i).operand3_pos,
5541: ecx_utils.g_stage_data(i).operand3_constant
5542: );
5543:
5544: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5545: then
5540: ecx_utils.g_stage_data(i).operand3_pos,
5541: ecx_utils.g_stage_data(i).operand3_constant
5542: );
5543:
5544: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5545: then
5546: execute_math_functions
5547: (
5548: ecx_utils.g_stage_data(i).action_type,
5544: elsif ecx_utils.g_stage_data(i).action_type in ( 4000,4010,4020,4030)
5545: then
5546: execute_math_functions
5547: (
5548: ecx_utils.g_stage_data(i).action_type,
5549: ecx_utils.g_stage_data(i).variable_level,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5545: then
5546: execute_math_functions
5547: (
5548: ecx_utils.g_stage_data(i).action_type,
5549: ecx_utils.g_stage_data(i).variable_level,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5546: execute_math_functions
5547: (
5548: ecx_utils.g_stage_data(i).action_type,
5549: ecx_utils.g_stage_data(i).variable_level,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5547: (
5548: ecx_utils.g_stage_data(i).action_type,
5549: ecx_utils.g_stage_data(i).variable_level,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5548: ecx_utils.g_stage_data(i).action_type,
5549: ecx_utils.g_stage_data(i).variable_level,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5549: ecx_utils.g_stage_data(i).variable_level,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5550: ecx_utils.g_stage_data(i).variable_name,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5551: ecx_utils.g_stage_data(i).variable_pos,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5552: ecx_utils.g_stage_data(i).variable_direction,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5553: ecx_utils.g_stage_data(i).operand1_level,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5554: ecx_utils.g_stage_data(i).operand1_name,
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5562: ecx_utils.g_stage_data(i).operand2_constant
5555: ecx_utils.g_stage_data(i).operand1_pos,
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5562: ecx_utils.g_stage_data(i).operand2_constant
5563: );
5556: ecx_utils.g_stage_data(i).operand1_direction,
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5562: ecx_utils.g_stage_data(i).operand2_constant
5563: );
5564: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5557: ecx_utils.g_stage_data(i).operand1_constant,
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5562: ecx_utils.g_stage_data(i).operand2_constant
5563: );
5564: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5565: transform_xml_with_xslt
5558: ecx_utils.g_stage_data(i).operand2_level,
5559: ecx_utils.g_stage_data(i).operand2_name,
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5562: ecx_utils.g_stage_data(i).operand2_constant
5563: );
5564: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5565: transform_xml_with_xslt
5566: (
5560: ecx_utils.g_stage_data(i).operand2_pos,
5561: ecx_utils.g_stage_data(i).operand2_direction,
5562: ecx_utils.g_stage_data(i).operand2_constant
5563: );
5564: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5565: transform_xml_with_xslt
5566: (
5567: ecx_utils.g_stage_data(i).default_value,
5568: ecx_utils.g_stage_data(i).operand1_level,
5563: );
5564: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5565: transform_xml_with_xslt
5566: (
5567: ecx_utils.g_stage_data(i).default_value,
5568: ecx_utils.g_stage_data(i).operand1_level,
5569: ecx_utils.g_stage_data(i).operand1_name,
5570: ecx_utils.g_stage_data(i).operand1_pos,
5571: ecx_utils.g_stage_data(i).operand1_direction,
5564: elsif ecx_utils.g_stage_data(i).action_type = XSLT_TRANSFORM then
5565: transform_xml_with_xslt
5566: (
5567: ecx_utils.g_stage_data(i).default_value,
5568: ecx_utils.g_stage_data(i).operand1_level,
5569: ecx_utils.g_stage_data(i).operand1_name,
5570: ecx_utils.g_stage_data(i).operand1_pos,
5571: ecx_utils.g_stage_data(i).operand1_direction,
5572: ecx_utils.g_stage_data(i).operand1_constant
5565: transform_xml_with_xslt
5566: (
5567: ecx_utils.g_stage_data(i).default_value,
5568: ecx_utils.g_stage_data(i).operand1_level,
5569: ecx_utils.g_stage_data(i).operand1_name,
5570: ecx_utils.g_stage_data(i).operand1_pos,
5571: ecx_utils.g_stage_data(i).operand1_direction,
5572: ecx_utils.g_stage_data(i).operand1_constant
5573: );
5566: (
5567: ecx_utils.g_stage_data(i).default_value,
5568: ecx_utils.g_stage_data(i).operand1_level,
5569: ecx_utils.g_stage_data(i).operand1_name,
5570: ecx_utils.g_stage_data(i).operand1_pos,
5571: ecx_utils.g_stage_data(i).operand1_direction,
5572: ecx_utils.g_stage_data(i).operand1_constant
5573: );
5574: /*start bug 10254870*/
5567: ecx_utils.g_stage_data(i).default_value,
5568: ecx_utils.g_stage_data(i).operand1_level,
5569: ecx_utils.g_stage_data(i).operand1_name,
5570: ecx_utils.g_stage_data(i).operand1_pos,
5571: ecx_utils.g_stage_data(i).operand1_direction,
5572: ecx_utils.g_stage_data(i).operand1_constant
5573: );
5574: /*start bug 10254870*/
5575: l_counter_xslt := l_counter_xslt+1;
5568: ecx_utils.g_stage_data(i).operand1_level,
5569: ecx_utils.g_stage_data(i).operand1_name,
5570: ecx_utils.g_stage_data(i).operand1_pos,
5571: ecx_utils.g_stage_data(i).operand1_direction,
5572: ecx_utils.g_stage_data(i).operand1_constant
5573: );
5574: /*start bug 10254870*/
5575: l_counter_xslt := l_counter_xslt+1;
5576: /*
5576: /*
5577: * If xslt transformation is defined more that once for a map then writing transformed xml back
5578: * to g_xml_doc so that same can be used during next transformation
5579: */
5580: if(ecx_utils.g_cnt_xslt_defined > 1 and l_counter_xslt <> ecx_utils.g_cnt_xslt_defined) then
5581: ecx_utils.clobToDomNode(ecx_utils.g_out_transformed,ecx_utils.g_xmldoc);
5582: end if;
5583: /*end bug 10254870*/
5584: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5577: * If xslt transformation is defined more that once for a map then writing transformed xml back
5578: * to g_xml_doc so that same can be used during next transformation
5579: */
5580: if(ecx_utils.g_cnt_xslt_defined > 1 and l_counter_xslt <> ecx_utils.g_cnt_xslt_defined) then
5581: ecx_utils.clobToDomNode(ecx_utils.g_out_transformed,ecx_utils.g_xmldoc);
5582: end if;
5583: /*end bug 10254870*/
5584: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5585: then
5580: if(ecx_utils.g_cnt_xslt_defined > 1 and l_counter_xslt <> ecx_utils.g_cnt_xslt_defined) then
5581: ecx_utils.clobToDomNode(ecx_utils.g_out_transformed,ecx_utils.g_xmldoc);
5582: end if;
5583: /*end bug 10254870*/
5584: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5585: then
5586: derive_address_id
5587: (
5588: ecx_utils.g_stage_data(i).variable_level,
5584: elsif ecx_utils.g_stage_data(i).action_type = GET_ADDRESS_ID
5585: then
5586: derive_address_id
5587: (
5588: ecx_utils.g_stage_data(i).variable_level,
5589: ecx_utils.g_stage_data(i).variable_name,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5585: then
5586: derive_address_id
5587: (
5588: ecx_utils.g_stage_data(i).variable_level,
5589: ecx_utils.g_stage_data(i).variable_name,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5586: derive_address_id
5587: (
5588: ecx_utils.g_stage_data(i).variable_level,
5589: ecx_utils.g_stage_data(i).variable_name,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5587: (
5588: ecx_utils.g_stage_data(i).variable_level,
5589: ecx_utils.g_stage_data(i).variable_name,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5588: ecx_utils.g_stage_data(i).variable_level,
5589: ecx_utils.g_stage_data(i).variable_name,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5589: ecx_utils.g_stage_data(i).variable_name,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5590: ecx_utils.g_stage_data(i).variable_pos,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5591: ecx_utils.g_stage_data(i).variable_direction,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5592: ecx_utils.g_stage_data(i).operand1_level,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5600: ecx_utils.g_stage_data(i).operand3_pos,
5593: ecx_utils.g_stage_data(i).operand1_name,
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5600: ecx_utils.g_stage_data(i).operand3_pos,
5601: ecx_utils.g_stage_data(i).operand3_direction
5594: ecx_utils.g_stage_data(i).operand1_pos,
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5600: ecx_utils.g_stage_data(i).operand3_pos,
5601: ecx_utils.g_stage_data(i).operand3_direction
5602: );
5595: ecx_utils.g_stage_data(i).operand1_direction,
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5600: ecx_utils.g_stage_data(i).operand3_pos,
5601: ecx_utils.g_stage_data(i).operand3_direction
5602: );
5603: end if;
5596: ecx_utils.g_stage_data(i).operand1_constant,
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5600: ecx_utils.g_stage_data(i).operand3_pos,
5601: ecx_utils.g_stage_data(i).operand3_direction
5602: );
5603: end if;
5604:
5597: ecx_utils.g_stage_data(i).operand2_constant,
5598: ecx_utils.g_stage_data(i).operand3_level,
5599: ecx_utils.g_stage_data(i).operand3_name,
5600: ecx_utils.g_stage_data(i).operand3_pos,
5601: ecx_utils.g_stage_data(i).operand3_direction
5602: );
5603: end if;
5604:
5605: end if; --- Condition Flag
5615: ecx_debug.pop(i_method_name);
5616: end if;
5617:
5618: EXCEPTION
5619: WHEN ecx_utils.PROGRAM_EXIT then
5620: if (l_procedureEnabled) then
5621: ecx_debug.pop(i_method_name);
5622: end if;
5623: raise;
5631: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.EXECUTE_STAGE_DATA');
5632: if (l_procedureEnabled) then
5633: ecx_debug.pop(i_method_name);
5634: end if;
5635: raise ecx_utils.PROGRAM_EXIT;
5636:
5637:
5638: end execute_stage_data;
5639:
5667: if (l_procedureEnabled) then
5668: ecx_debug.pop(i_method_name);
5669: end if;
5670: EXCEPTION
5671: WHEN ecx_utils.PROGRAM_EXIT then
5672: if (l_procedureEnabled) then
5673: ecx_debug.pop(i_method_name);
5674: end if;
5675: raise;
5683: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_CLOB');
5684: if (l_procedureEnabled) then
5685: ecx_debug.pop(i_method_name);
5686: end if;
5687: raise ecx_utils.PROGRAM_EXIT;
5688: end;
5689:
5690: procedure get_varchar(clobValue in clob , value in Varchar2 , valueOut out nocopy varchar2) as
5691: i_method_name varchar2(2000) := 'ecx_actions.get_varchar';
5693: if (l_procedureEnabled) then
5694: ecx_debug.push(i_method_name);
5695: end if;
5696: if (value is not null) then
5697: valueOut := substr(value , 1, ecx_utils.G_VARCHAR_LEN);
5698: elsif (clobValue is not null) then
5699: valueOut := dbms_lob.substr(clobValue,ecx_utils.G_VARCHAR_LEN,1);
5700: end if;
5701: if (l_procedureEnabled) then
5695: end if;
5696: if (value is not null) then
5697: valueOut := substr(value , 1, ecx_utils.G_VARCHAR_LEN);
5698: elsif (clobValue is not null) then
5699: valueOut := dbms_lob.substr(clobValue,ecx_utils.G_VARCHAR_LEN,1);
5700: end if;
5701: if (l_procedureEnabled) then
5702: ecx_debug.pop(i_method_name);
5703: end if;
5701: if (l_procedureEnabled) then
5702: ecx_debug.pop(i_method_name);
5703: end if;
5704: EXCEPTION
5705: WHEN ecx_utils.PROGRAM_EXIT then
5706: if (l_procedureEnabled) then
5707: ecx_debug.pop(i_method_name);
5708: end if;
5709: raise;
5715: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_VARCHAR');
5716: if (l_procedureEnabled) then
5717: ecx_debug.pop(i_method_name);
5718: end if;
5719: raise ecx_utils.PROGRAM_EXIT;
5720:
5721: end;
5722:
5723: procedure delete_doctype as
5741: end if;
5742:
5743:
5744: -- Initialize the event if it is not already initialized.
5745: if (ecx_utils.g_event is null) then
5746: wf_event_t.initialize(ecx_utils.g_event);
5747: end if;
5748:
5749: -- Add all global variables as parameters to the event.
5742:
5743:
5744: -- Initialize the event if it is not already initialized.
5745: if (ecx_utils.g_event is null) then
5746: wf_event_t.initialize(ecx_utils.g_event);
5747: end if;
5748:
5749: -- Add all global variables as parameters to the event.
5750: for k in 1..ecx_utils.g_stack.count
5746: wf_event_t.initialize(ecx_utils.g_event);
5747: end if;
5748:
5749: -- Add all global variables as parameters to the event.
5750: for k in 1..ecx_utils.g_stack.count
5751: loop
5752: v_name := ecx_utils.g_stack(k).variable_name;
5753: v_value := ecx_utils.g_stack(k).variable_value;
5754: ecx_utils.g_event.addparametertolist
5748:
5749: -- Add all global variables as parameters to the event.
5750: for k in 1..ecx_utils.g_stack.count
5751: loop
5752: v_name := ecx_utils.g_stack(k).variable_name;
5753: v_value := ecx_utils.g_stack(k).variable_value;
5754: ecx_utils.g_event.addparametertolist
5755: ( v_name,
5756: v_value);
5749: -- Add all global variables as parameters to the event.
5750: for k in 1..ecx_utils.g_stack.count
5751: loop
5752: v_name := ecx_utils.g_stack(k).variable_name;
5753: v_value := ecx_utils.g_stack(k).variable_value;
5754: ecx_utils.g_event.addparametertolist
5755: ( v_name,
5756: v_value);
5757:
5750: for k in 1..ecx_utils.g_stack.count
5751: loop
5752: v_name := ecx_utils.g_stack(k).variable_name;
5753: v_value := ecx_utils.g_stack(k).variable_value;
5754: ecx_utils.g_event.addparametertolist
5755: ( v_name,
5756: v_value);
5757:
5758: if(l_statementEnabled) then
5756: v_value);
5757:
5758: if(l_statementEnabled) then
5759: ecx_debug.log(l_statement,'global variable name',
5760: ecx_utils.g_stack(k).variable_name,i_method_name);
5761: ecx_debug.log(l_statement,'global variable value',
5762: ecx_utils.g_stack(k).variable_value,i_method_name);
5763: end if;
5764: end loop;
5758: if(l_statementEnabled) then
5759: ecx_debug.log(l_statement,'global variable name',
5760: ecx_utils.g_stack(k).variable_name,i_method_name);
5761: ecx_debug.log(l_statement,'global variable value',
5762: ecx_utils.g_stack(k).variable_value,i_method_name);
5763: end if;
5764: end loop;
5765: -- Call the procedure. The procedure takes wf_event_t as
5766: -- input and gives out xml_fragment as output.
5767:
5768: proc_call := 'BEGIN ' || proc_name || ' (:EVENT,:XML_FRAGMENT);
5769: END;' ;
5770:
5771: execute immediate proc_call using in ecx_utils.g_event, out xml_fragment;
5772:
5773: if(l_statementEnabled) then
5774: ecx_debug.log(l_statement,'xml fragment',
5775: xml_fragment,i_method_name);
5798: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_XML_FRAGMENT');
5799: if (l_procedureEnabled) then
5800: ecx_debug.pop(i_method_name);
5801: end if;
5802: raise ecx_utils.PROGRAM_EXIT;
5803: end;
5804: /*
5805: bug 10254870
5806: function to transform the given xml based on given xsl (lfilename) and
5833: if (l_procedureEnabled) then
5834: ecx_debug.push(i_method_name);
5835: end if;
5836:
5837: if (xmlDOM.isNull(ecx_utils.g_xmldoc)) then
5838: return;
5839: end if;
5840:
5841: if(l_statementEnabled) then
5869: end if;
5870: l_xslt_payload := null;
5871: when others then
5872: ecx_debug.setErrorInfo(2,30,SQLERRM);
5873: raise ecx_utils.program_exit;
5874: end;
5875:
5876: if (l_xslt_payload is null)
5877: then
5883: end if;
5884:
5885: if (ecx_actions.g_xslt_dir is null) then
5886: --- Check for the Installation Type ( Standalone or Embedded );
5887: if (ecx_utils.g_install_mode is null) then
5888: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
5889: end if;
5890:
5891: if ecx_utils.g_install_mode = 'EMBEDDED'
5884:
5885: if (ecx_actions.g_xslt_dir is null) then
5886: --- Check for the Installation Type ( Standalone or Embedded );
5887: if (ecx_utils.g_install_mode is null) then
5888: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
5889: end if;
5890:
5891: if ecx_utils.g_install_mode = 'EMBEDDED'
5892: then
5887: if (ecx_utils.g_install_mode is null) then
5888: ecx_utils.g_install_mode := wf_core.translate('WF_INSTALL');
5889: end if;
5890:
5891: if ecx_utils.g_install_mode = 'EMBEDDED'
5892: then
5893: i_string := 'begin
5894: fnd_profile.get('||'''ECX_UTL_XSLT_DIR'''||',ecx_actions.g_xslt_dir);
5895: end;';
5898: ecx_actions.g_xslt_dir:= wf_core.translate('ECX_UTL_XSLT_DIR');
5899: end if;
5900: end if;
5901:
5902: i_fullpath := ecx_actions.g_xslt_dir||ecx_utils.getFileSeparator()||i_filename;
5903: if(l_statementEnabled) then
5904: ecx_debug.log(l_statement, 'XSLT Fullpath', i_fullpath,i_method_name);
5905: end if;
5906: l_parser := xmlparser.newParser;
5925:
5926: i_processor := xslprocessor.newProcessor;
5927:
5928: -- get the type of the DOMNode
5929: i_node_type := xmlDOM.getNodeType(ecx_utils.g_xmldoc);
5930: if(l_statementEnabled) then
5931: ecx_debug.log(l_statement, 'i_node_type', i_node_type,i_method_name);
5932: end if;
5933:
5935: then
5936: if(l_statementEnabled) then
5937: ecx_debug.log(l_statement, 'Creating Document Object from DOM Node...',i_method_name);
5938: end if;
5939: i_doc := xmlDOM.makeDocument(ecx_utils.g_xmldoc);
5940: if(l_statementEnabled) then
5941: ecx_debug.log(l_statement, 'Before processing XSL',i_method_name);
5942: end if;
5943: xslprocessor.processXSL(i_processor, i_stylesheet, i_doc,i_out_transformed);
5946: then
5947: if(l_statementEnabled) then
5948: ecx_debug.log(l_statement,'Creating Document fragment from DOM Node...',i_method_name);
5949: end if;
5950: i_doc_frag := xmlDOM.makeDocumentFragment(ecx_utils.g_xmldoc);
5951: if(l_statementEnabled) then
5952: ecx_debug.log(l_statement, 'Before processing XSL',i_method_name);
5953: end if;
5954: xslprocessor.processXSL(i_processor, i_stylesheet, i_doc_frag,i_out_transformed);
5987: -- Put All DOM Parser Exceptions Here.
5988: when xmlDOM.INDEX_SIZE_ERR then
5989: ecx_debug.setErrorInfo(1,20,SQLERRM);
5990: if(l_unexpectedEnabled) then
5991: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
5992: end if;
5993: -- free all the used variables
5994: if (l_parser.id <> -1)
5995: then
6001: end if;
6002: if (l_procedureEnabled) then
6003: ecx_debug.pop(i_method_name);
6004: end if;
6005: raise ecx_utils.program_exit;
6006: when xmlDOM.DOMSTRING_SIZE_ERR then
6007: ecx_debug.setErrorInfo(1,20,SQLERRM);
6008: if(l_unexpectedEnabled) then
6009: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6005: raise ecx_utils.program_exit;
6006: when xmlDOM.DOMSTRING_SIZE_ERR then
6007: ecx_debug.setErrorInfo(1,20,SQLERRM);
6008: if(l_unexpectedEnabled) then
6009: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6010: end if;
6011: -- free all the used variables
6012: if (l_parser.id <> -1)
6013: then
6019: end if;
6020: if (l_procedureEnabled) then
6021: ecx_debug.pop(i_method_name);
6022: end if;
6023: raise ecx_utils.program_exit;
6024: when xmlDOM.HIERARCHY_REQUEST_ERR then
6025: ecx_debug.setErrorInfo(1,20,SQLERRM);
6026: if(l_unexpectedEnabled) then
6027: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6023: raise ecx_utils.program_exit;
6024: when xmlDOM.HIERARCHY_REQUEST_ERR then
6025: ecx_debug.setErrorInfo(1,20,SQLERRM);
6026: if(l_unexpectedEnabled) then
6027: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6028: end if;
6029: -- free all the used variables
6030: if (l_parser.id <> -1)
6031: then
6037: end if;
6038: if (l_procedureEnabled) then
6039: ecx_debug.pop(i_method_name);
6040: end if;
6041: raise ecx_utils.program_exit;
6042: when xmlDOM.WRONG_DOCUMENT_ERR then
6043: ecx_debug.setErrorInfo(1,20,SQLERRM);
6044: if(l_unexpectedEnabled) then
6045: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6041: raise ecx_utils.program_exit;
6042: when xmlDOM.WRONG_DOCUMENT_ERR then
6043: ecx_debug.setErrorInfo(1,20,SQLERRM);
6044: if(l_unexpectedEnabled) then
6045: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6046: end if;
6047: -- free all the used variables
6048: if (l_parser.id <> -1)
6049: then
6055: end if;
6056: if (l_procedureEnabled) then
6057: ecx_debug.pop(i_method_name);
6058: end if;
6059: raise ecx_utils.program_exit;
6060: when xmlDOM.INVALID_CHARACTER_ERR then
6061: ecx_debug.setErrorInfo(1,20,SQLERRM);
6062: if(l_unexpectedEnabled) then
6063: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6059: raise ecx_utils.program_exit;
6060: when xmlDOM.INVALID_CHARACTER_ERR then
6061: ecx_debug.setErrorInfo(1,20,SQLERRM);
6062: if(l_unexpectedEnabled) then
6063: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6064: end if;
6065: -- free all the used variables
6066: if (l_parser.id <> -1)
6067: then
6073: end if;
6074: if (l_procedureEnabled) then
6075: ecx_debug.pop(i_method_name);
6076: end if;
6077: raise ecx_utils.program_exit;
6078: when xmlDOM.NO_DATA_ALLOWED_ERR then
6079: ecx_debug.setErrorInfo(1,20,SQLERRM);
6080: if(l_unexpectedEnabled) then
6081: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6077: raise ecx_utils.program_exit;
6078: when xmlDOM.NO_DATA_ALLOWED_ERR then
6079: ecx_debug.setErrorInfo(1,20,SQLERRM);
6080: if(l_unexpectedEnabled) then
6081: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6082: end if;
6083: -- free all the used variables
6084: if (l_parser.id <> -1)
6085: then
6091: end if;
6092: if (l_procedureEnabled) then
6093: ecx_debug.pop(i_method_name);
6094: end if;
6095: raise ecx_utils.program_exit;
6096: when xmlDOM.No_MODIFICATION_ALLOWED_ERR then
6097: ecx_debug.setErrorInfo(1,20,SQLERRM);
6098: if(l_unexpectedEnabled) then
6099: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6095: raise ecx_utils.program_exit;
6096: when xmlDOM.No_MODIFICATION_ALLOWED_ERR then
6097: ecx_debug.setErrorInfo(1,20,SQLERRM);
6098: if(l_unexpectedEnabled) then
6099: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6100: end if;
6101: -- free all the used variables
6102: if (l_parser.id <> -1)
6103: then
6109: end if;
6110: if (l_procedureEnabled) then
6111: ecx_debug.pop(i_method_name);
6112: end if;
6113: raise ecx_utils.program_exit;
6114: when xmlDOM.NOT_FOUND_ERR then
6115: ecx_debug.setErrorInfo(1,20,SQLERRM);
6116: if(l_unexpectedEnabled) then
6117: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6113: raise ecx_utils.program_exit;
6114: when xmlDOM.NOT_FOUND_ERR then
6115: ecx_debug.setErrorInfo(1,20,SQLERRM);
6116: if(l_unexpectedEnabled) then
6117: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6118: end if;
6119: -- free all the used variables
6120: if (l_parser.id <> -1)
6121: then
6127: end if;
6128: if (l_procedureEnabled) then
6129: ecx_debug.pop(i_method_name);
6130: end if;
6131: raise ecx_utils.program_exit;
6132: when xmlDOM.NOT_SUPPORTED_ERR then
6133: ecx_debug.setErrorInfo(1,20,SQLERRM);
6134: if(l_unexpectedEnabled) then
6135: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6131: raise ecx_utils.program_exit;
6132: when xmlDOM.NOT_SUPPORTED_ERR then
6133: ecx_debug.setErrorInfo(1,20,SQLERRM);
6134: if(l_unexpectedEnabled) then
6135: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6136: end if;
6137: -- free all the used variables
6138: if (l_parser.id <> -1)
6139: then
6145: end if;
6146: if (l_procedureEnabled) then
6147: ecx_debug.pop(i_method_name);
6148: end if;
6149: raise ecx_utils.program_exit;
6150: when xmlDOM.INUSE_ATTRIBUTE_ERR then
6151: ecx_debug.setErrorInfo(1,20,SQLERRM);
6152: -- free all the used variables
6153: if (l_parser.id <> -1)
6158: then
6159: xmldom.freeDocument(l_xsl_doc);
6160: end if;
6161: if(l_unexpectedEnabled) then
6162: ecx_debug.log(l_unexpected,ecx_utils.i_errbuf,i_method_name);
6163: end if;
6164: if (l_procedureEnabled) then
6165: ecx_debug.pop(i_method_name);
6166: end if;
6163: end if;
6164: if (l_procedureEnabled) then
6165: ecx_debug.pop(i_method_name);
6166: end if;
6167: raise ecx_utils.program_exit;
6168:
6169: WHEN OTHERS THEN
6170: if(l_unexpectedEnabled) then
6171: ecx_debug.log(l_unexpected,'ECX','ECX_PROGRAM_ERROR',i_method_name,'PROGRESS_LEVEL','ECX_ACTIONS.TRANSFORM_XML_WITH_XSLT');
6183: end if;
6184: if (l_procedureEnabled) then
6185: ecx_debug.pop(i_method_name);
6186: end if;
6187: raise ecx_utils.PROGRAM_EXIT;
6188: end transform_xml_with_xslt;
6189: /**
6190: function to get no of same action type(e.g.5000-XSLT Transformation) defined for the
6191: given stage(e.g. 30-Post Processing)
6200: BEGIN
6201: if (l_procedureEnabled) then
6202: ecx_debug.push(i_method_name);
6203: end if;
6204: if (ecx_utils.g_stage_data.count <> 0)
6205: then
6206: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
6207: loop
6208: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).action_type = i_action_type)
6202: ecx_debug.push(i_method_name);
6203: end if;
6204: if (ecx_utils.g_stage_data.count <> 0)
6205: then
6206: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
6207: loop
6208: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).action_type = i_action_type)
6209: then
6210: l_cnt_actionType := l_cnt_actionType + 1;
6204: if (ecx_utils.g_stage_data.count <> 0)
6205: then
6206: FOR i in ecx_utils.g_stage_data.first..ecx_utils.g_stage_data.last
6207: loop
6208: if (ecx_utils.g_stage_data(i).stage = i_stage and ecx_utils.g_stage_data(i).action_type = i_action_type)
6209: then
6210: l_cnt_actionType := l_cnt_actionType + 1;
6211: end if;
6212: end loop;
6225: ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.GET_COUNT_ACTION_TYPE');
6226: if (l_procedureEnabled) then
6227: ecx_debug.pop(i_method_name);
6228: end if;
6229: raise ecx_utils.PROGRAM_EXIT;
6230: end get_Count_Action_Type;
6231: end ecx_actions;