DBA Data[Home] [Help]

APPS.AR_INVOICE_VALIDATE_FLEX dependencies on DBMS_SQL

Line 293: l_cursor := dbms_sql.open_cursor;

289: /*---------------------------------------------------+
290: | Open, Parse and Execute the constructed SQL stmt |
291: +---------------------------------------------------*/
292:
293: l_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(l_cursor, l_stmt, dbms_sql.v7);
295:
296: IF (p_table_name = 'RA_CUSTOMER_TRX_LINES')
297: THEN pg_ctl_cursors( p_context_index ) := l_cursor;

Line 294: dbms_sql.parse(l_cursor, l_stmt, dbms_sql.v7);

290: | Open, Parse and Execute the constructed SQL stmt |
291: +---------------------------------------------------*/
292:
293: l_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(l_cursor, l_stmt, dbms_sql.v7);
295:
296: IF (p_table_name = 'RA_CUSTOMER_TRX_LINES')
297: THEN pg_ctl_cursors( p_context_index ) := l_cursor;
298: ELSE pg_ril_cursors( p_context_index ) := l_cursor;

Line 329: dbms_sql.bind_variable( p_cursor,

325: IF pg_debug = 'Y'
326: THEN
327: ar_invoice_utils.debug('Bind_Variables()+');
328: END IF;
329: dbms_sql.bind_variable( p_cursor,
330: p_bind_variable,
331: p_value );
332: IF pg_debug = 'Y'
333: THEN

Line 731: dbms_sql.define_column( p_cursor, 1, l_customer_trx_id);

727: THEN
728: ar_invoice_utils.debug('check_uniqueness()+');
729: END IF;
730:
731: dbms_sql.define_column( p_cursor, 1, l_customer_trx_id);
732: dbms_sql.define_column( p_cursor, 2, l_customer_trx_line_id);
733:
734: l_dummy := dbms_sql.execute(p_cursor);
735: l_rows := dbms_sql.fetch_rows(p_cursor);

Line 732: dbms_sql.define_column( p_cursor, 2, l_customer_trx_line_id);

728: ar_invoice_utils.debug('check_uniqueness()+');
729: END IF;
730:
731: dbms_sql.define_column( p_cursor, 1, l_customer_trx_id);
732: dbms_sql.define_column( p_cursor, 2, l_customer_trx_line_id);
733:
734: l_dummy := dbms_sql.execute(p_cursor);
735: l_rows := dbms_sql.fetch_rows(p_cursor);
736:

Line 734: l_dummy := dbms_sql.execute(p_cursor);

730:
731: dbms_sql.define_column( p_cursor, 1, l_customer_trx_id);
732: dbms_sql.define_column( p_cursor, 2, l_customer_trx_line_id);
733:
734: l_dummy := dbms_sql.execute(p_cursor);
735: l_rows := dbms_sql.fetch_rows(p_cursor);
736:
737:
738: /*-------------------------------------------------------------+

Line 735: l_rows := dbms_sql.fetch_rows(p_cursor);

731: dbms_sql.define_column( p_cursor, 1, l_customer_trx_id);
732: dbms_sql.define_column( p_cursor, 2, l_customer_trx_line_id);
733:
734: l_dummy := dbms_sql.execute(p_cursor);
735: l_rows := dbms_sql.fetch_rows(p_cursor);
736:
737:
738: /*-------------------------------------------------------------+
739: | If more than one matching rows are found then the flex is |

Line 746: dbms_sql.column_value( p_cursor, 1, l_customer_trx_id);

742: +-------------------------------------------------------------*/
743:
744: IF (l_rows > 0 and p_table_name = 'RA_CUSTOMER_TRX_LINES' )
745: THEN
746: dbms_sql.column_value( p_cursor, 1, l_customer_trx_id);
747: dbms_sql.column_value( p_cursor, 2, l_customer_trx_line_id);
748: p_customer_trx_id := l_customer_trx_id;
749: p_customer_trx_line_id := l_customer_trx_line_id;
750:

Line 747: dbms_sql.column_value( p_cursor, 2, l_customer_trx_line_id);

743:
744: IF (l_rows > 0 and p_table_name = 'RA_CUSTOMER_TRX_LINES' )
745: THEN
746: dbms_sql.column_value( p_cursor, 1, l_customer_trx_id);
747: dbms_sql.column_value( p_cursor, 2, l_customer_trx_line_id);
748: p_customer_trx_id := l_customer_trx_id;
749: p_customer_trx_line_id := l_customer_trx_line_id;
750:
751: IF pg_debug = 'Y'

Line 758: dbms_sql.column_value( p_cursor, 1, l_customer_trx_id);

754: END IF;
755: return(FALSE);
756: ELSIF ( l_rows > 1 and p_table_name = 'AR_TRX_LINES_GT' )
757: THEN
758: dbms_sql.column_value( p_cursor, 1, l_customer_trx_id);
759: dbms_sql.column_value( p_cursor, 2, l_customer_trx_line_id);
760: p_customer_trx_id := l_customer_trx_id;
761: p_customer_trx_line_id := l_customer_trx_line_id;
762: IF pg_debug = 'Y'

Line 759: dbms_sql.column_value( p_cursor, 2, l_customer_trx_line_id);

755: return(FALSE);
756: ELSIF ( l_rows > 1 and p_table_name = 'AR_TRX_LINES_GT' )
757: THEN
758: dbms_sql.column_value( p_cursor, 1, l_customer_trx_id);
759: dbms_sql.column_value( p_cursor, 2, l_customer_trx_line_id);
760: p_customer_trx_id := l_customer_trx_id;
761: p_customer_trx_line_id := l_customer_trx_line_id;
762: IF pg_debug = 'Y'
763: THEN

Line 783: THEN dbms_sql.close_cursor(p_cursor);

779: ar_invoice_utils.debug('EXCEPTION : check_uniqueness()');
780: ar_invoice_utils.debug('p_cursor : '|| p_cursor);
781: END IF;
782: IF (p_cursor IS NOT NULL)
783: THEN dbms_sql.close_cursor(p_cursor);
784: END IF;
785:
786: RAISE;
787: END check_uniqueness;