93: AND c1.contract_expiration_date <= TRUNC(SYSDATE) + c1.expire_ntf_period
94: AND c1.wf_exp_ntf_item_key IS NULL
95: );
96: BEGIN
97: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
98: FND_LOG.STRING(
99: FND_LOG.LEVEL_PROCEDURE,
100: G_MODULE||l_api_name,
101: 'Entering OKC_REP_EXP_NTF_PVT.contract_expiration_notifier');
94: AND c1.wf_exp_ntf_item_key IS NULL
95: );
96: BEGIN
97: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
98: FND_LOG.STRING(
99: FND_LOG.LEVEL_PROCEDURE,
100: G_MODULE||l_api_name,
101: 'Entering OKC_REP_EXP_NTF_PVT.contract_expiration_notifier');
102: END IF;
95: );
96: BEGIN
97: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
98: FND_LOG.STRING(
99: FND_LOG.LEVEL_PROCEDURE,
100: G_MODULE||l_api_name,
101: 'Entering OKC_REP_EXP_NTF_PVT.contract_expiration_notifier');
102: END IF;
103:
127: x_return_status => x_return_status
128: );
129: END LOOP;
130:
131: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(
133: FND_LOG.LEVEL_PROCEDURE,
134: G_MODULE||l_api_name,
135: 'Leaving OKC_REP_EXP_NTF_PVT.contract_expiration_notifier');
128: );
129: END LOOP;
130:
131: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(
133: FND_LOG.LEVEL_PROCEDURE,
134: G_MODULE||l_api_name,
135: 'Leaving OKC_REP_EXP_NTF_PVT.contract_expiration_notifier');
136: END IF;
129: END LOOP;
130:
131: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.STRING(
133: FND_LOG.LEVEL_PROCEDURE,
134: G_MODULE||l_api_name,
135: 'Leaving OKC_REP_EXP_NTF_PVT.contract_expiration_notifier');
136: END IF;
137:
136: END IF;
137:
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
141: fnd_log.string(
142: FND_LOG.LEVEL_EXCEPTION,
143: G_MODULE || l_api_name,
144: 'Leaving contract_expiration_notifier:FND_API.G_EXC_ERROR Exception');
137:
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
141: fnd_log.string(
142: FND_LOG.LEVEL_EXCEPTION,
143: G_MODULE || l_api_name,
144: 'Leaving contract_expiration_notifier:FND_API.G_EXC_ERROR Exception');
145: END IF;
138: EXCEPTION
139: WHEN FND_API.G_EXC_ERROR THEN
140: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
141: fnd_log.string(
142: FND_LOG.LEVEL_EXCEPTION,
143: G_MODULE || l_api_name,
144: 'Leaving contract_expiration_notifier:FND_API.G_EXC_ERROR Exception');
145: END IF;
146: --close cursors
154: p_data => x_msg_data
155: );
156:
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
159: fnd_log.string(
160: FND_LOG.LEVEL_EXCEPTION,
161: G_MODULE || l_api_name,
162: 'Leaving contract_expiration_notifier:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
155: );
156:
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
159: fnd_log.string(
160: FND_LOG.LEVEL_EXCEPTION,
161: G_MODULE || l_api_name,
162: 'Leaving contract_expiration_notifier:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
163: END IF;
156:
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
159: fnd_log.string(
160: FND_LOG.LEVEL_EXCEPTION,
161: G_MODULE || l_api_name,
162: 'Leaving contract_expiration_notifier:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
163: END IF;
164: --close cursors
172: p_data => x_msg_data
173: );
174:
175: WHEN OTHERS THEN
176: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: fnd_log.string(
178: FND_LOG.LEVEL_EXCEPTION,
179: G_MODULE || l_api_name,
180: 'Leaving contract_expiration_notifier because of EXCEPTION: ' || sqlerrm);
173: );
174:
175: WHEN OTHERS THEN
176: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: fnd_log.string(
178: FND_LOG.LEVEL_EXCEPTION,
179: G_MODULE || l_api_name,
180: 'Leaving contract_expiration_notifier because of EXCEPTION: ' || sqlerrm);
181: END IF;
174:
175: WHEN OTHERS THEN
176: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: fnd_log.string(
178: FND_LOG.LEVEL_EXCEPTION,
179: G_MODULE || l_api_name,
180: 'Leaving contract_expiration_notifier because of EXCEPTION: ' || sqlerrm);
181: END IF;
182: Okc_Api.Set_Message(
225: l_return_status VARCHAR2(2000);
226: BEGIN
227: retcode := G_RETURN_CODE_ERROR;
228:
229: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
230: FND_LOG.STRING(
231: FND_LOG.LEVEL_PROCEDURE,
232: G_MODULE||l_api_name,
233: 'Entering OKC_REP_EXP_NTF_PVT.contract_expiration_manager');
226: BEGIN
227: retcode := G_RETURN_CODE_ERROR;
228:
229: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
230: FND_LOG.STRING(
231: FND_LOG.LEVEL_PROCEDURE,
232: G_MODULE||l_api_name,
233: 'Entering OKC_REP_EXP_NTF_PVT.contract_expiration_manager');
234: END IF;
227: retcode := G_RETURN_CODE_ERROR;
228:
229: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
230: FND_LOG.STRING(
231: FND_LOG.LEVEL_PROCEDURE,
232: G_MODULE||l_api_name,
233: 'Entering OKC_REP_EXP_NTF_PVT.contract_expiration_manager');
234: END IF;
235:
246: );
247:
248: retcode := G_RETURN_CODE_SUCCESS;
249:
250: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
251: FND_LOG.STRING(
252: FND_LOG.LEVEL_PROCEDURE,
253: G_MODULE||l_api_name,
254: 'Leaving OKC_REP_EXP_NTF_PVT.contract_expiration_manager');
247:
248: retcode := G_RETURN_CODE_SUCCESS;
249:
250: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
251: FND_LOG.STRING(
252: FND_LOG.LEVEL_PROCEDURE,
253: G_MODULE||l_api_name,
254: 'Leaving OKC_REP_EXP_NTF_PVT.contract_expiration_manager');
255: END IF;
248: retcode := G_RETURN_CODE_SUCCESS;
249:
250: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
251: FND_LOG.STRING(
252: FND_LOG.LEVEL_PROCEDURE,
253: G_MODULE||l_api_name,
254: 'Leaving OKC_REP_EXP_NTF_PVT.contract_expiration_manager');
255: END IF;
256:
255: END IF;
256:
257: EXCEPTION
258: WHEN OTHERS THEN
259: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: fnd_log.string(
261: FND_LOG.LEVEL_EXCEPTION,
262: G_MODULE || l_api_name,
263: 'Leaving contract_expiration_manager because of EXCEPTION: ' || SQLERRM);
256:
257: EXCEPTION
258: WHEN OTHERS THEN
259: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: fnd_log.string(
261: FND_LOG.LEVEL_EXCEPTION,
262: G_MODULE || l_api_name,
263: 'Leaving contract_expiration_manager because of EXCEPTION: ' || SQLERRM);
264: errbuf := substr(SQLERRM, 1, 200);
257: EXCEPTION
258: WHEN OTHERS THEN
259: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: fnd_log.string(
261: FND_LOG.LEVEL_EXCEPTION,
262: G_MODULE || l_api_name,
263: 'Leaving contract_expiration_manager because of EXCEPTION: ' || SQLERRM);
264: errbuf := substr(SQLERRM, 1, 200);
265: END IF;