453: g_message := ' Processing Fv_Tpp_Check_Detail records ...';
454: Log_Message(FND_LOG.LEVEL_STATEMENT,l_module_name,g_message);
455:
456: BEGIN
457: l_row_cursor := DBMS_SQL.OPEN_CURSOR;
458: EXCEPTION
459: WHEN OTHERS THEN
460: g_retcode := SQLCODE;
461: g_errbuf := SQLERRM ||
524: Log_Message(FND_LOG.LEVEL_STATEMENT,l_module_name,g_message);
525: Log_Message(FND_LOG.LEVEL_STATEMENT,l_module_name,'');
526:
527: BEGIN
528: DBMS_SQL.PARSE(l_row_cursor, l_row_select, DBMS_SQL.V7);
529: EXCEPTION
530: WHEN OTHERS THEN
531: g_retcode := SQLCODE;
532: g_errbuf := SQLERRM ||
533: ' -- Error when parsing through the cursor in Process_Tpp_Check_Detail_Recs Procedure';
534: Log_Message(FND_LOG.LEVEL_ERROR,l_module_name,g_errbuf, 'N');
535: END;
536:
537: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 1, l_assignment_id);
538: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 2, l_original_supplier_id);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
534: Log_Message(FND_LOG.LEVEL_ERROR,l_module_name,g_errbuf, 'N');
535: END;
536:
537: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 1, l_assignment_id);
538: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 2, l_original_supplier_id);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
535: END;
536:
537: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 1, l_assignment_id);
538: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 2, l_original_supplier_id);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
543: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 7, l_check_num_fvtpp);
536:
537: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 1, l_assignment_id);
538: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 2, l_original_supplier_id);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
543: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 7, l_check_num_fvtpp);
544:
537: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 1, l_assignment_id);
538: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 2, l_original_supplier_id);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
543: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 7, l_check_num_fvtpp);
544:
545: BEGIN
538: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 2, l_original_supplier_id);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
543: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 7, l_check_num_fvtpp);
544:
545: BEGIN
546: l_exec_ret := DBMS_SQL.EXECUTE(l_row_cursor);
539: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 3, l_original_site_id);
540: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 4, l_third_party_agent_id);
541: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 5, l_third_party_site_id);
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
543: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 7, l_check_num_fvtpp);
544:
545: BEGIN
546: l_exec_ret := DBMS_SQL.EXECUTE(l_row_cursor);
547: EXCEPTION
542: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 6, l_checkrun_name, 50);
543: DBMS_SQL.DEFINE_COLUMN(l_row_cursor, 7, l_check_num_fvtpp);
544:
545: BEGIN
546: l_exec_ret := DBMS_SQL.EXECUTE(l_row_cursor);
547: EXCEPTION
548: WHEN OTHERS THEN
549: g_retcode := SQLCODE;
550: g_errbuf := SQLERRM ||
575: l_invoice_amount := NULL;
576: l_discount_amount := NULL;
577: l_check_num_fvtpp := NULL;
578:
579: l_row_fetch := DBMS_SQL.FETCH_ROWS(l_row_cursor);
580:
581: IF (l_row_fetch = 0)
582: THEN
583: IF (k = 0)
593: END IF;
594:
595: k := k + 1;
596:
597: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 1, l_assignment_id);
598: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 2, l_original_supplier_id);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
594:
595: k := k + 1;
596:
597: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 1, l_assignment_id);
598: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 2, l_original_supplier_id);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
602: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 6, l_checkrun_name);
595: k := k + 1;
596:
597: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 1, l_assignment_id);
598: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 2, l_original_supplier_id);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
602: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 6, l_checkrun_name);
603: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 7, l_check_num_fvtpp);
596:
597: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 1, l_assignment_id);
598: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 2, l_original_supplier_id);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
602: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 6, l_checkrun_name);
603: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 7, l_check_num_fvtpp);
604:
597: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 1, l_assignment_id);
598: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 2, l_original_supplier_id);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
602: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 6, l_checkrun_name);
603: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 7, l_check_num_fvtpp);
604:
605: g_message := ' Assignment Id: '|| l_assignment_id;
598: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 2, l_original_supplier_id);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
602: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 6, l_checkrun_name);
603: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 7, l_check_num_fvtpp);
604:
605: g_message := ' Assignment Id: '|| l_assignment_id;
606: Log_Message(FND_LOG.LEVEL_STATEMENT,l_module_name,g_message);
599: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 3, l_original_site_id);
600: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 4, l_third_party_agent_id);
601: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 5, l_third_party_site_id);
602: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 6, l_checkrun_name);
603: DBMS_SQL.COLUMN_VALUE(l_row_cursor, 7, l_check_num_fvtpp);
604:
605: g_message := ' Assignment Id: '|| l_assignment_id;
606: Log_Message(FND_LOG.LEVEL_STATEMENT,l_module_name,g_message);
607:
746: l_discount_amount);
747: END LOOP; /* l_checks_invoices_rec */
748: END LOOP;
749:
750: DBMS_SQL.CLOSE_CURSOR(l_row_cursor);
751:
752: EXCEPTION
753: WHEN OTHERS THEN
754: g_retcode := SQLCODE;