367: 'AND cs1.consolidation_set_id IN ( ' || prior_child_set_id || ')' ;
368: END IF;
369:
370: -- declare the cursor and work with it
371: child_set_cursor := dbms_sql.open_cursor;
372: dbms_sql.parse(child_set_cursor, cons_child_set, dbms_sql.v7);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
368: END IF;
369:
370: -- declare the cursor and work with it
371: child_set_cursor := dbms_sql.open_cursor;
372: dbms_sql.parse(child_set_cursor, cons_child_set, dbms_sql.v7);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
369:
370: -- declare the cursor and work with it
371: child_set_cursor := dbms_sql.open_cursor;
372: dbms_sql.parse(child_set_cursor, cons_child_set, dbms_sql.v7);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
370: -- declare the cursor and work with it
371: child_set_cursor := dbms_sql.open_cursor;
372: dbms_sql.parse(child_set_cursor, cons_child_set, dbms_sql.v7);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
371: child_set_cursor := dbms_sql.open_cursor;
372: dbms_sql.parse(child_set_cursor, cons_child_set, dbms_sql.v7);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
372: dbms_sql.parse(child_set_cursor, cons_child_set, dbms_sql.v7);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
373: dbms_sql.define_column(child_set_cursor, 1, to_ledger_id);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
381: dbms_sql.define_column(child_set_cursor, 9, child_set_name, 33);
374: dbms_sql.define_column(child_set_cursor, 2, to_ledger_name, 200);
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
381: dbms_sql.define_column(child_set_cursor, 9, child_set_name, 33);
382: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
375: dbms_sql.define_column(child_set_cursor, 3, to_ledger_coa);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
381: dbms_sql.define_column(child_set_cursor, 9, child_set_name, 33);
382: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
383: dbms_sql.define_column(child_set_cursor, 10, mapping_name, 33);
376: dbms_sql.define_column(child_set_cursor, 4, mapping_set_name, 33);
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
381: dbms_sql.define_column(child_set_cursor, 9, child_set_name, 33);
382: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
383: dbms_sql.define_column(child_set_cursor, 10, mapping_name, 33);
384: END IF;
377: dbms_sql.define_column(child_set_cursor, 5, from_ledger_id);
378: dbms_sql.define_column(child_set_cursor, 6, from_ledger_name, 200);
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
381: dbms_sql.define_column(child_set_cursor, 9, child_set_name, 33);
382: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
383: dbms_sql.define_column(child_set_cursor, 10, mapping_name, 33);
384: END IF;
385:
379: dbms_sql.define_column(child_set_cursor, 7, from_ledger_coa);
380: dbms_sql.define_column(child_set_cursor, 8, child_set_id);
381: dbms_sql.define_column(child_set_cursor, 9, child_set_name, 33);
382: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
383: dbms_sql.define_column(child_set_cursor, 10, mapping_name, 33);
384: END IF;
385:
386: dummy := dbms_sql.execute(child_set_cursor);
387:
382: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
383: dbms_sql.define_column(child_set_cursor, 10, mapping_name, 33);
384: END IF;
385:
386: dummy := dbms_sql.execute(child_set_cursor);
387:
388: -- build the select statement for the chart of account cursor
389: temp_child_seg := 'SELECT form_left_prompt ' ||
390: 'FROM fnd_id_flex_segments_tl ' ||
395: prior_child_set_id := NULL;
396: counter := 0;
397:
398: LOOP
399: row_count := dbms_sql.fetch_rows(child_set_cursor);
400: IF (row_count = 0) THEN
401: EXIT;
402: END IF;
403:
400: IF (row_count = 0) THEN
401: EXIT;
402: END IF;
403:
404: dbms_sql.column_value(child_set_cursor, 1, to_ledger_id);
405: dbms_sql.column_value(child_set_cursor, 2, to_ledger_name);
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
401: EXIT;
402: END IF;
403:
404: dbms_sql.column_value(child_set_cursor, 1, to_ledger_id);
405: dbms_sql.column_value(child_set_cursor, 2, to_ledger_name);
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
402: END IF;
403:
404: dbms_sql.column_value(child_set_cursor, 1, to_ledger_id);
405: dbms_sql.column_value(child_set_cursor, 2, to_ledger_name);
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
403:
404: dbms_sql.column_value(child_set_cursor, 1, to_ledger_id);
405: dbms_sql.column_value(child_set_cursor, 2, to_ledger_name);
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
404: dbms_sql.column_value(child_set_cursor, 1, to_ledger_id);
405: dbms_sql.column_value(child_set_cursor, 2, to_ledger_name);
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
412: dbms_sql.column_value(child_set_cursor, 9, child_set_name);
405: dbms_sql.column_value(child_set_cursor, 2, to_ledger_name);
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
412: dbms_sql.column_value(child_set_cursor, 9, child_set_name);
413: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
406: dbms_sql.column_value(child_set_cursor, 3, to_ledger_coa);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
412: dbms_sql.column_value(child_set_cursor, 9, child_set_name);
413: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
414: dbms_sql.column_value(child_set_cursor, 10, mapping_name);
407: dbms_sql.column_value(child_set_cursor, 4, mapping_set_name);
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
412: dbms_sql.column_value(child_set_cursor, 9, child_set_name);
413: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
414: dbms_sql.column_value(child_set_cursor, 10, mapping_name);
415: ELSE
408: dbms_sql.column_value(child_set_cursor, 5, from_ledger_id);
409: dbms_sql.column_value(child_set_cursor, 6, from_ledger_name);
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
412: dbms_sql.column_value(child_set_cursor, 9, child_set_name);
413: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
414: dbms_sql.column_value(child_set_cursor, 10, mapping_name);
415: ELSE
416: mapping_name := '';
410: dbms_sql.column_value(child_set_cursor, 7, from_ledger_coa);
411: dbms_sql.column_value(child_set_cursor, 8, child_set_id);
412: dbms_sql.column_value(child_set_cursor, 9, child_set_name);
413: IF (X_Display_Option = 'BOTH' or X_Display_Option = 'SET') THEN
414: dbms_sql.column_value(child_set_cursor, 10, mapping_name);
415: ELSE
416: mapping_name := '';
417: END IF;
418:
436: -- get parent chart of accounts information
437: child_seg := temp_child_seg ||
438: 'AND id_flex_num = ' || to_ledger_coa ;
439:
440: seg_cursor := dbms_sql.open_cursor;
441: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
442: dbms_sql.define_column(seg_cursor, 1, segment,80);
443: dummy := dbms_sql.execute(seg_cursor);
444:
437: child_seg := temp_child_seg ||
438: 'AND id_flex_num = ' || to_ledger_coa ;
439:
440: seg_cursor := dbms_sql.open_cursor;
441: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
442: dbms_sql.define_column(seg_cursor, 1, segment,80);
443: dummy := dbms_sql.execute(seg_cursor);
444:
445: row_count := dbms_sql.fetch_rows(seg_cursor);
438: 'AND id_flex_num = ' || to_ledger_coa ;
439:
440: seg_cursor := dbms_sql.open_cursor;
441: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
442: dbms_sql.define_column(seg_cursor, 1, segment,80);
443: dummy := dbms_sql.execute(seg_cursor);
444:
445: row_count := dbms_sql.fetch_rows(seg_cursor);
446: IF (row_count = 0) THEN
439:
440: seg_cursor := dbms_sql.open_cursor;
441: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
442: dbms_sql.define_column(seg_cursor, 1, segment,80);
443: dummy := dbms_sql.execute(seg_cursor);
444:
445: row_count := dbms_sql.fetch_rows(seg_cursor);
446: IF (row_count = 0) THEN
447: EXIT;
441: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
442: dbms_sql.define_column(seg_cursor, 1, segment,80);
443: dummy := dbms_sql.execute(seg_cursor);
444:
445: row_count := dbms_sql.fetch_rows(seg_cursor);
446: IF (row_count = 0) THEN
447: EXIT;
448: END IF;
449:
446: IF (row_count = 0) THEN
447: EXIT;
448: END IF;
449:
450: dbms_sql.column_value(seg_cursor, 1, segment);
451: to_ledger_name := to_ledger_name || segment;
452:
453: row_count := dbms_sql.fetch_rows(seg_cursor);
454: WHILE (row_count <> 0) LOOP
449:
450: dbms_sql.column_value(seg_cursor, 1, segment);
451: to_ledger_name := to_ledger_name || segment;
452:
453: row_count := dbms_sql.fetch_rows(seg_cursor);
454: WHILE (row_count <> 0) LOOP
455: dbms_sql.column_value(seg_cursor, 1, segment);
456: to_ledger_name := to_ledger_name || delim || segment;
457: row_count := dbms_sql.fetch_rows(seg_cursor);
451: to_ledger_name := to_ledger_name || segment;
452:
453: row_count := dbms_sql.fetch_rows(seg_cursor);
454: WHILE (row_count <> 0) LOOP
455: dbms_sql.column_value(seg_cursor, 1, segment);
456: to_ledger_name := to_ledger_name || delim || segment;
457: row_count := dbms_sql.fetch_rows(seg_cursor);
458: END LOOP;
459:
453: row_count := dbms_sql.fetch_rows(seg_cursor);
454: WHILE (row_count <> 0) LOOP
455: dbms_sql.column_value(seg_cursor, 1, segment);
456: to_ledger_name := to_ledger_name || delim || segment;
457: row_count := dbms_sql.fetch_rows(seg_cursor);
458: END LOOP;
459:
460: dbms_sql.close_cursor(seg_cursor);
461:
456: to_ledger_name := to_ledger_name || delim || segment;
457: row_count := dbms_sql.fetch_rows(seg_cursor);
458: END LOOP;
459:
460: dbms_sql.close_cursor(seg_cursor);
461:
462: -- get the delimiter
463: delim := fnd_flex_apis.get_segment_delimiter(
464: x_application_id => 101,
468: -- get subsidary chart of accounts information
469: child_seg := temp_child_seg ||
470: 'AND id_flex_num = ' || from_ledger_coa ;
471:
472: seg_cursor := dbms_sql.open_cursor;
473: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
474: dbms_sql.define_column(seg_cursor, 1, segment,80);
475: dummy := dbms_sql.execute(seg_cursor);
476:
469: child_seg := temp_child_seg ||
470: 'AND id_flex_num = ' || from_ledger_coa ;
471:
472: seg_cursor := dbms_sql.open_cursor;
473: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
474: dbms_sql.define_column(seg_cursor, 1, segment,80);
475: dummy := dbms_sql.execute(seg_cursor);
476:
477: row_count := dbms_sql.fetch_rows(seg_cursor);
470: 'AND id_flex_num = ' || from_ledger_coa ;
471:
472: seg_cursor := dbms_sql.open_cursor;
473: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
474: dbms_sql.define_column(seg_cursor, 1, segment,80);
475: dummy := dbms_sql.execute(seg_cursor);
476:
477: row_count := dbms_sql.fetch_rows(seg_cursor);
478: IF (row_count = 0) THEN
471:
472: seg_cursor := dbms_sql.open_cursor;
473: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
474: dbms_sql.define_column(seg_cursor, 1, segment,80);
475: dummy := dbms_sql.execute(seg_cursor);
476:
477: row_count := dbms_sql.fetch_rows(seg_cursor);
478: IF (row_count = 0) THEN
479: EXIT;
473: dbms_sql.parse(seg_cursor, child_seg, dbms_sql.v7);
474: dbms_sql.define_column(seg_cursor, 1, segment,80);
475: dummy := dbms_sql.execute(seg_cursor);
476:
477: row_count := dbms_sql.fetch_rows(seg_cursor);
478: IF (row_count = 0) THEN
479: EXIT;
480: END IF;
481:
478: IF (row_count = 0) THEN
479: EXIT;
480: END IF;
481:
482: dbms_sql.column_value(seg_cursor, 1, segment);
483: from_ledger_name := from_ledger_name || segment;
484:
485: row_count := dbms_sql.fetch_rows(seg_cursor);
486: WHILE (row_count <> 0) LOOP
481:
482: dbms_sql.column_value(seg_cursor, 1, segment);
483: from_ledger_name := from_ledger_name || segment;
484:
485: row_count := dbms_sql.fetch_rows(seg_cursor);
486: WHILE (row_count <> 0) LOOP
487: dbms_sql.column_value(seg_cursor, 1, segment);
488: from_ledger_name := from_ledger_name || delim || segment;
489: row_count := dbms_sql.fetch_rows(seg_cursor);
483: from_ledger_name := from_ledger_name || segment;
484:
485: row_count := dbms_sql.fetch_rows(seg_cursor);
486: WHILE (row_count <> 0) LOOP
487: dbms_sql.column_value(seg_cursor, 1, segment);
488: from_ledger_name := from_ledger_name || delim || segment;
489: row_count := dbms_sql.fetch_rows(seg_cursor);
490: END LOOP;
491:
485: row_count := dbms_sql.fetch_rows(seg_cursor);
486: WHILE (row_count <> 0) LOOP
487: dbms_sql.column_value(seg_cursor, 1, segment);
488: from_ledger_name := from_ledger_name || delim || segment;
489: row_count := dbms_sql.fetch_rows(seg_cursor);
490: END LOOP;
491:
492: dbms_sql.close_cursor(seg_cursor);
493:
488: from_ledger_name := from_ledger_name || delim || segment;
489: row_count := dbms_sql.fetch_rows(seg_cursor);
490: END LOOP;
491:
492: dbms_sql.close_cursor(seg_cursor);
493:
494: -- build the argument list
495: htp.p('