[Home] [Help]
1: PACKAGE BODY GMS_PA_API AS
2: /* $Header: gmspax1b.pls 120.10.12020000.2 2012/10/16 13:46:17 navemish ship $ */
3:
4:
5: -- Assing value "NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N') " to L_DEBUG
6: -- variable in all the procedures where debug messages are to be displayed
7: -- this value cannot be defaulted here as this package is having a procedure
8: -- OVERRIDE_RATE_REV_ID which has a pragma restriction of WNPS.
9:
982: AP Lines uptake: Obsoleted PROC_SI_INTERFACE **/
983:
984: BEGIN
985:
986: L_DEBUG := NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N');
987:
988: IF L_DEBUG = 'Y' THEN
989: gms_error_pkg.gms_debug('GMS: Vert_trx_interface START TIME :'||to_char(SYSDATE, 'DD-MON-YYYY HH24:MI:SS'), 'C');
990: gms_error_pkg.gms_debug('GMS: Number of Rows to process: '||Rows, 'C');
1493: x_invoice_distribution_id NUMBER ;
1494:
1495: BEGIN
1496:
1497: L_DEBUG := NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N');
1498:
1499: -- -------------------------------------------------
1500: -- Vertical application will override the code here.
1501: -- -------------------------------------------------
1689: where task_id = l_task_id ;
1690:
1691: BEGIN
1692:
1693: L_DEBUG := NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N');
1694:
1695: pa_cc_utils.log_message( 'GMS_PA_API.VERT_APP_VALIDATE - START' ,1);
1696: IF X_status is not NULL then
1697: RETURN ;
2167: -- ----------------------------------------------------------------------------
2168:
2169: FUNCTION VERT_INSTALL return BOOLEAN IS
2170:
2171: --l_profile_org NUMBER := to_number(fnd_profile.value('ORG_ID'));
2172: l_profile_org NUMBER := PA_MOAC_UTILS.get_current_org_id ;
2173: BEGIN
2174:
2175: IF ((G_ORG_ID_CHECKED is null AND G_GMS_ENABLED is null) OR