DBA Data[Home] [Help]

APPS.IEM_TAGPROCESS_PUB dependencies on FND_API

Line 70: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;

66: v_ErrorText varchar2(200);
67: errorMessage varchar2(2000);
68: logMessage varchar2(2000);
69:
70: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
71: l_msg_count NUMBER := 0;
72: l_msg_data VARCHAR2(2000);
73:
74: l_log_enabled BOOLEAN := false;

Line 89: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

85: BEGIN
86: SAVEPOINT getEncryptId_PUB;
87:
88: -- Standard call to check for call compatibility.
89: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
90: p_api_version_number,
91: l_api_name,
92: G_PKG_NAME)
93: THEN

Line 94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

90: p_api_version_number,
91: l_api_name,
92: G_PKG_NAME)
93: THEN
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: -- Initialize message list if p_init_msg_list is set to TRUE.
98: IF FND_API.to_Boolean( p_init_msg_list ) THEN

Line 98: IF FND_API.to_Boolean( p_init_msg_list ) THEN

94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: -- Initialize message list if p_init_msg_list is set to TRUE.
98: IF FND_API.to_Boolean( p_init_msg_list ) THEN
99: FND_MSG_PUB.initialize;
100: END IF;
101:
102: -- Initialize API return status to SUCCESS

Line 103: x_return_status := FND_API.G_RET_STS_SUCCESS;

99: FND_MSG_PUB.initialize;
100: END IF;
101:
102: -- Initialize API return status to SUCCESS
103: x_return_status := FND_API.G_RET_STS_SUCCESS;
104:
105: -- API begins
106:
107: l_log_enabled := FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 221: p_init_msg_list => FND_API.G_FALSE,

217: -- begin PROCEDURE processing
218: BEGIN
219: IEM_TAG_RUN_PROC_PVT.run_Procedure(
220: p_api_version_number =>P_Api_Version_Number,
221: p_init_msg_list => FND_API.G_FALSE,
222: p_commit => P_Commit,
223: p_procedure_name => l_temp_value,
224: p_key_value => l_key_value,
225: x_result => l_temp,

Line 230: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then

226: x_return_status =>l_return_status,
227: x_msg_count => l_msg_count,
228: x_msg_data => l_msg_data);
229:
230: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
231: --dbms_output.put_line('Failed to get tag value from procedure '||l_temp_value);
232:
233: if l_log_enabled then
234: logMessage := '[ERROR when execute procedure for keyId: '||v_tags.tag_id ||']';

Line 264: p_init_msg_list => FND_API.G_FALSE,

260:
261:
262: IEM_ENCRYPT_TAGS_PVT.create_item(
263: p_api_version_number => P_Api_Version_Number,
264: p_init_msg_list => FND_API.G_FALSE,
265: p_commit => P_Commit,
266: p_agent_id => p_agent_id,
267: p_interaction_id => p_interaction_id,
268: p_email_tag_tbl => l_keyVal_tbl,

Line 275: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then

271: x_return_status => l_return_status,
272: x_msg_count => x_msg_count,
273: x_msg_data => x_msg_data
274: );
275: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
276: --dbms_output.put_line('Failed in Create_item: IEM_ENCRYPT_TAGS_PVT ');
277: raise IEM_CREATE_ENCRYPTEDTAG_FAILED;
278: end if;
279:

Line 303: IF FND_API.To_Boolean(p_commit) THEN

299: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
300: end if;
301:
302: -- Standard Check Of p_commit.
303: IF FND_API.To_Boolean(p_commit) THEN
304: COMMIT WORK;
305: END IF;
306:
307: -- Standard callto get message count and if count is 1, get message info.

Line 316: x_return_status := FND_API.G_RET_STS_ERROR;

312:
313: EXCEPTION
314: WHEN NO_DATA_FOUND THEN
315: ROLLBACK TO getEncryptId_PUB;
316: x_return_status := FND_API.G_RET_STS_ERROR;
317: if l_log_enabled then
318: logMessage := '[No data found for p_email_account_id= '||p_email_account_id||'.]';
319: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
320: end if;

Line 324: x_return_status := FND_API.G_RET_STS_ERROR ;

320: end if;
321:
322: WHEN IEM_CREATE_ENCRYPTEDTAG_FAILED THEN
323: ROLLBACK TO getEncryptId_PUB;
324: x_return_status := FND_API.G_RET_STS_ERROR ;
325:
326: if l_log_enabled then
327: logMessage := '[Failed to create data in IEM_ENCRYPTED_TAGS table. ]';
328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);

Line 331: WHEN FND_API.G_EXC_ERROR THEN

327: logMessage := '[Failed to create data in IEM_ENCRYPTED_TAGS table. ]';
328: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
329: end if;
330:
331: WHEN FND_API.G_EXC_ERROR THEN
332: ROLLBACK TO getEncryptId_PUB;
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334:
335: if l_exception_log then

Line 333: x_return_status := FND_API.G_RET_STS_ERROR ;

329: end if;
330:
331: WHEN FND_API.G_EXC_ERROR THEN
332: ROLLBACK TO getEncryptId_PUB;
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334:
335: if l_exception_log then
336: logMessage := '[FND_API.G_EXC_ERROR in getEncryptId ]';
337: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);

Line 336: logMessage := '[FND_API.G_EXC_ERROR in getEncryptId ]';

332: ROLLBACK TO getEncryptId_PUB;
333: x_return_status := FND_API.G_RET_STS_ERROR ;
334:
335: if l_exception_log then
336: logMessage := '[FND_API.G_EXC_ERROR in getEncryptId ]';
337: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
338: end if;
339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
340: ROLLBACK TO getEncryptId_PUB;

Line 339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

335: if l_exception_log then
336: logMessage := '[FND_API.G_EXC_ERROR in getEncryptId ]';
337: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
338: end if;
339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
340: ROLLBACK TO getEncryptId_PUB;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
342:
343: if l_exception_log then

Line 341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

337: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
338: end if;
339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
340: ROLLBACK TO getEncryptId_PUB;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
342:
343: if l_exception_log then
344: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in getEncryptId]';
345: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);

Line 344: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in getEncryptId]';

340: ROLLBACK TO getEncryptId_PUB;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
342:
343: if l_exception_log then
344: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in getEncryptId]';
345: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);
346: end if;
347: WHEN OTHERS THEN
348:

Line 350: x_return_status := FND_API.G_RET_STS_ERROR;

346: end if;
347: WHEN OTHERS THEN
348:
349: ROLLBACK TO getEncryptId_PUB;
350: x_return_status := FND_API.G_RET_STS_ERROR;
351:
352: if l_exception_log then
353: logMessage := '[OTHER exception in getEncryptId]';
354: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getEncryptId', logMessage);

Line 388: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;

384: l_encrypt_char VARCHAR2(150);
385: l_encrypt_num NUMBER(15);
386: l_temp number;
387:
388: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
389: l_msg_count NUMBER := 0;
390: l_msg_data VARCHAR2(2000);
391: l_log_enabled BOOLEAN := false;
392: l_exception_log BOOLEAN :=false;

Line 402: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

398: BEGIN
399: SAVEPOINT IEM_STAMP_ENCRYPTED_TAG;
400:
401: -- Standard call to check for call compatibility.
402: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
403: p_api_version_number,
404: l_api_name,
405: G_PKG_NAME)
406: THEN

Line 407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

403: p_api_version_number,
404: l_api_name,
405: G_PKG_NAME)
406: THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
410: -- Initialize message list if p_init_msg_list is set to TRUE.
411: IF FND_API.to_Boolean( p_init_msg_list ) THEN

Line 411: IF FND_API.to_Boolean( p_init_msg_list ) THEN

407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
410: -- Initialize message list if p_init_msg_list is set to TRUE.
411: IF FND_API.to_Boolean( p_init_msg_list ) THEN
412: FND_MSG_PUB.initialize;
413: END IF;
414:
415: -- Initialize API return status to SUCCESS

Line 416: x_return_status := FND_API.G_RET_STS_SUCCESS;

412: FND_MSG_PUB.initialize;
413: END IF;
414:
415: -- Initialize API return status to SUCCESS
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
417:
418: -- API begins
419: l_log_enabled := FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL;
420:

Line 426: p_init_msg_list => FND_API.G_FALSE,

422:
423:
424: IEM_ENCRYPT_TAGS_PVT.update_item_on_mess_id (
425: p_api_version_number => P_Api_Version_Number,
426: p_init_msg_list => FND_API.G_FALSE,
427: p_commit => P_Commit,
428: p_encrypted_id => p_encrypted_id,
429: p_message_id => p_message_id,
430: x_return_status => l_return_status,

Line 435: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then

431: x_msg_count => x_msg_count,
432: x_msg_data => x_msg_data
433: );
434:
435: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
436: raise IEM_FAILED_TO_STAMP_TAG;
437: end if;
438:
439: if l_log_enabled then

Line 445: IF FND_API.To_Boolean(p_commit) THEN

441: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
442: end if;
443:
444: -- Standard Check Of p_commit.
445: IF FND_API.To_Boolean(p_commit) THEN
446: COMMIT WORK;
447: END IF;
448:
449:

Line 460: x_return_status := FND_API.G_RET_STS_ERROR ;

456: EXCEPTION
457: WHEN IEM_INVALID_ENCRYPTED_ID THEN
458: --dbms_output.put_line('IEM_INVALID_ENCRYPTED_ID');
459: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
460: x_return_status := FND_API.G_RET_STS_ERROR ;
461:
462: if l_log_enabled then
463: logMessage := '[The encrypted id is invalid because length is too short.]';
464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);

Line 469: x_return_status := FND_API.G_RET_STS_ERROR ;

465: end if;
466: WHEN NO_DATA_FOUND THEN
467: --dbms_output.put_line('The encrypted Id is invalid because no data found or no security token stored.');
468: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
469: x_return_status := FND_API.G_RET_STS_ERROR ;
470:
471: if l_log_enabled then
472: logMessage := '[The encrypted Id is invalid because no data found or no security token stored.]';
473: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);

Line 479: x_return_status := FND_API.G_RET_STS_ERROR ;

475:
476: WHEN IEM_TOKEN_NOT_MATCH THEN
477: --dbms_output.put_line('IEM_TOKEN_NOT_MATCH');
478: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
479: x_return_status := FND_API.G_RET_STS_ERROR ;
480:
481: if l_log_enabled then
482: logMessage := '[The token is not match with security token.]';
483: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);

Line 489: x_return_status := FND_API.G_RET_STS_ERROR ;

485:
486: WHEN IEM_FAILED_TO_STAMP_TAG THEN
487: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
488: --dbms_output.put_line('IEM_STAMP_ENCRYPTED_TAG');
489: x_return_status := FND_API.G_RET_STS_ERROR ;
490:
491: if l_log_enabled then
492: logMessage := '[FAILED to STAMP TAG]';
493: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);

Line 496: WHEN FND_API.G_EXC_ERROR THEN

492: logMessage := '[FAILED to STAMP TAG]';
493: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
494: end if;
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: if l_exception_log then
500: logMessage := '[FND_API.G_EXC_ERROR happened]';

Line 498: x_return_status := FND_API.G_RET_STS_ERROR ;

494: end if;
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: if l_exception_log then
500: logMessage := '[FND_API.G_EXC_ERROR happened]';
501: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
502: end if;

Line 500: logMessage := '[FND_API.G_EXC_ERROR happened]';

496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
498: x_return_status := FND_API.G_RET_STS_ERROR ;
499: if l_exception_log then
500: logMessage := '[FND_API.G_EXC_ERROR happened]';
501: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
502: end if;
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;

Line 503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

499: if l_exception_log then
500: logMessage := '[FND_API.G_EXC_ERROR happened]';
501: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
502: end if;
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: if l_exception_log then
507: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened]';

Line 505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

501: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
502: end if;
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: if l_exception_log then
507: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened]';
508: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
509: end if;

Line 507: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened]';

503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: if l_exception_log then
507: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened]';
508: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
509: end if;
510: WHEN OTHERS THEN
511: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;

Line 512: x_return_status := FND_API.G_RET_STS_ERROR;

508: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);
509: end if;
510: WHEN OTHERS THEN
511: ROLLBACK TO IEM_STAMP_ENCRYPTED_TAG;
512: x_return_status := FND_API.G_RET_STS_ERROR;
513:
514: if l_exception_log then
515: logMessage := '[Other exception happended in IEM_STAMP_ENCRYPTED_TAG: ' ||sqlerrm||']';
516: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG', logMessage);

Line 554: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;

550: l_encrypt_num NUMBER(15);
551: l_mess_id number;
552: l_reuse_tag VARCHAR2(20) := '';
553:
554: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
555: l_msg_count NUMBER := 0;
556: l_msg_data VARCHAR2(2000);
557: l_log_enabled BOOLEAN := false;
558: l_exception_log BOOLEAN :=false;

Line 579: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

575: BEGIN
576: SAVEPOINT getTagValues_PUB;
577:
578: -- Standard call to check for call compatibility.
579: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
580: p_api_version_number,
581: l_api_name,
582: G_PKG_NAME)
583: THEN

Line 584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

580: p_api_version_number,
581: l_api_name,
582: G_PKG_NAME)
583: THEN
584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF FND_API.to_Boolean( p_init_msg_list ) THEN

