1: Package Body IGIRRGPP AS
2: -- $Header: igirrgpb.pls 120.7 2011/02/07 10:30:34 dramired ship $
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: l_state_level number:=FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
2: -- $Header: igirrgpb.pls 120.7 2011/02/07 10:30:34 dramired ship $
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: l_state_level number:=FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: l_state_level number:=FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
11: l_unexp_level number:=FND_LOG.LEVEL_UNEXPECTED;
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: l_state_level number:=FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
11: l_unexp_level number:=FND_LOG.LEVEL_UNEXPECTED;
12:
5:
6: l_state_level number:=FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
11: l_unexp_level number:=FND_LOG.LEVEL_UNEXPECTED;
12:
13: --Commenting out WriteToLogFile as fnd_logging to be used bug 3199481 (Start)
6: l_state_level number:=FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
11: l_unexp_level number:=FND_LOG.LEVEL_UNEXPECTED;
12:
13: --Commenting out WriteToLogFile as fnd_logging to be used bug 3199481 (Start)
14: /*
7: l_proc_level number:=FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number:=FND_LOG.LEVEL_EVENT;
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
11: l_unexp_level number:=FND_LOG.LEVEL_UNEXPECTED;
12:
13: --Commenting out WriteToLogFile as fnd_logging to be used bug 3199481 (Start)
14: /*
15: PROCEDURE WriteToLogFile(pp_mesg in varchar2) IS
9: l_excep_level number:=FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number:=FND_LOG.LEVEL_ERROR;
11: l_unexp_level number:=FND_LOG.LEVEL_UNEXPECTED;
12:
13: --Commenting out WriteToLogFile as fnd_logging to be used bug 3199481 (Start)
14: /*
15: PROCEDURE WriteToLogFile(pp_mesg in varchar2) IS
16: IsDebugMode BOOLEAN := TRUE;
17: BEGIN
21: null;
22: END IF;
23: END WriteToLogFile;
24: */
25: --Commenting out WriteToLogFile as fnd_logging to be used bug 3199481 (End)
26:
27: PROCEDURE CreateLines ( pp_run_id in number
28: , pp_item_code_from in varchar2
29: , pp_item_code_to in varchar2
161: fnd_message.set_name('IGI','IGI_RPI_IS_DISABLED');
162: lv_mesg := fnd_message.get;
163: --Bug 3199481 (start)
164: If (l_unexp_level >= l_debug_level) then
165: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igirrgpp.createlines.Msg1',FALSE);
166: End if;
167: --Bug 3199481 (end)
168: raise_application_error ( -20000, lv_mesg);
169: return;
403:
404: --WriteToLogFile('Start of Processing of records for Update');
405: -- bug 3199481, start block
406: IF (l_state_level >= l_debug_level) THEN
407: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.updateprice.Msg1',
408: 'Start of Processing of records for Update');
409: END IF;
410: -- bug 3199481, end block
411:
416: l_org_id := l_ruh.org_id;
417: --WriteToLogFile('Updating status of Update Header to ERROR');
418: -- bug 3199481, start block
419: IF (l_state_level >= l_debug_level) THEN
420: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg2',
421: 'Updating status of Update Header to ERROR');
422: END IF;
423: -- bug 3199481, end block
424: update igi_rpi_update_hdr
437: --WriteToLogFile('Revised Effective Date :'||to_char(l_rul.revised_effective_date));
438:
439: -- bug 3199481, start block
440: IF (l_state_level >= l_debug_level) THEN
441: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg3',
442: 'Item Id :'|| to_char(l_rul.item_id));
443: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg4',
444: 'Standing Charge Id :'|| to_char(l_rul.Standing_charge_id));
445: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg5',
439: -- bug 3199481, start block
440: IF (l_state_level >= l_debug_level) THEN
441: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg3',
442: 'Item Id :'|| to_char(l_rul.item_id));
443: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg4',
444: 'Standing Charge Id :'|| to_char(l_rul.Standing_charge_id));
445: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg5',
446: 'Update Effective Date :'|| to_char(l_ruh.effective_date));
447: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg6',
441: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg3',
442: 'Item Id :'|| to_char(l_rul.item_id));
443: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg4',
444: 'Standing Charge Id :'|| to_char(l_rul.Standing_charge_id));
445: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg5',
446: 'Update Effective Date :'|| to_char(l_ruh.effective_date));
447: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg6',
448: 'Revised Price :'|| to_char(l_rul.revised_price));
449: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg7',
443: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg4',
444: 'Standing Charge Id :'|| to_char(l_rul.Standing_charge_id));
445: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg5',
446: 'Update Effective Date :'|| to_char(l_ruh.effective_date));
447: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg6',
448: 'Revised Price :'|| to_char(l_rul.revised_price));
449: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg7',
450: 'Revised Effective Date :'||to_char(l_rul.revised_effective_date));
451: END IF;
445: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg5',
446: 'Update Effective Date :'|| to_char(l_ruh.effective_date));
447: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg6',
448: 'Revised Price :'|| to_char(l_rul.revised_price));
449: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg7',
450: 'Revised Effective Date :'||to_char(l_rul.revised_effective_date));
451: END IF;
452: -- bug 3199481, end block
453:
455: IF (l_rul.revised_price is NULL) THEN
456: --WriteToLogFile('Updating revised price of Charge Item');
457: -- bug 3199481, start block
458: IF (l_state_level >= l_debug_level) THEN
459: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg8',
460: 'Updating revised price of Charge Item');
461: END IF;
462: -- bug 3199481, end block
463: update igi_rpi_items
471: ELSIF (l_ruh.effective_date > l_rul.revised_effective_date) THEN
472: --WriteToLogFile('Inserting record into audit table');
473: -- bug 3199481, start block
474: IF (l_state_level >= l_debug_level) THEN
475: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg9',
476: 'Inserting record into audit table');
477: END IF;
478: -- bug 3199481, end block
479: -- bug 11719080
490:
491: --WriteToLogFile('Updating revised price of Charge Item');
492: -- bug 3199481, start block
493: IF (l_state_level >= l_debug_level) THEN
494: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg10',
495: 'Updating revised price of Charge Item');
496: END IF;
497: -- bug 3199481, end block
498: update igi_rpi_items
508: ELSE
509: --WriteToLogFile('Updating revised price of Standing Charge Line Item');
510: -- bug 3199481, start block
511: IF (l_state_level >= l_debug_level) THEN
512: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg11',
513: 'Updating revised price of Standing Charge Line Item');
514: END IF;
515: -- bug 3199481, end block
516: update igi_rpi_line_details
530: l_rowid := NULL;
531: --WriteToLogFile('Insert record into Line Item Price Audit table with the run id');
532: -- bug 3199481, start block
533: IF (l_state_level >= l_debug_level) THEN
534: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg12',
535: 'Insert record into Line Item Price Audit table with the run id');
536: END IF;
537: -- bug 3199481, end block
538: igi_rpi_line_audit_det_all_pkg.insert_row( X_rowid => l_rowid,
555:
556: --WriteToLogFile('Updating status of Update Header to COMPLETED');
557: -- bug 3199481, start block
558: IF (l_state_level >= l_debug_level) THEN
559: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg13',
560: 'Updating status of Update Header to COMPLETED');
561: END IF;
562: -- bug 3199481, end block
563: update igi_rpi_update_hdr
566:
567: END LOOP;
568: -- bug 3199481, start block
569: IF (l_state_level >= l_debug_level) THEN
570: FND_LOG.STRING(l_state_level, 'igi.plsql.igirrgpp.update_price.Msg14',
571: 'End of processing of Items for Price update');
572: END IF;
573: -- bug 3199481, end block
574: --WriteToLogFile('End of processing of Items for Price update');