442: begin
443: statem := 'BEGIN
444: :header_check := pay_'||lower(l_legislation_code)||'_bee.header_check_supported; END;';
445: --
446: sql_curs := dbms_sql.open_cursor;
447: --
448: dbms_sql.parse(sql_curs,
449: statem,
450: dbms_sql.v7);
444: :header_check := pay_'||lower(l_legislation_code)||'_bee.header_check_supported; END;';
445: --
446: sql_curs := dbms_sql.open_cursor;
447: --
448: dbms_sql.parse(sql_curs,
449: statem,
450: dbms_sql.v7);
451: --
452: dbms_sql.bind_variable(sql_curs, 'header_check', l_header_check);
446: sql_curs := dbms_sql.open_cursor;
447: --
448: dbms_sql.parse(sql_curs,
449: statem,
450: dbms_sql.v7);
451: --
452: dbms_sql.bind_variable(sql_curs, 'header_check', l_header_check);
453: --
454: rows_processed := dbms_sql.execute(sql_curs);
448: dbms_sql.parse(sql_curs,
449: statem,
450: dbms_sql.v7);
451: --
452: dbms_sql.bind_variable(sql_curs, 'header_check', l_header_check);
453: --
454: rows_processed := dbms_sql.execute(sql_curs);
455: --
456: dbms_sql.variable_value(sql_curs, 'header_check', l_header_check);
450: dbms_sql.v7);
451: --
452: dbms_sql.bind_variable(sql_curs, 'header_check', l_header_check);
453: --
454: rows_processed := dbms_sql.execute(sql_curs);
455: --
456: dbms_sql.variable_value(sql_curs, 'header_check', l_header_check);
457: --
458: dbms_sql.close_cursor(sql_curs);
452: dbms_sql.bind_variable(sql_curs, 'header_check', l_header_check);
453: --
454: rows_processed := dbms_sql.execute(sql_curs);
455: --
456: dbms_sql.variable_value(sql_curs, 'header_check', l_header_check);
457: --
458: dbms_sql.close_cursor(sql_curs);
459: --
460: if l_header_check = 0 then
454: rows_processed := dbms_sql.execute(sql_curs);
455: --
456: dbms_sql.variable_value(sql_curs, 'header_check', l_header_check);
457: --
458: dbms_sql.close_cursor(sql_curs);
459: --
460: if l_header_check = 0 then
461: l_leg_header_check := TRUE;
462: else
467: exception
468: when others then
469: l_leg_header_check := FALSE;
470: --
471: if dbms_sql.is_open(sql_curs) then
472: dbms_sql.close_cursor(sql_curs);
473: end if;
474: --
475: end;
468: when others then
469: l_leg_header_check := FALSE;
470: --
471: if dbms_sql.is_open(sql_curs) then
472: dbms_sql.close_cursor(sql_curs);
473: end if;
474: --
475: end;
476: --
480: -- begin
481: -- statem := 'BEGIN
482: -- :line_check := pay_'||lower(l_legislation_code)||'_bee.line_check_supported; END;';
483: -- --
484: -- sql_curs := dbms_sql.open_cursor;
485: -- --
486: -- dbms_sql.parse(sql_curs,
487: -- statem,
488: -- dbms_sql.v7);
482: -- :line_check := pay_'||lower(l_legislation_code)||'_bee.line_check_supported; END;';
483: -- --
484: -- sql_curs := dbms_sql.open_cursor;
485: -- --
486: -- dbms_sql.parse(sql_curs,
487: -- statem,
488: -- dbms_sql.v7);
489: -- --
490: -- dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
484: -- sql_curs := dbms_sql.open_cursor;
485: -- --
486: -- dbms_sql.parse(sql_curs,
487: -- statem,
488: -- dbms_sql.v7);
489: -- --
490: -- dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
491: -- --
492: -- rows_processed := dbms_sql.execute(sql_curs);
486: -- dbms_sql.parse(sql_curs,
487: -- statem,
488: -- dbms_sql.v7);
489: -- --
490: -- dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
491: -- --
492: -- rows_processed := dbms_sql.execute(sql_curs);
493: -- --
494: -- dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
488: -- dbms_sql.v7);
489: -- --
490: -- dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
491: -- --
492: -- rows_processed := dbms_sql.execute(sql_curs);
493: -- --
494: -- dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
495: -- --
496: -- dbms_sql.close_cursor(sql_curs);
490: -- dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
491: -- --
492: -- rows_processed := dbms_sql.execute(sql_curs);
493: -- --
494: -- dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
495: -- --
496: -- dbms_sql.close_cursor(sql_curs);
497: -- --
498: -- if l_line_check = 0 then
492: -- rows_processed := dbms_sql.execute(sql_curs);
493: -- --
494: -- dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
495: -- --
496: -- dbms_sql.close_cursor(sql_curs);
497: -- --
498: -- if l_line_check = 0 then
499: -- l_leg_line_check := TRUE;
500: -- else
504: -- exception
505: -- when others then
506: -- l_leg_line_check := FALSE;
507: -- --
508: -- if dbms_sql.is_open(sql_curs) then
509: -- dbms_sql.close_cursor(sql_curs);
510: -- end if;
511: -- --
512: -- end;
505: -- when others then
506: -- l_leg_line_check := FALSE;
507: -- --
508: -- if dbms_sql.is_open(sql_curs) then
509: -- dbms_sql.close_cursor(sql_curs);
510: -- end if;
511: -- --
512: -- end;
513: --
1780: begin
1781: statem := 'BEGIN
1782: pay_'||lower(l_legislation_code)||'_bee.validate_header(:batch_id, :valid, :leg_message); END;';
1783: --
1784: sql_curs := dbms_sql.open_cursor;
1785: --
1786: dbms_sql.parse(sql_curs,
1787: statem,
1788: dbms_sql.v7);
1782: pay_'||lower(l_legislation_code)||'_bee.validate_header(:batch_id, :valid, :leg_message); END;';
1783: --
1784: sql_curs := dbms_sql.open_cursor;
1785: --
1786: dbms_sql.parse(sql_curs,
1787: statem,
1788: dbms_sql.v7);
1789: --
1790: dbms_sql.bind_variable(sql_curs, 'batch_id', p_batch_id);
1784: sql_curs := dbms_sql.open_cursor;
1785: --
1786: dbms_sql.parse(sql_curs,
1787: statem,
1788: dbms_sql.v7);
1789: --
1790: dbms_sql.bind_variable(sql_curs, 'batch_id', p_batch_id);
1791: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
1792: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
1786: dbms_sql.parse(sql_curs,
1787: statem,
1788: dbms_sql.v7);
1789: --
1790: dbms_sql.bind_variable(sql_curs, 'batch_id', p_batch_id);
1791: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
1792: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
1793: --
1794: rows_processed := dbms_sql.execute(sql_curs);
1787: statem,
1788: dbms_sql.v7);
1789: --
1790: dbms_sql.bind_variable(sql_curs, 'batch_id', p_batch_id);
1791: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
1792: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
1793: --
1794: rows_processed := dbms_sql.execute(sql_curs);
1795: --
1788: dbms_sql.v7);
1789: --
1790: dbms_sql.bind_variable(sql_curs, 'batch_id', p_batch_id);
1791: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
1792: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
1793: --
1794: rows_processed := dbms_sql.execute(sql_curs);
1795: --
1796: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
1790: dbms_sql.bind_variable(sql_curs, 'batch_id', p_batch_id);
1791: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
1792: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
1793: --
1794: rows_processed := dbms_sql.execute(sql_curs);
1795: --
1796: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
1797: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
1798: --
1792: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
1793: --
1794: rows_processed := dbms_sql.execute(sql_curs);
1795: --
1796: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
1797: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
1798: --
1799: dbms_sql.close_cursor(sql_curs);
1800: --
1793: --
1794: rows_processed := dbms_sql.execute(sql_curs);
1795: --
1796: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
1797: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
1798: --
1799: dbms_sql.close_cursor(sql_curs);
1800: --
1801: exception
1795: --
1796: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
1797: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
1798: --
1799: dbms_sql.close_cursor(sql_curs);
1800: --
1801: exception
1802: when others then
1803: --
1800: --
1801: exception
1802: when others then
1803: --
1804: if dbms_sql.is_open(sql_curs) then
1805: dbms_sql.close_cursor(sql_curs);
1806: end if;
1807: --
1808: -- update pay_batch_headers bah
1801: exception
1802: when others then
1803: --
1804: if dbms_sql.is_open(sql_curs) then
1805: dbms_sql.close_cursor(sql_curs);
1806: end if;
1807: --
1808: -- update pay_batch_headers bah
1809: -- set bah.batch_status = 'E'
3128: :line_check := pay_'||lower(l_legislation_code)||'_bee.line_check_supported; END;';
3129: --
3130: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3131: --
3132: dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
3133: --
3134: rows_processed := dbms_sql.execute(sql_curs);
3135: --
3136: dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
3130: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3131: --
3132: dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
3133: --
3134: rows_processed := dbms_sql.execute(sql_curs);
3135: --
3136: dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
3137: --
3138: if l_line_check = 0 then
3132: dbms_sql.bind_variable(sql_curs, 'line_check', l_line_check);
3133: --
3134: rows_processed := dbms_sql.execute(sql_curs);
3135: --
3136: dbms_sql.variable_value(sql_curs, 'line_check', l_line_check);
3137: --
3138: if l_line_check = 0 then
3139: l_leg_line_check := TRUE;
3140: else
3896: pay_'||lower(l_legislation_code)||'_bee.validate_line(:batch_line_id, :valid, :leg_message, :line_changed); END;';
3897: --
3898: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3899: --
3900: dbms_sql.bind_variable(sql_curs, 'batch_line_id', g_line_record.batch_line_id);
3901: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
3902: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
3903: dbms_sql.bind_variable(sql_curs, 'line_changed', l_line_changed);
3904: --
3897: --
3898: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3899: --
3900: dbms_sql.bind_variable(sql_curs, 'batch_line_id', g_line_record.batch_line_id);
3901: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
3902: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
3903: dbms_sql.bind_variable(sql_curs, 'line_changed', l_line_changed);
3904: --
3905: rows_processed := dbms_sql.execute(sql_curs);
3898: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3899: --
3900: dbms_sql.bind_variable(sql_curs, 'batch_line_id', g_line_record.batch_line_id);
3901: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
3902: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
3903: dbms_sql.bind_variable(sql_curs, 'line_changed', l_line_changed);
3904: --
3905: rows_processed := dbms_sql.execute(sql_curs);
3906: --
3899: --
3900: dbms_sql.bind_variable(sql_curs, 'batch_line_id', g_line_record.batch_line_id);
3901: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
3902: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
3903: dbms_sql.bind_variable(sql_curs, 'line_changed', l_line_changed);
3904: --
3905: rows_processed := dbms_sql.execute(sql_curs);
3906: --
3907: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
3901: dbms_sql.bind_variable(sql_curs, 'valid', l_valid);
3902: dbms_sql.bind_variable(sql_curs, 'leg_message', l_leg_message, 240);
3903: dbms_sql.bind_variable(sql_curs, 'line_changed', l_line_changed);
3904: --
3905: rows_processed := dbms_sql.execute(sql_curs);
3906: --
3907: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
3908: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
3909: dbms_sql.variable_value(sql_curs, 'line_changed', l_line_changed);
3903: dbms_sql.bind_variable(sql_curs, 'line_changed', l_line_changed);
3904: --
3905: rows_processed := dbms_sql.execute(sql_curs);
3906: --
3907: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
3908: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
3909: dbms_sql.variable_value(sql_curs, 'line_changed', l_line_changed);
3910: --
3911: else
3904: --
3905: rows_processed := dbms_sql.execute(sql_curs);
3906: --
3907: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
3908: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
3909: dbms_sql.variable_value(sql_curs, 'line_changed', l_line_changed);
3910: --
3911: else
3912: raise error_occurred;
3905: rows_processed := dbms_sql.execute(sql_curs);
3906: --
3907: dbms_sql.variable_value(sql_curs, 'valid', l_valid);
3908: dbms_sql.variable_value(sql_curs, 'leg_message', l_leg_message);
3909: dbms_sql.variable_value(sql_curs, 'line_changed', l_line_changed);
3910: --
3911: else
3912: raise error_occurred;
3913: end if;