6: ------------------------------------------------------------------------------
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_WF_K_PROCESS_PVT';
8: G_APP_NAME CONSTANT VARCHAR2(3) := 'OKS';
9:
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_MODULE CONSTANT VARCHAR2(250) := 'oks.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=515; -- OKS Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
130: l_message VARCHAR2(2000);
131:
132: BEGIN
133:
134: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
135: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
137: END IF;
138:
131:
132: BEGIN
133:
134: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
135: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
136: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
137: END IF;
138:
139: IF p_message IS NOT NULL THEN
146: ELSE
147: l_message := NULL;
148: END IF;
149:
150: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
151: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
152: 'Message: ' ||l_message);
153: END IF;
154:
147: l_message := NULL;
148: END IF;
149:
150: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
151: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
152: 'Message: ' ||l_message);
153: END IF;
154:
155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
151: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
152: 'Message: ' ||l_message);
153: END IF;
154:
155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
156: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
157: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
158: END IF;
159: RETURN l_message;
152: 'Message: ' ||l_message);
153: END IF;
154:
155: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
156: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
157: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
158: END IF;
159: RETURN l_message;
160:
159: RETURN l_message;
160:
161: EXCEPTION
162: WHEN OTHERS THEN
163: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
164: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
165: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
166: ||SQLCODE||', sqlerrm = '||SQLERRM);
167: END IF;
160:
161: EXCEPTION
162: WHEN OTHERS THEN
163: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
164: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
165: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
166: ||SQLCODE||', sqlerrm = '||SQLERRM);
167: END IF;
168: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
189: l_message VARCHAR2(2000);
190:
191: BEGIN
192:
193: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
195: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
196: END IF;
197:
190:
191: BEGIN
192:
193: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
195: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
196: END IF;
197:
198: IF p_language IS NOT NULL THEN
205: IF l_rownotfound THEN
206: l_message := NULL;
207: END IF;
208:
209: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
210: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
211: 'Message: ' ||l_message);
212: END IF;
213:
206: l_message := NULL;
207: END IF;
208:
209: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
210: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
211: 'Message: ' ||l_message);
212: END IF;
213:
214: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
210: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
211: 'Message: ' ||l_message);
212: END IF;
213:
214: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
215: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
216: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
217: END IF;
218: RETURN l_message;
211: 'Message: ' ||l_message);
212: END IF;
213:
214: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
215: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
216: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
217: END IF;
218: RETURN l_message;
219:
218: RETURN l_message;
219:
220: EXCEPTION
221: WHEN OTHERS THEN
222: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
224: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
225: ||SQLCODE||', sqlerrm = '||SQLERRM);
226: END IF;
219:
220: EXCEPTION
221: WHEN OTHERS THEN
222: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
223: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
224: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
225: ||SQLCODE||', sqlerrm = '||SQLERRM);
226: END IF;
227: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
246: l_concat_k_number VARCHAR2(250);
247:
248: BEGIN
249:
250: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
251: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
252: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
253: END IF;
254:
247:
248: BEGIN
249:
250: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
251: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
252: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
253: END IF;
254:
255: OPEN l_kdetails_csr(p_contract_id);
266: l_concat_k_number := l_kdetails_rec.contract_number || ' - ' ||
267: l_kdetails_rec.contract_number_modifier;
268: END IF;
269: END IF;
270: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
271: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
272: 'Contract Number: ' ||l_concat_k_number);
273: END IF;
274:
267: l_kdetails_rec.contract_number_modifier;
268: END IF;
269: END IF;
270: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
271: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
272: 'Contract Number: ' ||l_concat_k_number);
273: END IF;
274:
275: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
271: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
272: 'Contract Number: ' ||l_concat_k_number);
273: END IF;
274:
275: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
277: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
278: END IF;
279: RETURN l_concat_k_number;
272: 'Contract Number: ' ||l_concat_k_number);
273: END IF;
274:
275: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
277: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
278: END IF;
279: RETURN l_concat_k_number;
280:
279: RETURN l_concat_k_number;
280:
281: EXCEPTION
282: WHEN OTHERS THEN
283: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
284: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
285: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
286: ||SQLCODE||', sqlerrm = '||SQLERRM);
287: END IF;
280:
281: EXCEPTION
282: WHEN OTHERS THEN
283: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
284: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
285: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
286: ||SQLCODE||', sqlerrm = '||SQLERRM);
287: END IF;
288: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
305: AND lookup_type = p_lookup_type;
306:
307: BEGIN
308: -- start debug log
309: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
310: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
311: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
312: END IF;
313:
306:
307: BEGIN
308: -- start debug log
309: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
310: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
311: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
312: END IF;
313:
314: OPEN l_lookup_csr;
314: OPEN l_lookup_csr;
315: FETCH l_lookup_csr INTO l_meaning;
316: CLOSE l_lookup_csr;
317:
318: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
319: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
320: 'Meaning: ' ||l_meaning);
321: END IF;
322:
315: FETCH l_lookup_csr INTO l_meaning;
316: CLOSE l_lookup_csr;
317:
318: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
319: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
320: 'Meaning: ' ||l_meaning);
321: END IF;
322:
323: -- end debug log
320: 'Meaning: ' ||l_meaning);
321: END IF;
322:
323: -- end debug log
324: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
326: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
327: END IF;
328:
321: END IF;
322:
323: -- end debug log
324: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
325: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
326: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
327: END IF;
328:
329: RETURN l_meaning;
328:
329: RETURN l_meaning;
330: EXCEPTION
331: WHEN OTHERS THEN
332: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
333: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
334: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
335: ||SQLCODE||', sqlerrm = '||SQLERRM);
336: END IF;
329: RETURN l_meaning;
330: EXCEPTION
331: WHEN OTHERS THEN
332: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
333: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
334: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
335: ||SQLCODE||', sqlerrm = '||SQLERRM);
336: END IF;
337: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
354:
355: l_rownotfound BOOLEAN := FALSE;
356: BEGIN
357: -- start debug log
358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
360: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
361: END IF;
362:
355: l_rownotfound BOOLEAN := FALSE;
356: BEGIN
357: -- start debug log
358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
360: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
361: END IF;
362:
363: OPEN csr_k_item_key;
368: IF l_rownotfound OR l_item_key IS NULL THEN
369: l_item_key := NULL;
370: END IF; -- item_key is null
371:
372: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
373: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
374: 'Item Key: ' ||l_item_key);
375: END IF;
376:
369: l_item_key := NULL;
370: END IF; -- item_key is null
371:
372: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
373: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
374: 'Item Key: ' ||l_item_key);
375: END IF;
376:
377: -- end debug log
374: 'Item Key: ' ||l_item_key);
375: END IF;
376:
377: -- end debug log
378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
381: END IF;
382:
375: END IF;
376:
377: -- end debug log
378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
381: END IF;
382:
383: RETURN l_item_key;
382:
383: RETURN l_item_key;
384: EXCEPTION
385: WHEN OTHERS THEN
386: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
388: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
389: ||SQLCODE||', sqlerrm = '||SQLERRM);
390: END IF;
383: RETURN l_item_key;
384: EXCEPTION
385: WHEN OTHERS THEN
386: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
388: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
389: ||SQLCODE||', sqlerrm = '||SQLERRM);
390: END IF;
391: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
448: l_gcd_language VARCHAR2(50);
449:
450: BEGIN
451:
452: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
454: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
455: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
456: 'Contract ID: '||p_contract_id||
449:
450: BEGIN
451:
452: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
454: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
455: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
456: 'Contract ID: '||p_contract_id||
457: ' Document Type: '||p_document_type);
451:
452: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
454: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
455: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
456: 'Contract ID: '||p_contract_id||
457: ' Document Type: '||p_document_type);
458: END IF;
459:
473: RAISE FND_API.G_EXC_ERROR;
474: END IF;
475: okc_context.set_okc_org_context(p_chr_id => p_contract_id);
476:
477: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
478: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
479: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(p_contract_id= '
480: ||p_contract_id||' p_document_type ='||p_document_type||')');
481: END IF;
474: END IF;
475: okc_context.set_okc_org_context(p_chr_id => p_contract_id);
476:
477: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
478: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
479: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(p_contract_id= '
480: ||p_contract_id||' p_document_type ='||p_document_type||')');
481: END IF;
482:
495: x_msg_data => x_msg_data,
496: x_msg_count => x_msg_count
497: );
498:
499: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
500: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
501: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(x_return_status= '||x_return_status||
502: ' x_msg_count ='||x_msg_count||')');
503: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
496: x_msg_count => x_msg_count
497: );
498:
499: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
500: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
501: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(x_return_status= '||x_return_status||
502: ' x_msg_count ='||x_msg_count||')');
503: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
504: ' x_template_language ='||l_language||
499: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
500: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
501: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(x_return_status= '||x_return_status||
502: ' x_msg_count ='||x_msg_count||')');
503: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
504: ' x_template_language ='||l_language||
505: ' x_message_template_id ='||x_email_attr_rec.email_body_id||
506: ' x_attachment_template_id ='||x_email_attr_rec.attachment_id||
507: ' x_attachment_name ='||x_email_attr_rec.attachment_name||
517: x_template_defined_yn := 'N';
518: END IF;
519:
520: IF p_document_type IN (G_REPORT_TYPE_ACCEPT,G_REPORT_TYPE_CANCEL) THEN
521: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
522: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
523: 'OKS_RENEW_UTIL_PVT.get_language_info(p_contract_id= '
524: ||p_contract_id||' p_document_type ='||p_document_type||')');
525: END IF;
518: END IF;
519:
520: IF p_document_type IN (G_REPORT_TYPE_ACCEPT,G_REPORT_TYPE_CANCEL) THEN
521: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
522: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
523: 'OKS_RENEW_UTIL_PVT.get_language_info(p_contract_id= '
524: ||p_contract_id||' p_document_type ='||p_document_type||')');
525: END IF;
526: OKS_RENEW_UTIL_PVT.get_language_info
538: x_return_status => x_return_status,
539: x_msg_count => x_msg_count,
540: x_msg_data => x_msg_data
541: );
542: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
543: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
544: 'OKS_RENEW_UTIL_PVT.get_language_info(x_return_status= '
545: ||x_return_status||' x_msg_count ='||x_msg_count||')');
546: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
539: x_msg_count => x_msg_count,
540: x_msg_data => x_msg_data
541: );
542: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
543: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
544: 'OKS_RENEW_UTIL_PVT.get_language_info(x_return_status= '
545: ||x_return_status||' x_msg_count ='||x_msg_count||')');
546: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
547: ' x_fnd_language ='||l_language||
542: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
543: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
544: 'OKS_RENEW_UTIL_PVT.get_language_info(x_return_status= '
545: ||x_return_status||' x_msg_count ='||x_msg_count||')');
546: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
547: ' x_fnd_language ='||l_language||
548: ' x_fnd_iso_language ='||l_iso_language||
549: ' x_fnd_iso_territory ='||l_iso_territory);
550: END IF;
616: END IF;
617:
618: END IF;
619:
620: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
621: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
622: substr('IH Subject '||x_email_attr_rec.ih_subject,1,240) ||
623: substr(' IH Message '||x_email_attr_rec.ih_message,1,240)||
624: substr(' Email subject '||x_email_attr_rec.email_subject,1,240));
617:
618: END IF;
619:
620: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
621: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
622: substr('IH Subject '||x_email_attr_rec.ih_subject,1,240) ||
623: substr(' IH Message '||x_email_attr_rec.ih_message,1,240)||
624: substr(' Email subject '||x_email_attr_rec.email_subject,1,240));
625: END IF;
627:
628: -- Standard call to get message count and if count is 1, get message info.
629: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
630:
631: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
632: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
633: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
634: END IF;
635:
628: -- Standard call to get message count and if count is 1, get message info.
629: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
630:
631: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
632: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
633: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
634: END IF;
635:
636: EXCEPTION
636: EXCEPTION
637: WHEN FND_API.G_EXC_ERROR THEN
638: x_return_status := G_RET_STS_ERROR;
639: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
640: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
641: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
642: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
643: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
644: END IF;
637: WHEN FND_API.G_EXC_ERROR THEN
638: x_return_status := G_RET_STS_ERROR;
639: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
640: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
641: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
642: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
643: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
644: END IF;
645: WHEN OTHERS THEN
639: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
640: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
641: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
642: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
643: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
644: END IF;
645: WHEN OTHERS THEN
646: x_return_status := G_RET_STS_UNEXP_ERROR;
647: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
643: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
644: END IF;
645: WHEN OTHERS THEN
646: x_return_status := G_RET_STS_UNEXP_ERROR;
647: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
648: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
649: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
650: ||SQLCODE||', sqlerrm = '||SQLERRM);
651: END IF;
644: END IF;
645: WHEN OTHERS THEN
646: x_return_status := G_RET_STS_UNEXP_ERROR;
647: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
648: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
649: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
650: ||SQLCODE||', sqlerrm = '||SQLERRM);
651: END IF;
652: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
664: l_irr_flag VARCHAR2(1) := NULL;
665:
666: BEGIN
667:
668: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
669: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
670: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
671: ' with p_contract_id: '||p_contract_id||'p_item_key '||p_item_key);
672: END IF;
665:
666: BEGIN
667:
668: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
669: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
670: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
671: ' with p_contract_id: '||p_contract_id||'p_item_key '||p_item_key);
672: END IF;
673:
683: ELSE
684: l_item_key := p_item_key;
685: END IF;
686:
687: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
688: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
689: 'Item Key: ' ||l_item_key);
690: END IF;
691:
684: l_item_key := p_item_key;
685: END IF;
686:
687: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
688: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
689: 'Item Key: ' ||l_item_key);
690: END IF;
691:
692: l_irr_flag := wf_engine.GetItemAttrText(
693: itemtype => G_ITEM_TYPE,
694: itemkey => l_item_key,
695: aname => 'IRR_FLAG');
696:
697: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
698: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
699: 'Irr Flag: ' ||NVL(l_irr_flag,'NULL'));
700: END IF;
701:
694: itemkey => l_item_key,
695: aname => 'IRR_FLAG');
696:
697: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
698: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
699: 'Irr Flag: ' ||NVL(l_irr_flag,'NULL'));
700: END IF;
701:
702: IF l_irr_flag IN (G_IRR_FLAG_AUTOMATIC,G_IRR_FLAG_MANUAL,G_IRR_FLAG_REQD) THEN
706: ELSE
707: l_irr_flag := G_IRR_FLAG_REQD;
708: END IF;
709:
710: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
711: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
712: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' with l_irr_flag '||l_irr_flag);
713: END IF;
714:
707: l_irr_flag := G_IRR_FLAG_REQD;
708: END IF;
709:
710: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
711: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
712: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' with l_irr_flag '||l_irr_flag);
713: END IF;
714:
715: RETURN l_irr_flag;
714:
715: RETURN l_irr_flag;
716: EXCEPTION
717: WHEN FND_API.G_EXC_ERROR THEN
718: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
720: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name);
721: END IF;
722: RETURN NULL;
715: RETURN l_irr_flag;
716: EXCEPTION
717: WHEN FND_API.G_EXC_ERROR THEN
718: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
720: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name);
721: END IF;
722: RETURN NULL;
723: WHEN OTHERS THEN
720: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name);
721: END IF;
722: RETURN NULL;
723: WHEN OTHERS THEN
724: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
725: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
726: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
727: ||SQLCODE||', sqlerrm = '||SQLERRM);
728: END IF;
721: END IF;
722: RETURN NULL;
723: WHEN OTHERS THEN
724: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
725: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
726: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
727: ||SQLCODE||', sqlerrm = '||SQLERRM);
728: END IF;
729: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
750: AND wpa.activity_name = p_activity_name
751: AND wias.activity_status = 'NOTIFIED';
752: BEGIN
753:
754: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
756: 'Entered '||G_PKG_NAME ||'.'||l_api_name );
757: END IF;
758: OPEN check_activity_csr;
751: AND wias.activity_status = 'NOTIFIED';
752: BEGIN
753:
754: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
755: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
756: 'Entered '||G_PKG_NAME ||'.'||l_api_name );
757: END IF;
758: OPEN check_activity_csr;
759: FETCH check_activity_csr INTO l_activity_status;
758: OPEN check_activity_csr;
759: FETCH check_activity_csr INTO l_activity_status;
760: l_rowfound := check_activity_csr%FOUND;
761: CLOSE check_activity_csr;
762: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
763: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
764: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' l_activity_status='||l_activity_status);
765: END IF;
766: RETURN l_rowfound;
759: FETCH check_activity_csr INTO l_activity_status;
760: l_rowfound := check_activity_csr%FOUND;
761: CLOSE check_activity_csr;
762: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
763: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
764: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' l_activity_status='||l_activity_status);
765: END IF;
766: RETURN l_rowfound;
767: EXCEPTION
765: END IF;
766: RETURN l_rowfound;
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
770: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
771: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
772: ||SQLCODE||', sqlerrm = '||SQLERRM);
773: END IF;
766: RETURN l_rowfound;
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
770: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
771: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
772: ||SQLCODE||', sqlerrm = '||SQLERRM);
773: END IF;
774: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
793: AND wpa.ACTIVITY_ITEM_TYPE = p_item_type
794: AND wias.activity_status = 'NOTIFIED';
795: BEGIN
796:
797: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
799: 'Entered '||G_PKG_NAME ||'.'||l_api_name );
800: END IF;
801: OPEN check_activity_csr;
794: AND wias.activity_status = 'NOTIFIED';
795: BEGIN
796:
797: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
799: 'Entered '||G_PKG_NAME ||'.'||l_api_name );
800: END IF;
801: OPEN check_activity_csr;
802: FETCH check_activity_csr INTO l_activity_name;
800: END IF;
801: OPEN check_activity_csr;
802: FETCH check_activity_csr INTO l_activity_name;
803: CLOSE check_activity_csr;
804: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
805: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
806: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' l_activity_name='||l_activity_name);
807: END IF;
808: RETURN nvl(l_activity_name, '?');
801: OPEN check_activity_csr;
802: FETCH check_activity_csr INTO l_activity_name;
803: CLOSE check_activity_csr;
804: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
805: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
806: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' l_activity_name='||l_activity_name);
807: END IF;
808: RETURN nvl(l_activity_name, '?');
809: EXCEPTION
807: END IF;
808: RETURN nvl(l_activity_name, '?');
809: EXCEPTION
810: WHEN OTHERS THEN
811: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
812: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
813: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
814: ||SQLCODE||', sqlerrm = '||SQLERRM);
815: END IF;
808: RETURN nvl(l_activity_name, '?');
809: EXCEPTION
810: WHEN OTHERS THEN
811: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
812: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
813: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
814: ||SQLCODE||', sqlerrm = '||SQLERRM);
815: END IF;
816: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
863: l_process_type VARCHAR2(30);
864:
865: BEGIN
866:
867: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
868: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
869: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
870: END IF;
871:
864:
865: BEGIN
866:
867: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
868: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
869: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
870: END IF;
871:
872: -- Standard call to check for call compatibility.
900: ELSE
901: l_item_key := p_item_key;
902: END IF;
903:
904: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
905: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
906: 'Item Key found '||l_item_key);
907: END IF;
908:
901: l_item_key := p_item_key;
902: END IF;
903:
904: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
905: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
906: 'Item Key found '||l_item_key);
907: END IF;
908:
909: l_publish_manually := wf_engine.GetItemAttrText(
923: ELSE
924: x_online_yn := 'N';
925: END IF;
926: END IF;
927: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
929: 'Publish manual Flag '||l_publish_manually ||
930: ' Process Type '|| l_process_type ||
931: ' Online YN ' || x_online_yn);
924: x_online_yn := 'N';
925: END IF;
926: END IF;
927: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
929: 'Publish manual Flag '||l_publish_manually ||
930: ' Process Type '|| l_process_type ||
931: ' Online YN ' || x_online_yn);
932: END IF;
932: END IF;
933: -- Standard call to get message count and if count is 1, get message info.
934: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
935:
936: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
938: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
939: END IF;
940:
933: -- Standard call to get message count and if count is 1, get message info.
934: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
935:
936: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
938: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
939: END IF;
940:
941: EXCEPTION
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_return_status := G_RET_STS_ERROR;
944: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
945: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
947: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
948: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
949: END IF;
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_return_status := G_RET_STS_ERROR;
944: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
945: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
947: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
948: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
949: END IF;
950: WHEN OTHERS THEN
944: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
945: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
947: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
948: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
949: END IF;
950: WHEN OTHERS THEN
951: x_return_status := G_RET_STS_UNEXP_ERROR;
952: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
948: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
949: END IF;
950: WHEN OTHERS THEN
951: x_return_status := G_RET_STS_UNEXP_ERROR;
952: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
953: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
954: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
955: ||SQLCODE||', sqlerrm = '||SQLERRM);
956: END IF;
949: END IF;
950: WHEN OTHERS THEN
951: x_return_status := G_RET_STS_UNEXP_ERROR;
952: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
953: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
954: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
955: ||SQLCODE||', sqlerrm = '||SQLERRM);
956: END IF;
957: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
977: l_item_key wf_items.item_key%TYPE;
978:
979: BEGIN
980: -- start debug log
981: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
982: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
983: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
985: 'and p_item_key '||p_item_key||' p_resultout ='||p_resultout||
978:
979: BEGIN
980: -- start debug log
981: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
982: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
983: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
985: 'and p_item_key '||p_item_key||' p_resultout ='||p_resultout||
986: ' p_process_status ='||p_process_status||' p_activity_name ='||p_activity_name);
980: -- start debug log
981: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
982: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
983: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
985: 'and p_item_key '||p_item_key||' p_resultout ='||p_resultout||
986: ' p_process_status ='||p_process_status||' p_activity_name ='||p_activity_name);
987: END IF;
988:
1011: END IF; -- p_item_key IS NULL
1012:
1013: -- if p_process_status is passed then update the renewal status in oks_k_headers_b
1014: IF p_process_status IS NOT NULL THEN
1015: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1016: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1017: 'Updating Contract '||G_PKG_NAME ||'.'||l_api_name);
1018: END IF;
1019:
1012:
1013: -- if p_process_status is passed then update the renewal status in oks_k_headers_b
1014: IF p_process_status IS NOT NULL THEN
1015: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1016: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1017: 'Updating Contract '||G_PKG_NAME ||'.'||l_api_name);
1018: END IF;
1019:
1020: UPDATE oks_k_headers_b
1041: WHERE chr_id = p_contract_id;
1042: */
1043: END IF; -- p_process_status is passed
1044:
1045: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1046: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1047: 'Completing Activity '||G_PKG_NAME ||'.'||l_api_name);
1048: END IF;
1049:
1042: */
1043: END IF; -- p_process_status is passed
1044:
1045: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1046: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1047: 'Completing Activity '||G_PKG_NAME ||'.'||l_api_name);
1048: END IF;
1049:
1050: -- Call the wf complete activity
1060: -- Standard call to get message count and if count is 1, get message info.
1061: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1062:
1063: -- end debug log
1064: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1066: G_MODULE||l_api_name,
1067: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1068: END IF;
1061: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1062:
1063: -- end debug log
1064: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1066: G_MODULE||l_api_name,
1067: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1068: END IF;
1069:
1069:
1070: EXCEPTION
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1075: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1076: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1077: END IF;
1070: EXCEPTION
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1075: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1076: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1077: END IF;
1078: x_return_status := G_RET_STS_ERROR ;
1072: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1075: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1076: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1077: END IF;
1078: x_return_status := G_RET_STS_ERROR ;
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: x_return_status := G_RET_STS_ERROR ;
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1084: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
1085: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1086: END IF;
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1084: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
1085: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1086: END IF;
1087: x_return_status := G_RET_STS_UNEXP_ERROR ;
1081: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1084: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
1085: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1086: END IF;
1087: x_return_status := G_RET_STS_UNEXP_ERROR ;
1088:
1089: WHEN OTHERS THEN
1086: END IF;
1087: x_return_status := G_RET_STS_UNEXP_ERROR ;
1088:
1089: WHEN OTHERS THEN
1090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1092: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
1093: ||SQLCODE||', sqlerrm = '||SQLERRM);
1094: END IF;
1087: x_return_status := G_RET_STS_UNEXP_ERROR ;
1088:
1089: WHEN OTHERS THEN
1090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1092: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
1093: ||SQLCODE||', sqlerrm = '||SQLERRM);
1094: END IF;
1095: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1111:
1112: l_negotiation_status VARCHAR2(30);
1113: BEGIN
1114: -- start debug log
1115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1117: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
1118: END IF;
1119:
1112: l_negotiation_status VARCHAR2(30);
1113: BEGIN
1114: -- start debug log
1115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1117: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
1118: END IF;
1119:
1120: -- Get negotiation status
1128: RAISE FND_API.G_EXC_ERROR;
1129: END IF;
1130:
1131: -- end debug log
1132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1134: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' with negotiation status '||l_negotiation_status);
1135: END IF;
1136:
1129: END IF;
1130:
1131: -- end debug log
1132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1134: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' with negotiation status '||l_negotiation_status);
1135: END IF;
1136:
1137: RETURN l_negotiation_status;
1136:
1137: RETURN l_negotiation_status;
1138: EXCEPTION
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1142: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1143: END IF;
1144: RETURN NULL;
1137: RETURN l_negotiation_status;
1138: EXCEPTION
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1142: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1143: END IF;
1144: RETURN NULL;
1145: WHEN OTHERS THEN
1142: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1143: END IF;
1144: RETURN NULL;
1145: WHEN OTHERS THEN
1146: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1147: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1148: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1149: ||SQLCODE||', sqlerrm = '||SQLERRM);
1150: END IF;
1143: END IF;
1144: RETURN NULL;
1145: WHEN OTHERS THEN
1146: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1147: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1148: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1149: ||SQLCODE||', sqlerrm = '||SQLERRM);
1150: END IF;
1151: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1204: x_active VARCHAR2(1) := 'N';
1205:
1206: BEGIN
1207:
1208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1209: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1210: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
1211: END IF;
1212:
1205:
1206: BEGIN
1207:
1208: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1209: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1210: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
1211: END IF;
1212:
1213: OPEN l_wfactive_csr;
1229: x_active := 'Y';
1230: END IF;
1231: END IF;
1232:
1233: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1234: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'In process? '||x_active);
1235: END IF;
1236:
1237: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1230: END IF;
1231: END IF;
1232:
1233: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1234: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'In process? '||x_active);
1235: END IF;
1236:
1237: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1233: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1234: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'In process? '||x_active);
1235: END IF;
1236:
1237: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1239: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1240: END IF;
1241: RETURN x_active;
1234: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'In process? '||x_active);
1235: END IF;
1236:
1237: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1239: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1240: END IF;
1241: RETURN x_active;
1242:
1241: RETURN x_active;
1242:
1243: EXCEPTION
1244: WHEN OTHERS THEN
1245: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1246: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1247: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1248: ||SQLCODE||', sqlerrm = '||SQLERRM);
1249: END IF;
1242:
1243: EXCEPTION
1244: WHEN OTHERS THEN
1245: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1246: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1247: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1248: ||SQLCODE||', sqlerrm = '||SQLERRM);
1249: END IF;
1250: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1272: l_qto_email VARCHAR2(2000);
1273: l_contact_id NUMBER;
1274: BEGIN
1275: -- start debug log
1276: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1278: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
1279: END IF;
1280:
1273: l_contact_id NUMBER;
1274: BEGIN
1275: -- start debug log
1276: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1277: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1278: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id '||p_contract_id);
1279: END IF;
1280:
1281: -- Get contact point id of Quote To contact's email address
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: -- end debug log
1303: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1305: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' with l_qto_email '||l_qto_email);
1306: END IF;
1307:
1300: END IF;
1301:
1302: -- end debug log
1303: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1304: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1305: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' with l_qto_email '||l_qto_email);
1306: END IF;
1307:
1308: RETURN l_qto_email;
1307:
1308: RETURN l_qto_email;
1309: EXCEPTION
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1312: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1313: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1314: END IF;
1315: RETURN NULL;
1308: RETURN l_qto_email;
1309: EXCEPTION
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1312: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1313: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1314: END IF;
1315: RETURN NULL;
1316: WHEN OTHERS THEN
1313: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1314: END IF;
1315: RETURN NULL;
1316: WHEN OTHERS THEN
1317: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1318: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1319: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1320: ||SQLCODE||', sqlerrm = '||SQLERRM);
1321: END IF;
1314: END IF;
1315: RETURN NULL;
1316: WHEN OTHERS THEN
1317: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1318: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1319: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1320: ||SQLCODE||', sqlerrm = '||SQLERRM);
1321: END IF;
1322: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1436: l_qtocontact_name VARCHAR2(220);
1437:
1438: BEGIN
1439:
1440: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1441: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1442: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
1443: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1444: 'Contract Id ' ||p_notif_attr.CONTRACT_ID||
1437:
1438: BEGIN
1439:
1440: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1441: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1442: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
1443: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1444: 'Contract Id ' ||p_notif_attr.CONTRACT_ID||
1445: ' Item Key ' ||p_notif_attr.ITEM_KEY ||
1439:
1440: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1441: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1442: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
1443: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1444: 'Contract Id ' ||p_notif_attr.CONTRACT_ID||
1445: ' Item Key ' ||p_notif_attr.ITEM_KEY ||
1446: ' NTF type' ||p_notif_attr.NTF_TYPE ||
1447: ' NTF subject' ||p_notif_attr.NTF_SUBJECT||
1478: FETCH l_party_csr INTO l_party_name;
1479: CLOSE l_party_csr;
1480:
1481: okc_context.set_okc_org_context(p_chr_id => p_notif_attr.CONTRACT_ID);
1482: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1483: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,'Party name '||l_party_name);
1484: END IF;
1485:
1486: IF p_notif_attr.ITEM_KEY IS NULL THEN
1479: CLOSE l_party_csr;
1480:
1481: okc_context.set_okc_org_context(p_chr_id => p_notif_attr.CONTRACT_ID);
1482: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1483: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,'Party name '||l_party_name);
1484: END IF;
1485:
1486: IF p_notif_attr.ITEM_KEY IS NULL THEN
1487: l_item_key := get_wf_item_key(p_notif_attr.CONTRACT_ID);
1509: );
1510: l_salesrep_name := p_notif_attr.PERFORMER;
1511: ELSE
1512: -- Get Salesrep user name which will be used as performer
1513: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1514: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
1515: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id= '
1516: ||p_notif_attr.CONTRACT_ID||')');
1517: END IF;
1510: l_salesrep_name := p_notif_attr.PERFORMER;
1511: ELSE
1512: -- Get Salesrep user name which will be used as performer
1513: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1514: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
1515: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id= '
1516: ||p_notif_attr.CONTRACT_ID||')');
1517: END IF;
1518: OKS_RENEW_CONTRACT_PVT.GET_USER_NAME
1526: p_hdesk_user_id => NULL,
1527: x_user_id => l_salesrep_id,
1528: x_user_name => l_salesrep_name
1529: );
1530: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1531: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
1532: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= '||
1533: x_return_status||' x_msg_count ='||x_msg_count||')');
1534: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
1527: x_user_id => l_salesrep_id,
1528: x_user_name => l_salesrep_name
1529: );
1530: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1531: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
1532: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= '||
1533: x_return_status||' x_msg_count ='||x_msg_count||')');
1534: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
1535: ' x_user_id ='||l_salesrep_id||
1530: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1531: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
1532: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= '||
1533: x_return_status||' x_msg_count ='||x_msg_count||')');
1534: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
1535: ' x_user_id ='||l_salesrep_id||
1536: ' x_user_name ='||l_salesrep_name);
1537: END IF;
1538: IF x_return_status <> G_RET_STS_SUCCESS THEN
1621: aname => 'SUBJECT',
1622: avalue => p_notif_attr.SUBJECT
1623: );
1624:
1625: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1627: 'Notification Type: '|| p_notif_attr.NTF_TYPE);
1628: END IF;
1629:
1622: avalue => p_notif_attr.SUBJECT
1623: );
1624:
1625: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1627: 'Notification Type: '|| p_notif_attr.NTF_TYPE);
1628: END IF;
1629:
1630: IF p_notif_attr.NTF_TYPE = G_NTF_TYPE_ACCEPT THEN
1881: avalue => p_notif_attr.MESSAGE10
1882: );
1883: END IF;
1884: END IF;
1885: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1886: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
1887: 'Successfully set workflow attributes ');
1888: END IF;
1889:
1882: );
1883: END IF;
1884: END IF;
1885: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1886: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
1887: 'Successfully set workflow attributes ');
1888: END IF;
1889:
1890: -- Standard call to get message count and if count is 1, get message info.
1889:
1890: -- Standard call to get message count and if count is 1, get message info.
1891: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
1892:
1893: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1895: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1896: END IF;
1897:
1890: -- Standard call to get message count and if count is 1, get message info.
1891: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
1892:
1893: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1895: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1896: END IF;
1897:
1898: EXCEPTION
1898: EXCEPTION
1899: WHEN FND_API.G_EXC_ERROR THEN
1900: x_return_status := G_RET_STS_ERROR;
1901: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1902: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1903: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1904: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
1905: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
1906: END IF;
1899: WHEN FND_API.G_EXC_ERROR THEN
1900: x_return_status := G_RET_STS_ERROR;
1901: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1902: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1903: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1904: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
1905: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
1906: END IF;
1907: WHEN OTHERS THEN
1901: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1902: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1903: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1904: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
1905: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
1906: END IF;
1907: WHEN OTHERS THEN
1908: x_return_status := G_RET_STS_UNEXP_ERROR;
1909: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1905: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
1906: END IF;
1907: WHEN OTHERS THEN
1908: x_return_status := G_RET_STS_UNEXP_ERROR;
1909: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1910: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1911: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1912: ||SQLCODE||', sqlerrm = '||SQLERRM);
1913: END IF;
1906: END IF;
1907: WHEN OTHERS THEN
1908: x_return_status := G_RET_STS_UNEXP_ERROR;
1909: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1910: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
1911: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
1912: ||SQLCODE||', sqlerrm = '||SQLERRM);
1913: END IF;
1914: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2003: l_gcd_language VARCHAR2(50);
2004:
2005: BEGIN
2006:
2007: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2009: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
2010: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2011: 'Contract ID:' ||p_email_attr.CONTRACT_ID||
2004:
2005: BEGIN
2006:
2007: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2009: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
2010: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2011: 'Contract ID:' ||p_email_attr.CONTRACT_ID||
2012: ' Item Key:' ||p_email_attr.ITEM_KEY||
2006:
2007: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2008: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2009: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with parameters');
2010: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2011: 'Contract ID:' ||p_email_attr.CONTRACT_ID||
2012: ' Item Key:' ||p_email_attr.ITEM_KEY||
2013: ' Email Type:' ||p_email_attr.EMAIL_TYPE);
2014: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2010: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2011: 'Contract ID:' ||p_email_attr.CONTRACT_ID||
2012: ' Item Key:' ||p_email_attr.ITEM_KEY||
2013: ' Email Type:' ||p_email_attr.EMAIL_TYPE);
2014: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2015: 'To Email:' ||p_email_attr.TO_EMAIL||
2016: ' Sender Email:' ||p_email_attr.SENDER_EMAIL||
2017: ' Email Subject:' ||substr(p_email_attr.EMAIL_SUBJECT,1,150));
2018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2014: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2015: 'To Email:' ||p_email_attr.TO_EMAIL||
2016: ' Sender Email:' ||p_email_attr.SENDER_EMAIL||
2017: ' Email Subject:' ||substr(p_email_attr.EMAIL_SUBJECT,1,150));
2018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2019: 'IH subject:' ||substr(p_email_attr.IH_SUBJECT,1,150)||
2020: ' IH message:' ||substr(p_email_attr.IH_MESSAGE,1,150));
2021: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2022: 'Message Template: ' ||p_email_attr.email_body_id||
2017: ' Email Subject:' ||substr(p_email_attr.EMAIL_SUBJECT,1,150));
2018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2019: 'IH subject:' ||substr(p_email_attr.IH_SUBJECT,1,150)||
2020: ' IH message:' ||substr(p_email_attr.IH_MESSAGE,1,150));
2021: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2022: 'Message Template: ' ||p_email_attr.email_body_id||
2023: ' Attachment Template: '||p_email_attr.attachment_id||
2024: ' Attachment Name: ' ||p_email_attr.attachment_name||
2025: ' Contract status: ' ||p_email_attr.contract_status);
2042:
2043: IF p_email_attr.TO_EMAIL IS NULL THEN
2044: l_qto_email := get_qto_email(p_contract_id => p_email_attr.CONTRACT_ID);
2045: IF l_qto_email IS NULL THEN
2046: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2047: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
2048: END IF;
2049: RAISE FND_API.G_EXC_ERROR;
2050: END IF;
2043: IF p_email_attr.TO_EMAIL IS NULL THEN
2044: l_qto_email := get_qto_email(p_contract_id => p_email_attr.CONTRACT_ID);
2045: IF l_qto_email IS NULL THEN
2046: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2047: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
2048: END IF;
2049: RAISE FND_API.G_EXC_ERROR;
2050: END IF;
2051: ELSE
2053: END IF;
2054:
2055: IF p_email_attr.SENDER_EMAIL IS NULL THEN
2056:
2057: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2058: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2059: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id= '
2060: ||p_email_attr.CONTRACT_ID||')');
2061: END IF;
2054:
2055: IF p_email_attr.SENDER_EMAIL IS NULL THEN
2056:
2057: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2058: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2059: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id= '
2060: ||p_email_attr.CONTRACT_ID||')');
2061: END IF;
2062: OKS_RENEW_CONTRACT_PVT.GET_USER_NAME
2070: p_hdesk_user_id => NULL,
2071: x_user_id => l_salesrep_id,
2072: x_user_name => l_salesrep_name
2073: );
2074: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2075: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2076: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= '||x_return_status||
2077: ' x_msg_count ='||x_msg_count||')');
2078: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2071: x_user_id => l_salesrep_id,
2072: x_user_name => l_salesrep_name
2073: );
2074: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2075: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2076: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= '||x_return_status||
2077: ' x_msg_count ='||x_msg_count||')');
2078: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2079: ' x_user_id ='||l_salesrep_id||
2074: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2075: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2076: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= '||x_return_status||
2077: ' x_msg_count ='||x_msg_count||')');
2078: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2079: ' x_user_id ='||l_salesrep_id||
2080: ' x_user_name ='||l_salesrep_name);
2081: END IF;
2082: IF x_return_status <> G_RET_STS_SUCCESS THEN
2098: ELSE
2099: l_sender_email := p_email_attr.SENDER_EMAIL;
2100: END IF;
2101:
2102: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2103: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2104: substr('To: '||l_qto_email,1,4000));
2105: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2106: substr('Sender: '||l_sender_email,1,4000));
2099: l_sender_email := p_email_attr.SENDER_EMAIL;
2100: END IF;
2101:
2102: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2103: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2104: substr('To: '||l_qto_email,1,4000));
2105: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2106: substr('Sender: '||l_sender_email,1,4000));
2107: END IF;
2101:
2102: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2103: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2104: substr('To: '||l_qto_email,1,4000));
2105: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2106: substr('Sender: '||l_sender_email,1,4000));
2107: END IF;
2108:
2109: -- Get item key in order to retrieve contract information
2123: (p_email_attr.EMAIL_SUBJECT IS NULL)) THEN
2124:
2125: okc_context.set_okc_org_context(p_chr_id => p_email_attr.CONTRACT_ID);
2126:
2127: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2128: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2129: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(p_contract_id= '
2130: ||p_email_attr.CONTRACT_ID||
2131: ' p_document_type ='||p_email_attr.EMAIL_TYPE||')');
2124:
2125: okc_context.set_okc_org_context(p_chr_id => p_email_attr.CONTRACT_ID);
2126:
2127: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2128: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2129: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(p_contract_id= '
2130: ||p_email_attr.CONTRACT_ID||
2131: ' p_document_type ='||p_email_attr.EMAIL_TYPE||')');
2132: END IF;
2146: x_msg_data => x_msg_data,
2147: x_msg_count => x_msg_count
2148: );
2149:
2150: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2151: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2152: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(x_return_status= '||x_return_status||
2153: ' x_msg_count ='||x_msg_count||')');
2154: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2147: x_msg_count => x_msg_count
2148: );
2149:
2150: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2151: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2152: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(x_return_status= '||x_return_status||
2153: ' x_msg_count ='||x_msg_count||')');
2154: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2155: ' x_template_language ='||l_language||
2150: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2151: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2152: 'OKS_TEMPLATE_SET_PUB.get_template_set_dtls(x_return_status= '||x_return_status||
2153: ' x_msg_count ='||x_msg_count||')');
2154: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2155: ' x_template_language ='||l_language||
2156: ' x_message_template_id ='||l_email_body_id||
2157: ' x_attachment_template_id ='||l_attachment_id||
2158: ' x_attachment_name ='||l_attachment_name||
2161: IF x_return_status <> G_RET_STS_SUCCESS THEN
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164:
2165: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2166: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2167: 'OKS_RENEW_UTIL_PVT.get_language_info(p_contract_id= '
2168: ||p_email_attr.CONTRACT_ID||
2169: ' p_document_type ='||p_email_attr.EMAIL_TYPE||')');
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164:
2165: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2166: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2167: 'OKS_RENEW_UTIL_PVT.get_language_info(p_contract_id= '
2168: ||p_email_attr.CONTRACT_ID||
2169: ' p_document_type ='||p_email_attr.EMAIL_TYPE||')');
2170: END IF;
2183: x_return_status => x_return_status,
2184: x_msg_count => x_msg_count,
2185: x_msg_data => x_msg_data
2186: );
2187: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2188: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2189: 'OKS_RENEW_UTIL_PVT.get_language_info(x_return_status= '
2190: ||x_return_status||' x_msg_count ='||x_msg_count||')');
2191: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2184: x_msg_count => x_msg_count,
2185: x_msg_data => x_msg_data
2186: );
2187: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2188: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2189: 'OKS_RENEW_UTIL_PVT.get_language_info(x_return_status= '
2190: ||x_return_status||' x_msg_count ='||x_msg_count||')');
2191: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2192: ' x_fnd_language ='||l_language||
2187: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2188: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2189: 'OKS_RENEW_UTIL_PVT.get_language_info(x_return_status= '
2190: ||x_return_status||' x_msg_count ='||x_msg_count||')');
2191: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2192: ' x_fnd_language ='||l_language||
2193: ' x_fnd_iso_language ='||l_iso_language||
2194: ' x_fnd_iso_territory ='||l_iso_territory);
2195: END IF;
2331: ELSE
2332: RAISE FND_API.G_EXC_ERROR;
2333: END IF;
2334:
2335: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2336: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2337: substr('IH Subject '||l_ih_subject,1,1000) ||
2338: substr(' IH Message '||l_ih_message,1,1000) ||
2339: substr(' Email Subject '||l_email_subject,1,1000));
2332: RAISE FND_API.G_EXC_ERROR;
2333: END IF;
2334:
2335: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2336: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2337: substr('IH Subject '||l_ih_subject,1,1000) ||
2338: substr(' IH Message '||l_ih_message,1,1000) ||
2339: substr(' Email Subject '||l_email_subject,1,1000));
2340: END IF;
2339: substr(' Email Subject '||l_email_subject,1,1000));
2340: END IF;
2341: END IF;
2342:
2343: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2344: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2345: 'Setting workflow attributes ');
2346: END IF;
2347:
2340: END IF;
2341: END IF;
2342:
2343: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2344: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2345: 'Setting workflow attributes ');
2346: END IF;
2347:
2348: WF_ENGINE.SetItemAttrText
2416: aname => 'EMAIL_SUBJECT',
2417: avalue => NVL(p_email_attr.email_subject,l_email_subject)
2418: );
2419:
2420: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2421: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2422: 'Successfully set workflow attributes ');
2423: END IF;
2424:
2417: avalue => NVL(p_email_attr.email_subject,l_email_subject)
2418: );
2419:
2420: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2421: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2422: 'Successfully set workflow attributes ');
2423: END IF;
2424:
2425: -- Standard call to get message count and if count is 1, get message info.
2424:
2425: -- Standard call to get message count and if count is 1, get message info.
2426: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
2427:
2428: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2429: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2430: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2431: END IF;
2432:
2425: -- Standard call to get message count and if count is 1, get message info.
2426: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
2427:
2428: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2429: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2430: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2431: END IF;
2432:
2433: EXCEPTION
2433: EXCEPTION
2434: WHEN FND_API.G_EXC_ERROR THEN
2435: x_return_status := G_RET_STS_ERROR;
2436: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2437: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2438: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2439: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
2440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
2441: END IF;
2434: WHEN FND_API.G_EXC_ERROR THEN
2435: x_return_status := G_RET_STS_ERROR;
2436: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2437: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2438: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2439: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
2440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
2441: END IF;
2442: WHEN OTHERS THEN
2436: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2437: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2438: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2439: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
2440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
2441: END IF;
2442: WHEN OTHERS THEN
2443: x_return_status := G_RET_STS_UNEXP_ERROR;
2444: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2440: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
2441: END IF;
2442: WHEN OTHERS THEN
2443: x_return_status := G_RET_STS_UNEXP_ERROR;
2444: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2445: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2446: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
2447: ||SQLCODE||', sqlerrm = '||SQLERRM);
2448: END IF;
2441: END IF;
2442: WHEN OTHERS THEN
2443: x_return_status := G_RET_STS_UNEXP_ERROR;
2444: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2445: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2446: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
2447: ||SQLCODE||', sqlerrm = '||SQLERRM);
2448: END IF;
2449: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2500:
2501:
2502: BEGIN
2503:
2504: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2506: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id'||
2507: p_contract_id||' p_item_key'||p_item_key);
2508: END IF;
2501:
2502: BEGIN
2503:
2504: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2505: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2506: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id'||
2507: p_contract_id||' p_item_key'||p_item_key);
2508: END IF;
2509:
2537: p_item_key => l_item_key,
2538: p_activity_name => G_CUST_ACTION ) THEN
2539:
2540: -- bug 5845505, send email only if template for the document type is setup
2541: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2542: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2543: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
2544: ' Contract ID ='||p_contract_id||
2545: ' Document Type ='||G_REPORT_TYPE_ACCEPT||')');
2538: p_activity_name => G_CUST_ACTION ) THEN
2539:
2540: -- bug 5845505, send email only if template for the document type is setup
2541: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2542: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2543: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
2544: ' Contract ID ='||p_contract_id||
2545: ' Document Type ='||G_REPORT_TYPE_ACCEPT||')');
2546: END IF;
2555: x_msg_data => x_msg_data,
2556: x_msg_count => x_msg_count
2557: );
2558:
2559: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2560: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2561: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2562: x_return_status||' x_msg_count ='||x_msg_count||')');
2563: END IF;
2556: x_msg_count => x_msg_count
2557: );
2558:
2559: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2560: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2561: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2562: x_return_status||' x_msg_count ='||x_msg_count||')');
2563: END IF;
2564: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2575: avalue => l_send_email_yn
2576: );
2577:
2578: --log interaction (media type WEB FORM) that customer has accepted the quote
2579: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2580: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2581: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2582: ' Contract ID = '||p_contract_id||
2583: substr(' IH Subject = '||l_email_attr_rec.ih_subject,1,100)||
2576: );
2577:
2578: --log interaction (media type WEB FORM) that customer has accepted the quote
2579: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2580: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2581: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2582: ' Contract ID = '||p_contract_id||
2583: substr(' IH Subject = '||l_email_attr_rec.ih_subject,1,100)||
2584: substr(' IH Message = '||l_email_attr_rec.ih_message||')',1,100));
2594: p_msg_body => l_email_attr_rec.ih_message,
2595: p_sent2_email => NULL,
2596: p_media_type => G_MEDIA_TYPE_WEB_FORM
2597: );
2598: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2599: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2600: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2601: x_return_status||' x_msg_count ='||x_msg_count||')');
2602: END IF;
2595: p_sent2_email => NULL,
2596: p_media_type => G_MEDIA_TYPE_WEB_FORM
2597: );
2598: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2599: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2600: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2601: x_return_status||' x_msg_count ='||x_msg_count||')');
2602: END IF;
2603: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2611: l_email_attr_rec.EMAIL_TYPE := G_REPORT_TYPE_ACCEPT;
2612: l_email_attr_rec.TO_EMAIL := NULL;
2613: l_email_attr_rec.SENDER_EMAIL := NULL;
2614:
2615: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2616: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2617: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2618: ' Contract ID ='||p_contract_id||
2619: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
2612: l_email_attr_rec.TO_EMAIL := NULL;
2613: l_email_attr_rec.SENDER_EMAIL := NULL;
2614:
2615: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2616: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2617: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2618: ' Contract ID ='||p_contract_id||
2619: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
2620: END IF;
2626: x_return_status => x_return_status,
2627: x_msg_data => x_msg_data,
2628: x_msg_count => x_msg_count
2629: );
2630: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2631: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2632: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2633: x_return_status||' x_msg_count ='||x_msg_count||')');
2634: END IF;
2627: x_msg_data => x_msg_data,
2628: x_msg_count => x_msg_count
2629: );
2630: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2631: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2632: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2633: x_return_status||' x_msg_count ='||x_msg_count||')');
2634: END IF;
2635: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2663: CLOSE get_cc_email;
2664:
2665: ELSE
2666:
2667: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2668: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2669: 'OKS_WF_K_PROCESS_PVT.set_email_attributes attribute CC_EMAIL is not defined for this workflow item key '||
2670: l_item_key||')');
2671: END IF;
2664:
2665: ELSE
2666:
2667: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2668: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2669: 'OKS_WF_K_PROCESS_PVT.set_email_attributes attribute CC_EMAIL is not defined for this workflow item key '||
2670: l_item_key||')');
2671: END IF;
2672:
2687: l_notif_attr_rec.NTF_TYPE := G_NTF_TYPE_ACCEPT;
2688: l_notif_attr_rec.NTF_SUBJECT := NULL;
2689: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
2690:
2691: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2692: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2693: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
2694: ' Contract ID ='||p_contract_id||
2695: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
2688: l_notif_attr_rec.NTF_SUBJECT := NULL;
2689: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
2690:
2691: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2692: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2693: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
2694: ' Contract ID ='||p_contract_id||
2695: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
2696: ' Message Subject ='||l_notif_attr_rec.SUBJECT||')');
2703: x_return_status => x_return_status,
2704: x_msg_data => x_msg_data,
2705: x_msg_count => x_msg_count
2706: );
2707: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2708: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2709: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
2710: x_return_status||' x_msg_count ='||x_msg_count||')');
2711: END IF;
2704: x_msg_data => x_msg_data,
2705: x_msg_count => x_msg_count
2706: );
2707: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2708: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2709: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
2710: x_return_status||' x_msg_count ='||x_msg_count||')');
2711: END IF;
2712: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2751: -- Standard call to get message count and if count is 1, get message info.
2752: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2753:
2754: -- end debug log
2755: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2756: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2757: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2758: END IF;
2759: EXCEPTION
2752: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2753:
2754: -- end debug log
2755: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2756: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2757: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2758: END IF;
2759: EXCEPTION
2760: WHEN FND_API.G_EXC_ERROR THEN
2759: EXCEPTION
2760: WHEN FND_API.G_EXC_ERROR THEN
2761: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2765: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
2766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2767: END IF;
2760: WHEN FND_API.G_EXC_ERROR THEN
2761: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2765: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
2766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2767: END IF;
2768: x_return_status := G_RET_STS_ERROR;
2762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2765: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
2766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2767: END IF;
2768: x_return_status := G_RET_STS_ERROR;
2769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2770: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2768: x_return_status := G_RET_STS_ERROR;
2769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2770: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2771: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2772: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2774: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
2775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2776: END IF;
2769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2770: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2771: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2772: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2774: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
2775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2776: END IF;
2777: x_return_status := G_RET_STS_UNEXP_ERROR ;
2771: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2772: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2774: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
2775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2776: END IF;
2777: x_return_status := G_RET_STS_UNEXP_ERROR ;
2778: WHEN OTHERS THEN
2779: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2776: END IF;
2777: x_return_status := G_RET_STS_UNEXP_ERROR ;
2778: WHEN OTHERS THEN
2779: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2780: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2781: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2782: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
2783: ||SQLCODE||', sqlerrm = '||SQLERRM);
2784: END IF;
2777: x_return_status := G_RET_STS_UNEXP_ERROR ;
2778: WHEN OTHERS THEN
2779: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2780: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2781: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2782: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
2783: ||SQLCODE||', sqlerrm = '||SQLERRM);
2784: END IF;
2785: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2850: l_rownotfound BOOLEAN := FALSE;
2851: l_reason VARCHAR2(250);
2852:
2853: BEGIN
2854: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2855: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2856: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id'||
2857: p_contract_id||' p_item_key:'||p_item_key);
2858: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2851: l_reason VARCHAR2(250);
2852:
2853: BEGIN
2854: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2855: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2856: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id'||
2857: p_contract_id||' p_item_key:'||p_item_key);
2858: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2859: 'p_reason_code:'||p_reason_code||' p_comments:'||p_comments);
2854: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2855: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2856: 'Entered '||G_PKG_NAME ||'.'||l_api_name||' with p_contract_id'||
2857: p_contract_id||' p_item_key:'||p_item_key);
2858: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2859: 'p_reason_code:'||p_reason_code||' p_comments:'||p_comments);
2860: END IF;
2861:
2862: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2889: p_item_key => l_item_key,
2890: p_activity_name => G_CUST_ACTION ) THEN
2891:
2892: -- bug 5845505, send email only if template for the document type is setup
2893: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2894: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2895: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
2896: ' Contract ID ='||p_contract_id||
2897: ' Document Type ='||G_REPORT_TYPE_CANCEL||')');
2890: p_activity_name => G_CUST_ACTION ) THEN
2891:
2892: -- bug 5845505, send email only if template for the document type is setup
2893: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2894: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2895: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
2896: ' Contract ID ='||p_contract_id||
2897: ' Document Type ='||G_REPORT_TYPE_CANCEL||')');
2898: END IF;
2907: x_msg_data => x_msg_data,
2908: x_msg_count => x_msg_count
2909: );
2910:
2911: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2912: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2913: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2914: x_return_status||' x_msg_count ='||x_msg_count||')');
2915: END IF;
2908: x_msg_count => x_msg_count
2909: );
2910:
2911: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2912: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2913: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2914: x_return_status||' x_msg_count ='||x_msg_count||')');
2915: END IF;
2916: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2929:
2930: l_reason := get_lookup_meaning(p_reason_code,G_LKUP_TYPE_CNCL_REASON);
2931:
2932: --log interaction (media type WEB FORM) that customer has declined the quote
2933: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2934: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2935: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2936: ' Contract ID = '||p_contract_id||
2937: substr(' IH Message = '||p_comments,1,100)||
2930: l_reason := get_lookup_meaning(p_reason_code,G_LKUP_TYPE_CNCL_REASON);
2931:
2932: --log interaction (media type WEB FORM) that customer has declined the quote
2933: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2934: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2935: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2936: ' Contract ID = '||p_contract_id||
2937: substr(' IH Message = '||p_comments,1,100)||
2938: substr(' IH Subject = '||l_reason||')',1,100));
2948: p_msg_body => p_comments,
2949: p_sent2_email => NULL,
2950: p_media_type => G_MEDIA_TYPE_WEB_FORM
2951: );
2952: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2953: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2954: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2955: x_return_status||' x_msg_count ='||x_msg_count||')');
2956: END IF;
2949: p_sent2_email => NULL,
2950: p_media_type => G_MEDIA_TYPE_WEB_FORM
2951: );
2952: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2953: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2954: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2955: x_return_status||' x_msg_count ='||x_msg_count||')');
2956: END IF;
2957: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2966: l_email_attr_rec.EMAIL_TYPE := G_REPORT_TYPE_CANCEL;
2967: l_email_attr_rec.TO_EMAIL := NULL;
2968: l_email_attr_rec.SENDER_EMAIL := NULL;
2969:
2970: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2971: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2972: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2973: ' Contract ID ='||p_contract_id||
2974: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
2967: l_email_attr_rec.TO_EMAIL := NULL;
2968: l_email_attr_rec.SENDER_EMAIL := NULL;
2969:
2970: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2971: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2972: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
2973: ' Contract ID ='||p_contract_id||
2974: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
2975: END IF;
2981: x_return_status => x_return_status,
2982: x_msg_data => x_msg_data,
2983: x_msg_count => x_msg_count
2984: );
2985: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2986: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2987: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2988: x_return_status||' x_msg_count ='||x_msg_count||')');
2989: END IF;
2982: x_msg_data => x_msg_data,
2983: x_msg_count => x_msg_count
2984: );
2985: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2986: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2987: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2988: x_return_status||' x_msg_count ='||x_msg_count||')');
2989: END IF;
2990: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3018: CLOSE get_cc_email;
3019:
3020: ELSE
3021:
3022: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3023: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3024: 'OKS_WF_K_PROCESS_PVT.set_email_attributes attribute CC_EMAIL is not defined for this workflow item key '||
3025: l_item_key||')');
3026: END IF;
3019:
3020: ELSE
3021:
3022: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3023: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3024: 'OKS_WF_K_PROCESS_PVT.set_email_attributes attribute CC_EMAIL is not defined for this workflow item key '||
3025: l_item_key||')');
3026: END IF;
3027:
3040: l_notif_attr_rec.SUBJECT := l_reason;
3041: l_notif_attr_rec.MESSAGE1 := p_comments;
3042: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
3043:
3044: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3045: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3046: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
3047: ' Contract ID ='||p_contract_id||
3048: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
3041: l_notif_attr_rec.MESSAGE1 := p_comments;
3042: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
3043:
3044: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3045: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3046: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
3047: ' Contract ID ='||p_contract_id||
3048: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
3049: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
3056: x_return_status => x_return_status,
3057: x_msg_data => x_msg_data,
3058: x_msg_count => x_msg_count
3059: );
3060: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3061: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3062: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3063: x_return_status||' x_msg_count ='||x_msg_count||')');
3064: END IF;
3057: x_msg_data => x_msg_data,
3058: x_msg_count => x_msg_count
3059: );
3060: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3061: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3062: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3063: x_return_status||' x_msg_count ='||x_msg_count||')');
3064: END IF;
3065: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3078: OPEN l_new_sts_code_csr;
3079: FETCH l_new_sts_code_csr INTO l_new_sts;
3080: CLOSE l_new_sts_code_csr;
3081:
3082: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3083: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3084: 'OKS_CHANGE_STATUS_PVT.UPDATE_HEADER_STATUS(p_id= '||p_contract_id||
3085: ' p_old_sts_code ='||l_old_sts||' p_comments ='||substr(p_comments,1,250)||
3086: ' p_canc_reason_code ='||p_reason_code||')');
3079: FETCH l_new_sts_code_csr INTO l_new_sts;
3080: CLOSE l_new_sts_code_csr;
3081:
3082: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3083: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3084: 'OKS_CHANGE_STATUS_PVT.UPDATE_HEADER_STATUS(p_id= '||p_contract_id||
3085: ' p_old_sts_code ='||l_old_sts||' p_comments ='||substr(p_comments,1,250)||
3086: ' p_canc_reason_code ='||p_reason_code||')');
3087: END IF;
3097: p_comments => p_comments,
3098: p_term_cancel_source => G_PERFORMED_BY_CUST,
3099: p_date_cancelled => SYSDATE,
3100: p_validate_status => 'N') ;
3101: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3102: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3103: 'OKS_CHANGE_STATUS_PVT.UPDATE_HEADER_STATUS(x_return_status= '||x_return_status||
3104: ' x_msg_count ='||x_msg_count||')');
3105: END IF;
3098: p_term_cancel_source => G_PERFORMED_BY_CUST,
3099: p_date_cancelled => SYSDATE,
3100: p_validate_status => 'N') ;
3101: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3102: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3103: 'OKS_CHANGE_STATUS_PVT.UPDATE_HEADER_STATUS(x_return_status= '||x_return_status||
3104: ' x_msg_count ='||x_msg_count||')');
3105: END IF;
3106: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3129: -- Standard call to get message count and if count is 1, get message info.
3130: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3131:
3132: -- end debug log
3133: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3135: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3136: END IF;
3137:
3130: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3131:
3132: -- end debug log
3133: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3135: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3136: END IF;
3137:
3138: EXCEPTION
3138: EXCEPTION
3139: WHEN FND_API.G_EXC_ERROR THEN
3140: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3144: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3146: END IF;
3139: WHEN FND_API.G_EXC_ERROR THEN
3140: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3144: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3146: END IF;
3147: x_return_status := G_RET_STS_ERROR;
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3144: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3146: END IF;
3147: x_return_status := G_RET_STS_ERROR;
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3147: x_return_status := G_RET_STS_ERROR;
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3153: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3154: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3155: END IF;
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3153: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3154: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3155: END IF;
3156: x_return_status := G_RET_STS_UNEXP_ERROR ;
3150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3153: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3154: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3155: END IF;
3156: x_return_status := G_RET_STS_UNEXP_ERROR ;
3157: WHEN OTHERS THEN
3158: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3155: END IF;
3156: x_return_status := G_RET_STS_UNEXP_ERROR ;
3157: WHEN OTHERS THEN
3158: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3159: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3160: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3161: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3162: ||SQLCODE||', sqlerrm = '||SQLERRM);
3163: END IF;
3156: x_return_status := G_RET_STS_UNEXP_ERROR ;
3157: WHEN OTHERS THEN
3158: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3159: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3160: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3161: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3162: ||SQLCODE||', sqlerrm = '||SQLERRM);
3163: END IF;
3164: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3206:
3207:
3208: BEGIN
3209: -- start debug log
3210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3212: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
3213: '(p_contract_id=>'||p_contract_id||
3214: ',p_item_key=>'||p_item_key||
3207:
3208: BEGIN
3209: -- start debug log
3210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3212: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
3213: '(p_contract_id=>'||p_contract_id||
3214: ',p_item_key=>'||p_item_key||
3215: ',p_to_email=>'||p_to_email||')');
3212: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
3213: '(p_contract_id=>'||p_contract_id||
3214: ',p_item_key=>'||p_item_key||
3215: ',p_to_email=>'||p_to_email||')');
3216: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3217: 'p_cc_email=>'||p_cc_email||
3218: ',p_subject=>'||p_subject||
3219: ',p_message=>'||p_message||')');
3220: END IF;
3252: -- Ignore the p_to_email value and get the salesrep email and FND username again
3253: -- Due to big impact of changing the signature we r taking this route
3254: -- This changes are done due to the requirement to send notification to Salesrep
3255: -- and an email to cc'ed guys
3256: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3257: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3258: 'OKS_CUSTOMER_ACCEPTANCE_PVT.get_contract_salesrep_details('||
3259: ' Contract ID ='||p_contract_id||')');
3260: END IF;
3253: -- Due to big impact of changing the signature we r taking this route
3254: -- This changes are done due to the requirement to send notification to Salesrep
3255: -- and an email to cc'ed guys
3256: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3257: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3258: 'OKS_CUSTOMER_ACCEPTANCE_PVT.get_contract_salesrep_details('||
3259: ' Contract ID ='||p_contract_id||')');
3260: END IF;
3261: OKS_CUSTOMER_ACCEPTANCE_PVT.get_contract_salesrep_details
3266: x_return_status => x_return_status,
3267: x_msg_data => x_msg_data,
3268: x_msg_count => x_msg_count
3269: );
3270: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3271: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3272: 'OKS_CUSTOMER_ACCEPTANCE_PVT.get_contract_salesrep_details(x_salesrep_email= '||
3273: l_salesrep_email||' x_salesrep_username= '||l_salesrep_username||
3274: 'x_return_status= '||x_return_status||' x_msg_count ='||x_msg_count||')');
3267: x_msg_data => x_msg_data,
3268: x_msg_count => x_msg_count
3269: );
3270: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3271: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3272: 'OKS_CUSTOMER_ACCEPTANCE_PVT.get_contract_salesrep_details(x_salesrep_email= '||
3273: l_salesrep_email||' x_salesrep_username= '||l_salesrep_username||
3274: 'x_return_status= '||x_return_status||' x_msg_count ='||x_msg_count||')');
3275: END IF;
3290: LOOP
3291: i := INSTR(tmp_email_list,',');
3292:
3293: -- debug log
3294: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3296: G_MODULE||l_api_name,'i : '||i);
3297: END IF;
3298:
3291: i := INSTR(tmp_email_list,',');
3292:
3293: -- debug log
3294: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3296: G_MODULE||l_api_name,'i : '||i);
3297: END IF;
3298:
3299: IF i > 0 THEN
3301:
3302: l_user_tbl(j) := SUBSTR(tmp_email_list,1,i-1);
3303:
3304: -- debug log
3305: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3307: G_MODULE||l_api_name,'j :'||j);
3308: END IF;
3309:
3302: l_user_tbl(j) := SUBSTR(tmp_email_list,1,i-1);
3303:
3304: -- debug log
3305: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3306: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3307: G_MODULE||l_api_name,'j :'||j);
3308: END IF;
3309:
3310: tmp_email_list := SUBSTR(tmp_email_list,i+1, length(tmp_email_list) - i);
3309:
3310: tmp_email_list := SUBSTR(tmp_email_list,i+1, length(tmp_email_list) - i);
3311:
3312: -- debug log
3313: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3314: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3315: 'tmp_email_list : '||tmp_email_list);
3316: END IF;
3317:
3310: tmp_email_list := SUBSTR(tmp_email_list,i+1, length(tmp_email_list) - i);
3311:
3312: -- debug log
3313: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3314: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3315: 'tmp_email_list : '||tmp_email_list);
3316: END IF;
3317:
3318: j := j + 1;
3324:
3325: END LOOP;
3326:
3327: -- debug log
3328: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3329: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3330: 'After Converting email list to pl/sql');
3331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3332: 'Count of Emails is : '||l_user_tbl.COUNT);
3325: END LOOP;
3326:
3327: -- debug log
3328: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3329: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3330: 'After Converting email list to pl/sql');
3331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3332: 'Count of Emails is : '||l_user_tbl.COUNT);
3333: END IF;
3327: -- debug log
3328: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3329: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3330: 'After Converting email list to pl/sql');
3331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3332: 'Count of Emails is : '||l_user_tbl.COUNT);
3333: END IF;
3334:
3335:
3338: LOOP
3339:
3340: x_user_name := '';
3341:
3342: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3343: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3344: 'Wf_Directory.CreateAdHocUser(email_address ='||l_user_tbl(k)||')');
3345: END IF;
3346:
3339:
3340: x_user_name := '';
3341:
3342: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3343: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3344: 'Wf_Directory.CreateAdHocUser(email_address ='||l_user_tbl(k)||')');
3345: END IF;
3346:
3347: BEGIN
3366: RAISE FND_API.G_EXC_ERROR;
3367: END;
3368:
3369:
3370: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3371: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3372: 'Wf_Directory.CreateAdHocUser SUCCESS created user : '||x_user_name);
3373: END IF;
3374:
3367: END;
3368:
3369:
3370: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3371: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3372: 'Wf_Directory.CreateAdHocUser SUCCESS created user : '||x_user_name);
3373: END IF;
3374:
3375: -- build concatinated list of user name for adhoc role
3377:
3378: END LOOP;
3379:
3380:
3381: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3382: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3383: 'Wf_Directory.CreateAdHocRole(email_address ='||p_cc_email||')');
3384: END IF;
3385:
3378: END LOOP;
3379:
3380:
3381: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3382: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3383: 'Wf_Directory.CreateAdHocRole(email_address ='||p_cc_email||')');
3384: END IF;
3385:
3386: -- call wf api to create the adhoc role
3411: FND_MSG_PUB.add;
3412: RAISE FND_API.G_EXC_ERROR;
3413: END;
3414:
3415: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3416: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3417: 'Wf_Directory.CreateAdHocRole - Success');
3418: END IF;
3419: END IF;
3412: RAISE FND_API.G_EXC_ERROR;
3413: END;
3414:
3415: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3416: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3417: 'Wf_Directory.CreateAdHocRole - Success');
3418: END IF;
3419: END IF;
3420:
3427: l_notif_attr_rec.SUBJECT := p_subject;
3428: l_notif_attr_rec.MESSAGE1 := p_message;
3429: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
3430:
3431: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3432: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3433: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
3434: ' Contract ID ='||p_contract_id||
3435: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
3428: l_notif_attr_rec.MESSAGE1 := p_message;
3429: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
3430:
3431: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3432: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3433: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
3434: ' Contract ID ='||p_contract_id||
3435: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
3436: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
3443: x_return_status => x_return_status,
3444: x_msg_data => x_msg_data,
3445: x_msg_count => x_msg_count
3446: );
3447: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3448: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3449: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3450: x_return_status||' x_msg_count ='||x_msg_count||')');
3451: END IF;
3444: x_msg_data => x_msg_data,
3445: x_msg_count => x_msg_count
3446: );
3447: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3448: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3449: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3450: x_return_status||' x_msg_count ='||x_msg_count||')');
3451: END IF;
3452:
3471: ELSE
3472: l_role_email := l_salesrep_email||','||p_cc_email;
3473: END IF;
3474:
3475: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3476: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3477: 'OKS_AUTO_REMINDER.log_interaction(p_contract_id= '
3478: ||p_contract_id||' p_subject='||l_interaction_subject||
3479: ' p_msg_body='||l_interaction_message||
3472: l_role_email := l_salesrep_email||','||p_cc_email;
3473: END IF;
3474:
3475: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3476: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3477: 'OKS_AUTO_REMINDER.log_interaction(p_contract_id= '
3478: ||p_contract_id||' p_subject='||l_interaction_subject||
3479: ' p_msg_body='||l_interaction_message||
3480: ' p_sent2_email='||l_role_email||')');
3490: p_subject => l_interaction_subject,
3491: p_msg_body => l_interaction_message,
3492: p_sent2_email => l_role_email
3493: );
3494: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3495: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3496: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||x_return_status||
3497: ' x_msg_count ='||x_msg_count||')');
3498: END IF;
3491: p_msg_body => l_interaction_message,
3492: p_sent2_email => l_role_email
3493: );
3494: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3495: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3496: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||x_return_status||
3497: ' x_msg_count ='||x_msg_count||')');
3498: END IF;
3499: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3538: -- Standard call to get message count and if count is 1, get message info.
3539: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3540:
3541: -- end debug log
3542: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3543: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3544: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3545: END IF;
3546:
3539: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3540:
3541: -- end debug log
3542: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3543: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3544: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3545: END IF;
3546:
3547: EXCEPTION
3547: EXCEPTION
3548: WHEN FND_API.G_EXC_ERROR THEN
3549: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3550: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3551: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3552: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3553: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3554: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3555: END IF;
3548: WHEN FND_API.G_EXC_ERROR THEN
3549: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3550: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3551: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3552: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3553: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3554: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3555: END IF;
3556: x_return_status := G_RET_STS_ERROR;
3550: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3551: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3552: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3553: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3554: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3555: END IF;
3556: x_return_status := G_RET_STS_ERROR;
3557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3558: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3556: x_return_status := G_RET_STS_ERROR;
3557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3558: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3559: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3562: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3564: END IF;
3557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3558: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3559: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3562: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3564: END IF;
3565: x_return_status := G_RET_STS_UNEXP_ERROR ;
3559: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3562: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3564: END IF;
3565: x_return_status := G_RET_STS_UNEXP_ERROR ;
3566: WHEN OTHERS THEN
3567: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3564: END IF;
3565: x_return_status := G_RET_STS_UNEXP_ERROR ;
3566: WHEN OTHERS THEN
3567: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3568: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3570: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3571: ||SQLCODE||', sqlerrm = '||SQLERRM);
3572: END IF;
3565: x_return_status := G_RET_STS_UNEXP_ERROR ;
3566: WHEN OTHERS THEN
3567: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3568: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3570: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3571: ||SQLCODE||', sqlerrm = '||SQLERRM);
3572: END IF;
3573: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3614: l_api_name CONSTANT VARCHAR2(30) := 'update_negotiation_status';
3615:
3616: BEGIN
3617:
3618: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3619: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3620: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
3621: '(p_chr_id=>'||p_chr_id||'p_negotiation_status=>'||p_negotiation_status||')');
3622: END IF;
3615:
3616: BEGIN
3617:
3618: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3619: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3620: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
3621: '(p_chr_id=>'||p_chr_id||'p_negotiation_status=>'||p_negotiation_status||')');
3622: END IF;
3623:
3634: -- Initialize API return status to success
3635: x_return_status := FND_API.G_RET_STS_SUCCESS;
3636:
3637: IF p_negotiation_status IS NOT NULL THEN
3638: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3639: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3640: 'Updating Contract: '||G_PKG_NAME ||'.'||l_api_name);
3641: END IF;
3642: UPDATE oks_k_headers_b
3635: x_return_status := FND_API.G_RET_STS_SUCCESS;
3636:
3637: IF p_negotiation_status IS NOT NULL THEN
3638: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3639: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3640: 'Updating Contract: '||G_PKG_NAME ||'.'||l_api_name);
3641: END IF;
3642: UPDATE oks_k_headers_b
3643: SET renewal_status = p_negotiation_status,
3667:
3668: -- Standard call to get message count and if count is 1, get message info.
3669: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
3670:
3671: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3673: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3674: END IF;
3675:
3668: -- Standard call to get message count and if count is 1, get message info.
3669: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
3670:
3671: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3673: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3674: END IF;
3675:
3676: EXCEPTION
3676: EXCEPTION
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3679: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3682: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3683: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3684: END IF;
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3679: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3682: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3683: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3684: END IF;
3685: x_return_status := G_RET_STS_ERROR;
3679: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3682: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3683: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3684: END IF;
3685: x_return_status := G_RET_STS_ERROR;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3685: x_return_status := G_RET_STS_ERROR;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3688: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3691: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3692: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3693: END IF;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3688: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3691: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3692: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3693: END IF;
3694: x_return_status := G_RET_STS_UNEXP_ERROR ;
3688: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3691: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
3692: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3693: END IF;
3694: x_return_status := G_RET_STS_UNEXP_ERROR ;
3695: WHEN OTHERS THEN
3696: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3693: END IF;
3694: x_return_status := G_RET_STS_UNEXP_ERROR ;
3695: WHEN OTHERS THEN
3696: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3697: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3699: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3700: ||SQLCODE||', sqlerrm = '||SQLERRM);
3701: END IF;
3694: x_return_status := G_RET_STS_UNEXP_ERROR ;
3695: WHEN OTHERS THEN
3696: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3697: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
3699: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
3700: ||SQLCODE||', sqlerrm = '||SQLERRM);
3701: END IF;
3702: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
3747: l_email_attr_rec OKS_WF_K_PROCESS_PVT.email_attr_rec;
3748:
3749: BEGIN
3750:
3751: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3752: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3753: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3754: END IF;
3755: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3748:
3749: BEGIN
3750:
3751: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3752: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3753: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3754: END IF;
3755: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3756: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3751: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3752: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3753: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3754: END IF;
3755: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3756: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3757: 'itemtype: ' || itemtype ||
3758: ' itemkey: ' || itemkey ||
3759: ' actid: ' || to_char(actid) ||
3752: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3753: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3754: END IF;
3755: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3756: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3757: 'itemtype: ' || itemtype ||
3758: ' itemkey: ' || itemkey ||
3759: ' actid: ' || to_char(actid) ||
3760: ' funcmode: ' || funcmode);
3781: l_notif_attr_rec.NTF_SUBJECT := NULL;
3782: l_notif_attr_rec.SUBJECT := NULL;
3783: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
3784:
3785: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3786: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3787: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
3788: ' Contract ID ='||l_contract_id||
3789: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||')');
3782: l_notif_attr_rec.SUBJECT := NULL;
3783: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
3784:
3785: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3786: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3787: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
3788: ' Contract ID ='||l_contract_id||
3789: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||')');
3790: END IF;
3796: x_return_status => l_return_status,
3797: x_msg_data => l_msg_data,
3798: x_msg_count => l_msg_count
3799: );
3800: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3801: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3802: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3803: l_return_status||' x_msg_count ='||l_msg_count||')');
3804: END IF;
3797: x_msg_data => l_msg_data,
3798: x_msg_count => l_msg_count
3799: );
3800: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3801: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3802: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3803: l_return_status||' x_msg_count ='||l_msg_count||')');
3804: END IF;
3805: IF l_return_status <> G_RET_STS_SUCCESS THEN
3810: -- confirmation message only in activation flow
3811: IF l_notif_type = G_NTF_TYPE_ACTIVE THEN
3812:
3813: -- bug 5845505, send email only if template for the document type is setup
3814: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3815: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3816: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
3817: ' Contract ID ='||l_contract_id||
3818: ' Document Type ='||G_REPORT_TYPE_ACTIVE||')');
3811: IF l_notif_type = G_NTF_TYPE_ACTIVE THEN
3812:
3813: -- bug 5845505, send email only if template for the document type is setup
3814: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3815: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
3816: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
3817: ' Contract ID ='||l_contract_id||
3818: ' Document Type ='||G_REPORT_TYPE_ACTIVE||')');
3819: END IF;
3827: x_return_status => l_return_status,
3828: x_msg_data => l_msg_data,
3829: x_msg_count => l_msg_count
3830: );
3831: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3832: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3833: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
3834: l_return_status||' x_msg_count ='||l_msg_count||')');
3835: END IF;
3828: x_msg_data => l_msg_data,
3829: x_msg_count => l_msg_count
3830: );
3831: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3832: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3833: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
3834: l_return_status||' x_msg_count ='||l_msg_count||')');
3835: END IF;
3836: IF l_return_status <> G_RET_STS_SUCCESS THEN
3845: avalue => l_send_email_yn
3846: );
3847: END IF;
3848:
3849: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3850: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3851: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
3852: END IF;
3853: RETURN;
3846: );
3847: END IF;
3848:
3849: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3850: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3851: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
3852: END IF;
3853: RETURN;
3854: END IF; -- (funcmode = 'RUN')
3854: END IF; -- (funcmode = 'RUN')
3855:
3856: IF (funcmode = 'CANCEL') THEN
3857: resultout := 'COMPLETE:';
3858: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3859: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3860: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
3861: END IF;
3862: RETURN;
3855:
3856: IF (funcmode = 'CANCEL') THEN
3857: resultout := 'COMPLETE:';
3858: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3859: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3860: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
3861: END IF;
3862: RETURN;
3863: END IF; -- (funcmode = 'CANCEL')
3863: END IF; -- (funcmode = 'CANCEL')
3864:
3865: IF (funcmode = 'TIMEOUT') THEN
3866: resultout := 'COMPLETE:';
3867: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3868: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3869: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
3870: END IF;
3871: RETURN;
3864:
3865: IF (funcmode = 'TIMEOUT') THEN
3866: resultout := 'COMPLETE:';
3867: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3868: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3869: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
3870: END IF;
3871: RETURN;
3872: END IF; -- (funcmode = 'TIMEOUT')
3873:
3874: EXCEPTION
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: l_msg_data := get_fnd_message;
3877: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3878: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3879: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3880: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
3881: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
3874: EXCEPTION
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: l_msg_data := get_fnd_message;
3877: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3878: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3879: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3880: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
3881: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
3882: END IF;
3877: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3878: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3879: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3880: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
3881: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
3882: END IF;
3883: wf_core.CONTEXT
3884: (
3885: pkg_name => G_PKG_NAME,
3888: arg2 => itemkey,
3889: arg3 => l_msg_data
3890: );
3891: WHEN others THEN
3892: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3893: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3894: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
3895: ||SQLCODE||', sqlerrm = '||SQLERRM);
3896: END IF;
3889: arg3 => l_msg_data
3890: );
3891: WHEN others THEN
3892: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3893: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3894: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
3895: ||SQLCODE||', sqlerrm = '||SQLERRM);
3896: END IF;
3897: wf_core.CONTEXT
3988: l_notif_attr_rec OKS_WF_K_PROCESS_PVT.notif_attr_rec;
3989:
3990: BEGIN
3991:
3992: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3993: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3994: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3995: END IF;
3996: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3989:
3990: BEGIN
3991:
3992: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3993: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3994: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3995: END IF;
3996: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3997: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3992: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3993: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3994: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3995: END IF;
3996: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3997: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3998: 'p_contract_id: ' || p_contract_id ||
3999: ' p_performer: ' || p_performer ||
4000: ' p_notif_type: ' || p_notif_type ||
3993: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
3994: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
3995: END IF;
3996: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3997: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3998: 'p_contract_id: ' || p_contract_id ||
3999: ' p_performer: ' || p_performer ||
4000: ' p_notif_type: ' || p_notif_type ||
4001: ' p_notif_subject: ' || p_notif_subject);
4026: l_notif_attr_rec.MESSAGE9 := p_message9;
4027: l_notif_attr_rec.MESSAGE10 := p_message10;
4028: l_notif_attr_rec.MSGS_FROM_STACK_YN := p_msgs_from_stack_yn;
4029:
4030: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4031: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
4032: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
4033: ' Contract ID ='||l_notif_attr_rec.CONTRACT_ID||
4034: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||')');
4027: l_notif_attr_rec.MESSAGE10 := p_message10;
4028: l_notif_attr_rec.MSGS_FROM_STACK_YN := p_msgs_from_stack_yn;
4029:
4030: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4031: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
4032: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
4033: ' Contract ID ='||l_notif_attr_rec.CONTRACT_ID||
4034: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||')');
4035: END IF;
4041: x_return_status => x_return_status,
4042: x_msg_data => x_msg_data,
4043: x_msg_count => x_msg_count
4044: );
4045: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4046: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
4047: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
4048: x_return_status||' x_msg_count ='||x_msg_count||')');
4049: END IF;
4042: x_msg_data => x_msg_data,
4043: x_msg_count => x_msg_count
4044: );
4045: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4046: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
4047: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
4048: x_return_status||' x_msg_count ='||x_msg_count||')');
4049: END IF;
4050: IF x_return_status <> G_RET_STS_SUCCESS THEN
4049: END IF;
4050: IF x_return_status <> G_RET_STS_SUCCESS THEN
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4054: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4055: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4056: END IF;
4057:
4050: IF x_return_status <> G_RET_STS_SUCCESS THEN
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4054: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4055: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4056: END IF;
4057:
4058: EXCEPTION
4058: EXCEPTION
4059: WHEN FND_API.G_EXC_ERROR THEN
4060: x_return_status := G_RET_STS_ERROR;
4061: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4062: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4063: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4064: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
4065: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
4066: END IF;
4059: WHEN FND_API.G_EXC_ERROR THEN
4060: x_return_status := G_RET_STS_ERROR;
4061: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4062: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4063: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4064: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
4065: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
4066: END IF;
4067: WHEN OTHERS THEN
4061: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4062: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4063: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4064: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
4065: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
4066: END IF;
4067: WHEN OTHERS THEN
4068: x_return_status := G_RET_STS_UNEXP_ERROR;
4069: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4065: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
4066: END IF;
4067: WHEN OTHERS THEN
4068: x_return_status := G_RET_STS_UNEXP_ERROR;
4069: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4070: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4071: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
4072: ||SQLCODE||', sqlerrm = '||SQLERRM);
4073: END IF;
4066: END IF;
4067: WHEN OTHERS THEN
4068: x_return_status := G_RET_STS_UNEXP_ERROR;
4069: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4070: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4071: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
4072: ||SQLCODE||', sqlerrm = '||SQLERRM);
4073: END IF;
4074: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4115: l_email_attr_rec OKS_WF_K_PROCESS_PVT.email_attr_rec;
4116:
4117: BEGIN
4118:
4119: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4121: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
4122: END IF;
4123: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4116:
4117: BEGIN
4118:
4119: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4121: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
4122: END IF;
4123: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4124: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4119: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4121: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
4122: END IF;
4123: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4124: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4125: 'itemtype: ' || itemtype ||
4126: ' itemkey: ' || itemkey ||
4127: ' actid: ' || to_char(actid) ||
4120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4121: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
4122: END IF;
4123: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4124: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4125: 'itemtype: ' || itemtype ||
4126: ' itemkey: ' || itemkey ||
4127: ' actid: ' || to_char(actid) ||
4128: ' funcmode: ' || funcmode);
4150: l_email_attr_rec.EMAIL_SUBJECT := NULL;
4151: l_email_attr_rec.IH_SUBJECT := NULL;
4152: l_email_attr_rec.IH_MESSAGE := NULL;
4153:
4154: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4155: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
4156: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
4157: ' Contract ID ='||l_email_attr_rec.CONTRACT_ID||
4158: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
4151: l_email_attr_rec.IH_SUBJECT := NULL;
4152: l_email_attr_rec.IH_MESSAGE := NULL;
4153:
4154: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4155: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
4156: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
4157: ' Contract ID ='||l_email_attr_rec.CONTRACT_ID||
4158: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
4159: END IF;
4165: x_return_status => l_return_status,
4166: x_msg_data => l_msg_data,
4167: x_msg_count => l_msg_count
4168: );
4169: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4170: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
4171: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
4172: l_return_status||' x_msg_count ='||l_msg_count||')');
4173: END IF;
4166: x_msg_data => l_msg_data,
4167: x_msg_count => l_msg_count
4168: );
4169: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4170: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
4171: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
4172: l_return_status||' x_msg_count ='||l_msg_count||')');
4173: END IF;
4174: IF l_return_status <> G_RET_STS_SUCCESS THEN
4173: END IF;
4174: IF l_return_status <> G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4178: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4179: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
4180: END IF;
4181: RETURN;
4174: IF l_return_status <> G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4178: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4179: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
4180: END IF;
4181: RETURN;
4182: END IF; -- (funcmode = 'RUN')
4182: END IF; -- (funcmode = 'RUN')
4183:
4184: IF (funcmode = 'CANCEL') THEN
4185: resultout := 'COMPLETE:';
4186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4187: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4188: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
4189: END IF;
4190: RETURN;
4183:
4184: IF (funcmode = 'CANCEL') THEN
4185: resultout := 'COMPLETE:';
4186: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4187: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4188: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
4189: END IF;
4190: RETURN;
4191: END IF; -- (funcmode = 'CANCEL')
4191: END IF; -- (funcmode = 'CANCEL')
4192:
4193: IF (funcmode = 'TIMEOUT') THEN
4194: resultout := 'COMPLETE:';
4195: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4196: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4197: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
4198: END IF;
4199: RETURN;
4192:
4193: IF (funcmode = 'TIMEOUT') THEN
4194: resultout := 'COMPLETE:';
4195: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4196: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4197: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
4198: END IF;
4199: RETURN;
4200: END IF; -- (funcmode = 'TIMEOUT')
4201:
4202: EXCEPTION
4203: WHEN FND_API.G_EXC_ERROR THEN
4204: l_msg_data := get_fnd_message;
4205: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4206: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4207: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4208: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
4209: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
4202: EXCEPTION
4203: WHEN FND_API.G_EXC_ERROR THEN
4204: l_msg_data := get_fnd_message;
4205: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4206: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4207: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4208: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
4209: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
4210: END IF;
4205: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4206: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4207: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4208: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
4209: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
4210: END IF;
4211: wf_core.CONTEXT
4212: (
4213: pkg_name => G_PKG_NAME,
4216: arg2 => itemkey,
4217: arg3 => l_msg_data
4218: );
4219: WHEN others THEN
4220: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4221: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4222: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
4223: ||SQLCODE||', sqlerrm = '||SQLERRM);
4224: END IF;
4217: arg3 => l_msg_data
4218: );
4219: WHEN others THEN
4220: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4221: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4222: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
4223: ||SQLCODE||', sqlerrm = '||SQLERRM);
4224: END IF;
4225: wf_core.CONTEXT
4274:
4275:
4276: begin
4277:
4278: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4279: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4280: 'Entered email_mute'||G_PKG_NAME ||'.'||l_api_name);
4281: END IF;
4282:
4275:
4276: begin
4277:
4278: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4279: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4280: 'Entered email_mute'||G_PKG_NAME ||'.'||l_api_name);
4281: END IF;
4282:
4283: if (funcmode = 'RUN') then
4310: itemkey => itemkey,
4311: aname => '.MAIL_QUERY',
4312: avalue => l_user_name);
4313: end if;
4314: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4315: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4316: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
4317: END IF;
4318:
4311: aname => '.MAIL_QUERY',
4312: avalue => l_user_name);
4313: end if;
4314: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4315: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4316: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
4317: END IF;
4318:
4319: end if;
4321: if (funcmode = 'CANCEL') then
4322: -- 31.01.2008 14:49
4323: resultout := 'COMPLETE:';
4324:
4325: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4326: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4327: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
4328: END IF;
4329:
4322: -- 31.01.2008 14:49
4323: resultout := 'COMPLETE:';
4324:
4325: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4326: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4327: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
4328: END IF;
4329:
4330: return;
4337: if (funcmode = 'TIMEOUT') then
4338: --
4339: resultout := 'COMPLETE:';
4340:
4341: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4342: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4343: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
4344: END IF;
4345:
4338: --
4339: resultout := 'COMPLETE:';
4340:
4341: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4342: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4343: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
4344: END IF;
4345:
4346: return;
4348: end if;
4349:
4350: exception
4351: when others then
4352: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4353: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4354: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
4355: ||SQLCODE||', sqlerrm = '||SQLERRM);
4356: END IF;
4349:
4350: exception
4351: when others then
4352: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4353: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4354: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
4355: ||SQLCODE||', sqlerrm = '||SQLERRM);
4356: END IF;
4357:
4427: l_user_key VARCHAR2(240);
4428: l_save_threshold NUMBER;
4429:
4430: BEGIN
4431: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4432: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4433: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4434: 'CONTRACT_ID=>'||p_wf_attributes.CONTRACT_ID||
4435: 'CONTRACT_NUMBER=>'||p_wf_attributes.CONTRACT_NUMBER||
4428: l_save_threshold NUMBER;
4429:
4430: BEGIN
4431: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4432: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4433: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4434: 'CONTRACT_ID=>'||p_wf_attributes.CONTRACT_ID||
4435: 'CONTRACT_NUMBER=>'||p_wf_attributes.CONTRACT_NUMBER||
4436: 'CONTRACT_MODIFIER=>'||p_wf_attributes.CONTRACT_MODIFIER);
4433: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4434: 'CONTRACT_ID=>'||p_wf_attributes.CONTRACT_ID||
4435: 'CONTRACT_NUMBER=>'||p_wf_attributes.CONTRACT_NUMBER||
4436: 'CONTRACT_MODIFIER=>'||p_wf_attributes.CONTRACT_MODIFIER);
4437: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
4438: 'PROCESS_TYPE=>'||p_wf_attributes.PROCESS_TYPE||
4439: 'IRR_FLAG=>'||p_wf_attributes.IRR_FLAG||
4440: 'NEGOTIATION_STATUS=>'||p_wf_attributes.NEGOTIATION_STATUS||
4441: 'ITEM_KEY=>'||p_wf_attributes.ITEM_KEY||')');
4480: l_user_key := l_user_key || ' ' || l_contract_modifier;
4481: END IF;
4482: END IF;
4483:
4484: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4485: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4486: 'Creating process with Item key: ' || l_item_key ||
4487: ' Contract Id: ' || p_wf_attributes.contract_id ||
4488: ' User Key: ' || l_user_key ||' Process Type: '|| p_wf_attributes.process_type);
4481: END IF;
4482: END IF;
4483:
4484: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4485: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4486: 'Creating process with Item key: ' || l_item_key ||
4487: ' Contract Id: ' || p_wf_attributes.contract_id ||
4488: ' User Key: ' || l_user_key ||' Process Type: '|| p_wf_attributes.process_type);
4489: END IF;
4493: -- proceed further and wait for salesrep's action
4494: -- Do not defer WF for New Contract or for NSR(Manual) renewal type of Contract
4495: --IF p_wf_attributes.negotiation_status = G_NEG_STS_PRE_DRAFT THEN
4496: IF p_wf_attributes.process_type IN (G_NEW_CONTRACT, G_RENEW_TYPE_MANUAL) THEN
4497: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4498: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4499: 'Process will be synchronous for Item key: ' || l_item_key ||
4500: ' Contract Id: ' || p_wf_attributes.contract_id ||
4501: ' User Key: ' || l_user_key );
4494: -- Do not defer WF for New Contract or for NSR(Manual) renewal type of Contract
4495: --IF p_wf_attributes.negotiation_status = G_NEG_STS_PRE_DRAFT THEN
4496: IF p_wf_attributes.process_type IN (G_NEW_CONTRACT, G_RENEW_TYPE_MANUAL) THEN
4497: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4498: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4499: 'Process will be synchronous for Item key: ' || l_item_key ||
4500: ' Contract Id: ' || p_wf_attributes.contract_id ||
4501: ' User Key: ' || l_user_key );
4502: END IF;
4502: END IF;
4503: ELSE
4504: l_save_threshold := WF_ENGINE.threshold;
4505: WF_ENGINE.threshold := -1;
4506: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4507: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4508: 'Process will be deferred for Item key: ' || l_item_key ||
4509: ' Contract Id: ' || p_wf_attributes.contract_id ||
4510: ' User Key: ' || l_user_key );
4503: ELSE
4504: l_save_threshold := WF_ENGINE.threshold;
4505: WF_ENGINE.threshold := -1;
4506: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4507: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4508: 'Process will be deferred for Item key: ' || l_item_key ||
4509: ' Contract Id: ' || p_wf_attributes.contract_id ||
4510: ' User Key: ' || l_user_key );
4511: END IF;
4607: aname => 'SECURITY_GROUP_ID',
4608: avalue => fnd_global.security_group_id
4609: );
4610:
4611: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4612: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4613: 'Starting the process after setting attributes ' ||
4614: ' Process Type: ' || NVL(p_wf_attributes.process_type,'NULL')||
4615: ' IRR Flag: ' || NVL(p_wf_attributes.irr_flag,'NULL'));
4608: avalue => fnd_global.security_group_id
4609: );
4610:
4611: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4612: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4613: 'Starting the process after setting attributes ' ||
4614: ' Process Type: ' || NVL(p_wf_attributes.process_type,'NULL')||
4615: ' IRR Flag: ' || NVL(p_wf_attributes.irr_flag,'NULL'));
4616: END IF;
4669: OPEN wf_cur(l_item_key);
4670: FETCH wf_cur INTO l_item_type;
4671: IF wf_cur%NOTFOUND THEN
4672: CLOSE wf_cur;
4673: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4674: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4675: 'Workflow process not created for the contract ' ||
4676: NVL(l_contract_number,'NULL')||
4677: ' Please check the workflow background engine');
4670: FETCH wf_cur INTO l_item_type;
4671: IF wf_cur%NOTFOUND THEN
4672: CLOSE wf_cur;
4673: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4674: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4675: 'Workflow process not created for the contract ' ||
4676: NVL(l_contract_number,'NULL')||
4677: ' Please check the workflow background engine');
4678: END IF;
4680: FND_MESSAGE.SET_TOKEN('CONTRACT_NUMBER',l_contract_number);
4681: FND_MSG_PUB.add;
4682: RAISE FND_API.G_EXC_ERROR;
4683: ELSE
4684: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4685: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4686: 'Workflow process created successfully for the contract ' ||
4687: NVL(l_contract_number,'NULL'));
4688: END IF;
4681: FND_MSG_PUB.add;
4682: RAISE FND_API.G_EXC_ERROR;
4683: ELSE
4684: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4685: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4686: 'Workflow process created successfully for the contract ' ||
4687: NVL(l_contract_number,'NULL'));
4688: END IF;
4689: IF wf_cur%ISOPEN THEN
4691: END IF;
4692: END IF;
4693: /*end bug8705707*/
4694:
4695: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4696: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4697: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4698: END IF;
4699:
4692: END IF;
4693: /*end bug8705707*/
4694:
4695: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4696: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4697: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4698: END IF;
4699:
4700: EXCEPTION
4700: EXCEPTION
4701: WHEN FND_API.G_EXC_ERROR THEN
4702: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4703: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4706: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4708: END IF;
4701: WHEN FND_API.G_EXC_ERROR THEN
4702: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4703: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4706: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4708: END IF;
4709: x_return_status := G_RET_STS_ERROR;
4703: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4706: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4708: END IF;
4709: x_return_status := G_RET_STS_ERROR;
4710: WHEN OTHERS THEN
4711: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4708: END IF;
4709: x_return_status := G_RET_STS_ERROR;
4710: WHEN OTHERS THEN
4711: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4714: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4715: ||SQLCODE||', sqlerrm = '||SQLERRM);
4716: END IF;
4709: x_return_status := G_RET_STS_ERROR;
4710: WHEN OTHERS THEN
4711: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4713: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4714: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4715: ||SQLCODE||', sqlerrm = '||SQLERRM);
4716: END IF;
4717: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4763: l_activity_name VARCHAR2(30);
4764:
4765: BEGIN
4766:
4767: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4768: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
4769: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4770: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4771: END IF;
4764:
4765: BEGIN
4766:
4767: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4768: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
4769: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4770: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4771: END IF;
4772:
4804: p_item_type => G_ITEM_TYPE,
4805: p_item_key => l_item_key,
4806: p_activity_name => G_CUST_ACTION ) THEN
4807:
4808: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4809: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
4810: 'OKS_WF_K_PROCESS_PVT.complete_activity('||
4811: ' p_contract_id ='||p_contract_id||')');
4812: END IF;
4805: p_item_key => l_item_key,
4806: p_activity_name => G_CUST_ACTION ) THEN
4807:
4808: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4809: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
4810: 'OKS_WF_K_PROCESS_PVT.complete_activity('||
4811: ' p_contract_id ='||p_contract_id||')');
4812: END IF;
4813: complete_activity
4822: x_return_status => x_return_status,
4823: x_msg_data => x_msg_data,
4824: x_msg_count => x_msg_count
4825: );
4826: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4827: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
4828: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||x_return_status||
4829: ' x_msg_count ='||x_msg_count||')');
4830: END IF;
4823: x_msg_data => x_msg_data,
4824: x_msg_count => x_msg_count
4825: );
4826: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4827: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
4828: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||x_return_status||
4829: ' x_msg_count ='||x_msg_count||')');
4830: END IF;
4831: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
4846:
4847: -- Standard call to get message count and if count is 1, get message info.
4848: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
4849:
4850: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4851: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4852: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4853: END IF;
4854:
4847: -- Standard call to get message count and if count is 1, get message info.
4848: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
4849:
4850: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4851: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4852: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4853: END IF;
4854:
4855: EXCEPTION
4855: EXCEPTION
4856: WHEN FND_API.G_EXC_ERROR THEN
4857: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4858: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4861: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4862: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4863: END IF;
4856: WHEN FND_API.G_EXC_ERROR THEN
4857: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4858: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4861: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4862: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4863: END IF;
4864: x_return_status := G_RET_STS_ERROR;
4858: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4861: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4862: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4863: END IF;
4864: x_return_status := G_RET_STS_ERROR;
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4866: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4864: x_return_status := G_RET_STS_ERROR;
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4866: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4867: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4870: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
4871: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4872: END IF;
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4866: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4867: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4870: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
4871: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4872: END IF;
4873: x_return_status := G_RET_STS_UNEXP_ERROR ;
4867: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4870: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
4871: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4872: END IF;
4873: x_return_status := G_RET_STS_UNEXP_ERROR ;
4874: WHEN OTHERS THEN
4875: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4872: END IF;
4873: x_return_status := G_RET_STS_UNEXP_ERROR ;
4874: WHEN OTHERS THEN
4875: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4876: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4877: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4878: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4879: ||SQLCODE||', sqlerrm = '||SQLERRM);
4880: END IF;
4873: x_return_status := G_RET_STS_UNEXP_ERROR ;
4874: WHEN OTHERS THEN
4875: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4876: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4877: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
4878: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
4879: ||SQLCODE||', sqlerrm = '||SQLERRM);
4880: END IF;
4881: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
4925: l_activity_name VARCHAR2(30);
4926: l_count NUMBER; -- Added for Bug#14150408
4927: BEGIN
4928:
4929: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4930: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
4931: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4932: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4933: END IF;
4926: l_count NUMBER; -- Added for Bug#14150408
4927: BEGIN
4928:
4929: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4930: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
4931: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
4932: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4933: END IF;
4934:
4961: ELSE
4962: l_item_key := p_item_key;
4963: END IF;
4964:
4965: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4966: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4967: 'Aborting workflow... ');
4968: END IF;
4969: -- Added for Bug#14150408
4962: l_item_key := p_item_key;
4963: END IF;
4964:
4965: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4966: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4967: 'Aborting workflow... ');
4968: END IF;
4969: -- Added for Bug#14150408
4970: SELECT count(1)
4990: itemkey => l_item_key,
4991: docommit => FALSE, -- Bug 4730775; We want to commit explicitly (below or in delete api)
4992: runtimeonly => TRUE
4993: );
4994: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4996: 'Purging workflow... ');
4997: END IF;
4998:
4991: docommit => FALSE, -- Bug 4730775; We want to commit explicitly (below or in delete api)
4992: runtimeonly => TRUE
4993: );
4994: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4996: 'Purging workflow... ');
4997: END IF;
4998:
4999: IF FND_API.to_boolean( p_commit ) THEN
5004:
5005: -- Standard call to get message count and if count is 1, get message info.
5006: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
5007:
5008: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5010: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5011: END IF;
5012:
5005: -- Standard call to get message count and if count is 1, get message info.
5006: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
5007:
5008: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5010: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5011: END IF;
5012:
5013: EXCEPTION
5013: EXCEPTION
5014: WHEN FND_API.G_EXC_ERROR THEN
5015: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5016: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5017: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5019: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
5020: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5021: END IF;
5014: WHEN FND_API.G_EXC_ERROR THEN
5015: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5016: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5017: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5019: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
5020: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5021: END IF;
5022: x_return_status := G_RET_STS_ERROR;
5016: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5017: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5019: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
5020: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5021: END IF;
5022: x_return_status := G_RET_STS_ERROR;
5023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5024: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5022: x_return_status := G_RET_STS_ERROR;
5023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5024: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5025: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5028: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
5029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5030: END IF;
5023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5024: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5025: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5028: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
5029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5030: END IF;
5031: x_return_status := G_RET_STS_UNEXP_ERROR ;
5025: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5028: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
5029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5030: END IF;
5031: x_return_status := G_RET_STS_UNEXP_ERROR ;
5032: WHEN OTHERS THEN
5033: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5030: END IF;
5031: x_return_status := G_RET_STS_UNEXP_ERROR ;
5032: WHEN OTHERS THEN
5033: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5034: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5035: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
5036: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
5037: ||SQLCODE||', sqlerrm = '||SQLERRM);
5038: END IF;
5031: x_return_status := G_RET_STS_UNEXP_ERROR ;
5032: WHEN OTHERS THEN
5033: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5034: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5035: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
5036: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
5037: ||SQLCODE||', sqlerrm = '||SQLERRM);
5038: END IF;
5039: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
5072: l_contract_id NUMBER;
5073:
5074: BEGIN
5075:
5076: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5078: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5079: END IF;
5080: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5073:
5074: BEGIN
5075:
5076: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5078: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5079: END IF;
5080: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5081: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5076: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5078: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5079: END IF;
5080: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5081: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5082: 'itemtype: ' || itemtype ||
5083: ' itemkey: ' || itemkey ||
5084: ' actid: ' || to_char(actid) ||
5077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5078: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5079: END IF;
5080: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5081: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5082: 'itemtype: ' || itemtype ||
5083: ' itemkey: ' || itemkey ||
5084: ' actid: ' || to_char(actid) ||
5085: ' funcmode: ' || funcmode);
5106: aname => 'CONTRACT_MODIFIER',
5107: avalue => l_kdetails_rec.contract_number_modifier
5108: );
5109: */
5110: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5111: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5112: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5113: END IF;
5114: resultout := 'COMPLETE:';
5107: avalue => l_kdetails_rec.contract_number_modifier
5108: );
5109: */
5110: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5111: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5112: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5113: END IF;
5114: resultout := 'COMPLETE:';
5115: RETURN;
5116: END IF; -- (funcmode = 'RUN')
5117:
5118: IF (funcmode = 'CANCEL') THEN
5119: resultout := 'COMPLETE:';
5120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5121: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5122: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5123: END IF;
5124: RETURN;
5117:
5118: IF (funcmode = 'CANCEL') THEN
5119: resultout := 'COMPLETE:';
5120: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5121: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5122: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5123: END IF;
5124: RETURN;
5125: END IF; -- (funcmode = 'CANCEL')
5125: END IF; -- (funcmode = 'CANCEL')
5126:
5127: IF (funcmode = 'TIMEOUT') THEN
5128: resultout := 'COMPLETE:';
5129: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5130: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5131: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5132: END IF;
5133: RETURN;
5126:
5127: IF (funcmode = 'TIMEOUT') THEN
5128: resultout := 'COMPLETE:';
5129: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5130: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5131: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5132: END IF;
5133: RETURN;
5134: END IF; -- (funcmode = 'TIMEOUT')
5134: END IF; -- (funcmode = 'TIMEOUT')
5135:
5136: EXCEPTION
5137: WHEN others THEN
5138: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5139: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5140: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5141: ||SQLCODE||', sqlerrm = '||SQLERRM);
5142: END IF;
5135:
5136: EXCEPTION
5137: WHEN others THEN
5138: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5139: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5140: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5141: ||SQLCODE||', sqlerrm = '||SQLERRM);
5142: END IF;
5143: wf_core.CONTEXT
5221: l_resp_appl_id NUMBER;
5222:
5223: BEGIN
5224:
5225: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5226: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5227: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5228: END IF;
5229: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5222:
5223: BEGIN
5224:
5225: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5226: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5227: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5228: END IF;
5229: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5230: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5225: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5226: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5227: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5228: END IF;
5229: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5230: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5231: 'itemtype: ' || itemtype ||
5232: ' itemkey: ' || itemkey ||
5233: ' actid: ' || to_char(actid) ||
5226: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5227: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5228: END IF;
5229: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5230: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5231: 'itemtype: ' || itemtype ||
5232: ' itemkey: ' || itemkey ||
5233: ' actid: ' || to_char(actid) ||
5234: ' funcmode: ' || funcmode);
5244: itemtype => itemtype,
5245: itemkey => itemkey,
5246: aname => 'NEGOTIATION_STATUS');
5247:
5248: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5249: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5250: 'Negotiation status: ' || l_negotiation_status);
5251: END IF;
5252:
5245: itemkey => itemkey,
5246: aname => 'NEGOTIATION_STATUS');
5247:
5248: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5249: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5250: 'Negotiation status: ' || l_negotiation_status);
5251: END IF;
5252:
5253: -- Check the negotiation status and route the workflow accordingly
5317: l_notif_attr_rec.NTF_SUBJECT := NULL;
5318: l_notif_attr_rec.SUBJECT := NULL;
5319: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
5320:
5321: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5322: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
5323: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
5324: ' Contract ID ='||l_contract_id||
5325: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
5318: l_notif_attr_rec.SUBJECT := NULL;
5319: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
5320:
5321: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5322: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
5323: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
5324: ' Contract ID ='||l_contract_id||
5325: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
5326: ' Performer ='||l_notif_attr_rec.PERFORMER||')');
5333: x_return_status => l_return_status,
5334: x_msg_data => l_msg_data,
5335: x_msg_count => l_msg_count
5336: );
5337: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5338: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
5339: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
5340: l_return_status||' x_msg_count ='||l_msg_count||')');
5341: END IF;
5334: x_msg_data => l_msg_data,
5335: x_msg_count => l_msg_count
5336: );
5337: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5338: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
5339: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
5340: l_return_status||' x_msg_count ='||l_msg_count||')');
5341: END IF;
5342: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
5346: END IF;
5347: resultout := 'COMPLETE:RENEWAL';
5348: END IF;
5349: END IF;
5350: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5351: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5352: 'Resultout: ' || resultout);
5353: END IF;
5354:
5347: resultout := 'COMPLETE:RENEWAL';
5348: END IF;
5349: END IF;
5350: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5351: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5352: 'Resultout: ' || resultout);
5353: END IF;
5354:
5355: -- Reset negotiation status to NULL so that no other process will
5361: aname => 'NEGOTIATION_STATUS',
5362: avalue => NULL
5363: );
5364:
5365: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5366: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5367: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5368: END IF;
5369: RETURN;
5362: avalue => NULL
5363: );
5364:
5365: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5366: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5367: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5368: END IF;
5369: RETURN;
5370: END IF; -- (funcmode = 'RUN')
5370: END IF; -- (funcmode = 'RUN')
5371:
5372: IF (funcmode = 'CANCEL') THEN
5373: resultout := 'COMPLETE:';
5374: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5375: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5376: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5377: END IF;
5378: RETURN;
5371:
5372: IF (funcmode = 'CANCEL') THEN
5373: resultout := 'COMPLETE:';
5374: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5375: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5376: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5377: END IF;
5378: RETURN;
5379: END IF; -- (funcmode = 'CANCEL')
5379: END IF; -- (funcmode = 'CANCEL')
5380:
5381: IF (funcmode = 'TIMEOUT') THEN
5382: resultout := 'COMPLETE:';
5383: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5384: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5385: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5386: END IF;
5387: RETURN;
5380:
5381: IF (funcmode = 'TIMEOUT') THEN
5382: resultout := 'COMPLETE:';
5383: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5384: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5385: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5386: END IF;
5387: RETURN;
5388: END IF; -- (funcmode = 'TIMEOUT')
5388: END IF; -- (funcmode = 'TIMEOUT')
5389:
5390: EXCEPTION
5391: WHEN others THEN
5392: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5393: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5394: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5395: ||SQLCODE||', sqlerrm = '||SQLERRM);
5396: END IF;
5389:
5390: EXCEPTION
5391: WHEN others THEN
5392: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5393: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5394: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5395: ||SQLCODE||', sqlerrm = '||SQLERRM);
5396: END IF;
5397: wf_core.CONTEXT
5444: l_process_type VARCHAR2(30);
5445:
5446: BEGIN
5447:
5448: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5450: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5451: END IF;
5452: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5445:
5446: BEGIN
5447:
5448: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5450: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5451: END IF;
5452: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5453: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5448: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5450: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5451: END IF;
5452: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5453: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5454: 'itemtype: ' || itemtype ||
5455: ' itemkey: ' || itemkey ||
5456: ' actid: ' || to_char(actid) ||
5449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5450: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5451: END IF;
5452: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5453: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5454: 'itemtype: ' || itemtype ||
5455: ' itemkey: ' || itemkey ||
5456: ' actid: ' || to_char(actid) ||
5457: ' funcmode: ' || funcmode);
5471: itemtype => itemtype,
5472: itemkey => itemkey,
5473: aname => 'PROCESS_TYPE');
5474:
5475: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5476: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5477: 'Process Type: ' ||NVL(l_process_type,'NULL'));
5478: END IF;
5479:
5472: itemkey => itemkey,
5473: aname => 'PROCESS_TYPE');
5474:
5475: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5476: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5477: 'Process Type: ' ||NVL(l_process_type,'NULL'));
5478: END IF;
5479:
5480: IF l_process_type = G_RENEW_TYPE_ONLINE THEN
5500: ELSE
5501: resultout := 'COMPLETE:';
5502: END IF;
5503:
5504: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5505: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5506: 'Resultout: ' || resultout);
5507: END IF;
5508: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5501: resultout := 'COMPLETE:';
5502: END IF;
5503:
5504: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5505: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5506: 'Resultout: ' || resultout);
5507: END IF;
5508: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5509: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5504: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5505: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5506: 'Resultout: ' || resultout);
5507: END IF;
5508: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5509: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5510: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5511: END IF;
5512: RETURN;
5505: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5506: 'Resultout: ' || resultout);
5507: END IF;
5508: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5509: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5510: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5511: END IF;
5512: RETURN;
5513: END IF; -- (funcmode = 'RUN')
5513: END IF; -- (funcmode = 'RUN')
5514:
5515: IF (funcmode = 'CANCEL') THEN
5516: resultout := 'COMPLETE:';
5517: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5518: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5519: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5520: END IF;
5521: RETURN;
5514:
5515: IF (funcmode = 'CANCEL') THEN
5516: resultout := 'COMPLETE:';
5517: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5518: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5519: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5520: END IF;
5521: RETURN;
5522: END IF; -- (funcmode = 'CANCEL')
5522: END IF; -- (funcmode = 'CANCEL')
5523:
5524: IF (funcmode = 'TIMEOUT') THEN
5525: resultout := 'COMPLETE:';
5526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5527: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5528: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5529: END IF;
5530: RETURN;
5523:
5524: IF (funcmode = 'TIMEOUT') THEN
5525: resultout := 'COMPLETE:';
5526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5527: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5528: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5529: END IF;
5530: RETURN;
5531: END IF; -- (funcmode = 'TIMEOUT')
5532:
5533: EXCEPTION
5534: WHEN FND_API.G_EXC_ERROR THEN
5535: l_msg_data := get_fnd_message;
5536: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5537: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5538: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5539: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
5540: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
5533: EXCEPTION
5534: WHEN FND_API.G_EXC_ERROR THEN
5535: l_msg_data := get_fnd_message;
5536: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5537: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5538: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5539: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
5540: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
5541: END IF;
5536: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5537: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5538: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5539: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
5540: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
5541: END IF;
5542: wf_core.CONTEXT
5543: (
5544: pkg_name => G_PKG_NAME,
5547: arg2 => itemkey,
5548: arg3 => l_msg_data
5549: );
5550: WHEN others THEN
5551: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5552: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5553: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5554: ||SQLCODE||', sqlerrm = '||SQLERRM);
5555: END IF;
5548: arg3 => l_msg_data
5549: );
5550: WHEN others THEN
5551: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5552: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5553: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5554: ||SQLCODE||', sqlerrm = '||SQLERRM);
5555: END IF;
5556: wf_core.CONTEXT
5610: l_invalid VARCHAR2(1);
5611:
5612: BEGIN
5613:
5614: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5616: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5617: END IF;
5618: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5611:
5612: BEGIN
5613:
5614: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5616: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5617: END IF;
5618: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5619: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5614: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5616: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5617: END IF;
5618: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5619: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5620: 'itemtype: ' || itemtype ||
5621: ' itemkey: ' || itemkey ||
5622: ' actid: ' || to_char(actid) ||
5615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5616: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5617: END IF;
5618: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5619: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5620: 'itemtype: ' || itemtype ||
5621: ' itemkey: ' || itemkey ||
5622: ' actid: ' || to_char(actid) ||
5623: ' funcmode: ' || funcmode);
5636: IF l_invalid = 'Y' THEN
5637: resultout := 'Y';
5638: END IF;
5639:
5640: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5641: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5642: 'Resultout: ' || resultout);
5643: END IF;
5644:
5637: resultout := 'Y';
5638: END IF;
5639:
5640: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5641: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5642: 'Resultout: ' || resultout);
5643: END IF;
5644:
5645: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5641: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5642: 'Resultout: ' || resultout);
5643: END IF;
5644:
5645: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5646: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5647: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5648: END IF;
5649: RETURN;
5642: 'Resultout: ' || resultout);
5643: END IF;
5644:
5645: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5646: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5647: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5648: END IF;
5649: RETURN;
5650: END IF; -- (funcmode = 'RUN')
5650: END IF; -- (funcmode = 'RUN')
5651:
5652: IF (funcmode = 'CANCEL') THEN
5653: resultout := 'COMPLETE:';
5654: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5655: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5656: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5657: END IF;
5658: RETURN;
5651:
5652: IF (funcmode = 'CANCEL') THEN
5653: resultout := 'COMPLETE:';
5654: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5655: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5656: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5657: END IF;
5658: RETURN;
5659: END IF; -- (funcmode = 'CANCEL')
5659: END IF; -- (funcmode = 'CANCEL')
5660:
5661: IF (funcmode = 'TIMEOUT') THEN
5662: resultout := 'COMPLETE:';
5663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5664: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5665: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5666: END IF;
5667: RETURN;
5660:
5661: IF (funcmode = 'TIMEOUT') THEN
5662: resultout := 'COMPLETE:';
5663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5664: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5665: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5666: END IF;
5667: RETURN;
5668: END IF; -- (funcmode = 'TIMEOUT')
5669:
5670: EXCEPTION
5671: WHEN FND_API.G_EXC_ERROR THEN
5672: l_msg_data := get_fnd_message;
5673: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5674: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5675: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5676: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
5677: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
5670: EXCEPTION
5671: WHEN FND_API.G_EXC_ERROR THEN
5672: l_msg_data := get_fnd_message;
5673: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5674: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5675: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5676: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
5677: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
5678: END IF;
5673: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5674: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5675: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5676: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
5677: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
5678: END IF;
5679: wf_core.CONTEXT
5680: (
5681: pkg_name => G_PKG_NAME,
5684: arg2 => itemkey,
5685: arg3 => l_msg_data
5686: );
5687: WHEN others THEN
5688: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5689: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5690: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5691: ||SQLCODE||', sqlerrm = '||SQLERRM);
5692: END IF;
5685: arg3 => l_msg_data
5686: );
5687: WHEN others THEN
5688: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5689: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5690: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5691: ||SQLCODE||', sqlerrm = '||SQLERRM);
5692: END IF;
5693: wf_core.CONTEXT
5738: l_msg_data VARCHAR2(4000);
5739:
5740: BEGIN
5741:
5742: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5743: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5744: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5745: END IF;
5746: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5739:
5740: BEGIN
5741:
5742: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5743: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5744: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5745: END IF;
5746: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5747: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5742: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5743: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5744: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5745: END IF;
5746: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5747: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5748: 'itemtype: ' || itemtype ||
5749: ' itemkey: ' || itemkey ||
5750: ' actid: ' || to_char(actid) ||
5743: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5744: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
5745: END IF;
5746: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5747: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
5748: 'itemtype: ' || itemtype ||
5749: ' itemkey: ' || itemkey ||
5750: ' actid: ' || to_char(actid) ||
5751: ' funcmode: ' || funcmode);
5751: ' funcmode: ' || funcmode);
5752: END IF;
5753: IF (funcmode = 'RUN') THEN
5754: resultout := 'NOTIFIED:';
5755: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5756: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5757: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5758: END IF;
5759: RETURN;
5752: END IF;
5753: IF (funcmode = 'RUN') THEN
5754: resultout := 'NOTIFIED:';
5755: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5756: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5757: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
5758: END IF;
5759: RETURN;
5760: END IF; -- (funcmode = 'RUN')
5760: END IF; -- (funcmode = 'RUN')
5761:
5762: IF (funcmode = 'CANCEL') THEN
5763: resultout := 'COMPLETE:';
5764: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5765: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5766: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5767: END IF;
5768: RETURN;
5761:
5762: IF (funcmode = 'CANCEL') THEN
5763: resultout := 'COMPLETE:';
5764: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5765: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5766: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
5767: END IF;
5768: RETURN;
5769: END IF; -- (funcmode = 'CANCEL')
5769: END IF; -- (funcmode = 'CANCEL')
5770:
5771: IF (funcmode = 'TIMEOUT') THEN
5772: resultout := 'COMPLETE:';
5773: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5774: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5775: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5776: END IF;
5777: RETURN;
5770:
5771: IF (funcmode = 'TIMEOUT') THEN
5772: resultout := 'COMPLETE:';
5773: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5774: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5775: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
5776: END IF;
5777: RETURN;
5778: END IF; -- (funcmode = 'TIMEOUT')
5778: END IF; -- (funcmode = 'TIMEOUT')
5779:
5780: EXCEPTION
5781: WHEN others THEN
5782: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5783: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5784: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5785: ||SQLCODE||', sqlerrm = '||SQLERRM);
5786: END IF;
5779:
5780: EXCEPTION
5781: WHEN others THEN
5782: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5783: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5784: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5785: ||SQLCODE||', sqlerrm = '||SQLERRM);
5786: END IF;
5787: wf_core.CONTEXT
5839: l_contract_modifier VARCHAR2(120);
5840:
5841: BEGIN
5842:
5843: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5844: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5845: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
5846: END IF;
5847:
5840:
5841: BEGIN
5842:
5843: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5844: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5845: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
5846: END IF;
5847:
5848: -- Standard call to check for call compatibility.
5876: ELSE
5877: l_item_key := p_item_key;
5878: END IF;
5879:
5880: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5881: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5882: 'Item Key found '||l_item_key);
5883: END IF;
5884:
5877: l_item_key := p_item_key;
5878: END IF;
5879:
5880: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5881: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5882: 'Item Key found '||l_item_key);
5883: END IF;
5884:
5885: x_activity_name := get_notified_activity
5901: FND_MESSAGE.SET_TOKEN('K_NUMBER',get_concat_k_number(p_contract_id));
5902: FND_MSG_PUB.add;
5903: RAISE FND_API.G_EXC_ERROR;
5904: END IF;
5905: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5907: 'Activity: '||x_activity_name||' Return status '||x_return_status);
5908: END IF;
5909:
5902: FND_MSG_PUB.add;
5903: RAISE FND_API.G_EXC_ERROR;
5904: END IF;
5905: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5907: 'Activity: '||x_activity_name||' Return status '||x_return_status);
5908: END IF;
5909:
5910: -- Standard call to get message count and if count is 1, get message info.
5909:
5910: -- Standard call to get message count and if count is 1, get message info.
5911: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
5912:
5913: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5914: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5915: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5916: END IF;
5917:
5910: -- Standard call to get message count and if count is 1, get message info.
5911: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
5912:
5913: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5914: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5915: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5916: END IF;
5917:
5918: EXCEPTION
5918: EXCEPTION
5919: WHEN FND_API.G_EXC_ERROR THEN
5920: x_return_status := G_RET_STS_ERROR;
5921: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5922: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5923: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5924: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
5925: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
5926: END IF;
5919: WHEN FND_API.G_EXC_ERROR THEN
5920: x_return_status := G_RET_STS_ERROR;
5921: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5922: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5923: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5924: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
5925: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
5926: END IF;
5927: WHEN OTHERS THEN
5921: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5922: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5923: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5924: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ERROR');
5925: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
5926: END IF;
5927: WHEN OTHERS THEN
5928: x_return_status := G_RET_STS_UNEXP_ERROR;
5929: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5925: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,get_fnd_message);
5926: END IF;
5927: WHEN OTHERS THEN
5928: x_return_status := G_RET_STS_UNEXP_ERROR;
5929: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5930: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5931: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5932: ||SQLCODE||', sqlerrm = '||SQLERRM);
5933: END IF;
5926: END IF;
5927: WHEN OTHERS THEN
5928: x_return_status := G_RET_STS_UNEXP_ERROR;
5929: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5930: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5931: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
5932: ||SQLCODE||', sqlerrm = '||SQLERRM);
5933: END IF;
5934: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
5951: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
5952:
5953: BEGIN
5954:
5955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5956: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5957: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
5958: ' Item Key =>'||p_wf_item_key||
5959: ' User Id=>'||p_user_id||'Resp Id=>'||p_resp_id||
5952:
5953: BEGIN
5954:
5955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5956: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5957: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
5958: ' Item Key =>'||p_wf_item_key||
5959: ' User Id=>'||p_user_id||'Resp Id=>'||p_resp_id||
5960: ' Resp Appl Id=>'||p_resp_appl_id||
6040:
6041: IF FND_API.to_boolean( p_commit ) THEN
6042: COMMIT;
6043: END IF;
6044: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6045: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6046: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6047: END IF;
6048: RETURN l_return_status;
6041: IF FND_API.to_boolean( p_commit ) THEN
6042: COMMIT;
6043: END IF;
6044: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6045: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6046: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6047: END IF;
6048: RETURN l_return_status;
6049: END;
6100: l_irr_flag VARCHAR2(1);
6101:
6102: BEGIN
6103:
6104: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6105: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6106: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
6107: ' with Contract Id '||p_contract_id ||
6108: ' p_validate_yn '||p_validate_yn||' p_qa_required_yn '||p_qa_required_yn);
6101:
6102: BEGIN
6103:
6104: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6105: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6106: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
6107: ' with Contract Id '||p_contract_id ||
6108: ' p_validate_yn '||p_validate_yn||' p_qa_required_yn '||p_qa_required_yn);
6109: END IF;
6180: RAISE FND_API.G_EXC_ERROR;
6181: ELSIF l_activity_name = G_CUST_ACTION THEN
6182:
6183: -- bug 5845505, send email only if template for the document type is setup
6184: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6185: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6186: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
6187: ' Contract ID ='||p_contract_id||
6188: ' Document Type ='||G_REPORT_TYPE_ACCEPT||')');
6181: ELSIF l_activity_name = G_CUST_ACTION THEN
6182:
6183: -- bug 5845505, send email only if template for the document type is setup
6184: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6185: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6186: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
6187: ' Contract ID ='||p_contract_id||
6188: ' Document Type ='||G_REPORT_TYPE_ACCEPT||')');
6189: END IF;
6198: x_msg_data => x_msg_data,
6199: x_msg_count => x_msg_count
6200: );
6201:
6202: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6203: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6204: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
6205: x_return_status||' x_msg_count ='||x_msg_count||')');
6206: END IF;
6199: x_msg_count => x_msg_count
6200: );
6201:
6202: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6203: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6204: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
6205: x_return_status||' x_msg_count ='||x_msg_count||')');
6206: END IF;
6207: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6218: avalue => l_send_email_yn
6219: );
6220:
6221: --log interaction (media type WEB FORM) that customer has accepted the quote
6222: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6223: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6224: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
6225: ' Contract ID = '||p_contract_id||
6226: substr(' IH Subject = '||l_email_attr_rec.ih_subject,1,100)||
6219: );
6220:
6221: --log interaction (media type WEB FORM) that customer has accepted the quote
6222: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6223: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6224: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
6225: ' Contract ID = '||p_contract_id||
6226: substr(' IH Subject = '||l_email_attr_rec.ih_subject,1,100)||
6227: substr(' IH Message = '||l_email_attr_rec.ih_message||')',1,100));
6237: p_msg_body => l_email_attr_rec.ih_message,
6238: p_sent2_email => NULL,
6239: p_media_type => G_MEDIA_TYPE_WEB_FORM
6240: );
6241: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6242: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6243: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
6244: x_return_status||' x_msg_count ='||x_msg_count||')');
6245: END IF;
6238: p_sent2_email => NULL,
6239: p_media_type => G_MEDIA_TYPE_WEB_FORM
6240: );
6241: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6242: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6243: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
6244: x_return_status||' x_msg_count ='||x_msg_count||')');
6245: END IF;
6246: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6255: l_email_attr_rec.EMAIL_TYPE := G_REPORT_TYPE_ACCEPT;
6256: l_email_attr_rec.TO_EMAIL := NULL;
6257: l_email_attr_rec.SENDER_EMAIL := NULL;
6258:
6259: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6260: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6261: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
6262: ' Contract ID ='||p_contract_id||
6263: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
6256: l_email_attr_rec.TO_EMAIL := NULL;
6257: l_email_attr_rec.SENDER_EMAIL := NULL;
6258:
6259: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6260: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6261: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
6262: ' Contract ID ='||p_contract_id||
6263: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
6264: END IF;
6270: x_return_status => x_return_status,
6271: x_msg_data => x_msg_data,
6272: x_msg_count => x_msg_count
6273: );
6274: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6275: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6276: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
6277: x_return_status||' x_msg_count ='||x_msg_count||')');
6278: END IF;
6271: x_msg_data => x_msg_data,
6272: x_msg_count => x_msg_count
6273: );
6274: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6275: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6276: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
6277: x_return_status||' x_msg_count ='||x_msg_count||')');
6278: END IF;
6279: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6315: ELSE
6316: RAISE FND_API.G_EXC_ERROR;
6317: END IF;
6318:
6319: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6320: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6321: 'Starting complete_activity with Activity '||l_activity_name);
6322: END IF;
6323: complete_activity
6316: RAISE FND_API.G_EXC_ERROR;
6317: END IF;
6318:
6319: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6320: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6321: 'Starting complete_activity with Activity '||l_activity_name);
6322: END IF;
6323: complete_activity
6324: (
6332: x_return_status => x_return_status,
6333: x_msg_data => x_msg_data,
6334: x_msg_count => x_msg_count
6335: );
6336: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6337: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6338: ' Return status '||x_return_status||' x_msg_count '||x_msg_count);
6339: END IF;
6340: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6333: x_msg_data => x_msg_data,
6334: x_msg_count => x_msg_count
6335: );
6336: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6337: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6338: ' Return status '||x_return_status||' x_msg_count '||x_msg_count);
6339: END IF;
6340: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6348: END IF;
6349: -- Standard call to get message count and if count is 1, get message info.
6350: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
6351:
6352: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6354: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6355: END IF;
6356:
6349: -- Standard call to get message count and if count is 1, get message info.
6350: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
6351:
6352: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6354: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6355: END IF;
6356:
6357: EXCEPTION
6357: EXCEPTION
6358: WHEN ActionNotAllowedException THEN
6359: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6360: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6361: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6362: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6363: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6364: ' Contract is either waiting for customer acceptance or not in entered status');
6365: END IF;
6358: WHEN ActionNotAllowedException THEN
6359: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6360: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6361: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6362: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6363: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6364: ' Contract is either waiting for customer acceptance or not in entered status');
6365: END IF;
6366: WHEN FND_API.G_EXC_ERROR THEN
6365: END IF;
6366: WHEN FND_API.G_EXC_ERROR THEN
6367: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6368: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6369: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6371: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6373: END IF;
6366: WHEN FND_API.G_EXC_ERROR THEN
6367: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6368: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6369: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6371: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6373: END IF;
6374: x_return_status := G_RET_STS_ERROR;
6368: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6369: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6371: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6373: END IF;
6374: x_return_status := G_RET_STS_ERROR;
6375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6376: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6374: x_return_status := G_RET_STS_ERROR;
6375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6376: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6377: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6382: END IF;
6375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6376: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6377: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6382: END IF;
6383: x_return_status := G_RET_STS_UNEXP_ERROR ;
6377: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6382: END IF;
6383: x_return_status := G_RET_STS_UNEXP_ERROR ;
6384: WHEN OTHERS THEN
6385: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6382: END IF;
6383: x_return_status := G_RET_STS_UNEXP_ERROR ;
6384: WHEN OTHERS THEN
6385: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6386: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
6388: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
6389: ||SQLCODE||', sqlerrm = '||SQLERRM);
6390: END IF;
6383: x_return_status := G_RET_STS_UNEXP_ERROR ;
6384: WHEN OTHERS THEN
6385: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6386: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
6388: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
6389: ||SQLCODE||', sqlerrm = '||SQLERRM);
6390: END IF;
6391: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
6440: WHERE chr_id = p_chr_id;
6441:
6442: BEGIN
6443:
6444: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6446: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
6447: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
6448: END IF;
6441:
6442: BEGIN
6443:
6444: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6446: 'Entered '||G_PKG_NAME ||'.'||l_api_name||
6447: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
6448: END IF;
6449:
6474: -- customer requests assistance, the contract is still in customers queue
6475: -- and salesrep in a way is republishing the contract
6476: -- Bug fix 5331882.
6477: IF NVL(l_negotiation_status,'X') = G_NEG_STS_ASSIST_REQD THEN
6478: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6479: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
6480: 'Updating Negotiation status ' || l_negotiation_status || ' to Quote Published');
6481: END IF;
6482: update oks_k_headers_b set renewal_status = G_NEG_STS_QUOTE_SENT
6475: -- and salesrep in a way is republishing the contract
6476: -- Bug fix 5331882.
6477: IF NVL(l_negotiation_status,'X') = G_NEG_STS_ASSIST_REQD THEN
6478: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6479: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
6480: 'Updating Negotiation status ' || l_negotiation_status || ' to Quote Published');
6481: END IF;
6482: update oks_k_headers_b set renewal_status = G_NEG_STS_QUOTE_SENT
6483: where chr_id = p_contract_id;
6545:
6546: -- Standard call to get message count and if count is 1, get message info.
6547: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
6548:
6549: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6551: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6552: END IF;
6553:
6546: -- Standard call to get message count and if count is 1, get message info.
6547: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
6548:
6549: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6551: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6552: END IF;
6553:
6554: EXCEPTION
6554: EXCEPTION
6555: WHEN ActionNotAllowedException THEN
6556: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6557: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6558: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6559: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6561: ' Contract cannot be published since it is not in entered status');
6562: END IF;
6555: WHEN ActionNotAllowedException THEN
6556: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6557: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6558: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6559: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6561: ' Contract cannot be published since it is not in entered status');
6562: END IF;
6563: x_return_status := G_RET_STS_ACTION_NOT_ALWD;
6563: x_return_status := G_RET_STS_ACTION_NOT_ALWD;
6564: WHEN AlreadyPublishedException THEN
6565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6566: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6569: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from AlreadyPublishedException');
6570: END IF;
6571: x_return_status := G_RET_STS_ALREADY_PUBLISHED;
6564: WHEN AlreadyPublishedException THEN
6565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6566: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6569: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from AlreadyPublishedException');
6570: END IF;
6571: x_return_status := G_RET_STS_ALREADY_PUBLISHED;
6572: WHEN FND_API.G_EXC_ERROR THEN
6571: x_return_status := G_RET_STS_ALREADY_PUBLISHED;
6572: WHEN FND_API.G_EXC_ERROR THEN
6573: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6574: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6575: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6576: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6577: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6579: END IF;
6572: WHEN FND_API.G_EXC_ERROR THEN
6573: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6574: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6575: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6576: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6577: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6579: END IF;
6580: x_return_status := G_RET_STS_ERROR;
6574: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6575: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6576: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6577: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6579: END IF;
6580: x_return_status := G_RET_STS_ERROR;
6581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6582: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6580: x_return_status := G_RET_STS_ERROR;
6581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6582: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6583: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6586: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6588: END IF;
6581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6582: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6583: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6586: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6588: END IF;
6589: x_return_status := G_RET_STS_UNEXP_ERROR ;
6583: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6586: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
6587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6588: END IF;
6589: x_return_status := G_RET_STS_UNEXP_ERROR ;
6590: WHEN OTHERS THEN
6591: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6588: END IF;
6589: x_return_status := G_RET_STS_UNEXP_ERROR ;
6590: WHEN OTHERS THEN
6591: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
6594: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
6595: ||SQLCODE||', sqlerrm = '||SQLERRM);
6596: END IF;
6589: x_return_status := G_RET_STS_UNEXP_ERROR ;
6590: WHEN OTHERS THEN
6591: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
6594: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
6595: ||SQLCODE||', sqlerrm = '||SQLERRM);
6596: END IF;
6597: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
6655: l_notif_attr_rec OKS_WF_K_PROCESS_PVT.notif_attr_rec;
6656:
6657: BEGIN
6658:
6659: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6661: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
6662: END IF;
6663:
6656:
6657: BEGIN
6658:
6659: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6661: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
6662: END IF;
6663:
6664: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6660: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6661: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
6662: END IF;
6663:
6664: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6665: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
6666: 'itemtype: ' || itemtype ||
6667: ' itemkey: ' || itemkey ||
6668: ' actid: ' || to_char(actid) ||
6661: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
6662: END IF;
6663:
6664: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6665: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
6666: 'itemtype: ' || itemtype ||
6667: ' itemkey: ' || itemkey ||
6668: ' actid: ' || to_char(actid) ||
6669: ' funcmode: ' || funcmode);
6698: ELSE
6699: FND_MESSAGE.SET_TOKEN('CONTRACT_NUM',l_qa_rec.contract_number);
6700: END IF;
6701: FND_MSG_PUB.add;
6702: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6703: FND_LOG.STRING(FND_LOG.LEVEL_ERROR ,G_MODULE||l_api_name,'Invalid QA checklist ');
6704: END IF;
6705: RAISE FND_API.G_EXC_ERROR;
6706: END IF;
6699: FND_MESSAGE.SET_TOKEN('CONTRACT_NUM',l_qa_rec.contract_number);
6700: END IF;
6701: FND_MSG_PUB.add;
6702: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6703: FND_LOG.STRING(FND_LOG.LEVEL_ERROR ,G_MODULE||l_api_name,'Invalid QA checklist ');
6704: END IF;
6705: RAISE FND_API.G_EXC_ERROR;
6706: END IF;
6707: CLOSE l_qa_csr;
6713: -- distinguish the process in which this QA check is invoked
6714: -- it can be either Pending IA or Pending Publication
6715: l_qa_calling_process := get_negotiation_status(p_contract_id => l_contract_id);
6716:
6717: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6718: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6719: 'OKC_QA_CHECK_PUB.execute_qa_check_list(p_qcl_id= '||l_qa_rec.qcl_id||
6720: ' p_chr_id ='||l_contract_id||')');
6721: END IF;
6714: -- it can be either Pending IA or Pending Publication
6715: l_qa_calling_process := get_negotiation_status(p_contract_id => l_contract_id);
6716:
6717: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6718: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6719: 'OKC_QA_CHECK_PUB.execute_qa_check_list(p_qcl_id= '||l_qa_rec.qcl_id||
6720: ' p_chr_id ='||l_contract_id||')');
6721: END IF;
6722: -- Execute the default and service contracts QA checklists
6730: p_qcl_id => l_qa_rec.qcl_id,
6731: p_chr_id => l_contract_id,
6732: x_msg_tbl => l_msg_tbl
6733: );
6734: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6735: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6736: 'OKC_QA_CHECK_PUB.execute_qa_check_list(x_return_status= '||l_return_status||
6737: ' x_msg_tbl.count ='||l_msg_tbl.count||')');
6738: END IF;
6731: p_chr_id => l_contract_id,
6732: x_msg_tbl => l_msg_tbl
6733: );
6734: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6735: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6736: 'OKC_QA_CHECK_PUB.execute_qa_check_list(x_return_status= '||l_return_status||
6737: ' x_msg_tbl.count ='||l_msg_tbl.count||')');
6738: END IF;
6739: IF l_return_status <> G_RET_STS_SUCCESS THEN
6787: -- 1.Online process, 2.Publish quote online process
6788: BEGIN
6789: l_qto_email := get_qto_email(p_contract_id => l_contract_id);
6790: IF l_qto_email IS NULL THEN
6791: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6792: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
6793: END IF;
6794: RAISE FND_API.G_EXC_ERROR;
6795: END IF;
6788: BEGIN
6789: l_qto_email := get_qto_email(p_contract_id => l_contract_id);
6790: IF l_qto_email IS NULL THEN
6791: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6792: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
6793: END IF;
6794: RAISE FND_API.G_EXC_ERROR;
6795: END IF;
6796: EXCEPTION
6810:
6811: -- Update negotiation status to 'Publish QA Failed'
6812: l_negotiation_status := G_NEG_STS_QPUB_QA_FAIL;
6813: END;
6814: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6815: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6816: 'Negotiation Status: '||l_negotiation_status );
6817: END IF;
6818: -- Once all QA checks are successful, set all the email related attributes
6811: -- Update negotiation status to 'Publish QA Failed'
6812: l_negotiation_status := G_NEG_STS_QPUB_QA_FAIL;
6813: END;
6814: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6815: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6816: 'Negotiation Status: '||l_negotiation_status );
6817: END IF;
6818: -- Once all QA checks are successful, set all the email related attributes
6819: -- so that an email along with Quote can be sent to Quote To contact.
6828: l_email_attr_rec.EMAIL_SUBJECT := NULL;
6829: l_email_attr_rec.IH_SUBJECT := NULL;
6830: l_email_attr_rec.IH_MESSAGE := NULL;
6831:
6832: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6833: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6834: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
6835: ' Contract ID ='||l_contract_id||
6836: ' Email Type ='||l_email_attr_rec.TO_EMAIL||
6829: l_email_attr_rec.IH_SUBJECT := NULL;
6830: l_email_attr_rec.IH_MESSAGE := NULL;
6831:
6832: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6833: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6834: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
6835: ' Contract ID ='||l_contract_id||
6836: ' Email Type ='||l_email_attr_rec.TO_EMAIL||
6837: ' To Email ='||l_qto_email||')');
6844: x_return_status => l_return_status,
6845: x_msg_data => l_msg_data,
6846: x_msg_count => l_msg_count
6847: );
6848: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6849: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6850: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||l_return_status||
6851: ' x_msg_count ='||l_msg_count||')');
6852: END IF;
6845: x_msg_data => l_msg_data,
6846: x_msg_count => l_msg_count
6847: );
6848: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6849: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6850: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||l_return_status||
6851: ' x_msg_count ='||l_msg_count||')');
6852: END IF;
6853: IF l_return_status <> G_RET_STS_SUCCESS THEN
6881: l_notif_attr_rec.NTF_SUBJECT := NULL;
6882: l_notif_attr_rec.SUBJECT := get_lookup_meaning(l_negotiation_status,G_LKUP_TYPE_NEGO_STATUS);
6883: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
6884:
6885: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6886: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6887: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
6888: ' Contract ID ='||l_contract_id||
6889: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
6882: l_notif_attr_rec.SUBJECT := get_lookup_meaning(l_negotiation_status,G_LKUP_TYPE_NEGO_STATUS);
6883: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
6884:
6885: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6886: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6887: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
6888: ' Contract ID ='||l_contract_id||
6889: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
6890: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
6897: x_return_status => l_return_status,
6898: x_msg_data => l_msg_data,
6899: x_msg_count => l_msg_count
6900: );
6901: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6902: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6903: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
6904: l_return_status||' x_msg_count ='||l_msg_count||')');
6905: END IF;
6898: x_msg_data => l_msg_data,
6899: x_msg_count => l_msg_count
6900: );
6901: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6902: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6903: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
6904: l_return_status||' x_msg_count ='||l_msg_count||')');
6905: END IF;
6906: IF l_return_status <> G_RET_STS_SUCCESS THEN
6910: ELSE
6911: resultout := 'COMPLETE:T';
6912: END IF;
6913:
6914: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6915: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6916: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6917: END IF;
6918: RETURN;
6911: resultout := 'COMPLETE:T';
6912: END IF;
6913:
6914: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6915: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6916: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
6917: END IF;
6918: RETURN;
6919: END IF; -- (funcmode = 'RUN')
6919: END IF; -- (funcmode = 'RUN')
6920:
6921: IF (funcmode = 'CANCEL') THEN
6922: resultout := 'COMPLETE:';
6923: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6924: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6925: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
6926: END IF;
6927: RETURN;
6920:
6921: IF (funcmode = 'CANCEL') THEN
6922: resultout := 'COMPLETE:';
6923: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6924: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6925: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
6926: END IF;
6927: RETURN;
6928: END IF; -- (funcmode = 'CANCEL')
6928: END IF; -- (funcmode = 'CANCEL')
6929:
6930: IF (funcmode = 'TIMEOUT') THEN
6931: resultout := 'COMPLETE:';
6932: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6933: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6934: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
6935: END IF;
6936: RETURN;
6929:
6930: IF (funcmode = 'TIMEOUT') THEN
6931: resultout := 'COMPLETE:';
6932: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6933: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6934: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
6935: END IF;
6936: RETURN;
6937: END IF; -- (funcmode = 'TIMEOUT')
6938: EXCEPTION
6939: WHEN FND_API.G_EXC_ERROR THEN
6940: resultout := 'COMPLETE:F';
6941: l_msg_data := get_fnd_message;
6942: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6943: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6944: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
6945: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
6946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
6939: WHEN FND_API.G_EXC_ERROR THEN
6940: resultout := 'COMPLETE:F';
6941: l_msg_data := get_fnd_message;
6942: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6943: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6944: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
6945: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
6946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
6947: END IF;
6942: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6943: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6944: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
6945: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
6946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
6947: END IF;
6948: -- Since this is the primary cause of the error, we have to communicate it
6949: -- even with an expense of loosing a populated message.
6950: IF l_msg_ctr > 10 THEN
6964: l_notif_attr_rec.NTF_TYPE := G_NTF_TYPE_QA_FAIL;
6965: l_notif_attr_rec.NTF_SUBJECT := NULL;
6966: l_notif_attr_rec.SUBJECT := substr(get_fnd_message,1,200);
6967: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
6968: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6969: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6970: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
6971: ' Contract ID ='||l_contract_id||
6972: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
6965: l_notif_attr_rec.NTF_SUBJECT := NULL;
6966: l_notif_attr_rec.SUBJECT := substr(get_fnd_message,1,200);
6967: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
6968: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6969: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
6970: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
6971: ' Contract ID ='||l_contract_id||
6972: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
6973: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
6980: x_return_status => l_return_status,
6981: x_msg_data => l_msg_data,
6982: x_msg_count => l_msg_count
6983: );
6984: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6985: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6986: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
6987: l_return_status||' x_msg_count ='||l_msg_count||')');
6988: END IF;
6981: x_msg_data => l_msg_data,
6982: x_msg_count => l_msg_count
6983: );
6984: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6985: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
6986: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
6987: l_return_status||' x_msg_count ='||l_msg_count||')');
6988: END IF;
6989: EXCEPTION
6987: l_return_status||' x_msg_count ='||l_msg_count||')');
6988: END IF;
6989: EXCEPTION
6990: WHEN others THEN
6991: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6992: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6993: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'G_EXC_ERROR.Others sqlcode = '
6994: ||SQLCODE||', sqlerrm = '||SQLERRM);
6995: END IF;
6988: END IF;
6989: EXCEPTION
6990: WHEN others THEN
6991: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6992: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6993: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'G_EXC_ERROR.Others sqlcode = '
6994: ||SQLCODE||', sqlerrm = '||SQLERRM);
6995: END IF;
6996: END;
6995: END IF;
6996: END;
6997: WHEN others THEN
6998: resultout := 'COMPLETE:F';
6999: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7000: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7001: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7002: ||SQLCODE||', sqlerrm = '||SQLERRM);
7003: END IF;
6996: END;
6997: WHEN others THEN
6998: resultout := 'COMPLETE:F';
6999: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7000: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7001: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7002: ||SQLCODE||', sqlerrm = '||SQLERRM);
7003: END IF;
7004: -- Since this is the primary cause of the error, we have to communicate it
7020: l_notif_attr_rec.NTF_TYPE := G_NTF_TYPE_QA_FAIL;
7021: l_notif_attr_rec.NTF_SUBJECT := NULL;
7022: l_notif_attr_rec.SUBJECT := substr(SQLERRM,1,200);
7023: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
7024: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7025: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7026: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
7027: ' Contract ID ='||l_contract_id||
7028: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
7021: l_notif_attr_rec.NTF_SUBJECT := NULL;
7022: l_notif_attr_rec.SUBJECT := substr(SQLERRM,1,200);
7023: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
7024: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7025: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7026: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
7027: ' Contract ID ='||l_contract_id||
7028: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
7029: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
7036: x_return_status => l_return_status,
7037: x_msg_data => l_msg_data,
7038: x_msg_count => l_msg_count
7039: );
7040: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7041: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7042: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
7043: l_return_status||' x_msg_count ='||l_msg_count||')');
7044: END IF;
7037: x_msg_data => l_msg_data,
7038: x_msg_count => l_msg_count
7039: );
7040: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7041: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7042: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
7043: l_return_status||' x_msg_count ='||l_msg_count||')');
7044: END IF;
7045: EXCEPTION
7043: l_return_status||' x_msg_count ='||l_msg_count||')');
7044: END IF;
7045: EXCEPTION
7046: WHEN others THEN
7047: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7048: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7049: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'OTHERS.Others sqlcode = '
7050: ||SQLCODE||', sqlerrm = '||SQLERRM);
7051: END IF;
7044: END IF;
7045: EXCEPTION
7046: WHEN others THEN
7047: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7048: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7049: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'OTHERS.Others sqlcode = '
7050: ||SQLCODE||', sqlerrm = '||SQLERRM);
7051: END IF;
7052: END;
7086: l_msg_data VARCHAR2(4000);
7087:
7088: BEGIN
7089:
7090: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7091: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7092: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7093: END IF;
7094: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7087:
7088: BEGIN
7089:
7090: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7091: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7092: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7093: END IF;
7094: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7095: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7090: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7091: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7092: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7093: END IF;
7094: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7095: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7096: 'itemtype: ' || itemtype ||
7097: ' itemkey: ' || itemkey ||
7098: ' actid: ' || to_char(actid) ||
7091: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7092: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7093: END IF;
7094: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7095: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7096: 'itemtype: ' || itemtype ||
7097: ' itemkey: ' || itemkey ||
7098: ' actid: ' || to_char(actid) ||
7099: ' funcmode: ' || funcmode);
7099: ' funcmode: ' || funcmode);
7100: END IF;
7101: IF (funcmode = 'RUN') THEN
7102: resultout := 'NOTIFIED:';
7103: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7104: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7105: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7106: END IF;
7107: RETURN;
7100: END IF;
7101: IF (funcmode = 'RUN') THEN
7102: resultout := 'NOTIFIED:';
7103: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7104: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7105: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7106: END IF;
7107: RETURN;
7108: END IF; -- (funcmode = 'RUN')
7108: END IF; -- (funcmode = 'RUN')
7109:
7110: IF (funcmode = 'CANCEL') THEN
7111: resultout := 'COMPLETE:';
7112: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7113: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7114: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7115: END IF;
7116: RETURN;
7109:
7110: IF (funcmode = 'CANCEL') THEN
7111: resultout := 'COMPLETE:';
7112: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7113: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7114: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7115: END IF;
7116: RETURN;
7117: END IF; -- (funcmode = 'CANCEL')
7117: END IF; -- (funcmode = 'CANCEL')
7118:
7119: IF (funcmode = 'TIMEOUT') THEN
7120: resultout := 'COMPLETE:';
7121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7122: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7123: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7124: END IF;
7125: RETURN;
7118:
7119: IF (funcmode = 'TIMEOUT') THEN
7120: resultout := 'COMPLETE:';
7121: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7122: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7123: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7124: END IF;
7125: RETURN;
7126: END IF; -- (funcmode = 'TIMEOUT')
7126: END IF; -- (funcmode = 'TIMEOUT')
7127:
7128: EXCEPTION
7129: WHEN others THEN
7130: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7131: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7132: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7133: ||SQLCODE||', sqlerrm = '||SQLERRM);
7134: END IF;
7127:
7128: EXCEPTION
7129: WHEN others THEN
7130: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7131: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7132: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7133: ||SQLCODE||', sqlerrm = '||SQLERRM);
7134: END IF;
7135: wf_core.CONTEXT
7185: l_irr_flag VARCHAR2(1);
7186:
7187: BEGIN
7188:
7189: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7191: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7192: END IF;
7193: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7186:
7187: BEGIN
7188:
7189: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7191: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7192: END IF;
7193: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7194: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7189: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7191: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7192: END IF;
7193: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7194: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7195: 'itemtype: ' || itemtype ||
7196: ' itemkey: ' || itemkey ||
7197: ' actid: ' || to_char(actid) ||
7190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7191: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7192: END IF;
7193: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7194: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7195: 'itemtype: ' || itemtype ||
7196: ' itemkey: ' || itemkey ||
7197: ' actid: ' || to_char(actid) ||
7198: ' funcmode: ' || funcmode);
7210: itemtype => itemtype,
7211: itemkey => itemkey,
7212: aname => 'IRR_FLAG');
7213:
7214: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7215: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7216: 'Irr Flag: ' ||NVL(l_irr_flag,'NULL'));
7217: END IF;
7218:
7211: itemkey => itemkey,
7212: aname => 'IRR_FLAG');
7213:
7214: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7215: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7216: 'Irr Flag: ' ||NVL(l_irr_flag,'NULL'));
7217: END IF;
7218:
7219: -- 1. Require explicit action from Salesrep
7237: ELSE
7238: resultout := 'COMPLETE:';
7239: END IF;
7240:
7241: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7242: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7243: 'Resultout: ' || resultout);
7244: END IF;
7245: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7238: resultout := 'COMPLETE:';
7239: END IF;
7240:
7241: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7242: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7243: 'Resultout: ' || resultout);
7244: END IF;
7245: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7246: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7241: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7242: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7243: 'Resultout: ' || resultout);
7244: END IF;
7245: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7246: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7247: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7248: END IF;
7249: RETURN;
7242: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7243: 'Resultout: ' || resultout);
7244: END IF;
7245: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7246: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7247: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7248: END IF;
7249: RETURN;
7250: END IF; -- (funcmode = 'RUN')
7250: END IF; -- (funcmode = 'RUN')
7251:
7252: IF (funcmode = 'CANCEL') THEN
7253: resultout := 'COMPLETE:';
7254: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7255: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7256: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7257: END IF;
7258: RETURN;
7251:
7252: IF (funcmode = 'CANCEL') THEN
7253: resultout := 'COMPLETE:';
7254: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7255: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7256: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7257: END IF;
7258: RETURN;
7259: END IF; -- (funcmode = 'CANCEL')
7259: END IF; -- (funcmode = 'CANCEL')
7260:
7261: IF (funcmode = 'TIMEOUT') THEN
7262: resultout := 'COMPLETE:';
7263: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7264: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7265: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7266: END IF;
7267: RETURN;
7260:
7261: IF (funcmode = 'TIMEOUT') THEN
7262: resultout := 'COMPLETE:';
7263: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7264: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7265: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7266: END IF;
7267: RETURN;
7268: END IF; -- (funcmode = 'TIMEOUT')
7269:
7270: EXCEPTION
7271: WHEN FND_API.G_EXC_ERROR THEN
7272: l_msg_data := get_fnd_message;
7273: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7274: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7275: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7276: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7277: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7270: EXCEPTION
7271: WHEN FND_API.G_EXC_ERROR THEN
7272: l_msg_data := get_fnd_message;
7273: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7274: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7275: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7276: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7277: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7278: END IF;
7273: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7274: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7275: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7276: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7277: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7278: END IF;
7279: wf_core.CONTEXT
7280: (
7281: pkg_name => G_PKG_NAME,
7284: arg2 => itemkey,
7285: arg3 => l_msg_data
7286: );
7287: WHEN others THEN
7288: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7289: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7290: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7291: ||SQLCODE||', sqlerrm = '||SQLERRM);
7292: END IF;
7285: arg3 => l_msg_data
7286: );
7287: WHEN others THEN
7288: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7289: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7290: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7291: ||SQLCODE||', sqlerrm = '||SQLERRM);
7292: END IF;
7293: wf_core.CONTEXT
7341: l_irr_flag VARCHAR2(1);
7342: l_contract_id NUMBER;
7343: BEGIN
7344:
7345: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7347: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7348: END IF;
7349: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7342: l_contract_id NUMBER;
7343: BEGIN
7344:
7345: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7347: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7348: END IF;
7349: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7350: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7345: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7347: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7348: END IF;
7349: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7350: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7351: 'itemtype: ' || itemtype ||
7352: ' itemkey: ' || itemkey ||
7353: ' actid: ' || to_char(actid) ||
7346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7347: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7348: END IF;
7349: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7350: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7351: 'itemtype: ' || itemtype ||
7352: ' itemkey: ' || itemkey ||
7353: ' actid: ' || to_char(actid) ||
7354: ' funcmode: ' || funcmode);
7361: ELSE
7362: RAISE FND_API.G_EXC_ERROR;
7363: END IF;
7364:
7365: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7366: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7367: 'Resultout: ' || resultout);
7368: END IF;
7369: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7362: RAISE FND_API.G_EXC_ERROR;
7363: END IF;
7364:
7365: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7366: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7367: 'Resultout: ' || resultout);
7368: END IF;
7369: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7370: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7365: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7366: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7367: 'Resultout: ' || resultout);
7368: END IF;
7369: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7370: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7371: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7372: END IF;
7373: RETURN;
7366: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7367: 'Resultout: ' || resultout);
7368: END IF;
7369: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7370: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7371: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7372: END IF;
7373: RETURN;
7374: END IF; -- (funcmode = 'RUN')
7374: END IF; -- (funcmode = 'RUN')
7375:
7376: IF (funcmode = 'CANCEL') THEN
7377: resultout := 'COMPLETE:';
7378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7379: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7381: END IF;
7382: RETURN;
7375:
7376: IF (funcmode = 'CANCEL') THEN
7377: resultout := 'COMPLETE:';
7378: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7379: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7380: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7381: END IF;
7382: RETURN;
7383: END IF; -- (funcmode = 'CANCEL')
7383: END IF; -- (funcmode = 'CANCEL')
7384:
7385: IF (funcmode = 'TIMEOUT') THEN
7386: resultout := 'COMPLETE:';
7387: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7388: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7389: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7390: END IF;
7391: RETURN;
7384:
7385: IF (funcmode = 'TIMEOUT') THEN
7386: resultout := 'COMPLETE:';
7387: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7388: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7389: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7390: END IF;
7391: RETURN;
7392: END IF; -- (funcmode = 'TIMEOUT')
7393:
7394: EXCEPTION
7395: WHEN FND_API.G_EXC_ERROR THEN
7396: l_msg_data := get_fnd_message;
7397: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7398: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7399: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7400: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7401: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7394: EXCEPTION
7395: WHEN FND_API.G_EXC_ERROR THEN
7396: l_msg_data := get_fnd_message;
7397: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7398: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7399: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7400: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7401: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7402: END IF;
7397: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7398: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7399: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7400: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7401: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7402: END IF;
7403: wf_core.CONTEXT
7404: (
7405: pkg_name => G_PKG_NAME,
7408: arg2 => itemkey,
7409: arg3 => l_msg_data
7410: );
7411: WHEN others THEN
7412: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7413: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7414: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7415: ||SQLCODE||', sqlerrm = '||SQLERRM);
7416: END IF;
7409: arg3 => l_msg_data
7410: );
7411: WHEN others THEN
7412: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7413: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7414: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7415: ||SQLCODE||', sqlerrm = '||SQLERRM);
7416: END IF;
7417: wf_core.CONTEXT
7465: l_irr_flag VARCHAR2(1);
7466:
7467: BEGIN
7468:
7469: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7471: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7472: END IF;
7473: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7466:
7467: BEGIN
7468:
7469: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7471: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7472: END IF;
7473: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7474: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7469: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7471: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7472: END IF;
7473: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7474: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7475: 'itemtype: ' || itemtype ||
7476: ' itemkey: ' || itemkey ||
7477: ' actid: ' || to_char(actid) ||
7470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7471: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7472: END IF;
7473: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7474: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7475: 'itemtype: ' || itemtype ||
7476: ' itemkey: ' || itemkey ||
7477: ' actid: ' || to_char(actid) ||
7478: ' funcmode: ' || funcmode);
7489: itemkey => itemkey,
7490: actid => actid,
7491: aname => 'TARGET_NEGO_STATUS');
7492:
7493: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7494: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7495: 'Contract Id: ' || l_contract_id ||
7496: ' Negotiation status: ' || l_negotiation_status);
7497: END IF;
7490: actid => actid,
7491: aname => 'TARGET_NEGO_STATUS');
7492:
7493: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7494: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7495: 'Contract Id: ' || l_contract_id ||
7496: ' Negotiation status: ' || l_negotiation_status);
7497: END IF;
7498:
7522: IF l_return_status <> G_RET_STS_SUCCESS THEN
7523: RAISE NegStatusUpdateException;
7524: END IF;
7525:
7526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7527: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7528: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7529: END IF;
7530: RETURN;
7523: RAISE NegStatusUpdateException;
7524: END IF;
7525:
7526: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7527: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7528: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
7529: END IF;
7530: RETURN;
7531: END IF; -- (funcmode = 'RUN')
7531: END IF; -- (funcmode = 'RUN')
7532:
7533: IF (funcmode = 'CANCEL') THEN
7534: resultout := 'COMPLETE:';
7535: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7536: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7537: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7538: END IF;
7539: RETURN;
7532:
7533: IF (funcmode = 'CANCEL') THEN
7534: resultout := 'COMPLETE:';
7535: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7536: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7537: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7538: END IF;
7539: RETURN;
7540: END IF; -- (funcmode = 'CANCEL')
7540: END IF; -- (funcmode = 'CANCEL')
7541:
7542: IF (funcmode = 'TIMEOUT') THEN
7543: resultout := 'COMPLETE:';
7544: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7545: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7546: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7547: END IF;
7548: RETURN;
7541:
7542: IF (funcmode = 'TIMEOUT') THEN
7543: resultout := 'COMPLETE:';
7544: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7545: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7546: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7547: END IF;
7548: RETURN;
7549: END IF; -- (funcmode = 'TIMEOUT')
7550:
7551: EXCEPTION
7552: WHEN NegStatusUpdateException THEN
7553: l_msg_data := get_fnd_message;
7554: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7555: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7556: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.NegStatusUpdateException'
7557: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7558: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7551: EXCEPTION
7552: WHEN NegStatusUpdateException THEN
7553: l_msg_data := get_fnd_message;
7554: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7555: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7556: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.NegStatusUpdateException'
7557: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7558: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7559: END IF;
7554: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7555: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7556: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.NegStatusUpdateException'
7557: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7558: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7559: END IF;
7560: wf_core.CONTEXT
7561: (
7562: pkg_name => G_PKG_NAME,
7566: arg3 => l_msg_data
7567: );
7568: WHEN FND_API.G_EXC_ERROR THEN
7569: l_msg_data := get_fnd_message;
7570: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7571: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7572: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7573: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7574: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7567: );
7568: WHEN FND_API.G_EXC_ERROR THEN
7569: l_msg_data := get_fnd_message;
7570: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7571: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7572: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7573: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7574: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7575: END IF;
7570: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7571: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7572: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7573: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7574: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7575: END IF;
7576: wf_core.CONTEXT
7577: (
7578: pkg_name => G_PKG_NAME,
7581: arg2 => itemkey,
7582: arg3 => l_msg_data
7583: );
7584: WHEN others THEN
7585: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7586: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7587: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7588: ||SQLCODE||', sqlerrm = '||SQLERRM);
7589: END IF;
7582: arg3 => l_msg_data
7583: );
7584: WHEN others THEN
7585: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7586: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7587: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
7588: ||SQLCODE||', sqlerrm = '||SQLERRM);
7589: END IF;
7590: wf_core.CONTEXT
7646: l_resp_appl_id NUMBER;
7647: l_security_group_id NUMBER;
7648:
7649: BEGIN
7650: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7652: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7653: END IF;
7654: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7647: l_security_group_id NUMBER;
7648:
7649: BEGIN
7650: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7652: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7653: END IF;
7654: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7655: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7650: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7652: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7653: END IF;
7654: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7655: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7656: 'p_contract_id: ' || p_contract_id ||
7657: ' p_process_id: ' || p_process_id ||
7658: ' p_commit: ' || p_commit ||
7651: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7652: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7653: END IF;
7654: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7655: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7656: 'p_contract_id: ' || p_contract_id ||
7657: ' p_process_id: ' || p_process_id ||
7658: ' p_commit: ' || p_commit ||
7659: ' p_wf_item_key: ' || p_wf_item_key);
7751: avalue => null
7752: );
7753: END;
7754:
7755: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7756: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7757: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(p_contract_id= '||
7758: p_contract_id||' p_process_id='||p_process_id||')');
7759: END IF;
7752: );
7753: END;
7754:
7755: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7756: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7757: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(p_contract_id= '||
7758: p_contract_id||' p_process_id='||p_process_id||')');
7759: END IF;
7760:
7777: );
7778: EXCEPTION
7779: WHEN OTHERS THEN
7780: x_return_status := G_RET_STS_UNEXP_ERROR;
7781: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7782: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7783: 'In Others exception for OKS_WF_K_PROCESS_PVT.k_approval_start');
7784: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7785: 'Error: '|| substr(SQLERRM,1,500));
7778: EXCEPTION
7779: WHEN OTHERS THEN
7780: x_return_status := G_RET_STS_UNEXP_ERROR;
7781: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7782: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7783: 'In Others exception for OKS_WF_K_PROCESS_PVT.k_approval_start');
7784: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7785: 'Error: '|| substr(SQLERRM,1,500));
7786: END IF;
7780: x_return_status := G_RET_STS_UNEXP_ERROR;
7781: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7782: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7783: 'In Others exception for OKS_WF_K_PROCESS_PVT.k_approval_start');
7784: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7785: 'Error: '|| substr(SQLERRM,1,500));
7786: END IF;
7787: END;
7788: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7784: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7785: 'Error: '|| substr(SQLERRM,1,500));
7786: END IF;
7787: END;
7788: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7789: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7790: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(x_return_status= '||
7791: x_return_status||' x_msg_count='||x_msg_count||')');
7792: END IF;
7785: 'Error: '|| substr(SQLERRM,1,500));
7786: END IF;
7787: END;
7788: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7789: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7790: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(x_return_status= '||
7791: x_return_status||' x_msg_count='||x_msg_count||')');
7792: END IF;
7793: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7789: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7790: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(x_return_status= '||
7791: x_return_status||' x_msg_count='||x_msg_count||')');
7792: END IF;
7793: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7794: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7795: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
7796: END IF;
7797: END;
7790: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(x_return_status= '||
7791: x_return_status||' x_msg_count='||x_msg_count||')');
7792: END IF;
7793: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7794: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7795: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
7796: END IF;
7797: END;
7798:
7842: l_pdf_id NUMBER;
7843: l_notif_attr_rec OKS_WF_K_PROCESS_PVT.notif_attr_rec;
7844:
7845: BEGIN
7846: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7848: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7849: END IF;
7850: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7843: l_notif_attr_rec OKS_WF_K_PROCESS_PVT.notif_attr_rec;
7844:
7845: BEGIN
7846: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7848: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7849: END IF;
7850: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7851: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7846: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7848: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7849: END IF;
7850: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7851: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7852: 'itemtype: ' || itemtype ||
7853: ' itemkey: ' || itemkey ||
7854: ' actid: ' || to_char(actid) ||
7847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7848: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
7849: END IF;
7850: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7851: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7852: 'itemtype: ' || itemtype ||
7853: ' itemkey: ' || itemkey ||
7854: ' actid: ' || to_char(actid) ||
7855: ' funcmode: ' || funcmode);
7864: OPEN l_pdf_csr(l_contract_id);
7865: FETCH l_pdf_csr into l_pdf_id;
7866: CLOSE l_pdf_csr;
7867:
7868: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7869: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'Pdf Id: ' || l_pdf_id);
7870: END IF;
7871:
7872: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7865: FETCH l_pdf_csr into l_pdf_id;
7866: CLOSE l_pdf_csr;
7867:
7868: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7869: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'Pdf Id: ' || l_pdf_id);
7870: END IF;
7871:
7872: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7873: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7868: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7869: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'Pdf Id: ' || l_pdf_id);
7870: END IF;
7871:
7872: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7873: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7874: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(p_contract_id= '||
7875: l_contract_id||' p_process_id='||l_pdf_id||')');
7876: END IF;
7869: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,'Pdf Id: ' || l_pdf_id);
7870: END IF;
7871:
7872: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7873: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7874: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(p_contract_id= '||
7875: l_contract_id||' p_process_id='||l_pdf_id||')');
7876: END IF;
7877: BEGIN
7889: );
7890: EXCEPTION
7891: WHEN OTHERS THEN
7892: l_return_status := G_RET_STS_UNEXP_ERROR;
7893: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7894: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7895: 'In Others exception for OKS_WF_K_PROCESS_PVT.k_approval_start');
7896: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7897: 'Error: '|| substr(SQLERRM,1,500));
7890: EXCEPTION
7891: WHEN OTHERS THEN
7892: l_return_status := G_RET_STS_UNEXP_ERROR;
7893: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7894: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7895: 'In Others exception for OKS_WF_K_PROCESS_PVT.k_approval_start');
7896: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7897: 'Error: '|| substr(SQLERRM,1,500));
7898: END IF;
7892: l_return_status := G_RET_STS_UNEXP_ERROR;
7893: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7894: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7895: 'In Others exception for OKS_WF_K_PROCESS_PVT.k_approval_start');
7896: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7897: 'Error: '|| substr(SQLERRM,1,500));
7898: END IF;
7899: END;
7900: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7896: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,
7897: 'Error: '|| substr(SQLERRM,1,500));
7898: END IF;
7899: END;
7900: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7901: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7902: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(x_return_status= '||
7903: l_return_status||' x_msg_count='||l_msg_count||')');
7904: END IF;
7897: 'Error: '|| substr(SQLERRM,1,500));
7898: END IF;
7899: END;
7900: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7901: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7902: 'OKC_CONTRACT_APPROVAL_PUB.k_approval_start(x_return_status= '||
7903: l_return_status||' x_msg_count='||l_msg_count||')');
7904: END IF;
7905:
7928: l_notif_attr_rec.SUBJECT := get_lookup_meaning(G_NEG_STS_IA_FAIL,G_LKUP_TYPE_NEGO_STATUS);
7929: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
7930: l_notif_attr_rec.MSGS_FROM_STACK_YN:= 'Y';
7931:
7932: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7933: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7934: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
7935: ' Contract ID ='||l_contract_id||
7936: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
7929: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
7930: l_notif_attr_rec.MSGS_FROM_STACK_YN:= 'Y';
7931:
7932: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7933: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
7934: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
7935: ' Contract ID ='||l_contract_id||
7936: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
7937: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
7944: x_return_status => l_return_status,
7945: x_msg_data => l_msg_data,
7946: x_msg_count => l_msg_count
7947: );
7948: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7949: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7950: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
7951: l_return_status||' x_msg_count ='||l_msg_count||')');
7952: END IF;
7945: x_msg_data => l_msg_data,
7946: x_msg_count => l_msg_count
7947: );
7948: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7949: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
7950: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
7951: l_return_status||' x_msg_count ='||l_msg_count||')');
7952: END IF;
7953: IF l_return_status <> G_RET_STS_SUCCESS THEN
7957: ELSE
7958: resultout := 'NOTIFIED:';
7959: END IF;
7960:
7961: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7962: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7963: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
7964: END IF;
7965: RETURN;
7958: resultout := 'NOTIFIED:';
7959: END IF;
7960:
7961: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7962: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7963: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
7964: END IF;
7965: RETURN;
7966: END IF; -- (funcmode = 'RUN')
7966: END IF; -- (funcmode = 'RUN')
7967:
7968: IF (funcmode = 'CANCEL') THEN
7969: resultout := 'COMPLETE:';
7970: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7971: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7972: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7973: END IF;
7974: RETURN;
7967:
7968: IF (funcmode = 'CANCEL') THEN
7969: resultout := 'COMPLETE:';
7970: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7971: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7972: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
7973: END IF;
7974: RETURN;
7975: END IF; -- (funcmode = 'CANCEL')
7975: END IF; -- (funcmode = 'CANCEL')
7976:
7977: IF (funcmode = 'TIMEOUT') THEN
7978: resultout := 'COMPLETE:';
7979: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7980: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7981: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7982: END IF;
7983: RETURN;
7976:
7977: IF (funcmode = 'TIMEOUT') THEN
7978: resultout := 'COMPLETE:';
7979: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7980: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7981: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
7982: END IF;
7983: RETURN;
7984: END IF; -- (funcmode = 'TIMEOUT')
7985: EXCEPTION
7986: WHEN FND_API.G_EXC_ERROR THEN
7987: resultout := 'COMPLETE:ERROR';
7988: l_msg_data := get_fnd_message;
7989: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7990: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7991: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7992: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7993: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7986: WHEN FND_API.G_EXC_ERROR THEN
7987: resultout := 'COMPLETE:ERROR';
7988: l_msg_data := get_fnd_message;
7989: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7990: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7991: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7992: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7993: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7994: END IF;
7989: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7990: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7991: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7992: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
7993: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
7994: END IF;
7995: wf_core.CONTEXT
7996: (
7997: pkg_name => G_PKG_NAME,
8001: arg3 => l_msg_data
8002: );
8003: WHEN others THEN
8004: resultout := 'COMPLETE:ERROR';
8005: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8006: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8007: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
8008: ||SQLCODE||', sqlerrm = '||SQLERRM);
8009: END IF;
8002: );
8003: WHEN others THEN
8004: resultout := 'COMPLETE:ERROR';
8005: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8006: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8007: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
8008: ||SQLCODE||', sqlerrm = '||SQLERRM);
8009: END IF;
8010: wf_core.CONTEXT
8069: l_email_attr_rec OKS_WF_K_PROCESS_PVT.email_attr_rec;
8070:
8071: BEGIN
8072: -- start debug log
8073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8075: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8076: END IF;
8077: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8070:
8071: BEGIN
8072: -- start debug log
8073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8075: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8076: END IF;
8077: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8078: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8075: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8076: END IF;
8077: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8078: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8079: 'Item key: ' || NVL(p_item_key,'NULL') ||
8080: ' Accept Confirm Flag: ' || p_accept_confirm_yn);
8081: END IF;
8074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8075: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8076: END IF;
8077: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8078: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8079: 'Item key: ' || NVL(p_item_key,'NULL') ||
8080: ' Accept Confirm Flag: ' || p_accept_confirm_yn);
8081: END IF;
8082:
8130: l_email_attr_rec.EMAIL_SUBJECT := NULL;
8131: l_email_attr_rec.IH_SUBJECT := NULL;
8132: l_email_attr_rec.IH_MESSAGE := NULL;
8133:
8134: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8135: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8136: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
8137: ' Contract ID ='||p_contract_id||
8138: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
8131: l_email_attr_rec.IH_SUBJECT := NULL;
8132: l_email_attr_rec.IH_MESSAGE := NULL;
8133:
8134: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8135: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8136: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
8137: ' Contract ID ='||p_contract_id||
8138: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
8139: END IF;
8145: x_return_status => x_return_status,
8146: x_msg_data => x_msg_data,
8147: x_msg_count => x_msg_count
8148: );
8149: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8150: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8151: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8152: x_return_status||' x_msg_count ='||x_msg_count||')');
8153: END IF;
8146: x_msg_data => x_msg_data,
8147: x_msg_count => x_msg_count
8148: );
8149: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8150: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8151: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8152: x_return_status||' x_msg_count ='||x_msg_count||')');
8153: END IF;
8154: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8168: FND_MSG_PUB.add;
8169: RAISE FND_API.G_EXC_ERROR;
8170: END IF;
8171:
8172: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8173: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8174: 'Item key: ' || l_item_key ||
8175: ' Completing activity - Activity Name: ' || l_activity_name);
8176: END IF;
8169: RAISE FND_API.G_EXC_ERROR;
8170: END IF;
8171:
8172: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8173: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8174: 'Item key: ' || l_item_key ||
8175: ' Completing activity - Activity Name: ' || l_activity_name);
8176: END IF;
8177:
8200:
8201: -- Standard call to get message count and if count is 1, get message info.
8202: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
8203:
8204: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8206: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8207: END IF;
8208:
8201: -- Standard call to get message count and if count is 1, get message info.
8202: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
8203:
8204: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8206: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8207: END IF;
8208:
8209: EXCEPTION
8209: EXCEPTION
8210: WHEN FND_API.G_EXC_ERROR THEN
8211: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8212: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8215: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8216: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8217: END IF;
8210: WHEN FND_API.G_EXC_ERROR THEN
8211: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8212: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8215: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8216: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8217: END IF;
8218: x_return_status := G_RET_STS_ERROR;
8212: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8215: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8216: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8217: END IF;
8218: x_return_status := G_RET_STS_ERROR;
8219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8220: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8218: x_return_status := G_RET_STS_ERROR;
8219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8220: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8221: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8224: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8226: END IF;
8219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8220: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8221: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8224: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8226: END IF;
8227: x_return_status := G_RET_STS_UNEXP_ERROR ;
8221: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8224: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8226: END IF;
8227: x_return_status := G_RET_STS_UNEXP_ERROR ;
8228: WHEN OTHERS THEN
8229: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8226: END IF;
8227: x_return_status := G_RET_STS_UNEXP_ERROR ;
8228: WHEN OTHERS THEN
8229: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8230: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8232: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
8233: ||SQLCODE||', sqlerrm = '||SQLERRM);
8234: END IF;
8227: x_return_status := G_RET_STS_UNEXP_ERROR ;
8228: WHEN OTHERS THEN
8229: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8230: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8231: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8232: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
8233: ||SQLCODE||', sqlerrm = '||SQLERRM);
8234: END IF;
8235: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
8300: l_email_attr_rec OKS_WF_K_PROCESS_PVT.email_attr_rec;
8301:
8302: BEGIN
8303: -- start debug log
8304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8306: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8307: END IF;
8308: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8301:
8302: BEGIN
8303: -- start debug log
8304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8306: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8307: END IF;
8308: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8309: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8306: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8307: END IF;
8308: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8309: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8310: 'Item key: ' || NVL(l_item_key,'NULL')||' Cancel source '||p_cancel_source);
8311: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8312: 'Cancellation reason: ' || substr(NVL(p_cancellation_reason,'NULL'),1,1500)
8305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8306: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8307: END IF;
8308: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8309: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8310: 'Item key: ' || NVL(l_item_key,'NULL')||' Cancel source '||p_cancel_source);
8311: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8312: 'Cancellation reason: ' || substr(NVL(p_cancellation_reason,'NULL'),1,1500)
8313: || ' Cancellation date: ' || to_char(p_cancellation_date));
8307: END IF;
8308: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8309: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8310: 'Item key: ' || NVL(l_item_key,'NULL')||' Cancel source '||p_cancel_source);
8311: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8312: 'Cancellation reason: ' || substr(NVL(p_cancellation_reason,'NULL'),1,1500)
8313: || ' Cancellation date: ' || to_char(p_cancellation_date));
8314: END IF;
8315:
8352: );
8353: IF l_activity_name = G_SALESREP_ACTION THEN
8354: l_result_out := 'SR_CNCLD';
8355: l_process_status:= G_NEG_STS_QUOTE_CNCLD;
8356: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8358: 'Salesrep Cancelling: '||G_PKG_NAME ||'.'||l_api_name);
8359: END IF;
8360: ELSIF l_activity_name = G_CUST_ACTION THEN
8353: IF l_activity_name = G_SALESREP_ACTION THEN
8354: l_result_out := 'SR_CNCLD';
8355: l_process_status:= G_NEG_STS_QUOTE_CNCLD;
8356: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8358: 'Salesrep Cancelling: '||G_PKG_NAME ||'.'||l_api_name);
8359: END IF;
8360: ELSIF l_activity_name = G_CUST_ACTION THEN
8361: -- Customer is decling the quote
8361: -- Customer is decling the quote
8362: IF NVL(p_cancel_source,'!') = G_PERFORMED_BY_CUST THEN
8363: l_result_out := 'DECLINE';
8364: l_process_status:= G_NEG_STS_QUOTE_DECLD;
8365: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8366: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8367: 'Customer Declining: '||G_PKG_NAME ||'.'||l_api_name);
8368: END IF;
8369:
8362: IF NVL(p_cancel_source,'!') = G_PERFORMED_BY_CUST THEN
8363: l_result_out := 'DECLINE';
8364: l_process_status:= G_NEG_STS_QUOTE_DECLD;
8365: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8366: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8367: 'Customer Declining: '||G_PKG_NAME ||'.'||l_api_name);
8368: END IF;
8369:
8370: -- Salesrep canceling the contract while waiting for customer action.
8370: -- Salesrep canceling the contract while waiting for customer action.
8371: ELSE
8372: l_result_out := 'SR_CNCLD';
8373: l_process_status:= G_NEG_STS_QUOTE_CNCLD;
8374: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8376: 'Salesrep Cancelling for Customer: '||G_PKG_NAME ||'.'||l_api_name);
8377: END IF;
8378:
8371: ELSE
8372: l_result_out := 'SR_CNCLD';
8373: l_process_status:= G_NEG_STS_QUOTE_CNCLD;
8374: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8376: 'Salesrep Cancelling for Customer: '||G_PKG_NAME ||'.'||l_api_name);
8377: END IF;
8378:
8379: -- bug 5845505, send email only if template for the document type is setup
8376: 'Salesrep Cancelling for Customer: '||G_PKG_NAME ||'.'||l_api_name);
8377: END IF;
8378:
8379: -- bug 5845505, send email only if template for the document type is setup
8380: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8381: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8382: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
8383: ' Contract ID ='||p_contract_id||
8384: ' Document Type ='||G_REPORT_TYPE_CANCEL||')');
8377: END IF;
8378:
8379: -- bug 5845505, send email only if template for the document type is setup
8380: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8381: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8382: 'OKS_WF_K_PROCESS_PVT.is_template_defined('||
8383: ' Contract ID ='||p_contract_id||
8384: ' Document Type ='||G_REPORT_TYPE_CANCEL||')');
8385: END IF;
8394: x_msg_data => x_msg_data,
8395: x_msg_count => x_msg_count
8396: );
8397:
8398: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8399: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8400: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
8401: x_return_status||' x_msg_count ='||x_msg_count||')');
8402: END IF;
8395: x_msg_count => x_msg_count
8396: );
8397:
8398: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8399: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8400: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
8401: x_return_status||' x_msg_count ='||x_msg_count||')');
8402: END IF;
8403: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8418: -- accessible to vendor
8419: l_reason := get_lookup_meaning(p_cancellation_reason,G_LKUP_VNDR_CNCL_REASON);
8420:
8421: --log interaction (media type WEB FORM) that salesrep has declined the quote
8422: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8423: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8424: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
8425: ' Contract ID = '||p_contract_id||
8426: substr(' IH Message = '||p_comments,1,100)||
8419: l_reason := get_lookup_meaning(p_cancellation_reason,G_LKUP_VNDR_CNCL_REASON);
8420:
8421: --log interaction (media type WEB FORM) that salesrep has declined the quote
8422: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8423: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8424: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
8425: ' Contract ID = '||p_contract_id||
8426: substr(' IH Message = '||p_comments,1,100)||
8427: substr(' IH Subject = '||l_reason||')',1,100));
8437: p_msg_body => p_comments,
8438: p_sent2_email => NULL,
8439: p_media_type => G_MEDIA_TYPE_WEB_FORM
8440: );
8441: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8442: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8443: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
8444: x_return_status||' x_msg_count ='||x_msg_count||')');
8445: END IF;
8438: p_sent2_email => NULL,
8439: p_media_type => G_MEDIA_TYPE_WEB_FORM
8440: );
8441: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8442: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8443: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
8444: x_return_status||' x_msg_count ='||x_msg_count||')');
8445: END IF;
8446: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8455: l_email_attr_rec.EMAIL_TYPE := G_REPORT_TYPE_CANCEL;
8456: l_email_attr_rec.TO_EMAIL := NULL;
8457: l_email_attr_rec.SENDER_EMAIL := NULL;
8458:
8459: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8460: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8461: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
8462: ' Contract ID ='||p_contract_id||
8463: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
8456: l_email_attr_rec.TO_EMAIL := NULL;
8457: l_email_attr_rec.SENDER_EMAIL := NULL;
8458:
8459: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8460: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8461: 'OKS_WF_K_PROCESS_PVT.set_email_attributes('||
8462: ' Contract ID ='||p_contract_id||
8463: ' Email Type ='||l_email_attr_rec.EMAIL_TYPE||')');
8464: END IF;
8470: x_return_status => x_return_status,
8471: x_msg_data => x_msg_data,
8472: x_msg_count => x_msg_count
8473: );
8474: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8475: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8476: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8477: x_return_status||' x_msg_count ='||x_msg_count||')');
8478: END IF;
8471: x_msg_data => x_msg_data,
8472: x_msg_count => x_msg_count
8473: );
8474: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8475: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8476: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8477: x_return_status||' x_msg_count ='||x_msg_count||')');
8478: END IF;
8479: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8486: ELSE
8487:
8488: -- MKS 10/12/2005 Bug#4643300: Need to stamp even for non salesrep/customer nodes.
8489:
8490: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8491: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8492: 'Aborting Process and Updating Contract '||G_PKG_NAME ||'.'||l_api_name);
8493: END IF;
8494: UPDATE oks_k_headers_b
8487:
8488: -- MKS 10/12/2005 Bug#4643300: Need to stamp even for non salesrep/customer nodes.
8489:
8490: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8491: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8492: 'Aborting Process and Updating Contract '||G_PKG_NAME ||'.'||l_api_name);
8493: END IF;
8494: UPDATE oks_k_headers_b
8495: SET renewal_status = G_NEG_STS_QUOTE_CNCLD,
8500: last_updated_by = FND_GLOBAL.USER_ID,
8501: last_update_login = FND_GLOBAL.LOGIN_ID
8502: WHERE chr_id = p_contract_id;
8503: wf_engine.AbortProcess (G_ITEM_TYPE, l_item_key);
8504: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8505: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8506: 'Updated Contract and Process Aborted '||G_PKG_NAME ||'.'||l_api_name);
8507: END IF;
8508: END IF;
8501: last_update_login = FND_GLOBAL.LOGIN_ID
8502: WHERE chr_id = p_contract_id;
8503: wf_engine.AbortProcess (G_ITEM_TYPE, l_item_key);
8504: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8505: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8506: 'Updated Contract and Process Aborted '||G_PKG_NAME ||'.'||l_api_name);
8507: END IF;
8508: END IF;
8509:
8507: END IF;
8508: END IF;
8509:
8510: IF l_activity_name IN (G_SALESREP_ACTION, G_CUST_ACTION) THEN
8511: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8512: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8513: 'OKS_WF_K_PROCESS_PVT.complete_activity(p_contract_id= '||
8514: p_contract_id||' p_resultout ='||l_result_out||
8515: ' p_process_status ='||l_process_status||
8508: END IF;
8509:
8510: IF l_activity_name IN (G_SALESREP_ACTION, G_CUST_ACTION) THEN
8511: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8512: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8513: 'OKS_WF_K_PROCESS_PVT.complete_activity(p_contract_id= '||
8514: p_contract_id||' p_resultout ='||l_result_out||
8515: ' p_process_status ='||l_process_status||
8516: ' p_activity_name ='||l_activity_name||')');
8527: x_return_status => x_return_status,
8528: x_msg_count => x_msg_count,
8529: x_msg_data => x_msg_data
8530: ) ;
8531: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8532: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8533: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||
8534: x_return_status||' x_msg_count ='||x_msg_count||')');
8535: END IF;
8528: x_msg_count => x_msg_count,
8529: x_msg_data => x_msg_data
8530: ) ;
8531: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8532: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8533: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||
8534: x_return_status||' x_msg_count ='||x_msg_count||')');
8535: END IF;
8536: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8546:
8547: -- Standard call to get message count and if count is 1, get message info.
8548: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
8549:
8550: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8552: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8553: END IF;
8554:
8547: -- Standard call to get message count and if count is 1, get message info.
8548: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
8549:
8550: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8552: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8553: END IF;
8554:
8555: EXCEPTION
8554:
8555: EXCEPTION
8556: WHEN FND_API.G_EXC_ERROR THEN
8557: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8559: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8562: END IF;
8555: EXCEPTION
8556: WHEN FND_API.G_EXC_ERROR THEN
8557: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8559: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8562: END IF;
8563: x_return_status := G_RET_STS_ERROR;
8557: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8559: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8562: END IF;
8563: x_return_status := G_RET_STS_ERROR;
8564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8562: END IF;
8563: x_return_status := G_RET_STS_ERROR;
8564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8568: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8570: END IF;
8563: x_return_status := G_RET_STS_ERROR;
8564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8568: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8570: END IF;
8571: x_return_status := G_RET_STS_UNEXP_ERROR ;
8565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8568: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8569: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8570: END IF;
8571: x_return_status := G_RET_STS_UNEXP_ERROR ;
8572: WHEN OTHERS THEN
8573: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8570: END IF;
8571: x_return_status := G_RET_STS_UNEXP_ERROR ;
8572: WHEN OTHERS THEN
8573: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8574: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8575: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8576: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
8577: ||SQLCODE||', sqlerrm = '||SQLERRM);
8578: END IF;
8571: x_return_status := G_RET_STS_UNEXP_ERROR ;
8572: WHEN OTHERS THEN
8573: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8574: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8575: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
8576: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from OTHERS sqlcode = '
8577: ||SQLCODE||', sqlerrm = '||SQLERRM);
8578: END IF;
8579: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
8618: l_notif_attr_rec OKS_WF_K_PROCESS_PVT.notif_attr_rec;
8619:
8620: BEGIN
8621:
8622: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
8624: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8625: END IF;
8626:
8619:
8620: BEGIN
8621:
8622: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
8624: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8625: END IF;
8626:
8627: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
8624: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8625: END IF;
8626:
8627: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8628: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8629: 'itemtype: ' || itemtype ||
8630: ' itemkey: ' || itemkey ||
8631: ' actid: ' || to_char(actid) ||
8624: 'Entered '||G_PKG_NAME ||'.'||l_api_name);
8625: END IF;
8626:
8627: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8628: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8629: 'itemtype: ' || itemtype ||
8630: ' itemkey: ' || itemkey ||
8631: ' actid: ' || to_char(actid) ||
8632: ' funcmode: ' || funcmode);
8637: itemtype => itemtype,
8638: itemkey => itemkey,
8639: aname => 'CONTRACT_ID');
8640:
8641: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8642: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8643: 'OKC_CONTRACT_APPROVAL_PUB.k_approved(p_contract_id= '||l_contract_id||')');
8644: END IF;
8645: -- update the date approved of the contract
8638: itemkey => itemkey,
8639: aname => 'CONTRACT_ID');
8640:
8641: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8642: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8643: 'OKC_CONTRACT_APPROVAL_PUB.k_approved(p_contract_id= '||l_contract_id||')');
8644: END IF;
8645: -- update the date approved of the contract
8646: OKC_CONTRACT_APPROVAL_PUB.k_approved
8647: (
8648: p_contract_id => l_contract_id,
8649: x_return_status => l_return_status
8650: );
8651: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8652: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8653: 'OKC_CONTRACT_APPROVAL_PUB.k_approved(x_return_status= '||l_return_status||')');
8654: END IF;
8655: IF l_return_status <> G_RET_STS_SUCCESS THEN
8648: p_contract_id => l_contract_id,
8649: x_return_status => l_return_status
8650: );
8651: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8652: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8653: 'OKC_CONTRACT_APPROVAL_PUB.k_approved(x_return_status= '||l_return_status||')');
8654: END IF;
8655: IF l_return_status <> G_RET_STS_SUCCESS THEN
8656: update_negotiation_status
8677: l_notif_attr_rec.SUBJECT := get_lookup_meaning(G_NEG_STS_IA_FAIL,G_LKUP_TYPE_NEGO_STATUS);
8678: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
8679: l_notif_attr_rec.MSGS_FROM_STACK_YN:= 'Y';
8680:
8681: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8682: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8683: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
8684: ' Contract ID ='||l_contract_id||
8685: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
8678: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
8679: l_notif_attr_rec.MSGS_FROM_STACK_YN:= 'Y';
8680:
8681: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8682: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8683: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
8684: ' Contract ID ='||l_contract_id||
8685: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
8686: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
8693: x_return_status => l_return_status,
8694: x_msg_data => l_msg_data,
8695: x_msg_count => l_msg_count
8696: );
8697: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8698: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8699: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8700: l_return_status||' x_msg_count ='||l_msg_count||')');
8701: END IF;
8694: x_msg_data => l_msg_data,
8695: x_msg_count => l_msg_count
8696: );
8697: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8698: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8699: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8700: l_return_status||' x_msg_count ='||l_msg_count||')');
8701: END IF;
8702: RAISE FND_API.G_EXC_ERROR;
8701: END IF;
8702: RAISE FND_API.G_EXC_ERROR;
8703: END IF;
8704:
8705: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8706: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8707: 'OKC_CONTRACT_APPROVAL_PUB.k_signed(p_contract_id= '||l_contract_id||')');
8708: END IF;
8709: -- sign the contract
8702: RAISE FND_API.G_EXC_ERROR;
8703: END IF;
8704:
8705: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8706: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8707: 'OKC_CONTRACT_APPROVAL_PUB.k_signed(p_contract_id= '||l_contract_id||')');
8708: END IF;
8709: -- sign the contract
8710: OKC_CONTRACT_APPROVAL_PUB.k_signed
8712: p_contract_id => l_contract_id,
8713: p_complete_k_prcs => 'N',
8714: x_return_status => l_return_status
8715: );
8716: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8717: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8718: 'OKC_CONTRACT_APPROVAL_PUB.k_signed(x_return_status= '||l_return_status||')');
8719: END IF;
8720: IF l_return_status <> G_RET_STS_SUCCESS THEN
8713: p_complete_k_prcs => 'N',
8714: x_return_status => l_return_status
8715: );
8716: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8717: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8718: 'OKC_CONTRACT_APPROVAL_PUB.k_signed(x_return_status= '||l_return_status||')');
8719: END IF;
8720: IF l_return_status <> G_RET_STS_SUCCESS THEN
8721: update_negotiation_status
8742: l_notif_attr_rec.SUBJECT := get_lookup_meaning(G_NEG_STS_IA_FAIL,G_LKUP_TYPE_NEGO_STATUS);
8743: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
8744: l_notif_attr_rec.MSGS_FROM_STACK_YN:= 'Y';
8745:
8746: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8747: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8748: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
8749: ' Contract ID ='||l_contract_id||
8750: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
8743: l_notif_attr_rec.ACCEPT_DECLINE_BY := NULL;
8744: l_notif_attr_rec.MSGS_FROM_STACK_YN:= 'Y';
8745:
8746: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8747: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8748: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes('||
8749: ' Contract ID ='||l_contract_id||
8750: ' Notification Type ='||l_notif_attr_rec.NTF_TYPE||
8751: ' Subject ='||l_notif_attr_rec.NTF_SUBJECT||')');
8758: x_return_status => l_return_status,
8759: x_msg_data => l_msg_data,
8760: x_msg_count => l_msg_count
8761: );
8762: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8763: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8764: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8765: l_return_status||' x_msg_count ='||l_msg_count||')');
8766: END IF;
8759: x_msg_data => l_msg_data,
8760: x_msg_count => l_msg_count
8761: );
8762: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8763: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8764: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8765: l_return_status||' x_msg_count ='||l_msg_count||')');
8766: END IF;
8767: RAISE FND_API.G_EXC_ERROR;
8767: RAISE FND_API.G_EXC_ERROR;
8768: END IF;
8769:
8770: resultout := 'COMPLETE:T';
8771: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8772: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8773: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8774: END IF;
8775: RETURN;
8768: END IF;
8769:
8770: resultout := 'COMPLETE:T';
8771: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8772: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8773: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8774: END IF;
8775: RETURN;
8776: END IF; -- (funcmode = 'RUN')
8776: END IF; -- (funcmode = 'RUN')
8777:
8778: IF (funcmode = 'CANCEL') THEN
8779: resultout := 'COMPLETE:';
8780: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8781: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8782: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
8783: END IF;
8784: RETURN;
8777:
8778: IF (funcmode = 'CANCEL') THEN
8779: resultout := 'COMPLETE:';
8780: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8781: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8782: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=CANCEL');
8783: END IF;
8784: RETURN;
8785: END IF; -- (funcmode = 'CANCEL')
8785: END IF; -- (funcmode = 'CANCEL')
8786:
8787: IF (funcmode = 'TIMEOUT') THEN
8788: resultout := 'COMPLETE:';
8789: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8790: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8791: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
8792: END IF;
8793: RETURN;
8786:
8787: IF (funcmode = 'TIMEOUT') THEN
8788: resultout := 'COMPLETE:';
8789: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8790: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8791: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=TIMEOUT');
8792: END IF;
8793: RETURN;
8794: END IF; -- (funcmode = 'TIMEOUT')
8795: EXCEPTION
8796: WHEN FND_API.G_EXC_ERROR THEN
8797: resultout := 'COMPLETE:F';
8798: l_msg_data := get_fnd_message;
8799: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8800: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8801: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
8802: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
8803: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
8796: WHEN FND_API.G_EXC_ERROR THEN
8797: resultout := 'COMPLETE:F';
8798: l_msg_data := get_fnd_message;
8799: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8800: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8801: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
8802: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
8803: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
8804: END IF;
8799: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8800: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8801: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
8802: ||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
8803: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
8804: END IF;
8805: wf_core.CONTEXT
8806: (
8807: pkg_name => G_PKG_NAME,
8812: );
8813: WHEN others THEN
8814: resultout := 'COMPLETE:F';
8815: l_msg_data := get_fnd_message;
8816: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8817: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8818: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
8819: ||SQLCODE||', sqlerrm = '||SQLERRM);
8820: END IF;
8813: WHEN others THEN
8814: resultout := 'COMPLETE:F';
8815: l_msg_data := get_fnd_message;
8816: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8817: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8818: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.Others sqlcode = '
8819: ||SQLCODE||', sqlerrm = '||SQLERRM);
8820: END IF;
8821: wf_core.CONTEXT
9053: l_date DATE := sysdate;
9054:
9055: BEGIN
9056: --log key input parameters
9057: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
9058: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_api_version=' || p_api_version ||' ,p_commit='|| p_commit ||' ,p_wf_attributes_tbl.count='|| p_wf_attributes_tbl.count||' ,p_update_item_key='||p_update_item_key);
9059: END IF;
9060:
9061: --standard api initilization and checks
9054:
9055: BEGIN
9056: --log key input parameters
9057: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
9058: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_api_version=' || p_api_version ||' ,p_commit='|| p_commit ||' ,p_wf_attributes_tbl.count='|| p_wf_attributes_tbl.count||' ,p_update_item_key='||p_update_item_key);
9059: END IF;
9060:
9061: --standard api initilization and checks
9062: SAVEPOINT launch_k_process_wf_blk_PVT;
9130: END LOOP;
9131:
9132: IF (l_contract_id_count > 0) THEN
9133:
9134: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
9135: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_wf', 'l_contract_id_count='||l_contract_id_count||' ,calling WF_ENGINE_BULK.createprocess');
9136: END IF;
9137:
9138: WF_ENGINE_BULK.createprocess(
9131:
9132: IF (l_contract_id_count > 0) THEN
9133:
9134: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
9135: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_wf', 'l_contract_id_count='||l_contract_id_count||' ,calling WF_ENGINE_BULK.createprocess');
9136: END IF;
9137:
9138: WF_ENGINE_BULK.createprocess(
9139: itemtype => G_ITEM_TYPE,
9201: itemkeys => l_item_keys,
9202: anames => l_security_group_id_names,
9203: avalues => l_security_group_id_values);
9204:
9205: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
9206: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_wf', ',calling WF_ENGINE_BULK.startprocess');
9207: END IF;
9208:
9209: WF_ENGINE_BULK.startprocess(
9202: anames => l_security_group_id_names,
9203: avalues => l_security_group_id_values);
9204:
9205: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
9206: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.bulk_wf', ',calling WF_ENGINE_BULK.startprocess');
9207: END IF;
9208:
9209: WF_ENGINE_BULK.startprocess(
9210: itemtype => G_ITEM_TYPE,
9211: itemkeys => l_item_keys);
9212:
9213: IF ( nvl(p_update_item_key, 'N') = 'Y' ) THEN
9214:
9215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
9216: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update', ',upating oks_k_headers_b');
9217: END IF;
9218:
9219: FORALL i IN l_contract_id_values.FIRST..l_contract_id_values.LAST
9212:
9213: IF ( nvl(p_update_item_key, 'N') = 'Y' ) THEN
9214:
9215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
9216: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update', ',upating oks_k_headers_b');
9217: END IF;
9218:
9219: FORALL i IN l_contract_id_values.FIRST..l_contract_id_values.LAST
9220: UPDATE oks_k_headers_b
9241: --standard check of p_commit
9242: IF FND_API.to_boolean( p_commit ) THEN
9243: COMMIT;
9244: END IF;
9245: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
9246: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
9247: END IF;
9248: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9249:
9242: IF FND_API.to_boolean( p_commit ) THEN
9243: COMMIT;
9244: END IF;
9245: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
9246: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
9247: END IF;
9248: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9249:
9250: EXCEPTION
9251: WHEN FND_API.g_exc_error THEN
9252: ROLLBACK TO launch_k_process_wf_blk_PVT;
9253: x_return_status := FND_API.g_ret_sts_error ;
9254:
9255: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
9256: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
9257: END IF;
9258: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9259:
9252: ROLLBACK TO launch_k_process_wf_blk_PVT;
9253: x_return_status := FND_API.g_ret_sts_error ;
9254:
9255: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
9256: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
9257: END IF;
9258: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9259:
9260: WHEN FND_API.g_exc_unexpected_error THEN
9260: WHEN FND_API.g_exc_unexpected_error THEN
9261: ROLLBACK TO launch_k_process_wf_blk_PVT;
9262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9263:
9264: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9265: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
9266: END IF;
9267: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9268:
9261: ROLLBACK TO launch_k_process_wf_blk_PVT;
9262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9263:
9264: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9265: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
9266: END IF;
9267: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9268:
9269: WHEN OTHERS THEN
9278: --set the status to error, so that calling program can handle it
9279: x_return_status := FND_API.g_ret_sts_error ;
9280: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_wf_err_name||' '||l_wf_err_msg);
9281:
9282: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9283: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'x_return_status=' || x_return_status);
9284: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'err_name=' || l_wf_err_name||', err_msg='|| l_wf_err_msg||',err_stack='|| l_wf_err_stack);
9285: END IF;
9286:
9279: x_return_status := FND_API.g_ret_sts_error ;
9280: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_wf_err_name||' '||l_wf_err_msg);
9281:
9282: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9283: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'x_return_status=' || x_return_status);
9284: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'err_name=' || l_wf_err_name||', err_msg='|| l_wf_err_msg||',err_stack='|| l_wf_err_stack);
9285: END IF;
9286:
9287: ELSE
9280: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_wf_err_name||' '||l_wf_err_msg);
9281:
9282: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9283: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'x_return_status=' || x_return_status);
9284: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'err_name=' || l_wf_err_name||', err_msg='|| l_wf_err_msg||',err_stack='|| l_wf_err_stack);
9285: END IF;
9286:
9287: ELSE
9288: --other error
9287: ELSE
9288: --other error
9289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9290:
9291: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9292: --first log the sqlerrm
9293: l_error_text := substr (SQLERRM, 1, 240);
9294: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
9295: --then add it to the message api list
9290:
9291: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9292: --first log the sqlerrm
9293: l_error_text := substr (SQLERRM, 1, 240);
9294: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
9295: --then add it to the message api list
9296: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
9297: END IF;
9298: END IF;