[Home] [Help]
1: PACKAGE BODY GMS_PA_API AS
2: /* $Header: gmspax1b.pls 120.10 2007/02/06 09:51:09 rshaik 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: -- -------------------------------------------------
1676: where task_id = l_task_id ;
1677:
1678: BEGIN
1679:
1680: L_DEBUG := NVL(FND_PROFILE.value('GMS_ENABLE_DEBUG_MODE'), 'N');
1681:
1682: pa_cc_utils.log_message( 'GMS_PA_API.VERT_APP_VALIDATE - START' ,1);
1683: IF X_status is not NULL then
1684: RETURN ;
2154: -- ----------------------------------------------------------------------------
2155:
2156: FUNCTION VERT_INSTALL return BOOLEAN IS
2157:
2158: --l_profile_org NUMBER := to_number(fnd_profile.value('ORG_ID'));
2159: l_profile_org NUMBER := PA_MOAC_UTILS.get_current_org_id ;
2160: BEGIN
2161:
2162: IF ((G_ORG_ID_CHECKED is null AND G_GMS_ENABLED is null) OR