[Home] [Help]
266: if NVL(l_set_of_books_id,0) = 0 then
267: l_error_api_name := 'IMPORT_PREGEN_LINES';
268: fnd_message.set_name('PSP','PSP_PI_NO_PROFILE_FOR_SOB');
269: fnd_msg_pub.add;
270: raise FND_API.G_EXC_UNEXPECTED_ERROR;
271: end if;
272:
273: Begin
274: FND_STATS.Gather_Table_Stats(ownname => 'PSP',
316: IF (l_currency_count > 1) THEN
317: fnd_message.set_name('PSP', 'PSP_PI_INVALID_CURRENCY');
318: fnd_message.set_token('BATCH_NAME', p_batch_name);
319: fnd_msg_pub.add;
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
323: OPEN currency_code_cur;
324: FETCH currency_code_cur INTO g_currency_code;
335:
336: /*************************************************************************************************
337: if g_auto_population ='Y' then
338: Autopop(errbuf, retcode, p_batch_name);
339: IF retcode != FND_API.G_RET_STS_SUCCESS THEN
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: END IF;
342: end if;
343:
336: /*************************************************************************************************
337: if g_auto_population ='Y' then
338: Autopop(errbuf, retcode, p_batch_name);
339: IF retcode != FND_API.G_RET_STS_SUCCESS THEN
340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
341: END IF;
342: end if;
343:
344: Modified Procedure Call
357: X_Operating_Unit =>p_operating_unit,
358: X_Gms_Pa_Install => l_gms_pa_install,
359: X_Return_Status =>l_return_status);
360:
361: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
362: -- Included changes for bug fix 2094036, to commit autopop errors as part of inerface errors
363: l_batch_status := 1;
364: IF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
360:
361: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
362: -- Included changes for bug fix 2094036, to commit autopop errors as part of inerface errors
363: l_batch_status := 1;
364: IF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367: END IF;
368: end if;
361: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
362: -- Included changes for bug fix 2094036, to commit autopop errors as part of inerface errors
363: l_batch_status := 1;
364: IF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367: END IF;
368: end if;
369:
391: if NVL(l_batch_name_count,0) > 0 then
392: fnd_message.set_name('PSP','PSP_PI_INVALID_BATCH_NAME');
393: fnd_message.set_token('PSP_BATCH_NAME',p_batch_name);
394: fnd_msg_pub.add;
395: raise FND_API.G_EXC_UNEXPECTED_ERROR;
396: end if;
397:
398: /* Bug 2007521: Optimization, Run this part only if autopop is OFF */
399: if nvl(g_pregen_autopop,'N') <> 'Y' then
413: X_set_of_books_id => p_set_of_books_id,
414: X_return_status => l_return_status,
415: X_return_code => l_return_code);
416: --dbms_output.PUT_LINE('................4');
417: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
418: l_batch_status := 1;
419: if l_return_code = 'OTHER' then
420: l_error_api_name := 'VALIDATE_PERSON_ID';
421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
417: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
418: l_batch_status := 1;
419: if l_return_code = 'OTHER' then
420: l_error_api_name := 'VALIDATE_PERSON_ID';
421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
422: else
423: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
424: X_error_code => l_return_code,
425: X_return_status => l_return_status);
422: else
423: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
424: X_error_code => l_return_code,
425: X_return_status => l_return_status);
426: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
427: raise FND_API.G_EXC_UNEXPECTED_ERROR;
428: end if;
429: end if;
430: else
423: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
424: X_error_code => l_return_code,
425: X_return_status => l_return_status);
426: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
427: raise FND_API.G_EXC_UNEXPECTED_ERROR;
428: end if;
429: end if;
430: else
431: Validate_Assignment_ID(X_Assignment_ID => g_pregen_rec.assignment_id,
435: X_business_group_id => p_business_group_id,
436: X_set_of_books_id => p_set_of_books_id);
437:
438: --dbms_output.PUT_LINE('................5');
439: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
440: l_batch_status := 1;
441: if l_return_code = 'OTHER' then
442: l_error_api_name := 'VALIDATE_ASSIGNMENT_ID';
443: raise FND_API.G_EXC_UNEXPECTED_ERROR;
439: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
440: l_batch_status := 1;
441: if l_return_code = 'OTHER' then
442: l_error_api_name := 'VALIDATE_ASSIGNMENT_ID';
443: raise FND_API.G_EXC_UNEXPECTED_ERROR;
444: else
445: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
446: X_error_code => l_return_code,
447: X_return_status => l_return_status);
444: else
445: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
446: X_error_code => l_return_code,
447: X_return_status => l_return_status);
448: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
449: raise FND_API.G_EXC_UNEXPECTED_ERROR;
450: end if;
451: end if;
452: else
445: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
446: X_error_code => l_return_code,
447: X_return_status => l_return_status);
448: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
449: raise FND_API.G_EXC_UNEXPECTED_ERROR;
450: end if;
451: end if;
452: else
453: Validate_Payroll_ID(X_Payroll_ID => g_pregen_rec.payroll_id,
458: X_business_group_id => p_business_group_id,
459: X_set_of_books_id => p_set_of_books_id);
460:
461: --dbms_output.PUT_LINE('................6');
462: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
463: l_batch_status := 1;
464: if l_return_code = 'OTHER' then
465: l_error_api_name := 'VALIDATE_PAYROLL_ID';
466: raise FND_API.G_EXC_UNEXPECTED_ERROR;
462: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
463: l_batch_status := 1;
464: if l_return_code = 'OTHER' then
465: l_error_api_name := 'VALIDATE_PAYROLL_ID';
466: raise FND_API.G_EXC_UNEXPECTED_ERROR;
467: else
468: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
469: X_error_code => l_return_code,
470: X_return_status => l_return_status);
467: else
468: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
469: X_error_code => l_return_code,
470: X_return_status => l_return_status);
471: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
472: raise FND_API.G_EXC_UNEXPECTED_ERROR;
473: end if;
474: end if;
475: else
468: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
469: X_error_code => l_return_code,
470: X_return_status => l_return_status);
471: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
472: raise FND_API.G_EXC_UNEXPECTED_ERROR;
473: end if;
474: end if;
475: else
476: Validate_Payroll_Period_ID(X_Payroll_ID => g_pregen_rec.payroll_id,
478: X_Effective_Date => g_pregen_rec.distribution_date,
479: X_return_status => l_return_status,
480: X_return_code => l_return_code);
481: --dbms_output.PUT_LINE('................7');
482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
483: l_batch_status := 1;
484: if l_return_code = 'OTHER' then
485: l_error_api_name := 'VALIDATE_PAYROLL_PERIOD_ID';
486: raise FND_API.G_EXC_UNEXPECTED_ERROR;
482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
483: l_batch_status := 1;
484: if l_return_code = 'OTHER' then
485: l_error_api_name := 'VALIDATE_PAYROLL_PERIOD_ID';
486: raise FND_API.G_EXC_UNEXPECTED_ERROR;
487: else
488: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
489: X_error_code => l_return_code,
490: X_return_status => l_return_status);
487: else
488: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
489: X_error_code => l_return_code,
490: X_return_status => l_return_status);
491: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
492: raise FND_API.G_EXC_UNEXPECTED_ERROR;
493: end if;
494: end if;
495: else
488: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
489: X_error_code => l_return_code,
490: X_return_status => l_return_status);
491: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
492: raise FND_API.G_EXC_UNEXPECTED_ERROR;
493: end if;
494: end if;
495: else
496: --For Bug fix 2985061 : adding the validation of DR_CR Flag
497: VALIDATE_DR_CR_FLAG ( X_DR_CR_FLAG => g_pregen_rec.dr_cr_flag,
498: X_return_status => l_return_status,
499: X_return_code => l_return_code);
500:
501: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
502: l_batch_status := 1;
503: IF l_return_code = 'OTHER' THEN
504: l_error_api_name := 'VALIDATE_DR_CR_FLAG';
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
502: l_batch_status := 1;
503: IF l_return_code = 'OTHER' THEN
504: l_error_api_name := 'VALIDATE_DR_CR_FLAG';
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: ELSE
507: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
508: X_error_code => l_return_code,
509: X_return_status => l_return_status);
506: ELSE
507: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
508: X_error_code => l_return_code,
509: X_return_status => l_return_status);
510: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513: END IF;
514: ELSE
507: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
508: X_error_code => l_return_code,
509: X_return_status => l_return_status);
510: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513: END IF;
514: ELSE
515: --End of Changes for Bug 2985061
516: Validate_Payroll_Source_Code(X_Payroll_Source_Code => g_pregen_rec.source_code,
517: X_return_status => l_return_status,
518: X_return_code => l_return_code);
519: --dbms_output.PUT_LINE('................8');
520: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
521: --dbms_output.PUT_LINE('Entered Failure................8');
522: l_batch_status := 1;
523: if l_return_code = 'OTHER' then
524: l_error_api_name := 'VALIDATE_PAYROLL_SOURCE_CODE';
521: --dbms_output.PUT_LINE('Entered Failure................8');
522: l_batch_status := 1;
523: if l_return_code = 'OTHER' then
524: l_error_api_name := 'VALIDATE_PAYROLL_SOURCE_CODE';
525: raise FND_API.G_EXC_UNEXPECTED_ERROR;
526: else
527: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
528: X_error_code => l_return_code,
529: X_return_status => l_return_status);
526: else
527: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
528: X_error_code => l_return_code,
529: X_return_status => l_return_status);
530: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
531: raise FND_API.G_EXC_UNEXPECTED_ERROR;
532: end if;
533: end if;
534: else
527: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
528: X_error_code => l_return_code,
529: X_return_status => l_return_status);
530: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
531: raise FND_API.G_EXC_UNEXPECTED_ERROR;
532: end if;
533: end if;
534: else
535: Validate_Element_Type_ID(X_Element_Type_ID => g_pregen_rec.element_type_id,
539: x_set_of_books_id => p_set_of_books_id,
540: X_return_status => l_return_status,
541: X_return_code => l_return_code);
542: --dbms_output.PUT_LINE('................9');
543: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
544: l_batch_status := 1;
545: if l_return_code = 'OTHER' then
546: l_error_api_name := 'VALIDATE_ELEMENT_TYPE_ID';
547: raise FND_API.G_EXC_UNEXPECTED_ERROR;
543: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
544: l_batch_status := 1;
545: if l_return_code = 'OTHER' then
546: l_error_api_name := 'VALIDATE_ELEMENT_TYPE_ID';
547: raise FND_API.G_EXC_UNEXPECTED_ERROR;
548: else
549: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
550: X_error_code => l_return_code,
551: X_return_status => l_return_status);
548: else
549: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
550: X_error_code => l_return_code,
551: X_return_status => l_return_status);
552: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
553: raise FND_API.G_EXC_UNEXPECTED_ERROR;
554: end if;
555: end if;
556: elsif g_pregen_rec.gl_code_combination_id IS NULL and
549: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
550: X_error_code => l_return_code,
551: X_return_status => l_return_status);
552: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
553: raise FND_API.G_EXC_UNEXPECTED_ERROR;
554: end if;
555: end if;
556: elsif g_pregen_rec.gl_code_combination_id IS NULL and
557: g_pregen_rec.project_id IS NULL then
559: l_return_code := 'NUL_GLP';
560: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
561: X_error_code => l_return_code,
562: X_return_status => l_return_status);
563: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
564: raise FND_API.G_EXC_UNEXPECTED_ERROR;
565: end if;
566: elsif g_pregen_rec.gl_code_combination_id IS NOT NULL and
567: g_pregen_rec.project_id IS NOT NULL then
560: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
561: X_error_code => l_return_code,
562: X_return_status => l_return_status);
563: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
564: raise FND_API.G_EXC_UNEXPECTED_ERROR;
565: end if;
566: elsif g_pregen_rec.gl_code_combination_id IS NOT NULL and
567: g_pregen_rec.project_id IS NOT NULL then
568: l_batch_status := 1;
569: l_return_code := 'NOT_GLP';
570: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
571: X_error_code => l_return_code,
572: X_return_status => l_return_status);
573: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
574: raise FND_API.G_EXC_UNEXPECTED_ERROR;
575: end if;
576: /* Bug fix 2985061 */
577: elsif g_pregen_rec.gl_code_combination_id IS NOT NULL then
570: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
571: X_error_code => l_return_code,
572: X_return_status => l_return_status);
573: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
574: raise FND_API.G_EXC_UNEXPECTED_ERROR;
575: end if;
576: /* Bug fix 2985061 */
577: elsif g_pregen_rec.gl_code_combination_id IS NOT NULL then
578: validate_gl_cc_id( x_code_combination_id => g_pregen_rec.gl_code_combination_id,
578: validate_gl_cc_id( x_code_combination_id => g_pregen_rec.gl_code_combination_id,
579: x_return_status => l_return_status,
580: x_return_code => l_return_code);
581:
582: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
583: l_batch_status := 1;
584: IF l_return_code = 'OTHER' THEN
585: l_error_api_name := 'VALIDATE_GL_CC_ID';
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
583: l_batch_status := 1;
584: IF l_return_code = 'OTHER' THEN
585: l_error_api_name := 'VALIDATE_GL_CC_ID';
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: ELSE
588: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
589: X_error_code => l_return_code,
590: X_return_status => l_return_status);
587: ELSE
588: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
589: X_error_code => l_return_code,
590: X_return_status => l_return_status);
591: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
594: END IF;
595: END IF;
588: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
589: X_error_code => l_return_code,
590: X_return_status => l_return_status);
591: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
593: END IF;
594: END IF;
595: END IF;
596:
598: -- elsif NVL(g_pregen_rec.project_id,0) <> 0 then
599: /****** Check for projects is installed or not ***************/
600: if l_gms_pa_install ='NO_PA_GMS' then
601: l_batch_status:=1;
602: l_return_status:= FND_API.G_RET_STS_ERROR;
603: l_return_code:='NO_PA';
604: update_record_with_error(
605: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
606: X_error_code => l_return_code,
604: update_record_with_error(
605: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
606: X_error_code => l_return_code,
607: X_return_status => l_return_status);
608: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
609: raise FND_API.G_EXC_UNEXPECTED_ERROR;
610: end if;
611: else
612: Validate_Project_details(X_Project_ID => g_pregen_rec.project_id,
605: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
606: X_error_code => l_return_code,
607: X_return_status => l_return_status);
608: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
609: raise FND_API.G_EXC_UNEXPECTED_ERROR;
610: end if;
611: else
612: Validate_Project_details(X_Project_ID => g_pregen_rec.project_id,
613: X_task_id => g_pregen_rec.task_id,
622: --dbms_output.PUT_LINE('................10');
623: --dbms_output.PUT_LINE('return status.....' || l_return_status);
624: --dbms_output.PUT_LINE('return code.....' || l_return_code);
625: end if;
626: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
627: -- l_batch_status := 1;
628: if l_return_code = 'OTHER' then
629: l_batch_status := 1; /* 2007521 */
630: l_error_api_name := 'VALIDATE_PROJECTS_DETAILS';
627: -- l_batch_status := 1;
628: if l_return_code = 'OTHER' then
629: l_batch_status := 1; /* 2007521 */
630: l_error_api_name := 'VALIDATE_PROJECTS_DETAILS';
631: raise FND_API.G_EXC_UNEXPECTED_ERROR;
632: else
633: if g_use_pre_gen_suspense = 'Y' then
634: stick_suspense_account( g_pregen_rec.assignment_id,
635: g_pregen_rec.distribution_date,
639: l_return_code,
640: p_business_group_id,
641: p_set_of_books_id,
642: l_return_status);
643: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
644: raise FND_API.G_EXC_UNEXPECTED_ERROR;
645: end if;
646: /* Bug 2007521: moved code into stick suspense a/c
647: update_record_with_valid(X_distribution_interface_id=>
640: p_business_group_id,
641: p_set_of_books_id,
642: l_return_status);
643: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
644: raise FND_API.G_EXC_UNEXPECTED_ERROR;
645: end if;
646: /* Bug 2007521: moved code into stick suspense a/c
647: update_record_with_valid(X_distribution_interface_id=>
648: g_pregen_rec.distribution_interface_id,
646: /* Bug 2007521: moved code into stick suspense a/c
647: update_record_with_valid(X_distribution_interface_id=>
648: g_pregen_rec.distribution_interface_id,
649: X_return_status => l_return_status);
650: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
651: raise FND_API.G_EXC_UNEXPECTED_ERROR;
652: end if; */
653: else
654: l_batch_status := 1;
647: update_record_with_valid(X_distribution_interface_id=>
648: g_pregen_rec.distribution_interface_id,
649: X_return_status => l_return_status);
650: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
651: raise FND_API.G_EXC_UNEXPECTED_ERROR;
652: end if; */
653: else
654: l_batch_status := 1;
655: update_record_with_error(X_distribution_interface_id=>
655: update_record_with_error(X_distribution_interface_id=>
656: g_pregen_rec.distribution_interface_id,
657: X_error_code => l_return_code,
658: X_return_status => l_return_status);
659: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
660: raise FND_API.G_EXC_UNEXPECTED_ERROR;
661: end if;
662: end if;
663: end if;
656: g_pregen_rec.distribution_interface_id,
657: X_error_code => l_return_code,
658: X_return_status => l_return_status);
659: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
660: raise FND_API.G_EXC_UNEXPECTED_ERROR;
661: end if;
662: end if;
663: end if;
664: else
665: ----dbms_output.put_line ('Update record with valid');
666: l_return_code := 0;
667: update_record_with_valid(X_distribution_interface_id=> g_pregen_rec.distribution_interface_id,
668: X_return_status => l_return_status);
669: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
670: raise FND_API.G_EXC_UNEXPECTED_ERROR;
671: end if;
672: end if;
673: else
666: l_return_code := 0;
667: update_record_with_valid(X_distribution_interface_id=> g_pregen_rec.distribution_interface_id,
668: X_return_status => l_return_status);
669: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
670: raise FND_API.G_EXC_UNEXPECTED_ERROR;
671: end if;
672: end if;
673: else
674: ----dbms_output.put_line ('Update record with valid');
674: ----dbms_output.put_line ('Update record with valid');
675: l_return_code := 0;
676: update_record_with_valid(X_distribution_interface_id=> g_pregen_rec.distribution_interface_id,
677: X_return_status => l_return_status);
678: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
680: end if;
681: end if;
682: end if;
675: l_return_code := 0;
676: update_record_with_valid(X_distribution_interface_id=> g_pregen_rec.distribution_interface_id,
677: X_return_status => l_return_status);
678: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
679: raise FND_API.G_EXC_UNEXPECTED_ERROR;
680: end if;
681: end if;
682: end if;
683: end if;
704: fnd_msg_pub.add;
705: -- This comment was added by Chandra to commit records
706: -- in the PSP_DISTRIBUTION_INTERFACE table with the status
707: commit; -- Added by Chandra
708: raise FND_API.G_EXC_UNEXPECTED_ERROR;
709: end if;
710: --For Bug 2096440 : Moved the END IF above , the check for l_batch_status=1 has to be applicable for autopop 'Y' as well as 'N'
711: -- end if; /* Bug 2007521: Optimization */
712: --
808: T.time_period_id = a.time_period_id and
809: susp.organization_account_id(+) = a.suspense_org_account_id;
810: if sql%NOTFOUND then
811: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while inserting data');
812: raise FND_API.G_EXC_UNEXPECTED_ERROR;
813: end if;
814: --dbms_output.PUT_LINE('...Crossed First Insert ' );
815: --dbms_output.PUT_LINE('...L_gl_count ' || to_char(l_gl_count) );
816: --dbms_output.PUT_LINE('...L_project_count ' || to_char(l_project_count) );
822: WHERE batch_name = p_batch_name;
823: --dbms_output.PUT_LINE('...Crossed Update ' );
824: if sql%NOTFOUND then
825: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while Updating Transfer status ');
826: raise FND_API.G_EXC_UNEXPECTED_ERROR;
827: end if;
828:
829: -- Total up all records by source_code, time_period_id to write into payroll_control table
830:
900: x_currency_code => g_currency_code,
901: x_exchange_rate_type => l_exchange_rate_type);
902: if sql%NOTFOUND then
903: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while inserting data in Payroll Controls');
904: raise FND_API.G_EXC_UNEXPECTED_ERROR;
905: end if;
906: --dbms_output.PUT_LINE('...Before Updating control_id in pre gen ' );
907: UPDATE psp_pre_gen_dist_lines
908: SET payroll_control_id = l_control_id
913: set_of_books_id= l_set_of_books_id and
914: business_group_id = p_business_group_id;
915: if sql%NOTFOUND then
916: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while updating control_id in pre-gen-dist-lines ');
917: raise FND_API.G_EXC_UNEXPECTED_ERROR;
918: end if;
919:
920: l_ft_source_code := g_for_total_rec.source_code;
921: l_ft_time_period_id := g_for_total_rec.time_period_id;
988: x_exchange_rate_type => l_exchange_rate_type);
989:
990: if sql%NOTFOUND then
991: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while inserting data in Payroll Controls');
992: raise FND_API.G_EXC_UNEXPECTED_ERROR;
993: end if;
994: --dbms_output.PUT_LINE('...Before Updating control_id in pre gen ' );
995: UPDATE psp_pre_gen_dist_lines
996: SET payroll_control_id = l_control_id
1001: set_of_books_id= l_set_of_books_id and
1002: business_group_id = p_business_group_id;
1003: if sql%NOTFOUND then
1004: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Error while updating control_id in pre-gen-dist-lines ');
1005: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1006: end if;
1007: close get_for_total_csr;
1008: end if;
1009: errbuf := l_subline_message;
1030: fnd_message.set_name('PSP','PSP_PROGRAM_SUCCESS') ;
1031: fnd_msg_pub.add;
1032:
1033: psp_message_s.print_error(p_mode=>FND_FILE.log,
1034: p_print_header=>FND_API.G_FALSE);
1035: PSP_MESSAGE_S.Print_Success;
1036: return;
1037:
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1034: p_print_header=>FND_API.G_FALSE);
1035: PSP_MESSAGE_S.Print_Success;
1036: return;
1037:
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1039: ----dbms_output.put_line('Unexpected Error...........');
1040: /*
1041: fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
1042: p_encoded => FND_API.G_FALSE,
1038: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1039: ----dbms_output.put_line('Unexpected Error...........');
1040: /*
1041: fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
1042: p_encoded => FND_API.G_FALSE,
1043: p_data => l_msg_data,
1044: p_msg_index_out => l_msg_count);
1045:
1046: */
1047: errbuf := l_error_api_name || fnd_global.local_chr(10) || l_msg_data || fnd_global.local_chr(10);
1048: retcode := 2;
1049: rollback;
1050: psp_message_s.print_error(p_mode => FND_FILE.LOG,
1051: p_print_header => FND_API.G_TRUE);
1052: return;
1053: WHEN OTHERS then
1054: ----dbms_output.put_line('When others Error...........');
1055: /*
1053: WHEN OTHERS then
1054: ----dbms_output.put_line('When others Error...........');
1055: /*
1056: fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
1057: p_encoded => FND_API.G_FALSE,
1058: p_data => l_msg_data,
1059: p_msg_index_out => l_msg_count);
1060:
1061: */
1062: errbuf := l_error_api_name || fnd_global.local_chr(10) || l_msg_data || fnd_global.local_chr(10);
1063: rollback;
1064: retcode := 2;
1065: psp_message_s.print_error(p_mode => FND_FILE.LOG,
1066: p_print_header => FND_API.G_TRUE);
1067: return;
1068: END;
1069: --
1070:
1121: Begin
1122: open check_person_csr;
1123: fetch check_person_csr into l_person_id;
1124: if check_person_csr%NOTFOUND then
1125: x_return_status := FND_API.G_RET_STS_ERROR;
1126: x_return_code := 'INV_PER';
1127: close check_person_csr;
1128: return;
1129: else
1126: x_return_code := 'INV_PER';
1127: close check_person_csr;
1128: return;
1129: else
1130: x_return_status := FND_API.G_RET_STS_SUCCESS;
1131: x_return_code := ' ';
1132: end If;
1133: close check_person_csr;
1134: Exception
1132: end If;
1133: close check_person_csr;
1134: Exception
1135: when no_data_found or too_many_rows then
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: x_return_code := 'INV_PER';
1138: close check_person_csr;
1139: return;
1140: when OTHERS then
1138: close check_person_csr;
1139: return;
1140: when OTHERS then
1141: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Person_id : Unexpected Error');
1142: x_return_status := FND_API.G_RET_STS_ERROR;
1143: x_return_code := 'OTHER';
1144: close check_person_csr;
1145: End Validate_Person_ID;
1146:
1169: Begin
1170: open check_assg_csr;
1171: fetch check_assg_csr into l_assignment_id;
1172: if check_assg_csr%NOTFOUND then
1173: x_return_status := FND_API.G_RET_STS_ERROR;
1174: x_return_code := 'INV_ASG';
1175: close check_assg_csr;
1176: return;
1177: else
1174: x_return_code := 'INV_ASG';
1175: close check_assg_csr;
1176: return;
1177: else
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179: x_return_code := ' ';
1180: end If;
1181: close check_assg_csr;
1182:
1181: close check_assg_csr;
1182:
1183: Exception
1184: when no_data_found or too_many_rows then
1185: x_return_status := FND_API.G_RET_STS_ERROR;
1186: x_return_code := 'INV_ASG';
1187: close check_assg_csr;
1188: return;
1189: when OTHERS then
1187: close check_assg_csr;
1188: return;
1189: when OTHERS then
1190: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Assignment_id : Unexpected Error');
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: x_return_code := 'OTHER';
1193: close check_assg_csr;
1194: End Validate_Assignment_ID;
1195:
1225: open check_payroll_csr;
1226: fetch check_payroll_csr into l_payroll_id;
1227: if check_payroll_csr%NOTFOUND then
1228: ----dbms_output.put_line('%NOTFOUND');
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: x_return_code := 'INV_PID';
1231: close check_payroll_csr;
1232: return;
1233: else
1231: close check_payroll_csr;
1232: return;
1233: else
1234: ----dbms_output.put_line('%SUCCESS');
1235: x_return_status := FND_API.G_RET_STS_SUCCESS;
1236: x_return_code := ' ';
1237: end If;
1238: close check_payroll_csr;
1239: Exception
1238: close check_payroll_csr;
1239: Exception
1240: when no_data_found or too_many_rows then
1241: ----dbms_output.put_line('NO DATA FOUND');
1242: x_return_status := FND_API.G_RET_STS_ERROR;
1243: x_return_code := 'INV_PID';
1244: close check_payroll_csr;
1245: return;
1246: when OTHERS then
1245: return;
1246: when OTHERS then
1247: ----dbms_output.put_line('OTHERS ');
1248: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Payroll_id : Unexpected Error');
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: x_return_code := 'OTHER';
1251: close check_payroll_csr;
1252: return;
1253: end;
1274: Begin
1275: open check_period_csr;
1276: fetch check_period_csr into l_period_id;
1277: if check_period_csr%NOTFOUND then
1278: x_return_status := FND_API.G_RET_STS_ERROR;
1279: x_return_code := 'INV_TPI';
1280: close check_period_csr;
1281: return;
1282: else
1279: x_return_code := 'INV_TPI';
1280: close check_period_csr;
1281: return;
1282: else
1283: x_return_status := FND_API.G_RET_STS_SUCCESS;
1284: x_return_code := ' ';
1285: end If;
1286: close check_period_csr;
1287: Exception
1285: end If;
1286: close check_period_csr;
1287: Exception
1288: when no_data_found or too_many_rows then
1289: x_return_status := FND_API.G_RET_STS_ERROR;
1290: x_return_code := 'INV_TPI';
1291: close check_period_csr;
1292: return;
1293: when OTHERS then
1291: close check_period_csr;
1292: return;
1293: when OTHERS then
1294: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Period_id : Unexpected Error');
1295: x_return_status := FND_API.G_RET_STS_ERROR;
1296: x_return_code := 'OTHER';
1297: close check_period_csr;
1298: return;
1299: End Validate_Payroll_Period_ID;
1313: open check_source_csr;
1314: fetch check_source_csr into l_lookup_code;
1315: if check_source_csr%NOTFOUND then
1316: --dbms_output.PUT_LINE('Enter NOTFOUND......8');
1317: x_return_status := FND_API.G_RET_STS_ERROR;
1318: x_return_code := 'INV_SRC';
1319: close check_source_csr;
1320: return;
1321: else
1319: close check_source_csr;
1320: return;
1321: else
1322: --dbms_output.PUT_LINE('Enter Success.....8');
1323: x_return_status := FND_API.G_RET_STS_SUCCESS;
1324: x_return_code := ' ';
1325: end If;
1326: close check_source_csr;
1327: Exception
1326: close check_source_csr;
1327: Exception
1328: when no_data_found or too_many_rows then
1329: --dbms_output.PUT_LINE('Enter Too_many_rows....8');
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331: x_return_code := 'INV_SRC';
1332: close check_source_csr;
1333: return;
1334: when OTHERS then
1333: return;
1334: when OTHERS then
1335: --dbms_output.PUT_LINE('Enter Too_many_rows....8');
1336: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Payroll_Source_Code : Unexpected Error');
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338: x_return_code := 'OTHER';
1339: close check_source_csr;
1340: return;
1341: End Validate_Payroll_Source_Code;
1377: Begin
1378: open check_element_csr;
1379: fetch check_element_csr into l_element_id;
1380: if check_element_csr%NOTFOUND then
1381: x_return_status := FND_API.G_RET_STS_ERROR;
1382: x_return_code := 'INV_ELE';
1383: close check_element_csr;
1384: return;
1385: else
1382: x_return_code := 'INV_ELE';
1383: close check_element_csr;
1384: return;
1385: else
1386: x_return_status := FND_API.G_RET_STS_SUCCESS;
1387: x_return_code := ' ';
1388: end If;
1389: close check_element_csr;
1390: Exception
1388: end If;
1389: close check_element_csr;
1390: Exception
1391: when no_data_found or too_many_rows then
1392: x_return_status := FND_API.G_RET_STS_ERROR;
1393: x_return_code := 'INV_ELE';
1394: close check_element_csr;
1395: return;
1396: when OTHERS then
1394: close check_element_csr;
1395: return;
1396: when OTHERS then
1397: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Element_Type_Id : Unexpected Error');
1398: x_return_status := FND_API.G_RET_STS_ERROR;
1399: x_return_code := 'OTHER';
1400: close check_element_csr;
1401: return;
1402: End Validate_Element_Type_ID;
1486:
1487: IF X_GMS_PA_INSTALL IN ('PA_ONLY','PA_GMS') THEN
1488: --- added if condition for 2985061
1489: if x_exp_org_id is null then
1490: x_return_status := FND_API.G_RET_STS_ERROR;
1491: x_return_code := 'NULL_EXP_ORG';
1492: return;
1493: else
1494: pa_transactions_pub.validate_transaction(
1514: ----dbms_output.put_line('x_project_id'|| x_project_id);
1515:
1516:
1517: if l_patc_status is not null then
1518: x_return_status := FND_API.G_RET_STS_ERROR;
1519: ----Commented for Bug 2096440 : Added the following line-
1520: ----Passing l_patc_status as the return code ,which will be passed to stick_suspense_account procedure
1521: ----as suspense_reason_code
1522: -- x_return_code := 'INV_PATC';
1530: /* Commented for bug 2054610
1531: open check_award_csr;
1532: fetch check_award_csr into l_project_id;
1533: if check_award_csr%NOTFOUND then
1534: x_return_status := FND_API.G_RET_STS_ERROR;
1535: x_return_code := 'INV_AI';
1536: close check_award_csr;
1537: return;
1538: else
1535: x_return_code := 'INV_AI';
1536: close check_award_csr;
1537: return;
1538: else
1539: x_return_status := FND_API.G_RET_STS_SUCCESS;
1540: x_return_code := ' ';
1541: end If;
1542: close check_award_csr; */
1543:
1551: 'PSPLDPGB',
1552: l_award_status);
1553:
1554: IF l_award_status IS NOT NULL THEN
1555: x_return_status := FND_API.G_RET_STS_ERROR;
1556: ----Commented for Bug 2096440 : Added the following line-
1557: ----Passing l_award_status as the return code ,which will be passed to stick_suspense_account procedure
1558: ----as suspense_reason_code
1559: --x_return_code := 'INV_PATCAW';
1564: END IF; --End if of PA_GMS , for Bug 2096440
1565: end if; ---2985061
1566: END IF; --For Bug 2096440
1567:
1568: x_return_status := FND_API.G_RET_STS_SUCCESS;
1569: x_return_code := ' ';
1570: /*******************************************************************************
1571: Commented For Bug 2096440
1572:
1573: l_control_num := 5;
1574: open check_exp_type_csr;
1575: fetch check_exp_type_csr into l_exp_type;
1576: if check_exp_type_csr%NOTFOUND then
1577: x_return_status := FND_API.G_RET_STS_ERROR;
1578: x_return_code := 'INV_ET';
1579: close check_exp_type_csr;
1580: return;
1581: else
1578: x_return_code := 'INV_ET';
1579: close check_exp_type_csr;
1580: return;
1581: else
1582: x_return_status := FND_API.G_RET_STS_SUCCESS;
1583: x_return_code := ' ';
1584: end If;
1585: END IF;
1586: IF X_GMS_PA_INSTALL = 'PA_ONLY' THEN
1587: l_control_num := 5;
1588: open check_exp_type_csr1;
1589: fetch check_exp_type_csr1 into l_exp_type;
1590: if check_exp_type_csr1%NOTFOUND then
1591: x_return_status := FND_API.G_RET_STS_ERROR;
1592: x_return_code := 'INV_ET';
1593: close check_exp_type_csr1;
1594: return;
1595: else
1592: x_return_code := 'INV_ET';
1593: close check_exp_type_csr1;
1594: return;
1595: else
1596: x_return_status := FND_API.G_RET_STS_SUCCESS;
1597: x_return_code := ' ';
1598: end If;
1599: EN IF;
1600: END IF;
1603:
1604: EXCEPTION
1605: when OTHERS then
1606: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Validate_Project_Details : Unexpected Error');
1607: x_return_status := FND_API.G_RET_STS_ERROR;
1608: x_return_code := 'OTHER';
1609: /*************************************************************************************
1610: Commenting for bug 2096440
1611: if l_control_num = 1 then
1637: error_code = x_error_code
1638: WHERE distribution_interface_id = x_distribution_interface_id;
1639:
1640: if SQL%NOTFOUND then
1641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1642: end if;
1643: --dbms_output.PUT_LINE('.....Update Record With Error ');
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645: EXCEPTION
1640: if SQL%NOTFOUND then
1641: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1642: end if;
1643: --dbms_output.PUT_LINE('.....Update Record With Error ');
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645: EXCEPTION
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1647: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Error while updating');
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1642: end if;
1643: --dbms_output.PUT_LINE('.....Update Record With Error ');
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645: EXCEPTION
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1647: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Error while updating');
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: WHEN OTHERS then
1650: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Unexpected error');
1644: x_return_status := FND_API.G_RET_STS_SUCCESS;
1645: EXCEPTION
1646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1647: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Error while updating');
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: WHEN OTHERS then
1650: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Unexpected error');
1651: x_return_status := FND_API.G_RET_STS_ERROR;
1652:
1647: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Error while updating');
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: WHEN OTHERS then
1650: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_error : Unexpected error');
1651: x_return_status := FND_API.G_RET_STS_ERROR;
1652:
1653: end;
1654: --
1655: ----------------------------------UPDATE_RECORD_WITH_VALID-----------------------------------
1663: error_code = NULL
1664: WHERE distribution_interface_id = x_distribution_interface_id;
1665:
1666: if SQL%NOTFOUND then
1667: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1668: end if;
1669:
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671: EXCEPTION
1666: if SQL%NOTFOUND then
1667: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1668: end if;
1669:
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671: EXCEPTION
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1673: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Error while updating');
1674: x_return_status := FND_API.G_RET_STS_ERROR;
1668: end if;
1669:
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671: EXCEPTION
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1673: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Error while updating');
1674: x_return_status := FND_API.G_RET_STS_ERROR;
1675: WHEN OTHERS then
1676: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Unexpected error');
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671: EXCEPTION
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
1673: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Error while updating');
1674: x_return_status := FND_API.G_RET_STS_ERROR;
1675: WHEN OTHERS then
1676: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Unexpected error');
1677: x_return_status := FND_API.G_RET_STS_ERROR;
1678:
1673: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Error while updating');
1674: x_return_status := FND_API.G_RET_STS_ERROR;
1675: WHEN OTHERS then
1676: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_valid : Unexpected error');
1677: x_return_status := FND_API.G_RET_STS_ERROR;
1678:
1679: end;
1680: --
1681: Function get_least_date(x_time_period_id IN Number,x_person_id IN Number, x_gl_ccid IN Number,
1815: if NVL(l_batch_name_count,0) > 0 then
1816: fnd_message.set_name('PSP','PSP_PI_INVALID_BATCH_NAME');
1817: fnd_message.set_token('PSP_BATCH_NAME',x_batch_name);
1818: fnd_msg_pub.add;
1819: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1820: end if;
1821:
1822: open get_all_from_interface_csr;
1823: LOOP
1836: X_return_code => l_return_code,
1837: X_Business_group_Id => x_business_group_id
1838: );
1839: --dbms_output.PUT_LINE('................4');
1840: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1841: l_batch_status := 1;
1842: if l_return_code = 'OTHER' then
1843: l_error_api_name := 'VALIDATE_PERSON_ID';
1844: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1840: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1841: l_batch_status := 1;
1842: if l_return_code = 'OTHER' then
1843: l_error_api_name := 'VALIDATE_PERSON_ID';
1844: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1845: else
1846: update_record_with_error(
1847: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1848: X_error_code => l_return_code,
1846: update_record_with_error(
1847: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1848: X_error_code => l_return_code,
1849: X_return_status => x_return_status);
1850: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1851: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1852: end if;
1853: end if;
1854: else
1847: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1848: X_error_code => l_return_code,
1849: X_return_status => x_return_status);
1850: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1851: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1852: end if;
1853: end if;
1854: else
1855:
1859: X_Return_Code => l_return_code,
1860: X_Business_Group_Id =>x_business_group_id,
1861: X_Set_of_Books_Id => x_set_of_books_id);
1862: --dbms_output.PUT_LINE('................5');
1863: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1864: l_batch_status := 1;
1865: if l_return_code = 'OTHER' then
1866: l_error_api_name := 'VALIDATE_ASSIGNMENT_ID';
1867: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1863: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1864: l_batch_status := 1;
1865: if l_return_code = 'OTHER' then
1866: l_error_api_name := 'VALIDATE_ASSIGNMENT_ID';
1867: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1868: else
1869: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1870: X_error_code => l_return_code,
1871: X_return_status => x_return_status);
1868: else
1869: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1870: X_error_code => l_return_code,
1871: X_return_status => x_return_status);
1872: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1873: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1874: end if;
1875: end if;
1876:
1869: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1870: X_error_code => l_return_code,
1871: X_return_status => x_return_status);
1872: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1873: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1874: end if;
1875: end if;
1876:
1877: else
1884: X_return_code => l_return_code,
1885: X_business_group_id => x_business_group_id,
1886: X_set_of_books_id => x_set_of_books_id);
1887:
1888: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1889: l_batch_status := 1;
1890: IF l_return_code = 'OTHER' THEN
1891: l_error_api_name := 'VALIDATE_PAYROLL_ID';
1892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1888: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1889: l_batch_status := 1;
1890: IF l_return_code = 'OTHER' THEN
1891: l_error_api_name := 'VALIDATE_PAYROLL_ID';
1892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1893: ELSE
1894: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1895: X_error_code => l_return_code,
1896: X_return_status => x_return_status);
1893: ELSE
1894: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1895: X_error_code => l_return_code,
1896: X_return_status => x_return_status);
1897: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1899: END IF;
1900: END IF;
1901: ELSE
1894: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1895: X_error_code => l_return_code,
1896: X_return_status => x_return_status);
1897: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1898: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1899: END IF;
1900: END IF;
1901: ELSE
1902: --End of Changes for Bug 2616807
1905: X_Effective_Date => g_pregen_rec.distribution_date,
1906: X_return_status => x_return_status,
1907: X_return_code => l_return_code);
1908: --dbms_output.PUT_LINE('................7');
1909: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1910: l_batch_status := 1;
1911: if l_return_code = 'OTHER' then
1912: l_error_api_name := 'VALIDATE_PAYROLL_PERIOD_ID';
1913: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1909: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1910: l_batch_status := 1;
1911: if l_return_code = 'OTHER' then
1912: l_error_api_name := 'VALIDATE_PAYROLL_PERIOD_ID';
1913: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1914: else
1915: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1916: X_error_code => l_return_code,
1917: X_return_status => x_return_status);
1914: else
1915: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1916: X_error_code => l_return_code,
1917: X_return_status => x_return_status);
1918: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1919: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1920: end if;
1921: end if;
1922: else
1915: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1916: X_error_code => l_return_code,
1917: X_return_status => x_return_status);
1918: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1919: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1920: end if;
1921: end if;
1922: else
1923: --For Bug fix 2985061 : adding the validation of DR_CR Flag
1925: VALIDATE_DR_CR_FLAG ( X_DR_CR_FLAG => g_pregen_rec.dr_cr_flag,
1926: X_return_status => x_return_status,
1927: X_return_code => l_return_code);
1928:
1929: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1930: l_batch_status := 1;
1931: IF l_return_code = 'OTHER' THEN
1932: l_error_api_name := 'VALIDATE_DR_CR_FLAG';
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1929: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1930: l_batch_status := 1;
1931: IF l_return_code = 'OTHER' THEN
1932: l_error_api_name := 'VALIDATE_DR_CR_FLAG';
1933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1934: ELSE
1935: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1936: X_error_code => l_return_code,
1937: X_return_status => x_return_status);
1934: ELSE
1935: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1936: X_error_code => l_return_code,
1937: X_return_status => x_return_status);
1938: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941: END IF;
1942: ELSE
1935: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1936: X_error_code => l_return_code,
1937: X_return_status => x_return_status);
1938: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941: END IF;
1942: ELSE
1943: --End of Changes for Bug 2985061
1946: Validate_Payroll_Source_Code(X_Payroll_Source_Code => g_pregen_rec.source_code,
1947: X_return_status => x_return_status,
1948: X_return_code => l_return_code);
1949:
1950: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1951: l_batch_status := 1;
1952: IF l_return_code = 'OTHER' THEN
1953: l_error_api_name := 'VALIDATE_PAYROLL_SOURCE_CODE';
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1950: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1951: l_batch_status := 1;
1952: IF l_return_code = 'OTHER' THEN
1953: l_error_api_name := 'VALIDATE_PAYROLL_SOURCE_CODE';
1954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1955: ELSE
1956: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1957: X_error_code => l_return_code,
1958: X_return_status => x_return_status);
1955: ELSE
1956: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1957: X_error_code => l_return_code,
1958: X_return_status => x_return_status);
1959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962: END IF;
1963: ELSE
1956: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1957: X_error_code => l_return_code,
1958: X_return_status => x_return_status);
1959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962: END IF;
1963: ELSE
1964: --End of Changes for Bug 2616807
1969: x_set_of_books_id => x_set_of_books_id,
1970: X_return_status => x_return_status,
1971: X_return_code => l_return_code);
1972: --dbms_output.PUT_LINE('................9');
1973: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1974: l_batch_status := 1;
1975: if l_return_code = 'OTHER' then
1976: l_error_api_name := 'VALIDATE_ELEMENT_TYPE_ID';
1977: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1973: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1974: l_batch_status := 1;
1975: if l_return_code = 'OTHER' then
1976: l_error_api_name := 'VALIDATE_ELEMENT_TYPE_ID';
1977: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1978: else
1979: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1980: X_error_code => l_return_code,
1981: X_return_status => x_return_status);
1978: else
1979: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1980: X_error_code => l_return_code,
1981: X_return_status => x_return_status);
1982: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1983: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1984: end if;
1985: end if;
1986:
1979: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1980: X_error_code => l_return_code,
1981: X_return_status => x_return_status);
1982: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1983: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1984: end if;
1985: end if;
1986:
1987: elsif g_pregen_rec.gl_code_combination_id IS NULL and
1991: update_record_with_error(
1992: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1993: X_error_code => l_return_code,
1994: X_return_status => x_return_status);
1995: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1996: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1997: end if;
1998: elsif g_pregen_rec.gl_code_combination_id IS NOT NULL and
1999: g_pregen_rec.project_id IS NOT NULL then
1992: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
1993: X_error_code => l_return_code,
1994: X_return_status => x_return_status);
1995: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1996: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1997: end if;
1998: elsif g_pregen_rec.gl_code_combination_id IS NOT NULL and
1999: g_pregen_rec.project_id IS NOT NULL then
2000: l_batch_status := 1;
2003: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2004: X_error_code => l_return_code,
2005: X_return_status => x_return_status);
2006:
2007: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2008: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2009: end if;
2010:
2011: elsif g_pregen_rec.project_id is not null then /* Bug fix 2985061 */
2004: X_error_code => l_return_code,
2005: X_return_status => x_return_status);
2006:
2007: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2008: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2009: end if;
2010:
2011: elsif g_pregen_rec.project_id is not null then /* Bug fix 2985061 */
2012: hr_utility.trace('project_id is not null');
2020:
2021:
2022: if x_gms_pa_install ='NO_PA_GMS' then
2023: l_batch_status:=1;
2024: x_return_status:= FND_API.G_RET_STS_ERROR;
2025: l_return_code:='NO_PA';
2026: update_record_with_error(
2027: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2028: X_error_code => l_return_code,
2026: update_record_with_error(
2027: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2028: X_error_code => l_return_code,
2029: X_return_status => x_return_status);
2030: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2031: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2032: end if;
2033:
2034:
2027: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2028: X_error_code => l_return_code,
2029: X_return_status => x_return_status);
2030: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2031: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2032: end if;
2033:
2034:
2035:
2049: --dbms_output.PUT_LINE('return status.....' || l_return_status);
2050: --dbms_output.PUT_LINE('return code.....' || l_return_code);
2051:
2052: end if;
2053: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2054: --- l_batch_status := 1; /* Bug 2007521 */
2055: if l_return_code = 'OTHER' then
2056: l_error_api_name := 'VALIDATE_PROJECTS_DETAILS';
2057: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2053: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2054: --- l_batch_status := 1; /* Bug 2007521 */
2055: if l_return_code = 'OTHER' then
2056: l_error_api_name := 'VALIDATE_PROJECTS_DETAILS';
2057: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2058: else
2059: if g_use_pre_gen_suspense = 'Y' then
2060: stick_suspense_account( g_pregen_rec.assignment_id,
2061: g_pregen_rec.distribution_date,
2065: l_return_code,
2066: x_business_group_id,
2067: x_set_of_books_id,
2068: x_return_status);
2069: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2070: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2071: end if;
2072: /* Bug 2007521: moved code into stick suspense a/c
2073: update_record_with_valid(X_distribution_interface_id=>
2066: x_business_group_id,
2067: x_set_of_books_id,
2068: x_return_status);
2069: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2070: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2071: end if;
2072: /* Bug 2007521: moved code into stick suspense a/c
2073: update_record_with_valid(X_distribution_interface_id=>
2074: g_pregen_rec.distribution_interface_id,
2072: /* Bug 2007521: moved code into stick suspense a/c
2073: update_record_with_valid(X_distribution_interface_id=>
2074: g_pregen_rec.distribution_interface_id,
2075: X_return_status => l_return_status);
2076: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2077: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2078: end if; */
2079: else
2080: l_batch_status := 1;
2073: update_record_with_valid(X_distribution_interface_id=>
2074: g_pregen_rec.distribution_interface_id,
2075: X_return_status => l_return_status);
2076: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2077: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2078: end if; */
2079: else
2080: l_batch_status := 1;
2081: update_record_with_error(
2082: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2083: X_error_code => l_return_code,
2084: X_return_status => x_return_status);
2085:
2086: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2087: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2088: end if;
2089: end if;
2090: end if;
2083: X_error_code => l_return_code,
2084: X_return_status => x_return_status);
2085:
2086: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2087: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2088: end if;
2089: end if;
2090: end if;
2091: else
2107: ret_expenditure_type => l_new_expenditure_type,
2108: ret_gl_code_combination_id => l_new_gl_code_combination_id,
2109: retcode => l_autopop_status);
2110:
2111: IF l_autopop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2112: l_batch_status := 1;
2113: l_return_code := 'AUTOPOP_EXP_ERR';
2114: update_record_with_error(X_distribution_interface_id =>
2115: g_pregen_rec.distribution_interface_id,
2114: update_record_with_error(X_distribution_interface_id =>
2115: g_pregen_rec.distribution_interface_id,
2116: X_error_code => l_return_code,
2117: X_return_status => x_return_status);
2118: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2119: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2120: end if;
2121: ELSIF l_autopop_status = FND_API.G_RET_STS_ERROR THEN
2122: /********Will not populate distribution interface table if autopop returns no value
2115: g_pregen_rec.distribution_interface_id,
2116: X_error_code => l_return_code,
2117: X_return_status => x_return_status);
2118: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2119: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2120: end if;
2121: ELSIF l_autopop_status = FND_API.G_RET_STS_ERROR THEN
2122: /********Will not populate distribution interface table if autopop returns no value
2123: ******** as it is not considered an error condition.
2117: X_return_status => x_return_status);
2118: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2119: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2120: end if;
2121: ELSIF l_autopop_status = FND_API.G_RET_STS_ERROR THEN
2122: /********Will not populate distribution interface table if autopop returns no value
2123: ******** as it is not considered an error condition.
2124: l_return_code := 'AUTOPOP_NO_VAL';
2125: update_record_with_error(X_distribution_interface_id =>
2125: update_record_with_error(X_distribution_interface_id =>
2126: g_pregen_rec.distribution_interface_id,
2127: X_error_code => l_return_code,
2128: X_return_status => x_return_status);
2129: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2130: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2131: end if;
2132: *********************************************************/
2133:
2126: g_pregen_rec.distribution_interface_id,
2127: X_error_code => l_return_code,
2128: X_return_status => x_return_status);
2129: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2130: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2131: end if;
2132: *********************************************************/
2133:
2134: l_return_code := 0;
2134: l_return_code := 0;
2135: update_record_with_valid(X_distribution_interface_id =>
2136: g_pregen_rec.distribution_interface_id,
2137: X_return_status => x_return_status);
2138: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2139: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2140: end if;
2141: ELSIF l_autopop_status = FND_API.G_RET_STS_SUCCESS THEN
2142: update_record_with_exp(X_distribution_interface_id =>
2135: update_record_with_valid(X_distribution_interface_id =>
2136: g_pregen_rec.distribution_interface_id,
2137: X_return_status => x_return_status);
2138: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2139: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2140: end if;
2141: ELSIF l_autopop_status = FND_API.G_RET_STS_SUCCESS THEN
2142: update_record_with_exp(X_distribution_interface_id =>
2143: g_pregen_rec.distribution_interface_id,
2137: X_return_status => x_return_status);
2138: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2139: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2140: end if;
2141: ELSIF l_autopop_status = FND_API.G_RET_STS_SUCCESS THEN
2142: update_record_with_exp(X_distribution_interface_id =>
2143: g_pregen_rec.distribution_interface_id,
2144: X_expenditure_type => l_new_expenditure_type,
2145: X_return_status => x_return_status);
2142: update_record_with_exp(X_distribution_interface_id =>
2143: g_pregen_rec.distribution_interface_id,
2144: X_expenditure_type => l_new_expenditure_type,
2145: X_return_status => x_return_status);
2146: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2147: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2148: end if;
2149: /* Introduced validation for Bug 2007521 */
2150: Validate_Project_details(X_Project_ID => g_pregen_rec.project_id,
2143: g_pregen_rec.distribution_interface_id,
2144: X_expenditure_type => l_new_expenditure_type,
2145: X_return_status => x_return_status);
2146: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2147: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2148: end if;
2149: /* Introduced validation for Bug 2007521 */
2150: Validate_Project_details(X_Project_ID => g_pregen_rec.project_id,
2151: X_task_id => g_pregen_rec.task_id,
2157: X_Effective_date => g_pregen_rec.distribution_date,
2158: X_return_status => x_return_status,
2159: X_return_code => l_return_code);
2160:
2161: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2162: if l_return_code = 'OTHER' then
2163: l_error_api_name := 'VALIDATE_PROJECTS_DETAILS';
2164: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2165: else
2160:
2161: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2162: if l_return_code = 'OTHER' then
2163: l_error_api_name := 'VALIDATE_PROJECTS_DETAILS';
2164: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2165: else
2166: if g_use_pre_gen_suspense = 'Y' then
2167: /* stick suspense, also makes Valid and puts in error code Bug 2007521 */
2168: stick_suspense_account( g_pregen_rec.assignment_id,
2173: l_return_code,
2174: x_business_group_id,
2175: x_set_of_books_id,
2176: x_return_status);
2177: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2178: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2179: end if;
2180: else
2181: l_batch_status := 1;
2174: x_business_group_id,
2175: x_set_of_books_id,
2176: x_return_status);
2177: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2178: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2179: end if;
2180: else
2181: l_batch_status := 1;
2182: update_record_with_error(
2182: update_record_with_error(
2183: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2184: X_error_code => l_return_code,
2185: X_return_status => x_return_status);
2186: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2187: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2188: end if;
2189: end if;
2190: end if;
2183: X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2184: X_error_code => l_return_code,
2185: X_return_status => x_return_status);
2186: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2187: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2188: end if;
2189: end if;
2190: end if;
2191: else
2193: l_return_code := 0;
2194: update_record_with_valid(X_distribution_interface_id =>
2195: g_pregen_rec.distribution_interface_id,
2196: X_return_status => x_return_status);
2197: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2198: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2199: end if;
2200: end if;
2201: END IF;
2194: update_record_with_valid(X_distribution_interface_id =>
2195: g_pregen_rec.distribution_interface_id,
2196: X_return_status => x_return_status);
2197: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2198: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2199: end if;
2200: end if;
2201: END IF;
2202: END IF;
2205: validate_gl_cc_id( x_code_combination_id => g_pregen_rec.gl_code_combination_id,
2206: x_return_status => x_return_status,
2207: x_return_code => l_return_code);
2208:
2209: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2210: l_batch_status := 1;
2211: IF l_return_code = 'OTHER' THEN
2212: l_error_api_name := 'VALIDATE_GL_CC_ID';
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2209: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2210: l_batch_status := 1;
2211: IF l_return_code = 'OTHER' THEN
2212: l_error_api_name := 'VALIDATE_GL_CC_ID';
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214: ELSE
2215: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2216: X_error_code => l_return_code,
2217: X_return_status => x_return_status);
2214: ELSE
2215: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2216: X_error_code => l_return_code,
2217: X_return_status => x_return_status);
2218: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2220: END IF;
2221: END IF;
2222: END IF;
2215: update_record_with_error(X_distribution_interface_id => g_pregen_rec.distribution_interface_id,
2216: X_error_code => l_return_code,
2217: X_return_status => x_return_status);
2218: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2220: END IF;
2221: END IF;
2222: END IF;
2223: -- Call Auto-Population for a new GL Code Combination Id that has a new Natural Account.
2237: ret_expenditure_type => l_new_expenditure_type,
2238: ret_gl_code_combination_id => l_new_gl_code_combination_id,
2239: retcode => l_autopop_status);
2240:
2241: IF l_autopop_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2242: l_batch_status := 1;
2243: l_return_code := 'AUTOPOP_NA_ERR';
2244: update_record_with_error(X_distribution_interface_id =>
2245: g_pregen_rec.distribution_interface_id,
2244: update_record_with_error(X_distribution_interface_id =>
2245: g_pregen_rec.distribution_interface_id,
2246: X_error_code => l_return_code,
2247: X_return_status => x_return_status);
2248: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2249: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2250: end if;
2251: ELSIF l_autopop_status = FND_API.G_RET_STS_ERROR THEN
2252:
2245: g_pregen_rec.distribution_interface_id,
2246: X_error_code => l_return_code,
2247: X_return_status => x_return_status);
2248: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2249: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2250: end if;
2251: ELSIF l_autopop_status = FND_API.G_RET_STS_ERROR THEN
2252:
2253: /********Will not populate distribution interface table if autopop returns no value
2247: X_return_status => x_return_status);
2248: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2249: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2250: end if;
2251: ELSIF l_autopop_status = FND_API.G_RET_STS_ERROR THEN
2252:
2253: /********Will not populate distribution interface table if autopop returns no value
2254: ******** as it is not considered an error condition.
2255: l_return_code := 'AUTOPOP_NO_VAL';
2256: update_record_with_error(X_distribution_interface_id =>
2257: g_pregen_rec.distribution_interface_id,
2258: X_error_code => l_return_code,
2259: X_return_status => x_return_status);
2260: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2261: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2262: end if;
2263: ******************************************************/
2264: l_return_code := 0;
2257: g_pregen_rec.distribution_interface_id,
2258: X_error_code => l_return_code,
2259: X_return_status => x_return_status);
2260: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2261: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2262: end if;
2263: ******************************************************/
2264: l_return_code := 0;
2265: update_record_with_valid(X_distribution_interface_id =>
2264: l_return_code := 0;
2265: update_record_with_valid(X_distribution_interface_id =>
2266: g_pregen_rec.distribution_interface_id,
2267: X_return_status => x_return_status);
2268: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2270: end if;
2271: ELSIF l_autopop_status = FND_API.G_RET_STS_SUCCESS THEN
2272: ----dbms_output.put_line ('Update record with valid');
2265: update_record_with_valid(X_distribution_interface_id =>
2266: g_pregen_rec.distribution_interface_id,
2267: X_return_status => x_return_status);
2268: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2270: end if;
2271: ELSIF l_autopop_status = FND_API.G_RET_STS_SUCCESS THEN
2272: ----dbms_output.put_line ('Update record with valid');
2273: l_return_code := 0;
2267: X_return_status => x_return_status);
2268: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2269: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2270: end if;
2271: ELSIF l_autopop_status = FND_API.G_RET_STS_SUCCESS THEN
2272: ----dbms_output.put_line ('Update record with valid');
2273: l_return_code := 0;
2274: update_record_with_valid(X_distribution_interface_id =>
2275: g_pregen_rec.distribution_interface_id,
2273: l_return_code := 0;
2274: update_record_with_valid(X_distribution_interface_id =>
2275: g_pregen_rec.distribution_interface_id,
2276: X_return_status => x_return_status);
2277: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2278: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2279: end if;
2280:
2281: update_record_with_na(X_distribution_interface_id =>
2274: update_record_with_valid(X_distribution_interface_id =>
2275: g_pregen_rec.distribution_interface_id,
2276: X_return_status => x_return_status);
2277: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2278: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2279: end if;
2280:
2281: update_record_with_na(X_distribution_interface_id =>
2282: g_pregen_rec.distribution_interface_id,
2281: update_record_with_na(X_distribution_interface_id =>
2282: g_pregen_rec.distribution_interface_id,
2283: X_gl_code_combination_id => l_new_gl_code_combination_id,
2284: X_return_status => x_return_status);
2285: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2286: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2287: end if;
2288: END IF;
2289: END IF;
2282: g_pregen_rec.distribution_interface_id,
2283: X_gl_code_combination_id => l_new_gl_code_combination_id,
2284: X_return_status => x_return_status);
2285: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2286: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2287: end if;
2288: END IF;
2289: END IF;
2290: end if;
2320: end if;
2321:
2322: fnd_message.set_name('PSP','PSP_BATCH_HAS_ERRORS');
2323: fnd_msg_pub.add;
2324: x_return_status:=FND_API.G_RET_STS_ERROR;
2325: else
2326: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2327: end if;
2328: -- commit; Commented COMMIT for bug fix 2094036, error reason codes get commited in main procedure.
2322: fnd_message.set_name('PSP','PSP_BATCH_HAS_ERRORS');
2323: fnd_msg_pub.add;
2324: x_return_status:=FND_API.G_RET_STS_ERROR;
2325: else
2326: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2327: end if;
2328: -- commit; Commented COMMIT for bug fix 2094036, error reason codes get commited in main procedure.
2329: return;
2330: EXCEPTION
2332: close get_all_from_interface_csr;
2333: FND_MESSAGE.SET_NAME('PSP','PSP_LD_NO_TRANS');
2334: l_subline_message := fnd_message.get;
2335: -- errbuf := SUBSTR(l_error_api_name ||fnd_global.local_chr(10) || l_subline_message,1,230);
2336: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2337: return;
2338:
2339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2340: ----dbms_output.put_line('Unexpected Error...........');
2335: -- errbuf := SUBSTR(l_error_api_name ||fnd_global.local_chr(10) || l_subline_message,1,230);
2336: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2337: return;
2338:
2339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2340: ----dbms_output.put_line('Unexpected Error...........');
2341: /*******************************************************************************************************
2342: fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
2343: p_encoded => FND_API.G_FALSE,
2339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2340: ----dbms_output.put_line('Unexpected Error...........');
2341: /*******************************************************************************************************
2342: fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
2343: p_encoded => FND_API.G_FALSE,
2344: p_data => l_msg_data,
2345: p_msg_index_out => l_msg_count);
2346:
2347: Printed from Message Stack
2347: Printed from Message Stack
2348: **********************************************************************************************************/
2349: -- errbuf := SUBSTR(l_error_api_name || fnd_global.local_chr(10) || l_msg_data || fnd_global.local_chr(10),1,230);
2350: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Autopop-Unexpected Error');
2351: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2352:
2353: rollback;
2354: return;
2355: WHEN OTHERS then
2356: ----dbms_output.put_line('When others Error...........');
2357:
2358: /*********************************************************************************************************
2359: fnd_msg_pub.get(p_msg_index => FND_MSG_PUB.G_FIRST,
2360: p_encoded => FND_API.G_FALSE,
2361: p_data => l_msg_data,
2362: p_msg_index_out => l_msg_count);
2363: -- errbuf := SUBSTR(l_error_api_name || fnd_global.local_chr(10) || l_msg_data || fnd_global.local_chr(10),1,230);
2364:
2365: printed from mesasge stack
2366: **********************************************************************************************************/
2367: rollback;
2368: fnd_msg_pub.add_exc_msg('PSP_PREGEN','Autopop-Error');
2369: x_return_status := FND_API.G_RET_STS_ERROR;
2370: --- x_retcode := 2;
2371: return;
2372: END Autopop;
2373:
2385: SET expenditure_type = X_expenditure_type
2386: WHERE distribution_interface_id = X_distribution_interface_id;
2387:
2388: if SQL%NOTFOUND then
2389: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2390: end if;
2391:
2392: x_return_status := FND_API.G_RET_STS_SUCCESS;
2393: EXCEPTION
2388: if SQL%NOTFOUND then
2389: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2390: end if;
2391:
2392: x_return_status := FND_API.G_RET_STS_SUCCESS;
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2395: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Error while updating');
2396: x_return_status := FND_API.G_RET_STS_ERROR;
2390: end if;
2391:
2392: x_return_status := FND_API.G_RET_STS_SUCCESS;
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2395: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Error while updating');
2396: x_return_status := FND_API.G_RET_STS_ERROR;
2397: WHEN OTHERS then
2398: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Unexpected error');
2392: x_return_status := FND_API.G_RET_STS_SUCCESS;
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2395: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Error while updating');
2396: x_return_status := FND_API.G_RET_STS_ERROR;
2397: WHEN OTHERS then
2398: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Unexpected error');
2399: x_return_status := FND_API.G_RET_STS_ERROR;
2400:
2395: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Error while updating');
2396: x_return_status := FND_API.G_RET_STS_ERROR;
2397: WHEN OTHERS then
2398: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_exp : Unexpected error');
2399: x_return_status := FND_API.G_RET_STS_ERROR;
2400:
2401: end;
2402:
2403: --
2413: SET gl_code_combination_id = X_gl_code_combination_id
2414: WHERE distribution_interface_id = X_distribution_interface_id;
2415:
2416: if SQL%NOTFOUND then
2417: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2418: end if;
2419:
2420: x_return_status := FND_API.G_RET_STS_SUCCESS;
2421: EXCEPTION
2416: if SQL%NOTFOUND then
2417: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2418: end if;
2419:
2420: x_return_status := FND_API.G_RET_STS_SUCCESS;
2421: EXCEPTION
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2423: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Error while updating');
2424: x_return_status := FND_API.G_RET_STS_ERROR;
2418: end if;
2419:
2420: x_return_status := FND_API.G_RET_STS_SUCCESS;
2421: EXCEPTION
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2423: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Error while updating');
2424: x_return_status := FND_API.G_RET_STS_ERROR;
2425: WHEN OTHERS then
2426: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Unexpected error');
2420: x_return_status := FND_API.G_RET_STS_SUCCESS;
2421: EXCEPTION
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
2423: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Error while updating');
2424: x_return_status := FND_API.G_RET_STS_ERROR;
2425: WHEN OTHERS then
2426: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Unexpected error');
2427: x_return_status := FND_API.G_RET_STS_ERROR;
2428:
2423: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Error while updating');
2424: x_return_status := FND_API.G_RET_STS_ERROR;
2425: WHEN OTHERS then
2426: fnd_msg_pub.add_exc_msg('PSP_PREGEN','update_record_with_na : Unexpected error');
2427: x_return_status := FND_API.G_RET_STS_ERROR;
2428:
2429: end;
2430:
2431: ---================================= GET_SUSPENSE_ACCOUNT ===================
2587: ||' p_payroll_date => '||p_effective_date
2588: ||' p_set_of_books_id => '||p_set_of_books_id
2589: ||' p_business_group_id => '||p_business_group_id);*/
2590:
2591: if (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2592: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) then
2593: if l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR then
2594: if l_acct_type ='N' then
2595: l_auto_status := 'AUTO_POP_NA_ERROR';
2588: ||' p_set_of_books_id => '||p_set_of_books_id
2589: ||' p_business_group_id => '||p_business_group_id);*/
2590:
2591: if (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2592: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) then
2593: if l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR then
2594: if l_acct_type ='N' then
2595: l_auto_status := 'AUTO_POP_NA_ERROR';
2596: else
2589: ||' p_business_group_id => '||p_business_group_id);*/
2590:
2591: if (l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2592: (l_auto_pop_status = FND_API.G_RET_STS_ERROR) then
2593: if l_auto_pop_status = FND_API.G_RET_STS_UNEXP_ERROR then
2594: if l_acct_type ='N' then
2595: l_auto_status := 'AUTO_POP_NA_ERROR';
2596: else
2597: l_auto_status :='AUTO_POP_EXP_ERROR';
2595: l_auto_status := 'AUTO_POP_NA_ERROR';
2596: else
2597: l_auto_status :='AUTO_POP_EXP_ERROR';
2598: end if;
2599: elsif l_auto_pop_status = FND_API.G_RET_STS_ERROR then
2600: l_auto_status := 'AUTO_POP_NO_VALUE';
2601: end if;
2602: open get_asg_details;
2603: fetch get_asg_details into l_employee_name, l_assignment_number, l_element_type, l_auto_org_name;
2628: fnd_message.set_token('CHARGING_ACCOUNT',l_account);
2629: fnd_message.set_token('AUTOPOP_ERROR',l_auto_status);
2630: fnd_message.set_token('EFF_DATE',p_effective_date);
2631: fnd_msg_pub.add;
2632: x_return_status := fnd_api.g_ret_sts_unexp_error;
2633: else
2634: x_suspense_auto_glccid := l_new_glccid;
2635: x_suspense_auto_exp_type := l_new_exp_type;
2636: suspense_rec.gl_code_combination_id := x_suspense_auto_glccid;
2649: X_Effective_date => p_effective_date,
2650: X_return_status => v_return_status,
2651: X_return_code => v_return_code);
2652:
2653: if v_return_status <> FND_API.G_RET_STS_SUCCESS then
2654: if v_return_code = 'OTHER' then
2655: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2656: else
2657: raise SUSPENSE_AC_INVALID; /* should raise functional fatal error 2007521 */
2651: X_return_code => v_return_code);
2652:
2653: if v_return_status <> FND_API.G_RET_STS_SUCCESS then
2654: if v_return_code = 'OTHER' then
2655: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2656: else
2657: raise SUSPENSE_AC_INVALID; /* should raise functional fatal error 2007521 */
2658: end if;
2659: end if;
2658: end if;
2659: end if;
2660: end if;
2661:
2662: x_return_status := FND_API.G_RET_STS_SUCCESS;
2663: end if;
2664: x_suspense_account := suspense_rec.organization_account_id;
2665: EXCEPTION
2666: WHEN NO_PROFILE_EXISTS THEN
2665: EXCEPTION
2666: WHEN NO_PROFILE_EXISTS THEN
2667: fnd_message.set_name('PSP','PSP_NO_PROFILE_EXISTS');
2668: fnd_msg_pub.add;
2669: x_return_status := fnd_api.g_ret_sts_unexp_error;
2670:
2671: WHEN NO_VAL_DATE_MATCHES THEN
2672: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
2673: fnd_message.set_token('ORG_NAME',p_organization_name);
2672: fnd_message.set_name('PSP','PSP_NO_VAL_DATE_MATCHES');
2673: fnd_message.set_token('ORG_NAME',p_organization_name);
2674: fnd_message.set_token('PAYROLL_DATE',p_effective_date);
2675: fnd_msg_pub.add;
2676: x_return_status := fnd_api.g_ret_sts_unexp_error;
2677:
2678: WHEN NO_GLOBAL_ACCT_EXISTS THEN
2679: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
2680: fnd_message.set_token('ORG_NAME',p_organization_name);
2679: fnd_message.set_name('PSP','PSP_NO_GLOBAL_ACCT_EXISTS');
2680: fnd_message.set_token('ORG_NAME',p_organization_name);
2681: fnd_message.set_token('PAYROLL_DATE',p_effective_date);
2682: fnd_msg_pub.add;
2683: x_return_status := fnd_api.g_ret_sts_unexp_error;
2684:
2685: WHEN SUSPENSE_AC_INVALID THEN
2686: /* Following added for bug 2514611 */
2687: OPEN employee_name_cur;
2691: fnd_message.set_token('ORG_NAME',p_organization_name);
2692: fnd_message.set_token('PATC_STATUS',v_return_code);
2693: fnd_message.set_token('EMPLOYEE_NAME',l_employee_name); --Bug 2514611
2694: fnd_msg_pub.add;
2695: x_return_status := fnd_api.g_ret_sts_unexp_error;
2696:
2697: WHEN OTHERS THEN
2698: if org_suspense_cur%isopen then
2699: close org_suspense_cur;
2701: if org_suspense_cur2%isopen then
2702: close org_suspense_cur2;
2703: end if;
2704: fnd_msg_pub.add_exc_msg('PSP_PREGEN','GET_SUSPENSE_ACCOUNT');
2705: x_return_status := fnd_api.g_ret_sts_unexp_error;
2706: END;
2707: ---================================= STICK_SUSPENSE_ACCOUNT ===================
2708: /* Bug fix 2007521: Created this procedure.
2709: Sticks suspense account for Pre-Gen line with invalid POETA account. */
2756: v_suspense_account,
2757: v_return_status,
2758: l_suspense_auto_glccid,
2759: l_suspense_auto_exp_type);
2760: if v_return_status <> FND_API.G_RET_STS_SUCCESS then
2761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2762: end if;
2763:
2764: update psp_distribution_interface
2757: v_return_status,
2758: l_suspense_auto_glccid,
2759: l_suspense_auto_exp_type);
2760: if v_return_status <> FND_API.G_RET_STS_SUCCESS then
2761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2762: end if;
2763:
2764: update psp_distribution_interface
2765: set suspense_org_account_id = v_suspense_account,
2769: suspense_auto_exp_type = l_suspense_auto_exp_type
2770: where distribution_interface_id = p_distribution_interface_id;
2771: close org_name_cur;
2772: end if;
2773: p_return_status := FND_API.G_RET_STS_SUCCESS;
2774: EXCEPTION
2775: When ASSIGN_ORG_NOT_FOUND then
2776: fnd_msg_pub.add_exc_msg('PSP_PREGEN','STICK_SUSPENSE_ACCOUNT-(Assign ORG)');
2777: p_return_status := fnd_api.g_ret_sts_unexp_error;
2773: p_return_status := FND_API.G_RET_STS_SUCCESS;
2774: EXCEPTION
2775: When ASSIGN_ORG_NOT_FOUND then
2776: fnd_msg_pub.add_exc_msg('PSP_PREGEN','STICK_SUSPENSE_ACCOUNT-(Assign ORG)');
2777: p_return_status := fnd_api.g_ret_sts_unexp_error;
2778: When others then
2779: if org_name_cur%isopen then
2780: close org_name_cur;
2781: end if;
2779: if org_name_cur%isopen then
2780: close org_name_cur;
2781: end if;
2782: fnd_msg_pub.add_exc_msg('PSP_PREGEN','STICK_SUSPENSE_ACCOUNT');
2783: p_return_status := fnd_api.g_ret_sts_unexp_error;
2784: END;
2785:
2786: /* Bug fix 2985061: Created this procedure.
2787: If Cr_Dr_Flag in the psp_distribution_interface table is not in ('C','D') then throw Exception */
2790: X_return_status OUT NOCOPY varchar2,
2791: X_return_code OUT NOCOPY varchar2) IS
2792: BEGIN
2793: if (X_DR_CR_FLAG = 'D') or (X_DR_CR_FLAG = 'C') then
2794: x_return_status := FND_API.G_RET_STS_SUCCESS;
2795: x_return_code := ' ';
2796: else
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: x_return_code := 'INV_D_C';
2793: if (X_DR_CR_FLAG = 'D') or (X_DR_CR_FLAG = 'C') then
2794: x_return_status := FND_API.G_RET_STS_SUCCESS;
2795: x_return_code := ' ';
2796: else
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: x_return_code := 'INV_D_C';
2799: end if;
2800: EXCEPTION
2801: when OTHERS then
2799: end if;
2800: EXCEPTION
2801: when OTHERS then
2802: fnd_msg_pub.add_exc_msg('PSP_PREGEN','VALIDATE_DR_CR_FLAG : Unexpected Error');
2803: x_return_status := FND_API.G_RET_STS_ERROR;
2804: x_return_code := 'OTHER';
2805: return;
2806: END VALIDATE_DR_CR_FLAG;
2807:
2819: BEGIN
2820: open check_code_combination_csr;
2821: fetch check_code_combination_csr into l_code_combination_id;
2822: if check_code_combination_csr%NOTFOUND then
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: x_return_code := 'INV_GLC';
2825: close check_code_combination_csr;
2826: return;
2827: else
2824: x_return_code := 'INV_GLC';
2825: close check_code_combination_csr;
2826: return;
2827: else
2828: x_return_status := FND_API.G_RET_STS_SUCCESS;
2829: x_return_code := ' ';
2830: end If;
2831: close check_code_combination_csr;
2832: Exception
2830: end If;
2831: close check_code_combination_csr;
2832: Exception
2833: when no_data_found or too_many_rows then
2834: x_return_status := FND_API.G_RET_STS_ERROR;
2835: x_return_code := 'INV_GLC';
2836: close check_code_combination_csr;
2837: return;
2838: when OTHERS then
2836: close check_code_combination_csr;
2837: return;
2838: when OTHERS then
2839: fnd_msg_pub.add_exc_msg('PSP_PREGEN','VALIDATE_GL_CODE_COMBINATION_ID : Unexpected Error');
2840: x_return_status := FND_API.G_RET_STS_ERROR;
2841: x_return_code := 'OTHER';
2842: close check_code_combination_csr;
2843: return;
2844: End VALIDATE_GL_CC_ID;