Line 588: IF FND_API.to_Boolean( p_init_msg_list ) THEN

584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF FND_API.to_Boolean( p_init_msg_list ) THEN
589: FND_MSG_PUB.initialize;
590: END IF;
591:
592: -- Initialize API return status to SUCCESS

Line 593: x_return_status := FND_API.G_RET_STS_SUCCESS;

589: FND_MSG_PUB.initialize;
590: END IF;
591:
592: -- Initialize API return status to SUCCESS
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594:
595: -- API begins
596:
597: l_log_enabled := FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 647: p_init_msg_list => FND_API.G_FALSE,

643: elsif ( l_reuse_tag = 'Y' ) and ( l_mess_id is not null )then
644:
645: IEM_ENCRYPT_TAGS_PVT.duplicate_tags(
646: p_api_version_number => P_Api_Version_Number,
647: p_init_msg_list => FND_API.G_FALSE,
648: p_commit => P_Commit,
649: p_encrypted_id => l_encrypt_num,
650: p_message_id => p_message_id,
651: x_return_status => l_return_status,

Line 656: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then

652: x_msg_count => x_msg_count,
653: x_msg_data => x_msg_data
654: );
655:
656: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
657: --dbms_output.put_line('ERROR when calling IEM_ENCRYPT_TAGS_PVT.duplicate_tags ');
658: raise IEM_FAIL_DUPLICAT_REC_REUSETAG;
659: end if;
660:

Line 669: p_init_msg_list => FND_API.G_FALSE,

