604: END IF;
605:
606: -- Initialize message list if p_init_msg_list is set to TRUE.
607: IF FND_API.to_Boolean( p_init_msg_list ) THEN
608: FND_MSG_PUB.initialize;
609: END IF;
610:
611: -- Initialize API return status to success
612: x_return_status := FND_API.G_RET_STS_SUCCESS;
639: ( token => l_token_name
640: , value => l_token_value
641: );
642: END IF;
643: FND_MSG_PUB.Add;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: ELSE
649: --Please Enter a Valid Transaction typ:
650: --1: Failure Information Entry
651: --2: Failure Information Update
652: FND_MESSAGE.SET_NAME ('EAM', 'EAM_FA_INVALID_TXN_TYPE');
653: FND_MSG_PUB.Add;
654: RAISE FND_API.G_EXC_ERROR;
655: /* dbms_output.put_line('After Validate_failure_entry_record2'); */
656:
657: END IF;
751: ( token => l_token_name
752: , value => l_token_value
753: );
754: END IF;
755: FND_MSG_PUB.Add;
756: RAISE FND_API.G_EXC_ERROR;
757: END IF;
758:
759: FOR i IN 1..l_eam_failure_codes_tbl.count
869: EXCEPTION
870: WHEN FND_API.G_EXC_ERROR THEN
871: ROLLBACK TO Process_Failure_Entry_PVT;
872: x_return_status := FND_API.G_RET_STS_ERROR ;
873: /* FND_MSG_PUB.Count_And_Get
874: (
875: p_count => x_msg_count ,
876: p_data => x_msg_data
877: ); */
877: ); */
878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
879: ROLLBACK TO Process_Failure_Entry_PVT;
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
881: /* FND_MSG_PUB.Count_And_Get
882: (
883: p_count => x_msg_count,
884: p_data => x_msg_data
885: ); */
885: ); */
886: WHEN OTHERS THEN
887: ROLLBACK TO Process_Failure_Entry_PVT;
888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
889: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
890: THEN
891: FND_MSG_PUB.Add_Exc_Msg
892: (
893: G_PKG_NAME,
887: ROLLBACK TO Process_Failure_Entry_PVT;
888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
889: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
890: THEN
891: FND_MSG_PUB.Add_Exc_Msg
892: (
893: G_PKG_NAME,
894: l_api_name
895: );
893: G_PKG_NAME,
894: l_api_name
895: );
896: END IF;
897: /* FND_MSG_PUB.Count_And_Get
898: (
899: p_count => x_msg_count,
900: p_data => x_msg_data
901: ); */
931: END IF;
932:
933: -- Initialize message list if p_init_msg_list is set to TRUE.
934: IF FND_API.to_Boolean( p_init_msg_list ) THEN
935: FND_MSG_PUB.initialize;
936: END IF;
937:
938: -- Initialize API return status to success
939: x_return_status := FND_API.G_RET_STS_SUCCESS;