[Home] [Help]
2060: -- 29-JUN-2006 Added a parameter to store the unit price of tax currency
2061: -- by Shujuan for bug 5168900
2062: p_tax_curr_unit_price NUMBER;
2063:
2064: -- a prefix of parameter in bind_variable command of dbms sql.
2065: l_arg VARCHAR2(10);
2066:
2067: -- a flag which adjust the trx record is new,
2068: -- if dul_flag>1, the trx record is old ,else is new
2323: END;
2324: --end select parameters
2325:
2326: --open cursor
2327: l_cursor := dbms_sql.open_cursor;
2328:
2329: --parse the sql string;
2330: dbms_sql.parse(l_cursor, p_query_sql, dbms_sql.v7);
2331:
2326: --open cursor
2327: l_cursor := dbms_sql.open_cursor;
2328:
2329: --parse the sql string;
2330: dbms_sql.parse(l_cursor, p_query_sql, dbms_sql.v7);
2331:
2332: -- bind variable;
2333: dbms_sql.bind_variable(l_cursor, 'p_org_id', p_org_id);
2334:
2329: --parse the sql string;
2330: dbms_sql.parse(l_cursor, p_query_sql, dbms_sql.v7);
2331:
2332: -- bind variable;
2333: dbms_sql.bind_variable(l_cursor, 'p_org_id', p_org_id);
2334:
2335: -- bind trxtype_query_para
2336: l_index := p_trxtype_query_para.FIRST;
2337:
2336: l_index := p_trxtype_query_para.FIRST;
2337:
2338: WHILE l_index IS NOT NULL LOOP
2339: l_arg := 'trxtype' || l_index;
2340: dbms_sql.bind_variable(l_cursor,
2341: l_arg,
2342: p_trxtype_query_para(l_index));
2343: l_index := P_trxtype_query_para.NEXT(l_index);
2344: END LOOP;
2346: -- bind flex_query_para
2347: l_index := p_flex_query_para.FIRST;
2348: WHILE l_index IS NOT NULL LOOP
2349: l_arg := 'flex' || l_index;
2350: dbms_sql.bind_variable(l_cursor, l_arg, p_flex_query_para(l_index));
2351: l_index := p_flex_query_para.NEXT(l_index);
2352: END LOOP;
2353:
2354: -- bind other_query_para
2354: -- bind other_query_para
2355: l_index := p_other_query_para.FIRST;
2356: WHILE l_index IS NOT NULL LOOP
2357: l_arg := 'para' || l_index;
2358: dbms_sql.bind_variable(l_cursor, l_arg, p_other_query_para(l_index));
2359: l_index := p_other_query_para.NEXT(l_index);
2360: END LOOP;
2361:
2362: -- bind the condition of currency code.
2360: END LOOP;
2361:
2362: -- bind the condition of currency code.
2363: IF p_currency_code IS NOT NULL THEN
2364: dbms_sql.bind_variable(l_cursor, 'currency', p_currency_code);
2365: END IF;
2366:
2367: --define column
2368: dbms_sql.define_column(l_cursor, 1, l_customer_trx_id);
2364: dbms_sql.bind_variable(l_cursor, 'currency', p_currency_code);
2365: END IF;
2366:
2367: --define column
2368: dbms_sql.define_column(l_cursor, 1, l_customer_trx_id);
2369:
2370: --EXECUTE!
2371: l_sql_exec_ret := dbms_sql.EXECUTE(l_cursor);
2372:
2367: --define column
2368: dbms_sql.define_column(l_cursor, 1, l_customer_trx_id);
2369:
2370: --EXECUTE!
2371: l_sql_exec_ret := dbms_sql.EXECUTE(l_cursor);
2372:
2373: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2374: log(FND_LOG.LEVEL_PROCEDURE,
2375: G_MODULE_PREFIX || l_procedure_name,
2379: LOOP
2380: BEGIN
2381: -- for l_normal_exception
2382:
2383: l_sql_exec_ret := dbms_sql.fetch_rows(l_cursor);
2384:
2385: --initializing all the varibales required for exception
2386: l_ar_inv_excep := null;
2387: l_cm_excep := null;
2400: l_trx_lines := AR_GTA_TRX_UTIL.TRX_line_tbl_TYPE();
2401: l_error_flag := 0;
2402:
2403: -- get customer_trx_id of the AR_trx_header
2404: dbms_sql.column_value(l_cursor, 1, l_customer_trx_id);
2405:
2406: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2407: log(FND_LOG.LEVEL_PROCEDURE,
2408: G_MODULE_PREFIX || l_procedure_name,
4245:
4246: END LOOP;
4247:
4248: -- close dynamic sql cursor
4249: dbms_sql.close_cursor(l_cursor);
4250:
4251: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4252: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
4253: G_MODULE_PREFIX || l_procedure_name,