849: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
850: raise FND_API.G_EXC_ERROR;
851: end if;
852:
853: PSB_MESSAGE_S.Print_Success;
854: retcode := 0 ;
855:
856: EXCEPTION
857:
856: EXCEPTION
857:
858: WHEN FND_API.G_EXC_ERROR THEN
859: --
860: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
861: p_print_header => FND_API.G_TRUE );
862: retcode := 2 ;
863: COMMIT WORK ;
864: --
863: COMMIT WORK ;
864: --
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866: --
867: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
868: p_print_header => FND_API.G_TRUE );
869: retcode := 2 ;
870: COMMIT WORK ;
871: --
878: END IF ;
879: --
880: l_return_status := FND_API.G_RET_STS_ERROR;
881:
882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
883: p_print_header => FND_API.G_TRUE );
884: --
885: retcode := 2 ;
886: COMMIT WORK ;