392: If p_upload_record.tolerance_amount is null Then
393: If p_upload_record.percentage_diff >
394: abs(p_upload_record.tolerance_percent) Then
395: p_upload_record.line_status_flag := 'L';
396: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
397: p_upload_record.exception_message := Fnd_Message.Get;
398: End If;
399: Elsif p_upload_record.tolerance_percent is null Then
400: If p_upload_record.amount_diff >
393: If p_upload_record.percentage_diff >
394: abs(p_upload_record.tolerance_percent) Then
395: p_upload_record.line_status_flag := 'L';
396: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
397: p_upload_record.exception_message := Fnd_Message.Get;
398: End If;
399: Elsif p_upload_record.tolerance_percent is null Then
400: If p_upload_record.amount_diff >
401: abs(p_upload_record.tolerance_amount) Then
399: Elsif p_upload_record.tolerance_percent is null Then
400: If p_upload_record.amount_diff >
401: abs(p_upload_record.tolerance_amount) Then
402: p_upload_record.line_status_flag := 'L';
403: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_ERROR');
404: p_upload_record.exception_message := Fnd_Message.Get;
405: End If;
406: Else
407: If ((p_upload_record.percentage_diff >
400: If p_upload_record.amount_diff >
401: abs(p_upload_record.tolerance_amount) Then
402: p_upload_record.line_status_flag := 'L';
403: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_ERROR');
404: p_upload_record.exception_message := Fnd_Message.Get;
405: End If;
406: Else
407: If ((p_upload_record.percentage_diff >
408: abs(p_upload_record.tolerance_percent)) OR
412: If ((p_upload_record.percentage_diff >
413: abs(p_upload_record.tolerance_percent)) AND
414: (p_upload_record.amount_diff >
415: abs(p_upload_record.tolerance_amount))) Then
416: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_PER_ERROR');
417: p_upload_record.exception_message := Fnd_Message.Get;
418: Elsif p_upload_record.percentage_diff >
419: abs(p_upload_record.tolerance_percent) Then
420: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
413: abs(p_upload_record.tolerance_percent)) AND
414: (p_upload_record.amount_diff >
415: abs(p_upload_record.tolerance_amount))) Then
416: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_PER_ERROR');
417: p_upload_record.exception_message := Fnd_Message.Get;
418: Elsif p_upload_record.percentage_diff >
419: abs(p_upload_record.tolerance_percent) Then
420: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
421: p_upload_record.exception_message := Fnd_Message.Get;
416: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_PER_ERROR');
417: p_upload_record.exception_message := Fnd_Message.Get;
418: Elsif p_upload_record.percentage_diff >
419: abs(p_upload_record.tolerance_percent) Then
420: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
421: p_upload_record.exception_message := Fnd_Message.Get;
422: Elsif p_upload_record.amount_diff >
423: abs(p_upload_record.tolerance_amount) Then
424: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_ERROR');
417: p_upload_record.exception_message := Fnd_Message.Get;
418: Elsif p_upload_record.percentage_diff >
419: abs(p_upload_record.tolerance_percent) Then
420: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
421: p_upload_record.exception_message := Fnd_Message.Get;
422: Elsif p_upload_record.amount_diff >
423: abs(p_upload_record.tolerance_amount) Then
424: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_ERROR');
425: p_upload_record.exception_message := Fnd_Message.Get;
420: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PER_ERROR');
421: p_upload_record.exception_message := Fnd_Message.Get;
422: Elsif p_upload_record.amount_diff >
423: abs(p_upload_record.tolerance_amount) Then
424: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_ERROR');
425: p_upload_record.exception_message := Fnd_Message.Get;
426: End If;
427: End If;
428: End If;
421: p_upload_record.exception_message := Fnd_Message.Get;
422: Elsif p_upload_record.amount_diff >
423: abs(p_upload_record.tolerance_amount) Then
424: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_AMT_ERROR');
425: p_upload_record.exception_message := Fnd_Message.Get;
426: End If;
427: End If;
428: End If;
429: End Check_Tolerances;
470: p_upload_record.category_id);
471: Fetch C_Valid_Iac_Cat into l_allow_prof_reval_flag;
472: If C_Valid_Iac_Cat%notfound Then
473: p_upload_record.line_status_flag := 'E';
474: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_NON_IAC_CATEGORY');
475: p_upload_record.exception_message := ltrim(
476: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
477: Else
478: If l_allow_prof_reval_flag = 'Y' Then
472: If C_Valid_Iac_Cat%notfound Then
473: p_upload_record.line_status_flag := 'E';
474: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_NON_IAC_CATEGORY');
475: p_upload_record.exception_message := ltrim(
476: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
477: Else
478: If l_allow_prof_reval_flag = 'Y' Then
479: Null;
480: Else
478: If l_allow_prof_reval_flag = 'Y' Then
479: Null;
480: Else
481: p_upload_record.line_status_flag := 'E';
482: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_NON_PROF_CATEGORY');
483: p_upload_record.exception_message := ltrim(
484: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
485: End If;
486: End If;
480: Else
481: p_upload_record.line_status_flag := 'E';
482: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_NON_PROF_CATEGORY');
483: p_upload_record.exception_message := ltrim(
484: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
485: End If;
486: End If;
487: Close C_Valid_Iac_Cat;
488:
488:
489: -- Bug 3391784 Start
490: If p_upload_record.original_cost < 0 Then
491: p_upload_record.line_status_flag := 'E';
492: Fnd_Message.Set_Name('IGI', 'IGI_IAC_NEGATIVE_ASSETS');
493: p_upload_record.exception_message := ltrim(
494: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
495: End If;
496: -- Bug 3391784 End
490: If p_upload_record.original_cost < 0 Then
491: p_upload_record.line_status_flag := 'E';
492: Fnd_Message.Set_Name('IGI', 'IGI_IAC_NEGATIVE_ASSETS');
493: p_upload_record.exception_message := ltrim(
494: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
495: End If;
496: -- Bug 3391784 End
497:
498: If igi_iac_common_utils.get_open_Period_Info(
499: p_upload_record.book_type_code, l_get_period_rec) Then
500: If p_upload_record.period_counter <> (l_get_period_rec.period_counter
501: - 1) Then
502: p_upload_record.line_status_flag := 'E';
503: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_UNAVAILABLE_PERIOD');
504: p_upload_record.exception_message := ltrim(
505: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
506: End If;
507: End If;
501: - 1) Then
502: p_upload_record.line_status_flag := 'E';
503: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_UNAVAILABLE_PERIOD');
504: p_upload_record.exception_message := ltrim(
505: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
506: End If;
507: End If;
508: Open C_max_period_counter(p_upload_record.book_type_code);
509: Fetch C_max_period_counter into l_max_period_counter;
514: Close C_Last_Closed_Period;
515:
516: If l_max_period_counter > l_last_closed_period Then
517: p_upload_record.line_status_flag := 'E';
518: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_DEP_NOT_CLOSED');
519: p_upload_record.exception_message := ltrim(
520: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
521: End If;
522:
516: If l_max_period_counter > l_last_closed_period Then
517: p_upload_record.line_status_flag := 'E';
518: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_DEP_NOT_CLOSED');
519: p_upload_record.exception_message := ltrim(
520: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
521: End If;
522:
523: If igi_iac_common_utils.Any_Txns_In_Open_Period(
524: p_upload_record.book_type_code, p_upload_record.asset_id) Then
522:
523: If igi_iac_common_utils.Any_Txns_In_Open_Period(
524: p_upload_record.book_type_code, p_upload_record.asset_id) Then
525: p_upload_record.line_status_flag := 'E';
526: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PENDING_TRX');
527: p_upload_record.exception_message := ltrim(
528: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
529: End If;
530: If p_upload_record.period_counter_fully_retired is not null Then
524: p_upload_record.book_type_code, p_upload_record.asset_id) Then
525: p_upload_record.line_status_flag := 'E';
526: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PENDING_TRX');
527: p_upload_record.exception_message := ltrim(
528: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
529: End If;
530: If p_upload_record.period_counter_fully_retired is not null Then
531: p_upload_record.line_status_flag := 'E';
532: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_FULLY_RET');
528: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
529: End If;
530: If p_upload_record.period_counter_fully_retired is not null Then
531: p_upload_record.line_status_flag := 'E';
532: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_FULLY_RET');
533: p_upload_record.exception_message := ltrim(
534: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
535: End If;
536: Open C_Dup_Assets(p_upload_record.File_Name, p_upload_record.Asset_Id);
530: If p_upload_record.period_counter_fully_retired is not null Then
531: p_upload_record.line_status_flag := 'E';
532: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_FULLY_RET');
533: p_upload_record.exception_message := ltrim(
534: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
535: End If;
536: Open C_Dup_Assets(p_upload_record.File_Name, p_upload_record.Asset_Id);
537: Fetch C_Dup_Assets into l_asset_cnt;
538: Close C_Dup_Assets;
537: Fetch C_Dup_Assets into l_asset_cnt;
538: Close C_Dup_Assets;
539: If l_asset_cnt > 1 Then
540: p_upload_record.line_status_flag := 'E';
541: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_DUP_ASSET');
542: p_upload_record.exception_message := ltrim(
543: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
544: Update_Duplicate_Assets(p_upload_record.file_name,
545: p_upload_record.book_type_code,
539: If l_asset_cnt > 1 Then
540: p_upload_record.line_status_flag := 'E';
541: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_DUP_ASSET');
542: p_upload_record.exception_message := ltrim(
543: p_upload_record.exception_message || ' ' || Fnd_Message.Get);
544: Update_Duplicate_Assets(p_upload_record.file_name,
545: p_upload_record.book_type_code,
546: p_upload_record.period_counter,
547: p_upload_record.asset_id,
834: Update_Header_Status(l_upload_record.file_name);
835: Commit;
836: Exception
837: When E_Iac_Not_Enabled Then
838: Fnd_Message.Set_Name('IGI', 'IGI_IAC_NOT_INSTALLED') ;
839: Fnd_Message.Raise_Error;
840: When E_Non_Iac_Book Then
841: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_INVALID_BOOK');
842: Fnd_Message.Raise_Error;
835: Commit;
836: Exception
837: When E_Iac_Not_Enabled Then
838: Fnd_Message.Set_Name('IGI', 'IGI_IAC_NOT_INSTALLED') ;
839: Fnd_Message.Raise_Error;
840: When E_Non_Iac_Book Then
841: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_INVALID_BOOK');
842: Fnd_Message.Raise_Error;
843: When E_Igi_Tol_Yes Then
837: When E_Iac_Not_Enabled Then
838: Fnd_Message.Set_Name('IGI', 'IGI_IAC_NOT_INSTALLED') ;
839: Fnd_Message.Raise_Error;
840: When E_Non_Iac_Book Then
841: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_INVALID_BOOK');
842: Fnd_Message.Raise_Error;
843: When E_Igi_Tol_Yes Then
844: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_REQ');
845: Fnd_Message.Raise_Error;
838: Fnd_Message.Set_Name('IGI', 'IGI_IAC_NOT_INSTALLED') ;
839: Fnd_Message.Raise_Error;
840: When E_Non_Iac_Book Then
841: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_INVALID_BOOK');
842: Fnd_Message.Raise_Error;
843: When E_Igi_Tol_Yes Then
844: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_REQ');
845: Fnd_Message.Raise_Error;
846: When E_Igi_Tol_No Then
840: When E_Non_Iac_Book Then
841: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_INVALID_BOOK');
842: Fnd_Message.Raise_Error;
843: When E_Igi_Tol_Yes Then
844: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_REQ');
845: Fnd_Message.Raise_Error;
846: When E_Igi_Tol_No Then
847: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_NOT_REQ');
848: Fnd_Message.Raise_Error;
841: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_INVALID_BOOK');
842: Fnd_Message.Raise_Error;
843: When E_Igi_Tol_Yes Then
844: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_REQ');
845: Fnd_Message.Raise_Error;
846: When E_Igi_Tol_No Then
847: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_NOT_REQ');
848: Fnd_Message.Raise_Error;
849: When E_Invalid_Asset Then
843: When E_Igi_Tol_Yes Then
844: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_REQ');
845: Fnd_Message.Raise_Error;
846: When E_Igi_Tol_No Then
847: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_NOT_REQ');
848: Fnd_Message.Raise_Error;
849: When E_Invalid_Asset Then
850: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_INVALID_ASSET');
851: Fnd_Message.Raise_Error;
844: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_REQ');
845: Fnd_Message.Raise_Error;
846: When E_Igi_Tol_No Then
847: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_NOT_REQ');
848: Fnd_Message.Raise_Error;
849: When E_Invalid_Asset Then
850: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_INVALID_ASSET');
851: Fnd_Message.Raise_Error;
852: When E_File_Trans Then
846: When E_Igi_Tol_No Then
847: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_NOT_REQ');
848: Fnd_Message.Raise_Error;
849: When E_Invalid_Asset Then
850: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_INVALID_ASSET');
851: Fnd_Message.Raise_Error;
852: When E_File_Trans Then
853: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
854: Fnd_Message.Raise_Error;
847: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_NOT_REQ');
848: Fnd_Message.Raise_Error;
849: When E_Invalid_Asset Then
850: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_INVALID_ASSET');
851: Fnd_Message.Raise_Error;
852: When E_File_Trans Then
853: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
854: Fnd_Message.Raise_Error;
855: End New_File;
849: When E_Invalid_Asset Then
850: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_INVALID_ASSET');
851: Fnd_Message.Raise_Error;
852: When E_File_Trans Then
853: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
854: Fnd_Message.Raise_Error;
855: End New_File;
856:
857: Procedure Tol_Errors(
850: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_INVALID_ASSET');
851: Fnd_Message.Raise_Error;
852: When E_File_Trans Then
853: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
854: Fnd_Message.Raise_Error;
855: End New_File;
856:
857: Procedure Tol_Errors(
858: P_File_Name IN igi_iac_upload_headers.file_name%type,
906: l_upload_record.line_num);
907: l_upd_line_flag := 'N';
908: Elsif p_line_action = 'A' Then
909: If p_hdr_action = 'A' Then
910: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_ACCEPT');
911: l_upload_record.comments := Fnd_Message.Get;
912: End If;
913: l_upload_record.line_status_flag := 'A';
914: l_upload_record.exception_message := null;
907: l_upd_line_flag := 'N';
908: Elsif p_line_action = 'A' Then
909: If p_hdr_action = 'A' Then
910: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_ACCEPT');
911: l_upload_record.comments := Fnd_Message.Get;
912: End If;
913: l_upload_record.line_status_flag := 'A';
914: l_upload_record.exception_message := null;
915: Else -- N
918: l_upload_record.asset_Id,
919: l_upload_record.line_num);
920: l_upd_line_flag := 'N';
921: Elsif p_hdr_action = 'A' Then
922: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_ACCEPT');
923: l_upload_record.comments := Fnd_Message.Get;
924: l_upload_record.line_status_flag := 'A';
925: l_upload_record.exception_message := null;
926: Else -- N
919: l_upload_record.line_num);
920: l_upd_line_flag := 'N';
921: Elsif p_hdr_action = 'A' Then
922: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TOL_ACCEPT');
923: l_upload_record.comments := Fnd_Message.Get;
924: l_upload_record.line_status_flag := 'A';
925: l_upload_record.exception_message := null;
926: Else -- N
927: l_upd_line_flag := 'N';
947: Update_Header_Status(l_upload_record.file_name);
948: Commit;
949: Exception
950: When E_Iac_Not_Enabled Then
951: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
952: Fnd_Message.Raise_Error;
953: When E_File_Trans Then
954: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
955: Fnd_Message.Raise_Error;
948: Commit;
949: Exception
950: When E_Iac_Not_Enabled Then
951: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
952: Fnd_Message.Raise_Error;
953: When E_File_Trans Then
954: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
955: Fnd_Message.Raise_Error;
956: When E_Invalid_Asset Then
950: When E_Iac_Not_Enabled Then
951: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
952: Fnd_Message.Raise_Error;
953: When E_File_Trans Then
954: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
955: Fnd_Message.Raise_Error;
956: When E_Invalid_Asset Then
957: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
958: Fnd_Message.Raise_Error;
951: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
952: Fnd_Message.Raise_Error;
953: When E_File_Trans Then
954: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
955: Fnd_Message.Raise_Error;
956: When E_Invalid_Asset Then
957: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
958: Fnd_Message.Raise_Error;
959: End Tol_Errors;
953: When E_File_Trans Then
954: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
955: Fnd_Message.Raise_Error;
956: When E_Invalid_Asset Then
957: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
958: Fnd_Message.Raise_Error;
959: End Tol_Errors;
960:
961: Procedure Excpt_Errors(
954: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
955: Fnd_Message.Raise_Error;
956: When E_Invalid_Asset Then
957: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
958: Fnd_Message.Raise_Error;
959: End Tol_Errors;
960:
961: Procedure Excpt_Errors(
962: P_File_Name IN igi_iac_upload_headers.file_name%type,
1036: l_upload_record.line_num);
1037: l_upd_line_flag := 'N';
1038: Elsif p_line_action = 'A' Then
1039: If p_hdr_action = 'A' Then
1040: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_EXC_ACCEPT');
1041: l_upload_record.comments := Fnd_Message.Get;
1042: End If;
1043: Check_Exceptions(l_upload_record);
1044: Else -- N
1037: l_upd_line_flag := 'N';
1038: Elsif p_line_action = 'A' Then
1039: If p_hdr_action = 'A' Then
1040: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_EXC_ACCEPT');
1041: l_upload_record.comments := Fnd_Message.Get;
1042: End If;
1043: Check_Exceptions(l_upload_record);
1044: Else -- N
1045: If p_hdr_action = 'D' Then
1047: l_upload_record.asset_id,
1048: l_upload_record.line_num);
1049: l_upd_line_flag := 'N';
1050: Elsif p_hdr_action = 'A' Then
1051: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_EXC_ACCEPT');
1052: l_upload_record.comments := Fnd_Message.Get;
1053: Check_Exceptions(l_upload_record);
1054: Else -- N
1055: l_upd_line_flag := 'N';
1048: l_upload_record.line_num);
1049: l_upd_line_flag := 'N';
1050: Elsif p_hdr_action = 'A' Then
1051: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_EXC_ACCEPT');
1052: l_upload_record.comments := Fnd_Message.Get;
1053: Check_Exceptions(l_upload_record);
1054: Else -- N
1055: l_upd_line_flag := 'N';
1056: End If;
1075: Update_Header_Status(l_upload_record.file_name);
1076: Commit;
1077: Exception
1078: When E_Iac_Not_Enabled Then
1079: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1080: Fnd_Message.Raise_Error;
1081: When E_File_Trans Then
1082: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1083: Fnd_Message.Raise_Error;
1076: Commit;
1077: Exception
1078: When E_Iac_Not_Enabled Then
1079: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1080: Fnd_Message.Raise_Error;
1081: When E_File_Trans Then
1082: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1083: Fnd_Message.Raise_Error;
1084: When E_Invalid_Asset Then
1078: When E_Iac_Not_Enabled Then
1079: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1080: Fnd_Message.Raise_Error;
1081: When E_File_Trans Then
1082: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1083: Fnd_Message.Raise_Error;
1084: When E_Invalid_Asset Then
1085: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1086: Fnd_Message.Raise_Error;
1079: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1080: Fnd_Message.Raise_Error;
1081: When E_File_Trans Then
1082: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1083: Fnd_Message.Raise_Error;
1084: When E_Invalid_Asset Then
1085: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1086: Fnd_Message.Raise_Error;
1087: End Excpt_Errors;
1081: When E_File_Trans Then
1082: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1083: Fnd_Message.Raise_Error;
1084: When E_Invalid_Asset Then
1085: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1086: Fnd_Message.Raise_Error;
1087: End Excpt_Errors;
1088:
1089: Procedure Valid_Assets(
1082: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1083: Fnd_Message.Raise_Error;
1084: When E_Invalid_Asset Then
1085: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1086: Fnd_Message.Raise_Error;
1087: End Excpt_Errors;
1088:
1089: Procedure Valid_Assets(
1090: P_File_Name IN igi_iac_upload_headers.file_name%type,
1151: End If;
1152: Commit;
1153: Exception
1154: When E_Iac_Not_Enabled Then
1155: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1156: Fnd_Message.Raise_Error;
1157: When E_File_Trans Then
1158: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1159: Fnd_Message.Raise_Error;
1152: Commit;
1153: Exception
1154: When E_Iac_Not_Enabled Then
1155: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1156: Fnd_Message.Raise_Error;
1157: When E_File_Trans Then
1158: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1159: Fnd_Message.Raise_Error;
1160: When E_Invalid_Asset Then
1154: When E_Iac_Not_Enabled Then
1155: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1156: Fnd_Message.Raise_Error;
1157: When E_File_Trans Then
1158: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1159: Fnd_Message.Raise_Error;
1160: When E_Invalid_Asset Then
1161: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1162: Fnd_Message.Raise_Error;
1155: FND_MESSAGE.Set_Name('IGI','IGI_IAC_NOT_INSTALLED');
1156: Fnd_Message.Raise_Error;
1157: When E_File_Trans Then
1158: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1159: Fnd_Message.Raise_Error;
1160: When E_Invalid_Asset Then
1161: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1162: Fnd_Message.Raise_Error;
1163: End Valid_Assets;
1157: When E_File_Trans Then
1158: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1159: Fnd_Message.Raise_Error;
1160: When E_Invalid_Asset Then
1161: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1162: Fnd_Message.Raise_Error;
1163: End Valid_Assets;
1164:
1165: Procedure Transfer_Data(
1158: FND_MESSAGE.Set_Name('IGI','IGI_IAC_UPL_FILE_TRANS');
1159: Fnd_Message.Raise_Error;
1160: When E_Invalid_Asset Then
1161: Fnd_Message.Set_Name('IGI','IGI_IAC_UPL_NO_ASSET_IN_FILE');
1162: Fnd_Message.Raise_Error;
1163: End Valid_Assets;
1164:
1165: Procedure Transfer_Data(
1166: errbuf OUT NOCOPY varchar2,
1459: Set status_flag = 'T', revaluation_id = l_reval_id
1460: Where file_name = p_file_name;
1461:
1462: If sql%notfound then
1463: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_FAILURE');
1464: l_message := Fnd_Message.Get;
1465: -- Debug(l_message);
1466: -- bug 3299718, start block
1467: IF (l_state_level >= l_debug_level) THEN
1460: Where file_name = p_file_name;
1461:
1462: If sql%notfound then
1463: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_FAILURE');
1464: l_message := Fnd_Message.Get;
1465: -- Debug(l_message);
1466: -- bug 3299718, start block
1467: IF (l_state_level >= l_debug_level) THEN
1468: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg1',
1471: -- bug 3299718, end block
1472:
1473:
1474: Elsif sql%found then
1475: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_SUCCESS');
1476: l_message := Fnd_Message.Get;
1477: -- Debug(l_message);
1478: -- bug 3299718, start block
1479: IF (l_state_level >= l_debug_level) THEN
1472:
1473:
1474: Elsif sql%found then
1475: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_SUCCESS');
1476: l_message := Fnd_Message.Get;
1477: -- Debug(l_message);
1478: -- bug 3299718, start block
1479: IF (l_state_level >= l_debug_level) THEN
1480: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg2',
1481: l_message);
1482: END IF;
1483: -- bug 3299718, end block
1484:
1485: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_COUNT');
1486: Fnd_Message.Set_Token('ASSET_COUNT',l_asset_count);
1487: l_message := Fnd_Message.Get;
1488: -- Debug(l_message);
1489: -- bug 3299718, start block
1482: END IF;
1483: -- bug 3299718, end block
1484:
1485: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_COUNT');
1486: Fnd_Message.Set_Token('ASSET_COUNT',l_asset_count);
1487: l_message := Fnd_Message.Get;
1488: -- Debug(l_message);
1489: -- bug 3299718, start block
1490: IF (l_state_level >= l_debug_level) THEN
1483: -- bug 3299718, end block
1484:
1485: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_TRANS_COUNT');
1486: Fnd_Message.Set_Token('ASSET_COUNT',l_asset_count);
1487: l_message := Fnd_Message.Get;
1488: -- Debug(l_message);
1489: -- bug 3299718, start block
1490: IF (l_state_level >= l_debug_level) THEN
1491: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg3',
1491: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg3',
1492: l_message);
1493: END IF;
1494: -- bug 3299718, end block
1495: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_REVAL_ID');
1496: Fnd_Message.Set_Token('REVAL_ID',l_reval_id);
1497: l_message := Fnd_Message.Get;
1498: -- Debug(l_message);
1499: -- bug 3299718, start block
1492: l_message);
1493: END IF;
1494: -- bug 3299718, end block
1495: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_REVAL_ID');
1496: Fnd_Message.Set_Token('REVAL_ID',l_reval_id);
1497: l_message := Fnd_Message.Get;
1498: -- Debug(l_message);
1499: -- bug 3299718, start block
1500: IF (l_state_level >= l_debug_level) THEN
1493: END IF;
1494: -- bug 3299718, end block
1495: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_REVAL_ID');
1496: Fnd_Message.Set_Token('REVAL_ID',l_reval_id);
1497: l_message := Fnd_Message.Get;
1498: -- Debug(l_message);
1499: -- bug 3299718, start block
1500: IF (l_state_level >= l_debug_level) THEN
1501: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg4',
1557: End Loop;
1558: retcode := 0;
1559: Exception
1560: When E_Unavailable_Period Then
1561: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_UNAVAILABLE_PERIOD');
1562: l_message := Fnd_Message.Get;
1563: -- Debug(l_message);
1564: -- bug 3299718, start block
1565: IF (l_state_level >= l_debug_level) THEN
1558: retcode := 0;
1559: Exception
1560: When E_Unavailable_Period Then
1561: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_UNAVAILABLE_PERIOD');
1562: l_message := Fnd_Message.Get;
1563: -- Debug(l_message);
1564: -- bug 3299718, start block
1565: IF (l_state_level >= l_debug_level) THEN
1566: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg5',
1570:
1571: errbuf := l_message;
1572: retcode :=2;
1573: When E_Period_Not_Closed Then
1574: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_DEP_NOT_CLOSED');
1575: l_message := Fnd_Message.Get;
1576: -- Debug(l_message);
1577: -- bug 3299718, start block
1578: IF (l_state_level >= l_debug_level) THEN
1571: errbuf := l_message;
1572: retcode :=2;
1573: When E_Period_Not_Closed Then
1574: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_DEP_NOT_CLOSED');
1575: l_message := Fnd_Message.Get;
1576: -- Debug(l_message);
1577: -- bug 3299718, start block
1578: IF (l_state_level >= l_debug_level) THEN
1579: FND_LOG.STRING(l_state_level, 'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Msg6',
1583:
1584: errbuf := l_message;
1585: retcode :=2;
1586: When E_Request_Submit_Error THEN
1587: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PREVIEW_FAILED');
1588: l_message := Fnd_Message.Get;
1589: -- Debug(l_message);
1590:
1591: -- bug 3299718, start block
1584: errbuf := l_message;
1585: retcode :=2;
1586: When E_Request_Submit_Error THEN
1587: Fnd_Message.Set_Name('IGI', 'IGI_IAC_UPL_PREVIEW_FAILED');
1588: l_message := Fnd_Message.Get;
1589: -- Debug(l_message);
1590:
1591: -- bug 3299718, start block
1592: IF (l_state_level >= l_debug_level) THEN
1599: WHEN e_preview_exists THEN
1600: /* bug 3495368, start 1
1601: -- commenting out as no longer required
1602: IF (l_error_level >= l_debug_level) THEN
1603: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_EXISTS');
1604: l_mesg1 := fnd_message.get;
1605: FND_LOG.MESSAGE(l_error_level,'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Preview Exists', TRUE);
1606: -- fnd_file.put_line required for display to user
1607: fnd_file.put_line(fnd_file.log, l_mesg1);
1600: /* bug 3495368, start 1
1601: -- commenting out as no longer required
1602: IF (l_error_level >= l_debug_level) THEN
1603: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_EXISTS');
1604: l_mesg1 := fnd_message.get;
1605: FND_LOG.MESSAGE(l_error_level,'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Preview Exists', TRUE);
1606: -- fnd_file.put_line required for display to user
1607: fnd_file.put_line(fnd_file.log, l_mesg1);
1608:
1608:
1609: -- list of assets
1610: l_preview_exists := NULL;
1611: FOR l_preview_exists IN c_preview_exists(l_book_type_code) LOOP
1612: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_ASSETS');
1613: fnd_message.set_token('ASSET_NUM', l_preview_exists.asset_number, FALSE);
1614: l_mesg1 := fnd_message.get;
1615: FND_LOG.MESSAGE(l_error_level,'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Preview Exists', TRUE);
1616: -- fnd_file.put_line required for display to user
1609: -- list of assets
1610: l_preview_exists := NULL;
1611: FOR l_preview_exists IN c_preview_exists(l_book_type_code) LOOP
1612: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_ASSETS');
1613: fnd_message.set_token('ASSET_NUM', l_preview_exists.asset_number, FALSE);
1614: l_mesg1 := fnd_message.get;
1615: FND_LOG.MESSAGE(l_error_level,'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Preview Exists', TRUE);
1616: -- fnd_file.put_line required for display to user
1617: fnd_file.put_line(fnd_file.log, l_mesg1);
1610: l_preview_exists := NULL;
1611: FOR l_preview_exists IN c_preview_exists(l_book_type_code) LOOP
1612: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_ASSETS');
1613: fnd_message.set_token('ASSET_NUM', l_preview_exists.asset_number, FALSE);
1614: l_mesg1 := fnd_message.get;
1615: FND_LOG.MESSAGE(l_error_level,'igi.plsql.IGI_IAC_WEBADI_PKG.Transfer_Data.Preview Exists', TRUE);
1616: -- fnd_file.put_line required for display to user
1617: fnd_file.put_line(fnd_file.log, l_mesg1);
1618: END LOOP;
1619: END IF;
1620: bug 3495368, end 1 */
1621:
1622: -- bug 3495368, start 2
1623: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_EXISTS');
1624: l_message := fnd_message.get;
1625: -- bug 3495368, end 2
1626:
1627: errbuf := SQLERRM||': '||l_message;
1620: bug 3495368, end 1 */
1621:
1622: -- bug 3495368, start 2
1623: fnd_message.set_name('IGI', 'IGI_IAC_UPL_PREVIEW_EXISTS');
1624: l_message := fnd_message.get;
1625: -- bug 3495368, end 2
1626:
1627: errbuf := SQLERRM||': '||l_message;
1628: retcode :=2;