DBA Data[Home] [Help]

APPS.IEM_EMTA_ADMIN_PVT dependencies on IEM_EMTA_ADMIN_PVT

Line 1: PACKAGE BODY IEM_EMTA_ADMIN_PVT AS

1: PACKAGE BODY IEM_EMTA_ADMIN_PVT AS
2: /* $Header: iemvemtb.pls 120.3 2005/08/07 17:33:04 appldev noship $ */
3:
4: --
5: --

Line 17: G_PKG_NAME CONSTANT varchar2(30) :='IEM_EMTA_ADMIN_PVT ';

13: -- Liang Xia 07/08/2005 Changed for FND_VAL: removed PASSWORD column in account tables
14: -- --------- ------ ------------------------------------------
15:
16: -- Enter procedure, function bodies as shown below
17: G_PKG_NAME CONSTANT varchar2(30) :='IEM_EMTA_ADMIN_PVT ';
18: G_created_updated_by NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
19: G_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ID') ) ;
20:
21: PROCEDURE IS_DLPS_RUNNING (

Line 196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);

192: ||'][p_action=' || p_action ||'][P_ACTIVE_FLAG=' || P_ACTIVE_FLAG
193: ||'][P_USER_NAME=' || P_USER_NAME --||'][P_USER_PASSWORD =' || P_USER_PASSWORD
194: ||'][P_IN_HOST=' || P_IN_HOST ||'][ P_IN_PORT =' || P_IN_PORT ||']' ;
195: --dbms_output.put_line(logMessage);
196: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);
197: end if;
198:
199: if ( p_email_acct_id is null ) then
200: raise IEM_INVALID_DATA_DO_NOTHING;

Line 211: IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA(

207: end if;
208:
209: l_is_acct_updated := 'Y';
210:
211: IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA(
212: p_api_version_number => P_Api_Version_Number,
213: p_init_msg_list => FND_API.G_FALSE,
214: p_commit => P_Commit,
215: p_email_acct_id => p_email_acct_id,

Line 274: IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA(

270: end if;
271:
272: if ( l_is_data_changed = 'Y' ) then
273:
274: IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA(
275: p_api_version_number => P_Api_Version_Number,
276: p_init_msg_list => FND_API.G_FALSE,
277: p_commit => P_Commit,
278: p_email_acct_id => p_email_acct_id,

Line 296: IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA(

292:
293: l_active_flag := 'N';
294: l_is_acct_updated := 'N';
295:
296: IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA(
297: p_api_version_number => P_Api_Version_Number,
298: p_init_msg_list => FND_API.G_FALSE,
299: p_commit => P_Commit,
300: p_email_acct_id => p_email_acct_id,

Line 343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);

339: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
340:
341: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
342: logMessage := '[input data is invalid, no data inserted to IEM_EMTA_CONFIG_PARAMS,return true!]';
343: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);
344: end if;
345:
346: WHEN IEM_UPD_DP_CONFIG_DATA_FAILED THEN
347: ROLLBACK TO UPDATE_DP_CONFIG_DATA_WRAP_PVT;

Line 357: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);

353: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
354:
355: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
356: logMessage := '[Failed when calling IEM_UPDATE_DP_CONFIG_DATA!]';
357: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);
358: end if;
359: WHEN IEM_ACCOUT_ID_NOT_EXIST THEN
360:
361: ROLLBACK TO UPDATE_DP_CONFIG_DATA_WRAP_PVT;

Line 371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);

367: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
368:
369: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
370: logMessage := '[Email Account Id does not exist in IEM_MSTEMAIL_ACCOUNTS!]';
371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);
372: end if;
373: WHEN FND_API.G_EXC_ERROR THEN
374: ROLLBACK TO UPDATE_DP_CONFIG_DATA_WRAP_PVT;
375: x_return_status := FND_API.G_RET_STS_ERROR ;

Line 858: if fnd_log.test(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP') then

854:
855: FND_MSG_PUB.ADD;
856: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
857:
858: if fnd_log.test(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP') then
859: logMessage := '[input data is invalid, no data inserted to IEM_EMTA_CONFIG_PARAMS,return true!]';
860: dbms_output.put_line(logMessage);
861: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);
862: end if;

Line 861: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);

857:
858: if fnd_log.test(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP') then
859: logMessage := '[input data is invalid, no data inserted to IEM_EMTA_CONFIG_PARAMS,return true!]';
860: dbms_output.put_line(logMessage);
861: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.UPDATE_DP_CONFIG_DATA_WRAP', logMessage);
862: end if;
863: */ when others then
864: null;
865:

Line 1015: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.CHECK_IF_ACCOUNT_UPDATED', logMessage);

1011: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1012:
1013: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1014: logMessage := '[Unable to descript password for account_id=' || p_email_account_id ||'!]';
1015: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_EMTA_ADMIN_PVT.CHECK_IF_ACCOUNT_UPDATED', logMessage);
1016: end if;
1017:
1018:
1019: WHEN FND_API.G_EXC_ERROR THEN