850: error_exp exception;
851: l_attribute_name varchar2(30);
852: BEGIN
853:
854: fnd_message.set_name('OFA','FA_LIFE_CHANGE_EXCEPTION');
855: fnd_message.set_token('AMORT_DATE',to_char(px_trans_rec.amortization_start_date,'DD/MM/YYYY'));
856: h_mesg_str := fnd_message.get;
857: fa_rx_conc_mesg_pkg.out(h_mesg_str);
858:
851: l_attribute_name varchar2(30);
852: BEGIN
853:
854: fnd_message.set_name('OFA','FA_LIFE_CHANGE_EXCEPTION');
855: fnd_message.set_token('AMORT_DATE',to_char(px_trans_rec.amortization_start_date,'DD/MM/YYYY'));
856: h_mesg_str := fnd_message.get;
857: fa_rx_conc_mesg_pkg.out(h_mesg_str);
858:
859: FOR l_get_book_rec IN l_get_books LOOP
852: BEGIN
853:
854: fnd_message.set_name('OFA','FA_LIFE_CHANGE_EXCEPTION');
855: fnd_message.set_token('AMORT_DATE',to_char(px_trans_rec.amortization_start_date,'DD/MM/YYYY'));
856: h_mesg_str := fnd_message.get;
857: fa_rx_conc_mesg_pkg.out(h_mesg_str);
858:
859: FOR l_get_book_rec IN l_get_books LOOP
860:
911: if ( (substrb(l_err_code, 1,3) = 'FA_') OR
912: (substrb(l_err_code, 1,3) = 'CUA')) then
913:
914: if (substrb(l_err_code, 1,3) = 'FA_') then
915: fnd_message.set_name ('OFA',l_err_code);
916: l_message_name := substrb(fnd_message.get,1,240);
917: end if;
918:
919: if (substrb(l_err_code, 1,3) = 'CUA') then
912: (substrb(l_err_code, 1,3) = 'CUA')) then
913:
914: if (substrb(l_err_code, 1,3) = 'FA_') then
915: fnd_message.set_name ('OFA',l_err_code);
916: l_message_name := substrb(fnd_message.get,1,240);
917: end if;
918:
919: if (substrb(l_err_code, 1,3) = 'CUA') then
920: fnd_message.set_name ('CUA',l_err_code);
916: l_message_name := substrb(fnd_message.get,1,240);
917: end if;
918:
919: if (substrb(l_err_code, 1,3) = 'CUA') then
920: fnd_message.set_name ('CUA',l_err_code);
921: l_message_name := substrb(fnd_message.get,1,240);
922: end if;
923: else
924: if substr(l_err_code,1,1) = '-' then
917: end if;
918:
919: if (substrb(l_err_code, 1,3) = 'CUA') then
920: fnd_message.set_name ('CUA',l_err_code);
921: l_message_name := substrb(fnd_message.get,1,240);
922: end if;
923: else
924: if substr(l_err_code,1,1) = '-' then
925: l_message_name := substrb(sqlerrm(l_err_code),1,240);