3917: -- PROCEDURE : purge_expense_lines_itf_data
3918: -- ASSUMES : UI validates location code, property code and expense extr code
3919: -- DESCRIPTION:
3920: -- 1. Purges data from interface table based on the given parameters.
3921: -- 2. Used dbms_SQL to build the query.
3922: --
3923: -- HISTORY:
3924: -- 18-APR-03 ftanudja o created
3925: -- 24-MAY-04 ftanudja o fixed from date / to date logic
3975: DELETE pn_rec_exp_itf;
3976: return;
3977: END IF;
3978: pnp_debug_pkg.log('p_extract_code='||p_extract_code);
3979: l_cursor := dbms_sql.open_cursor;
3980: l_sqlhead := 'DELETE pn_rec_exp_itf WHERE ';
3981:
3982: l_info := ' figuring expense extract code';
3983: pnp_debug_pkg.log(l_info);
4054: pnp_debug_pkg.log(l_sqltail);
4055: pnp_debug_pkg.log('');
4056:
4057: l_statement := l_sqlhead || l_sqltail;
4058: dbms_sql.parse(l_cursor,l_statement,dbms_sql.native);
4059: IF p_extract_code IS NOT NULL THEN
4060: dbms_sql.bind_variable(l_cursor,'l_extract_code',l_extract_code);
4061: END IF;
4062:
4056:
4057: l_statement := l_sqlhead || l_sqltail;
4058: dbms_sql.parse(l_cursor,l_statement,dbms_sql.native);
4059: IF p_extract_code IS NOT NULL THEN
4060: dbms_sql.bind_variable(l_cursor,'l_extract_code',l_extract_code);
4061: END IF;
4062:
4063: IF p_transfer_flag IS NOT NULL THEN
4064: dbms_sql.bind_variable(l_cursor,'l_transfer_flag',l_transfer_flag);
4060: dbms_sql.bind_variable(l_cursor,'l_extract_code',l_extract_code);
4061: END IF;
4062:
4063: IF p_transfer_flag IS NOT NULL THEN
4064: dbms_sql.bind_variable(l_cursor,'l_transfer_flag',l_transfer_flag);
4065: END IF;
4066:
4067: IF p_from_date IS NOT NULL THEN
4068: dbms_sql.bind_variable(l_cursor,'l_from_date',l_from_date);
4064: dbms_sql.bind_variable(l_cursor,'l_transfer_flag',l_transfer_flag);
4065: END IF;
4066:
4067: IF p_from_date IS NOT NULL THEN
4068: dbms_sql.bind_variable(l_cursor,'l_from_date',l_from_date);
4069: END IF;
4070:
4071: IF p_to_date IS NOT NULL THEN
4072: dbms_sql.bind_variable(l_cursor,'l_to_date',l_to_date);
4068: dbms_sql.bind_variable(l_cursor,'l_from_date',l_from_date);
4069: END IF;
4070:
4071: IF p_to_date IS NOT NULL THEN
4072: dbms_sql.bind_variable(l_cursor,'l_to_date',l_to_date);
4073: END IF;
4074:
4075: IF p_location_code IS NOT NULL THEN
4076: dbms_sql.bind_variable(l_cursor,'l_loc_id',l_loc_id);
4072: dbms_sql.bind_variable(l_cursor,'l_to_date',l_to_date);
4073: END IF;
4074:
4075: IF p_location_code IS NOT NULL THEN
4076: dbms_sql.bind_variable(l_cursor,'l_loc_id',l_loc_id);
4077: END IF;
4078:
4079: IF p_property_code IS NOT NULL THEN
4080: dbms_sql.bind_variable(l_cursor,'l_prop_id',l_prop_id);
4076: dbms_sql.bind_variable(l_cursor,'l_loc_id',l_loc_id);
4077: END IF;
4078:
4079: IF p_property_code IS NOT NULL THEN
4080: dbms_sql.bind_variable(l_cursor,'l_prop_id',l_prop_id);
4081: END IF;
4082: l_rows := dbms_sql.execute(l_cursor);
4083:
4084:
4078:
4079: IF p_property_code IS NOT NULL THEN
4080: dbms_sql.bind_variable(l_cursor,'l_prop_id',l_prop_id);
4081: END IF;
4082: l_rows := dbms_sql.execute(l_cursor);
4083:
4084:
4085: END IF;
4086:
4083:
4084:
4085: END IF;
4086:
4087: IF dbms_sql.is_open (l_cursor) THEN
4088: dbms_sql.close_cursor (l_cursor);
4089: END IF;
4090: pnp_debug_pkg.log(l_desc ||' (-)');
4091:
4084:
4085: END IF;
4086:
4087: IF dbms_sql.is_open (l_cursor) THEN
4088: dbms_sql.close_cursor (l_cursor);
4089: END IF;
4090: pnp_debug_pkg.log(l_desc ||' (-)');
4091:
4092: EXCEPTION