APPS.OKC_PURGE_PVT dependencies on FND_LOG

Line 21: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

17: l_api_name VARCHAR2(50) := 'purge';
18: E_Resource_Busy EXCEPTION;
19: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
20: BEGIN
21: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
22: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_PURGE_PVT.PURGE');
23: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days||' p_purge_type='||p_purge_type);
24: END IF;
25:

Line 22: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_PURGE_PVT.PURGE');

18: E_Resource_Busy EXCEPTION;
19: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
20: BEGIN
21: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
22: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_PURGE_PVT.PURGE');
23: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days||' p_purge_type='||p_purge_type);
24: END IF;
25:
26: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameters: p_num_days='||p_num_days||' p_purge_type='||p_purge_type);

Line 23: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days||' p_purge_type='||p_purge_type);

19: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
20: BEGIN
21: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
22: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: Inside OKC_PURGE_PVT.PURGE');
23: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'Parameters: p_num_days='||p_num_days||' p_purge_type='||p_purge_type);
24: END IF;
25:
26: FND_FILE.PUT_LINE(FND_FILE.LOG,'Parameters: p_num_days='||p_num_days||' p_purge_type='||p_purge_type);
27:

Line 51: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

47: end if;
48:
49: commit;
50:
51: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: leaving OKC_TERMS_UTIL_PVT.PURGE');
53: END IF;
54:
55:

Line 52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: leaving OKC_TERMS_UTIL_PVT.PURGE');

48:
49: commit;
50:
51: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
52: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,l_api_name,'100: leaving OKC_TERMS_UTIL_PVT.PURGE');
53: END IF;
54:
55:
56: EXCEPTION

Line 59: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

55:
56: EXCEPTION
57: WHEN E_Resource_Busy THEN
58:
59: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
60: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');
61: END IF;
62:
63: IF FND_MSG_PUB.Count_Msg > 0 Then

Line 60: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');

56: EXCEPTION
57: WHEN E_Resource_Busy THEN
58:
59: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
60: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Resource busy exception');
61: END IF;
62:
63: IF FND_MSG_PUB.Count_Msg > 0 Then
64: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP

Line 75: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

71:
72: retcode := 2;
73: errbuf := substr(sqlerrm,1,200);
74:
75: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Other exception:'||errbuf);
77: END IF;
78:
79: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

Line 76: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Other exception:'||errbuf);

72: retcode := 2;
73: errbuf := substr(sqlerrm,1,200);
74:
75: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
76: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,l_api_name,'200: Other exception:'||errbuf);
77: END IF;
78:
79: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
80: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);