[Home] [Help]
142: last_update_date = sysdate,
143: last_update_login = fnd_global.login_id
144: Where book_type_code = p_book;
145: If Sql%found Then
146: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
147: p_full_path => l_path_name,
148: p_string => 'igi_imp_iac_controls updated, Request_status set to '
149: || p_flag || ' for Book ' || p_book);
150: End If;
149: || p_flag || ' for Book ' || p_book);
150: End If;
151: Exception
152: When Others Then
153: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
154: p_full_path => l_path_name,
155: p_string => 'Error during update of Request Status to ' || p_flag);
156: Raise;
157: End;
262: p_interface_rec.Program_id,
263: p_interface_rec.Program_update_date,
264: p_interface_rec.Valid_flag); -- Added as a part of fix for Bug 5137813
265: If Sql%found Then
266: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
267: p_full_path => l_path_name,
268: p_string => 'Created a record in igi_imp_iac_interface, Book Type Code : ' ||
269: p_interface_rec.Book_type_code ||
270: ' ,Asset Id : ' || p_interface_rec.Asset_id ||
272: ' ,Category Id : ' || p_interface_rec.Category_id);
273: End If;
274: Exception
275: When Others Then
276: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
277: p_full_path => l_path_name,
278: p_string => 'Error during creation of record in igi_imp_iac_interface, '
279: ||'Book Type Code : ' ||p_interface_rec.Book_type_code
280: ||' ,Asset Id : ' || p_interface_rec.Asset_id
307: fnd_global.user_id,
308: sysdate,
309: fnd_global.login_id);
310: If Sql%found Then
311: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
312: p_full_path => l_path_name,
313: p_string => 'Created a record in igi_imp_iac_interface_ctrl for Book ' || p_book );
314: End if;
315: Exception
313: p_string => 'Created a record in igi_imp_iac_interface_ctrl for Book ' || p_book );
314: End if;
315: Exception
316: When Others Then
317: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
318: p_full_path => l_path_name,
319: p_string => ' Error during creation of record in igi_imp_iac_interface_ctrl for Book ' || p_book);
320: Raise;
321: End;
390: p_corp_last_per_counter := p_corp_last_per_counter_old;
391: p_exception_code := p_exception_code_old;
392: p_exception_flag := p_exception_flag_old;
393:
394: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
395: p_full_path => l_path_name,
396: p_string => 'Error during initialising of variables ');
397: Raise;
398: End;
425: Begin
426:
427: l_path_name := g_path||'prepare_data';
428:
429: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
430: p_full_path => l_path_name,
431: p_string => '********************************************************'
432: ||' Start of IAC Implementation : Data Preparation Process'
433: ||'********************************************************');
460: retcode := 2;
461: End if;
462: End if;
463: Commit;
464: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
465: p_full_path => l_path_name,
466: p_string => '********************************************************'
467: ||' End of IAC Implementation : Data Preparation Process'
468: ||'********************************************************');
468: ||'********************************************************');
469: End Loop;
470: Exception
471: When Others Then
472: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
473: p_full_path => l_path_name,
474: p_string => '*** Error in IAC Implementation : Data Preparation Process *** '
475: || sqlerrm);
476: retcode := 2;
551: Begin
552:
553: l_path_name := g_path||'prepare_mhca_data';
554:
555: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
556: p_full_path => l_path_name,
557: p_string => '*** Start of Prepare Mhca Data ***'
558: ||'*** Parameter Last Period Counter for Mhca Book is : '
559: || p_book_last_per_counter
563: For C_Asset_Category_Rec In C_Asset_Category(p_book) Loop
564: l_cat_records := 0;
565: l_rec_ctr := 1;
566: For C_Book_Info_Rec in C_Book_Info(p_book, C_Asset_Category_Rec.category_id) Loop
567: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
568: p_full_path => l_path_name,
569: p_string => 'Processing Asset for Book : ' || p_book ||
570: ' ,Category Id : ' || C_Asset_Category_Rec.category_id ||
571: ' ,Asset Number : ' || C_Book_Info_Rec.Asset_number ||
594: From dual;
595: End if;
596:
597: IF C_Book_Info_Rec.asset_type = 'CIP' THEN
598: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
599: p_full_path => l_path_name,
600: p_string => 'Asset is a CIP asset, Ignoring the asset');
601: goto Next_Record;
602: END IF;
601: goto Next_Record;
602: END IF;
603:
604: IF C_Book_Info_Rec.cost < 0 THEN
605: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
606: p_full_path => l_path_name,
607: p_string => 'Asset is a negative asset, Ignoring the asset');
608: goto Next_Record;
609: END IF;
609: END IF;
610:
611: If C_Book_Info_Rec.period_counter_fully_retired is not null then
612:
613: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
614: p_full_path => l_path_name,
615: p_string => 'Asset is fully retired in MHCA book, Ignoring the asset');
616:
617: goto Next_Record;
618: Else
619: l_book_last_per_counter := p_book_last_per_counter;
620: End If;
621:
622: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
623: p_full_path => l_path_name,
624: p_string => '*** New Last Period Counter for Mhca Book is : '
625: || l_book_last_per_counter );
626:
623: p_full_path => l_path_name,
624: p_string => '*** New Last Period Counter for Mhca Book is : '
625: || l_book_last_per_counter );
626:
627: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
628: p_full_path => l_path_name,
629: p_string => '*** Opening Cursor C_Mhca_Reval_Details for the asset ' ||
630: C_Book_Info_Rec.asset_id || ' ,Period Counter : '
631: || l_book_last_per_counter);
633: Open C_Mhca_Reval_Details(C_Book_Info_Rec.asset_id,
634: l_book_last_per_counter);
635: Fetch C_Mhca_Reval_Details into l_MHca_reval_details;
636: If C_Mhca_Reval_Details%notfound Then
637: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
638: p_full_path => l_path_name,
639: p_string => '??? C_Mhca_Reval_Details not found');
640: End if;
641: Close C_Mhca_Reval_Details;
639: p_string => '??? C_Mhca_Reval_Details not found');
640: End if;
641: Close C_Mhca_Reval_Details;
642:
643: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
644: p_full_path => l_path_name,
645: p_string => '*** Opening Cursor C_Mhca_Reval_Details for the asset ' ||
646: C_Book_Info_Rec.asset_id || ' ,Period Counter : '
647: || l_book_last_per_counter);
649: Open C_Mhca_Reval_Summary(C_Book_Info_Rec.asset_id,
650: l_book_last_per_counter);
651: Fetch C_Mhca_Reval_Summary Into l_mhca_reval_summary;
652: If C_Mhca_Reval_Summary%notfound Then
653: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
654: p_full_path => l_path_name,
655: p_string => '??? C_Mhca_Reval_Summary not found');
656: End if;
657: Close C_Mhca_Reval_Summary;
655: p_string => '??? C_Mhca_Reval_Summary not found');
656: End if;
657: Close C_Mhca_Reval_Summary;
658:
659: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
660: p_full_path => l_path_name,
661: p_string => '*** Opening Cursor C_Corp_Book_Info for the asset ' ||
662: C_Book_Info_Rec.asset_id || ' ,Book : ' || p_corp_book);
663:
663:
664: Open C_Corp_Book_Info(p_corp_book, C_Book_Info_Rec.asset_id);
665: Fetch C_Corp_Book_Info Into l_corp_book_info;
666: If C_Corp_Book_Info%notfound then
667: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
668: p_full_path => l_path_name,
669: p_string => '??? C_Corp_book_Info not found');
670: End if;
671: Close C_Corp_Book_Info;
670: End if;
671: Close C_Corp_Book_Info;
672:
673: IF l_Corp_Book_Info.cost < 0 THEN
674: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
675: p_full_path => l_path_name,
676: p_string => 'Asset is a negative asset, Ignoring the asset');
677: goto Next_Record;
678: END IF;
677: goto Next_Record;
678: END IF;
679:
680: If l_Corp_Book_Info.period_counter_fully_retired is not null then
681: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
682: p_full_path => l_path_name,
683: p_string => 'Asset is fully retired in Corp book, Ignoring the asset');
684:
685: goto Next_Record;
685: goto Next_Record;
686:
687: Else
688: If l_Corp_Book_Info.period_counter_fully_reserved is not null then
689: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
690: p_full_path => l_path_name,
691: p_string => 'Asset in the Corp Book is fully reserved');
692:
693: l_corp_last_per_counter := l_Corp_Book_Info.period_counter_fully_reserved;
692:
693: l_corp_last_per_counter := l_Corp_Book_Info.period_counter_fully_reserved;
694: Else
695: If upper(l_Corp_Book_Info.depreciate_flag) = 'NO' Then
696: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
697: p_full_path => l_path_name,
698: p_string => 'Asset has depreciate flag set to No');
699:
700: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
696: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
697: p_full_path => l_path_name,
698: p_string => 'Asset has depreciate flag set to No');
699:
700: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
701: p_full_path => l_path_name,
702: p_string => '*** Opening Cursor C_Corp_Max_Deprn_Ctr for Book : ' ||
703: p_corp_book || ' ,Asset Id : ' || C_Book_Info_Rec.asset_id);
704:
705: Open C_Corp_Max_Period_Counter(p_corp_book,
706: C_Book_Info_Rec.asset_id);
707: Fetch C_Corp_Max_Period_Counter into l_Corp_last_per_counter;
708: If C_Corp_Max_Period_Counter%notfound then
709: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
710: p_full_path => l_path_name,
711: p_string => '??? C_Corp_Max_Period_Counter not found');
712: End if;
713: Close C_Corp_Max_Period_Counter;
716: End if;
717: End if;
718: End if;
719:
720: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
721: p_full_path => l_path_name,
722: p_string => '*** New Last Period Counter for Corp Book is : '
723: || l_corp_last_per_counter);
724:
721: p_full_path => l_path_name,
722: p_string => '*** New Last Period Counter for Corp Book is : '
723: || l_corp_last_per_counter);
724:
725: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
726: p_full_path => l_path_name,
727: p_string => '*** Opening Cursor C_Corp_Deprn_Details for Book : '
728: || p_corp_book || ' ,Asset Id : ' || C_Book_Info_Rec.asset_id
729: || ' ,Period Counter : ' || l_corp_last_per_counter);
732: C_book_info_rec.asset_id,
733: l_corp_last_per_counter);
734: Fetch C_Corp_Deprn_Details Into l_corp_deprn_details;
735: If C_Corp_Deprn_Details%notfound then
736: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
737: p_full_path => l_path_name,
738: p_string => '??? C_Corp_Deprn_Details not found');
739: End if;
740: Close C_Corp_Deprn_Details;
738: p_string => '??? C_Corp_Deprn_Details not found');
739: End if;
740: Close C_Corp_Deprn_Details;
741:
742: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
743: p_full_path => l_path_name,
744: p_string => '*** Opening Cursor C_Corp_Deprn_Summary for Book : '
745: || p_corp_book|| ' ,Asset Id : ' || C_Book_Info_Rec.asset_id
746: || ' ,Period Counter : ' || l_corp_last_per_counter);
749: C_book_info_rec.asset_id,
750: l_corp_last_per_counter);
751: Fetch C_Corp_Deprn_Summary Into l_corp_deprn_summary;
752: If C_Corp_Deprn_Summary%notfound then
753: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
754: p_full_path => l_path_name,
755: p_string => 'C_Corp_Deprn_Summary not found');
756: End if;
757: Close C_Corp_Deprn_Summary;
760: If (abs((nvl(l_mhca_reval_summary.new_asset_cost,0) - nvl(l_mhca_reval_summary.new_reval_reserve,0))
761: - l_corp_book_info.cost ) <= 0.05 ) Then
762: null;
763: Else
764: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
765: p_full_path => l_path_name,
766: p_string => 'Cost Difference Exception flagged for the Asset');
767:
768: l_exception_code := 'C';
772: If l_exception_flag = 'N' Then
773: If trunc(C_Book_Info_Rec.date_placed_in_service) = trunc(l_corp_book_info.date_placed_in_service) Then
774: null;
775: Else
776: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
777: p_full_path => l_path_name,
778: p_string => 'DPIS Difference Exception flagged for the Asset');
779:
780: l_exception_code := 'D';
785: If l_exception_flag = 'N' Then
786: If C_Book_Info_Rec.life_in_months = l_corp_book_info.life_in_months Then
787: null;
788: Else
789: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
790: p_full_path => l_path_name,
791: p_string => 'Life Difference Exception flagged for the Asset');
792:
793: l_exception_code := 'L';
798: If l_exception_flag = 'N' Then
799: If C_Book_Info_Rec.salvage_value = l_corp_book_info.salvage_value Then
800: null;
801: Else
802: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
803: p_full_path => l_path_name,
804: p_string => 'Salvage Value Difference Exception flagged for the Asset');
805:
806: l_exception_code := 'S';
862: * (l_hist_info.deprn_periods_current_year/l_hist_info.deprn_periods_elapsed));
863: Else
864: fnd_message.set_name ('IGI', 'IGI_IMP_IAC_PREP_ERROR');
865: fnd_message.set_token('ROUTINE','igi_iac_reval_utilities.Populate_depreciation');
866: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
867: p_full_path => l_path_name,
868: p_remove_from_stack => FALSE);
869: p_out_message := fnd_message.get;
870: Raise Prepare_Data_Error;
948: If C_Corp_Max_Period_Counter%isopen Then
949: Close C_Corp_Max_Period_Counter;
950: End if;
951: Rollback work;
952: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
953: p_full_path => l_path_name,
954: p_string => 'Error : ' || p_out_message);
955: fnd_file.put_line(fnd_file.log, p_out_message);
956: Return False;
979: If C_Corp_Max_Period_Counter%isopen Then
980: Close C_Corp_Max_Period_Counter;
981: End if;
982: Rollback work;
983: igi_iac_debug_pkg.debug_unexpected_msg(p_full_path => l_path_name);
984: Return FALSE;
985: End Prepare_Mhca_Data;
986:
987: FUNCTION Prepare_Corp_Data (
1051:
1052: l_current_year_addition := TRUE;
1053: l_path_name := g_path||'prepare_corp_data';
1054:
1055: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1056: p_full_path => l_path_name,
1057: p_string => '*** Start of Prepare Corp Data ***' );
1058:
1059: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1055: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1056: p_full_path => l_path_name,
1057: p_string => '*** Start of Prepare Corp Data ***' );
1058:
1059: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1060: p_full_path => l_path_name,
1061: p_string => '*** Parameter Last Period Counter for Corp Book is : '
1062: || p_corp_last_per_counter);
1063:
1064: For C_Asset_Category_Rec In C_Asset_Category(p_corp_book) Loop
1065: l_cat_records := 0;
1066: l_rec_ctr := 1;
1067: For C_Book_Info_Rec in C_Book_Info(p_corp_book, C_Asset_Category_Rec.category_id) Loop
1068: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1069: p_full_path => l_path_name,
1070: p_string => 'Processing Asset for Book : ' || p_corp_book ||
1071: ' ,Category Id : ' || C_Asset_Category_Rec.category_id ||
1072: ' ,Asset Number : ' || C_Book_Info_Rec.Asset_number ||
1091: If l_rec_ctr = 1 then
1092: Select igi_imp_iac_interface_group_s.nextval
1093: Into l_group_id
1094: From dual;
1095: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1096: p_full_path => l_path_name,
1097: p_string => 'The new group Id is : ' || l_group_id);
1098: End if;
1099:
1099:
1100: l_current_year_addition := True;
1101:
1102: IF C_Book_Info_Rec.asset_type = 'CIP' THEN
1103: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1104: p_full_path => l_path_name,
1105: p_string => 'Asset is a CIP asset, Ignoring the asset');
1106: goto Next_Record;
1107: END IF;
1106: goto Next_Record;
1107: END IF;
1108:
1109: IF C_Book_Info_Rec.cost < 0 THEN
1110: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1111: p_full_path => l_path_name,
1112: p_string => 'Asset is a negative asset, Ignoring the asset');
1113: goto Next_Record;
1114: END IF;
1113: goto Next_Record;
1114: END IF;
1115:
1116: If C_Book_Info_Rec.period_counter_fully_retired is not null then
1117: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1118: p_full_path => l_path_name,
1119: p_string => 'Asset is fully retired, Ignoring the asset');
1120: goto Next_Record;
1121: Else
1120: goto Next_Record;
1121: Else
1122: If C_Book_Info_Rec.period_counter_fully_reserved is not null then
1123:
1124: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1125: p_full_path => l_path_name,
1126: p_string => 'Asset in the Corp_book is fully reserved');
1127:
1128: l_corp_last_per_counter := C_Book_Info_Rec.period_counter_fully_reserved;
1130: Else
1131:
1132: If upper(C_Book_Info_Rec.depreciate_flag) = 'NO' Then
1133:
1134: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1135: p_full_path => l_path_name,
1136: p_string => 'Asset has depreciate flag set to No');
1137:
1138: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1134: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1135: p_full_path => l_path_name,
1136: p_string => 'Asset has depreciate flag set to No');
1137:
1138: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1139: p_full_path => l_path_name,
1140: p_string => '*** Opening Cursor C_Corp_Max_Deprn_Ctr for Book : '
1141: || p_corp_book|| ' ,Asset Id : ' || C_Book_Info_Rec.asset_id);
1142:
1143: Open C_Corp_Max_Period_Counter(p_corp_book,
1144: C_Book_Info_Rec.asset_id);
1145: Fetch C_Corp_Max_Period_Counter into l_Corp_last_per_counter;
1146: If C_Corp_Max_Period_Counter%notfound then
1147: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1148: p_full_path => l_path_name,
1149: p_string => '??? C_Corp_Max_Period_Counter not found');
1150: End if;
1151: Close C_Corp_Max_Period_Counter;
1165: l_Corp_last_per_counter,
1166: l_last_deprn_period) THEN
1167: fnd_message.set_name ('IGI', 'IGI_IMP_IAC_PREP_ERROR');
1168: fnd_message.set_token('ROUTINE','igi_iac_common_utils.get_period_info_for_counter');
1169: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
1170: p_full_path => l_path_name,
1171: p_remove_from_stack => FALSE);
1172: p_out_message := fnd_message.get;
1173: Raise Prepare_Data_Error;
1177: End if;
1178: End if;
1179: End if;
1180: /* Bug 2961656 vgadde 08-jul-03 start(3) */
1181: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1182: p_full_path => l_path_name,
1183: p_string => '*** Opening Cursor C_Corp_Deprn_Summary for Book : ' || p_corp_book
1184: || ' ,Asset Id : ' || C_Book_Info_Rec.asset_id
1185: || ' ,Period Counter : ' || l_corp_last_per_counter);
1188: C_book_info_rec.asset_id,
1189: l_corp_last_per_counter);
1190: Fetch C_Corp_Deprn_Summary Into l_corp_deprn_summary;
1191: If C_Corp_Deprn_Summary%notfound then
1192: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1193: p_full_path => l_path_name,
1194: p_string => 'C_Corp_Deprn_Summary not found');
1195: l_corp_deprn_summary.deprn_reserve := 0;
1196: l_corp_deprn_summary.ytd_deprn := 0;
1202: IF ((l_last_deprn_period.fiscal_year < p_corp_curr_fiscal_year)
1203: ) THEN
1204:
1205: l_corp_deprn_summary.ytd_deprn := 0;
1206: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1207: p_full_path => l_path_name,
1208: p_string => 'Non Dpreciating C_Corp_Deprn_Summary found'|| l_corp_deprn_summary.ytd_deprn);
1209:
1210: END IF;
1209:
1210: END IF;
1211: END IF;
1212:
1213: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1214: p_full_path => l_path_name,
1215: p_string => '*** Opening Cursor C_Get_User_Deprn for Asset Id : '
1216: || C_Book_Info_Rec.asset_id);
1217:
1220: If C_Get_User_Deprn%notfound Then
1221: l_booksrow_counter := NULL;
1222: l_deprn_acc := NULL;
1223: l_deprn_ytd := NULL;
1224: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1225: p_full_path => l_path_name,
1226: p_string => '??? C_Get_User_Deprn not found');
1227: End if;
1228: Close C_Get_User_Deprn;
1234: l_booksrow_counter,
1235: l_booksrow_period) THEN
1236: fnd_message.set_name ('IGI', 'IGI_IMP_IAC_PREP_ERROR');
1237: fnd_message.set_token('ROUTINE','igi_iac_common_utils.get_period_info_for_counter');
1238: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
1239: p_full_path => l_path_name,
1240: p_remove_from_stack => FALSE);
1241: p_out_message := fnd_message.get;
1242: Raise Prepare_Data_Error;
1259: l_corp_deprn_summary.ytd_deprn,
1260: 'UPGRADE',NULL)Then
1261: fnd_message.set_name ('IGI', 'IGI_IMP_IAC_PREP_ERROR');
1262: fnd_message.set_token('ROUTINE','igi_iac_additions_pkg.do_prior_addition');
1263: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
1264: p_full_path => l_path_name,
1265: p_remove_from_stack => FALSE);
1266: p_out_message := fnd_message.get;
1267: Raise Prepare_Data_Error;
1265: p_remove_from_stack => FALSE);
1266: p_out_message := fnd_message.get;
1267: Raise Prepare_Data_Error;
1268: Else
1269: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1270: p_full_path => l_path_name,
1271: p_string => 'Prior Addition is successful');
1272:
1273: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1269: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1270: p_full_path => l_path_name,
1271: p_string => 'Prior Addition is successful');
1272:
1273: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1274: p_full_path => l_path_name,
1275: p_string => '*** Opening Cursor C_Prior_add for Book : ' || p_corp_book
1276: || ' ,Asset Id : ' || C_Book_Info_Rec.asset_id
1277: || ' ,Category Id ' || C_Asset_Category_Rec.category_id);
1281: C_Book_Info_Rec.asset_id);
1282: Fetch C_Prior_Add Into l_prior_addition;
1283:
1284: If C_Prior_Add%notfound Then
1285: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1286: p_full_path => l_path_name,
1287: p_string => '??? C_Prior_Add not found, Skipping the Asset');
1288: Close C_Prior_Add;
1289: Goto Next_Record;
1297:
1298: End if;
1299:
1300:
1301: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1302: p_full_path => l_path_name,
1303: p_string => '*** New Last Period Counter for Corp Book is : '
1304: || l_corp_last_per_counter);
1305: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1301: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1302: p_full_path => l_path_name,
1303: p_string => '*** New Last Period Counter for Corp Book is : '
1304: || l_corp_last_per_counter);
1305: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1306: p_full_path => l_path_name,
1307: p_string => '*** Opening Cursor C_Corp_Deprn_Details for Book : '
1308: || p_corp_book|| ' ,Asset Id : ' || C_Book_Info_Rec.asset_id
1309: || ' ,Period Counter : ' || l_corp_last_per_counter);
1311: C_book_info_rec.asset_id,
1312: l_corp_last_per_counter);
1313: Fetch C_Corp_Deprn_Details Into l_corp_deprn_details;
1314: If C_Corp_Deprn_Details%notfound then
1315: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1316: p_full_path => l_path_name,
1317: p_string => '??? C_Corp_Deprn_Details not found');
1318: End if;
1319: Close C_Corp_Deprn_Details;
1354: l_hist_info.deprn_start_date := C_book_info_rec.deprn_start_date;
1355: l_hist_info.depreciate_flag := C_book_info_rec.depreciate_flag;
1356:
1357: IF NOT l_current_year_addition THEN
1358: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1359: p_full_path => l_path_name,
1360: p_string => ' Depreciation Reserve:'||l_hist_info.deprn_reserve);
1361:
1362: IF ( NOT l_hist_info.salvage_value is Null) or (NOT l_hist_info.salvage_value=0) THEn
1368: P_calling_program=>'IMPLEMENTATTION') THEN
1369:
1370: return false;
1371: END IF;
1372: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1373: p_full_path => l_path_name,
1374: p_string => ' Depreciation Reserve Salvage value corrected:'||l_hist_info.deprn_reserve);
1375: EnD IF;
1376:
1383: 'UPGRADE') THEN
1384:
1385: fnd_message.set_name ('IGI', 'IGI_IMP_IAC_PREP_ERROR');
1386: fnd_message.set_token('ROUTINE','igi_iac_ytd_engine.Calculate_YTD');
1387: igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
1388: p_full_path => l_path_name,
1389: p_remove_from_stack => FALSE);
1390: p_out_message := fnd_message.get;
1391: Raise Prepare_Data_Error;
1394: l_imp_interface.ytd_hist := l_hist_info.ytd_deprn;
1395: Else
1396: l_hist_info.ytd_deprn :=l_corp_deprn_summary.ytd_deprn;
1397: --- salvage value YTD --
1398: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1399: p_full_path => l_path_name,
1400: p_string => ' YTD before salvage corrected:'||l_hist_info.ytd_deprn );
1401:
1402: IF ( NOT l_hist_info.salvage_value is Null) or (NOT l_hist_info.salvage_value=0) THEn
1408: P_calling_program=>'IMPLEMENTATTION') THEN
1409:
1410: return false;
1411: END IF;
1412: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1413: p_full_path => l_path_name,
1414: p_string => ' YTD Salvage value corrected:'||l_hist_info.ytd_deprn );
1415: END IF;
1416: l_imp_interface.ytd_hist := l_hist_info.ytd_deprn;
1414: p_string => ' YTD Salvage value corrected:'||l_hist_info.ytd_deprn );
1415: END IF;
1416: l_imp_interface.ytd_hist := l_hist_info.ytd_deprn;
1417: END IF;
1418: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1419: p_full_path => l_path_name,
1420: p_string => ' Historic Depreciation YTD :'||l_imp_interface.ytd_hist);
1421:
1422:
1421:
1422:
1423:
1424:
1425: igi_iac_debug_pkg.debug_other_string(p_level => g_state_level,
1426: p_full_path => l_path_name,
1427: p_string => ' IAC Depreciation YTD :'||l_imp_interface.ytd_mhca);
1428:
1429: IF NOT( Igi_Iac_Common_Utils.Iac_Round ( l_imp_interface.Deprn_exp_hist ,
1564: If C_Corp_Max_Period_Counter%isopen Then
1565: Close C_Corp_Max_Period_Counter;
1566: End if;
1567: Rollback work;
1568: igi_iac_debug_pkg.debug_other_string(p_level => g_error_level,
1569: p_full_path => l_path_name,
1570: p_string => 'Error : ' || p_out_message);
1571: fnd_file.put_line(fnd_file.log, p_out_message);
1572: Return False;
1589: If C_Corp_Max_Period_Counter%isopen Then
1590: Close C_Corp_Max_Period_Counter;
1591: End if;
1592: Rollback work;
1593: igi_iac_debug_pkg.debug_unexpected_msg(p_full_path => l_path_name);
1594: Return FALSE;
1595:
1596: End Prepare_corp_data;
1597: