[Home] [Help]
1: PACKAGE BODY pa_ap_integration AS
2: --$Header: PAAPINTB.pls 120.18.12020000.6 2013/03/28 06:01:04 arbandyo ship $
3: g_po_match_date DATE := NULL;
4:
5: PROCEDURE UPD_PA_DETAILS_SUPPLIER_MERGE
631: l_pa_exp_date_default := FND_PROFILE.VALUE('PA_AP_EI_DATE_DEFAULT');
632:
633: IF l_pa_debug_flag = 'Y' THEN
634: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
635: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Default Exp item date profile:'||l_pa_exp_date_default) ;
636: END IF ;
637: END IF ;
638:
639: /*bug 14057183*/
655: l_return_date := p_po_exp_item_date ;
656: ELSE
657: IF l_pa_debug_flag = 'Y' THEN
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'PO expenditure item date is NULL') ;
660: END IF ;
661: END IF ;
662:
663: IF p_po_distribution_id is not NULL then
665: fetch c_po_date into l_return_date ;
666: close c_po_date ;
667: IF l_pa_debug_flag = 'Y' THEN
668: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
669: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION',
670: 'Determining the date based on the PO distribution IDL') ;
671: END IF ;
672: END IF ;
673: ELSE
683: END CASE;
684:
685: IF l_pa_debug_flag = 'Y' THEN
686: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
687: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Date returned :'||to_char(l_return_date, 'DD-MON-YYYY')) ;
688: END IF ;
689: END IF ;
690:
691: return l_return_date ;
732: /***************************************************************************
733: Procedure : Get_Po_Match_Si_Exp_Item_Date
734: Purpose : Bug#13706985 PO match action does not verify whether EI
735: date falls in a closed PA period or not. During PO match AP invokes API
736: PA_AP_INTEGRATION.Get_Si_Cost_Exp_Item_Date to retrieve the
737: EI date and stamps the date returned by the API as the EI date.
738: This procedure is an enhancement to the previous function
739: which returns specific error messages to the calling
740: program based on the validation of the expenditure item date
905: END IF;
906:
907: IF l_pa_debug_flag = 'Y' THEN
908: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
909: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Default Exp item date profile:'||l_pa_exp_date_default) ;
910: END IF ;
911: END IF ;
912:
913: /*bug 14050469 - Divided the single query for selecting all 3 - award id, project id and task id to two queries and also added the gms validation
1367: ELSE
1368:
1369: IF l_pa_debug_flag = 'Y' THEN
1370: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1371: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'PO expenditure item date is NULL') ;
1372: END IF ;
1373: END IF ;
1374:
1375: IF p_po_distribution_id is not NULL then
1410:
1411:
1412: IF l_pa_debug_flag = 'Y' THEN
1413: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1414: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION','Determining the date based on the PO distribution IDL') ;
1415: END IF ;
1416: END IF ;
1417:
1418: ELSE
1459: END CASE;
1460:
1461: IF l_pa_debug_flag = 'Y' THEN
1462: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1463: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,'PA_AP_INTEGRATION', 'Date returned :'||to_char(l_return_date, 'DD-MON-YYYY')) ;
1464: END IF ;
1465: END IF ;
1466:
1467: /* Added for bug 16312792 */
1608: END Validate_Ei_Date;
1609:
1610: /*13706985 - End*/
1611:
1612: END pa_ap_integration;