40:
41: C_delTypeExists_rec C_delTypeExists%ROWTYPE;
42: BEGIN
43:
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_allowed (OVERLOADED) ');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
47: ,'101: p_deliverable_type = '||p_deliverable_type);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
41: C_delTypeExists_rec C_delTypeExists%ROWTYPE;
42: BEGIN
43:
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_allowed (OVERLOADED) ');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
47: ,'101: p_deliverable_type = '||p_deliverable_type);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
49: ,'102: p_target_doc_type = '||p_target_doc_type);
42: BEGIN
43:
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_allowed (OVERLOADED) ');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
47: ,'101: p_deliverable_type = '||p_deliverable_type);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
49: ,'102: p_target_doc_type = '||p_target_doc_type);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_allowed (OVERLOADED) ');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
47: ,'101: p_deliverable_type = '||p_deliverable_type);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
49: ,'102: p_target_doc_type = '||p_target_doc_type);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
51: ,'103: p_target_contractual_doc_type = '||p_target_contractual_doc_type);
52: END IF;
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
47: ,'101: p_deliverable_type = '||p_deliverable_type);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
49: ,'102: p_target_doc_type = '||p_target_doc_type);
50: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
51: ,'103: p_target_contractual_doc_type = '||p_target_contractual_doc_type);
52: END IF;
53:
54: IF p_deliverable_type is null OR p_target_doc_type is null THEN
80: IF C_delTypeExists%ISOPEN THEN
81: CLOSE C_delTypeExists;
82: END IF;
83:
84: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
85: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
86: ,'104: Returning l_return_value = ');
87: END IF;
88: return l_return_value;
81: CLOSE C_delTypeExists;
82: END IF;
83:
84: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
85: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
86: ,'104: Returning l_return_value = ');
87: END IF;
88: return l_return_value;
89:
91: WHEN OTHERS THEN
92: IF C_delTypeExists%ISOPEN THEN
93: CLOSE C_delTypeExists;
94: END IF;
95: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
96: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
97: ,'106: IN EXCEPTION '||substr(sqlerrm,1,200));
98: END IF;
99:
92: IF C_delTypeExists%ISOPEN THEN
93: CLOSE C_delTypeExists;
94: END IF;
95: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
96: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
97: ,'106: IN EXCEPTION '||substr(sqlerrm,1,200));
98: END IF;
99:
100: return l_return_value;
126:
127: C_delTypeExists_rec C_delTypeExists%ROWTYPE;
128: BEGIN
129:
130: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_mapping_allowed ');
132: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
133: ,'101: p_deliverable_type = '||p_deliverable_type);
134: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
127: C_delTypeExists_rec C_delTypeExists%ROWTYPE;
128: BEGIN
129:
130: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_mapping_allowed ');
132: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
133: ,'101: p_deliverable_type = '||p_deliverable_type);
134: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
135: ,'102: p_target_doc_type = '||p_target_doc_type);
128: BEGIN
129:
130: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_mapping_allowed ');
132: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
133: ,'101: p_deliverable_type = '||p_deliverable_type);
134: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
135: ,'102: p_target_doc_type = '||p_target_doc_type);
136: END IF;
130: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_mapping_allowed ');
132: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
133: ,'101: p_deliverable_type = '||p_deliverable_type);
134: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
135: ,'102: p_target_doc_type = '||p_target_doc_type);
136: END IF;
137:
138: IF p_deliverable_type is null OR p_target_doc_type is null THEN
152: IF C_delTypeExists%ISOPEN THEN
153: CLOSE C_delTypeExists;
154: END IF;
155:
156: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
158: ,'104: Returning l_return_value = ');
159: END IF;
160: return l_return_value;
153: CLOSE C_delTypeExists;
154: END IF;
155:
156: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
158: ,'104: Returning l_return_value = ');
159: END IF;
160: return l_return_value;
161:
163: WHEN OTHERS THEN
164: IF C_delTypeExists%ISOPEN THEN
165: CLOSE C_delTypeExists;
166: END IF;
167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
169: ,'106: IN EXCEPTION '||substr(sqlerrm,1,200));
170: END IF;
171:
164: IF C_delTypeExists%ISOPEN THEN
165: CLOSE C_delTypeExists;
166: END IF;
167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
169: ,'106: IN EXCEPTION '||substr(sqlerrm,1,200));
170: END IF;
171:
172: return l_return_value;
209: l_source_before_after okc_bus_doc_events_b.before_after%TYPE:=null;
210: l_target_event_id okc_bus_doc_events_b.bus_doc_event_id%TYPE:=null;
211:
212: Begin
213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
215: ,'100: Inside FUNCTION: resolveTargetDocEvent');
216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
217: ,'101: p_source_event_id = '||p_source_event_id);
210: l_target_event_id okc_bus_doc_events_b.bus_doc_event_id%TYPE:=null;
211:
212: Begin
213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
215: ,'100: Inside FUNCTION: resolveTargetDocEvent');
216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
217: ,'101: p_source_event_id = '||p_source_event_id);
218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
212: Begin
213: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
215: ,'100: Inside FUNCTION: resolveTargetDocEvent');
216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
217: ,'101: p_source_event_id = '||p_source_event_id);
218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
219: ,'102: p_target_doc_type = '||p_target_doc_type);
220: END IF;
214: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
215: ,'100: Inside FUNCTION: resolveTargetDocEvent');
216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
217: ,'101: p_source_event_id = '||p_source_event_id);
218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
219: ,'102: p_target_doc_type = '||p_target_doc_type);
220: END IF;
221:
222: IF p_source_event_id is null OR p_target_doc_type is null THEN
227: OPEN C_sourceEventCode (p_source_event_id);
228: FETCH C_sourceEventCode into l_source_event_code,l_source_before_after;
229: CLOSE C_sourceEventCode;
230:
231: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
233: ,'103: Found l_source_event_code = '||l_source_event_code);
234: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
235: ,'103a: Found l_source_before_after = '||l_source_before_after);
228: FETCH C_sourceEventCode into l_source_event_code,l_source_before_after;
229: CLOSE C_sourceEventCode;
230:
231: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
233: ,'103: Found l_source_event_code = '||l_source_event_code);
234: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
235: ,'103a: Found l_source_before_after = '||l_source_before_after);
236: END IF;
230:
231: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
233: ,'103: Found l_source_event_code = '||l_source_event_code);
234: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
235: ,'103a: Found l_source_before_after = '||l_source_before_after);
236: END IF;
237:
238: IF l_source_event_code is not null AND l_source_before_after is not null THEN
240: OPEN C_targetEventId (l_source_event_code, p_target_doc_type, l_source_before_after);
241: FETCH C_targetEventId into l_target_event_id;
242: CLOSE C_targetEventId;
243:
244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
246: ,'104: Found l_target_event_id = '||l_target_event_id);
247: END IF;
248:
241: FETCH C_targetEventId into l_target_event_id;
242: CLOSE C_targetEventId;
243:
244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
246: ,'104: Found l_target_event_id = '||l_target_event_id);
247: END IF;
248:
249: -- l_target_event_id is not resolved, it may be the case, p_target_doc_type
255: OPEN C_targetEventId2 (l_source_event_code, p_target_doc_type, l_source_before_after);
256: FETCH C_targetEventId2 into l_target_event_id;
257: CLOSE C_targetEventId2;
258:
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
261: ,'105: Found l_target_event_id (RESPONSE DOC) = '||l_target_event_id);
262: END IF;
263: END IF; -- IF l_target_event_id is null
256: FETCH C_targetEventId2 into l_target_event_id;
257: CLOSE C_targetEventId2;
258:
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
261: ,'105: Found l_target_event_id (RESPONSE DOC) = '||l_target_event_id);
262: END IF;
263: END IF; -- IF l_target_event_id is null
264: END IF; -- IF l_source_event_code is not null
274: END IF;
275: IF C_targetEventId2%ISOPEN THEN
276: CLOSE C_targetEventId2;
277: END IF;
278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
280: ,'106: IN EXCEPTION '||substr(sqlerrm,1,200));
281: END IF;
282:
275: IF C_targetEventId2%ISOPEN THEN
276: CLOSE C_targetEventId2;
277: END IF;
278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
280: ,'106: IN EXCEPTION '||substr(sqlerrm,1,200));
281: END IF;
282:
283: return l_target_event_id;
402: FROM OKC_BUS_DOC_EVENTS_V
403: WHERE bus_doc_event_id = p_event_id;
404: EXCEPTION
405: WHEN OTHERS THEN
406: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
408: END IF;
409: Okc_Api.Set_Message(G_APP_NAME,
410: 'OKC_DEL_ERR_EVT_DTLS');
403: WHERE bus_doc_event_id = p_event_id;
404: EXCEPTION
405: WHEN OTHERS THEN
406: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
408: END IF;
409: Okc_Api.Set_Message(G_APP_NAME,
410: 'OKC_DEL_ERR_EVT_DTLS');
411: RAISE FND_API.G_EXC_ERROR;
451:
452: BEGIN
453:
454: -- start procedure
455: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
457: END IF;
458: IF p_event_id is NULL THEN
459: Okc_Api.Set_Message(G_APP_NAME,
452: BEGIN
453:
454: -- start procedure
455: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
457: END IF;
458: IF p_event_id is NULL THEN
459: Okc_Api.Set_Message(G_APP_NAME,
460: 'OKC_DEL_NOT_RSLV_EVTS');
461: RAISE FND_API.G_EXC_ERROR;
462:
463: END IF;
464:
465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Calling getDelEventDetails');
467: END IF;
468:
469: --- get current deliverable's end event details
462:
463: END IF;
464:
465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Calling getDelEventDetails');
467: END IF;
468:
469: --- get current deliverable's end event details
470: getDelEventDetails(
475:
476: px_event_full_name := l_event_full_name;
477: px_event_code := l_del_event_name;
478:
479: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Finished getDelEventDetails - Event Name'||l_del_event_name);
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Finished getDelEventDetails - Before After'||l_event_full_name);
482: END IF;
483:
476: px_event_full_name := l_event_full_name;
477: px_event_code := l_del_event_name;
478:
479: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Finished getDelEventDetails - Event Name'||l_del_event_name);
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Finished getDelEventDetails - Before After'||l_event_full_name);
482: END IF;
483:
484: --- if relative, check for event name with the given event names
477: px_event_code := l_del_event_name;
478:
479: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
480: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Finished getDelEventDetails - Event Name'||l_del_event_name);
481: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Finished getDelEventDetails - Before After'||l_event_full_name);
482: END IF;
483:
484: --- if relative, check for event name with the given event names
485: --- in table of records.
487: FOR k IN
488: p_bus_doc_date_events_tbl.FIRST..p_bus_doc_date_events_tbl.LAST LOOP
489: IF p_bus_doc_date_events_tbl(k).event_code = l_del_event_name THEN
490:
491: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Event Matched '||l_del_event_name);
493: END IF;
494:
495: --- set the flag, that event is matched
488: p_bus_doc_date_events_tbl.FIRST..p_bus_doc_date_events_tbl.LAST LOOP
489: IF p_bus_doc_date_events_tbl(k).event_code = l_del_event_name THEN
490:
491: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Event Matched '||l_del_event_name);
493: END IF;
494:
495: --- set the flag, that event is matched
496: l_not_matched_flag := 'N';
500: END IF;
501: END LOOP;
502: END IF;
503:
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Returning Resolved Date as '||l_actual_date);
506: END IF;
507: px_not_matched_flag := l_not_matched_flag;
508: return l_actual_date;
501: END LOOP;
502: END IF;
503:
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Returning Resolved Date as '||l_actual_date);
506: END IF;
507: px_not_matched_flag := l_not_matched_flag;
508: return l_actual_date;
509:
527: l_api_name VARCHAR2(30) := 'attachment_exists';
528:
529: BEGIN
530:
531: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.attachment_exists ');
533: END IF;
534: OPEN att_cur;
535: FETCH att_cur INTO att_rec;
528:
529: BEGIN
530:
531: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.attachment_exists ');
533: END IF;
534: OPEN att_cur;
535: FETCH att_cur INTO att_rec;
536: IF att_cur%FOUND THEN
539: l_return_value := FALSE;
540: END IF;
541: CLOSE att_cur;
542:
543: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Leaving attachment_exists ');
545: END IF;
546:
547: RETURN l_return_value;
540: END IF;
541: CLOSE att_cur;
542:
543: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Leaving attachment_exists ');
545: END IF;
546:
547: RETURN l_return_value;
548:
547: RETURN l_return_value;
548:
549: EXCEPTION
550: WHEN OTHERS THEN
551: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving attachment_exists with Exception');
553: END IF;
554: IF att_cur %ISOPEN THEN
555: CLOSE att_cur ;
548:
549: EXCEPTION
550: WHEN OTHERS THEN
551: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving attachment_exists with Exception');
553: END IF;
554: IF att_cur %ISOPEN THEN
555: CLOSE att_cur ;
556: END IF;
639: l_resolved_token VARCHAR2(100);
640: x_errorcode NUMBER;
641: BEGIN
642:
643: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
645: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment'||
646: 'p_source_doc_id = '||p_source_doc_id||
647: 'p_source_doc_type = '||p_source_doc_type||
640: x_errorcode NUMBER;
641: BEGIN
642:
643: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
645: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment'||
646: 'p_source_doc_id = '||p_source_doc_id||
647: 'p_source_doc_type = '||p_source_doc_type||
648: 'p_target_doc_type = '||p_target_doc_type||
765: /*OPEN del_cur;
766: FETCH del_cur BULK COLLECT INTO delRecTab;*/
767: IF delRecTab.COUNT <> 0 THEN
768: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
769: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
770: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Inside loop'||to_char(delRecTab(i).deliverable_id));
771: END IF;
772:
773: IF copy_allowed (p_deliverable_type => delRecTab(i).deliverable_type,
766: FETCH del_cur BULK COLLECT INTO delRecTab;*/
767: IF delRecTab.COUNT <> 0 THEN
768: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
769: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
770: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Inside loop'||to_char(delRecTab(i).deliverable_id));
771: END IF;
772:
773: IF copy_allowed (p_deliverable_type => delRecTab(i).deliverable_type,
774: p_target_doc_type => p_target_doc_type,
773: IF copy_allowed (p_deliverable_type => delRecTab(i).deliverable_type,
774: p_target_doc_type => p_target_doc_type,
775: p_target_contractual_doc_type => p_target_contractual_doctype) THEN
776:
777: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
778: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101a: Copy ALLOWED');
779: END IF;
780:
781: j := j+1;
774: p_target_doc_type => p_target_doc_type,
775: p_target_contractual_doc_type => p_target_contractual_doctype) THEN
776:
777: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
778: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101a: Copy ALLOWED');
779: END IF;
780:
781: j := j+1;
782: q := q+1;
780:
781: j := j+1;
782: q := q+1;
783:
784: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
785: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: deliverable table record = '||q);
786: END IF;
787:
788: delNewTab(q) := delRecTab(i);
781: j := j+1;
782: q := q+1;
783:
784: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
785: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: deliverable table record = '||q);
786: END IF;
787:
788: delNewTab(q) := delRecTab(i);
789:
790: -- extend table type
791: delIdTab.extend;
792: delIdTab(j).orig_del_id := delRecTab(i).deliverable_id;
793:
794: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: deliverable IDs table record = '||j);
796: END IF;
797:
798: select okc_deliverable_id_s.nextval INTO delNewTab(q).deliverable_id from dual;
791: delIdTab.extend;
792: delIdTab(j).orig_del_id := delRecTab(i).deliverable_id;
793:
794: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
795: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: deliverable IDs table record = '||j);
796: END IF;
797:
798: select okc_deliverable_id_s.nextval INTO delNewTab(q).deliverable_id from dual;
799:
811: AND
812: event_mapping_allowed (p_deliverable_type => delRecTab(i).deliverable_type,
813: p_target_doc_type => p_target_doc_type) THEN
814:
815: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Source and Target docs are NOT SAME ');
817: END IF;
818:
819: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null THEN
812: event_mapping_allowed (p_deliverable_type => delRecTab(i).deliverable_type,
813: p_target_doc_type => p_target_doc_type) THEN
814:
815: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
816: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Source and Target docs are NOT SAME ');
817: END IF;
818:
819: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null THEN
820:
821: -- resolve target start event id
822: l_target_start_event_id := resolveTargetDocEvent(
823: p_source_event_id => delRecTab(i).RELATIVE_ST_DATE_EVENT_ID,
824: p_target_doc_type => p_target_doc_type);
825: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Found l_target_start_event_id = '||l_target_start_event_id);
827: END IF;
828:
829: -- raise error if could not resolve target event id
822: l_target_start_event_id := resolveTargetDocEvent(
823: p_source_event_id => delRecTab(i).RELATIVE_ST_DATE_EVENT_ID,
824: p_target_doc_type => p_target_doc_type);
825: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Found l_target_start_event_id = '||l_target_start_event_id);
827: END IF;
828:
829: -- raise error if could not resolve target event id
830: IF l_target_start_event_id is null THEN
848: l_target_end_event_id := resolveTargetDocEvent(
849: p_source_event_id => delRecTab(i).RELATIVE_END_DATE_EVENT_ID,
850: p_target_doc_type => p_target_doc_type);
851:
852: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
853: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'106: Found l_target_end_event_id = '||l_target_end_event_id);
854: END IF;
855:
856: -- raise error if could not resolve target event id
849: p_source_event_id => delRecTab(i).RELATIVE_END_DATE_EVENT_ID,
850: p_target_doc_type => p_target_doc_type);
851:
852: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
853: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'106: Found l_target_end_event_id = '||l_target_end_event_id);
854: END IF;
855:
856: -- raise error if could not resolve target event id
857: IF l_target_end_event_id is null THEN
871: RAISE FND_API.G_EXC_ERROR;
872: END IF;
873: END IF; -- IF delRecTab(i).RELATIVE_END_DATE_EVENT_ID is not null
874:
875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'107: Setting NEW resolved Start Event and End Event Ids');
877: END IF;
878:
879: -- set resolved start and event ids on new delRecTab
872: END IF;
873: END IF; -- IF delRecTab(i).RELATIVE_END_DATE_EVENT_ID is not null
874:
875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'107: Setting NEW resolved Start Event and End Event Ids');
877: END IF;
878:
879: -- set resolved start and event ids on new delRecTab
880: delNewTab(q).RELATIVE_ST_DATE_EVENT_ID := l_target_start_event_id;
894:
895: -- fix bug 3667895, carrying forward last amendment date during amendments
896: --delNewTab(q).last_amendment_date:= null;
897:
898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Inside loop1'||to_char(delNewTab(q).deliverable_id));
900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: q in def loop'||to_char(q));
901: END IF;
902:
895: -- fix bug 3667895, carrying forward last amendment date during amendments
896: --delNewTab(q).last_amendment_date:= null;
897:
898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Inside loop1'||to_char(delNewTab(q).deliverable_id));
900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: q in def loop'||to_char(q));
901: END IF;
902:
903: IF delRecTab(i).recurring_yn = 'N' THEN
896: --delNewTab(q).last_amendment_date:= null;
897:
898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Inside loop1'||to_char(delNewTab(q).deliverable_id));
900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: q in def loop'||to_char(q));
901: END IF;
902:
903: IF delRecTab(i).recurring_yn = 'N' THEN
904: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: q in def loop'||to_char(q));
901: END IF;
902:
903: IF delRecTab(i).recurring_yn = 'N' THEN
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,'110: Recurring?'||delRecTab(i).recurring_yn);
906: END IF;
907:
908: -- initialize all resolved dates to null
901: END IF;
902:
903: IF delRecTab(i).recurring_yn = 'N' THEN
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,'110: Recurring?'||delRecTab(i).recurring_yn);
906: END IF;
907:
908: -- initialize all resolved dates to null
909: delNewTab(q).start_event_date:= null;
910: delNewTab(q).end_event_date:= null;
911: delNewTab(q).actual_due_date:= null;
912:
913: ELSIF delRecTab(i).recurring_yn = 'Y' THEN
914: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
915: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'111: Recurring?'||delRecTab(i).recurring_yn);
916: END IF;
917:
918: --OPEN del_ins_cur(delRecTab(i).deliverable_id);
911: delNewTab(q).actual_due_date:= null;
912:
913: ELSIF delRecTab(i).recurring_yn = 'Y' THEN
914: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
915: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'111: Recurring?'||delRecTab(i).recurring_yn);
916: END IF;
917:
918: --OPEN del_ins_cur(delRecTab(i).deliverable_id);
919: --Initialize the table with 0 rows
1038: j := j+1;
1039: q := q+1;
1040: delNewTab(q) := delInsTab(s);
1041:
1042: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1043: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'112: Deliverable Instance record = '||q);
1044: END IF;
1045:
1046: -- extend table type
1039: q := q+1;
1040: delNewTab(q) := delInsTab(s);
1041:
1042: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1043: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'112: Deliverable Instance record = '||q);
1044: END IF;
1045:
1046: -- extend table type
1047: delIdTab.extend;
1058: -- recurring instances, assuming these events are already
1059: -- resolved above for recurring deliverable definition
1060: IF p_source_doc_type <> p_target_doc_type THEN
1061: IF l_target_start_event_id is not null THEN
1062: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1063: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Setting Start Event Id on this instance = '||l_target_start_event_id);
1064: END IF;
1065:
1066: delNewTab(q).RELATIVE_ST_DATE_EVENT_ID := l_target_start_event_id;
1059: -- resolved above for recurring deliverable definition
1060: IF p_source_doc_type <> p_target_doc_type THEN
1061: IF l_target_start_event_id is not null THEN
1062: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1063: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Setting Start Event Id on this instance = '||l_target_start_event_id);
1064: END IF;
1065:
1066: delNewTab(q).RELATIVE_ST_DATE_EVENT_ID := l_target_start_event_id;
1067: END IF;
1065:
1066: delNewTab(q).RELATIVE_ST_DATE_EVENT_ID := l_target_start_event_id;
1067: END IF;
1068: IF l_target_end_event_id is not null THEN
1069: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1070: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'114: Setting End Event Id on this instance = '||l_target_end_event_id);
1071: END IF;
1072:
1073: delNewTab(q).RELATIVE_END_DATE_EVENT_ID := l_target_end_event_id;
1066: delNewTab(q).RELATIVE_ST_DATE_EVENT_ID := l_target_start_event_id;
1067: END IF;
1068: IF l_target_end_event_id is not null THEN
1069: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1070: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'114: Setting End Event Id on this instance = '||l_target_end_event_id);
1071: END IF;
1072:
1073: delNewTab(q).RELATIVE_END_DATE_EVENT_ID := l_target_end_event_id;
1074: END IF;
1082: delNewTab(q).amendment_operation:= null;
1083: delNewTab(q).amendment_notes:= null;
1084: delNewTab(q).summary_amend_operation_code:= null;
1085: delNewTab(q).last_amendment_date:= null;
1086: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1087: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Inside loop2'||to_char(delNewTab(q).deliverable_id));
1088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'116: q in ins loop'||to_char(q));
1089: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'117: s in ins loop'||to_char(s));
1090: END IF;
1083: delNewTab(q).amendment_notes:= null;
1084: delNewTab(q).summary_amend_operation_code:= null;
1085: delNewTab(q).last_amendment_date:= null;
1086: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1087: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Inside loop2'||to_char(delNewTab(q).deliverable_id));
1088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'116: q in ins loop'||to_char(q));
1089: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'117: s in ins loop'||to_char(s));
1090: END IF;
1091: END LOOP;-- FOR s IN delInsTab.FIRST..delInsTab.LAST LOOP
1084: delNewTab(q).summary_amend_operation_code:= null;
1085: delNewTab(q).last_amendment_date:= null;
1086: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1087: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Inside loop2'||to_char(delNewTab(q).deliverable_id));
1088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'116: q in ins loop'||to_char(q));
1089: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'117: s in ins loop'||to_char(s));
1090: END IF;
1091: END LOOP;-- FOR s IN delInsTab.FIRST..delInsTab.LAST LOOP
1092: END IF; -- IF delInsTab.COUNT <> 0
1085: delNewTab(q).last_amendment_date:= null;
1086: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1087: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Inside loop2'||to_char(delNewTab(q).deliverable_id));
1088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'116: q in ins loop'||to_char(q));
1089: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'117: s in ins loop'||to_char(s));
1090: END IF;
1091: END LOOP;-- FOR s IN delInsTab.FIRST..delInsTab.LAST LOOP
1092: END IF; -- IF delInsTab.COUNT <> 0
1093: IF del_ins_cur %ISOPEN THEN
1101: CLOSE del_cur ;
1102: END IF;
1103:
1104: IF delNewTab.COUNT <> 0 THEN
1105: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'118: Before insert');
1107: END IF;
1108: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
1109: INSERT INTO okc_deliverables
1102: END IF;
1103:
1104: IF delNewTab.COUNT <> 0 THEN
1105: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'118: Before insert');
1107: END IF;
1108: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
1109: INSERT INTO okc_deliverables
1110: (DELIVERABLE_ID,
1312: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314: END IF;
1315: END LOOP;
1316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'119: New deliverables inserted');
1318: END IF;
1319: END IF; -- IF delNewTab.COUNT <> 0
1320:
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314: END IF;
1315: END LOOP;
1316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'119: New deliverables inserted');
1318: END IF;
1319: END IF; -- IF delNewTab.COUNT <> 0
1320:
1321: -- copy any existing attachments if allowed
1323:
1324: -- copy any existing attachments
1325: IF delIdTab.COUNT <> 0 THEN
1326: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
1327: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'120: Inside loop'||to_char(delIdTab(i).del_id));
1329: END IF;
1330: -- check if attachments exists
1331: IF attachment_exists(p_entity_name => G_ENTITY_NAME
1324: -- copy any existing attachments
1325: IF delIdTab.COUNT <> 0 THEN
1326: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
1327: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'120: Inside loop'||to_char(delIdTab(i).del_id));
1329: END IF;
1330: -- check if attachments exists
1331: IF attachment_exists(p_entity_name => G_ENTITY_NAME
1332: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
1340: X_to_pk1_value => to_char(delIdTab(i).del_id),
1341: X_CREATED_BY => FND_GLOBAL.User_id,
1342: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
1343: );
1344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'121: Attachments copied for delId: '||to_char(delIdTab(i).del_id));
1346: END IF;
1347: END IF; -- IF attachment_exists()
1348: END LOOP; -- FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
1341: X_CREATED_BY => FND_GLOBAL.User_id,
1342: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
1343: );
1344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'121: Attachments copied for delId: '||to_char(delIdTab(i).del_id));
1346: END IF;
1347: END IF; -- IF attachment_exists()
1348: END LOOP; -- FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
1349: END IF;--delRecTab.COUNT
1349: END IF;--delRecTab.COUNT
1350: END IF; -- IF p_copy_del_attachments_yn = 'Y'
1351:
1352: x_return_status := l_return_status;
1353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'122: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment' );
1355: END IF;
1356:
1357: EXCEPTION
1350: END IF; -- IF p_copy_del_attachments_yn = 'Y'
1351:
1352: x_return_status := l_return_status;
1353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'122: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment' );
1355: END IF;
1356:
1357: EXCEPTION
1358: WHEN FND_API.G_EXC_ERROR THEN
1355: END IF;
1356:
1357: EXCEPTION
1358: WHEN FND_API.G_EXC_ERROR THEN
1359: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1360: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_ERROR');
1361: END IF;
1362: IF del_cur %ISOPEN THEN
1363: CLOSE del_cur ;
1356:
1357: EXCEPTION
1358: WHEN FND_API.G_EXC_ERROR THEN
1359: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1360: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_ERROR');
1361: END IF;
1362: IF del_cur %ISOPEN THEN
1363: CLOSE del_cur ;
1364: END IF;
1367: p_count => x_msg_count,
1368: p_data => x_msg_data
1369: );
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
1373: END IF;
1374: IF del_cur %ISOPEN THEN
1375: CLOSE del_cur ;
1368: p_data => x_msg_data
1369: );
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
1373: END IF;
1374: IF del_cur %ISOPEN THEN
1375: CLOSE del_cur ;
1376: END IF;
1380: p_data => x_msg_data
1381: );
1382:
1383: WHEN OTHERS THEN
1384: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1385: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
1386: END IF;
1387: IF del_cur %ISOPEN THEN
1388: CLOSE del_cur ;
1381: );
1382:
1383: WHEN OTHERS THEN
1384: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1385: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
1386: END IF;
1387: IF del_cur %ISOPEN THEN
1388: CLOSE del_cur ;
1389: END IF;
1418: l_return_value BOOLEAN := FALSE;
1419:
1420: BEGIN
1421:
1422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_matches');
1424: END IF;
1425: OPEN event_cur;
1426: FETCH event_cur INTO event_rec;
1419:
1420: BEGIN
1421:
1422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_matches');
1424: END IF;
1425: OPEN event_cur;
1426: FETCH event_cur INTO event_rec;
1427: IF event_cur%FOUND THEN
1429: ELSE
1430: l_return_value := FALSE;
1431: END IF;
1432: CLOSE event_cur;
1433: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1434: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Leaving event_matches');
1435: END IF;
1436: RETURN l_return_value;
1437: EXCEPTION
1430: l_return_value := FALSE;
1431: END IF;
1432: CLOSE event_cur;
1433: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1434: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Leaving event_matches');
1435: END IF;
1436: RETURN l_return_value;
1437: EXCEPTION
1438: WHEN OTHERS THEN
1435: END IF;
1436: RETURN l_return_value;
1437: EXCEPTION
1438: WHEN OTHERS THEN
1439: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1440: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving event_matches with Exception');
1441: END IF;
1442: IF event_cur %ISOPEN THEN
1443: CLOSE event_cur ;
1436: RETURN l_return_value;
1437: EXCEPTION
1438: WHEN OTHERS THEN
1439: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1440: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving event_matches with Exception');
1441: END IF;
1442: IF event_cur %ISOPEN THEN
1443: CLOSE event_cur ;
1444: END IF;
1481:
1482: OPEN delType_cur;
1483: FETCH delType_cur INTO l_deltype_matches;
1484: CLOSE delType_cur;
1485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: DelType Matches is :'||l_deltype_matches);
1487: END IF;
1488: RETURN(l_deltype_matches);
1489:
1482: OPEN delType_cur;
1483: FETCH delType_cur INTO l_deltype_matches;
1484: CLOSE delType_cur;
1485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: DelType Matches is :'||l_deltype_matches);
1487: END IF;
1488: RETURN(l_deltype_matches);
1489:
1490: EXCEPTION
1488: RETURN(l_deltype_matches);
1489:
1490: EXCEPTION
1491: WHEN OTHERS THEN
1492: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1493: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving Deltype_Matches with Exception');
1494: END IF;
1495: IF delType_cur %ISOPEN THEN
1496: CLOSE delType_cur ;
1489:
1490: EXCEPTION
1491: WHEN OTHERS THEN
1492: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1493: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving Deltype_Matches with Exception');
1494: END IF;
1495: IF delType_cur %ISOPEN THEN
1496: CLOSE delType_cur ;
1497: END IF;
1520: l_api_name CONSTANT VARCHAR2(30) := 'copy_response_allowed';
1521:
1522: BEGIN
1523:
1524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' 100: Inside copy_response_allowed ');
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1521:
1522: BEGIN
1523:
1524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' 100: Inside copy_response_allowed ');
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name is :'||p_delrec.deliverable_name);
1522: BEGIN
1523:
1524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' 100: Inside copy_response_allowed ');
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name is :'||p_delrec.deliverable_name);
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id is :'||p_delrec.deliverable_id);
1523:
1524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' 100: Inside copy_response_allowed ');
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name is :'||p_delrec.deliverable_name);
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id is :'||p_delrec.deliverable_id);
1531: END IF;
1524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' 100: Inside copy_response_allowed ');
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name is :'||p_delrec.deliverable_name);
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id is :'||p_delrec.deliverable_id);
1531: END IF;
1532: --If not a recurring deliverable
1525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' 100: Inside copy_response_allowed ');
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name is :'||p_delrec.deliverable_name);
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id is :'||p_delrec.deliverable_id);
1531: END IF;
1532: --If not a recurring deliverable
1533: IF p_delrec.recurring_yn = 'N' THEN
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn is :'||p_delrec.fixed_due_date_yn);
1528: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_response_doctype is :'||p_target_response_doctype);
1529: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name is :'||p_delrec.deliverable_name);
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id is :'||p_delrec.deliverable_id);
1531: END IF;
1532: --If not a recurring deliverable
1533: IF p_delrec.recurring_yn = 'N' THEN
1534: IF p_delrec.fixed_due_date_yn = 'Y' THEN
1533: IF p_delrec.recurring_yn = 'N' THEN
1534: IF p_delrec.fixed_due_date_yn = 'Y' THEN
1535: -- copy deliverable as is
1536: l_copy := 'Y';
1537: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1538: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: msg1 :'||l_copy);
1539: END IF;
1540: ELSE -- p_delrec.fixed_due_date_yn = 'N'
1541: IF p_delrec.relative_st_date_event_id is not null THEN
1534: IF p_delrec.fixed_due_date_yn = 'Y' THEN
1535: -- copy deliverable as is
1536: l_copy := 'Y';
1537: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1538: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: msg1 :'||l_copy);
1539: END IF;
1540: ELSE -- p_delrec.fixed_due_date_yn = 'N'
1541: IF p_delrec.relative_st_date_event_id is not null THEN
1542: -- match the event doctype to target doctype
1545: IF event_matches(p_target_response_doctype
1546: ,p_delrec.relative_st_date_event_id) THEN
1547: --copy deliverable
1548: l_copy := 'Y';
1549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1551: '100: msg3 :'||l_copy);
1552: END IF;
1553: END IF; -- event_matches
1546: ,p_delrec.relative_st_date_event_id) THEN
1547: --copy deliverable
1548: l_copy := 'Y';
1549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1551: '100: msg3 :'||l_copy);
1552: END IF;
1553: END IF; -- event_matches
1554: ELSE
1552: END IF;
1553: END IF; -- event_matches
1554: ELSE
1555: l_copy :='N';
1556: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1558: '100: msg4 :'||l_copy);
1559: END IF;
1560: END IF; -- event_matches
1553: END IF; -- event_matches
1554: ELSE
1555: l_copy :='N';
1556: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1557: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1558: '100: msg4 :'||l_copy);
1559: END IF;
1560: END IF; -- event_matches
1561: ELSE -- start event id is null
1559: END IF;
1560: END IF; -- event_matches
1561: ELSE -- start event id is null
1562: l_copy := 'Y';
1563: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1564: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1565: '100: msg5 :'||l_copy);
1566: END IF;
1567: END IF; -- p_delrec.relative_st_date_event_id is not null
1560: END IF; -- event_matches
1561: ELSE -- start event id is null
1562: l_copy := 'Y';
1563: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1564: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1565: '100: msg5 :'||l_copy);
1566: END IF;
1567: END IF; -- p_delrec.relative_st_date_event_id is not null
1568:
1577: IF p_delrec.fixed_end_date is not null THEN
1578: --copy deliverables
1579: l_end_copy := 'Y';
1580: l_start_copy := 'Y';
1581: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1582: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1583: '100: msg6 : both are Y');
1584: END IF;
1585: ELSE -- fixed end date is null
1578: --copy deliverables
1579: l_end_copy := 'Y';
1580: l_start_copy := 'Y';
1581: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1582: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1583: '100: msg6 : both are Y');
1584: END IF;
1585: ELSE -- fixed end date is null
1586: IF p_delrec.relative_end_date_event_id is not null THEN
1589: IF event_matches(p_target_response_doctype
1590: ,p_delrec.relative_end_date_event_id) THEN
1591: --copy deliverable
1592: l_end_copy := 'Y';
1593: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1594: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1595: '100: end msg2 :'||l_end_copy);
1596: END IF;
1597: END IF;
1590: ,p_delrec.relative_end_date_event_id) THEN
1591: --copy deliverable
1592: l_end_copy := 'Y';
1593: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1594: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1595: '100: end msg2 :'||l_end_copy);
1596: END IF;
1597: END IF;
1598: ELSE
1596: END IF;
1597: END IF;
1598: ELSE
1599: l_end_copy := 'N';
1600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1602: '100: end msg3 :'||l_end_copy);
1603: END IF;
1604: END IF; -- event matches
1597: END IF;
1598: ELSE
1599: l_end_copy := 'N';
1600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1602: '100: end msg3 :'||l_end_copy);
1603: END IF;
1604: END IF; -- event matches
1605: ELSE -- end date event is null
1603: END IF;
1604: END IF; -- event matches
1605: ELSE -- end date event is null
1606: l_end_copy := 'Y';
1607: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1609: '100: end msg4 :'||l_end_copy);
1610: END IF;
1611: END IF; -- end_date event is not null
1604: END IF; -- event matches
1605: ELSE -- end date event is null
1606: l_end_copy := 'Y';
1607: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1609: '100: end msg4 :'||l_end_copy);
1610: END IF;
1611: END IF; -- end_date event is not null
1612: END IF; -- fixed_end_date is not null
1610: END IF;
1611: END IF; -- end_date event is not null
1612: END IF; -- fixed_end_date is not null
1613: l_start_copy := 'Y';
1614: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1616: '100: start msg5 :'||l_start_copy);
1617: END IF;
1618: ELSE -- fixed start date is null
1611: END IF; -- end_date event is not null
1612: END IF; -- fixed_end_date is not null
1613: l_start_copy := 'Y';
1614: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1615: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1616: '100: start msg5 :'||l_start_copy);
1617: END IF;
1618: ELSE -- fixed start date is null
1619: IF p_delrec.relative_st_date_event_id is not null THEN
1621: IF event_matches(p_target_response_doctype
1622: ,p_delrec.relative_st_date_event_id) THEN
1623: --copy deliverable
1624: l_start_copy := 'Y';
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: '100: start msg2 :'||l_start_copy);
1628: END IF;
1629: END IF;
1622: ,p_delrec.relative_st_date_event_id) THEN
1623: --copy deliverable
1624: l_start_copy := 'Y';
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: '100: start msg2 :'||l_start_copy);
1628: END IF;
1629: END IF;
1630: ELSE
1628: END IF;
1629: END IF;
1630: ELSE
1631: l_start_copy := 'N';
1632: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1633: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1634: '100: start msg3 :'||l_start_copy);
1635: END IF;
1636: END IF;
1629: END IF;
1630: ELSE
1631: l_start_copy := 'N';
1632: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1633: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1634: '100: start msg3 :'||l_start_copy);
1635: END IF;
1636: END IF;
1637: ELSE -- start date event id is null
1635: END IF;
1636: END IF;
1637: ELSE -- start date event id is null
1638: l_start_copy := 'Y';
1639: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1640: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1641: '100: start msg4 :'||l_start_copy);
1642: END IF;
1643: END IF; -- st event id is not null
1636: END IF;
1637: ELSE -- start date event id is null
1638: l_start_copy := 'Y';
1639: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1640: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1641: '100: start msg4 :'||l_start_copy);
1642: END IF;
1643: END IF; -- st event id is not null
1644: IF p_delrec.fixed_end_date is null THEN
1648: IF event_matches(p_target_response_doctype
1649: ,p_delrec.relative_end_date_event_id) THEN
1650: --copy deliverable
1651: l_end_copy := 'Y';
1652: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1653: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1654: '100: start end msg2 :'||l_end_copy);
1655: END IF;
1656: ELSE -- event_matches is not true
1649: ,p_delrec.relative_end_date_event_id) THEN
1650: --copy deliverable
1651: l_end_copy := 'Y';
1652: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1653: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1654: '100: start end msg2 :'||l_end_copy);
1655: END IF;
1656: ELSE -- event_matches is not true
1657: --check for target_contractual bug#3675608
1663: END IF; -- event_matches
1664:
1665: ELSE
1666: l_end_copy := 'N';
1667: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1668: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1669: '100: start end msg3 :'||l_end_copy);
1670: END IF;
1671: END IF; -- event matches
1664:
1665: ELSE
1666: l_end_copy := 'N';
1667: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1668: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1669: '100: start end msg3 :'||l_end_copy);
1670: END IF;
1671: END IF; -- event matches
1672: ELSE -- end event id is null
1670: END IF;
1671: END IF; -- event matches
1672: ELSE -- end event id is null
1673: l_end_copy := 'Y';
1674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1675: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1676: '100: start end msg4 :'||l_end_copy);
1677: END IF;
1678: END IF; -- end event id is not null
1671: END IF; -- event matches
1672: ELSE -- end event id is null
1673: l_end_copy := 'Y';
1674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1675: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1676: '100: start end msg4 :'||l_end_copy);
1677: END IF;
1678: END IF; -- end event id is not null
1679: ELSE -- fixed end date is not null
1677: END IF;
1678: END IF; -- end event id is not null
1679: ELSE -- fixed end date is not null
1680: l_end_copy := 'Y';
1681: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1682: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1683: '100: start end msg5 :'||l_end_copy);
1684: END IF;
1685: END IF; -- fixed end date is null
1678: END IF; -- end event id is not null
1679: ELSE -- fixed end date is not null
1680: l_end_copy := 'Y';
1681: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1682: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1683: '100: start end msg5 :'||l_end_copy);
1684: END IF;
1685: END IF; -- fixed end date is null
1686:
1687: END IF; -- fixed st date is null
1688: IF l_end_copy = 'Y' AND
1689: l_start_copy = 'Y' THEN
1690: l_copy := 'Y';
1691: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1692: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1693: '100: final msg1 :'||l_copy);
1694: END IF;
1695: ELSE
1688: IF l_end_copy = 'Y' AND
1689: l_start_copy = 'Y' THEN
1690: l_copy := 'Y';
1691: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1692: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1693: '100: final msg1 :'||l_copy);
1694: END IF;
1695: ELSE
1696: l_copy := 'N';
1693: '100: final msg1 :'||l_copy);
1694: END IF;
1695: ELSE
1696: l_copy := 'N';
1697: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1698: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1699: '100: final msg2 :'||l_copy);
1700: END IF;
1701: END IF;
1694: END IF;
1695: ELSE
1696: l_copy := 'N';
1697: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1698: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1699: '100: final msg2 :'||l_copy);
1700: END IF;
1701: END IF;
1702: END IF; -- recurring yn
1699: '100: final msg2 :'||l_copy);
1700: END IF;
1701: END IF;
1702: END IF; -- recurring yn
1703: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: final msg3 :'||l_copy);
1705: END IF;
1706: RETURN(l_copy);
1707: END copy_response_allowed;
1700: END IF;
1701: END IF;
1702: END IF; -- recurring yn
1703: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: final msg3 :'||l_copy);
1705: END IF;
1706: RETURN(l_copy);
1707: END copy_response_allowed;
1708:
1725: l_api_name CONSTANT VARCHAR2(30) := 'copy_allowed';
1726:
1727: BEGIN
1728:
1729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside copy_allowed' );
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1726:
1727: BEGIN
1728:
1729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside copy_allowed' );
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1727: BEGIN
1728:
1729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside copy_allowed' );
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1735: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name :'||p_delrec.deliverable_name);
1728:
1729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside copy_allowed' );
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1735: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name :'||p_delrec.deliverable_name);
1736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id :'||p_delrec.deliverable_id);
1729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside copy_allowed' );
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1735: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name :'||p_delrec.deliverable_name);
1736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id :'||p_delrec.deliverable_id);
1737: END IF;
1730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside copy_allowed' );
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1735: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name :'||p_delrec.deliverable_name);
1736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id :'||p_delrec.deliverable_id);
1737: END IF;
1738: --If not a recurring deliverable
1731: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' recurring_yn is :'||p_delrec.recurring_yn);
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1735: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name :'||p_delrec.deliverable_name);
1736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id :'||p_delrec.deliverable_id);
1737: END IF;
1738: --If not a recurring deliverable
1739: IF p_delrec.recurring_yn = 'N' THEN
1732: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' fixed_due_date_yn :'||p_delrec.fixed_due_date_yn);
1733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' target doc type :'||p_target_doc_type);
1734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' p_target_contractual_doctype :'||p_target_contractual_doctype);
1735: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable name :'||p_delrec.deliverable_name);
1736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,' deliverable id :'||p_delrec.deliverable_id);
1737: END IF;
1738: --If not a recurring deliverable
1739: IF p_delrec.recurring_yn = 'N' THEN
1740: IF p_delrec.fixed_due_date_yn = 'Y' THEN
1739: IF p_delrec.recurring_yn = 'N' THEN
1740: IF p_delrec.fixed_due_date_yn = 'Y' THEN
1741: -- copy deliverable as is
1742: l_copy := 'Y';
1743: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: msg1 :'||l_copy);
1745: END IF;
1746: ELSE -- p_delrec.fixed_due_date_yn = 'N'
1747: IF p_delrec.relative_st_date_event_id is not null THEN
1740: IF p_delrec.fixed_due_date_yn = 'Y' THEN
1741: -- copy deliverable as is
1742: l_copy := 'Y';
1743: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1744: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: msg1 :'||l_copy);
1745: END IF;
1746: ELSE -- p_delrec.fixed_due_date_yn = 'N'
1747: IF p_delrec.relative_st_date_event_id is not null THEN
1748: -- match the event doctype to target doctype
1749: IF event_matches(p_target_doc_type
1750: ,p_delrec.relative_st_date_event_id) THEN
1751: --copy deliverable
1752: l_copy := 'Y';
1753: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1754: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1755: '100: msg2 :'||l_copy);
1756: END IF;
1757: ELSE
1750: ,p_delrec.relative_st_date_event_id) THEN
1751: --copy deliverable
1752: l_copy := 'Y';
1753: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1754: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1755: '100: msg2 :'||l_copy);
1756: END IF;
1757: ELSE
1758: l_copy :='N';
1761: IF event_matches(p_target_contractual_doctype
1762: ,p_delrec.relative_st_date_event_id) THEN
1763: --copy deliverable
1764: l_copy := 'Y';
1765: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1766: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1767: '100: msg3 :'||l_copy);
1768: END IF;
1769: END IF; -- event_matches
1762: ,p_delrec.relative_st_date_event_id) THEN
1763: --copy deliverable
1764: l_copy := 'Y';
1765: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1766: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1767: '100: msg3 :'||l_copy);
1768: END IF;
1769: END IF; -- event_matches
1770: END IF; -- p_target_contractual_doctype is not null
1767: '100: msg3 :'||l_copy);
1768: END IF;
1769: END IF; -- event_matches
1770: END IF; -- p_target_contractual_doctype is not null
1771: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1773: '100: msg4 :'||l_copy);
1774: END IF;
1775: END IF; -- event_matches
1768: END IF;
1769: END IF; -- event_matches
1770: END IF; -- p_target_contractual_doctype is not null
1771: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1773: '100: msg4 :'||l_copy);
1774: END IF;
1775: END IF; -- event_matches
1776: ELSE -- start event id is null
1774: END IF;
1775: END IF; -- event_matches
1776: ELSE -- start event id is null
1777: l_copy := 'Y';
1778: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1779: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1780: '100: msg5 :'||l_copy);
1781: END IF;
1782: END IF; -- p_delrec.relative_st_date_event_id is not null
1775: END IF; -- event_matches
1776: ELSE -- start event id is null
1777: l_copy := 'Y';
1778: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1779: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1780: '100: msg5 :'||l_copy);
1781: END IF;
1782: END IF; -- p_delrec.relative_st_date_event_id is not null
1783:
1792: IF p_delrec.fixed_end_date is not null THEN
1793: --copy deliverables
1794: l_end_copy := 'Y';
1795: l_start_copy := 'Y';
1796: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1797: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1798: '100: msg6 : both are Y');
1799: END IF;
1800: ELSE -- fixed end date is null
1793: --copy deliverables
1794: l_end_copy := 'Y';
1795: l_start_copy := 'Y';
1796: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1797: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1798: '100: msg6 : both are Y');
1799: END IF;
1800: ELSE -- fixed end date is null
1801: IF p_delrec.relative_end_date_event_id is not null THEN
1802: IF event_matches(p_target_doc_type
1803: ,p_delrec.relative_end_date_event_id) THEN
1804: --copy deliverable
1805: l_end_copy := 'Y';
1806: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1807: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1808: '100: end msg1 :'||l_end_copy);
1809: END IF;
1810: ELSE
1803: ,p_delrec.relative_end_date_event_id) THEN
1804: --copy deliverable
1805: l_end_copy := 'Y';
1806: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1807: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1808: '100: end msg1 :'||l_end_copy);
1809: END IF;
1810: ELSE
1811: l_end_copy := 'N';
1814: IF event_matches(p_target_contractual_doctype
1815: ,p_delrec.relative_end_date_event_id) THEN
1816: --copy deliverable
1817: l_end_copy := 'Y';
1818: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1819: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1820: '100: end msg2 :'||l_end_copy);
1821: END IF;
1822: END IF;
1815: ,p_delrec.relative_end_date_event_id) THEN
1816: --copy deliverable
1817: l_end_copy := 'Y';
1818: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1819: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1820: '100: end msg2 :'||l_end_copy);
1821: END IF;
1822: END IF;
1823: END IF;
1820: '100: end msg2 :'||l_end_copy);
1821: END IF;
1822: END IF;
1823: END IF;
1824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1825: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1826: '100: end msg3 :'||l_end_copy);
1827: END IF;
1828: END IF; -- event matches
1821: END IF;
1822: END IF;
1823: END IF;
1824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1825: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1826: '100: end msg3 :'||l_end_copy);
1827: END IF;
1828: END IF; -- event matches
1829: ELSE -- end date event is null
1827: END IF;
1828: END IF; -- event matches
1829: ELSE -- end date event is null
1830: l_end_copy := 'Y';
1831: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1833: '100: end msg4 :'||l_end_copy);
1834: END IF;
1835: END IF; -- end_date event is not null
1828: END IF; -- event matches
1829: ELSE -- end date event is null
1830: l_end_copy := 'Y';
1831: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1833: '100: end msg4 :'||l_end_copy);
1834: END IF;
1835: END IF; -- end_date event is not null
1836: END IF; -- fixed_end_date is not null
1834: END IF;
1835: END IF; -- end_date event is not null
1836: END IF; -- fixed_end_date is not null
1837: l_start_copy := 'Y';
1838: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1839: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1840: '100: start msg5 :'||l_start_copy);
1841: END IF;
1842: ELSE -- fixed start date is null
1835: END IF; -- end_date event is not null
1836: END IF; -- fixed_end_date is not null
1837: l_start_copy := 'Y';
1838: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1839: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1840: '100: start msg5 :'||l_start_copy);
1841: END IF;
1842: ELSE -- fixed start date is null
1843: IF p_delrec.relative_st_date_event_id is not null THEN
1844: IF event_matches(p_target_doc_type
1845: ,p_delrec.relative_st_date_event_id) THEN
1846: --copy deliverable
1847: l_start_copy := 'Y';
1848: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1849: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1850: '100: start msg1 :'||l_start_copy);
1851: END IF;
1852: ELSE
1845: ,p_delrec.relative_st_date_event_id) THEN
1846: --copy deliverable
1847: l_start_copy := 'Y';
1848: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1849: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1850: '100: start msg1 :'||l_start_copy);
1851: END IF;
1852: ELSE
1853: l_start_copy := 'N';
1850: '100: start msg1 :'||l_start_copy);
1851: END IF;
1852: ELSE
1853: l_start_copy := 'N';
1854: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1855: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1856: '100: start msg2 :'||l_start_copy);
1857: END IF;
1858: IF p_target_contractual_doctype is not null THEN
1851: END IF;
1852: ELSE
1853: l_start_copy := 'N';
1854: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1855: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1856: '100: start msg2 :'||l_start_copy);
1857: END IF;
1858: IF p_target_contractual_doctype is not null THEN
1859: IF event_matches(p_target_contractual_doctype
1859: IF event_matches(p_target_contractual_doctype
1860: ,p_delrec.relative_st_date_event_id) THEN
1861: --copy deliverable
1862: l_start_copy := 'Y';
1863: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1864: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1865: '100: start msg3 :'||l_start_copy);
1866: END IF;
1867: END IF; -- event matches
1860: ,p_delrec.relative_st_date_event_id) THEN
1861: --copy deliverable
1862: l_start_copy := 'Y';
1863: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1864: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1865: '100: start msg3 :'||l_start_copy);
1866: END IF;
1867: END IF; -- event matches
1868: END IF; -- target contractual not null
1868: END IF; -- target contractual not null
1869: END IF; -- event matches
1870: ELSE -- start date event id is null
1871: l_start_copy := 'Y';
1872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1874: '100: start msg4 :'||l_start_copy);
1875: END IF;
1876: END IF; -- st event id is not null
1869: END IF; -- event matches
1870: ELSE -- start date event id is null
1871: l_start_copy := 'Y';
1872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1874: '100: start msg4 :'||l_start_copy);
1875: END IF;
1876: END IF; -- st event id is not null
1877: IF p_delrec.fixed_end_date is null THEN
1879: IF event_matches(p_target_doc_type
1880: ,p_delrec.relative_end_date_event_id) THEN
1881: --copy deliverable
1882: l_end_copy := 'Y';
1883: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1884: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1885: '100: start end msg1 :'||l_end_copy);
1886: END IF;
1887: ELSE
1880: ,p_delrec.relative_end_date_event_id) THEN
1881: --copy deliverable
1882: l_end_copy := 'Y';
1883: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1884: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1885: '100: start end msg1 :'||l_end_copy);
1886: END IF;
1887: ELSE
1888: l_end_copy := 'N';
1885: '100: start end msg1 :'||l_end_copy);
1886: END IF;
1887: ELSE
1888: l_end_copy := 'N';
1889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1891: '100: start end msg2 :'||l_end_copy);
1892: END IF;
1893: IF p_target_contractual_doctype is not null THEN
1886: END IF;
1887: ELSE
1888: l_end_copy := 'N';
1889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1891: '100: start end msg2 :'||l_end_copy);
1892: END IF;
1893: IF p_target_contractual_doctype is not null THEN
1894: -- match the event doctype to p_target_contractual_doctype
1895: IF event_matches(p_target_contractual_doctype
1896: ,p_delrec.relative_end_date_event_id) THEN
1897: --copy deliverable
1898: l_end_copy := 'Y';
1899: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1901: '100: start end msg3 :'||l_end_copy);
1902: END IF;
1903: END IF; -- event matches
1896: ,p_delrec.relative_end_date_event_id) THEN
1897: --copy deliverable
1898: l_end_copy := 'Y';
1899: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1901: '100: start end msg3 :'||l_end_copy);
1902: END IF;
1903: END IF; -- event matches
1904: END IF; -- target contractual not null
1904: END IF; -- target contractual not null
1905: END IF; -- event matches
1906: ELSE -- end event id is null
1907: l_end_copy := 'Y';
1908: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1909: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1910: '100: start end msg4 :'||l_end_copy);
1911: END IF;
1912: END IF; -- end event id is not null
1905: END IF; -- event matches
1906: ELSE -- end event id is null
1907: l_end_copy := 'Y';
1908: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1909: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1910: '100: start end msg4 :'||l_end_copy);
1911: END IF;
1912: END IF; -- end event id is not null
1913: ELSE -- fixed end date is not null
1911: END IF;
1912: END IF; -- end event id is not null
1913: ELSE -- fixed end date is not null
1914: l_end_copy := 'Y';
1915: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1917: '100: start end msg5 :'||l_end_copy);
1918: END IF;
1919: END IF; -- fixed end date is null
1912: END IF; -- end event id is not null
1913: ELSE -- fixed end date is not null
1914: l_end_copy := 'Y';
1915: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1917: '100: start end msg5 :'||l_end_copy);
1918: END IF;
1919: END IF; -- fixed end date is null
1920:
1921: END IF; -- fixed st date is null
1922: IF l_end_copy = 'Y' AND
1923: l_start_copy = 'Y' THEN
1924: l_copy := 'Y';
1925: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1926: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1927: '100: final msg1 :'||l_copy);
1928: END IF;
1929: ELSE
1922: IF l_end_copy = 'Y' AND
1923: l_start_copy = 'Y' THEN
1924: l_copy := 'Y';
1925: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1926: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1927: '100: final msg1 :'||l_copy);
1928: END IF;
1929: ELSE
1930: l_copy := 'N';
1927: '100: final msg1 :'||l_copy);
1928: END IF;
1929: ELSE
1930: l_copy := 'N';
1931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1933: '100: final msg2 :'||l_copy);
1934: END IF;
1935: END IF;
1928: END IF;
1929: ELSE
1930: l_copy := 'N';
1931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
1933: '100: final msg2 :'||l_copy);
1934: END IF;
1935: END IF;
1936: END IF; -- recurring yn
1933: '100: final msg2 :'||l_copy);
1934: END IF;
1935: END IF;
1936: END IF; -- recurring yn
1937: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1938: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: final msg3 :'||l_copy);
1939: END IF;
1940: RETURN(l_copy);
1941: END copy_allowed;
1934: END IF;
1935: END IF;
1936: END IF; -- recurring yn
1937: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1938: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: final msg3 :'||l_copy);
1939: END IF;
1940: RETURN(l_copy);
1941: END copy_allowed;
1942: ----------------------------------------------------------
2069: l_rep_dflt_int_contact_id okc_deliverables.INTERNAL_PARTY_CONTACT_ID%TYPE;
2070: --End of ER Code Modifications
2071: x_errorcode NUMBER;
2072: BEGIN
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2070: --End of ER Code Modifications
2071: x_errorcode NUMBER;
2072: BEGIN
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
2071: x_errorcode NUMBER;
2072: BEGIN
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
2079: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: P_RETAIN_LOCK_DELIVERABLES_YN :'||P_RETAIN_LOCK_DELIVERABLES_YN);
2072: BEGIN
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
2079: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: P_RETAIN_LOCK_DELIVERABLES_YN :'||P_RETAIN_LOCK_DELIVERABLES_YN);
2080:
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
2079: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: P_RETAIN_LOCK_DELIVERABLES_YN :'||P_RETAIN_LOCK_DELIVERABLES_YN);
2080:
2081: END IF;
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
2079: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: P_RETAIN_LOCK_DELIVERABLES_YN :'||P_RETAIN_LOCK_DELIVERABLES_YN);
2080:
2081: END IF;
2082: -- initialize the table type variable
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
2079: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: P_RETAIN_LOCK_DELIVERABLES_YN :'||P_RETAIN_LOCK_DELIVERABLES_YN);
2080:
2081: END IF;
2082: -- initialize the table type variable
2083: delIdTab := delIdTabType();
2199:
2200:
2201:
2202: IF p_source_doc_type = 'TEMPLATE' THEN
2203: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2204: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Source doc is template');
2205: END IF;
2206: -- copy from template to template
2207: IF p_target_doc_type = 'TEMPLATE' THEN
2200:
2201:
2202: IF p_source_doc_type = 'TEMPLATE' THEN
2203: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2204: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Source doc is template');
2205: END IF;
2206: -- copy from template to template
2207: IF p_target_doc_type = 'TEMPLATE' THEN
2208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2204: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Source doc is template');
2205: END IF;
2206: -- copy from template to template
2207: IF p_target_doc_type = 'TEMPLATE' THEN
2208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2209: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is template');
2210: END IF;
2211:
2212: /*** OPEN del_cur;
2205: END IF;
2206: -- copy from template to template
2207: IF p_target_doc_type = 'TEMPLATE' THEN
2208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2209: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is template');
2210: END IF;
2211:
2212: /*** OPEN del_cur;
2213: FETCH del_cur BULK COLLECT INTO delRecTab;**/
2211:
2212: /*** OPEN del_cur;
2213: FETCH del_cur BULK COLLECT INTO delRecTab;**/
2214: IF delRecTab.COUNT <> 0 THEN
2215: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2217: END IF;
2218: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2219: j := j+1;
2212: /*** OPEN del_cur;
2213: FETCH del_cur BULK COLLECT INTO delRecTab;**/
2214: IF delRecTab.COUNT <> 0 THEN
2215: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2216: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2217: END IF;
2218: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2219: j := j+1;
2220: -- extend table type
2223: delNewTab(j) := delRecTab(i);
2224: select okc_deliverable_id_s.nextval INTO delNewTab(j).deliverable_id from dual;
2225: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2226: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2227: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2228: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2229: END IF;
2230: -- bug# 4335441 If p_internal_party_id is not null then assign it to new Template
2231: IF p_internal_party_id is not null THEN
2224: select okc_deliverable_id_s.nextval INTO delNewTab(j).deliverable_id from dual;
2225: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2226: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2227: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2228: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2229: END IF;
2230: -- bug# 4335441 If p_internal_party_id is not null then assign it to new Template
2231: IF p_internal_party_id is not null THEN
2232: delNewTab(j).internal_party_id := p_internal_party_id;
2237: ---------------------------------------------------------------------------------
2238: -- copy from template to business document
2239: -- example template to RFQ
2240: ELSIF p_target_doc_type <> 'TEMPLATE' THEN
2241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is not template');
2243: END IF;
2244:
2245: IF p_target_contractual_doctype is not null THEN
2238: -- copy from template to business document
2239: -- example template to RFQ
2240: ELSIF p_target_doc_type <> 'TEMPLATE' THEN
2241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is not template');
2243: END IF;
2244:
2245: IF p_target_contractual_doctype is not null THEN
2246: /*** OPEN del_cur;
2245: IF p_target_contractual_doctype is not null THEN
2246: /*** OPEN del_cur;
2247: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2248: IF delRecTab.COUNT <> 0 THEN
2249: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2250: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2251: ,'100: target_contractual_doctype is not null and '||
2252: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2253: END IF;
2246: /*** OPEN del_cur;
2247: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2248: IF delRecTab.COUNT <> 0 THEN
2249: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2250: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2251: ,'100: target_contractual_doctype is not null and '||
2252: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2253: END IF;
2254: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2275: delNewTab(j).external_party_contact_id := null;
2276: delNewTab(j).external_party_id := null;
2277: delNewTab(j).external_party_role := null;
2278: delNewTab(j).external_party_site_id := null;
2279: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2281: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2282: END IF;
2283: ELSIF l_copy = 'N' AND p_target_response_doctype is not null THEN
2276: delNewTab(j).external_party_id := null;
2277: delNewTab(j).external_party_role := null;
2278: delNewTab(j).external_party_site_id := null;
2279: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2281: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2282: END IF;
2283: ELSIF l_copy = 'N' AND p_target_response_doctype is not null THEN
2284: l_copy := copy_response_allowed (delRecTab(i),p_target_response_doctype,p_target_doc_type);
2301: delNewTab(j).external_party_contact_id := null;
2302: delNewTab(j).external_party_id := null;
2303: delNewTab(j).external_party_role := null;
2304: delNewTab(j).external_party_site_id := null;
2305: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2307: ,'100: New Deliverable Id from copy_response_allowed :'||
2308: to_char(delNewTab(j).deliverable_id));
2309: END IF;
2302: delNewTab(j).external_party_id := null;
2303: delNewTab(j).external_party_role := null;
2304: delNewTab(j).external_party_site_id := null;
2305: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2307: ,'100: New Deliverable Id from copy_response_allowed :'||
2308: to_char(delNewTab(j).deliverable_id));
2309: END IF;
2310: END IF;
2331: IF delRecTab.COUNT <> 0 THEN
2332: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2333: -- initialize
2334: l_copy := 'N';
2335: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2336: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2337: '100: Old Deliverable Id :'||to_char(delRecTab(i).deliverable_id));
2338: END IF;
2339:
2332: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2333: -- initialize
2334: l_copy := 'N';
2335: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2336: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2337: '100: Old Deliverable Id :'||to_char(delRecTab(i).deliverable_id));
2338: END IF;
2339:
2340:
2357: -- End of ER code modifications
2358:
2359: --check if the deliverable is of contractual type
2360: IF deltype_matches(delRecTab(i).deliverable_type,p_target_doc_type) = 'Y' THEN
2361: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Contractual is :Y');
2363: END IF;
2364: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2365: p_target_contractual_doctype);
2358:
2359: --check if the deliverable is of contractual type
2360: IF deltype_matches(delRecTab(i).deliverable_type,p_target_doc_type) = 'Y' THEN
2361: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Contractual is :Y');
2363: END IF;
2364: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2365: p_target_contractual_doctype);
2366: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Contractual is :Y');
2363: END IF;
2364: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2365: p_target_contractual_doctype);
2366: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2367: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2368: '100: Copy allowed is :'||l_copy);
2369: END IF;
2370: END IF; -- deltype_matches
2363: END IF;
2364: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2365: p_target_contractual_doctype);
2366: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2367: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2368: '100: Copy allowed is :'||l_copy);
2369: END IF;
2370: END IF; -- deltype_matches
2371: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2367: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2368: '100: Copy allowed is :'||l_copy);
2369: END IF;
2370: END IF; -- deltype_matches
2371: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2372: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2373: '100: Copy allowed is :'||l_copy);
2374: END IF;
2375:
2368: '100: Copy allowed is :'||l_copy);
2369: END IF;
2370: END IF; -- deltype_matches
2371: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2372: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2373: '100: Copy allowed is :'||l_copy);
2374: END IF;
2375:
2376: IF l_copy = 'Y' THEN
2396: delNewTab(j).external_party_role := l_ext_party_role;
2397:
2398:
2399:
2400: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2401: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2402: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2404: '100: External Party Role :'||delNewTab(j).external_party_role);
2397:
2398:
2399:
2400: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2401: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2402: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2404: '100: External Party Role :'||delNewTab(j).external_party_role);
2405: END IF;
2399:
2400: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2401: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2402: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2404: '100: External Party Role :'||delNewTab(j).external_party_role);
2405: END IF;
2406: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2407: ELSIF l_copy = 'N' AND p_target_response_doctype is not null THEN
2427:
2428: delNewTab(j).external_party_site_id :=
2429: NVL(delNewTab(j).external_party_site_id,p_external_party_site_id);
2430:
2431: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2432: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2433: ,'100: New Deliverable Id from copy_response_allowed :'||
2434: to_char(delNewTab(j).deliverable_id));
2435: END IF;
2428: delNewTab(j).external_party_site_id :=
2429: NVL(delNewTab(j).external_party_site_id,p_external_party_site_id);
2430:
2431: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2432: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2433: ,'100: New Deliverable Id from copy_response_allowed :'||
2434: to_char(delNewTab(j).deliverable_id));
2435: END IF;
2436: END IF; -- l_copy is Y
2450: END IF;
2451: ---------------------------------------------------------------------------------
2452: -- Busdoc to Busdoc copy
2453: ELSIF p_source_doc_type <> 'TEMPLATE' THEN
2454: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2456: '100: Source doc is not template');
2457: END IF;
2458: ---------------------------------------------------------------------------------
2451: ---------------------------------------------------------------------------------
2452: -- Busdoc to Busdoc copy
2453: ELSIF p_source_doc_type <> 'TEMPLATE' THEN
2454: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2456: '100: Source doc is not template');
2457: END IF;
2458: ---------------------------------------------------------------------------------
2459: -- copy from business document to business document of different type
2458: ---------------------------------------------------------------------------------
2459: -- copy from business document to business document of different type
2460: -- for example RFI to RFQ
2461: IF p_source_doc_type <> p_target_doc_type THEN
2462: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2464: '100: Source doc and target doc are different type');
2465: END IF;
2466: IF p_target_contractual_doctype is not null THEN
2459: -- copy from business document to business document of different type
2460: -- for example RFI to RFQ
2461: IF p_source_doc_type <> p_target_doc_type THEN
2462: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2463: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2464: '100: Source doc and target doc are different type');
2465: END IF;
2466: IF p_target_contractual_doctype is not null THEN
2467:
2464: '100: Source doc and target doc are different type');
2465: END IF;
2466: IF p_target_contractual_doctype is not null THEN
2467:
2468: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2470: '100: p_target_contractual_doctype:'||p_target_contractual_doctype);
2471: END IF;
2472: /***OPEN del_cur;
2465: END IF;
2466: IF p_target_contractual_doctype is not null THEN
2467:
2468: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2469: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2470: '100: p_target_contractual_doctype:'||p_target_contractual_doctype);
2471: END IF;
2472: /***OPEN del_cur;
2473: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2471: END IF;
2472: /***OPEN del_cur;
2473: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2474: IF delRecTab.COUNT <> 0 THEN
2475: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2476: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2477: ,'100: target_contractual_doctype is not null and '||
2478: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2479: END IF;
2472: /***OPEN del_cur;
2473: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2474: IF delRecTab.COUNT <> 0 THEN
2475: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2476: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2477: ,'100: target_contractual_doctype is not null and '||
2478: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2479: END IF;
2480: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2481: -- initialize
2482: l_copy := 'N';
2483: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2484: p_target_contractual_doctype);
2485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: l_copy is :'||l_copy);
2487: END IF;
2488: IF l_copy = 'Y' THEN
2489: j := j+1;
2482: l_copy := 'N';
2483: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2484: p_target_contractual_doctype);
2485: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2486: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: l_copy is :'||l_copy);
2487: END IF;
2488: IF l_copy = 'Y' THEN
2489: j := j+1;
2490: -- extend table type
2496: -- 11.5.10+ bug#3670582 fix reset original del id
2497: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2498:
2499:
2500: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2502: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2503: END IF;
2504: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2497: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2498:
2499:
2500: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2502: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2503: END IF;
2504: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2505: /* Nullout all external party attributes on deliverables.
2529: ---------------------------------------------------
2530: -- busdoc to busdoc of different types
2531: -- for example RFQ to SPO or BPA
2532: ELSIF p_target_contractual_doctype is null THEN
2533: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2534: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2535: '100: p_target_contractual_doctype is null');
2536: END IF;
2537: /***OPEN del_cur;
2530: -- busdoc to busdoc of different types
2531: -- for example RFQ to SPO or BPA
2532: ELSIF p_target_contractual_doctype is null THEN
2533: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2534: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2535: '100: p_target_contractual_doctype is null');
2536: END IF;
2537: /***OPEN del_cur;
2538: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2536: END IF;
2537: /***OPEN del_cur;
2538: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2539: IF delRecTab.COUNT <> 0 THEN
2540: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2541: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2542: ,'100: target_contractual_doctype is null and '||
2543: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2544: END IF;
2537: /***OPEN del_cur;
2538: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2539: IF delRecTab.COUNT <> 0 THEN
2540: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2541: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2542: ,'100: target_contractual_doctype is null and '||
2543: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2544: END IF;
2545: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2545: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2546: -- initialize
2547: l_copy := 'N';
2548: --check if the deliverable belongs to target document type
2549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2551: '100: deltype :'||delRecTab(i).deliverable_type);
2552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2553: '100: doctype :'||p_target_doc_type);
2546: -- initialize
2547: l_copy := 'N';
2548: --check if the deliverable belongs to target document type
2549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2551: '100: deltype :'||delRecTab(i).deliverable_type);
2552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2553: '100: doctype :'||p_target_doc_type);
2554: END IF;
2548: --check if the deliverable belongs to target document type
2549: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2550: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2551: '100: deltype :'||delRecTab(i).deliverable_type);
2552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2553: '100: doctype :'||p_target_doc_type);
2554: END IF;
2555: IF deltype_matches(delRecTab(i).deliverable_type,p_target_doc_type) = 'Y' THEN
2556:
2555: IF deltype_matches(delRecTab(i).deliverable_type,p_target_doc_type) = 'Y' THEN
2556:
2557: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2558: p_target_contractual_doctype);
2559: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2561: '100: l_copy is :'||l_copy);
2562: END IF;
2563: END IF; -- deltype_matches
2556:
2557: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2558: p_target_contractual_doctype);
2559: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2560: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2561: '100: l_copy is :'||l_copy);
2562: END IF;
2563: END IF; -- deltype_matches
2564:
2579: from dual;
2580: -- 11.5.10+ bug#3670582 fix reset original del id
2581: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2582:
2583: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2584: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2585: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2586: END IF;
2587: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2580: -- 11.5.10+ bug#3670582 fix reset original del id
2581: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2582:
2583: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2584: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2585: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2586: END IF;
2587: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2588: -- Bug#3308804 assign param values if they are not null
2619: ---------------------------------------------------------------------------------
2620: -- copy from business document to business document of same type
2621: -- for example RFQ to RFQ
2622: ELSIF p_source_doc_type = p_target_doc_type THEN
2623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2625: '100: Source doc and target doc are same type');
2626: END IF;
2627: IF p_target_contractual_doctype is not null THEN
2620: -- copy from business document to business document of same type
2621: -- for example RFQ to RFQ
2622: ELSIF p_source_doc_type = p_target_doc_type THEN
2623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2625: '100: Source doc and target doc are same type');
2626: END IF;
2627: IF p_target_contractual_doctype is not null THEN
2628:
2625: '100: Source doc and target doc are same type');
2626: END IF;
2627: IF p_target_contractual_doctype is not null THEN
2628:
2629: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2630: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2631: '100: p_target_contractual_doctype is not null');
2632: END IF;
2633: /***OPEN del_cur;
2626: END IF;
2627: IF p_target_contractual_doctype is not null THEN
2628:
2629: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2630: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2631: '100: p_target_contractual_doctype is not null');
2632: END IF;
2633: /***OPEN del_cur;
2634: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2632: END IF;
2633: /***OPEN del_cur;
2634: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2635: IF delRecTab.COUNT <> 0 THEN
2636: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2638: ,'100: target_contractual_doctype is not null and '||
2639: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2640: END IF;
2633: /***OPEN del_cur;
2634: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2635: IF delRecTab.COUNT <> 0 THEN
2636: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2637: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2638: ,'100: target_contractual_doctype is not null and '||
2639: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2640: END IF;
2641: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2642: -- initialize
2643: l_copy := 'N';
2644: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2645: p_target_contractual_doctype);
2646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2648: '100: l_copy is :'||l_copy);
2649: END IF;
2650: IF l_copy = 'Y' THEN
2643: l_copy := 'N';
2644: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2645: p_target_contractual_doctype);
2646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2648: '100: l_copy is :'||l_copy);
2649: END IF;
2650: IF l_copy = 'Y' THEN
2651: j := j+1;
2657: from dual;
2658: -- 11.5.10+ bug#3670582 fix reset original del id
2659: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2660:
2661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2663: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2664: END IF;
2665: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2658: -- 11.5.10+ bug#3670582 fix reset original del id
2659: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2660:
2661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2663: '100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2664: END IF;
2665: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2666: /* Nullout all external party attributes on deliverables.
2731: delNewTab(j).actual_due_date:= null;
2732: delNewTab(j).start_event_date:= null;
2733: delNewTab(j).end_event_date:= null;
2734:
2735: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2737: ,'100: New Deliverable Id from copy_response_allowed :'||
2738: to_char(delNewTab(j).deliverable_id));
2739: END IF;
2732: delNewTab(j).start_event_date:= null;
2733: delNewTab(j).end_event_date:= null;
2734:
2735: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2736: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2737: ,'100: New Deliverable Id from copy_response_allowed :'||
2738: to_char(delNewTab(j).deliverable_id));
2739: END IF;
2740: END IF;
2743: END LOOP;
2744: END IF; -- del_cur%NOTFOUND
2745: -- this is applicable to purchasing documents and RFIs
2746: ELSIF p_target_contractual_doctype is null THEN
2747: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2749: ,'100: p_target_contractual_doctype is null');
2750: END IF;
2751: /***OPEN del_cur;
2744: END IF; -- del_cur%NOTFOUND
2745: -- this is applicable to purchasing documents and RFIs
2746: ELSIF p_target_contractual_doctype is null THEN
2747: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2749: ,'100: p_target_contractual_doctype is null');
2750: END IF;
2751: /***OPEN del_cur;
2752: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2750: END IF;
2751: /***OPEN del_cur;
2752: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2753: IF delRecTab.COUNT <> 0 THEN
2754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2756: ,'100: target_contractual_doctype is null and '||
2757: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2758: END IF;
2751: /***OPEN del_cur;
2752: FETCH del_cur BULK COLLECT INTO delRecTab;***/
2753: IF delRecTab.COUNT <> 0 THEN
2754: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2755: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2756: ,'100: target_contractual_doctype is null and '||
2757: 'Number of records in delRecTab :'||to_char(delRecTab.COUNT));
2758: END IF;
2759: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
2763: IF deltype_matches(delRecTab(i).deliverable_type,p_target_doc_type) = 'Y' THEN
2764:
2765: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2766: p_target_contractual_doctype);
2767: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2768: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2769: '100: l_copy is :'||l_copy);
2770: END IF;
2771: END IF; -- deltype_matches
2764:
2765: l_copy := copy_allowed (delRecTab(i),p_target_doc_type,
2766: p_target_contractual_doctype);
2767: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2768: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
2769: '100: l_copy is :'||l_copy);
2770: END IF;
2771: END IF; -- deltype_matches
2772:
2780: from dual;
2781: -- 11.5.10+ bug#3670582 fix reset original del id
2782: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2783:
2784: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2785: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2786: ,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2787: END IF;
2788: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2781: -- 11.5.10+ bug#3670582 fix reset original del id
2782: delNewTab(j).original_deliverable_id := delNewTab(j).deliverable_id;
2783:
2784: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2785: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2786: ,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
2787: END IF;
2788: delIdTab(j).del_id := delNewTab(j).deliverable_id;
2789: --Bug#4126344
2847: delNewTab(j).actual_due_date:= null;
2848: delNewTab(j).start_event_date:= null;
2849: delNewTab(j).end_event_date:= null;
2850:
2851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2853: ,'100: New Deliverable Id from copy_response_allowed :'||
2854: to_char(delNewTab(j).deliverable_id));
2855: END IF;
2848: delNewTab(j).start_event_date:= null;
2849: delNewTab(j).end_event_date:= null;
2850:
2851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2853: ,'100: New Deliverable Id from copy_response_allowed :'||
2854: to_char(delNewTab(j).deliverable_id));
2855: END IF;
2856: END IF;
2865:
2866: -- create deliverables for the target document
2867: IF delNewTab.COUNT <> 0 THEN
2868: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
2869: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2871: ,'100: Create new Deliverables :'||to_char(delNewTab(i).deliverable_id));
2872: END IF;
2873: delNewTab(i).business_document_id := p_target_doc_id;
2866: -- create deliverables for the target document
2867: IF delNewTab.COUNT <> 0 THEN
2868: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
2869: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2870: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
2871: ,'100: Create new Deliverables :'||to_char(delNewTab(i).deliverable_id));
2872: END IF;
2873: delNewTab(i).business_document_id := p_target_doc_id;
2874: delNewTab(i).business_document_type := p_target_doc_type;
3110: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3112: END IF;
3113: END LOOP;
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3116: '100: Done Creating Deliverables ');
3117: END IF;
3118: END IF; -- delNewTab.COUNT <> 0
3111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3112: END IF;
3113: END LOOP;
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3116: '100: Done Creating Deliverables ');
3117: END IF;
3118: END IF; -- delNewTab.COUNT <> 0
3119: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3116: '100: Done Creating Deliverables ');
3117: END IF;
3118: END IF; -- delNewTab.COUNT <> 0
3119: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3121: '100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
3122: END IF;
3123:
3116: '100: Done Creating Deliverables ');
3117: END IF;
3118: END IF; -- delNewTab.COUNT <> 0
3119: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3121: '100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
3122: END IF;
3123:
3124: -- copy any existing attachments if allowed
3129: -- check if attachments exists
3130: IF attachment_exists(p_entity_name => G_ENTITY_NAME
3131: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
3132:
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: '100: Copy Deliverable Attachments :'||to_char(delIdTab(i).del_id));
3136: END IF;
3137: -- copy attachments
3130: IF attachment_exists(p_entity_name => G_ENTITY_NAME
3131: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
3132:
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: '100: Copy Deliverable Attachments :'||to_char(delIdTab(i).del_id));
3136: END IF;
3137: -- copy attachments
3138: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
3143: X_to_pk1_value => to_char(delIdTab(i).del_id),
3144: X_CREATED_BY => FND_GLOBAL.User_id,
3145: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
3146: );
3147: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3148: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3149: '100: Done Copy Deliverable Attachments ');
3150: END IF;
3151: END IF;
3144: X_CREATED_BY => FND_GLOBAL.User_id,
3145: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
3146: );
3147: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3148: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3149: '100: Done Copy Deliverable Attachments ');
3150: END IF;
3151: END IF;
3152: END LOOP;
3156: IF del_cur %ISOPEN THEN
3157: CLOSE del_cur ;
3158: END IF;
3159: x_return_status := l_return_status;
3160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3162: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
3163: END IF;
3164: EXCEPTION
3157: CLOSE del_cur ;
3158: END IF;
3159: x_return_status := l_return_status;
3160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3162: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
3163: END IF;
3164: EXCEPTION
3165: WHEN FND_API.G_EXC_ERROR THEN
3162: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
3163: END IF;
3164: EXCEPTION
3165: WHEN FND_API.G_EXC_ERROR THEN
3166: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3167: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
3168: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with G_EXC_ERROR: '||
3169: substr(sqlerrm,1,200));
3170: END IF;
3163: END IF;
3164: EXCEPTION
3165: WHEN FND_API.G_EXC_ERROR THEN
3166: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3167: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
3168: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with G_EXC_ERROR: '||
3169: substr(sqlerrm,1,200));
3170: END IF;
3171: IF del_cur %ISOPEN THEN
3177: p_data => x_msg_data
3178: );
3179:
3180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3181: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3182: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
3183: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with '||
3184: 'G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
3185: END IF;
3178: );
3179:
3180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3181: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3182: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
3183: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with '||
3184: 'G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
3185: END IF;
3186: IF del_cur %ISOPEN THEN
3192: p_data => x_msg_data
3193: );
3194:
3195: WHEN OTHERS THEN
3196: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
3198: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with '||
3199: 'G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
3200: END IF;
3193: );
3194:
3195: WHEN OTHERS THEN
3196: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
3198: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with '||
3199: 'G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
3200: END IF;
3201: IF del_cur %ISOPEN THEN
3294: l_recur_parent_id NUMBER;
3295: x_errorcode NUMBER;
3296: BEGIN
3297:
3298: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3299: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3300: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables');
3301: END IF;
3302:
3295: x_errorcode NUMBER;
3296: BEGIN
3297:
3298: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3299: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3300: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables');
3301: END IF;
3302:
3303:
3420: IF delRecTab.COUNT <> 0 THEN
3421: -- initialize the table type variable
3422: delIdTab := delIdTabType();
3423: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
3424: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3425: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3426: ,'100: Inside def cursor loop'||to_char(delRecTab(i).deliverable_id));
3427: END IF;
3428:
3421: -- initialize the table type variable
3422: delIdTab := delIdTabType();
3423: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
3424: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3425: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3426: ,'100: Inside def cursor loop'||to_char(delRecTab(i).deliverable_id));
3427: END IF;
3428:
3429:
3556: OPEN del_ins_cur(delRecTab(i).original_deliverable_id);
3557: FETCH del_ins_cur BULK COLLECT INTO delInsTab;*/
3558: IF delInsTab.COUNT <> 0 THEN
3559: FOR k IN delInsTab.FIRST..delInsTab.LAST LOOP
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,'100: Inside Instance cursor loop');
3562: END IF;
3563: j:=j+1;
3564: q:=q+1;
3557: FETCH del_ins_cur BULK COLLECT INTO delInsTab;*/
3558: IF delInsTab.COUNT <> 0 THEN
3559: FOR k IN delInsTab.FIRST..delInsTab.LAST LOOP
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,'100: Inside Instance cursor loop');
3562: END IF;
3563: j:=j+1;
3564: q:=q+1;
3565: -- extend table type
3569: -- build new version deliverables table
3570: delNewTab(j):= delInsTab(k);
3571: --store the recurring_del_parent_id in local variable
3572: l_recur_parent_id := delInsTab(k).recurring_del_parent_id;
3573: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3574: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Recur Id'||l_recur_parent_id);
3575: END IF;
3576: delNewTab(j).business_document_version := p_current_doc_version;
3577: delNewTab(j).recurring_del_parent_id := delRecTab(i).deliverable_id;
3570: delNewTab(j):= delInsTab(k);
3571: --store the recurring_del_parent_id in local variable
3572: l_recur_parent_id := delInsTab(k).recurring_del_parent_id;
3573: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3574: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Recur Id'||l_recur_parent_id);
3575: END IF;
3576: delNewTab(j).business_document_version := p_current_doc_version;
3577: delNewTab(j).recurring_del_parent_id := delRecTab(i).deliverable_id;
3578: select okc_deliverable_id_s.nextval
3649: --Assign start and end eventdates to the new definition from instance
3650: open event_date_cursor(l_recur_parent_id);
3651: fetch event_date_cursor INTO event_date_rec;
3652: IF event_date_cursor%FOUND THEN
3653: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3655: ,'Def Id'||delRecTab(i).deliverable_id);
3656: END IF;
3657:
3650: open event_date_cursor(l_recur_parent_id);
3651: fetch event_date_cursor INTO event_date_rec;
3652: IF event_date_cursor%FOUND THEN
3653: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3655: ,'Def Id'||delRecTab(i).deliverable_id);
3656: END IF;
3657:
3658: Update okc_deliverables set start_event_date = event_date_rec.start_event_date,
3670: --Add this deliverable record to delNewVersion Table.
3671:
3672: IF delRecTab(i).amendment_operation is null AND
3673: delRecTab(i).summary_amend_operation_code is null THEN -- bug#3656679
3674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: amendment_operation is null');
3676: END IF;
3677: -- Always copy instance from managing version
3678: -- do not copy definition
3671:
3672: IF delRecTab(i).amendment_operation is null AND
3673: delRecTab(i).summary_amend_operation_code is null THEN -- bug#3656679
3674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3675: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: amendment_operation is null');
3676: END IF;
3677: -- Always copy instance from managing version
3678: -- do not copy definition
3679: ----------------------------------
3796: OPEN del_ins_cur(delRecTab(i).original_deliverable_id);
3797: FETCH del_ins_cur BULK COLLECT INTO delInsTab;**/
3798: IF delInsTab.COUNT <> 0 THEN
3799: FOR k IN delInsTab.FIRST..delInsTab.LAST LOOP
3800: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3801: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside Instance cursor loop');
3802: END IF;
3803: j:=j+1;
3804: q:=q+1;
3797: FETCH del_ins_cur BULK COLLECT INTO delInsTab;**/
3798: IF delInsTab.COUNT <> 0 THEN
3799: FOR k IN delInsTab.FIRST..delInsTab.LAST LOOP
3800: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3801: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside Instance cursor loop');
3802: END IF;
3803: j:=j+1;
3804: q:=q+1;
3805: -- extend table type
3888: END IF; -- recurring_yn = 'Y'
3889:
3890: END LOOP;-- delRecTab(i)
3891: END IF; --delRecTab.COUNT <> 0
3892: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3893: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'outside def cursor loop');
3894: END IF;
3895:
3896: --BULK INSERT into okc_deliverables the new version of deliverables.
3889:
3890: END LOOP;-- delRecTab(i)
3891: END IF; --delRecTab.COUNT <> 0
3892: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3893: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'outside def cursor loop');
3894: END IF;
3895:
3896: --BULK INSERT into okc_deliverables the new version of deliverables.
3897: IF delNewTab.COUNT <> 0 THEN
3894: END IF;
3895:
3896: --BULK INSERT into okc_deliverables the new version of deliverables.
3897: IF delNewTab.COUNT <> 0 THEN
3898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3899: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Insert new version records');
3900: END IF;
3901: -- update the who columns
3902: FOR j IN delNewTab.FIRST..delNewTab.LAST LOOP
3895:
3896: --BULK INSERT into okc_deliverables the new version of deliverables.
3897: IF delNewTab.COUNT <> 0 THEN
3898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3899: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Insert new version records');
3900: END IF;
3901: -- update the who columns
3902: FOR j IN delNewTab.FIRST..delNewTab.LAST LOOP
3903: --3667445 do not reset creation date for definitions, reset only for instances
3950: INSERT INTO okc_deliverables VALUES delNewTab(j);*/
3951:
3952: --------------------------------------------
3953:
3954: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3955: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Before insert');
3956: END IF;
3957: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
3958: INSERT INTO okc_deliverables
3951:
3952: --------------------------------------------
3953:
3954: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3955: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Before insert');
3956: END IF;
3957: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
3958: INSERT INTO okc_deliverables
3959: (DELIVERABLE_ID,
4218:
4219: -------------------------------------------------
4220: IF attachment_exists(p_entity_name => G_ENTITY_NAME
4221: ,p_pk1_value => delIdTab(j).orig_del_id) THEN
4222: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4223: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: create attachments');
4224: END IF;
4225: -- copy attachments
4226: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
4219: -------------------------------------------------
4220: IF attachment_exists(p_entity_name => G_ENTITY_NAME
4221: ,p_pk1_value => delIdTab(j).orig_del_id) THEN
4222: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4223: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: create attachments');
4224: END IF;
4225: -- copy attachments
4226: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
4227: fnd_attached_documents2_pkg.copy_attachments(
4240: CLOSE del_cur ;
4241: END IF;
4242:
4243:
4244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4246: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables');
4247: END IF;
4248:
4241: END IF;
4242:
4243:
4244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4246: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables');
4247: END IF;
4248:
4249: x_return_status := l_return_status;
4248:
4249: x_return_status := l_return_status;
4250: EXCEPTION
4251: WHEN FND_API.G_EXC_ERROR THEN
4252: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4253: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
4254: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_ERROR'||
4255: substr(sqlerrm,1,200));
4256: END IF;
4249: x_return_status := l_return_status;
4250: EXCEPTION
4251: WHEN FND_API.G_EXC_ERROR THEN
4252: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4253: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
4254: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_ERROR'||
4255: substr(sqlerrm,1,200));
4256: END IF;
4257: IF del_cur %ISOPEN THEN
4268: p_count => x_msg_count,
4269: p_data => x_msg_data
4270: );
4271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4272: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4273: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4274: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_UNEXPECTED_ERROR'||
4275: substr(sqlerrm,1,200));
4276: END IF;
4269: p_data => x_msg_data
4270: );
4271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4272: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4273: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4274: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_UNEXPECTED_ERROR'||
4275: substr(sqlerrm,1,200));
4276: END IF;
4277: IF del_cur %ISOPEN THEN
4289: p_data => x_msg_data
4290: );
4291:
4292: WHEN OTHERS THEN
4293: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4294: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4295: ,'100: In when others leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
4296: END IF;
4297: IF del_cur %ISOPEN THEN
4290: );
4291:
4292: WHEN OTHERS THEN
4293: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4294: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4295: ,'100: In when others leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
4296: END IF;
4297: IF del_cur %ISOPEN THEN
4298: CLOSE del_cur ;
4376: delCount NUMBER;
4377: x_errorcode NUMBER;
4378: BEGIN
4379:
4380: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4381: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4382: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.version_deliverables');
4383: END IF;
4384: ----------------------------------------
4377: x_errorcode NUMBER;
4378: BEGIN
4379:
4380: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4381: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4382: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.version_deliverables');
4383: END IF;
4384: ----------------------------------------
4385: /*****
4509: IF delRecTab.COUNT <> 0 THEN
4510: -- initialize the table type variable
4511: delIdTab := delIdTabType();
4512: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
4513: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4514: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside def cursor loop'||
4515: to_char(delRecTab(i).deliverable_id));
4516: END IF;
4517:
4510: -- initialize the table type variable
4511: delIdTab := delIdTabType();
4512: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
4513: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4514: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside def cursor loop'||
4515: to_char(delRecTab(i).deliverable_id));
4516: END IF;
4517:
4518: /* bug#3630770 commented this code and moved to clear_amendment_operation
4520: delRecTab(i).summary_amend_operation_code is null THEN
4521: -- Since the summary_amend_operation_code is null, the deliverable is not
4522: -- existing in the signed contract, it was added and deleted in the intermediate
4523: -- versions. So hard delete the record.
4524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4526: ,'100: Amendment_operation_summary_code is null hard delete this deliverable'||
4527: to_char(delRecTab(i).deliverable_id));
4528: END IF;
4521: -- Since the summary_amend_operation_code is null, the deliverable is not
4522: -- existing in the signed contract, it was added and deleted in the intermediate
4523: -- versions. So hard delete the record.
4524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4526: ,'100: Amendment_operation_summary_code is null hard delete this deliverable'||
4527: to_char(delRecTab(i).deliverable_id));
4528: END IF;
4529: delete from okc_deliverables where deliverable_id = delRecTab(i).deliverable_id;*/
4553: /***
4554: BULK INSERT into okc_deliverables the new version of deliverables.
4555: ***/
4556: IF delNewTab.COUNT <> 0 THEN
4557: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4558: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Insert new version records');
4559: END IF;
4560: -- update the who columns
4561: FOR j IN delNewTab.FIRST..delNewTab.LAST LOOP
4554: BULK INSERT into okc_deliverables the new version of deliverables.
4555: ***/
4556: IF delNewTab.COUNT <> 0 THEN
4557: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4558: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Insert new version records');
4559: END IF;
4560: -- update the who columns
4561: FOR j IN delNewTab.FIRST..delNewTab.LAST LOOP
4562: -- do not reset the creation date bug#3641366
4568: END LOOP;
4569: ------------------------------------------
4570:
4571:
4572: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4573: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Before insert');
4574: END IF;
4575: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
4576: INSERT INTO okc_deliverables
4569: ------------------------------------------
4570:
4571:
4572: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4573: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Before insert');
4574: END IF;
4575: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
4576: INSERT INTO okc_deliverables
4577: (DELIVERABLE_ID,
4788:
4789: FOR j IN delIdTab.FIRST..delIdTab.LAST LOOP
4790: IF attachment_exists(p_entity_name => G_ENTITY_NAME
4791: ,p_pk1_value => delIdTab(j).orig_del_id) THEN
4792: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: create attachments');
4794: END IF;
4795: -- copy attachments
4796: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
4789: FOR j IN delIdTab.FIRST..delIdTab.LAST LOOP
4790: IF attachment_exists(p_entity_name => G_ENTITY_NAME
4791: ,p_pk1_value => delIdTab(j).orig_del_id) THEN
4792: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: create attachments');
4794: END IF;
4795: -- copy attachments
4796: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
4797: fnd_attached_documents2_pkg.copy_attachments(
4813:
4814: /*** start bug#3618448 do not flush amendment operations during versioning. PO will call
4815: clear amendment to flush amendment operation code.
4816: FOR del_rec IN del_cur LOOP
4817: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4818: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4819: ,'100: Flush Amendment operation:'
4820: ||to_char(del_rec.deliverable_id));
4821: END IF;
4814: /*** start bug#3618448 do not flush amendment operations during versioning. PO will call
4815: clear amendment to flush amendment operation code.
4816: FOR del_rec IN del_cur LOOP
4817: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4818: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4819: ,'100: Flush Amendment operation:'
4820: ||to_char(del_rec.deliverable_id));
4821: END IF;
4822: UPDATE okc_deliverables SET amendment_operation = null,
4832: CLOSE del_cur ;
4833: END IF;*** end bug#3618448 **/
4834:
4835: END IF; -- IF delCount = 0
4836: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4837: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4838: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables');
4839: END IF;
4840:
4833: END IF;*** end bug#3618448 **/
4834:
4835: END IF; -- IF delCount = 0
4836: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4837: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4838: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables');
4839: END IF;
4840:
4841: x_return_status := l_return_status;
4840:
4841: x_return_status := l_return_status;
4842: EXCEPTION
4843: WHEN FND_API.G_EXC_ERROR THEN
4844: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4845: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
4846: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_ERROR'||
4847: substr(sqlerrm,1,200));
4848: END IF;
4841: x_return_status := l_return_status;
4842: EXCEPTION
4843: WHEN FND_API.G_EXC_ERROR THEN
4844: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4845: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
4846: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_ERROR'||
4847: substr(sqlerrm,1,200));
4848: END IF;
4849: IF del_cur %ISOPEN THEN
4855: p_data => x_msg_data
4856: );
4857:
4858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4859: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4861: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_UNEXPECTED_ERROR'||
4862: substr(sqlerrm,1,200));
4863: END IF;
4856: );
4857:
4858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4859: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4861: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_UNEXPECTED_ERROR'||
4862: substr(sqlerrm,1,200));
4863: END IF;
4864: IF del_cur %ISOPEN THEN
4870: p_data => x_msg_data
4871: );
4872:
4873: WHEN OTHERS THEN
4874: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4875: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4876: ,'100: In when others leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
4877: END IF;
4878: IF del_cur %ISOPEN THEN
4871: );
4872:
4873: WHEN OTHERS THEN
4874: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4875: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4876: ,'100: In when others leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
4877: END IF;
4878: IF del_cur %ISOPEN THEN
4879: CLOSE del_cur ;
4927: l_api_name CONSTANT VARCHAR2(30) :='clear_amendment_operation';
4928:
4929: BEGIN
4930:
4931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': inside the API');
4933: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_id :'||p_doc_id);
4934: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_type :'||p_doc_type);
4935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':p_keep_summary:'||p_keep_summary);
4928:
4929: BEGIN
4930:
4931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': inside the API');
4933: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_id :'||p_doc_id);
4934: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_type :'||p_doc_type);
4935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':p_keep_summary:'||p_keep_summary);
4936: END IF;
4929: BEGIN
4930:
4931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': inside the API');
4933: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_id :'||p_doc_id);
4934: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_type :'||p_doc_type);
4935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':p_keep_summary:'||p_keep_summary);
4936: END IF;
4937: -- Flush amendment attributes on the definition
4930:
4931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': inside the API');
4933: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_id :'||p_doc_id);
4934: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_type :'||p_doc_type);
4935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':p_keep_summary:'||p_keep_summary);
4936: END IF;
4937: -- Flush amendment attributes on the definition
4938: FOR def_rec IN def_cur LOOP
4931: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4932: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': inside the API');
4933: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_id :'||p_doc_id);
4934: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,': p_doc_type :'||p_doc_type);
4935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':p_keep_summary:'||p_keep_summary);
4936: END IF;
4937: -- Flush amendment attributes on the definition
4938: FOR def_rec IN def_cur LOOP
4939: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4935: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':p_keep_summary:'||p_keep_summary);
4936: END IF;
4937: -- Flush amendment attributes on the definition
4938: FOR def_rec IN def_cur LOOP
4939: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4940: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '
4941: ||to_char(def_rec.deliverable_id));
4942: END IF;
4943: IF p_keep_summary = 'N' THEN
4936: END IF;
4937: -- Flush amendment attributes on the definition
4938: FOR def_rec IN def_cur LOOP
4939: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4940: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '
4941: ||to_char(def_rec.deliverable_id));
4942: END IF;
4943: IF p_keep_summary = 'N' THEN
4944: --bug#3630770,3639432 As per the new changes to amendments we hard delete deliverable
4944: --bug#3630770,3639432 As per the new changes to amendments we hard delete deliverable
4945: -- if either amendment_operation or summary code is 'DELETED' 20th May 2004
4946: IF def_rec.amendment_operation = 'DELETED' OR
4947: def_rec.summary_amend_operation_code = 'DELETED' THEN
4948: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
4950: '100: deleted deliverable: '||to_char(def_rec.deliverable_id));
4951: END IF;
4952: -- delete deleverable definitions which are removed from approved business doc
4945: -- if either amendment_operation or summary code is 'DELETED' 20th May 2004
4946: IF def_rec.amendment_operation = 'DELETED' OR
4947: def_rec.summary_amend_operation_code = 'DELETED' THEN
4948: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
4950: '100: deleted deliverable: '||to_char(def_rec.deliverable_id));
4951: END IF;
4952: -- delete deleverable definitions which are removed from approved business doc
4953: delete from okc_deliverables
4966: last_updated_by= Fnd_Global.User_Id,
4967: last_update_date = sysdate,
4968: last_update_login=Fnd_Global.Login_Id
4969: WHERE deliverable_id = def_rec.deliverable_id;
4970: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4971: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4972: ,'100: updated deliverable: '||to_char(def_rec.deliverable_id));
4973: END IF;
4974: END IF;
4967: last_update_date = sysdate,
4968: last_update_login=Fnd_Global.Login_Id
4969: WHERE deliverable_id = def_rec.deliverable_id;
4970: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4971: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4972: ,'100: updated deliverable: '||to_char(def_rec.deliverable_id));
4973: END IF;
4974: END IF;
4975:
4977: --bug#3630770, 3639432 As per the new changes to amendments we hard delete deliverable
4978: -- if either amendment_operation is DELETED or summary code is null
4979: IF def_rec.amendment_operation = 'DELETED' AND
4980: def_rec.summary_amend_operation_code is null THEN
4981: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4982: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
4983: '100: deleted deliverable: '||to_char(def_rec.deliverable_id));
4984: END IF;
4985: -- delete deleverable definitions which are removed from approved business doc
4978: -- if either amendment_operation is DELETED or summary code is null
4979: IF def_rec.amendment_operation = 'DELETED' AND
4980: def_rec.summary_amend_operation_code is null THEN
4981: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4982: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
4983: '100: deleted deliverable: '||to_char(def_rec.deliverable_id));
4984: END IF;
4985: -- delete deleverable definitions which are removed from approved business doc
4986: delete from okc_deliverables
4995: last_updated_by= Fnd_Global.User_Id,
4996: last_update_date = sysdate,
4997: last_update_login=Fnd_Global.Login_Id
4998: WHERE deliverable_id = def_rec.deliverable_id;
4999: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
5001: ,'100: updated deliverable: '||to_char(def_rec.deliverable_id));
5002: END IF;
5003: END IF;
4996: last_update_date = sysdate,
4997: last_update_login=Fnd_Global.Login_Id
4998: WHERE deliverable_id = def_rec.deliverable_id;
4999: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
5001: ,'100: updated deliverable: '||to_char(def_rec.deliverable_id));
5002: END IF;
5003: END IF;
5004:
5011: x_return_status := l_return_status;
5012:
5013: EXCEPTION
5014: WHEN OTHERS THEN
5015: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5016: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
5017: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.clear_amendments with G_EXC_UNEXPECTED_ERROR'||
5018: substr(sqlerrm,1,200));
5019: END IF;
5012:
5013: EXCEPTION
5014: WHEN OTHERS THEN
5015: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5016: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
5017: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.clear_amendments with G_EXC_UNEXPECTED_ERROR'||
5018: substr(sqlerrm,1,200));
5019: END IF;
5020: -- close any open cursors
5058: delIdTab delIdTabType;
5059: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5060:
5061: BEGIN
5062: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5063: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
5064: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES');
5065: END IF;
5066: OPEN del_cur;
5059: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5060:
5061: BEGIN
5062: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5063: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
5064: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES');
5065: END IF;
5066: OPEN del_cur;
5067: FETCH del_cur BULK COLLECT INTO delIdTab;
5079: x_return_status := l_return_status;
5080:
5081: EXCEPTION
5082: WHEN FND_API.G_EXC_ERROR THEN
5083: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5084: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_ERROR');
5085: END IF;
5086: IF del_cur %ISOPEN THEN
5087: CLOSE del_cur ;
5080:
5081: EXCEPTION
5082: WHEN FND_API.G_EXC_ERROR THEN
5083: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5084: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_ERROR');
5085: END IF;
5086: IF del_cur %ISOPEN THEN
5087: CLOSE del_cur ;
5088: END IF;
5091: p_count => x_msg_count,
5092: p_data => x_msg_data
5093: );
5094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5095: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5096: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_UNEXPECTED_ERROR');
5097: END IF;
5098: IF del_cur %ISOPEN THEN
5099: CLOSE del_cur ;
5092: p_data => x_msg_data
5093: );
5094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5095: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5096: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_UNEXPECTED_ERROR');
5097: END IF;
5098: IF del_cur %ISOPEN THEN
5099: CLOSE del_cur ;
5100: END IF;
5104: p_data => x_msg_data
5105: );
5106:
5107: WHEN OTHERS THEN
5108: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5109: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_UNEXPECTED_ERROR');
5110: END IF;
5111: IF del_cur %ISOPEN THEN
5112: CLOSE del_cur ;
5105: );
5106:
5107: WHEN OTHERS THEN
5108: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5109: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_UNEXPECTED_ERROR');
5110: END IF;
5111: IF del_cur %ISOPEN THEN
5112: CLOSE del_cur ;
5113: END IF;
5142:
5143:
5144: BEGIN
5145:
5146: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
5148: END IF;
5149:
5150:
5143:
5144: BEGIN
5145:
5146: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5147: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
5148: END IF;
5149:
5150:
5151: --insert into status history
5173: Fnd_Global.User_Id,
5174: sysdate,
5175: Fnd_Global.Login_Id);
5176:
5177: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5178: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving ');
5179: END IF;
5180: x_return_status := l_return_status;
5181: EXCEPTION
5174: sysdate,
5175: Fnd_Global.Login_Id);
5176:
5177: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5178: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving ');
5179: END IF;
5180: x_return_status := l_return_status;
5181: EXCEPTION
5182: WHEN FND_API.G_EXC_ERROR THEN
5179: END IF;
5180: x_return_status := l_return_status;
5181: EXCEPTION
5182: WHEN FND_API.G_EXC_ERROR THEN
5183: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5184: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
5185: END IF;
5186: x_return_status := G_RET_STS_ERROR;
5187: FND_MSG_PUB.Count_And_Get(
5180: x_return_status := l_return_status;
5181: EXCEPTION
5182: WHEN FND_API.G_EXC_ERROR THEN
5183: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5184: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
5185: END IF;
5186: x_return_status := G_RET_STS_ERROR;
5187: FND_MSG_PUB.Count_And_Get(
5188: p_count => x_msg_count,
5189: p_data => x_msg_data
5190: );
5191:
5192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5193: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5194: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
5195: END IF;
5196: x_return_status := G_RET_STS_UNEXP_ERROR;
5197: FND_MSG_PUB.Count_And_Get(
5190: );
5191:
5192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5193: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5194: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
5195: END IF;
5196: x_return_status := G_RET_STS_UNEXP_ERROR;
5197: FND_MSG_PUB.Count_And_Get(
5198: p_count => x_msg_count,
5199: p_data => x_msg_data
5200: );
5201:
5202: WHEN OTHERS THEN
5203: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5204: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
5205: END IF;
5206: x_return_status := G_RET_STS_UNEXP_ERROR;
5207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5200: );
5201:
5202: WHEN OTHERS THEN
5203: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5204: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
5205: END IF;
5206: x_return_status := G_RET_STS_UNEXP_ERROR;
5207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5208: END IF;
5267:
5268:
5269: BEGIN
5270:
5271: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS');
5273: END IF;
5274: IF p_cancel_yn = 'N' THEN
5275: OPEN del_activate_cur;
5268:
5269: BEGIN
5270:
5271: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS');
5273: END IF;
5274: IF p_cancel_yn = 'N' THEN
5275: OPEN del_activate_cur;
5276: FETCH del_activate_cur BULK COLLECT INTO delIdTab;
5425: CLOSE del_cancel_cur;
5426: **/
5427: END IF; -- if operation is for CANCELLED
5428:
5429: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5430: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS');
5431: END IF;
5432: x_return_status := l_return_status;
5433: EXCEPTION
5426: **/
5427: END IF; -- if operation is for CANCELLED
5428:
5429: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5430: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS');
5431: END IF;
5432: x_return_status := l_return_status;
5433: EXCEPTION
5434: WHEN FND_API.G_EXC_ERROR THEN
5431: END IF;
5432: x_return_status := l_return_status;
5433: EXCEPTION
5434: WHEN FND_API.G_EXC_ERROR THEN
5435: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5436: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_ERROR');
5437: END IF;
5438: IF del_activate_cur %ISOPEN THEN
5439: CLOSE del_activate_cur ;
5432: x_return_status := l_return_status;
5433: EXCEPTION
5434: WHEN FND_API.G_EXC_ERROR THEN
5435: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5436: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_ERROR');
5437: END IF;
5438: IF del_activate_cur %ISOPEN THEN
5439: CLOSE del_activate_cur ;
5440: END IF;
5444: p_data => x_msg_data
5445: );
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5449: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_UNEXPECTED_ERROR');
5450: END IF;
5451: IF del_activate_cur %ISOPEN THEN
5452: CLOSE del_activate_cur ;
5445: );
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5449: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_UNEXPECTED_ERROR');
5450: END IF;
5451: IF del_activate_cur %ISOPEN THEN
5452: CLOSE del_activate_cur ;
5453: END IF;
5457: p_data => x_msg_data
5458: );
5459:
5460: WHEN OTHERS THEN
5461: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5462: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_UNEXPECTED_ERROR');
5463: END IF;
5464: IF del_activate_cur %ISOPEN THEN
5465: CLOSE del_activate_cur ;
5458: );
5459:
5460: WHEN OTHERS THEN
5461: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5462: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_UNEXPECTED_ERROR');
5463: END IF;
5464: IF del_activate_cur %ISOPEN THEN
5465: CLOSE del_activate_cur ;
5466: END IF;
5495: E_Resource_Busy EXCEPTION;
5496: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5497:
5498: BEGIN
5499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5501: END IF;
5502: --Initialize the return code
5503: retcode := 0;
5496: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5497:
5498: BEGIN
5499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5501: END IF;
5502: --Initialize the return code
5503: retcode := 0;
5504: --Invoke overdue_del_notifier
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
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,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5519: END IF;
5520: EXCEPTION
5521: WHEN E_Resource_Busy THEN
5514: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
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,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5519: END IF;
5520: EXCEPTION
5521: WHEN E_Resource_Busy THEN
5522: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5518: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5519: END IF;
5520: EXCEPTION
5521: WHEN E_Resource_Busy THEN
5522: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5523: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager with resource busy state');
5524: END IF;
5525: l_return_status := okc_api.g_ret_sts_error;
5526: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5519: END IF;
5520: EXCEPTION
5521: WHEN E_Resource_Busy THEN
5522: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5523: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager with resource busy state');
5524: END IF;
5525: l_return_status := okc_api.g_ret_sts_error;
5526: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5527: WHEN OTHERS THEN
5524: END IF;
5525: l_return_status := okc_api.g_ret_sts_error;
5526: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5527: WHEN OTHERS THEN
5528: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5529: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager with G_EXC_UNEXPECTED_ERROR');
5530: END IF;
5531: retcode := 2;
5532: errbuf := substr(sqlerrm,1,200);
5525: l_return_status := okc_api.g_ret_sts_error;
5526: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5527: WHEN OTHERS THEN
5528: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5529: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager with G_EXC_UNEXPECTED_ERROR');
5530: END IF;
5531: retcode := 2;
5532: errbuf := substr(sqlerrm,1,200);
5533: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5600: l_resolved_msg_name VARCHAR2(30);
5601:
5602:
5603: BEGIN
5604: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5605: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier');
5606: END IF;
5607:
5608: -- call start_activity to create savepoint, check comptability
5601:
5602:
5603: BEGIN
5604: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5605: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier');
5606: END IF;
5607:
5608: -- call start_activity to create savepoint, check comptability
5609: -- and initialize message list
5627: LIMIT l_batch_size;
5628:
5629: EXIT WHEN selected_dels.COUNT = 0;
5630:
5631: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5632: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: selected_dels.COUNT is :'||to_char(selected_dels.COUNT));
5633: END IF;
5634:
5635:
5628:
5629: EXIT WHEN selected_dels.COUNT = 0;
5630:
5631: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5632: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: selected_dels.COUNT is :'||to_char(selected_dels.COUNT));
5633: END IF;
5634:
5635:
5636: FOR i IN selected_dels.FIRST..NVL(selected_dels.LAST, -1) LOOP
5664: x_msg_data => l_msg_data,
5665: x_msg_count => l_msg_count,
5666: x_return_status => l_return_status);
5667:
5668: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5669: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: ntf id is :'||to_char(l_notification_id));
5670: END IF;
5671:
5672: --If notification id is not null then the deliverables_notifier is success
5665: x_msg_count => l_msg_count,
5666: x_return_status => l_return_status);
5667:
5668: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5669: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: ntf id is :'||to_char(l_notification_id));
5670: END IF;
5671:
5672: --If notification id is not null then the deliverables_notifier is success
5673: IF l_notification_id is not null THEN
5707: END IF;
5708:
5709: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
5710:
5711: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier');
5713: END IF;
5714:
5715: EXCEPTION
5708:
5709: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
5710:
5711: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier');
5713: END IF;
5714:
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5713: END IF;
5714:
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5718: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
5719: END IF;
5720:
5721: IF del_cur %ISOPEN THEN
5714:
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5718: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
5719: END IF;
5720:
5721: IF del_cur %ISOPEN THEN
5722: CLOSE del_cur ;
5727: p_count => x_msg_count,
5728: p_data => x_msg_data);
5729:
5730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5731: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5732: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
5733: END IF;
5734:
5735: IF del_cur %ISOPEN THEN
5728: p_data => x_msg_data);
5729:
5730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5731: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5732: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
5733: END IF;
5734:
5735: IF del_cur %ISOPEN THEN
5736: CLOSE del_cur ;
5741: p_count => x_msg_count,
5742: p_data => x_msg_data);
5743:
5744: WHEN OTHERS THEN
5745: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5746: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
5747: END IF;
5748:
5749: IF del_cur %ISOPEN THEN
5742: p_data => x_msg_data);
5743:
5744: WHEN OTHERS THEN
5745: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5746: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
5747: END IF;
5748:
5749: IF del_cur %ISOPEN THEN
5750: CLOSE del_cur ;
5782: E_Resource_Busy EXCEPTION;
5783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5784:
5785: BEGIN
5786: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5787: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.beforedue_deliverable_manager');
5788: END IF;
5789: --Initialize the return code
5790: retcode := 0;
5783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5784:
5785: BEGIN
5786: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5787: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.beforedue_deliverable_manager');
5788: END IF;
5789: --Initialize the return code
5790: retcode := 0;
5791: --Invoke beforedue_del_notifier
5802: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5803: RAISE OKC_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5806: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5807: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_deliverable_manager');
5808: END IF;
5809: EXCEPTION
5810: WHEN E_Resource_Busy THEN
5803: RAISE OKC_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5806: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5807: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_deliverable_manager');
5808: END IF;
5809: EXCEPTION
5810: WHEN E_Resource_Busy THEN
5811: l_return_status := okc_api.g_ret_sts_error;
5871: --Acq Plan Message Cleanup
5872: l_resolved_msg_name VARCHAR2(30);
5873: BEGIN
5874:
5875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
5877: END IF;
5878: -- call start_activity to create savepoint, check comptability
5879: -- and initialize message list
5872: l_resolved_msg_name VARCHAR2(30);
5873: BEGIN
5874:
5875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
5877: END IF;
5878: -- call start_activity to create savepoint, check comptability
5879: -- and initialize message list
5880: l_return_status := OKC_API.START_ACTIVITY(l_api_name
5986: -- commented as this is not supported by 8i PL/SQL Bug#3307941
5987: /*OPEN del_cur;
5988: FETCH del_cur BULK COLLECT INTO delRecTab;*/
5989: IF delRecTab.COUNT > 0 THEN
5990: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5991: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delRecTab.COUNT is :'||to_char(delRecTab.COUNT));
5992: END IF;
5993: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
5994:
5987: /*OPEN del_cur;
5988: FETCH del_cur BULK COLLECT INTO delRecTab;*/
5989: IF delRecTab.COUNT > 0 THEN
5990: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5991: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delRecTab.COUNT is :'||to_char(delRecTab.COUNT));
5992: END IF;
5993: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
5994:
5995: -- log messages in concurrent program log file
5996: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Document: '||
5997: delRecTab(i).business_document_type||'-'||delRecTab(i).business_document_number);
5998: FND_FILE.PUT_LINE(FND_FILE.LOG,'Deliverable Id: '||
5999: to_char(delRecTab(i).deliverable_id));
6000: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6001: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: del id is :'||to_char(delRecTab(i).deliverable_id));
6002: END IF;
6003: IF UPPER(delRecTab(i).NOTIFY_PRIOR_DUE_DATE_UOM) = 'DAY' THEN
6004: l_notification_date := trunc(delRecTab(i).actual_due_date)-delRecTab(i).NOTIFY_PRIOR_DUE_DATE_VALUE;
5997: delRecTab(i).business_document_type||'-'||delRecTab(i).business_document_number);
5998: FND_FILE.PUT_LINE(FND_FILE.LOG,'Deliverable Id: '||
5999: to_char(delRecTab(i).deliverable_id));
6000: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6001: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: del id is :'||to_char(delRecTab(i).deliverable_id));
6002: END IF;
6003: IF UPPER(delRecTab(i).NOTIFY_PRIOR_DUE_DATE_UOM) = 'DAY' THEN
6004: l_notification_date := trunc(delRecTab(i).actual_due_date)-delRecTab(i).NOTIFY_PRIOR_DUE_DATE_VALUE;
6005: ELSIF UPPER(delRecTab(i).NOTIFY_PRIOR_DUE_DATE_UOM) = 'WK' THEN
6010: END IF;
6011:
6012: IF trunc(l_notification_date) = trunc(sysdate) OR
6013: trunc(l_notification_date) < trunc(sysdate) THEN -- call to notifier
6014: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100:Del Id :'||to_char(delRecTab(i).deliverable_id));
6016: END IF;
6017:
6018: --Acq Plan Message Cleanup
6011:
6012: IF trunc(l_notification_date) = trunc(sysdate) OR
6013: trunc(l_notification_date) < trunc(sysdate) THEN -- call to notifier
6014: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100:Del Id :'||to_char(delRecTab(i).deliverable_id));
6016: END IF;
6017:
6018: --Acq Plan Message Cleanup
6019: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_BEFOREDUE_NTF_SUBJECT',delRecTab(i).business_document_type);
6039: x_msg_data => l_msg_data,
6040: x_msg_count => l_msg_count,
6041: x_return_status => l_return_status);
6042: --check return status
6043: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6044: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: ntf id is :'||to_char(l_notification_id));
6045: END IF;
6046: IF l_notification_id is not null THEN
6047: -- if return status is success then notification is sent to
6040: x_msg_count => l_msg_count,
6041: x_return_status => l_return_status);
6042: --check return status
6043: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6044: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: ntf id is :'||to_char(l_notification_id));
6045: END IF;
6046: IF l_notification_id is not null THEN
6047: -- if return status is success then notification is sent to
6048: -- internal or external contact so update table with ntf id
6083: CLOSE del_cur ;
6084: END IF;
6085: x_return_status := l_return_status;
6086: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
6087: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
6089: END IF;
6090: EXCEPTION
6091: WHEN FND_API.G_EXC_ERROR THEN
6084: END IF;
6085: x_return_status := l_return_status;
6086: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
6087: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
6089: END IF;
6090: EXCEPTION
6091: WHEN FND_API.G_EXC_ERROR THEN
6092: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
6089: END IF;
6090: EXCEPTION
6091: WHEN FND_API.G_EXC_ERROR THEN
6092: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6093: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
6094: END IF;
6095: IF del_cur %ISOPEN THEN
6096: CLOSE del_cur ;
6089: END IF;
6090: EXCEPTION
6091: WHEN FND_API.G_EXC_ERROR THEN
6092: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6093: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
6094: END IF;
6095: IF del_cur %ISOPEN THEN
6096: CLOSE del_cur ;
6097: END IF;
6101: p_data => x_msg_data
6102: );
6103:
6104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6105: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6106: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6107: END IF;
6108: IF del_cur %ISOPEN THEN
6109: CLOSE del_cur ;
6102: );
6103:
6104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6105: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6106: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6107: END IF;
6108: IF del_cur %ISOPEN THEN
6109: CLOSE del_cur ;
6110: END IF;
6114: p_data => x_msg_data
6115: );
6116:
6117: WHEN OTHERS THEN
6118: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6119: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6120: END IF;
6121: IF del_cur %ISOPEN THEN
6122: CLOSE del_cur ;
6115: );
6116:
6117: WHEN OTHERS THEN
6118: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6119: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6120: END IF;
6121: IF del_cur %ISOPEN THEN
6122: CLOSE del_cur ;
6123: END IF;
6150: E_Resource_Busy EXCEPTION;
6151: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
6152:
6153: BEGIN
6154: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.escalation_deliverable_manager');
6156: END IF;
6157: --Initialize the return code
6158: retcode := 0;
6151: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
6152:
6153: BEGIN
6154: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.escalation_deliverable_manager');
6156: END IF;
6157: --Initialize the return code
6158: retcode := 0;
6159: --Invoke escalation_deliverable_notifier
6170: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6174: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6175: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.escalation_deliverable_manager');
6176: END IF;
6177: EXCEPTION
6178: WHEN E_Resource_Busy THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6174: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6175: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.escalation_deliverable_manager');
6176: END IF;
6177: EXCEPTION
6178: WHEN E_Resource_Busy THEN
6179: l_return_status := okc_api.g_ret_sts_error;
6240: --Acq Plan Message Cleanup
6241: l_resolved_msg_name VARCHAR2(30);
6242: BEGIN
6243:
6244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier');
6246: END IF;
6247: -- call start_activity to create savepoint, check comptability
6248: -- and initialize message list
6241: l_resolved_msg_name VARCHAR2(30);
6242: BEGIN
6243:
6244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier');
6246: END IF;
6247: -- call start_activity to create savepoint, check comptability
6248: -- and initialize message list
6249: l_return_status := OKC_API.START_ACTIVITY(l_api_name
6354: -- commented as this is not supported by 8i PL/SQL Bug#3307941
6355: /*OPEN del_cur;
6356: FETCH del_cur BULK COLLECT INTO delRecTab;*/
6357: IF delRecTab.COUNT > 0 THEN
6358: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6359: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delRecTab.COUNT is :'||to_char(delRecTab.COUNT));
6360: END IF;
6361: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
6362: -- log messages in concurrent program log file
6355: /*OPEN del_cur;
6356: FETCH del_cur BULK COLLECT INTO delRecTab;*/
6357: IF delRecTab.COUNT > 0 THEN
6358: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6359: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delRecTab.COUNT is :'||to_char(delRecTab.COUNT));
6360: END IF;
6361: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
6362: -- log messages in concurrent program log file
6363: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Document: '||
6363: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Document: '||
6364: delRecTab(i).business_document_type||'-'||delRecTab(i).business_document_number);
6365: FND_FILE.PUT_LINE(FND_FILE.LOG,'Deliverable Id: '||
6366: to_char(delRecTab(i).deliverable_id));
6367: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6368: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: del id is :'||to_char(delRecTab(i).deliverable_id));
6369: END IF;
6370:
6371: IF UPPER(delRecTab(i).NOTIFY_ESCALATION_UOM) = 'DAY' THEN
6364: delRecTab(i).business_document_type||'-'||delRecTab(i).business_document_number);
6365: FND_FILE.PUT_LINE(FND_FILE.LOG,'Deliverable Id: '||
6366: to_char(delRecTab(i).deliverable_id));
6367: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6368: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: del id is :'||to_char(delRecTab(i).deliverable_id));
6369: END IF;
6370:
6371: IF UPPER(delRecTab(i).NOTIFY_ESCALATION_UOM) = 'DAY' THEN
6372: l_notification_date := trunc(delRecTab(i).actual_due_date)+delRecTab(i).NOTIFY_ESCALATION_VALUE;
6403: x_msg_data => l_msg_data,
6404: x_msg_count => l_msg_count,
6405: x_return_status => l_return_status);
6406: --check return status
6407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: ntf id is :'||to_char(l_notification_id));
6409: END IF;
6410: IF l_notification_id is not null THEN
6411: -- if return status is success then notification is sent to
6404: x_msg_count => l_msg_count,
6405: x_return_status => l_return_status);
6406: --check return status
6407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: ntf id is :'||to_char(l_notification_id));
6409: END IF;
6410: IF l_notification_id is not null THEN
6411: -- if return status is success then notification is sent to
6412: -- internal or external contact so update table with ntf id
6447: CLOSE del_cur ;
6448: END IF;
6449: x_return_status := l_return_status;
6450: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
6451: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6452: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier');
6453: END IF;
6454:
6455: EXCEPTION
6448: END IF;
6449: x_return_status := l_return_status;
6450: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
6451: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6452: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier');
6453: END IF;
6454:
6455: EXCEPTION
6456: WHEN FND_API.G_EXC_ERROR THEN
6453: END IF;
6454:
6455: EXCEPTION
6456: WHEN FND_API.G_EXC_ERROR THEN
6457: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6458: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
6459: END IF;
6460: IF del_cur %ISOPEN THEN
6461: CLOSE del_cur ;
6454:
6455: EXCEPTION
6456: WHEN FND_API.G_EXC_ERROR THEN
6457: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6458: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
6459: END IF;
6460: IF del_cur %ISOPEN THEN
6461: CLOSE del_cur ;
6462: END IF;
6466: p_data => x_msg_data
6467: );
6468:
6469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6470: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6471: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6472: END IF;
6473: IF del_cur %ISOPEN THEN
6474: CLOSE del_cur ;
6467: );
6468:
6469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6470: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6471: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6472: END IF;
6473: IF del_cur %ISOPEN THEN
6474: CLOSE del_cur ;
6475: END IF;
6479: p_data => x_msg_data
6480: );
6481:
6482: WHEN OTHERS THEN
6483: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6484: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6485: END IF;
6486: IF del_cur %ISOPEN THEN
6487: CLOSE del_cur ;
6480: );
6481:
6482: WHEN OTHERS THEN
6483: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6484: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6485: END IF;
6486: IF del_cur %ISOPEN THEN
6487: CLOSE del_cur ;
6488: END IF;
6521: x_msg_data VARCHAR2(200);
6522:
6523: BEGIN
6524:
6525: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6527: END IF;
6528: l_att_exists := attachment_exists(
6529: p_entity_name => p_entity_name
6522:
6523: BEGIN
6524:
6525: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6527: END IF;
6528: l_att_exists := attachment_exists(
6529: p_entity_name => p_entity_name
6530: ,p_pk1_value => p_pk1_value );
6539: X_datatype_id => att_rec.datatype_id,
6540: delete_document_flag => 'Y' );
6541: EXCEPTION
6542: WHEN OTHERS THEN
6543: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6544: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'90: Exception when deleting attachment ' || SQLERRM);
6545: END IF;
6546: END;
6547: END LOOP;
6540: delete_document_flag => 'Y' );
6541: EXCEPTION
6542: WHEN OTHERS THEN
6543: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6544: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'90: Exception when deleting attachment ' || SQLERRM);
6545: END IF;
6546: END;
6547: END LOOP;
6548: END IF;
6546: END;
6547: END LOOP;
6548: END IF;
6549: x_result := l_result;
6550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6552: END IF;
6553: EXCEPTION
6554: WHEN OTHERS THEN
6547: END LOOP;
6548: END IF;
6549: x_result := l_result;
6550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6552: END IF;
6553: EXCEPTION
6554: WHEN OTHERS THEN
6555: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6552: END IF;
6553: EXCEPTION
6554: WHEN OTHERS THEN
6555: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6556: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments in OTHERS');
6557: END IF;
6558: IF att_cur %ISOPEN THEN
6559: CLOSE att_cur ;
6552: END IF;
6553: EXCEPTION
6554: WHEN OTHERS THEN
6555: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6556: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments in OTHERS');
6557: END IF;
6558: IF att_cur %ISOPEN THEN
6559: CLOSE att_cur ;
6560: END IF;
6591: l_api_version CONSTANT VARCHAR2(30) := 1.0;
6592: l_deliverable_id NUMBER;
6593: BEGIN
6594:
6595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6597: END IF;
6598: IF p_doc_table.COUNT <> 0 THEN
6599: FOR i in 1.. p_doc_table.COUNT LOOP
6592: l_deliverable_id NUMBER;
6593: BEGIN
6594:
6595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6597: END IF;
6598: IF p_doc_table.COUNT <> 0 THEN
6599: FOR i in 1.. p_doc_table.COUNT LOOP
6600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6597: END IF;
6598: IF p_doc_table.COUNT <> 0 THEN
6599: FOR i in 1.. p_doc_table.COUNT LOOP
6600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Id:'||to_char(p_doc_table(i).doc_id));
6602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Type:'||p_doc_table(i).doc_type);
6603: END IF;
6604: delete_deliverables (
6597: END IF;
6598: IF p_doc_table.COUNT <> 0 THEN
6599: FOR i in 1.. p_doc_table.COUNT LOOP
6600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Id:'||to_char(p_doc_table(i).doc_id));
6602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Type:'||p_doc_table(i).doc_type);
6603: END IF;
6604: delete_deliverables (
6605: p_api_version => l_api_version,
6598: IF p_doc_table.COUNT <> 0 THEN
6599: FOR i in 1.. p_doc_table.COUNT LOOP
6600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6601: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Id:'||to_char(p_doc_table(i).doc_id));
6602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Type:'||p_doc_table(i).doc_type);
6603: END IF;
6604: delete_deliverables (
6605: p_api_version => l_api_version,
6606: p_init_msg_list => OKC_API.G_FALSE,
6611: x_return_status => l_return_status);
6612: END LOOP;
6613: END IF;
6614: x_return_status := l_return_status;
6615: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6616: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6617: END IF;
6618:
6619: EXCEPTION
6612: END LOOP;
6613: END IF;
6614: x_return_status := l_return_status;
6615: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6616: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6617: END IF;
6618:
6619: EXCEPTION
6620: WHEN FND_API.G_EXC_ERROR THEN
6617: END IF;
6618:
6619: EXCEPTION
6620: WHEN FND_API.G_EXC_ERROR THEN
6621: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6622: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_ERROR');
6623: END IF;
6624: x_return_status := G_RET_STS_ERROR;
6625: FND_MSG_PUB.Count_And_Get(
6618:
6619: EXCEPTION
6620: WHEN FND_API.G_EXC_ERROR THEN
6621: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6622: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_ERROR');
6623: END IF;
6624: x_return_status := G_RET_STS_ERROR;
6625: FND_MSG_PUB.Count_And_Get(
6626: p_count => x_msg_count,
6627: p_data => x_msg_data
6628: );
6629:
6630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6631: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6632: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_UNEXPECTED_ERROR');
6633: END IF;
6634: x_return_status := G_RET_STS_UNEXP_ERROR;
6635: FND_MSG_PUB.Count_And_Get(
6628: );
6629:
6630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6631: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6632: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_UNEXPECTED_ERROR');
6633: END IF;
6634: x_return_status := G_RET_STS_UNEXP_ERROR;
6635: FND_MSG_PUB.Count_And_Get(
6636: p_count => x_msg_count,
6637: p_data => x_msg_data
6638: );
6639:
6640: WHEN OTHERS THEN
6641: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6642: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_UNEXPECTED_ERROR');
6643: END IF;
6644: x_return_status := G_RET_STS_UNEXP_ERROR;
6645: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
6638: );
6639:
6640: WHEN OTHERS THEN
6641: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6642: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_UNEXPECTED_ERROR');
6643: END IF;
6644: x_return_status := G_RET_STS_UNEXP_ERROR;
6645: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
6646: END IF;
6698: TYPE delIdTabType IS TABLE OF NUMBER;
6699: delIdTab delIdTabType;
6700: BEGIN
6701:
6702: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: p_retain_lock_deliverables_yn : ' || p_retain_lock_deliverables_yn);
6705: END IF;
6706:
6699: delIdTab delIdTabType;
6700: BEGIN
6701:
6702: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: p_retain_lock_deliverables_yn : ' || p_retain_lock_deliverables_yn);
6705: END IF;
6706:
6707: -- Call the CDRL API.
6700: BEGIN
6701:
6702: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: p_retain_lock_deliverables_yn : ' || p_retain_lock_deliverables_yn);
6705: END IF;
6706:
6707: -- Call the CDRL API.
6708: IF (p_retain_exhibits = 'N') THEN
6741: FETCH del_version_cur BULK COLLECT INTO delIdTab;
6742: END IF;
6743: IF delIdTab.COUNT <> 0 THEN
6744: FOR i in delIdTab.FIRST..delIdTab.LAST LOOP
6745: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6746: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Deleting Deliverable Id :'||to_char(delIdTab(i)));
6747: END IF;
6748: -- delete deliverables status history
6749: DELETE FROM okc_del_status_history
6742: END IF;
6743: IF delIdTab.COUNT <> 0 THEN
6744: FOR i in delIdTab.FIRST..delIdTab.LAST LOOP
6745: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6746: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Deleting Deliverable Id :'||to_char(delIdTab(i)));
6747: END IF;
6748: -- delete deliverables status history
6749: DELETE FROM okc_del_status_history
6750: WHERE deliverable_id = delIdTab(i);
6772: IF del_version_cur %ISOPEN THEN
6773: CLOSE del_version_cur ;
6774: END IF;
6775: x_return_status := l_result;
6776: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6777: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6778: END IF;
6779:
6780: EXCEPTION
6773: CLOSE del_version_cur ;
6774: END IF;
6775: x_return_status := l_result;
6776: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6777: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6778: END IF;
6779:
6780: EXCEPTION
6781: WHEN FND_API.G_EXC_ERROR THEN
6778: END IF;
6779:
6780: EXCEPTION
6781: WHEN FND_API.G_EXC_ERROR THEN
6782: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6783: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_ERROR');
6784: END IF;
6785: IF del_cur %ISOPEN THEN
6786: CLOSE del_cur ;
6779:
6780: EXCEPTION
6781: WHEN FND_API.G_EXC_ERROR THEN
6782: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6783: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_ERROR');
6784: END IF;
6785: IF del_cur %ISOPEN THEN
6786: CLOSE del_cur ;
6787: END IF;
6794: p_data => x_msg_data
6795: );
6796:
6797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6798: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6799: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_UNEXPECTED_ERROR');
6800: END IF;
6801: IF del_cur %ISOPEN THEN
6802: CLOSE del_cur ;
6795: );
6796:
6797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6798: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6799: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_UNEXPECTED_ERROR');
6800: END IF;
6801: IF del_cur %ISOPEN THEN
6802: CLOSE del_cur ;
6803: END IF;
6810: p_data => x_msg_data
6811: );
6812:
6813: WHEN OTHERS THEN
6814: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6815: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_UNEXPECTED_ERROR');
6816: END IF;
6817: IF del_cur %ISOPEN THEN
6818: CLOSE del_cur ;
6811: );
6812:
6813: WHEN OTHERS THEN
6814: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6815: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_UNEXPECTED_ERROR');
6816: END IF;
6817: IF del_cur %ISOPEN THEN
6818: CLOSE del_cur ;
6819: END IF;
6856: l_api_name CONSTANT VARCHAR2(30) :='update_del_for_template_merge';
6857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6858: BEGIN
6859:
6860: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6861: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge');
6862: END IF;
6863: OPEN del_cur;
6864: FETCH del_cur BULK COLLECT INTO delIdTab;
6857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6858: BEGIN
6859:
6860: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6861: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge');
6862: END IF;
6863: OPEN del_cur;
6864: FETCH del_cur BULK COLLECT INTO delIdTab;
6865: IF delIdTab.COUNT <> 0 THEN
6873: END IF;
6874: IF del_cur %ISOPEN THEN
6875: CLOSE del_cur ;
6876: END IF;
6877: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6878: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge');
6879: END IF;
6880: x_return_status := l_return_status;
6881: EXCEPTION
6874: IF del_cur %ISOPEN THEN
6875: CLOSE del_cur ;
6876: END IF;
6877: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6878: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge');
6879: END IF;
6880: x_return_status := l_return_status;
6881: EXCEPTION
6882: WHEN FND_API.G_EXC_ERROR THEN
6879: END IF;
6880: x_return_status := l_return_status;
6881: EXCEPTION
6882: WHEN FND_API.G_EXC_ERROR THEN
6883: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6884: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_ERROR');
6885: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6886: END IF;
6887: IF del_cur %ISOPEN THEN
6880: x_return_status := l_return_status;
6881: EXCEPTION
6882: WHEN FND_API.G_EXC_ERROR THEN
6883: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6884: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_ERROR');
6885: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6886: END IF;
6887: IF del_cur %ISOPEN THEN
6888: CLOSE del_cur ;
6881: EXCEPTION
6882: WHEN FND_API.G_EXC_ERROR THEN
6883: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6884: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_ERROR');
6885: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6886: END IF;
6887: IF del_cur %ISOPEN THEN
6888: CLOSE del_cur ;
6889: END IF;
6893: p_data => x_msg_data
6894: );
6895:
6896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6897: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6898: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6899: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6900: END IF;
6901: IF del_cur %ISOPEN THEN
6894: );
6895:
6896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6897: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6898: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6899: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6900: END IF;
6901: IF del_cur %ISOPEN THEN
6902: CLOSE del_cur ;
6895:
6896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6897: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6898: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6899: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6900: END IF;
6901: IF del_cur %ISOPEN THEN
6902: CLOSE del_cur ;
6903: END IF;
6907: p_data => x_msg_data
6908: );
6909:
6910: WHEN OTHERS THEN
6911: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6912: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6913: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6914: END IF;
6915: IF del_cur %ISOPEN THEN
6908: );
6909:
6910: WHEN OTHERS THEN
6911: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6912: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6913: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6914: END IF;
6915: IF del_cur %ISOPEN THEN
6916: CLOSE del_cur ;
6909:
6910: WHEN OTHERS THEN
6911: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6912: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6913: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6914: END IF;
6915: IF del_cur %ISOPEN THEN
6916: CLOSE del_cur ;
6917: END IF;
6979: -- Initialize API return status to success
6980: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6981:
6982:
6983: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6984: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.get_last_amendment_date');
6985: END IF;
6986: OPEN del_cur;
6987: FETCH del_cur INTO l_date;
6980: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6981:
6982:
6983: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6984: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.get_last_amendment_date');
6985: END IF;
6986: OPEN del_cur;
6987: FETCH del_cur INTO l_date;
6988: /*bug# 3641366 IF l_date is null THEN
6993: IF del_cur %ISOPEN THEN
6994: CLOSE del_cur ;
6995: END IF;
6996:
6997: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.get_last_amendment_date');
6999: END IF;
7000: RETURN l_date;
7001:
6994: CLOSE del_cur ;
6995: END IF;
6996:
6997: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.get_last_amendment_date');
6999: END IF;
7000: RETURN l_date;
7001:
7002: EXCEPTION
7000: RETURN l_date;
7001:
7002: EXCEPTION
7003: WHEN OTHERS THEN
7004: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7005: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving get_last_amendment_date because of EXCEPTION: '||sqlerrm);
7006: END IF;
7007:
7008: IF del_cur%ISOPEN THEN
7001:
7002: EXCEPTION
7003: WHEN OTHERS THEN
7004: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7005: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving get_last_amendment_date because of EXCEPTION: '||sqlerrm);
7006: END IF;
7007:
7008: IF del_cur%ISOPEN THEN
7009: CLOSE del_cur;
7053: END IF;
7054:
7055: EXCEPTION
7056: WHEN OTHERS THEN
7057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: End Date Not Found');
7059: END IF;
7060: END getStartDayOfWeek;
7061:
7054:
7055: EXCEPTION
7056: WHEN OTHERS THEN
7057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: End Date Not Found');
7059: END IF;
7060: END getStartDayOfWeek;
7061:
7062:
7127: return(NULL);
7128: end if;
7129: EXCEPTION
7130: WHEN OTHERS THEN
7131: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7132: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: End Date Not Found');
7133: END IF;
7134: RETURN(null);
7135: END get_actual_date;
7128: end if;
7129: EXCEPTION
7130: WHEN OTHERS THEN
7131: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7132: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: End Date Not Found');
7133: END IF;
7134: RETURN(null);
7135: END get_actual_date;
7136:
7278: END LOOP;
7279: end if;
7280: EXCEPTION
7281: WHEN OTHERS THEN
7282: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7283: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.get_recurring_dates with OTHER ERROR');
7284: END IF;
7285: x_return_status := OKC_API.G_RET_STS_ERROR;
7286: FND_MSG_PUB.Count_And_Get(
7279: end if;
7280: EXCEPTION
7281: WHEN OTHERS THEN
7282: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7283: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.get_recurring_dates with OTHER ERROR');
7284: END IF;
7285: x_return_status := OKC_API.G_RET_STS_ERROR;
7286: FND_MSG_PUB.Count_And_Get(
7287: p_count => x_msg_count,
7312: l_api_name CONSTANT VARCHAR2(30) :='internal_contact_valid';
7313:
7314:
7315: BEGIN
7316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid ');
7318: END IF;
7319: OPEN fnd_user_cur;
7320: FETCH fnd_user_cur INTO fnd_user_rec;
7313:
7314:
7315: BEGIN
7316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid ');
7318: END IF;
7319: OPEN fnd_user_cur;
7320: FETCH fnd_user_cur INTO fnd_user_rec;
7321: IF fnd_user_cur%FOUND THEN
7319: OPEN fnd_user_cur;
7320: FETCH fnd_user_cur INTO fnd_user_rec;
7321: IF fnd_user_cur%FOUND THEN
7322: --contact person is a fnd user, so it's ok
7323: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7324: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is a fnd user, thus returning Y');
7325: END IF;
7326: RETURN('Y');
7327: ELSE
7320: FETCH fnd_user_cur INTO fnd_user_rec;
7321: IF fnd_user_cur%FOUND THEN
7322: --contact person is a fnd user, so it's ok
7323: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7324: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is a fnd user, thus returning Y');
7325: END IF;
7326: RETURN('Y');
7327: ELSE
7328: OPEN contact_cur;
7329: FETCH contact_cur INTO contact_rec;
7330: IF contact_cur%FOUND THEN
7331: IF(contact_rec.email_address is not null) THEN
7332: --contact person is not fnd user, but it has an email address in per_people_all
7333: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is not a fnd user, but has an email address, thus returning Y');
7335: END IF;
7336: RETURN('Y');
7337: ELSE
7330: IF contact_cur%FOUND THEN
7331: IF(contact_rec.email_address is not null) THEN
7332: --contact person is not fnd user, but it has an email address in per_people_all
7333: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7334: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is not a fnd user, but has an email address, thus returning Y');
7335: END IF;
7336: RETURN('Y');
7337: ELSE
7338: --not a fnd user, no email address either
7335: END IF;
7336: RETURN('Y');
7337: ELSE
7338: --not a fnd user, no email address either
7339: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7340: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is not a fnd user, does not have an email address, thus returning N');
7341: END IF;
7342: RETURN('N');
7343: END IF;
7336: RETURN('Y');
7337: ELSE
7338: --not a fnd user, no email address either
7339: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7340: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is not a fnd user, does not have an email address, thus returning N');
7341: END IF;
7342: RETURN('N');
7343: END IF;
7344: ELSE
7342: RETURN('N');
7343: END IF;
7344: ELSE
7345: --not a fnd user, not in per_people_all
7346: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7347: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is not in per_people_f also not a fnd user, thus returning N');
7348: END IF;
7349: RETURN('N');
7350: END IF;
7343: END IF;
7344: ELSE
7345: --not a fnd user, not in per_people_all
7346: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7347: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'contact is not in per_people_f also not a fnd user, thus returning N');
7348: END IF;
7349: RETURN('N');
7350: END IF;
7351: END IF;
7350: END IF;
7351: END IF;
7352: CLOSE fnd_user_cur;
7353: CLOSE contact_cur;
7354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid');
7356: END IF;
7357:
7358: EXCEPTION
7351: END IF;
7352: CLOSE fnd_user_cur;
7353: CLOSE contact_cur;
7354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid');
7356: END IF;
7357:
7358: EXCEPTION
7359: WHEN OTHERS THEN
7356: END IF;
7357:
7358: EXCEPTION
7359: WHEN OTHERS THEN
7360: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7361: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid with Exception');
7362: END IF;
7363: IF fnd_user_cur %ISOPEN THEN
7364: CLOSE fnd_user_cur ;
7357:
7358: EXCEPTION
7359: WHEN OTHERS THEN
7360: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7361: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid with Exception');
7362: END IF;
7363: IF fnd_user_cur %ISOPEN THEN
7364: CLOSE fnd_user_cur ;
7365: END IF;
7392: l_api_name CONSTANT VARCHAR2(30) :='internal_contact_exists';
7393:
7394: BEGIN
7395:
7396: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7397: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists ');
7398: END IF;
7399: OPEN contact_cur;
7400: FETCH contact_cur INTO contact_rec;
7393:
7394: BEGIN
7395:
7396: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7397: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists ');
7398: END IF;
7399: OPEN contact_cur;
7400: FETCH contact_cur INTO contact_rec;
7401: IF contact_cur%FOUND THEN
7403: ELSE
7404: RETURN('N');
7405: END IF;
7406: CLOSE contact_cur;
7407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists');
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7404: RETURN('N');
7405: END IF;
7406: CLOSE contact_cur;
7407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists');
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7412: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists');
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7412: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7413: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists with Exception');
7414: END IF;
7415: IF contact_cur %ISOPEN THEN
7416: CLOSE contact_cur ;
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7412: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7413: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists with Exception');
7414: END IF;
7415: IF contact_cur %ISOPEN THEN
7416: CLOSE contact_cur ;
7417: END IF;
7465: l_api_name CONSTANT VARCHAR2(30) :='external_contact_valid';
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
7471: ||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid ');
7472: END IF;
7473: OPEN contact_cur;
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
7471: ||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid ');
7472: END IF;
7473: OPEN contact_cur;
7474: FETCH contact_cur INTO contact_rec;
7478: RETURN('N');
7479: END IF;
7480: CLOSE contact_cur;
7481:
7482: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
7484: ||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid');
7485: END IF;
7486: EXCEPTION
7479: END IF;
7480: CLOSE contact_cur;
7481:
7482: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
7484: ||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid');
7485: END IF;
7486: EXCEPTION
7487: WHEN OTHERS THEN
7484: ||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid');
7485: END IF;
7486: EXCEPTION
7487: WHEN OTHERS THEN
7488: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7489: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid with Exception');
7490: END IF;
7491: IF contact_cur %ISOPEN THEN
7492: CLOSE contact_cur ;
7485: END IF;
7486: EXCEPTION
7487: WHEN OTHERS THEN
7488: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7489: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid with Exception');
7490: END IF;
7491: IF contact_cur %ISOPEN THEN
7492: CLOSE contact_cur ;
7493: END IF;
7518: return l_meaning;
7519:
7520: EXCEPTION
7521: WHEN OTHERS THEN
7522: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7523: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.get_lookup_meaning with exception');
7524: END IF;
7525:
7526: RETURN '';
7519:
7520: EXCEPTION
7521: WHEN OTHERS THEN
7522: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7523: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.get_lookup_meaning with exception');
7524: END IF;
7525:
7526: RETURN '';
7527: END get_lookup_meaning;
7644: px_qa_result_tbl := l_qa_result_tbl;
7645:
7646: EXCEPTION
7647: WHEN FND_API.G_EXC_ERROR THEN
7648: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7649: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with G_EXC_ERROR');
7650: END IF;
7651:
7652: x_return_status := G_RET_STS_ERROR;
7645:
7646: EXCEPTION
7647: WHEN FND_API.G_EXC_ERROR THEN
7648: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7649: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with G_EXC_ERROR');
7650: END IF;
7651:
7652: x_return_status := G_RET_STS_ERROR;
7653:
7652: x_return_status := G_RET_STS_ERROR;
7653:
7654:
7655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7656: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7657: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with G_EXC_UNEXPECTED_ERROR');
7658: END IF;
7659:
7660: x_return_status := G_RET_STS_UNEXP_ERROR;
7653:
7654:
7655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7656: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7657: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with G_EXC_UNEXPECTED_ERROR');
7658: END IF;
7659:
7660: x_return_status := G_RET_STS_UNEXP_ERROR;
7661:
7660: x_return_status := G_RET_STS_UNEXP_ERROR;
7661:
7662:
7663: WHEN OTHERS THEN
7664: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7665: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with OTHERS EXCEPTION');
7666: END IF;
7667:
7668: x_return_status := G_RET_STS_UNEXP_ERROR;
7661:
7662:
7663: WHEN OTHERS THEN
7664: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7665: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with OTHERS EXCEPTION');
7666: END IF;
7667:
7668: x_return_status := G_RET_STS_UNEXP_ERROR;
7669: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7887: px_qa_result_tbl := l_qa_result_tbl;
7888:
7889: EXCEPTION
7890: WHEN FND_API.G_EXC_ERROR THEN
7891: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7892: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_ERROR');
7893: END IF;
7894:
7895: x_return_status := G_RET_STS_ERROR;
7888:
7889: EXCEPTION
7890: WHEN FND_API.G_EXC_ERROR THEN
7891: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7892: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_ERROR');
7893: END IF;
7894:
7895: x_return_status := G_RET_STS_ERROR;
7896:
7895: x_return_status := G_RET_STS_ERROR;
7896:
7897:
7898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7899: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7900: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_UNEXPECTED_ERROR');
7901: END IF;
7902:
7903: x_return_status := G_RET_STS_UNEXP_ERROR;
7896:
7897:
7898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7899: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7900: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_UNEXPECTED_ERROR');
7901: END IF;
7902:
7903: x_return_status := G_RET_STS_UNEXP_ERROR;
7904:
7903: x_return_status := G_RET_STS_UNEXP_ERROR;
7904:
7905:
7906: WHEN OTHERS THEN
7907: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7908: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with OTHERS EXCEPTION');
7909: END IF;
7910:
7911: x_return_status := G_RET_STS_UNEXP_ERROR;
7904:
7905:
7906: WHEN OTHERS THEN
7907: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7908: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with OTHERS EXCEPTION');
7909: END IF;
7910:
7911: x_return_status := G_RET_STS_UNEXP_ERROR;
7912: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7969:
7970:
7971: BEGIN
7972:
7973: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7974: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_exhibit_details');
7975: END IF;
7976:
7977:
7970:
7971: BEGIN
7972:
7973: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7974: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_exhibit_details');
7975: END IF;
7976:
7977:
7978:
8037: px_qa_result_tbl := l_qa_result_tbl;
8038:
8039: EXCEPTION
8040: WHEN FND_API.G_EXC_ERROR THEN
8041: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8042: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with G_EXC_ERROR');
8043: END IF;
8044:
8045: x_return_status := G_RET_STS_ERROR;
8038:
8039: EXCEPTION
8040: WHEN FND_API.G_EXC_ERROR THEN
8041: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8042: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with G_EXC_ERROR');
8043: END IF;
8044:
8045: x_return_status := G_RET_STS_ERROR;
8046:
8045: x_return_status := G_RET_STS_ERROR;
8046:
8047:
8048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8049: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8050: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with G_EXC_UNEXPECTED_ERROR');
8051: END IF;
8052:
8053: x_return_status := G_RET_STS_UNEXP_ERROR;
8046:
8047:
8048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8049: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8050: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with G_EXC_UNEXPECTED_ERROR');
8051: END IF;
8052:
8053: x_return_status := G_RET_STS_UNEXP_ERROR;
8054:
8053: x_return_status := G_RET_STS_UNEXP_ERROR;
8054:
8055:
8056: WHEN OTHERS THEN
8057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with OTHERS EXCEPTION');
8059: END IF;
8060:
8061: x_return_status := G_RET_STS_UNEXP_ERROR;
8054:
8055:
8056: WHEN OTHERS THEN
8057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with OTHERS EXCEPTION');
8059: END IF;
8060:
8061: x_return_status := G_RET_STS_UNEXP_ERROR;
8062: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8104: l_resolved_msg_name VARCHAR2(30);
8105: l_resolved_token VARCHAR2(100);
8106:
8107: BEGIN
8108: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8109: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts_valid');
8110: END IF;
8111: l_qa_result_tbl := px_qa_result_tbl;
8112: l_index := px_qa_result_tbl.count;
8105: l_resolved_token VARCHAR2(100);
8106:
8107: BEGIN
8108: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8109: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts_valid');
8110: END IF;
8111: l_qa_result_tbl := px_qa_result_tbl;
8112: l_index := px_qa_result_tbl.count;
8113: l_start := px_qa_result_tbl.count;
8118:
8119: --check if internal contact is a valid fnd user or if it has an email address
8120: IF(l_doc_type_class <> 'TEMPLATE' and del_rec.internal_party_contact_id is not null) THEN
8121: l_contact_valid := internal_contact_valid(p_contact_id => del_rec.internal_party_contact_id);
8122: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'internal contact valid (l_contact_valid): '||l_contact_valid);
8124: END IF;
8125: IF l_contact_valid = 'N' THEN
8126: l_index := l_index+1;
8119: --check if internal contact is a valid fnd user or if it has an email address
8120: IF(l_doc_type_class <> 'TEMPLATE' and del_rec.internal_party_contact_id is not null) THEN
8121: l_contact_valid := internal_contact_valid(p_contact_id => del_rec.internal_party_contact_id);
8122: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8123: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'internal contact valid (l_contact_valid): '||l_contact_valid);
8124: END IF;
8125: IF l_contact_valid = 'N' THEN
8126: l_index := l_index+1;
8127:
8152:
8153: --check if requester is a valid fnd user or if it has an email address
8154: IF(l_doc_type_class <> 'TEMPLATE' and del_rec.requester_id is not null) THEN
8155: l_contact_valid := internal_contact_valid(p_contact_id => del_rec.requester_id);
8156: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'requester valid (l_contact_valid): '||l_contact_valid);
8158: END IF;
8159: IF l_contact_valid = 'N' THEN
8160:
8153: --check if requester is a valid fnd user or if it has an email address
8154: IF(l_doc_type_class <> 'TEMPLATE' and del_rec.requester_id is not null) THEN
8155: l_contact_valid := internal_contact_valid(p_contact_id => del_rec.requester_id);
8156: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'requester valid (l_contact_valid): '||l_contact_valid);
8158: END IF;
8159: IF l_contact_valid = 'N' THEN
8160:
8161: l_index := l_index+1;
8185:
8186: --check if escalation assignee is a valid fnd user or if it has an email address
8187: IF(l_doc_type_class <> 'TEMPLATE' and del_rec.notify_escalation_yn = 'Y' and del_rec.escalation_assignee is not null) THEN
8188: l_contact_valid := internal_contact_valid(p_contact_id => del_rec.escalation_assignee);
8189: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'escalation assignee valid (l_contact_valid): '||l_contact_valid);
8191: END IF;
8192: IF l_contact_valid = 'N' THEN
8193:
8186: --check if escalation assignee is a valid fnd user or if it has an email address
8187: IF(l_doc_type_class <> 'TEMPLATE' and del_rec.notify_escalation_yn = 'Y' and del_rec.escalation_assignee is not null) THEN
8188: l_contact_valid := internal_contact_valid(p_contact_id => del_rec.escalation_assignee);
8189: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8190: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'escalation assignee valid (l_contact_valid): '||l_contact_valid);
8191: END IF;
8192: IF l_contact_valid = 'N' THEN
8193:
8194: l_index := l_index+1;
8222:
8223: x_return_status := l_return_status;
8224: px_qa_result_tbl := l_qa_result_tbl;
8225:
8226: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8227: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'leaving check_internal_contacts_valid without error');
8228: END IF;
8229: EXCEPTION
8230: WHEN FND_API.G_EXC_ERROR THEN
8223: x_return_status := l_return_status;
8224: px_qa_result_tbl := l_qa_result_tbl;
8225:
8226: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8227: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'leaving check_internal_contacts_valid without error');
8228: END IF;
8229: EXCEPTION
8230: WHEN FND_API.G_EXC_ERROR THEN
8231: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8227: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'leaving check_internal_contacts_valid without error');
8228: END IF;
8229: EXCEPTION
8230: WHEN FND_API.G_EXC_ERROR THEN
8231: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8232: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving check_internal_contacts_valid with G_EXC_ERROR');
8233: END IF;
8234:
8235: x_return_status := G_RET_STS_ERROR;
8228: END IF;
8229: EXCEPTION
8230: WHEN FND_API.G_EXC_ERROR THEN
8231: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8232: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving check_internal_contacts_valid with G_EXC_ERROR');
8233: END IF;
8234:
8235: x_return_status := G_RET_STS_ERROR;
8236:
8235: x_return_status := G_RET_STS_ERROR;
8236:
8237:
8238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8239: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8240: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_UNEXPECTED_ERROR');
8241: END IF;
8242:
8243: x_return_status := G_RET_STS_UNEXP_ERROR;
8236:
8237:
8238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8239: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8240: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_UNEXPECTED_ERROR');
8241: END IF;
8242:
8243: x_return_status := G_RET_STS_UNEXP_ERROR;
8244:
8243: x_return_status := G_RET_STS_UNEXP_ERROR;
8244:
8245:
8246: WHEN OTHERS THEN
8247: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8248: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts_valid with OTHERS EXCEPTION');
8249: END IF;
8250:
8251: x_return_status := G_RET_STS_UNEXP_ERROR;
8244:
8245:
8246: WHEN OTHERS THEN
8247: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8248: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts_valid with OTHERS EXCEPTION');
8249: END IF;
8250:
8251: x_return_status := G_RET_STS_UNEXP_ERROR;
8252: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8408: px_qa_result_tbl := l_qa_result_tbl;
8409:
8410: EXCEPTION
8411: WHEN FND_API.G_EXC_ERROR THEN
8412: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8413: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with G_EXC_ERROR');
8414: END IF;
8415:
8416: x_return_status := G_RET_STS_ERROR;
8409:
8410: EXCEPTION
8411: WHEN FND_API.G_EXC_ERROR THEN
8412: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8413: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with G_EXC_ERROR');
8414: END IF;
8415:
8416: x_return_status := G_RET_STS_ERROR;
8417:
8416: x_return_status := G_RET_STS_ERROR;
8417:
8418:
8419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8420: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8421: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with G_EXC_UNEXPECTED_ERROR');
8422: END IF;
8423:
8424: x_return_status := G_RET_STS_UNEXP_ERROR;
8417:
8418:
8419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8420: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8421: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with G_EXC_UNEXPECTED_ERROR');
8422: END IF;
8423:
8424: x_return_status := G_RET_STS_UNEXP_ERROR;
8425:
8424: x_return_status := G_RET_STS_UNEXP_ERROR;
8425:
8426:
8427: WHEN OTHERS THEN
8428: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8429: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with OTHERS EXCEPTION');
8430: END IF;
8431:
8432: x_return_status := G_RET_STS_UNEXP_ERROR;
8425:
8426:
8427: WHEN OTHERS THEN
8428: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8429: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with OTHERS EXCEPTION');
8430: END IF;
8431:
8432: x_return_status := G_RET_STS_UNEXP_ERROR;
8433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8495: l_qa_result_tbl := px_qa_result_tbl;
8496: l_index := px_qa_result_tbl.count;
8497: l_start := px_qa_result_tbl.count;
8498: l_short_desc := get_lookup_meaning('OKC_TERM_QA_LIST',l_qa_code);
8499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8496: l_index := px_qa_result_tbl.count;
8497: l_start := px_qa_result_tbl.count;
8498: l_short_desc := get_lookup_meaning('OKC_TERM_QA_LIST',l_qa_code);
8499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8497: l_start := px_qa_result_tbl.count;
8498: l_short_desc := get_lookup_meaning('OKC_TERM_QA_LIST',l_qa_code);
8499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8498: l_short_desc := get_lookup_meaning('OKC_TERM_QA_LIST',l_qa_code);
8499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_st_date_event_id: '||to_char(del_rec.relative_st_date_event_id));
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_st_date_event_id: '||to_char(del_rec.relative_st_date_event_id));
8509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_end_date_event_id: '||to_char(del_rec.relative_end_date_event_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_st_date_event_id: '||to_char(del_rec.relative_st_date_event_id));
8509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_end_date_event_id: '||to_char(del_rec.relative_end_date_event_id));
8510: END IF;
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_st_date_event_id: '||to_char(del_rec.relative_st_date_event_id));
8509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_end_date_event_id: '||to_char(del_rec.relative_end_date_event_id));
8510: END IF;
8511:
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_st_date_event_id: '||to_char(del_rec.relative_st_date_event_id));
8509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_end_date_event_id: '||to_char(del_rec.relative_end_date_event_id));
8510: END IF;
8511:
8512: --single due date field validation
8505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_end_date: '||del_rec.fixed_end_date);
8506: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: start_event_date: '||del_rec.start_event_date);
8507: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: end_event_date: '||del_rec.end_event_date);
8508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_st_date_event_id: '||to_char(del_rec.relative_st_date_event_id));
8509: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: relative_end_date_event_id: '||to_char(del_rec.relative_end_date_event_id));
8510: END IF;
8511:
8512: --single due date field validation
8513: --check if due date fields are populated
8849: px_qa_result_tbl := l_qa_result_tbl;
8850:
8851: EXCEPTION
8852: WHEN FND_API.G_EXC_ERROR THEN
8853: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8854: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with G_EXC_ERROR');
8855: END IF;
8856: x_return_status := G_RET_STS_ERROR;
8857:
8850:
8851: EXCEPTION
8852: WHEN FND_API.G_EXC_ERROR THEN
8853: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8854: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with G_EXC_ERROR');
8855: END IF;
8856: x_return_status := G_RET_STS_ERROR;
8857:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8855: END IF;
8856: x_return_status := G_RET_STS_ERROR;
8857:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8859: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8860: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with G_EXC_UNEXPECTED_ERROR');
8861: END IF;
8862:
8863: x_return_status := G_RET_STS_UNEXP_ERROR;
8856: x_return_status := G_RET_STS_ERROR;
8857:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8859: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8860: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with G_EXC_UNEXPECTED_ERROR');
8861: END IF;
8862:
8863: x_return_status := G_RET_STS_UNEXP_ERROR;
8864:
8863: x_return_status := G_RET_STS_UNEXP_ERROR;
8864:
8865:
8866: WHEN OTHERS THEN
8867: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8868: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with OTHERS EXCEPTION');
8869: END IF;
8870:
8871: x_return_status := G_RET_STS_UNEXP_ERROR;
8864:
8865:
8866: WHEN OTHERS THEN
8867: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8868: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with OTHERS EXCEPTION');
8869: END IF;
8870:
8871: x_return_status := G_RET_STS_UNEXP_ERROR;
8872: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8975: px_qa_result_tbl := l_qa_result_tbl;
8976:
8977: EXCEPTION
8978: WHEN FND_API.G_EXC_ERROR THEN
8979: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8980: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with G_EXC_ERROR');
8981: END IF;
8982:
8983: x_return_status := G_RET_STS_ERROR;
8976:
8977: EXCEPTION
8978: WHEN FND_API.G_EXC_ERROR THEN
8979: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8980: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with G_EXC_ERROR');
8981: END IF;
8982:
8983: x_return_status := G_RET_STS_ERROR;
8984:
8983: x_return_status := G_RET_STS_ERROR;
8984:
8985:
8986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8987: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8988: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with G_EXC_UNEXPECTED_ERROR');
8989: END IF;
8990:
8991: x_return_status := G_RET_STS_UNEXP_ERROR;
8984:
8985:
8986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8987: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8988: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with G_EXC_UNEXPECTED_ERROR');
8989: END IF;
8990:
8991: x_return_status := G_RET_STS_UNEXP_ERROR;
8992:
8991: x_return_status := G_RET_STS_UNEXP_ERROR;
8992:
8993:
8994: WHEN OTHERS THEN
8995: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8996: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with OTHERS EXCEPTION');
8997: END IF;
8998:
8999: x_return_status := G_RET_STS_UNEXP_ERROR;
8992:
8993:
8994: WHEN OTHERS THEN
8995: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8996: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with OTHERS EXCEPTION');
8997: END IF;
8998:
8999: x_return_status := G_RET_STS_UNEXP_ERROR;
9000: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9048: px_qa_result_tbl(l_index).problem_short_desc := l_short_desc;
9049: x_return_status := l_return_status;
9050: EXCEPTION
9051: WHEN OTHERS THEN
9052: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9053: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'5002: Leaving update_error_table with unexpected error:'||SQLERRM);
9054: END IF;
9055: x_return_status := G_RET_STS_UNEXP_ERROR;
9056:
9049: x_return_status := l_return_status;
9050: EXCEPTION
9051: WHEN OTHERS THEN
9052: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9053: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'5002: Leaving update_error_table with unexpected error:'||SQLERRM);
9054: END IF;
9055: x_return_status := G_RET_STS_UNEXP_ERROR;
9056:
9057: End update_error_table;
9330:
9331:
9332: EXCEPTION
9333: WHEN DEL_NOT_FOUND_EXCEPTION THEN
9334: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9335: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'5000: In check_deliverables_var_usage:DEL_NOT_FOUND :'||SQLERRM);
9336: END IF;
9337:
9338: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED', p_bus_doc_type);
9331:
9332: EXCEPTION
9333: WHEN DEL_NOT_FOUND_EXCEPTION THEN
9334: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9335: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'5000: In check_deliverables_var_usage:DEL_NOT_FOUND :'||SQLERRM);
9336: END IF;
9337:
9338: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED', p_bus_doc_type);
9339: l_resolved_msg_name2 := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED_S', p_bus_doc_type);
9378: px_qa_result_tbl := l_qa_result_tbl;
9379:
9380: EXCEPTION
9381: WHEN OTHERS THEN
9382: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9383: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'5001: Leaving check_deliverables_var_usage with unexpected error:'||SQLERRM);
9384: END IF;
9385:
9386: IF get_variables_CUR%ISOPEN THEN
9379:
9380: EXCEPTION
9381: WHEN OTHERS THEN
9382: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9383: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'5001: Leaving check_deliverables_var_usage with unexpected error:'||SQLERRM);
9384: END IF;
9385:
9386: IF get_variables_CUR%ISOPEN THEN
9387: CLOSE get_variables_CUR;
9517:
9518:
9519: EXCEPTION
9520: WHEN FND_API.G_EXC_ERROR THEN
9521: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9522: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module
9523: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with G_EXC_ERROR');
9524: END IF;
9525: x_return_status := G_RET_STS_ERROR;
9518:
9519: EXCEPTION
9520: WHEN FND_API.G_EXC_ERROR THEN
9521: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9522: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module
9523: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with G_EXC_ERROR');
9524: END IF;
9525: x_return_status := G_RET_STS_ERROR;
9526:
9525: x_return_status := G_RET_STS_ERROR;
9526:
9527:
9528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9529: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9530: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module
9531: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with G_EXC_UNEXPECTED_ERROR');
9532: END IF;
9533:
9526:
9527:
9528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9529: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9530: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module
9531: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with G_EXC_UNEXPECTED_ERROR');
9532: END IF;
9533:
9534: x_return_status := G_RET_STS_UNEXP_ERROR;
9534: x_return_status := G_RET_STS_UNEXP_ERROR;
9535:
9536:
9537: WHEN OTHERS THEN
9538: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9539: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module
9540: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with OTHERS EXCEPTION');
9541: END IF;
9542: x_return_status := G_RET_STS_UNEXP_ERROR;
9535:
9536:
9537: WHEN OTHERS THEN
9538: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9539: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module
9540: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with OTHERS EXCEPTION');
9541: END IF;
9542: x_return_status := G_RET_STS_UNEXP_ERROR;
9543:
9660:
9661:
9662: BEGIN
9663:
9664: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9665: okc_debug.Set_Indentation('OKC_DELIVERABLE_PROCESS_PVT');
9666: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'21300: Entered validate_deliverable_for_qa');
9667: END IF;
9668:
9662: BEGIN
9663:
9664: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9665: okc_debug.Set_Indentation('OKC_DELIVERABLE_PROCESS_PVT');
9666: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'21300: Entered validate_deliverable_for_qa');
9667: END IF;
9668:
9669: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
9670: p_init_msg_list,
9940:
9941:
9942:
9943: IF(l_check_amendments_yn='Y' and p_mode = G_AMEND_QA) THEN
9944: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking amendments');
9946: END IF;
9947: check_amendments( del_rec => del_rec,
9948: p_severity => l_amendments_severity,
9941:
9942:
9943: IF(l_check_amendments_yn='Y' and p_mode = G_AMEND_QA) THEN
9944: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9945: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking amendments');
9946: END IF;
9947: check_amendments( del_rec => del_rec,
9948: p_severity => l_amendments_severity,
9949: px_qa_result_tbl => l_qa_result_tbl,
9953: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9954: RAISE FND_API.G_EXC_ERROR ;
9955: END IF;
9956:
9957: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9958: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking amendments');
9959: END IF;
9960: END IF;
9961:
9954: RAISE FND_API.G_EXC_ERROR ;
9955: END IF;
9956:
9957: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9958: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking amendments');
9959: END IF;
9960: END IF;
9961:
9962: IF(l_check_notifications_yn='Y') THEN
9959: END IF;
9960: END IF;
9961:
9962: IF(l_check_notifications_yn='Y') THEN
9963: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9964: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking notifications');
9965: END IF;
9966: check_notifications( del_rec => del_rec,
9967: p_severity => l_notifications_severity,
9960: END IF;
9961:
9962: IF(l_check_notifications_yn='Y') THEN
9963: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9964: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking notifications');
9965: END IF;
9966: check_notifications( del_rec => del_rec,
9967: p_severity => l_notifications_severity,
9968: px_qa_result_tbl => l_qa_result_tbl,
9972: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9973: RAISE FND_API.G_EXC_ERROR ;
9974: END IF;
9975:
9976: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9977: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking notifications');
9978: END IF;
9979: END IF;
9980:
9973: RAISE FND_API.G_EXC_ERROR ;
9974: END IF;
9975:
9976: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9977: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking notifications');
9978: END IF;
9979: END IF;
9980:
9981: IF(l_check_int_contact_yn='Y') THEN
9978: END IF;
9979: END IF;
9980:
9981: IF(l_check_int_contact_yn='Y') THEN
9982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking internal contacts');
9984: END IF;
9985: check_internal_contacts( del_rec => del_rec,
9986: p_severity => l_int_contact_severity,
9979: END IF;
9980:
9981: IF(l_check_int_contact_yn='Y') THEN
9982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking internal contacts');
9984: END IF;
9985: check_internal_contacts( del_rec => del_rec,
9986: p_severity => l_int_contact_severity,
9987: px_qa_result_tbl => l_qa_result_tbl,
9991: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9992: RAISE FND_API.G_EXC_ERROR ;
9993: END IF;
9994:
9995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking internal contacts');
9997: END IF;
9998: END IF;
9999:
9992: RAISE FND_API.G_EXC_ERROR ;
9993: END IF;
9994:
9995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking internal contacts');
9997: END IF;
9998: END IF;
9999:
10000: --bug 3686334
9999:
10000: --bug 3686334
10001: --added call to check_internal_contact_valid
10002: IF(l_check_int_contact_valid_yn='Y') THEN
10003: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10004: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking internal contacts valid');
10005: END IF;
10006: check_internal_contacts_valid( del_rec => del_rec,
10007: p_severity => l_int_contact_valid_severity,
10000: --bug 3686334
10001: --added call to check_internal_contact_valid
10002: IF(l_check_int_contact_valid_yn='Y') THEN
10003: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10004: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking internal contacts valid');
10005: END IF;
10006: check_internal_contacts_valid( del_rec => del_rec,
10007: p_severity => l_int_contact_valid_severity,
10008: px_qa_result_tbl => l_qa_result_tbl,
10012: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10013: RAISE FND_API.G_EXC_ERROR ;
10014: END IF;
10015:
10016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking internal contacts valid');
10018: END IF;
10019: END IF;
10020:
10013: RAISE FND_API.G_EXC_ERROR ;
10014: END IF;
10015:
10016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking internal contacts valid');
10018: END IF;
10019: END IF;
10020:
10021:
10020:
10021:
10022: ------------External Party Exists check---------------
10023: IF (l_chk_extparty_exists_yn = 'Y') THEN
10024: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10025: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
10026: ||l_api_name,'start checking external party exists');
10027: END IF;
10028: check_external_party_exists(del_rec => del_rec,
10021:
10022: ------------External Party Exists check---------------
10023: IF (l_chk_extparty_exists_yn = 'Y') THEN
10024: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10025: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
10026: ||l_api_name,'start checking external party exists');
10027: END IF;
10028: check_external_party_exists(del_rec => del_rec,
10029: p_severity => l_chk_extparty_exists_severity,
10035: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10036: RAISE FND_API.G_EXC_ERROR ;
10037: END IF;
10038:
10039: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10040: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
10041: ||l_api_name,'finished checking external party exists');
10042: END IF;
10043: END IF;
10036: RAISE FND_API.G_EXC_ERROR ;
10037: END IF;
10038:
10039: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10040: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
10041: ||l_api_name,'finished checking external party exists');
10042: END IF;
10043: END IF;
10044:
10044:
10045: ------------End External Party Exists check------------
10046:
10047: IF(l_check_ext_contact_yn='Y') THEN
10048: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10049: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking external contacts');
10050: END IF;
10051: check_external_contacts( del_rec => del_rec,
10052: p_severity =>l_ext_contact_severity,
10045: ------------End External Party Exists check------------
10046:
10047: IF(l_check_ext_contact_yn='Y') THEN
10048: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10049: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking external contacts');
10050: END IF;
10051: check_external_contacts( del_rec => del_rec,
10052: p_severity =>l_ext_contact_severity,
10053: px_qa_result_tbl => l_qa_result_tbl,
10056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10057: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10058: RAISE FND_API.G_EXC_ERROR ;
10059: END IF;
10060: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10061: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking external contacts');
10062: END IF;
10063: END IF;
10064:
10057: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10058: RAISE FND_API.G_EXC_ERROR ;
10059: END IF;
10060: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10061: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking external contacts');
10062: END IF;
10063: END IF;
10064:
10065: IF(l_check_due_dates_yn='Y') THEN
10062: END IF;
10063: END IF;
10064:
10065: IF(l_check_due_dates_yn='Y') THEN
10066: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10067: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking due dates');
10068: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'schedule_type = '||del_rec.schedule_type);
10069: END IF;
10070: --Acq Plan Message Cleanup
10063: END IF;
10064:
10065: IF(l_check_due_dates_yn='Y') THEN
10066: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10067: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking due dates');
10068: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'schedule_type = '||del_rec.schedule_type);
10069: END IF;
10070: --Acq Plan Message Cleanup
10071: IF (nvl(del_rec.schedule_type, 'SYSTEM') = 'SYSTEM') THEN --if schedule_type is SYSTEM then only validations are required.
10064:
10065: IF(l_check_due_dates_yn='Y') THEN
10066: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10067: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking due dates');
10068: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'schedule_type = '||del_rec.schedule_type);
10069: END IF;
10070: --Acq Plan Message Cleanup
10071: IF (nvl(del_rec.schedule_type, 'SYSTEM') = 'SYSTEM') THEN --if schedule_type is SYSTEM then only validations are required.
10072: check_due_dates( del_rec => del_rec,
10080: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10081: RAISE FND_API.G_EXC_ERROR ;
10082: END IF;
10083: ELSE --schedule_type <> SYSTEM
10084: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10085: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name, 'For schedule type NOT IN (system or null), checking due dates is not required');
10086: END IF;
10087: END IF; --end of schedule_type check
10088:
10081: RAISE FND_API.G_EXC_ERROR ;
10082: END IF;
10083: ELSE --schedule_type <> SYSTEM
10084: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10085: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name, 'For schedule type NOT IN (system or null), checking due dates is not required');
10086: END IF;
10087: END IF; --end of schedule_type check
10088:
10089:
10087: END IF; --end of schedule_type check
10088:
10089:
10090:
10091: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10092: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking due dates');
10093: END IF;
10094: END IF;
10095:
10088:
10089:
10090:
10091: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10092: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking due dates');
10093: END IF;
10094: END IF;
10095:
10096:
10132: RAISE FND_API.G_EXC_ERROR ;
10133: END IF;
10134: END LOOP;
10135:
10136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking Exhibit Details');
10138: END IF;
10139:
10140: END IF;
10133: END IF;
10134: END LOOP;
10135:
10136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10137: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking Exhibit Details');
10138: END IF;
10139:
10140: END IF;
10141:
10174: CLOSE check_lookup_code_csr;
10175:
10176: IF(l_check_var_usage_yn = 'Y') THEN
10177:
10178: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10179: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking variable usage');
10180: END IF;
10181:
10182: check_deliverables_var_usage(p_severity => l_var_usage_severity,
10175:
10176: IF(l_check_var_usage_yn = 'Y') THEN
10177:
10178: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10179: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start checking variable usage');
10180: END IF;
10181:
10182: check_deliverables_var_usage(p_severity => l_var_usage_severity,
10183: p_bus_doc_id => p_doc_id,
10189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10190: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10191: RAISE FND_API.G_EXC_ERROR ;
10192: END IF;
10193: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking variable usage');
10195: END IF;
10196:
10197: END IF;
10190: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10191: RAISE FND_API.G_EXC_ERROR ;
10192: END IF;
10193: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking variable usage');
10195: END IF;
10196:
10197: END IF;
10198: END IF; -- l_contract_source = 'STRUCTURED' THEN
10250: x_return_status := l_return_status;
10251: x_qa_return_status := l_qa_return_status;
10252:
10253:
10254: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10255: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa');
10256: END IF;
10257:
10258: EXCEPTION
10251: x_qa_return_status := l_qa_return_status;
10252:
10253:
10254: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10255: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa');
10256: END IF;
10257:
10258: EXCEPTION
10259: WHEN FND_API.G_EXC_ERROR THEN
10257:
10258: EXCEPTION
10259: WHEN FND_API.G_EXC_ERROR THEN
10260:
10261: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10262: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with G_EXC_ERROR');
10263: END IF;
10264: --close cursors
10265: IF (del_cur%ISOPEN) THEN
10258: EXCEPTION
10259: WHEN FND_API.G_EXC_ERROR THEN
10260:
10261: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10262: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with G_EXC_ERROR');
10263: END IF;
10264: --close cursors
10265: IF (del_cur%ISOPEN) THEN
10266: CLOSE del_cur ;
10281: );
10282:
10283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10284:
10285: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10286: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with G_EXC_UNEXPECTED_ERROR');
10287: END IF;
10288: --close cursors
10289: IF (del_cur%ISOPEN) THEN
10282:
10283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10284:
10285: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10286: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with G_EXC_UNEXPECTED_ERROR');
10287: END IF;
10288: --close cursors
10289: IF (del_cur%ISOPEN) THEN
10290: CLOSE del_cur ;
10305: p_data => x_msg_data
10306: );
10307:
10308: WHEN OTHERS THEN
10309: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10310: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with OTHERS EXCEPTION');
10311: END IF;
10312: --close cursors
10313: IF (del_cur%ISOPEN) THEN
10306: );
10307:
10308: WHEN OTHERS THEN
10309: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10310: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with OTHERS EXCEPTION');
10311: END IF;
10312: --close cursors
10313: IF (del_cur%ISOPEN) THEN
10314: CLOSE del_cur ;
10356:
10357:
10358: BEGIN
10359:
10360: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10361: okc_debug.Set_Indentation('OKC_DELIVERABLE_PROCESS_PVT');
10362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'21300: Entered validate_deliverable_for_qa');
10363: END IF;
10364:
10358: BEGIN
10359:
10360: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10361: okc_debug.Set_Indentation('OKC_DELIVERABLE_PROCESS_PVT');
10362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'21300: Entered validate_deliverable_for_qa');
10363: END IF;
10364:
10365: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
10366: p_init_msg_list,
10386: ,x_result => l_return_status);
10387:
10388: x_return_status := l_return_status;
10389:
10390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach');
10392: END IF;
10393:
10394: EXCEPTION
10387:
10388: x_return_status := l_return_status;
10389:
10390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach');
10392: END IF;
10393:
10394: EXCEPTION
10395: WHEN FND_API.G_EXC_ERROR THEN
10392: END IF;
10393:
10394: EXCEPTION
10395: WHEN FND_API.G_EXC_ERROR THEN
10396: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10397: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with G_EXC_ERROR');
10398: END IF;
10399:
10400: x_return_status := G_RET_STS_ERROR;
10393:
10394: EXCEPTION
10395: WHEN FND_API.G_EXC_ERROR THEN
10396: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10397: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with G_EXC_ERROR');
10398: END IF;
10399:
10400: x_return_status := G_RET_STS_ERROR;
10401: FND_MSG_PUB.Count_And_Get(
10403: p_data => x_msg_data
10404: );
10405:
10406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10407: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10408: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with G_EXC_UNEXPECTED_ERROR');
10409: END IF;
10410:
10411: x_return_status := G_RET_STS_UNEXP_ERROR;
10404: );
10405:
10406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10407: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10408: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with G_EXC_UNEXPECTED_ERROR');
10409: END IF;
10410:
10411: x_return_status := G_RET_STS_UNEXP_ERROR;
10412: FND_MSG_PUB.Count_And_Get(
10414: p_data => x_msg_data
10415: );
10416:
10417: WHEN OTHERS THEN
10418: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10419: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with OTHERS EXCEPTION');
10420: END IF;
10421:
10422: x_return_status := G_RET_STS_UNEXP_ERROR;
10415: );
10416:
10417: WHEN OTHERS THEN
10418: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10419: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with OTHERS EXCEPTION');
10420: END IF;
10421:
10422: x_return_status := G_RET_STS_UNEXP_ERROR;
10423: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10462:
10463: Begin
10464:
10465:
10466: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside delStatusUnchanged.');
10468: END IF;
10469:
10470: -- bug#4137831 initialize variables outside the loop
10463: Begin
10464:
10465:
10466: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10467: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside delStatusUnchanged.');
10468: END IF;
10469:
10470: -- bug#4137831 initialize variables outside the loop
10471: l_open_count := 0;
10485:
10486: If hist_cur%ISOPEN then
10487: CLOSE hist_cur;
10488: End If;
10489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Open status count: '||to_char(l_open_count));
10491: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inactive status count: '||to_char(l_inactive_count));
10492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Others status count: '||to_char(l_others_count));
10493: END IF;
10486: If hist_cur%ISOPEN then
10487: CLOSE hist_cur;
10488: End If;
10489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Open status count: '||to_char(l_open_count));
10491: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inactive status count: '||to_char(l_inactive_count));
10492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Others status count: '||to_char(l_others_count));
10493: END IF;
10494:
10487: CLOSE hist_cur;
10488: End If;
10489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Open status count: '||to_char(l_open_count));
10491: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inactive status count: '||to_char(l_inactive_count));
10492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Others status count: '||to_char(l_others_count));
10493: END IF;
10494:
10495: IF (l_open_count < 1 OR l_open_count = 1 ) AND
10488: End If;
10489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Open status count: '||to_char(l_open_count));
10491: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inactive status count: '||to_char(l_inactive_count));
10492: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Others status count: '||to_char(l_others_count));
10493: END IF;
10494:
10495: IF (l_open_count < 1 OR l_open_count = 1 ) AND
10496: (l_inactive_count < 1 OR l_inactive_count = 1) AND
10501: End If;
10502:
10503: EXCEPTION
10504: WHEN OTHERS THEN
10505: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10506: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,'delStatusUnchanged','102:Leaving delStatusUnchanged with Exception');
10507: END IF;
10508: If hist_cur%ISOPEN then
10509: CLOSE hist_cur;
10502:
10503: EXCEPTION
10504: WHEN OTHERS THEN
10505: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10506: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,'delStatusUnchanged','102:Leaving delStatusUnchanged with Exception');
10507: END IF;
10508: If hist_cur%ISOPEN then
10509: CLOSE hist_cur;
10510: End If;
10537: l_deleteInstances VARCHAR2(1) := 'Y';
10538:
10539: BEGIN
10540:
10541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
10543: END IF;
10544: FOR i IN p_delid_tab.FIRST..p_delid_tab.LAST LOOP
10545: l_del_id := p_delid_tab(i);
10538:
10539: BEGIN
10540:
10541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
10543: END IF;
10544: FOR i IN p_delid_tab.FIRST..p_delid_tab.LAST LOOP
10545: l_del_id := p_delid_tab(i);
10546:
10547: -- fix for bug#3458149 do not delete history if deliverables
10548: -- changed status from OPEN status
10549: IF (p_Conditional_Delete_Flag = 'Y') then
10550: If (delStatusUnchanged(p_Del_id => l_del_id) = 'Y') then
10551: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delStatusUnchanged is Y');
10553: END IF;
10554: l_deleteInstances := 'Y';
10555: Else
10548: -- changed status from OPEN status
10549: IF (p_Conditional_Delete_Flag = 'Y') then
10550: If (delStatusUnchanged(p_Del_id => l_del_id) = 'Y') then
10551: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delStatusUnchanged is Y');
10553: END IF;
10554: l_deleteInstances := 'Y';
10555: Else
10556: l_deleteInstances := 'N';
10559: l_deleteInstances := 'Y';
10560: End If;
10561:
10562:
10563: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10564: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: l_deleteInstances:'||l_deleteInstances);
10565: END IF;
10566: IF (l_deleteInstances = 'Y') then
10567: -- delete deliverables status history
10560: End If;
10561:
10562:
10563: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10564: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: l_deleteInstances:'||l_deleteInstances);
10565: END IF;
10566: IF (l_deleteInstances = 'Y') then
10567: -- delete deliverables status history
10568: DELETE FROM okc_del_status_history
10581: DELETE FROM OKC_DELIVERABLES_EXT_TL
10582: WHERE deliverable_id = l_del_id;
10583: END IF;
10584: x_return_status := l_return_status;
10585: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10586: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deleting status history for deliverable id:'||to_char(l_del_id));
10587: END IF;
10588: END IF;
10589:
10582: WHERE deliverable_id = l_del_id;
10583: END IF;
10584: x_return_status := l_return_status;
10585: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10586: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deleting status history for deliverable id:'||to_char(l_del_id));
10587: END IF;
10588: END IF;
10589:
10590:
10589:
10590:
10591: END LOOP;
10592:
10593: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10594: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
10595: END IF;
10596:
10597: EXCEPTION
10590:
10591: END LOOP;
10592:
10593: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10594: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
10595: END IF;
10596:
10597: EXCEPTION
10598: WHEN OTHERS THEN
10595: END IF;
10596:
10597: EXCEPTION
10598: WHEN OTHERS THEN
10599: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10600: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102:Leaving delete_del_instances with Exception');
10601: END IF;
10602: x_return_status := G_RET_STS_UNEXP_ERROR;
10603: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10596:
10597: EXCEPTION
10598: WHEN OTHERS THEN
10599: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10600: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102:Leaving delete_del_instances with Exception');
10601: END IF;
10602: x_return_status := G_RET_STS_UNEXP_ERROR;
10603: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10604: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
10700:
10701: RETURN(l_exists);
10702: EXCEPTION
10703: WHEN OTHERS THEN
10704: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10705: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving deliverables_exist because of EXCEPTION: '||sqlerrm);
10706: END IF;
10707:
10708: IF del_cur%ISOPEN THEN
10701: RETURN(l_exists);
10702: EXCEPTION
10703: WHEN OTHERS THEN
10704: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10705: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving deliverables_exist because of EXCEPTION: '||sqlerrm);
10706: END IF;
10707:
10708: IF del_cur%ISOPEN THEN
10709: CLOSE del_cur;
10735: l_api_name VARCHAR2(30) :='delete_deliverable';
10736:
10737: BEGIN
10738:
10739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable'||to_char(p_del_id));
10741: END IF;
10742: -- delete deliverables status history
10743: DELETE FROM okc_del_status_history
10736:
10737: BEGIN
10738:
10739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable'||to_char(p_del_id));
10741: END IF;
10742: -- delete deliverables status history
10743: DELETE FROM okc_del_status_history
10744: WHERE deliverable_id = p_del_id;
10756: DELETE FROM OKC_DELIVERABLES_EXT_TL
10757: WHERE deliverable_id = p_del_id;
10758: END IF;
10759: x_return_status := l_result;
10760: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable');
10762: END IF;
10763:
10764: EXCEPTION
10757: WHERE deliverable_id = p_del_id;
10758: END IF;
10759: x_return_status := l_result;
10760: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable');
10762: END IF;
10763:
10764: EXCEPTION
10765: WHEN FND_API.G_EXC_ERROR THEN
10762: END IF;
10763:
10764: EXCEPTION
10765: WHEN FND_API.G_EXC_ERROR THEN
10766: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10767: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_ERROR');
10768: END IF;
10769: x_return_status := G_RET_STS_ERROR;
10770: FND_MSG_PUB.Count_And_Get(
10763:
10764: EXCEPTION
10765: WHEN FND_API.G_EXC_ERROR THEN
10766: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10767: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_ERROR');
10768: END IF;
10769: x_return_status := G_RET_STS_ERROR;
10770: FND_MSG_PUB.Count_And_Get(
10771: p_count => x_msg_count,
10772: p_data => x_msg_data
10773: );
10774:
10775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10776: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10777: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_UNEXPECTED_ERROR');
10778: END IF;
10779: x_return_status := G_RET_STS_UNEXP_ERROR;
10780: FND_MSG_PUB.Count_And_Get(
10773: );
10774:
10775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10776: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10777: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_UNEXPECTED_ERROR');
10778: END IF;
10779: x_return_status := G_RET_STS_UNEXP_ERROR;
10780: FND_MSG_PUB.Count_And_Get(
10781: p_count => x_msg_count,
10782: p_data => x_msg_data
10783: );
10784:
10785: WHEN OTHERS THEN
10786: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10787: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_UNEXPECTED_ERROR');
10788: END IF;
10789: x_return_status := G_RET_STS_UNEXP_ERROR;
10790: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10783: );
10784:
10785: WHEN OTHERS THEN
10786: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10787: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_UNEXPECTED_ERROR');
10788: END IF;
10789: x_return_status := G_RET_STS_UNEXP_ERROR;
10790: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10791: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
10847: l_api_name CONSTANT VARCHAR2(30) :='delete_template_deliverables';
10848:
10849: exhibit_code_tbl okc_cdrl_pvt.exhibit_tbl_type;
10850: BEGIN
10851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables');
10853: END IF;
10854:
10855: -- Get the exhibit details first before we delete deliverables.
10848:
10849: exhibit_code_tbl okc_cdrl_pvt.exhibit_tbl_type;
10850: BEGIN
10851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables');
10853: END IF;
10854:
10855: -- Get the exhibit details first before we delete deliverables.
10856: OPEN exb_cur;
10861: FETCH del_cur BULK COLLECT INTO delIdTab;
10862: -- bug#3188413 check count before loop
10863: IF delIdTab.COUNT > 0 THEN
10864: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
10865: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10866: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delId is:'||to_char(delIdTab(i)));
10867: END IF;
10868: -- delete attachments if any
10869: delete_attachments (
10862: -- bug#3188413 check count before loop
10863: IF delIdTab.COUNT > 0 THEN
10864: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
10865: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10866: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delId is:'||to_char(delIdTab(i)));
10867: END IF;
10868: -- delete attachments if any
10869: delete_attachments (
10870: p_entity_name => G_ENTITY_NAME
10920: END IF;
10921:
10922:
10923: x_return_status := x_return_status;
10924: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10925: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables');
10926: END IF;
10927:
10928: EXCEPTION
10921:
10922:
10923: x_return_status := x_return_status;
10924: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10925: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables');
10926: END IF;
10927:
10928: EXCEPTION
10929: WHEN OTHERS THEN
10929: WHEN OTHERS THEN
10930: IF del_cur %ISOPEN THEN
10931: CLOSE del_cur ;
10932: END IF;
10933: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10934: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables with G_EXC_UNEXPECTED_ERROR');
10935: END IF;
10936: x_return_status := G_RET_STS_UNEXP_ERROR;
10937: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10930: IF del_cur %ISOPEN THEN
10931: CLOSE del_cur ;
10932: END IF;
10933: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10934: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables with G_EXC_UNEXPECTED_ERROR');
10935: END IF;
10936: x_return_status := G_RET_STS_UNEXP_ERROR;
10937: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10938: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
11010: x_return_status := OKC_API.G_RET_STS_SUCCESS;
11011:
11012:
11013: FOR del_rec IN del_cur LOOP
11014: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside OKC_DELIVERABLE_PROCESS_PVT.deliverables_amended :'||del_rec.deliverable_type);
11016: END IF;
11017:
11018: --Repository change to look at internal_flag in okc_deliverable_types_b
11011:
11012:
11013: FOR del_rec IN del_cur LOOP
11014: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside OKC_DELIVERABLE_PROCESS_PVT.deliverables_amended :'||del_rec.deliverable_type);
11016: END IF;
11017:
11018: --Repository change to look at internal_flag in okc_deliverable_types_b
11019: If (del_rec.internal_flag = 'Y') then
11055: END IF;
11056: END IF;
11057:
11058:
11059: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11060: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: l_amended is :'||l_amended);
11061: END IF;
11062: RETURN(l_amended);
11063:
11056: END IF;
11057:
11058:
11059: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11060: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: l_amended is :'||l_amended);
11061: END IF;
11062: RETURN(l_amended);
11063:
11064: EXCEPTION
11062: RETURN(l_amended);
11063:
11064: EXCEPTION
11065: WHEN OTHERS THEN
11066: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11067: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving deliverables_amended because of EXCEPTION: '||sqlerrm);
11068: END IF;
11069:
11070: IF del_cur%ISOPEN THEN
11063:
11064: EXCEPTION
11065: WHEN OTHERS THEN
11066: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11067: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving deliverables_amended because of EXCEPTION: '||sqlerrm);
11068: END IF;
11069:
11070: IF del_cur%ISOPEN THEN
11071: CLOSE del_cur;
11156: else
11157: l_repeating_duration := p_repeating_duration;
11158: end if;
11159:
11160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message name is : '||p_print_due_date_msg_name);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11157: l_repeating_duration := p_repeating_duration;
11158: end if;
11159:
11160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message name is : '||p_print_due_date_msg_name);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11158: end if;
11159:
11160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message name is : '||p_print_due_date_msg_name);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11159:
11160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message name is : '||p_print_due_date_msg_name);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message name is : '||p_print_due_date_msg_name);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message name is : '||p_print_due_date_msg_name);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_DATE_FIXED is : '|| p_fixed_start_date);
11162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_WEEK is : '||p_repeating_day_of_week);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_DATE_FIXED is : '|| p_fixed_start_date);
11170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FIXED_END_DATE is : '|| p_fixed_end_date);
11163: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'DAY_OF_MONTH is : '||p_repeating_day_of_month);
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_DATE_FIXED is : '|| p_fixed_start_date);
11170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FIXED_END_DATE is : '|| p_fixed_end_date);
11171: END IF;
11164: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_NUM is : '||p_relative_st_date_duration);
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_DATE_FIXED is : '|| p_fixed_start_date);
11170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FIXED_END_DATE is : '|| p_fixed_end_date);
11171: END IF;
11172: -- bug#3465662 call this API if print due date msg name is not null
11165: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_NUM is : '||p_relative_end_date_duration);
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_DATE_FIXED is : '|| p_fixed_start_date);
11170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FIXED_END_DATE is : '|| p_fixed_end_date);
11171: END IF;
11172: -- bug#3465662 call this API if print due date msg name is not null
11173: IF p_print_due_date_msg_name IS NOT NULL THEN
11166: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_EVENT is : '||l_st_event);
11167: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'END_EVENT is : '||l_end_event);
11168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FREQ_NUM is : '|| l_repeating_duration);
11169: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'START_DATE_FIXED is : '|| p_fixed_start_date);
11170: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'FIXED_END_DATE is : '|| p_fixed_end_date);
11171: END IF;
11172: -- bug#3465662 call this API if print due date msg name is not null
11173: IF p_print_due_date_msg_name IS NOT NULL THEN
11174: l_msg := OKC_TERMS_UTIL_PVT.Get_Message(
11192: ,p_token8_value => p_fixed_start_date
11193: ,p_token9 => 'FIXED_END_DATE'
11194: ,p_token9_value => p_fixed_end_date);
11195:
11196: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11197: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message is : '|| l_msg);
11198: END IF;
11199:
11200: END IF;
11193: ,p_token9 => 'FIXED_END_DATE'
11194: ,p_token9_value => p_fixed_end_date);
11195:
11196: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11197: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'message is : '|| l_msg);
11198: END IF;
11199:
11200: END IF;
11201: return(l_msg);
11203: EXCEPTION
11204:
11205: WHEN OTHERS THEN
11206:
11207: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11208: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving getDueDateMsgText with EXCEPTION: '||sqlerrm);
11209: END IF;
11210:
11211: IF event_cur%ISOPEN THEN
11204:
11205: WHEN OTHERS THEN
11206:
11207: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11208: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'4300: Leaving getDueDateMsgText with EXCEPTION: '||sqlerrm);
11209: END IF;
11210:
11211: IF event_cur%ISOPEN THEN
11212: CLOSE event_cur;
11279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
11280: l_recur_del_parent_id NUMBER;
11281: x_errorcode NUMBER;
11282: BEGIN
11283: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11285: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_response_deliverables');
11286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11287: ,'100: target budoc id is:'||to_char(p_target_doc_id));
11280: l_recur_del_parent_id NUMBER;
11281: x_errorcode NUMBER;
11282: BEGIN
11283: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11285: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_response_deliverables');
11286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11287: ,'100: target budoc id is:'||to_char(p_target_doc_id));
11288: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11282: BEGIN
11283: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11285: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_response_deliverables');
11286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11287: ,'100: target budoc id is:'||to_char(p_target_doc_id));
11288: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11289: ,'100: target budoc id type:'||p_target_doc_type);
11290: END IF;
11284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11285: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_response_deliverables');
11286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11287: ,'100: target budoc id is:'||to_char(p_target_doc_id));
11288: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11289: ,'100: target budoc id type:'||p_target_doc_type);
11290: END IF;
11291: -- initialize the table type variable to strore source and target deliverble
11292: -- ids to copy attachments.
11400: IF del_cur %ISOPEN THEN
11401: CLOSE del_cur ;
11402: END IF;
11403: IF delRecTab.COUNT <> 0 THEN
11404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Number of records in delRecTab :'||to_char(delRecTab.COUNT));
11406: END IF;
11407: -- Build the new deliverable definition table
11408: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
11401: CLOSE del_cur ;
11402: END IF;
11403: IF delRecTab.COUNT <> 0 THEN
11404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Number of records in delRecTab :'||to_char(delRecTab.COUNT));
11406: END IF;
11407: -- Build the new deliverable definition table
11408: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
11409: j := j+1;
11542: END IF;
11543: -- If instances exist then add them to the new deliverables table
11544: IF delInsTab.COUNT <> 0 THEN
11545: FOR n IN delInsTab.FIRST..delInsTab.LAST LOOP
11546: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11547: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside Instance cursor loop');
11548: END IF;
11549: j:=j+1;
11550: -- extend table type
11543: -- If instances exist then add them to the new deliverables table
11544: IF delInsTab.COUNT <> 0 THEN
11545: FOR n IN delInsTab.FIRST..delInsTab.LAST LOOP
11546: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11547: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside Instance cursor loop');
11548: END IF;
11549: j:=j+1;
11550: -- extend table type
11551: delIdTab.extend;
11571: END IF;--delInsTab.COUNT
11572:
11573:
11574: END IF; --recurring_yn = 'Y'
11575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11576: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab.COUNT));
11577: END IF;
11578: END LOOP; -- delRecTab.FIRST..delRecTab.LAST
11579: END IF; -- delRecTab.COUNT
11572:
11573:
11574: END IF; --recurring_yn = 'Y'
11575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11576: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab.COUNT));
11577: END IF;
11578: END LOOP; -- delRecTab.FIRST..delRecTab.LAST
11579: END IF; -- delRecTab.COUNT
11580:
11580:
11581: -- loop through new table and create deliverables for the target document
11582: IF delNewTab.COUNT <> 0 THEN
11583: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
11584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
11586: END IF;
11587: INSERT INTO okc_deliverables
11588: (DELIVERABLE_ID,
11581: -- loop through new table and create deliverables for the target document
11582: IF delNewTab.COUNT <> 0 THEN
11583: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
11584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
11586: END IF;
11587: INSERT INTO okc_deliverables
11588: (DELIVERABLE_ID,
11589: BUSINESS_DOCUMENT_TYPE ,
11795: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11797: END IF;
11798: END LOOP;
11799: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11800: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Creating Deliverables ');
11801: END IF;
11802: END IF; -- delNewTab.COUNT <> 0
11803: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11797: END IF;
11798: END LOOP;
11799: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11800: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Creating Deliverables ');
11801: END IF;
11802: END IF; -- delNewTab.COUNT <> 0
11803: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11804: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
11799: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11800: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Creating Deliverables ');
11801: END IF;
11802: END IF; -- delNewTab.COUNT <> 0
11803: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11804: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
11805: END IF;
11806:
11807: -- loop through deliverable ids table and copy existing attachments and status history
11800: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Creating Deliverables ');
11801: END IF;
11802: END IF; -- delNewTab.COUNT <> 0
11803: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11804: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
11805: END IF;
11806:
11807: -- loop through deliverable ids table and copy existing attachments and status history
11808: -- from old deliverable to new deliverable
11810: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
11811:
11812: FOR delStsHist_rec in delStsHist(delIdTab(i).orig_del_id) LOOP
11813: --insert into status history
11814: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11815: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: status history for Deliverable Id :'||to_char(delIdTab(i).del_id));
11816: END IF;
11817: INSERT INTO okc_del_status_history (
11818: deliverable_id,
11811:
11812: FOR delStsHist_rec in delStsHist(delIdTab(i).orig_del_id) LOOP
11813: --insert into status history
11814: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11815: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: status history for Deliverable Id :'||to_char(delIdTab(i).del_id));
11816: END IF;
11817: INSERT INTO okc_del_status_history (
11818: deliverable_id,
11819: deliverable_status,
11847: -- check if attachments exists
11848: IF attachment_exists(p_entity_name => G_ENTITY_NAME
11849: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
11850:
11851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Copy Deliverable Attachments :'||to_char(delIdTab(i).del_id));
11853: END IF;
11854: -- copy attachments
11855: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
11848: IF attachment_exists(p_entity_name => G_ENTITY_NAME
11849: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
11850:
11851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Copy Deliverable Attachments :'||to_char(delIdTab(i).del_id));
11853: END IF;
11854: -- copy attachments
11855: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
11856: fnd_attached_documents2_pkg.copy_attachments(
11860: X_to_pk1_value => to_char(delIdTab(i).del_id),
11861: X_CREATED_BY => FND_GLOBAL.User_id,
11862: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
11863: );
11864: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11865: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Copy Deliverable Attachments ');
11866: END IF;
11867: END IF; --attachment_exists
11868: END LOOP; -- delIdTab.FIRST..delIdTab.LAST
11861: X_CREATED_BY => FND_GLOBAL.User_id,
11862: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
11863: );
11864: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11865: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Copy Deliverable Attachments ');
11866: END IF;
11867: END IF; --attachment_exists
11868: END LOOP; -- delIdTab.FIRST..delIdTab.LAST
11869: END IF; -- delIdTab.COUNT
11871: IF del_cur %ISOPEN THEN
11872: CLOSE del_cur ;
11873: END IF;
11874: x_return_status := l_return_status;
11875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':leaving ');
11877: END IF;
11878: EXCEPTION
11879: WHEN FND_API.G_EXC_ERROR THEN
11872: CLOSE del_cur ;
11873: END IF;
11874: x_return_status := l_return_status;
11875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':leaving ');
11877: END IF;
11878: EXCEPTION
11879: WHEN FND_API.G_EXC_ERROR THEN
11880: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':leaving ');
11877: END IF;
11878: EXCEPTION
11879: WHEN FND_API.G_EXC_ERROR THEN
11880: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11881: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR: '||
11882: substr(sqlerrm,1,200));
11883: END IF;
11884: IF del_cur %ISOPEN THEN
11877: END IF;
11878: EXCEPTION
11879: WHEN FND_API.G_EXC_ERROR THEN
11880: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11881: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR: '||
11882: substr(sqlerrm,1,200));
11883: END IF;
11884: IF del_cur %ISOPEN THEN
11885: CLOSE del_cur ;
11896: p_data => x_msg_data
11897: );
11898:
11899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11900: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11901: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
11902: ,'leaving with G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
11903: END IF;
11904: IF del_cur %ISOPEN THEN
11897: );
11898:
11899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11900: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11901: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
11902: ,'leaving with G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
11903: END IF;
11904: IF del_cur %ISOPEN THEN
11905: CLOSE del_cur ;
11916: p_data => x_msg_data
11917: );
11918:
11919: WHEN OTHERS THEN
11920: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11921: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,
11922: 'leaving with G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
11923: END IF;
11924: IF del_cur %ISOPEN THEN
11917: );
11918:
11919: WHEN OTHERS THEN
11920: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11921: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,
11922: 'leaving with G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
11923: END IF;
11924: IF del_cur %ISOPEN THEN
11925: CLOSE del_cur ;
11960: j PLS_INTEGER := 0;
11961:
11962: BEGIN
11963:
11964: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11965: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
11966: END IF;
11967:
11968: IF p_del_st_hist_tab.count > 0 THEN
11961:
11962: BEGIN
11963:
11964: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11965: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
11966: END IF;
11967:
11968: IF p_del_st_hist_tab.count > 0 THEN
11969: FOR i IN p_del_st_hist_tab.FIRST..p_del_st_hist_tab.LAST LOOP
11993: );
11994: END LOOP;
11995: END IF;
11996:
11997: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving ');
11999: END IF;
12000: x_return_status := l_return_status;
12001: EXCEPTION
11994: END LOOP;
11995: END IF;
11996:
11997: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving ');
11999: END IF;
12000: x_return_status := l_return_status;
12001: EXCEPTION
12002: WHEN FND_API.G_EXC_ERROR THEN
11999: END IF;
12000: x_return_status := l_return_status;
12001: EXCEPTION
12002: WHEN FND_API.G_EXC_ERROR THEN
12003: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12004: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
12005: END IF;
12006: x_return_status := G_RET_STS_ERROR;
12007: FND_MSG_PUB.Count_And_Get(
12000: x_return_status := l_return_status;
12001: EXCEPTION
12002: WHEN FND_API.G_EXC_ERROR THEN
12003: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12004: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
12005: END IF;
12006: x_return_status := G_RET_STS_ERROR;
12007: FND_MSG_PUB.Count_And_Get(
12008: p_count => x_msg_count,
12009: p_data => x_msg_data
12010: );
12011:
12012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12013: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12014: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
12015: END IF;
12016: x_return_status := G_RET_STS_UNEXP_ERROR;
12017: FND_MSG_PUB.Count_And_Get(
12010: );
12011:
12012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12013: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12014: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
12015: END IF;
12016: x_return_status := G_RET_STS_UNEXP_ERROR;
12017: FND_MSG_PUB.Count_And_Get(
12018: p_count => x_msg_count,
12019: p_data => x_msg_data
12020: );
12021:
12022: WHEN OTHERS THEN
12023: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12024: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
12025: END IF;
12026: x_return_status := G_RET_STS_UNEXP_ERROR;
12027: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
12020: );
12021:
12022: WHEN OTHERS THEN
12023: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12024: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
12025: END IF;
12026: x_return_status := G_RET_STS_UNEXP_ERROR;
12027: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
12028: END IF;
12085:
12086:
12087: BEGIN
12088:
12089: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12090: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
12091: END IF;
12092:
12093: -- Standard call to check for call compatibility.
12086:
12087: BEGIN
12088:
12089: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12090: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
12091: END IF;
12092:
12093: -- Standard call to check for call compatibility.
12094: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
12154: IF del_cur%ISOPEN THEN
12155: CLOSE del_cur;
12156: END IF;
12157:
12158: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12159: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Unexpected error leaving '||
12160: G_PKG_NAME ||'.'||l_api_name);
12161: END IF;
12162: x_return_status := G_RET_STS_UNEXP_ERROR;
12155: CLOSE del_cur;
12156: END IF;
12157:
12158: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12159: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Unexpected error leaving '||
12160: G_PKG_NAME ||'.'||l_api_name);
12161: END IF;
12162: x_return_status := G_RET_STS_UNEXP_ERROR;
12163: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12199: l_party_name VARCHAR2(360);
12200:
12201: Begin
12202:
12203: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12204: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
12205: END IF;
12206:
12207: l_party_name := NULL;
12200:
12201: Begin
12202:
12203: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12204: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
12205: END IF;
12206:
12207: l_party_name := NULL;
12208: IF p_external_party_id is not null AND p_external_party_role is not null THEN
12216: CLOSE get_party_name;
12217: End If;
12218:
12219: END IF; -- p_external_party_id is not null
12220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12221: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: party name is :'||l_party_name);
12222: END IF;
12223:
12224: RETURN l_party_name;
12217: End If;
12218:
12219: END IF; -- p_external_party_id is not null
12220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12221: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: party name is :'||l_party_name);
12222: END IF;
12223:
12224: RETURN l_party_name;
12225:
12231: IF get_party_name%ISOPEN THEN
12232: CLOSE get_party_name;
12233: END IF;
12234: l_party_name := NULL;
12235: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12236: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Unexpected error leaving '||
12237: G_PKG_NAME ||'.'||l_api_name);
12238: END IF;
12239:
12232: CLOSE get_party_name;
12233: END IF;
12234: l_party_name := NULL;
12235: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12236: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Unexpected error leaving '||
12237: G_PKG_NAME ||'.'||l_api_name);
12238: END IF;
12239:
12240: RETURN l_party_name;
12285: x_errorcode NUMBER;
12286:
12287: BEGIN
12288:
12289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
12292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
12293: END IF;
12286:
12287: BEGIN
12288:
12289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
12292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
12293: END IF;
12294: -- initialize the table type variable
12287: BEGIN
12288:
12289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
12292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
12293: END IF;
12294: -- initialize the table type variable
12295: delIdTab := delIdTabType();
12288:
12289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
12292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
12293: END IF;
12294: -- initialize the table type variable
12295: delIdTab := delIdTabType();
12296:
12398: IF del_cur %ISOPEN THEN
12399: CLOSE del_cur ;
12400: END IF;
12401: IF p_source_doc_type = 'TEMPLATE' THEN
12402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Source doc is template');
12404: END IF;
12405: -- copy from template to template
12406: IF p_target_doc_type = 'TEMPLATE' THEN
12399: CLOSE del_cur ;
12400: END IF;
12401: IF p_source_doc_type = 'TEMPLATE' THEN
12402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Source doc is template');
12404: END IF;
12405: -- copy from template to template
12406: IF p_target_doc_type = 'TEMPLATE' THEN
12407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Source doc is template');
12404: END IF;
12405: -- copy from template to template
12406: IF p_target_doc_type = 'TEMPLATE' THEN
12407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is template');
12409: END IF;
12410:
12411: IF delRecTab.COUNT <> 0 THEN
12404: END IF;
12405: -- copy from template to template
12406: IF p_target_doc_type = 'TEMPLATE' THEN
12407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is template');
12409: END IF;
12410:
12411: IF delRecTab.COUNT <> 0 THEN
12412: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Target doc is template');
12409: END IF;
12410:
12411: IF delRecTab.COUNT <> 0 THEN
12412: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12413: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delRecTab Count :'||to_char(delRecTab.COUNT));
12414: END IF;
12415: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
12416: j := j+1;
12409: END IF;
12410:
12411: IF delRecTab.COUNT <> 0 THEN
12412: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12413: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: delRecTab Count :'||to_char(delRecTab.COUNT));
12414: END IF;
12415: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
12416: j := j+1;
12417: -- extend table type
12419: delIdTab(j).orig_del_id := delRecTab(i).deliverable_id;
12420: delNewTab(j) := delRecTab(i);
12421: select okc_deliverable_id_s.nextval INTO delNewTab(j).deliverable_id from dual;
12422: delIdTab(j).del_id := delNewTab(j).deliverable_id;
12423: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12424: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
12425: END IF;
12426: delNewTab(j).business_document_id := p_target_doc_id;
12427: delNewTab(j).business_document_type := p_target_doc_type;
12420: delNewTab(j) := delRecTab(i);
12421: select okc_deliverable_id_s.nextval INTO delNewTab(j).deliverable_id from dual;
12422: delIdTab(j).del_id := delNewTab(j).deliverable_id;
12423: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12424: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
12425: END IF;
12426: delNewTab(j).business_document_id := p_target_doc_id;
12427: delNewTab(j).business_document_type := p_target_doc_type;
12428: delNewTab(j).business_document_number := p_target_doc_number;
12634: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12636: END IF;
12637: END LOOP;
12638: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12639: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12640: '100: Done Creating Deliverables ');
12641: END IF;
12642: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12636: END IF;
12637: END LOOP;
12638: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12639: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12640: '100: Done Creating Deliverables ');
12641: END IF;
12642: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12643: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12638: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12639: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12640: '100: Done Creating Deliverables ');
12641: END IF;
12642: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12643: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12644: '100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
12645: END IF;
12646:
12639: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12640: '100: Done Creating Deliverables ');
12641: END IF;
12642: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12643: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12644: '100: New Deliverables COUNT :'||to_char(delIdTab.COUNT));
12645: END IF;
12646:
12647: -- copy any existing attachments if allowed
12652: -- check if attachments exists
12653: IF attachment_exists(p_entity_name => G_ENTITY_NAME
12654: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
12655:
12656: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12657: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12658: '100: Copy Deliverable Attachments :'||to_char(delIdTab(i).del_id));
12659: END IF;
12660: -- copy attachments
12653: IF attachment_exists(p_entity_name => G_ENTITY_NAME
12654: ,p_pk1_value => delIdTab(i).orig_del_id) THEN
12655:
12656: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12657: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12658: '100: Copy Deliverable Attachments :'||to_char(delIdTab(i).del_id));
12659: END IF;
12660: -- copy attachments
12661: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
12666: X_to_pk1_value => to_char(delIdTab(i).del_id),
12667: X_CREATED_BY => FND_GLOBAL.User_id,
12668: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
12669: );
12670: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12671: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12672: '100: Done Copy Deliverable Attachments ');
12673: END IF;
12674: END IF;
12667: X_CREATED_BY => FND_GLOBAL.User_id,
12668: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id
12669: );
12670: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12671: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12672: '100: Done Copy Deliverable Attachments ');
12673: END IF;
12674: END IF;
12675: END LOOP;
12684: IF del_cur %ISOPEN THEN
12685: CLOSE del_cur ;
12686: END IF;
12687: x_return_status := l_return_status;
12688: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12689: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12690: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12691: END IF;
12692:
12685: CLOSE del_cur ;
12686: END IF;
12687: x_return_status := l_return_status;
12688: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12689: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12690: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12691: END IF;
12692:
12693:
12695: WHEN OTHERS THEN
12696: IF del_cur %ISOPEN THEN
12697: CLOSE del_cur ;
12698: END IF;
12699: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12700: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision with G_EXC_UNEXPECTED_ERROR');
12701: END IF;
12702: x_return_status := G_RET_STS_UNEXP_ERROR;
12703: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12696: IF del_cur %ISOPEN THEN
12697: CLOSE del_cur ;
12698: END IF;
12699: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12700: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision with G_EXC_UNEXPECTED_ERROR');
12701: END IF;
12702: x_return_status := G_RET_STS_UNEXP_ERROR;
12703: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12704: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
12896: x_errorcode NUMBER;
12897:
12898: BEGIN
12899:
12900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12897:
12898: BEGIN
12899:
12900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
12898: BEGIN
12899:
12900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
12906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_revert_dels: '|| p_revert_dels);
12899:
12900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
12906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_revert_dels: '|| p_revert_dels);
12907: END IF;
12900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
12906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_revert_dels: '|| p_revert_dels);
12907: END IF;
12908:
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
12906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_revert_dels: '|| p_revert_dels);
12907: END IF;
12908:
12909: -- Standard call to check for call compatibility.
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
12906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_revert_dels: '|| p_revert_dels);
12907: END IF;
12908:
12909: -- Standard call to check for call compatibility.
12910: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
12919: -- If the flag p_revert_dels is "N" then this API is called to delete
12920: -- deliverables with business document version of -99
12921: IF (p_revert_dels = 'N') THEN
12922:
12923: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12924: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12925: 'Deleting deliverables with document version equal to -99');
12926: END IF;
12927:
12920: -- deliverables with business document version of -99
12921: IF (p_revert_dels = 'N') THEN
12922:
12923: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12924: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12925: 'Deleting deliverables with document version equal to -99');
12926: END IF;
12927:
12928: delete_deliverables(p_api_version => 1.0,
12945: ELSE
12946: -- If the flag p_revert_dels is not "N" then this API is called to delete
12947: -- the -99 deliverables and then recreate those deliverables using previous
12948: -- business document version's deliverables.
12949: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12950: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12951: 'Getting ids of the deliverables with document version number equal to -99');
12952: END IF;
12953:
12946: -- If the flag p_revert_dels is not "N" then this API is called to delete
12947: -- the -99 deliverables and then recreate those deliverables using previous
12948: -- business document version's deliverables.
12949: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12950: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12951: 'Getting ids of the deliverables with document version number equal to -99');
12952: END IF;
12953:
12954: OPEN cur_vers_del_csr;
12954: OPEN cur_vers_del_csr;
12955: FETCH cur_vers_del_csr BULK COLLECT INTO cur_vers_del;
12956: CLOSE cur_vers_del_csr;
12957:
12958: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12959: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12960: 'Deleting deliverables with document version equal to -99');
12961: END IF;
12962:
12955: FETCH cur_vers_del_csr BULK COLLECT INTO cur_vers_del;
12956: CLOSE cur_vers_del_csr;
12957:
12958: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12959: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12960: 'Deleting deliverables with document version equal to -99');
12961: END IF;
12962:
12963: delete_deliverables(p_api_version => 1.0,
12976: RAISE OKC_API.G_EXCEPTION_ERROR;
12977: END IF;
12978: --------------------------------------------------------
12979:
12980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12981: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12982: 'Getting deliverables of the previous version');
12983: END IF;
12984:
12977: END IF;
12978: --------------------------------------------------------
12979:
12980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12981: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12982: 'Getting deliverables of the previous version');
12983: END IF;
12984:
12985: OPEN prev_vers_del_csr;
12985: OPEN prev_vers_del_csr;
12986: FETCH prev_vers_del_csr BULK COLLECT INTO prev_vers_del;
12987: CLOSE prev_vers_del_csr;
12988:
12989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12990: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12991: 'prev_vers_del.COUNT ' || prev_vers_del.COUNT);
12992: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12993: 'cur_vers_del.COUNT ' || cur_vers_del.COUNT);
12986: FETCH prev_vers_del_csr BULK COLLECT INTO prev_vers_del;
12987: CLOSE prev_vers_del_csr;
12988:
12989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12990: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12991: 'prev_vers_del.COUNT ' || prev_vers_del.COUNT);
12992: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12993: 'cur_vers_del.COUNT ' || cur_vers_del.COUNT);
12994: END IF;
12988:
12989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12990: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12991: 'prev_vers_del.COUNT ' || prev_vers_del.COUNT);
12992: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
12993: 'cur_vers_del.COUNT ' || cur_vers_del.COUNT);
12994: END IF;
12995:
12996: IF (prev_vers_del.COUNT > 0) THEN
13000: -- business document version. So that the state of the deliverables will
13001: -- be reverted back to that state before creating the new version of the business document
13002: FOR i IN prev_vers_del.FIRST..NVL(prev_vers_del.LAST, -1) LOOP
13003:
13004: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13005: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13006: 'prev_vers_del(' || i || ').original_deliverable_id ' || prev_vers_del(i).original_deliverable_id);
13007: END IF;
13008:
13001: -- be reverted back to that state before creating the new version of the business document
13002: FOR i IN prev_vers_del.FIRST..NVL(prev_vers_del.LAST, -1) LOOP
13003:
13004: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13005: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13006: 'prev_vers_del(' || i || ').original_deliverable_id ' || prev_vers_del(i).original_deliverable_id);
13007: END IF;
13008:
13009: -- Iterate through the array of -99 deliverables to get corresponding deliverable id of the
13013: IF (cur_vers_del.COUNT > 0) THEN
13014:
13015: FOR j IN cur_vers_del.FIRST..NVL(cur_vers_del.LAST, -1) LOOP
13016:
13017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13018: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13019: 'cur_vers_del(' || j || ').original_deliverable_id ' || cur_vers_del(j).original_deliverable_id);
13020: END IF;
13021:
13014:
13015: FOR j IN cur_vers_del.FIRST..NVL(cur_vers_del.LAST, -1) LOOP
13016:
13017: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13018: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13019: 'cur_vers_del(' || j || ').original_deliverable_id ' || cur_vers_del(j).original_deliverable_id);
13020: END IF;
13021:
13022: -- Original deliverable id is used to find corresponding deliverable with -99 version of
13023: -- the deliverable in the context
13024: IF (cur_vers_del(j).original_deliverable_id = prev_vers_del(i).original_deliverable_id) THEN
13025: l_deliverable_id := cur_vers_del(j).deliverable_id;
13026:
13027: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13028: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13029: 'l_deliverable_id ' || l_deliverable_id);
13030: END IF;
13031:
13024: IF (cur_vers_del(j).original_deliverable_id = prev_vers_del(i).original_deliverable_id) THEN
13025: l_deliverable_id := cur_vers_del(j).deliverable_id;
13026:
13027: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13028: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13029: 'l_deliverable_id ' || l_deliverable_id);
13030: END IF;
13031:
13032: EXIT;
13047: END IF;
13048: END IF ;
13049: -- Fix for bug 13518546 end
13050:
13051: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13052: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13053: 'Setting default values for some of the columns');
13054: END IF;
13055:
13048: END IF ;
13049: -- Fix for bug 13518546 end
13050:
13051: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13052: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13053: 'Setting default values for some of the columns');
13054: END IF;
13055:
13056: -- Set default value for some of the columns, which are resolved during amendment process
13079:
13080: END IF;
13081:
13082:
13083: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13084: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13085: 'Inserting a Deliverable with deliverable id ' || l_deliverable_id);
13086: END IF;
13087:
13080: END IF;
13081:
13082:
13083: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13084: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13085: 'Inserting a Deliverable with deliverable id ' || l_deliverable_id);
13086: END IF;
13087:
13088: -- Insert a row into okc_deliverables with id of the deleted deliverable
13285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13286: END IF;
13287:
13288:
13289: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13290: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13291: 'Copying attachments from deliverable with id ' || to_char(prev_vers_del(i).deliverable_id) || ' to ' || to_char(l_deliverable_id));
13292: END IF;
13293:
13286: END IF;
13287:
13288:
13289: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13290: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13291: 'Copying attachments from deliverable with id ' || to_char(prev_vers_del(i).deliverable_id) || ' to ' || to_char(l_deliverable_id));
13292: END IF;
13293:
13294: -- Copy attachments from prev version deliverable to current version deliverable
13311: IF (p_prev_del_active = 'N') THEN
13312:
13313: -- Since the deliverables of the current contract are not yet activated
13314: --we can safely delete those deliverables with previous business document version number
13315: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13316: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13317: 'Deliverables of the current contract are not activated yet');
13318: END IF;
13319:
13312:
13313: -- Since the deliverables of the current contract are not yet activated
13314: --we can safely delete those deliverables with previous business document version number
13315: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13316: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13317: 'Deliverables of the current contract are not activated yet');
13318: END IF;
13319:
13320: -- Delete the deliverables created with previous business document version number
13317: 'Deliverables of the current contract are not activated yet');
13318: END IF;
13319:
13320: -- Delete the deliverables created with previous business document version number
13321: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13322: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13323: 'Deleting deliverables with document version equal to' || to_char(p_bus_doc_version - 1));
13324: END IF;
13325:
13318: END IF;
13319:
13320: -- Delete the deliverables created with previous business document version number
13321: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13322: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13323: 'Deleting deliverables with document version equal to' || to_char(p_bus_doc_version - 1));
13324: END IF;
13325:
13326: delete_deliverables(p_api_version => 1.0,
13345: END IF; -- End of (p_revert_dels = 'N')
13346:
13347:
13348:
13349: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13350: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Leaving OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
13351: END IF;
13352:
13353:
13346:
13347:
13348:
13349: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13350: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Leaving OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
13351: END IF;
13352:
13353:
13354: EXCEPTION
13354: EXCEPTION
13355:
13356: WHEN OTHERS THEN
13357:
13358: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13359: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'Leaving OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers with G_EXC_UNEXPECTED_ERROR');
13360: END IF;
13361:
13362: IF prev_vers_del_csr %ISOPEN THEN
13355:
13356: WHEN OTHERS THEN
13357:
13358: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13359: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'Leaving OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers with G_EXC_UNEXPECTED_ERROR');
13360: END IF;
13361:
13362: IF prev_vers_del_csr %ISOPEN THEN
13363: CLOSE prev_vers_del_csr;
13400: l_api_name VARCHAR2(30) :='delete_del_attach_and_history';
13401:
13402: BEGIN
13403:
13404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history'||to_char(p_del_id));
13406: END IF;
13407: -- delete deliverables status history
13408: DELETE FROM okc_del_status_history
13401:
13402: BEGIN
13403:
13404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history'||to_char(p_del_id));
13406: END IF;
13407: -- delete deliverables status history
13408: DELETE FROM okc_del_status_history
13409: WHERE deliverable_id = p_del_id;
13412: p_entity_name => G_ENTITY_NAME
13413: ,p_pk1_value => p_del_id
13414: ,x_result => l_result);
13415: x_return_status := l_result;
13416: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13417: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history');
13418: END IF;
13419:
13420: EXCEPTION
13413: ,p_pk1_value => p_del_id
13414: ,x_result => l_result);
13415: x_return_status := l_result;
13416: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13417: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history');
13418: END IF;
13419:
13420: EXCEPTION
13421: WHEN FND_API.G_EXC_ERROR THEN
13418: END IF;
13419:
13420: EXCEPTION
13421: WHEN FND_API.G_EXC_ERROR THEN
13422: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13423: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_ERROR');
13424: END IF;
13425: x_return_status := G_RET_STS_ERROR;
13426: FND_MSG_PUB.Count_And_Get(
13419:
13420: EXCEPTION
13421: WHEN FND_API.G_EXC_ERROR THEN
13422: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13423: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_ERROR');
13424: END IF;
13425: x_return_status := G_RET_STS_ERROR;
13426: FND_MSG_PUB.Count_And_Get(
13427: p_count => x_msg_count,
13428: p_data => x_msg_data
13429: );
13430:
13431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13432: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13433: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_UNEXPECTED_ERROR');
13434: END IF;
13435: x_return_status := G_RET_STS_UNEXP_ERROR;
13436: FND_MSG_PUB.Count_And_Get(
13429: );
13430:
13431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13432: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13433: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_UNEXPECTED_ERROR');
13434: END IF;
13435: x_return_status := G_RET_STS_UNEXP_ERROR;
13436: FND_MSG_PUB.Count_And_Get(
13437: p_count => x_msg_count,
13438: p_data => x_msg_data
13439: );
13440:
13441: WHEN OTHERS THEN
13442: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13443: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_UNEXPECTED_ERROR');
13444: END IF;
13445: x_return_status := G_RET_STS_UNEXP_ERROR;
13446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13439: );
13440:
13441: WHEN OTHERS THEN
13442: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13443: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_UNEXPECTED_ERROR');
13444: END IF;
13445: x_return_status := G_RET_STS_UNEXP_ERROR;
13446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13447: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
13473: l_main_data_level_id ego_data_level_b.data_level_id%TYPE;
13474:
13475: BEGIN
13476:
13477: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13478: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside copy_deliverable_udas with params source id:'||
13479: p_source_id || ' and target id: ' || p_target_id );
13480: END IF;
13481: from_pk_col_value_pairs := ego_col_name_value_pair_array(ego_col_name_value_pair_obj ('DELIVERABLE_ID',p_source_id));
13474:
13475: BEGIN
13476:
13477: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13478: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside copy_deliverable_udas with params source id:'||
13479: p_source_id || ' and target id: ' || p_target_id );
13480: END IF;
13481: from_pk_col_value_pairs := ego_col_name_value_pair_array(ego_col_name_value_pair_obj ('DELIVERABLE_ID',p_source_id));
13482: to_pk_col_value_pairs := ego_col_name_value_pair_array(ego_col_name_value_pair_obj ('DELIVERABLE_ID',p_target_id));
13500: l_dtlevel_col_value_pairs :=
13501: ego_col_name_value_pair_array (ego_col_name_value_pair_obj ('PK1_VALUE',NULL));
13502:
13503:
13504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'110: Calling ego_user_attrs_data_pvt.copy_user_attrs_data');
13506: END IF;
13507:
13508: ego_user_attrs_data_pvt.copy_user_attrs_data
13501: ego_col_name_value_pair_array (ego_col_name_value_pair_obj ('PK1_VALUE',NULL));
13502:
13503:
13504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'110: Calling ego_user_attrs_data_pvt.copy_user_attrs_data');
13506: END IF;
13507:
13508: ego_user_attrs_data_pvt.copy_user_attrs_data
13509: (p_api_version => 1.0,
13522: x_msg_count => x_msg_count,
13523: x_msg_data => x_msg_data
13524: );
13525:
13526: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'120: Completed ego_user_attrs_data_pvt.copy_user_attrs_data with status'
13528: || x_return_status);
13529: END IF;
13530:
13523: x_msg_data => x_msg_data
13524: );
13525:
13526: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'120: Completed ego_user_attrs_data_pvt.copy_user_attrs_data with status'
13528: || x_return_status);
13529: END IF;
13530:
13531: