566: l_pa_debug_flag := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
567: l_pa_exp_date_default := FND_PROFILE.VALUE('PA_AP_EI_DATE_DEFAULT');
568:
569: IF l_pa_debug_flag = 'Y' THEN
570: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
571: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Default Exp item date profile:'||l_pa_exp_date_default) ;
572: END IF ;
573: END IF ;
574:
567: l_pa_exp_date_default := FND_PROFILE.VALUE('PA_AP_EI_DATE_DEFAULT');
568:
569: IF l_pa_debug_flag = 'Y' THEN
570: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
571: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Default Exp item date profile:'||l_pa_exp_date_default) ;
572: END IF ;
573: END IF ;
574:
575: CASE l_pa_exp_date_default
584: IF p_po_exp_item_date is not NULL then
585: l_return_date := p_po_exp_item_date ;
586: ELSE
587: IF l_pa_debug_flag = 'Y' THEN
588: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
589: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'PO expenditure item date is NULL') ;
590: END IF ;
591: END IF ;
592:
585: l_return_date := p_po_exp_item_date ;
586: ELSE
587: IF l_pa_debug_flag = 'Y' THEN
588: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
589: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'PO expenditure item date is NULL') ;
590: END IF ;
591: END IF ;
592:
593: IF p_po_distribution_id is not NULL then
594: open c_po_date ;
595: fetch c_po_date into l_return_date ;
596: close c_po_date ;
597: IF l_pa_debug_flag = 'Y' THEN
598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
599: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION',
600: 'Determining the date based on the PO distribution IDL') ;
601: END IF ;
602: END IF ;
595: fetch c_po_date into l_return_date ;
596: close c_po_date ;
597: IF l_pa_debug_flag = 'Y' THEN
598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
599: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION',
600: 'Determining the date based on the PO distribution IDL') ;
601: END IF ;
602: END IF ;
603: ELSE
612:
613: END CASE;
614:
615: IF l_pa_debug_flag = 'Y' THEN
616: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
617: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Date returned :'||to_char(l_return_date, 'DD-MON-YYYY')) ;
618: END IF ;
619: END IF ;
620:
613: END CASE;
614:
615: IF l_pa_debug_flag = 'Y' THEN
616: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
617: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Date returned :'||to_char(l_return_date, 'DD-MON-YYYY')) ;
618: END IF ;
619: END IF ;
620:
621: return l_return_date ;