[Home] [Help]
112: l_currency_error VARCHAR2(5000);
113:
114: CURSOR chk_history_data IS
115: SELECT MAX(end_date)
116: FROM bim_rep_history
117: WHERE object = 'EVENT';
118:
119: BEGIN
120:
267: -----------------------------------------------------------------------
268: -- PROCEDURE
269: -- LOG_HISTORY
270: --
271: --Note: This procedure will insert a HISTORY record into bim_rep_history
272: --table whenever first and subsequent load has run successfully
273: -----------------------------------------------------------------------
274: PROCEDURE LOG_HISTORY(
275: p_object VARCHAR2,
280: x_return_status OUT NOCOPY VARCHAR2
281: )
282: IS
283: l_user_id NUMBER := FND_GLOBAL.USER_ID();
284: l_table_name VARCHAR2(100):='BIM_REP_HISTORY';
285: BEGIN
286: INSERT INTO
287: bim_rep_history
288: (creation_date,
283: l_user_id NUMBER := FND_GLOBAL.USER_ID();
284: l_table_name VARCHAR2(100):='BIM_REP_HISTORY';
285: BEGIN
286: INSERT INTO
287: bim_rep_history
288: (creation_date,
289: last_update_date,
290: created_by,
291: last_updated_by,
2632: l_temp_msg := to_char( sysdate, 'dd/mm/yyyy:hh:mi:ss');
2633: ams_utility_pvt.write_conc_log('EVENT:FIRST_LOAD: AFTER INSERT INTO WEEKLY FACTS.' || l_temp_msg);
2634: COMMIT;
2635:
2636: /* If there are some data insert into bim_r_even_daily_facts and bim_r_even_weekly_facts, then insert a record into bim_rep_history*/
2637:
2638: --IF SQL%ROWCOUNT >0 THEN
2639:
2640: LOG_HISTORY(
2782: l_start_date DATE;
2783:
2784: CURSOR MIN_START_DATE IS
2785: SELECT MIN(START_DATE)
2786: FROM BIM_REP_HISTORY
2787: WHERE OBJECT = 'EVENT';
2788:
2789: l_event_offer number;
2790: l_min_date date;