3: --=============================================================================
4: -- CONSTANTS
5: --=============================================================================
6: --remove, check how to get the values for debug level from atg site
7: --G_DEBUG_LEVEL VARCHAR2(1) := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: G_DEBUG VARCHAR2(1) := 'N';
9: G_THRESHOLD NUMBER := 50;
10: --=============================================================================
11: -- PUBLIC VARIABLES
78: -----------------------------------------------------------------------------
79: -- Standard Start of API savepoint
80: -----------------------------------------------------------------------------
81:
82: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
83: THEN
84: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
85: , G_PKG_NAME || l_procedure_name || '.begin'
86: ,'enter procedure'
80: -----------------------------------------------------------------------------
81:
82: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
83: THEN
84: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
85: , G_PKG_NAME || l_procedure_name || '.begin'
86: ,'enter procedure'
87: );
88: END IF;
160:
161: END IF;
162: -- MOAC End
163:
164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
165: THEN
166: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
167: , G_PKG_NAME || l_procedure_name || '.end'
168: ,'exit procedure'
162: -- MOAC End
163:
164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
165: THEN
166: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
167: , G_PKG_NAME || l_procedure_name || '.end'
168: ,'exit procedure'
169: );
170: END IF;
178: FND_MSG_PUB.Add;
179: errbuf := g_errbuf;
180: retcode := g_retcode;
181: WHEN OTHERS THEN
182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
183: THEN
184: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
185: , G_PKG_NAME || l_procedure_name || 'Inside the WHEN OTHERS EXCEPTION'
186: ,substr(SQLERRM(sqlcode), 1, 2000)
180: retcode := g_retcode;
181: WHEN OTHERS THEN
182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
183: THEN
184: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
185: , G_PKG_NAME || l_procedure_name || 'Inside the WHEN OTHERS EXCEPTION'
186: ,substr(SQLERRM(sqlcode), 1, 2000)
187: );
188: END IF;