467: l_tokennam2 := '&' || 'QTY2';
468:
469: -- Setup the SQL Statement
470:
471: cur_insert := dbms_sql.open_cursor;
472: dbms_sql.parse(cur_insert, p_sqlstring, dbms_sql.v7);
473:
474: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
475:
468:
469: -- Setup the SQL Statement
470:
471: cur_insert := dbms_sql.open_cursor;
472: dbms_sql.parse(cur_insert, p_sqlstring, dbms_sql.v7);
473:
474: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
475:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
470:
471: cur_insert := dbms_sql.open_cursor;
472: dbms_sql.parse(cur_insert, p_sqlstring, dbms_sql.v7);
473:
474: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
475:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
477: dbms_sql.define_column(cur_insert, 2, l_shipnum);
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
472: dbms_sql.parse(cur_insert, p_sqlstring, dbms_sql.v7);
473:
474: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
475:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
477: dbms_sql.define_column(cur_insert, 2, l_shipnum);
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
479: dbms_sql.define_column(cur_insert, 4, l_tokenval1);
480: dbms_sql.define_column(cur_insert, 5, l_tokenval2);
473:
474: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
475:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
477: dbms_sql.define_column(cur_insert, 2, l_shipnum);
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
479: dbms_sql.define_column(cur_insert, 4, l_tokenval1);
480: dbms_sql.define_column(cur_insert, 5, l_tokenval2);
481:
474: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
475:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
477: dbms_sql.define_column(cur_insert, 2, l_shipnum);
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
479: dbms_sql.define_column(cur_insert, 4, l_tokenval1);
480: dbms_sql.define_column(cur_insert, 5, l_tokenval2);
481:
482: num_insert := dbms_sql.execute(cur_insert);
475:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
477: dbms_sql.define_column(cur_insert, 2, l_shipnum);
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
479: dbms_sql.define_column(cur_insert, 4, l_tokenval1);
480: dbms_sql.define_column(cur_insert, 5, l_tokenval2);
481:
482: num_insert := dbms_sql.execute(cur_insert);
483:
476: dbms_sql.define_column(cur_insert, 1, l_linenum);
477: dbms_sql.define_column(cur_insert, 2, l_shipnum);
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
479: dbms_sql.define_column(cur_insert, 4, l_tokenval1);
480: dbms_sql.define_column(cur_insert, 5, l_tokenval2);
481:
482: num_insert := dbms_sql.execute(cur_insert);
483:
484: loop
478: dbms_sql.define_column(cur_insert, 3, l_distnum);
479: dbms_sql.define_column(cur_insert, 4, l_tokenval1);
480: dbms_sql.define_column(cur_insert, 5, l_tokenval2);
481:
482: num_insert := dbms_sql.execute(cur_insert);
483:
484: loop
485:
486: if dbms_sql.fetch_rows(cur_insert) > 0 then
482: num_insert := dbms_sql.execute(cur_insert);
483:
484: loop
485:
486: if dbms_sql.fetch_rows(cur_insert) > 0 then
487:
488: dbms_sql.column_value(cur_insert, 1, l_linenum);
489: dbms_sql.column_value(cur_insert, 2, l_shipnum);
490: dbms_sql.column_value(cur_insert, 3, l_distnum);
484: loop
485:
486: if dbms_sql.fetch_rows(cur_insert) > 0 then
487:
488: dbms_sql.column_value(cur_insert, 1, l_linenum);
489: dbms_sql.column_value(cur_insert, 2, l_shipnum);
490: dbms_sql.column_value(cur_insert, 3, l_distnum);
491: dbms_sql.column_value(cur_insert, 4, l_tokenval1);
492: dbms_sql.column_value(cur_insert, 5, l_tokenval2);
485:
486: if dbms_sql.fetch_rows(cur_insert) > 0 then
487:
488: dbms_sql.column_value(cur_insert, 1, l_linenum);
489: dbms_sql.column_value(cur_insert, 2, l_shipnum);
490: dbms_sql.column_value(cur_insert, 3, l_distnum);
491: dbms_sql.column_value(cur_insert, 4, l_tokenval1);
492: dbms_sql.column_value(cur_insert, 5, l_tokenval2);
493:
486: if dbms_sql.fetch_rows(cur_insert) > 0 then
487:
488: dbms_sql.column_value(cur_insert, 1, l_linenum);
489: dbms_sql.column_value(cur_insert, 2, l_shipnum);
490: dbms_sql.column_value(cur_insert, 3, l_distnum);
491: dbms_sql.column_value(cur_insert, 4, l_tokenval1);
492: dbms_sql.column_value(cur_insert, 5, l_tokenval2);
493:
494: l_message := replace(l_message, l_tokennam1, l_tokenval1);
487:
488: dbms_sql.column_value(cur_insert, 1, l_linenum);
489: dbms_sql.column_value(cur_insert, 2, l_shipnum);
490: dbms_sql.column_value(cur_insert, 3, l_distnum);
491: dbms_sql.column_value(cur_insert, 4, l_tokenval1);
492: dbms_sql.column_value(cur_insert, 5, l_tokenval2);
493:
494: l_message := replace(l_message, l_tokennam1, l_tokenval1);
495: l_message := replace(l_message, l_tokennam2, l_tokenval2);
488: dbms_sql.column_value(cur_insert, 1, l_linenum);
489: dbms_sql.column_value(cur_insert, 2, l_shipnum);
490: dbms_sql.column_value(cur_insert, 3, l_distnum);
491: dbms_sql.column_value(cur_insert, 4, l_tokenval1);
492: dbms_sql.column_value(cur_insert, 5, l_tokenval2);
493:
494: l_message := replace(l_message, l_tokennam1, l_tokenval1);
495: l_message := replace(l_message, l_tokennam2, l_tokenval2);
496:
550: end if;
551:
552: end loop;
553:
554: dbms_sql.close_cursor(cur_insert);
555:
556: if l_found then
557:
558: g_dbug := g_dbug ||
570: EXCEPTION
571:
572: WHEN OTHERS THEN
573:
574: if dbms_sql.is_open(cur_insert) then
575: dbms_sql.close_cursor(cur_insert);
576: end if;
577:
578: PO_MESSAGE_S.SQL_ERROR(routine => 'PO_ONLINE_REPORT',
571:
572: WHEN OTHERS THEN
573:
574: if dbms_sql.is_open(cur_insert) then
575: dbms_sql.close_cursor(cur_insert);
576: end if;
577:
578: PO_MESSAGE_S.SQL_ERROR(routine => 'PO_ONLINE_REPORT',
579: location => '045',
709:
710: sql_insert := sql_insert ||
711: p_sqlstring;
712:
713: cur_insert := dbms_sql.open_cursor;
714: dbms_sql.parse(cur_insert, sql_insert, dbms_sql.v7);
715:
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
710: sql_insert := sql_insert ||
711: p_sqlstring;
712:
713: cur_insert := dbms_sql.open_cursor;
714: dbms_sql.parse(cur_insert, sql_insert, dbms_sql.v7);
715:
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
712:
713: cur_insert := dbms_sql.open_cursor;
714: dbms_sql.parse(cur_insert, sql_insert, dbms_sql.v7);
715:
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
719: dbms_sql.bind_variable(cur_insert, 'sequence', p_sequence);
720: dbms_sql.bind_variable(cur_insert, 'msg_text', l_textline);
713: cur_insert := dbms_sql.open_cursor;
714: dbms_sql.parse(cur_insert, sql_insert, dbms_sql.v7);
715:
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
719: dbms_sql.bind_variable(cur_insert, 'sequence', p_sequence);
720: dbms_sql.bind_variable(cur_insert, 'msg_text', l_textline);
721: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
714: dbms_sql.parse(cur_insert, sql_insert, dbms_sql.v7);
715:
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
719: dbms_sql.bind_variable(cur_insert, 'sequence', p_sequence);
720: dbms_sql.bind_variable(cur_insert, 'msg_text', l_textline);
721: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
722:
715:
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
719: dbms_sql.bind_variable(cur_insert, 'sequence', p_sequence);
720: dbms_sql.bind_variable(cur_insert, 'msg_text', l_textline);
721: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
722:
723: -- Conditional Bind Variables
716: dbms_sql.bind_variable(cur_insert, 'online_report_id', p_reportid);
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
719: dbms_sql.bind_variable(cur_insert, 'sequence', p_sequence);
720: dbms_sql.bind_variable(cur_insert, 'msg_text', l_textline);
721: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
722:
723: -- Conditional Bind Variables
724:
717: dbms_sql.bind_variable(cur_insert, 'last_update_login', l_loginid);
718: dbms_sql.bind_variable(cur_insert, 'last_user_id', l_userid);
719: dbms_sql.bind_variable(cur_insert, 'sequence', p_sequence);
720: dbms_sql.bind_variable(cur_insert, 'msg_text', l_textline);
721: dbms_sql.bind_variable(cur_insert, 'docid', l_docid);
722:
723: -- Conditional Bind Variables
724:
725: if INSTR(sql_insert, ':line_heading', 1) > 0 then
722:
723: -- Conditional Bind Variables
724:
725: if INSTR(sql_insert, ':line_heading', 1) > 0 then
726: dbms_sql.bind_variable(cur_insert, 'line_heading', l_linemsg);
727: end if;
728:
729: if INSTR(sql_insert, ':ship_heading', 1) > 0 then
730: dbms_sql.bind_variable(cur_insert, 'ship_heading', l_shipmsg);
726: dbms_sql.bind_variable(cur_insert, 'line_heading', l_linemsg);
727: end if;
728:
729: if INSTR(sql_insert, ':ship_heading', 1) > 0 then
730: dbms_sql.bind_variable(cur_insert, 'ship_heading', l_shipmsg);
731: end if;
732:
733: if INSTR(sql_insert, ':dist_heading', 1) > 0 then
734: dbms_sql.bind_variable(cur_insert, 'dist_heading', l_distmsg);
730: dbms_sql.bind_variable(cur_insert, 'ship_heading', l_shipmsg);
731: end if;
732:
733: if INSTR(sql_insert, ':dist_heading', 1) > 0 then
734: dbms_sql.bind_variable(cur_insert, 'dist_heading', l_distmsg);
735: end if;
736:
737: if INSTR(sql_insert, ':action_date', 1) > 0 then
738: dbms_sql.bind_variable(cur_insert, 'action_date', p_action_date);
734: dbms_sql.bind_variable(cur_insert, 'dist_heading', l_distmsg);
735: end if;
736:
737: if INSTR(sql_insert, ':action_date', 1) > 0 then
738: dbms_sql.bind_variable(cur_insert, 'action_date', p_action_date);
739: end if;
740:
741: num_insert := dbms_sql.execute(cur_insert);
742:
737: if INSTR(sql_insert, ':action_date', 1) > 0 then
738: dbms_sql.bind_variable(cur_insert, 'action_date', p_action_date);
739: end if;
740:
741: num_insert := dbms_sql.execute(cur_insert);
742:
743: dbms_sql.close_cursor(cur_insert);
744:
745: if num_insert <> 0 then
739: end if;
740:
741: num_insert := dbms_sql.execute(cur_insert);
742:
743: dbms_sql.close_cursor(cur_insert);
744:
745: if num_insert <> 0 then
746:
747: g_dbug := g_dbug ||
760: EXCEPTION
761:
762: WHEN OTHERS THEN
763:
764: if dbms_sql.is_open(cur_insert) then
765: dbms_sql.close_cursor(cur_insert);
766: end if;
767:
768: PO_MESSAGE_S.SQL_ERROR(routine => 'PO_ONLINE_REPORT',
761:
762: WHEN OTHERS THEN
763:
764: if dbms_sql.is_open(cur_insert) then
765: dbms_sql.close_cursor(cur_insert);
766: end if;
767:
768: PO_MESSAGE_S.SQL_ERROR(routine => 'PO_ONLINE_REPORT',
769: location => '060',