[Home] [Help]
192: end if;
193: end if;
194:
195: -- Clear the debug stack for each asset
196: fa_srvr_msg.init_server_message;
197: fa_debug_pkg.initialize;
198:
199: -- Get Print Debug profile option.
200: fnd_profile.get('PRINT_DEBUG', l_debug_flag);
347: l_transaction_status(i) := 'ERROR';
348: x_failure_count := x_failure_count + 1;
349: x_return_status := 1;
350:
351: fa_srvr_msg.add_message(
352: calling_fn => l_calling_fn,
353: application => 'CUA',
354: name => 'CUA_TRF_FAILED',
355: token1 => 'Mass_External_Transfer_ID',
450: l_transaction_status(i) := 'ERROR';
451: x_failure_count := x_failure_count + 1;
452: x_return_status := 1;
453:
454: fa_srvr_msg.add_message(
455: calling_fn => l_calling_fn,
456: application => 'CUA',
457: name => 'CUA_TRF_FAILED',
458: token1 => 'Mass_External_Transfer_ID',
461: else
462: l_transaction_status(i) := 'POSTED';
463: x_success_count := x_success_count + 1;
464:
465: fa_srvr_msg.add_message(
466: calling_fn => l_calling_fn,
467: application => 'CUA',
468: name => 'CUA_TRF_SUCCESS',
469: token1 => 'Mass_External_Transfer_ID',
505: x_return_status := 2;
506:
507: WHEN OTHERS THEN
508:
509: fa_srvr_msg.add_sql_error(
510: calling_fn => l_calling_fn, p_log_level_rec => g_log_level_rec);
511:
512: ROLLBACK TO process_transfer;
513:
518: l_transaction_status(l_counter) := 'ERROR';
519: x_failure_count := x_failure_count + 1;
520: x_return_status := 2;
521:
522: fa_srvr_msg.add_message(
523: calling_fn => l_calling_fn,
524: application => 'CUA',
525: name => 'CUA_TRF_FAILED',
526: token1 => 'Mass_External_Transfer_ID',
785: BEGIN
786:
787: -- Check for nulls
788: if (p_from_asset_id is null) then
789: fa_srvr_msg.add_message(
790: calling_fn => l_calling_fn,
791: application => 'CUA',
792: name => 'CUA_NULL_FROM ASSET_ID',
793: token1 => 'FROM_ASSET_ID',
795: raise validate_err;
796: end if;
797:
798: if (p_book_type_code is null) then
799: fa_srvr_msg.add_message(
800: calling_fn => l_calling_fn,
801: application => 'CUA',
802: name => 'CUA_NULL_BOOK',
803: token1 => 'BOOK',
805: raise validate_err;
806: end if;
807:
808: if (p_from_distribution_id is null) then
809: fa_srvr_msg.add_message(
810: calling_fn => l_calling_fn,
811: application => 'CUA',
812: name => 'CUA_NULL_DISTRIBUTION_ID',
813: token1 => 'DISTRIBUTION_ID',
815: raise validate_err;
816: end if;
817:
818: if (p_to_location_id is null) then
819: fa_srvr_msg.add_message(
820: calling_fn => l_calling_fn,
821: application => 'CUA',
822: name => 'CUA_NULL_LOCATION_ID',
823: token1 => 'LOCATION_ID',
825: raise validate_err;
826: end if;
827:
828: if (p_to_gl_ccid is null) then
829: fa_srvr_msg.add_message(
830: calling_fn => l_calling_fn,
831: application => 'CUA',
832: name => 'CUA_NULL_GL_CCID',
833: token1 => 'GL_CCID',
835: raise validate_err;
836: end if;
837:
838: if (p_transfer_units is null) then
839: fa_srvr_msg.add_message(
840: calling_fn => l_calling_fn,
841: application => 'CUA',
842: name => 'CUA_NULL_TRANSFER_UNITS',
843: token1 => 'TRANSFER_UNITS',
846: end if;
847:
848: -- Zero Or Less Transfer Units
849: if (p_transfer_units <= 0) then
850: fa_srvr_msg.add_message(
851: calling_fn => l_calling_fn,
852: application => 'CUA',
853: name => 'CUA_ZERO_TRANSFER_UNITS',
854: token1 => 'TRANSFER_UNITS',
876: where distribution_id = p_from_distribution_id;
877:
878: exception
879: when no_data_found then
880: fa_srvr_msg.add_message(
881: calling_fn => l_calling_fn,
882: application => 'CUA',
883: name => 'CUA_INVALID_DISTRIBUTION_ID',
884: token1 => 'DISTRIBUTION_ID',
887: end ;
888:
889: -- Transfer Units Greater than units assigned
890: if (p_transfer_units > l_from_units_assigned) then
891: fa_srvr_msg.add_message(
892: calling_fn => l_calling_fn,
893: application => 'CUA',
894: name => 'CUA_GREATER_TRANSFER_UNITS',
895: token1 => 'TRANSFER_UNITS',
898: end if;
899:
900: -- The From Asset Id Is Invalid
901: if (p_from_asset_id <> l_from_asset_id) then
902: fa_srvr_msg.add_message(
903: calling_fn => l_calling_fn,
904: application => 'CUA',
905: name => 'CUA_INVALID_FROM_ASSET_ID',
906: token1 => 'FROM_ASSET_ID',
909: end if;
910:
911: -- Book Type Code Is Invalid
912: if (p_book_type_code <> l_book_type_code) then
913: fa_srvr_msg.add_message(
914: calling_fn => l_calling_fn,
915: application => 'CUA',
916: name => 'CUA_INVALID_BOOK',
917: token1 => 'BOOK',
920: end if;
921:
922: -- Distribution Id Is Invalid / terminated distribution
923: if (l_from_date_ineffective is not null) then
924: fa_srvr_msg.add_message(
925: calling_fn => l_calling_fn,
926: application => 'CUA',
927: name => 'CUA_INVALID_DISTRIBUTION_ID',
928: token1 => 'DISTRIBUTION_ID',
939: and nvl(start_date_active, sysdate) <= sysdate
940: and nvl(end_date_active, sysdate + 1) > sysdate ;
941:
942: if (l_to_gl_ccid_exists = 0) then
943: fa_srvr_msg.add_message(
944: calling_fn => l_calling_fn,
945: application => 'CUA',
946: name => 'CUA_INVALID_GL_CCID',
947: token1 => 'GL_CCID',
958: and nvl(start_date_active, sysdate) <= sysdate
959: and nvl(end_date_active, sysdate + 1) > sysdate ;
960:
961: if (l_to_location_id_exists = 0) then
962: fa_srvr_msg.add_message(
963: calling_fn => l_calling_fn,
964: application => 'CUA',
965: name => 'CUA_INVALID_LOCATION_ID',
966: token1 => 'LOCATION_ID',
981: and p.effective_end_date
982: and nvl(s.actual_termination_date,sysdate) >= sysdate; -- Bug 7573372
983:
984: if (l_to_employee_id_exists = 0) then
985: fa_srvr_msg.add_message(
986: calling_fn => l_calling_fn,
987: application => 'CUA',
988: name => 'CUA_INVALID_EMPLOYEE_ID',
989: token1 => 'EMPLOYEE_ID',
996: if ((l_from_gl_ccid = p_to_gl_ccid) and
997: (l_from_location_id = p_to_location_id) and
998: (nvl(l_from_employee_id, -999) = nvl(p_to_employee_id, -999))) then
999:
1000: fa_srvr_msg.add_message(
1001: calling_fn => l_calling_fn,
1002: application => 'CUA',
1003: name => 'CUA_IDENTICAL_DISTRIBUTION',
1004: token1 => 'DISTRIBUTION',
1011: fetch ck_asset_retired into l_check_retired;
1012: if (ck_asset_retired%notfound) then
1013: close ck_asset_retired;
1014:
1015: fa_srvr_msg.add_message(
1016: calling_fn => l_calling_fn,
1017: application => 'CUA',
1018: name => 'CUA_INVALID_FROM_ASSET_ID',
1019: token1 => 'FROM_ASSET_ID',
1023: close ck_asset_retired;
1024:
1025: -- From Asset is fully retired
1026: if (l_check_retired > 0) then
1027: fa_srvr_msg.add_message(
1028: calling_fn => l_calling_fn,
1029: application => 'CUA',
1030: name => 'CUA_RETIRED_ASSET',
1031: token1 => 'ASSET',
1047: and fadp.book_type_Code = p_book_type_code
1048: and fadp.period_close_date is null;
1049:
1050: if (l_check_prior_period <> 0) then
1051: fa_srvr_msg.add_message(
1052: calling_fn => l_calling_fn,
1053: application => 'CUA',
1054: name => 'CUA_ONE_PRIOR_PERIOD_TRX',
1055: token1 => 'TRANSACTION_DATE',
1065: open ck_check_batch_for_transfers;
1066: fetch ck_check_batch_for_transfers into l_check_pending_batch;
1067: close ck_check_batch_for_transfers;
1068: if(l_check_pending_batch = 1) then
1069: fa_srvr_msg.add_message(
1070: calling_fn => l_calling_fn,
1071: application => 'CUA',
1072: name => 'CUA_PENDING_BATCH',
1073: token1 => 'BOOK',
1080: EXCEPTION
1081: WHEN validate_err THEN
1082: return FALSE;
1083: WHEN OTHERS THEN
1084: fa_srvr_msg.add_message(
1085: calling_fn => l_calling_fn,
1086: application => 'CUA',
1087: name => 'CUA_INVALID_DATA',
1088: token1 => 'INVALID_DATA',