397: End Loop;
398: End If;
399:
400: IF (p_batch_insert ='Y') THEN
401: l_insert := FND_API.G_TRUE;
402: ELSE
403: l_insert := FND_API.G_FALSE;
404: END IF;
405:
399:
400: IF (p_batch_insert ='Y') THEN
401: l_insert := FND_API.G_TRUE;
402: ELSE
403: l_insert := FND_API.G_FALSE;
404: END IF;
405:
406: Fun_Trx_Pvt.Init_Batch_Validate (
407: 1.0,
404: END IF;
405:
406: Fun_Trx_Pvt.Init_Batch_Validate (
407: 1.0,
408: Fnd_Api.G_TRUE,
409: l_validation_level,
410: l_return_status,
411: l_msg_count,
412: l_msg_data,
414: l_batch_rec,
415: l_trx_tbl,
416: l_init_dist_tbl,
417: l_dist_lines_tbl);
418: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
419: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
420: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
421: Raise Fnd_Api.G_EXC_ERROR;
422: End If;
415: l_trx_tbl,
416: l_init_dist_tbl,
417: l_dist_lines_tbl);
418: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
419: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
420: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
421: Raise Fnd_Api.G_EXC_ERROR;
422: End If;
423:
416: l_init_dist_tbl,
417: l_dist_lines_tbl);
418: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
419: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
420: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
421: Raise Fnd_Api.G_EXC_ERROR;
422: End If;
423:
424: l_trx_tbl.Delete;
417: l_dist_lines_tbl);
418: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
419: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
420: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
421: Raise Fnd_Api.G_EXC_ERROR;
422: End If;
423:
424: l_trx_tbl.Delete;
425: l_init_dist_tbl.Delete;
469: l_msg_data := null;
470:
471: Fun_Trx_Pvt.Init_Trx_Validate (
472: 1.0,
473: Fnd_Api.G_TRUE,
474: l_validation_level,
475: l_return_status,
476: l_msg_count,
477: l_msg_data,
479: l_dist_lines_tbl,
480: l_batch_rec.currency_code,
481: l_batch_rec.gl_date,
482: l_batch_rec.batch_date);
483: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
484: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
485: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
486: Raise Fnd_Api.G_EXC_ERROR;
487: End If;
480: l_batch_rec.currency_code,
481: l_batch_rec.gl_date,
482: l_batch_rec.batch_date);
483: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
484: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
485: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
486: Raise Fnd_Api.G_EXC_ERROR;
487: End If;
488:
481: l_batch_rec.gl_date,
482: l_batch_rec.batch_date);
483: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
484: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
485: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
486: Raise Fnd_Api.G_EXC_ERROR;
487: End If;
488:
489: If p_dist_lines_tbl is not null Then
482: l_batch_rec.batch_date);
483: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
484: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
485: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
486: Raise Fnd_Api.G_EXC_ERROR;
487: End If;
488:
489: If p_dist_lines_tbl is not null Then
490: For l_count In 1..p_dist_lines_tbl.count Loop
521: -- Pass Recipient Legal entity Id
522:
523: Fun_Trx_Pvt.Init_IC_Dist_Validate (
524: 1.0,
525: Fnd_Api.G_TRUE,
526: l_validation_level,
527: l_to_le_id,
528: l_trx_rec_type.to_ledger_id,
529: --p_batch_rec.from_ledger_id,
536: -- Changes complete for Bug # 6249898
537:
538: Fun_Trx_Pvt.Init_IC_Dist_Validate (
539: 1.0,
540: Fnd_Api.G_TRUE,
541: l_validation_level,
542: p_batch_rec.from_le_id,
543: p_batch_rec.from_ledger_id,
544: l_return_status,
547: l_dist_lines_rec_type);
548:
549: End If;
550:
551: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
552: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
553: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
554: Raise Fnd_Api.G_EXC_ERROR;
555: End If;
548:
549: End If;
550:
551: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
552: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
553: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
554: Raise Fnd_Api.G_EXC_ERROR;
555: End If;
556: End Loop;
549: End If;
550:
551: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
552: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
553: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
554: Raise Fnd_Api.G_EXC_ERROR;
555: End If;
556: End Loop;
557: End If;
550:
551: If l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR Then
552: Raise Fnd_Api.G_EXC_UNEXPECTED_ERROR;
553: Elsif l_return_status = Fnd_Api.G_RET_STS_ERROR Then
554: Raise Fnd_Api.G_EXC_ERROR;
555: End If;
556: End Loop;
557: End If;
558: End Validate_Record;
560: Procedure Get_Message_Text(p_data In Out NOCOPY Varchar2) Is
561: Begin
562: p_data := Fnd_Msg_Pub.Get(
563: p_msg_index => Fnd_Msg_Pub.G_FIRST,
564: p_encoded => Fnd_Api.G_FALSE);
565: End Get_Message_Text;
566:
567: Procedure Upload_Batch(
568: p_batch_number In Fun_Interface_Batches.batch_number%type,
1362: Rollback;
1363: Fnd_Message.Set_Name('FUN','FUN_ADI_INVALID_DRCR_DIST');
1364: Fnd_Message.Set_Token('TRX_NUMBER', p_trx_number);
1365: Fnd_Message.Raise_Error;
1366: When Fnd_Api.G_EXC_UNEXPECTED_ERROR Then
1367: Rollback;
1368: Get_Message_Text(l_data);
1369: Fnd_Message.Set_Name('FUN', 'FUN_ADI_ERROR');
1370: Fnd_Message.Set_Token('ERROR', l_data);
1368: Get_Message_Text(l_data);
1369: Fnd_Message.Set_Name('FUN', 'FUN_ADI_ERROR');
1370: Fnd_Message.Set_Token('ERROR', l_data);
1371: Fnd_Message.Raise_Error;
1372: When Fnd_Api.G_EXC_ERROR Then
1373: Rollback;
1374: Get_Message_Text(l_data);
1375: Fnd_Message.Set_Name('FUN', 'FUN_ADI_ERROR');
1376: Fnd_Message.Set_Token('ERROR', l_data);