665: else
666: --Stamping the message_id with the encrypted_id
667: IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG
668: ( p_api_version_number => l_api_version_number,
669: p_init_msg_list => FND_API.G_FALSE,
670: p_commit =>FND_API.G_FALSE,
671: p_encrypted_id => l_encrypt_num,
672: p_message_Id=>p_message_id,
673: x_return_status =>l_return_status,

Line 670: p_commit =>FND_API.G_FALSE,

666: --Stamping the message_id with the encrypted_id
667: IEM_TAGPROCESS_PUB.IEM_STAMP_ENCRYPTED_TAG
668: ( p_api_version_number => l_api_version_number,
669: p_init_msg_list => FND_API.G_FALSE,
670: p_commit =>FND_API.G_FALSE,
671: p_encrypted_id => l_encrypt_num,
672: p_message_Id=>p_message_id,
673: x_return_status =>l_return_status,
674: x_msg_count => l_msg_count,

Line 677: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then

673: x_return_status =>l_return_status,
674: x_msg_count => l_msg_count,
675: x_msg_data => l_msg_data);
676:
677: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
678: raise IEM_FAILED_TO_STAMP_TAG;
679: end if;
680:
681: end if;

Line 722: IF FND_API.To_Boolean(p_commit) THEN

718: -- Return key-val pairs
719: x_key_value := l_keyVal_tab;
720:
721: -- Standard Check Of p_commit.
722: IF FND_API.To_Boolean(p_commit) THEN
723: COMMIT WORK;
724: END IF;
725:
726:

Line 737: x_return_status := FND_API.G_RET_STS_SUCCESS ;

733: EXCEPTION
734: WHEN IEM_FAIL_DUPLICAT_REC_REUSETAG THEN
735: --dbms_output.put_line('Failed to stamp tag');
736: ROLLBACK TO getTagValues_PUB;
737: x_return_status := FND_API.G_RET_STS_SUCCESS ;
738:
739: if l_log_enabled then
740: logMessage := '[ERROR when calling IEM_ENCRYPT_TAGS_PVT.duplicate_tags]';
741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.getTagValues', logMessage);

Line 747: x_return_status := FND_API.G_RET_STS_SUCCESS ;

743:
744: WHEN IEM_FAILED_TO_STAMP_TAG THEN
745: --dbms_output.put_line('Failed to stamp tag');
746: ROLLBACK TO getTagValues_PUB;
747: x_return_status := FND_API.G_RET_STS_SUCCESS ;
748:
749: if l_log_enabled then
750: logMessage := '[FAILED to STAMP TAG]';
751: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 757: x_return_status := FND_API.G_RET_STS_SUCCESS ;

753:
754: WHEN IEM_ENCRYPTED_ID_ALREADY_USED THEN
755: -- dbms_output.put_line('This encrypted id is already used by another message');
756: ROLLBACK TO getTagValues_PUB;
757: x_return_status := FND_API.G_RET_STS_SUCCESS ;
758:
759: if l_log_enabled then
760: logMessage := '[The encrypted ID already has been stamped with other message.]';
761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 766: x_return_status := FND_API.G_RET_STS_SUCCESS ;

762: end if;
763:
764: WHEN IEM_INVALID_ENCRYPTED_ID THEN
765: ROLLBACK TO getTagValues_PUB;
766: x_return_status := FND_API.G_RET_STS_SUCCESS ;
767:
768: if l_log_enabled then
769: logMessage := '[The encrypted id is invalid because length is too short.]';
770: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 775: x_return_status := FND_API.G_RET_STS_SUCCESS ;

771: end if;
772: WHEN NO_DATA_FOUND THEN
773: --dbms_output.put_line('The encrypted Id is invalid because no data found or no security token stored.');
774: ROLLBACK TO getTagValues_PUB;
775: x_return_status := FND_API.G_RET_STS_SUCCESS ;
776:
777: if l_log_enabled then
778: logMessage := '[The encrypted Id is invalid because no data found or no security token stored.]';
779: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 785: x_return_status := FND_API.G_RET_STS_SUCCESS ;

781:
782: WHEN IEM_TOKEN_NOT_MATCH THEN
783: ROLLBACK TO getTagValues_PUB;
784: --dbms_output.put_line('TOKEN_NOT_MATCH');
785: x_return_status := FND_API.G_RET_STS_SUCCESS ;
786:
787: if l_log_enabled then
788: logMessage := '[The token is not match with security token.]';
789: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 793: WHEN FND_API.G_EXC_ERROR THEN

789: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
790: end if;
791:
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794:
795: ROLLBACK TO getTagValues_PUB;
796: x_return_status := FND_API.G_RET_STS_ERROR ;
797: if l_exception_log then

Line 796: x_return_status := FND_API.G_RET_STS_ERROR ;

792:
793: WHEN FND_API.G_EXC_ERROR THEN
794:
795: ROLLBACK TO getTagValues_PUB;
796: x_return_status := FND_API.G_RET_STS_ERROR ;
797: if l_exception_log then
798: logMessage := '[FND_API.G_EXC_ERROR in GETTAGVALUES]';
799: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
800: end if;

Line 798: logMessage := '[FND_API.G_EXC_ERROR in GETTAGVALUES]';

794:
795: ROLLBACK TO getTagValues_PUB;
796: x_return_status := FND_API.G_RET_STS_ERROR ;
797: if l_exception_log then
798: logMessage := '[FND_API.G_EXC_ERROR in GETTAGVALUES]';
799: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
800: end if;
801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
802: ROLLBACK TO getTagValues_PUB;

Line 801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

797: if l_exception_log then
798: logMessage := '[FND_API.G_EXC_ERROR in GETTAGVALUES]';
799: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
800: end if;
801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
802: ROLLBACK TO getTagValues_PUB;
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
804:
805: if l_exception_log then

Line 803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

799: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
800: end if;
801: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
802: ROLLBACK TO getTagValues_PUB;
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
804:
805: if l_exception_log then
806: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in GETTAGVALUES]';
807: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 806: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in GETTAGVALUES]';

802: ROLLBACK TO getTagValues_PUB;
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
804:
805: if l_exception_log then
806: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR in GETTAGVALUES]';
807: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
808: end if;
809: WHEN OTHERS THEN
810: ROLLBACK TO getTagValues_PUB;

Line 811: x_return_status := FND_API.G_RET_STS_ERROR;

807: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);
808: end if;
809: WHEN OTHERS THEN
810: ROLLBACK TO getTagValues_PUB;
811: x_return_status := FND_API.G_RET_STS_ERROR;
812:
813: if l_exception_log then
814: logMessage := '[Other exception happened in GETTAGVALUES:' || sqlerrm || ']';
815: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES', logMessage);

Line 848: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;

844: logMessage varchar2(2000);
845: l_encrypted_id varchar2(20);
846: l_token varchar(20);
847:
848: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
849: l_msg_count NUMBER := 0;
850: l_msg_data VARCHAR2(2000);
851: l_log_enabled BOOLEAN := false;
852: l_exception_log BOOLEAN :=false;

Line 870: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

866: BEGIN
867: SAVEPOINT getTagValues_on_MsgId_PUB;
868:
869: -- Standard call to check for call compatibility.
870: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
871: p_api_version_number,
872: l_api_name,
873: G_PKG_NAME)
874: THEN

Line 875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

871: p_api_version_number,
872: l_api_name,
873: G_PKG_NAME)
874: THEN
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: END IF;
877:
878: -- Initialize message list if p_init_msg_list is set to TRUE.
879: IF FND_API.to_Boolean( p_init_msg_list ) THEN

Line 879: IF FND_API.to_Boolean( p_init_msg_list ) THEN

875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: END IF;
877:
878: -- Initialize message list if p_init_msg_list is set to TRUE.
879: IF FND_API.to_Boolean( p_init_msg_list ) THEN
880: FND_MSG_PUB.initialize;
881: END IF;
882:
883: -- Initialize API return status to SUCCESS

Line 884: x_return_status := FND_API.G_RET_STS_SUCCESS;

880: FND_MSG_PUB.initialize;
881: END IF;
882:
883: -- Initialize API return status to SUCCESS
884: x_return_status := FND_API.G_RET_STS_SUCCESS;
885:
886: -- API begins
887: l_log_enabled := FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL;
888:

Line 942: IF FND_API.To_Boolean(p_commit) THEN

938: x_encrypted_id := l_encrypted_id || l_token;
939:
940:
941: -- Standard Check Of p_commit.
942: IF FND_API.To_Boolean(p_commit) THEN
943: COMMIT WORK;
944: END IF;
945:
946: -- Standard callto get message count and if count is 1, get message info.

Line 956: x_return_status := FND_API.G_RET_STS_SUCCESS ;

952: EXCEPTION
953: WHEN NO_DATA_FOUND THEN
954: --dbms_output.put_line('The message id is not stamped.');
955: ROLLBACK TO getTagValues_on_MsgId_PUB;
956: x_return_status := FND_API.G_RET_STS_SUCCESS ;
957:
958: if l_log_enabled then
959: logMessage := '[The message id is not stamped.There is not corresponding tags for this message.No Key_val returned.]';
960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);

Line 963: WHEN FND_API.G_EXC_ERROR THEN

959: logMessage := '[The message id is not stamped.There is not corresponding tags for this message.No Key_val returned.]';
960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);
961: end if;
962:
963: WHEN FND_API.G_EXC_ERROR THEN
964: ROLLBACK TO getTagValues_on_MsgId_PUB;
965: x_return_status := FND_API.G_RET_STS_ERROR ;
966:
967: if l_exception_log then

Line 965: x_return_status := FND_API.G_RET_STS_ERROR ;

961: end if;
962:
963: WHEN FND_API.G_EXC_ERROR THEN
964: ROLLBACK TO getTagValues_on_MsgId_PUB;
965: x_return_status := FND_API.G_RET_STS_ERROR ;
966:
967: if l_exception_log then
968: logMessage := '[FND_API.G_EXC_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';
969: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);

Line 968: logMessage := '[FND_API.G_EXC_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';

964: ROLLBACK TO getTagValues_on_MsgId_PUB;
965: x_return_status := FND_API.G_RET_STS_ERROR ;
966:
967: if l_exception_log then
968: logMessage := '[FND_API.G_EXC_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';
969: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);
970: end if;
971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
972: ROLLBACK TO getTagValues_on_MsgId_PUB;

Line 971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

967: if l_exception_log then
968: logMessage := '[FND_API.G_EXC_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';
969: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);
970: end if;
971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
972: ROLLBACK TO getTagValues_on_MsgId_PUB;
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
974:
975: if l_exception_log then

Line 973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

969: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);
970: end if;
971: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
972: ROLLBACK TO getTagValues_on_MsgId_PUB;
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
974:
975: if l_exception_log then
976: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';
977: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);

Line 976: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';

972: ROLLBACK TO getTagValues_on_MsgId_PUB;
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
974:
975: if l_exception_log then
976: logMessage := '[FND_API.G_EXC_UNEXPECTED_ERROR happened in GETTAGVALUES_ON_MSGID.No Key_val returned.]';
977: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);
978: end if;
979: WHEN OTHERS THEN
980:

Line 982: x_return_status := FND_API.G_RET_STS_ERROR;

978: end if;
979: WHEN OTHERS THEN
980:
981: ROLLBACK TO getTagValues_on_MsgId_PUB;
982: x_return_status := FND_API.G_RET_STS_ERROR;
983:
984: if l_exception_log then
985: logMessage := '[Other exception happend in GETTAGVALUES_ON_MSGID.'||sqlerrm||']';
986: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'IEM.PLSQL.IEM_TAGPROCESS_PUB.GETTAGVALUES_ON_MSGID', logMessage);