62: x_msg_data => x_msg_data,
63: x_msg_count => x_msg_count,
64: x_return_status => x_return_status);
65:
66: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
67: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701a: Finished OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history'||x_return_status);
68: END IF;
69: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
63: x_msg_count => x_msg_count,
64: x_return_status => x_return_status);
65:
66: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
67: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701a: Finished OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history'||x_return_status);
68: END IF;
69: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
71: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
74: END IF;
75:
76: EXCEPTION
77: WHEN FND_API.G_EXC_ERROR THEN
78: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
79: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
80: END IF;
81: x_return_status := G_RET_STS_ERROR;
82: FND_MSG_PUB.Count_And_Get(
75:
76: EXCEPTION
77: WHEN FND_API.G_EXC_ERROR THEN
78: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
79: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
80: END IF;
81: x_return_status := G_RET_STS_ERROR;
82: FND_MSG_PUB.Count_And_Get(
83: p_count => x_msg_count,
84: p_data => x_msg_data
85: );
86:
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
89: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
90: END IF;
91: x_return_status := G_RET_STS_UNEXP_ERROR;
92: FND_MSG_PUB.Count_And_Get(
85: );
86:
87: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
88: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
89: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
90: END IF;
91: x_return_status := G_RET_STS_UNEXP_ERROR;
92: FND_MSG_PUB.Count_And_Get(
93: p_count => x_msg_count,
94: p_data => x_msg_data
95: );
96:
97: WHEN OTHERS THEN
98: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
100: END IF;
101: x_return_status := G_RET_STS_UNEXP_ERROR;
102: 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);
95: );
96:
97: WHEN OTHERS THEN
98: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
100: END IF;
101: x_return_status := G_RET_STS_UNEXP_ERROR;
102: 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);
103: END IF;
149:
150: -- initialize
151: l_del_status := null;
152:
153: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: INTO '||G_PKG_NAME ||'.'||l_api_name);
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: doc id '||p_bus_doc_id);
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: doc type '||p_bus_doc_type);
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: doc version '||p_bus_doc_version);
150: -- initialize
151: l_del_status := null;
152:
153: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: INTO '||G_PKG_NAME ||'.'||l_api_name);
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: doc id '||p_bus_doc_id);
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: doc type '||p_bus_doc_type);
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: doc version '||p_bus_doc_version);
158: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: del id '||p_del_id);
151: l_del_status := null;
152:
153: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: INTO '||G_PKG_NAME ||'.'||l_api_name);
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: doc id '||p_bus_doc_id);
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: doc type '||p_bus_doc_type);
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: doc version '||p_bus_doc_version);
158: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: del id '||p_del_id);
159: END IF;
152:
153: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: INTO '||G_PKG_NAME ||'.'||l_api_name);
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: doc id '||p_bus_doc_id);
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: doc type '||p_bus_doc_type);
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: doc version '||p_bus_doc_version);
158: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: del id '||p_del_id);
159: END IF;
160:
153: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: INTO '||G_PKG_NAME ||'.'||l_api_name);
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: doc id '||p_bus_doc_id);
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: doc type '||p_bus_doc_type);
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: doc version '||p_bus_doc_version);
158: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: del id '||p_del_id);
159: END IF;
160:
161: SELECT deliverable_status into l_del_status
154: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: INTO '||G_PKG_NAME ||'.'||l_api_name);
155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: doc id '||p_bus_doc_id);
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: doc type '||p_bus_doc_type);
157: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: doc version '||p_bus_doc_version);
158: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: del id '||p_del_id);
159: END IF;
160:
161: SELECT deliverable_status into l_del_status
162: FROM okc_deliverables
166: AND recurring_del_parent_id = p_del_id
167: AND rownum = 1;
168:
169: IF l_del_status is not null THEN
170: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Status returning '||l_del_status);
172: END IF;
173:
174: IF l_del_status = 'INACTIVE' THEN
167: AND rownum = 1;
168:
169: IF l_del_status is not null THEN
170: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
171: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Status returning '||l_del_status);
172: END IF;
173:
174: IF l_del_status = 'INACTIVE' THEN
175: return 'INACTIVE';
180: return NULL;
181:
182: EXCEPTION
183: WHEN OTHERS THEN
184: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
185: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
186: END IF;
187: Okc_Api.Set_Message(G_APP_NAME,
188: 'OKC_DEL_ERR_CHK_INSTS_STS');
181:
182: EXCEPTION
183: WHEN OTHERS THEN
184: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
185: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
186: END IF;
187: Okc_Api.Set_Message(G_APP_NAME,
188: 'OKC_DEL_ERR_CHK_INSTS_STS');
189: RAISE FND_API.G_EXC_ERROR;
264: del_count := 0;
265: st_hist_count := 0;
266: st_hist_count1 := 0;
267:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Recurr start date'||p_recurr_start_date);
271: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: p_recurr_end_date'||p_recurr_end_date);
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
265: st_hist_count := 0;
266: st_hist_count1 := 0;
267:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Recurr start date'||p_recurr_start_date);
271: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: p_recurr_end_date'||p_recurr_end_date);
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
266: st_hist_count1 := 0;
267:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Recurr start date'||p_recurr_start_date);
271: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: p_recurr_end_date'||p_recurr_end_date);
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
274: END IF;
267:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Recurr start date'||p_recurr_start_date);
271: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: p_recurr_end_date'||p_recurr_end_date);
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
274: END IF;
275:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Recurr start date'||p_recurr_start_date);
271: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: p_recurr_end_date'||p_recurr_end_date);
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
274: END IF;
275:
276: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Recurr start date'||p_recurr_start_date);
271: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: p_recurr_end_date'||p_recurr_end_date);
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
274: END IF;
275:
276: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'501: Calling getRecurringDates');
272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: p_repeat_day_of_month'||p_repeat_day_of_month);
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
274: END IF;
275:
276: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'501: Calling getRecurringDates');
278: END IF;
279: --- Calculate recurring instances
280: OKC_DELIVERABLE_PROCESS_PVT.get_recurring_dates(
273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: p_change_status_to'||p_change_status_to);
274: END IF;
275:
276: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'501: Calling getRecurringDates');
278: END IF;
279: --- Calculate recurring instances
280: OKC_DELIVERABLE_PROCESS_PVT.get_recurring_dates(
281: p_api_version => l_api_version,
288: x_recurr_dates => l_recurring_dates,
289: x_msg_data => l_msg_data,
290: x_msg_count => l_msg_count,
291: x_return_status => l_return_status);
292: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished recurring dates api'||l_return_status);
294: END IF;
295:
296: -- check status
289: x_msg_data => l_msg_data,
290: x_msg_count => l_msg_count,
291: x_return_status => l_return_status);
292: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished recurring dates api'||l_return_status);
294: END IF;
295:
296: -- check status
297: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
299: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
300: RAISE FND_API.G_EXC_ERROR ;
301: END IF;
302:
303: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
304: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'601: Recurr Dates Count'||l_recurring_dates.count);
305: END IF;
306:
307: IF l_recurring_dates.count > 0 THEN
300: RAISE FND_API.G_EXC_ERROR ;
301: END IF;
302:
303: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
304: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'601: Recurr Dates Count'||l_recurring_dates.count);
305: END IF;
306:
307: IF l_recurring_dates.count > 0 THEN
308: --- loop through returned dates
346: IF OKC_DELIVERABLE_PROCESS_PVT.attachment_exists(
347: p_entity_name => G_ENTITY_NAME,
348: p_pk1_value => delRecord.deliverable_id ) THEN
349:
350: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'6011: Call Copy Attachments ');
352: END IF;
353:
354: -- copy attachments
347: p_entity_name => G_ENTITY_NAME,
348: p_pk1_value => delRecord.deliverable_id ) THEN
349:
350: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'6011: Call Copy Attachments ');
352: END IF;
353:
354: -- copy attachments
355: -- bug#3667712 added X_CREATED_BY,X_LAST_UPDATE_LOGIN params
359: X_to_entity_name => G_ENTITY_NAME,
360: X_to_pk1_value => to_char(delInstanceRecTab(j).deliverable_id),
361: X_CREATED_BY => FND_GLOBAL.User_id,
362: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id);
363: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'6012: Done Copy Attachments ');
365: END IF;
366:
367: END IF;
360: X_to_pk1_value => to_char(delInstanceRecTab(j).deliverable_id),
361: X_CREATED_BY => FND_GLOBAL.User_id,
362: X_LAST_UPDATE_LOGIN => Fnd_Global.Login_Id);
363: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'6012: Done Copy Attachments ');
365: END IF;
366:
367: END IF;
368:
383: IF (p_change_status_to is not null) AND (p_change_status_to = 'OPEN') THEN
384:
385: --- change status of this new deliverable and add new status history
386: --- record
387: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'602: Change status of this new deliverable '||delInstanceRecTab(j).deliverable_id);
389: END IF;
390:
391: delInstanceRecTab(j).deliverable_status := p_change_status_to;
384:
385: --- change status of this new deliverable and add new status history
386: --- record
387: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'602: Change status of this new deliverable '||delInstanceRecTab(j).deliverable_id);
389: END IF;
390:
391: delInstanceRecTab(j).deliverable_status := p_change_status_to;
392: delInstanceRecTab(j).manage_yn := 'Y';
390:
391: delInstanceRecTab(j).deliverable_status := p_change_status_to;
392: delInstanceRecTab(j).manage_yn := 'Y';
393:
394: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'607: Set Deliverable status history record to OPEN ');
396: END IF;
397:
398: -- set status history record for OPEN status
391: delInstanceRecTab(j).deliverable_status := p_change_status_to;
392: delInstanceRecTab(j).manage_yn := 'Y';
393:
394: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'607: Set Deliverable status history record to OPEN ');
396: END IF;
397:
398: -- set status history record for OPEN status
399: st_hist_count1 := st_hist_count1+1;
420: delInstanceRecTab(j).last_update_login := Fnd_Global.Login_Id;
421: END LOOP;
422: END IF;
423:
424: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
425: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'603: END of Loop, creating Instances -- count '||delInstanceRecTab.count);
426: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604: Bulk Inserting Instances Records ');
427: END IF;
428: --- bulk insert for deliverable's recurring instances and
421: END LOOP;
422: END IF;
423:
424: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
425: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'603: END of Loop, creating Instances -- count '||delInstanceRecTab.count);
426: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604: Bulk Inserting Instances Records ');
427: END IF;
428: --- bulk insert for deliverable's recurring instances and
429: --- actual due date
422: END IF;
423:
424: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
425: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'603: END of Loop, creating Instances -- count '||delInstanceRecTab.count);
426: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604: Bulk Inserting Instances Records ');
427: END IF;
428: --- bulk insert for deliverable's recurring instances and
429: --- actual due date
430: IF delInstanceRecTab.count > 0 THEN
611: END LOOP;
612:
613: ------------------------------------------------------------------------
614:
615: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
616: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604a: Done Insterting DEL Records');
617: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604b: Now inserting Status history records for INACTIVE');
618: END IF;
619:
612:
613: ------------------------------------------------------------------------
614:
615: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
616: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604a: Done Insterting DEL Records');
617: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604b: Now inserting Status history records for INACTIVE');
618: END IF;
619:
620: IF delStsTab.count > 0 THEN
613: ------------------------------------------------------------------------
614:
615: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
616: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604a: Done Insterting DEL Records');
617: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604b: Now inserting Status history records for INACTIVE');
618: END IF;
619:
620: IF delStsTab.count > 0 THEN
621: --- set status history record to INACTIVE for each deliverable instance
626: x_msg_data => l_msg_data,
627: x_msg_count => l_msg_count,
628: x_return_status => l_return_status);
629:
630: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701a: Finished OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history'||l_return_status);
632: END IF;
633:
634: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
627: x_msg_count => l_msg_count,
628: x_return_status => l_return_status);
629:
630: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701a: Finished OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history'||l_return_status);
632: END IF;
633:
634: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
637: RAISE FND_API.G_EXC_ERROR ;
638: END IF;
639: END IF;
640:
641: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604b: Now inserting Status history records for OPEN');
643: END IF;
644:
645: -- insert status histiry records for OPEN status
638: END IF;
639: END IF;
640:
641: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'604b: Now inserting Status history records for OPEN');
643: END IF;
644:
645: -- insert status histiry records for OPEN status
646: IF delStsTab1.count > 0 THEN
652: x_msg_data => l_msg_data,
653: x_msg_count => l_msg_count,
654: x_return_status => l_return_status);
655:
656: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701a: Finished OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history'||l_return_status);
658: END IF;
659:
660: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
653: x_msg_count => l_msg_count,
654: x_return_status => l_return_status);
655:
656: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701a: Finished OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history'||l_return_status);
658: END IF;
659:
660: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
661: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
663: RAISE FND_API.G_EXC_ERROR ;
664: END IF;
665: END IF;
666:
667: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
668: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'605: Done Insterting Records');
669: END IF;
670:
671: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: END IF;
665: END IF;
666:
667: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
668: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'605: Done Insterting Records');
669: END IF;
670:
671: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'606: Do Status Change, if not NULL '||p_change_status_to);
667: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
668: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'605: Done Insterting Records');
669: END IF;
670:
671: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'606: Do Status Change, if not NULL '||p_change_status_to);
673: END IF;
674:
675: END IF;
668: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'605: Done Insterting Records');
669: END IF;
670:
671: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'606: Do Status Change, if not NULL '||p_change_status_to);
673: END IF;
674:
675: END IF;
676:
675: END IF;
676:
677: EXCEPTION
678: WHEN OTHERS THEN
679: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
680: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
681: END IF;
682: Okc_Api.Set_Message(G_APP_NAME,
683: 'OKC_DEL_ERR_GEN_INSTS');
676:
677: EXCEPTION
678: WHEN OTHERS THEN
679: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
680: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
681: END IF;
682: Okc_Api.Set_Message(G_APP_NAME,
683: 'OKC_DEL_ERR_GEN_INSTS');
684: RAISE FND_API.G_EXC_ERROR;
726: END IF; */
727:
728: EXCEPTION
729: WHEN OTHERS THEN
730: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
732: END IF;
733: Okc_Api.Set_Message(G_APP_NAME,
734: 'OKC_DEL_ERR_EVT_DTLS');
727:
728: EXCEPTION
729: WHEN OTHERS THEN
730: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
731: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
732: END IF;
733: Okc_Api.Set_Message(G_APP_NAME,
734: 'OKC_DEL_ERR_EVT_DTLS');
735: RAISE FND_API.G_EXC_ERROR;
766: l_api_name CONSTANT VARCHAR2(30) := 'activateDeliverables';
767: BEGIN
768:
769: -- start procedure
770: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
771: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
767: BEGIN
768:
769: -- start procedure
770: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
771: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Bus dod event code'||p_event_code);
768:
769: -- start procedure
770: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
771: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Bus dod event code'||p_event_code);
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Bus dod event date'||p_event_date);
769: -- start procedure
770: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
771: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Bus dod event code'||p_event_code);
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Bus dod event date'||p_event_date);
777: END IF;
770: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
771: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Bus dod event code'||p_event_code);
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Bus dod event date'||p_event_date);
777: END IF;
778:
771: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Bus dod event code'||p_event_code);
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Bus dod event date'||p_event_date);
777: END IF;
778:
779: IF p_bus_doc_id = NULL THEN
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Bus dod id'||p_bus_doc_id);
773: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Bus dod type'||p_bus_doc_type);
774: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Bus dod version'||p_bus_doc_version);
775: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Bus dod event code'||p_event_code);
776: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Bus dod event date'||p_event_date);
777: END IF;
778:
779: IF p_bus_doc_id = NULL THEN
780: Okc_Api.Set_Message(G_APP_NAME
820:
821: --- check if sync flag is TRUE
822: IF FND_API.To_Boolean( p_sync_flag ) THEN
823:
824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
825: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Calling '||'syncDeliverables');
826: END IF;
827: --- call deliverables process PVT to sync the deliverables for given version
828: OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables(
821: --- check if sync flag is TRUE
822: IF FND_API.To_Boolean( p_sync_flag ) THEN
823:
824: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
825: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Calling '||'syncDeliverables');
826: END IF;
827: --- call deliverables process PVT to sync the deliverables for given version
828: OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables(
829: p_api_version => l_api_version,
834: x_msg_data => x_msg_data,
835: x_msg_count => x_msg_count,
836: x_return_status => x_return_status);
837:
838: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
839: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701: Finished resolveDeliverables'||x_return_status);
840: END IF;
841:
842: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
835: x_msg_count => x_msg_count,
836: x_return_status => x_return_status);
837:
838: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
839: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'701: Finished resolveDeliverables'||x_return_status);
840: END IF;
841:
842: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
846: END IF;
847:
848: END IF;
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'702: Calling '||'resolveDeliverables');
852: END IF;
853:
854: --- resolve deliverables
847:
848: END IF;
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'702: Calling '||'resolveDeliverables');
852: END IF;
853:
854: --- resolve deliverables
855: resolveDeliverables(
867: x_return_status => x_return_status,
868: p_sync_flag => p_sync_flag,
869: p_sync_recurr_instances_flag => FND_API.G_TRUE);
870:
871: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
872: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'800: Finished resolveDeliverables'||x_return_status);
873: END IF;
874:
875: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
868: p_sync_flag => p_sync_flag,
869: p_sync_recurr_instances_flag => FND_API.G_TRUE);
870:
871: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
872: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'800: Finished resolveDeliverables'||x_return_status);
873: END IF;
874:
875: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
877: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
878: RAISE FND_API.G_EXC_ERROR ;
879: END IF;
880:
881: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'900: Calling '||'OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status');
883: END IF;
884:
885: --- call change_deliverable_status, to change deliverable status from
878: RAISE FND_API.G_EXC_ERROR ;
879: END IF;
880:
881: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'900: Calling '||'OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status');
883: END IF;
884:
885: --- call change_deliverable_status, to change deliverable status from
886: --- INACTIVE to 'OPEN'
898: x_msg_data => x_msg_data,
899: x_msg_count => x_msg_count,
900: x_return_status => x_return_status);
901:
902: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Finished OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status'||x_return_status);
904: END IF;
905:
906: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
899: x_msg_count => x_msg_count,
900: x_return_status => x_return_status);
901:
902: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Finished OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status'||x_return_status);
904: END IF;
905:
906: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
915:
916: -- Standard call to get message count and if count is 1, get message info.
917: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
918:
919: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
920: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1100: Leaving activateDeliverables');
921: END IF;
922:
923: EXCEPTION
916: -- Standard call to get message count and if count is 1, get message info.
917: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
918:
919: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
920: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1100: Leaving activateDeliverables');
921: END IF;
922:
923: EXCEPTION
924: WHEN FND_API.G_EXC_ERROR THEN
921: END IF;
922:
923: EXCEPTION
924: WHEN FND_API.G_EXC_ERROR THEN
925: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1200: Leaving activateDeliverables Unexpected ERROR');
927: END IF;
928: ROLLBACK TO g_activate_del_GRP;
929: x_return_status := G_RET_STS_ERROR ;
922:
923: EXCEPTION
924: WHEN FND_API.G_EXC_ERROR THEN
925: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1200: Leaving activateDeliverables Unexpected ERROR');
927: END IF;
928: ROLLBACK TO g_activate_del_GRP;
929: x_return_status := G_RET_STS_ERROR ;
930: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
929: x_return_status := G_RET_STS_ERROR ;
930: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
931:
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
934: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1300: Leaving activateDeliverables Unexpected ERROR');
935: END IF;
936: ROLLBACK TO g_activate_del_GRP;
937: x_return_status := G_RET_STS_UNEXP_ERROR ;
930: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
931:
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
934: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1300: Leaving activateDeliverables Unexpected ERROR');
935: END IF;
936: ROLLBACK TO g_activate_del_GRP;
937: x_return_status := G_RET_STS_UNEXP_ERROR ;
938: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
937: x_return_status := G_RET_STS_UNEXP_ERROR ;
938: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
939:
940: WHEN OTHERS THEN
941: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
942: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1400: Leaving activateDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
943: END IF;
944: ROLLBACK TO g_activate_del_GRP;
945: x_return_status := G_RET_STS_UNEXP_ERROR ;
938: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
939:
940: WHEN OTHERS THEN
941: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
942: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1400: Leaving activateDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
943: END IF;
944: ROLLBACK TO g_activate_del_GRP;
945: x_return_status := G_RET_STS_UNEXP_ERROR ;
946: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
971: -- initialize
972: l_actual_date := null;
973:
974: -- start procedure
975: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
977: END IF;
978:
979: IF p_event_id is NULL OR p_event_UOM is NULL OR p_event_duration is NULL THEN
972: l_actual_date := null;
973:
974: -- start procedure
975: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
977: END IF;
978:
979: IF p_event_id is NULL OR p_event_UOM is NULL OR p_event_duration is NULL THEN
980:
983: RAISE FND_API.G_EXC_ERROR;
984:
985: END IF;
986:
987: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
988: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Calling getDelEventDetails');
989: END IF;
990:
991: --- get current deliverable's end event details
984:
985: END IF;
986:
987: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
988: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Calling getDelEventDetails');
989: END IF;
990:
991: --- get current deliverable's end event details
992: getDelEventDetails(
994: p_end_event_yn => p_end_event_yn,
995: x_event_name => l_del_event_name,
996: x_before_after => l_del_before_after);
997:
998: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
999: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Finished getDelEventDetails - Event Name'||l_del_event_name);
1000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Finished getDelEventDetails - Before After'||l_del_before_after);
1001: END IF;
1002:
995: x_event_name => l_del_event_name,
996: x_before_after => l_del_before_after);
997:
998: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
999: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Finished getDelEventDetails - Event Name'||l_del_event_name);
1000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Finished getDelEventDetails - Before After'||l_del_before_after);
1001: END IF;
1002:
1003: IF (p_event_code is not NULL AND p_event_code = l_del_event_name) THEN
996: x_before_after => l_del_before_after);
997:
998: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
999: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Finished getDelEventDetails - Event Name'||l_del_event_name);
1000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Finished getDelEventDetails - Before After'||l_del_before_after);
1001: END IF;
1002:
1003: IF (p_event_code is not NULL AND p_event_code = l_del_event_name) THEN
1004: --- Calculate actual date
1023: FOR k IN
1024: p_bus_doc_date_events_tbl.FIRST..p_bus_doc_date_events_tbl.LAST LOOP
1025: IF p_bus_doc_date_events_tbl(k).event_code = l_del_event_name THEN
1026:
1027: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1028: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Event Matched '||l_del_event_name);
1029: END IF;
1030:
1031: --- Calculate actual date
1024: p_bus_doc_date_events_tbl.FIRST..p_bus_doc_date_events_tbl.LAST LOOP
1025: IF p_bus_doc_date_events_tbl(k).event_code = l_del_event_name THEN
1026:
1027: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1028: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Event Matched '||l_del_event_name);
1029: END IF;
1030:
1031: --- Calculate actual date
1032: l_actual_date :=
1044: END IF;
1045: END LOOP;
1046: END IF;
1047:
1048: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Returning Resolved Date as '||l_actual_date);
1050: END IF;
1051: return l_actual_date;
1052: END;
1045: END LOOP;
1046: END IF;
1047:
1048: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Returning Resolved Date as '||l_actual_date);
1050: END IF;
1051: return l_actual_date;
1052: END;
1053:
1163: k := 0;
1164: l_sync_flag := FND_API.G_FALSE;
1165:
1166: -- start procedure
1167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1169: END IF;
1170:
1171: -- Standard Start of API savepoint
1164: l_sync_flag := FND_API.G_FALSE;
1165:
1166: -- start procedure
1167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1169: END IF;
1170:
1171: -- Standard Start of API savepoint
1172: SAVEPOINT g_resolve_del_GRP;
1287: -- commented as this is not supported by 8i PL/SQL Bug#3307941
1288: /*OPEN del_cur;
1289: FETCH del_cur BULK COLLECT INTO delRecTab;*/
1290:
1291: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Got Deliverables -- Count '||delRecTab.count);
1293: END IF;
1294:
1295: IF delRecTab.count > 0 THEN
1288: /*OPEN del_cur;
1289: FETCH del_cur BULK COLLECT INTO delRecTab;*/
1290:
1291: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Got Deliverables -- Count '||delRecTab.count);
1293: END IF;
1294:
1295: IF delRecTab.count > 0 THEN
1296: FOR i IN delRecTab.FIRST..delRecTab.LAST LOOP
1297:
1298: --- if deliverable is not recurring and start due date is FIXED
1299: IF delRecTab(i).FIXED_DUE_DATE_YN = 'Y' THEN
1300:
1301: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1302: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Fixed Due Date Deliverable = '||delRecTab(i).deliverable_id);
1303: END IF;
1304:
1305: --- increment the count
1298: --- if deliverable is not recurring and start due date is FIXED
1299: IF delRecTab(i).FIXED_DUE_DATE_YN = 'Y' THEN
1300:
1301: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1302: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Fixed Due Date Deliverable = '||delRecTab(i).deliverable_id);
1303: END IF;
1304:
1305: --- increment the count
1306: del_count := del_count+1;
1331:
1332: -- if deliverable is recurring
1333: IF delRecTab(i).recurring_yn = 'Y' THEN
1334:
1335: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1336: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Recurring Deliverable = '||delRecTab(i).deliverable_id);
1337: END IF;
1338:
1339: --- check if deliverable has recurring instances already in place
1332: -- if deliverable is recurring
1333: IF delRecTab(i).recurring_yn = 'Y' THEN
1334:
1335: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1336: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Recurring Deliverable = '||delRecTab(i).deliverable_id);
1337: END IF;
1338:
1339: --- check if deliverable has recurring instances already in place
1340: --- for given version of the document
1343: p_bus_doc_type => p_bus_doc_type,
1344: p_bus_doc_version => p_bus_doc_version,
1345: p_del_id => delRecTab(i).deliverable_id);
1346:
1347: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1348: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Recurring Deliverable, Has Instances = '||l_has_instances_yn);
1349: END IF;
1350:
1351: -- unexpected error
1344: p_bus_doc_version => p_bus_doc_version,
1345: p_del_id => delRecTab(i).deliverable_id);
1346:
1347: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1348: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Recurring Deliverable, Has Instances = '||l_has_instances_yn);
1349: END IF;
1350:
1351: -- unexpected error
1352: IF l_has_instances_yn is null THEN
1360:
1361: --- if deliverable has recurring instances
1362: IF l_has_instances_yn = 'Y' THEN
1363:
1364: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1365: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Checking already exploded Recurring Deliverable = '||delRecTab(i).deliverable_id);
1366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Check if deliverable is Amended = '||delRecTab(i).deliverable_id);
1367: END IF;
1368:
1361: --- if deliverable has recurring instances
1362: IF l_has_instances_yn = 'Y' THEN
1363:
1364: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1365: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Checking already exploded Recurring Deliverable = '||delRecTab(i).deliverable_id);
1366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Check if deliverable is Amended = '||delRecTab(i).deliverable_id);
1367: END IF;
1368:
1369: --- check if amendment operation is (R)evised
1362: IF l_has_instances_yn = 'Y' THEN
1363:
1364: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1365: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Checking already exploded Recurring Deliverable = '||delRecTab(i).deliverable_id);
1366: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Check if deliverable is Amended = '||delRecTab(i).deliverable_id);
1367: END IF;
1368:
1369: --- check if amendment operation is (R)evised
1370: /* IF ((delRecTab(i).amendment_operation is not null AND
1371: delRecTab(i).amendment_operation = 'UPDATED') OR
1372: (delRecTab(i).summary_amend_operation_code is not null AND
1373: delRecTab(i).summary_amend_operation_code = 'UPDATED')) THEN */
1374:
1375: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1376: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'106: Recurring Definition = '||delRecTab(i).deliverable_id||' with Amendment Operation as '||delRecTab(i).amendment_operation);
1377: END IF;
1378:
1379: -- fix Bug 3574466: If sync flag is true, generate only the
1372: (delRecTab(i).summary_amend_operation_code is not null AND
1373: delRecTab(i).summary_amend_operation_code = 'UPDATED')) THEN */
1374:
1375: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1376: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'106: Recurring Definition = '||delRecTab(i).deliverable_id||' with Amendment Operation as '||delRecTab(i).amendment_operation);
1377: END IF;
1378:
1379: -- fix Bug 3574466: If sync flag is true, generate only the
1380: -- delta instances.
1386:
1387: --- check if end date is not FIXED, it is relative
1388: IF delRecTab(i).fixed_end_date is null THEN
1389:
1390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'107: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is not Fixed ');
1392: END IF;
1393:
1394: --- initialize recurr end date
1387: --- check if end date is not FIXED, it is relative
1388: IF delRecTab(i).fixed_end_date is null THEN
1389:
1390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'107: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is not Fixed ');
1392: END IF;
1393:
1394: --- initialize recurr end date
1395: l_recurr_end_date := null;
1393:
1394: --- initialize recurr end date
1395: l_recurr_end_date := null;
1396:
1397: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'107: Recurring Definition = '||delRecTab(i).deliverable_id||' Get Event Details ');
1399: END IF;
1400:
1401: -- to resolve relative end date check if due dates table is
1394: --- initialize recurr end date
1395: l_recurr_end_date := null;
1396:
1397: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'107: Recurring Definition = '||delRecTab(i).deliverable_id||' Get Event Details ');
1399: END IF;
1400:
1401: -- to resolve relative end date check if due dates table is
1402: -- not empty
1417: p_event_UOM => delRecTab(i).relative_end_date_uom,
1418: p_event_duration => delRecTab(i).relative_end_date_duration,
1419: p_end_event_yn => 'Y');
1420:
1421: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Recurring end date '||l_recurr_end_date);
1423: END IF;
1424:
1425: ELSE --- get the fixed end date, provided
1418: p_event_duration => delRecTab(i).relative_end_date_duration,
1419: p_end_event_yn => 'Y');
1420:
1421: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Recurring end date '||l_recurr_end_date);
1423: END IF;
1424:
1425: ELSE --- get the fixed end date, provided
1426:
1423: END IF;
1424:
1425: ELSE --- get the fixed end date, provided
1426:
1427: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1428: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is Fixed '||l_recurr_end_date);
1429: END IF;
1430:
1431: l_recurr_end_date := delRecTab(i).fixed_end_date;
1424:
1425: ELSE --- get the fixed end date, provided
1426:
1427: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1428: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is Fixed '||l_recurr_end_date);
1429: END IF;
1430:
1431: l_recurr_end_date := delRecTab(i).fixed_end_date;
1432:
1444: --- greater then new date
1445:
1446: IF TRUNC(l_recurr_end_date) < TRUNC(delRecTab(i).end_event_date) THEN
1447:
1448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New end Date is LESS then OLD End Date '||l_recurr_end_date);
1450: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Hence Delete Remaining Instances '||l_recurr_end_date);
1451: END IF;
1452:
1445:
1446: IF TRUNC(l_recurr_end_date) < TRUNC(delRecTab(i).end_event_date) THEN
1447:
1448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New end Date is LESS then OLD End Date '||l_recurr_end_date);
1450: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Hence Delete Remaining Instances '||l_recurr_end_date);
1451: END IF;
1452:
1453: --- hard Delete old instances from current version
1446: IF TRUNC(l_recurr_end_date) < TRUNC(delRecTab(i).end_event_date) THEN
1447:
1448: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1449: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New end Date is LESS then OLD End Date '||l_recurr_end_date);
1450: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Hence Delete Remaining Instances '||l_recurr_end_date);
1451: END IF;
1452:
1453: --- hard Delete old instances from current version
1454: OPEN get_del_ids_cur(delRecTab(i).deliverable_id, l_recurr_end_date);
1454: OPEN get_del_ids_cur(delRecTab(i).deliverable_id, l_recurr_end_date);
1455: FETCH get_del_ids_cur BULK COLLECT INTO delIds;
1456: CLOSE get_del_ids_cur;
1457:
1458: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '||delIds.count);
1460: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances '||x_return_status);
1461: END IF;
1462:
1455: FETCH get_del_ids_cur BULK COLLECT INTO delIds;
1456: CLOSE get_del_ids_cur;
1457:
1458: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '||delIds.count);
1460: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances '||x_return_status);
1461: END IF;
1462:
1463: -- if there are any deliverable instances to be deleted
1456: CLOSE get_del_ids_cur;
1457:
1458: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1459: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '||delIds.count);
1460: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances '||x_return_status);
1461: END IF;
1462:
1463: -- if there are any deliverable instances to be deleted
1464: IF delIds.count > 0 THEN
1474: x_msg_data => x_msg_data,
1475: x_msg_count => x_msg_count,
1476: x_return_status => x_return_status);
1477:
1478: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1480: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1481: ' Finished delete_del_instances for count '||delIds.count);
1482: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1475: x_msg_count => x_msg_count,
1476: x_return_status => x_return_status);
1477:
1478: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1480: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1481: ' Finished delete_del_instances for count '||delIds.count);
1482: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1483: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1478: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1480: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1481: ' Finished delete_del_instances for count '||delIds.count);
1482: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1483: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1484: ' Finished OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances '
1485: ||x_return_status);
1486: END IF;
1490: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1491: RAISE FND_API.G_EXC_ERROR ;
1492: END IF;
1493:
1494: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1495: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1496: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1497: ' Updating Definition ');
1498: END IF;
1491: RAISE FND_API.G_EXC_ERROR ;
1492: END IF;
1493:
1494: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1495: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1496: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1497: ' Updating Definition ');
1498: END IF;
1499: END IF; -- delIds count > 0
1515: --- and end date as new end date, us the same repeat frequency on
1516: --- the given deliverable and resolve it.
1517: IF TRUNC(l_recurr_end_date) > TRUNC(delRecTab(i).end_event_date) THEN
1518:
1519: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1520: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New end Date is GREATER then OLD End Date '||l_recurr_end_date);
1521: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Hence create new Instances '||l_recurr_end_date);
1522: END IF;
1523:
1516: --- the given deliverable and resolve it.
1517: IF TRUNC(l_recurr_end_date) > TRUNC(delRecTab(i).end_event_date) THEN
1518:
1519: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1520: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New end Date is GREATER then OLD End Date '||l_recurr_end_date);
1521: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Hence create new Instances '||l_recurr_end_date);
1522: END IF;
1523:
1524: --- get the repeat frequency and create new instances
1517: IF TRUNC(l_recurr_end_date) > TRUNC(delRecTab(i).end_event_date) THEN
1518:
1519: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1520: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New end Date is GREATER then OLD End Date '||l_recurr_end_date);
1521: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Hence create new Instances '||l_recurr_end_date);
1522: END IF;
1523:
1524: --- get the repeat frequency and create new instances
1525: l_repeat_day_of_month := getDayOfMonth(
1533: p_bus_doc_id => p_bus_doc_id,
1534: p_bus_doc_type => p_bus_doc_type,
1535: p_bus_doc_version => p_bus_doc_version,
1536: p_del_id => delRecTab(i).deliverable_id);
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,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Got new Status '||l_new_status);
1539: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling generate_del_instances ');
1540: END IF;
1541:
1534: p_bus_doc_type => p_bus_doc_type,
1535: p_bus_doc_version => p_bus_doc_version,
1536: p_del_id => delRecTab(i).deliverable_id);
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,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Got new Status '||l_new_status);
1539: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling generate_del_instances ');
1540: END IF;
1541:
1542: -- generate recurring instances for
1535: p_bus_doc_version => p_bus_doc_version,
1536: p_del_id => delRecTab(i).deliverable_id);
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,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Got new Status '||l_new_status);
1539: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Calling generate_del_instances ');
1540: END IF;
1541:
1542: -- generate recurring instances for
1543: -- given deliverable definition id
1549: p_repeat_day_of_week => l_repeat_day_of_week,
1550: delRecord => delRecTab(i),
1551: p_change_status_to => l_new_status);
1552:
1553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Finished generate_del_instances ');
1555: END IF;
1556: ----- Done Creating new deliverable instances ---
1557:
1550: delRecord => delRecTab(i),
1551: p_change_status_to => l_new_status);
1552:
1553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Finished generate_del_instances ');
1555: END IF;
1556: ----- Done Creating new deliverable instances ---
1557:
1558: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Finished generate_del_instances ');
1555: END IF;
1556: ----- Done Creating new deliverable instances ---
1557:
1558: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1559: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Updating Definition ');
1560: END IF;
1561:
1562: --- increment the count
1555: END IF;
1556: ----- Done Creating new deliverable instances ---
1557:
1558: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1559: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Updating Definition ');
1560: END IF;
1561:
1562: --- increment the count
1563: del_count := del_count+1;
1570: deliverableEndEventDates(del_count) := l_recurr_end_date;
1571: deliverableStartEventDates(del_count) := delRecTab(i).start_event_date;
1572:
1573: END IF; --- New End date is GREATER
1574: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1575: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Finished generate_del_instances ');
1576: END IF;
1577:
1578: ELSE -- if sync flag is NOT true
1571: deliverableStartEventDates(del_count) := delRecTab(i).start_event_date;
1572:
1573: END IF; --- New End date is GREATER
1574: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1575: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Finished generate_del_instances ');
1576: END IF;
1577:
1578: ELSE -- if sync flag is NOT true
1579: -- delete existing instances and re-generate new
1578: ELSE -- if sync flag is NOT true
1579: -- delete existing instances and re-generate new
1580: -- instances
1581:
1582: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1583: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1080: Recurring Definition = '||delRecTab(i).deliverable_id||' As Sync Flag is N, Deleting existing instances ');
1584: END IF;
1585:
1586: --- hard Delete old instances from current version
1579: -- delete existing instances and re-generate new
1580: -- instances
1581:
1582: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1583: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1080: Recurring Definition = '||delRecTab(i).deliverable_id||' As Sync Flag is N, Deleting existing instances ');
1584: END IF;
1585:
1586: --- hard Delete old instances from current version
1587: OPEN get_del_ids_cur2(delRecTab(i).deliverable_id);
1587: OPEN get_del_ids_cur2(delRecTab(i).deliverable_id);
1588: FETCH get_del_ids_cur2 BULK COLLECT INTO delIds;
1589: CLOSE get_del_ids_cur2;
1590:
1591: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1592: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1593: ,'1081: Recurring Definition = '||delRecTab(i).deliverable_id||
1594: ' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '
1595: ||delIds.count);
1588: FETCH get_del_ids_cur2 BULK COLLECT INTO delIds;
1589: CLOSE get_del_ids_cur2;
1590:
1591: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1592: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1593: ,'1081: Recurring Definition = '||delRecTab(i).deliverable_id||
1594: ' Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '
1595: ||delIds.count);
1596: END IF;
1615: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1616: RAISE FND_API.G_EXC_ERROR ;
1617: END IF;
1618:
1619: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1620: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1621: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1622: ' Finished OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '||delIds.count);
1623: END IF;
1616: RAISE FND_API.G_EXC_ERROR ;
1617: END IF;
1618:
1619: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1620: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
1621: ,'108: Recurring Definition = '||delRecTab(i).deliverable_id||
1622: ' Finished OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances for count '||delIds.count);
1623: END IF;
1624: END IF;
1630:
1631: --- recurring deliverable is newly created or instances are deleted
1632: IF l_has_instances_yn ='N' OR generate_new_instances_yn = 'Y' THEN
1633:
1634: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1635: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New Recurring Definition ');
1636: END IF;
1637:
1638: --- get start date, if relative to an event, evaluate it
1631: --- recurring deliverable is newly created or instances are deleted
1632: IF l_has_instances_yn ='N' OR generate_new_instances_yn = 'Y' THEN
1633:
1634: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1635: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' New Recurring Definition ');
1636: END IF;
1637:
1638: --- get start date, if relative to an event, evaluate it
1639: --- check if start event id is populated, if yes evaluate the start
1639: --- check if start event id is populated, if yes evaluate the start
1640: --- date or actual date.
1641: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null THEN
1642:
1643: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Start date is Relative ');
1645: END IF;
1646:
1647: l_recurr_start_date := NULL;
1640: --- date or actual date.
1641: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null THEN
1642:
1643: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Start date is Relative ');
1645: END IF;
1646:
1647: l_recurr_start_date := NULL;
1648:
1657: p_end_event_yn => 'N');
1658:
1659: ELSE --- start date is Fixed
1660:
1661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Start date is fixed '||delRecTab(i).fixed_start_date);
1663: END IF;
1664:
1665: -- start date is FIXED
1658:
1659: ELSE --- start date is Fixed
1660:
1661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Start date is fixed '||delRecTab(i).fixed_start_date);
1663: END IF;
1664:
1665: -- start date is FIXED
1666: l_recurr_start_date := delRecTab(i).fixed_start_date;
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674: END IF; --- Start date resolved
1675:
1676: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Start date is resolved Now resolve End Date');
1678: END IF;
1679:
1680: --- if recurring start date is resolved, only in that case
1673: END IF;
1674: END IF; --- Start date resolved
1675:
1676: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Start date is resolved Now resolve End Date');
1678: END IF;
1679:
1680: --- if recurring start date is resolved, only in that case
1681: --- go further, resolve end date and generate instances
1684: --- get the end date
1685: --- check if end date is fixed
1686: IF delRecTab(i).fixed_end_date is not null THEN
1687:
1688: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1689: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is Fixed'||delRecTab(i).fixed_end_date);
1690: END IF;
1691:
1692: -- recurring end date is FIXED
1685: --- check if end date is fixed
1686: IF delRecTab(i).fixed_end_date is not null THEN
1687:
1688: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1689: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is Fixed'||delRecTab(i).fixed_end_date);
1690: END IF;
1691:
1692: -- recurring end date is FIXED
1693: l_recurr_end_date := delRecTab(i).fixed_end_date;
1696:
1697: --- initialize
1698: l_recurr_end_date := NULL;
1699:
1700: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1701: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is Relative');
1702: END IF;
1703:
1704: --- resolve relative end date
1697: --- initialize
1698: l_recurr_end_date := NULL;
1699:
1700: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1701: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' End Date is Relative');
1702: END IF;
1703:
1704: --- resolve relative end date
1705: l_recurr_end_date := resolveRelativeDueEvents(
1718: 'OKC_DEL_END_DT_NOT_FOUND');
1719: RAISE FND_API.G_EXC_ERROR;
1720: END IF;
1721:
1722: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1723: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Get Recurring Frequency ');
1724: END IF;
1725:
1726: l_repeat_day_of_month := getDayOfMonth(
1719: RAISE FND_API.G_EXC_ERROR;
1720: END IF;
1721:
1722: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1723: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Get Recurring Frequency ');
1724: END IF;
1725:
1726: l_repeat_day_of_month := getDayOfMonth(
1727: delRecTab(i).REPEATING_DAY_OF_MONTH);
1734: 'OKC_DEL_RECUR_FRQ_NOT_FOUND');
1735: RAISE FND_API.G_EXC_ERROR;
1736: END IF;
1737:
1738: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1739: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Generate Instances ');
1740: END IF;
1741:
1742: -- generate recurring instances
1735: RAISE FND_API.G_EXC_ERROR;
1736: END IF;
1737:
1738: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1739: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Generate Instances ');
1740: END IF;
1741:
1742: -- generate recurring instances
1743: generate_del_instances(
1748: p_repeat_day_of_week => l_repeat_day_of_week,
1749: delRecord => delRecTab(i),
1750: p_change_status_to => NULL);
1751:
1752: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1753: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Updating definition ');
1754: END IF;
1755:
1756: --- increment the count
1749: delRecord => delRecTab(i),
1750: p_change_status_to => NULL);
1751:
1752: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1753: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'108: Recurring Definition = '||delRecTab(i).deliverable_id||' Updating definition ');
1754: END IF;
1755:
1756: --- increment the count
1757: del_count := del_count+1;
1774: --- date or actual date.
1775: l_actual_date := NULL;
1776: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null THEN
1777:
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,'110:Deliverable is One Time ');
1780: END IF;
1781:
1782: -- check and create status history record for INACTIVE status
1775: l_actual_date := NULL;
1776: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null THEN
1777:
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,'110:Deliverable is One Time ');
1780: END IF;
1781:
1782: -- check and create status history record for INACTIVE status
1783: checkAndCreateStatusHistory(p_deliverable_id => delRecTab(i).deliverable_id,
1800: p_event_id => delRecTab(i).relative_st_date_event_id,
1801: p_event_UOM => delRecTab(i).relative_st_date_uom,
1802: p_event_duration => delRecTab(i).relative_st_date_duration,
1803: p_end_event_yn => 'N');
1804: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1805: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Updating Definition');
1806: END IF;
1807:
1808: --- if actual date is resolved
1801: p_event_UOM => delRecTab(i).relative_st_date_uom,
1802: p_event_duration => delRecTab(i).relative_st_date_duration,
1803: p_end_event_yn => 'N');
1804: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1805: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Updating Definition');
1806: END IF;
1807:
1808: --- if actual date is resolved
1809: IF l_actual_date is not NULL THEN
1823: END IF;
1824: END LOOP;
1825: END IF;
1826:
1827: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1828: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Buld update started');
1829: END IF;
1830:
1831:
1824: END LOOP;
1825: END IF;
1826:
1827: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1828: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Buld update started');
1829: END IF;
1830:
1831:
1832: --- bulk update for deliverables actual due date
1849: IF FND_API.To_Boolean( p_commit ) THEN
1850: COMMIT WORK;
1851: END IF;
1852:
1853: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1854: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving resolveDeliverables');
1855: END IF;
1856:
1857: EXCEPTION
1850: COMMIT WORK;
1851: END IF;
1852:
1853: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1854: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving resolveDeliverables');
1855: END IF;
1856:
1857: EXCEPTION
1858:
1856:
1857: EXCEPTION
1858:
1859: WHEN FND_API.G_EXC_ERROR THEN
1860: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1861: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving resolveDeliverables Unexpected ERROR');
1862: END IF;
1863: IF del_cur %ISOPEN THEN
1864: CLOSE del_cur ;
1857: EXCEPTION
1858:
1859: WHEN FND_API.G_EXC_ERROR THEN
1860: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1861: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving resolveDeliverables Unexpected ERROR');
1862: END IF;
1863: IF del_cur %ISOPEN THEN
1864: CLOSE del_cur ;
1865: END IF;
1871: x_return_status := G_RET_STS_ERROR ;
1872: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1873:
1874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1875: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1876: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving resolveDeliverables Unexpected ERROR');
1877: END IF;
1878: IF del_cur %ISOPEN THEN
1879: CLOSE del_cur ;
1872: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1873:
1874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1875: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1876: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving resolveDeliverables Unexpected ERROR');
1877: END IF;
1878: IF del_cur %ISOPEN THEN
1879: CLOSE del_cur ;
1880: END IF;
1886: x_return_status := G_RET_STS_UNEXP_ERROR ;
1887: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1888:
1889: WHEN OTHERS THEN
1890: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1891: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving resolveDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
1892: END IF;
1893: IF del_cur %ISOPEN THEN
1894: CLOSE del_cur ;
1887: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1888:
1889: WHEN OTHERS THEN
1890: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1891: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving resolveDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
1892: END IF;
1893: IF del_cur %ISOPEN THEN
1894: CLOSE del_cur ;
1895: END IF;
2015: --- selected deliverables are effected, re-resolve due dates and
2016: --- and carry forward statuses
2017:
2018: -- start procedure
2019: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2021: END IF;
2022: -- Standard Start of API savepoint
2023: SAVEPOINT g_update_del_GRP;
2016: --- and carry forward statuses
2017:
2018: -- start procedure
2019: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2021: END IF;
2022: -- Standard Start of API savepoint
2023: SAVEPOINT g_update_del_GRP;
2024:
2133: FETCH del_cur BULK COLLECT INTO delRecTab;*/
2134:
2135:
2136: -- start procedure
2137: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Got Deliverables records --- Count'||delRecTab.count);
2139: END IF;
2140:
2141: IF delRecTab.count > 0 THEN
2134:
2135:
2136: -- start procedure
2137: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2138: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: Got Deliverables records --- Count'||delRecTab.count);
2139: END IF;
2140:
2141: IF delRecTab.count > 0 THEN
2142:
2145: -- if there's no fixed start date, evaluate relative start date
2146: IF delRecTab(i).fixed_start_date is null THEN
2147:
2148: -- start procedure
2149: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2150: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Deliverable = '||delRecTab(i).deliverable_id||' is Not Fixed');
2151: END IF;
2152:
2153: --- initialize start date as NULL
2146: IF delRecTab(i).fixed_start_date is null THEN
2147:
2148: -- start procedure
2149: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2150: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Deliverable = '||delRecTab(i).deliverable_id||' is Not Fixed');
2151: END IF;
2152:
2153: --- initialize start date as NULL
2154: l_actual_date := NULL;
2156: --- if start date is relative, resolve the actual date
2157: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not NULL THEN
2158:
2159: -- start procedure
2160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Deliverable = '||delRecTab(i).deliverable_id||' is Relative ');
2162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Deliverable = '||delRecTab(i).deliverable_id||' Resolve Due Date Event ');
2163: END IF;
2164:
2157: IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not NULL THEN
2158:
2159: -- start procedure
2160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Deliverable = '||delRecTab(i).deliverable_id||' is Relative ');
2162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Deliverable = '||delRecTab(i).deliverable_id||' Resolve Due Date Event ');
2163: END IF;
2164:
2165: --- resolve relative end date
2158:
2159: -- start procedure
2160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'102: Deliverable = '||delRecTab(i).deliverable_id||' is Relative ');
2162: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'103: Deliverable = '||delRecTab(i).deliverable_id||' Resolve Due Date Event ');
2163: END IF;
2164:
2165: --- resolve relative end date
2166: l_actual_date := resolveRelativeDueEvents(
2171: p_event_UOM => delRecTab(i).relative_st_date_uom,
2172: p_event_duration => delRecTab(i).relative_st_date_duration,
2173: p_end_event_yn => 'N');
2174: -- start procedure
2175: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2176: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Deliverable = '||delRecTab(i).deliverable_id||' Got actual date as '||l_actual_date);
2177: END IF;
2178:
2179: --- here if start date is not resolved, means there's not change
2172: p_event_duration => delRecTab(i).relative_st_date_duration,
2173: p_end_event_yn => 'N');
2174: -- start procedure
2175: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2176: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Deliverable = '||delRecTab(i).deliverable_id||' Got actual date as '||l_actual_date);
2177: END IF;
2178:
2179: --- here if start date is not resolved, means there's not change
2180: --- in start event date, so take the old start event date
2180: --- in start event date, so take the old start event date
2181: IF l_actual_date is NULL THEN
2182:
2183: -- start procedure
2184: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2185: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Deliverable = '||delRecTab(i).deliverable_id||' Get Start Event Date '||delRecTab(i).start_event_date);
2186: END IF;
2187:
2188: --- if Fixed start date
2181: IF l_actual_date is NULL THEN
2182:
2183: -- start procedure
2184: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2185: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Deliverable = '||delRecTab(i).deliverable_id||' Get Start Event Date '||delRecTab(i).start_event_date);
2186: END IF;
2187:
2188: --- if Fixed start date
2189: l_actual_date := delRecTab(i).start_event_date;
2196: --- initialize start date as NULL
2197: l_actual_date := NULL;
2198:
2199: -- start procedure
2200: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Deliverable = '||delRecTab(i).deliverable_id||' Setting as START event Date ');
2202: END IF;
2203:
2204: --- if Fixed start date
2197: l_actual_date := NULL;
2198:
2199: -- start procedure
2200: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Deliverable = '||delRecTab(i).deliverable_id||' Setting as START event Date ');
2202: END IF;
2203:
2204: --- if Fixed start date
2205: l_actual_date := delRecTab(i).fixed_start_date;
2208:
2209: --- If deliverable is One Time
2210: IF delRecTab(i).recurring_yn = 'N' THEN
2211:
2212: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2213: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Deliverable = '||delRecTab(i).deliverable_id||' IS one time ');
2214: END IF;
2215:
2216: --- if resolved start date is not null, check if it is different
2209: --- If deliverable is One Time
2210: IF delRecTab(i).recurring_yn = 'N' THEN
2211:
2212: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2213: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Deliverable = '||delRecTab(i).deliverable_id||' IS one time ');
2214: END IF;
2215:
2216: --- if resolved start date is not null, check if it is different
2217: --- from old start date
2216: --- if resolved start date is not null, check if it is different
2217: --- from old start date
2218: IF l_actual_date is not NULL THEN
2219:
2220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Deliverable = '||delRecTab(i).deliverable_id||' Actual date is not NULL '||l_actual_date);
2222: END IF;
2223: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2224: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Deliverable = '||delRecTab(i).deliverable_id||' Event date is '||delRecTab(i).start_event_date);
2217: --- from old start date
2218: IF l_actual_date is not NULL THEN
2219:
2220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Deliverable = '||delRecTab(i).deliverable_id||' Actual date is not NULL '||l_actual_date);
2222: END IF;
2223: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2224: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Deliverable = '||delRecTab(i).deliverable_id||' Event date is '||delRecTab(i).start_event_date);
2225: END IF;
2219:
2220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Deliverable = '||delRecTab(i).deliverable_id||' Actual date is not NULL '||l_actual_date);
2222: END IF;
2223: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2224: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Deliverable = '||delRecTab(i).deliverable_id||' Event date is '||delRecTab(i).start_event_date);
2225: END IF;
2226:
2227: IF TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date) THEN
2220: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2221: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105: Deliverable = '||delRecTab(i).deliverable_id||' Actual date is not NULL '||l_actual_date);
2222: END IF;
2223: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2224: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'105a: Deliverable = '||delRecTab(i).deliverable_id||' Event date is '||delRecTab(i).start_event_date);
2225: END IF;
2226:
2227: IF TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date) THEN
2228:
2225: END IF;
2226:
2227: IF TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date) THEN
2228:
2229: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2230: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'106: Deliverable = '||delRecTab(i).deliverable_id||' Actual date DOES not match existing start event date '||l_actual_date);
2231: END IF;
2232:
2233: --- increment the count
2226:
2227: IF TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date) THEN
2228:
2229: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2230: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'106: Deliverable = '||delRecTab(i).deliverable_id||' Actual date DOES not match existing start event date '||l_actual_date);
2231: END IF;
2232:
2233: --- increment the count
2234: del_count := del_count+1;
2245: END IF; -- if resolved date is not null
2246:
2247: ELSE --- if deliverable is recurring
2248:
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,'108: Deliverable = '||delRecTab(i).deliverable_id||' is Recurring ');
2251: END IF;
2252:
2253: --- check if deliverable has recurring instances already in place
2246:
2247: ELSE --- if deliverable is recurring
2248:
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,'108: Deliverable = '||delRecTab(i).deliverable_id||' is Recurring ');
2251: END IF;
2252:
2253: --- check if deliverable has recurring instances already in place
2254: --- for given version of the document
2257: p_bus_doc_type => p_bus_doc_type,
2258: p_bus_doc_version => p_bus_doc_version,
2259: p_del_id => delRecTab(i).deliverable_id);
2260:
2261: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2262: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Recurring Deliverable, Has Instances = '||l_has_instances_yn);
2263: END IF;
2264:
2265: IF l_has_instances_yn = 'Y' THEN
2258: p_bus_doc_version => p_bus_doc_version,
2259: p_del_id => delRecTab(i).deliverable_id);
2260:
2261: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2262: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'104: Recurring Deliverable, Has Instances = '||l_has_instances_yn);
2263: END IF;
2264:
2265: IF l_has_instances_yn = 'Y' THEN
2266:
2274:
2275: --- Start date is changed, Re-resolve the deliverable completely.
2276: IF (l_actual_date is not NULL) AND (TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date)) THEN
2277:
2278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is changed -- new '||l_actual_date);
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'110: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is changed -- OLD '||delRecTab(i).start_event_date);
2281: END IF;
2282:
2275: --- Start date is changed, Re-resolve the deliverable completely.
2276: IF (l_actual_date is not NULL) AND (TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date)) THEN
2277:
2278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is changed -- new '||l_actual_date);
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'110: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is changed -- OLD '||delRecTab(i).start_event_date);
2281: END IF;
2282:
2283: OPEN get_del_ids_cur1(delRecTab(i).deliverable_id);
2276: IF (l_actual_date is not NULL) AND (TRUNC(l_actual_date) <> TRUNC(delRecTab(i).start_event_date)) THEN
2277:
2278: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2279: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'109: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is changed -- new '||l_actual_date);
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'110: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is changed -- OLD '||delRecTab(i).start_event_date);
2281: END IF;
2282:
2283: OPEN get_del_ids_cur1(delRecTab(i).deliverable_id);
2284: FETCH get_del_ids_cur1 BULK COLLECT INTO delIds;
2283: OPEN get_del_ids_cur1(delRecTab(i).deliverable_id);
2284: FETCH get_del_ids_cur1 BULK COLLECT INTO delIds;
2285: CLOSE get_del_ids_cur1;
2286:
2287: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2288: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'111: Recurring Deliverable = '||delRecTab(i).deliverable_id||' instances to be Deleted Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
2289: END IF;
2290:
2291: IF delIds.count > 0 THEN
2284: FETCH get_del_ids_cur1 BULK COLLECT INTO delIds;
2285: CLOSE get_del_ids_cur1;
2286:
2287: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2288: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'111: Recurring Deliverable = '||delRecTab(i).deliverable_id||' instances to be Deleted Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
2289: END IF;
2290:
2291: IF delIds.count > 0 THEN
2292: --- call delete_del_instances or OKC_DELIVERABLE_PROCESS_PVT
2301: x_msg_data => x_msg_data,
2302: x_msg_count => x_msg_count,
2303: x_return_status => x_return_status);
2304:
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,'112: Recurring Deliverable = '||delRecTab(i).deliverable_id||' FINISHED OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances'||x_return_status);
2307: END IF;
2308: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2302: x_msg_count => x_msg_count,
2303: x_return_status => x_return_status);
2304:
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,'112: Recurring Deliverable = '||delRecTab(i).deliverable_id||' FINISHED OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances'||x_return_status);
2307: END IF;
2308: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2310: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2316: --- get end date, either fixed or relative
2317: l_recurr_end_date := null;
2318: IF delRecTab(i).fixed_end_date is not null THEN
2319:
2320: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2321: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'112: Recurring Deliverable = '||delRecTab(i).deliverable_id||' End date is Fixed'||delRecTab(i).fixed_end_date);
2322: END IF;
2323:
2324: --- set the end date as fixed end date
2317: l_recurr_end_date := null;
2318: IF delRecTab(i).fixed_end_date is not null THEN
2319:
2320: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2321: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'112: Recurring Deliverable = '||delRecTab(i).deliverable_id||' End date is Fixed'||delRecTab(i).fixed_end_date);
2322: END IF;
2323:
2324: --- set the end date as fixed end date
2325: l_recurr_end_date := delRecTab(i).fixed_end_date;
2325: l_recurr_end_date := delRecTab(i).fixed_end_date;
2326:
2327: ELSE -- end date is relative
2328:
2329: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Recurring Deliverable = '||delRecTab(i).deliverable_id||' End date is Relative, Resolve end data');
2331: END IF;
2332:
2333: --- resolve relative end date
2326:
2327: ELSE -- end date is relative
2328:
2329: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2330: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'113: Recurring Deliverable = '||delRecTab(i).deliverable_id||' End date is Relative, Resolve end data');
2331: END IF;
2332:
2333: --- resolve relative end date
2334: l_recurr_end_date := resolveRelativeDueEvents(
2339: p_event_UOM => delRecTab(i).relative_end_date_uom,
2340: p_event_duration => delRecTab(i).relative_end_date_duration,
2341: p_end_event_yn => 'Y');
2342:
2343: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2344: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'114: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Resolved End date '||l_recurr_end_date);
2345: END IF;
2346:
2347: END IF;
2340: p_event_duration => delRecTab(i).relative_end_date_duration,
2341: p_end_event_yn => 'Y');
2342:
2343: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2344: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'114: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Resolved End date '||l_recurr_end_date);
2345: END IF;
2346:
2347: END IF;
2348:
2345: END IF;
2346:
2347: END IF;
2348:
2349: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Resolved End date '||l_recurr_end_date);
2351: END IF;
2352:
2353: --- if resolved end date comes out to be NULL, take the
2346:
2347: END IF;
2348:
2349: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2350: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Resolved End date '||l_recurr_end_date);
2351: END IF;
2352:
2353: --- if resolved end date comes out to be NULL, take the
2354: --- old end event date
2353: --- if resolved end date comes out to be NULL, take the
2354: --- old end event date
2355: IF l_recurr_end_date is NULL THEN
2356:
2357: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2358: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Getting End Event Date '||delRecTab(i).end_event_date);
2359: END IF;
2360:
2361: --- set the end date as fixed end date
2354: --- old end event date
2355: IF l_recurr_end_date is NULL THEN
2356:
2357: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2358: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'115: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Getting End Event Date '||delRecTab(i).end_event_date);
2359: END IF;
2360:
2361: --- set the end date as fixed end date
2362: l_recurr_end_date := delRecTab(i).end_event_date;
2383: 'OKC_DEL_RECUR_FRQ_NOT_FOUND');
2384: RAISE FND_API.G_EXC_ERROR;
2385: END IF;
2386:
2387: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'116: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Calling generated instances');
2389: END IF;
2390:
2391: -- generate recurring instances
2384: RAISE FND_API.G_EXC_ERROR;
2385: END IF;
2386:
2387: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2388: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'116: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Calling generated instances');
2389: END IF;
2390:
2391: -- generate recurring instances
2392: generate_del_instances(
2397: p_repeat_day_of_week => l_repeat_day_of_week,
2398: delRecord => delRecTab(i),
2399: p_change_status_to => l_new_status);
2400:
2401: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2402: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'117: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Done generating instances');
2403: END IF;
2404:
2405: --- increment the count
2398: delRecord => delRecTab(i),
2399: p_change_status_to => l_new_status);
2400:
2401: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2402: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'117: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Done generating instances');
2403: END IF;
2404:
2405: --- increment the count
2406: del_count := del_count+1;
2414: deliverableEndEventDates(del_count) := l_recurr_end_date;
2415:
2416: ELSE --- if start date is not changed
2417:
2418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'118: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is not changed');
2420: END IF;
2421:
2422: -- initialize recurring end date
2415:
2416: ELSE --- if start date is not changed
2417:
2418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'118: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Start date is not changed');
2420: END IF;
2421:
2422: -- initialize recurring end date
2423: l_recurr_end_date := null;
2425: --- check if end date is not FIXED, if it is Fixed, no more
2426: --- further operation.
2427: IF delRecTab(i).fixed_end_date is null THEN
2428:
2429: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2430: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'119: Recurring Deliverable = '||delRecTab(i).deliverable_id||' End date is relative, resolve end date');
2431: END IF;
2432:
2433: --- resolve relative end date
2426: --- further operation.
2427: IF delRecTab(i).fixed_end_date is null THEN
2428:
2429: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2430: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'119: Recurring Deliverable = '||delRecTab(i).deliverable_id||' End date is relative, resolve end date');
2431: END IF;
2432:
2433: --- resolve relative end date
2434: l_recurr_end_date := resolveRelativeDueEvents(
2439: p_event_UOM => delRecTab(i).relative_end_date_uom,
2440: p_event_duration => delRecTab(i).relative_end_date_duration,
2441: p_end_event_yn => 'Y');
2442:
2443: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2444: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'120: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Resolved end date '||l_recurr_end_date);
2445: END IF;
2446:
2447: ELSE --- get the fixed end date, provided
2440: p_event_duration => delRecTab(i).relative_end_date_duration,
2441: p_end_event_yn => 'Y');
2442:
2443: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2444: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'120: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Resolved end date '||l_recurr_end_date);
2445: END IF;
2446:
2447: ELSE --- get the fixed end date, provided
2448:
2445: END IF;
2446:
2447: ELSE --- get the fixed end date, provided
2448:
2449: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'121: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Take Fixed End date '||delRecTab(i).fixed_end_date);
2451: END IF;
2452:
2453: -- set the fixed end date
2446:
2447: ELSE --- get the fixed end date, provided
2448:
2449: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2450: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'121: Recurring Deliverable = '||delRecTab(i).deliverable_id||' Take Fixed End date '||delRecTab(i).fixed_end_date);
2451: END IF;
2452:
2453: -- set the fixed end date
2454: l_recurr_end_date := delRecTab(i).fixed_end_date;
2461: 'OKC_DEL_END_DT_NOT_FOUND');
2462: RAISE FND_API.G_EXC_ERROR;
2463: END IF; */
2464:
2465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'121a: new end date = '||l_recurr_end_date||' Old end date '||delRecTab(i).end_event_date);
2467: END IF;
2468:
2469: --- check if new date is less then old date
2462: RAISE FND_API.G_EXC_ERROR;
2463: END IF; */
2464:
2465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'121a: new end date = '||l_recurr_end_date||' Old end date '||delRecTab(i).end_event_date);
2467: END IF;
2468:
2469: --- check if new date is less then old date
2470: --- delete instances where actual date is equal to or
2471: --- greater then new date
2472:
2473: IF (l_recurr_end_date is not NULL) AND (TRUNC(l_recurr_end_date) < TRUNC(delRecTab(i).end_event_date)) THEN
2474:
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,'122: Recurring Deliverable = '||delRecTab(i).deliverable_id||'New End Date is less then old end date');
2477: END IF;
2478:
2479: --- hard Delete old instances from current version
2472:
2473: IF (l_recurr_end_date is not NULL) AND (TRUNC(l_recurr_end_date) < TRUNC(delRecTab(i).end_event_date)) THEN
2474:
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,'122: Recurring Deliverable = '||delRecTab(i).deliverable_id||'New End Date is less then old end date');
2477: END IF;
2478:
2479: --- hard Delete old instances from current version
2480: OPEN get_del_ids_cur2(delRecTab(i).deliverable_id, l_recurr_end_date);
2480: OPEN get_del_ids_cur2(delRecTab(i).deliverable_id, l_recurr_end_date);
2481: FETCH get_del_ids_cur2 BULK COLLECT INTO delIds;
2482: CLOSE get_del_ids_cur2;
2483:
2484: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'123: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
2486: END IF;
2487:
2488: IF delIds.count > 0 THEN
2481: FETCH get_del_ids_cur2 BULK COLLECT INTO delIds;
2482: CLOSE get_del_ids_cur2;
2483:
2484: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2485: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'123: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Calling OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
2486: END IF;
2487:
2488: IF delIds.count > 0 THEN
2489: --- call delete_del_instances or OKC_DELIVERABLE_PROCESS_PVT
2498: x_msg_data => x_msg_data,
2499: x_msg_count => x_msg_count,
2500: x_return_status => x_return_status);
2501:
2502: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'124: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Finished OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances'||x_return_status);
2504: END IF;
2505: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2499: x_msg_count => x_msg_count,
2500: x_return_status => x_return_status);
2501:
2502: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'124: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Finished OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances'||x_return_status);
2504: END IF;
2505: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2507: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2529: --- and end date as new end date, us the same repeat frequency on
2530: --- the given deliverable and resolve it.
2531: IF (l_recurr_end_date is not NULL) AND TRUNC(l_recurr_end_date) > TRUNC(delRecTab(i).end_event_date) THEN
2532:
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,'125: Recurring Deliverable = '||delRecTab(i).deliverable_id||'New end date is greater then old end dates');
2535: END IF;
2536:
2537: --- get the repeat frequency and create new instances
2530: --- the given deliverable and resolve it.
2531: IF (l_recurr_end_date is not NULL) AND TRUNC(l_recurr_end_date) > TRUNC(delRecTab(i).end_event_date) THEN
2532:
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,'125: Recurring Deliverable = '||delRecTab(i).deliverable_id||'New end date is greater then old end dates');
2535: END IF;
2536:
2537: --- get the repeat frequency and create new instances
2538: l_repeat_day_of_month := getDayOfMonth(
2546: 'OKC_DEL_RECUR_FRQ_NOT_FOUND');
2547: RAISE FND_API.G_EXC_ERROR;
2548: END IF;
2549:
2550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Calling generate_del_instances');
2552: END IF;
2553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126a: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Setting Status'||l_new_status);
2547: RAISE FND_API.G_EXC_ERROR;
2548: END IF;
2549:
2550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Calling generate_del_instances');
2552: END IF;
2553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126a: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Setting Status'||l_new_status);
2555: END IF;
2549:
2550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Calling generate_del_instances');
2552: END IF;
2553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126a: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Setting Status'||l_new_status);
2555: END IF;
2556:
2557: -- generate delta of recurring instances
2550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Calling generate_del_instances');
2552: END IF;
2553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'126a: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Setting Status'||l_new_status);
2555: END IF;
2556:
2557: -- generate delta of recurring instances
2558: generate_del_instances(
2563: p_repeat_day_of_week => l_repeat_day_of_week,
2564: delRecord => delRecTab(i),
2565: p_change_status_to => l_new_status);
2566:
2567: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'127: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Done generate_del_instances');
2569: END IF;
2570:
2571: --- increment the count
2564: delRecord => delRecTab(i),
2565: p_change_status_to => l_new_status);
2566:
2567: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'127: Recurring Deliverable = '||delRecTab(i).deliverable_id||'Done generate_del_instances');
2569: END IF;
2570:
2571: --- increment the count
2572: del_count := del_count+1;
2587:
2588: END LOOP;
2589: END IF;
2590:
2591: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2592: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'128: Bulk Update Started');
2593: END IF;
2594:
2595: IF deliverableIds.count > 0 THEN
2588: END LOOP;
2589: END IF;
2590:
2591: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2592: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'128: Bulk Update Started');
2593: END IF;
2594:
2595: IF deliverableIds.count > 0 THEN
2596: --- bulk update for deliverables actual due date
2613: IF FND_API.To_Boolean( p_commit ) THEN
2614: COMMIT WORK;
2615: END IF;
2616:
2617: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2618: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateDeliverables');
2619: END IF;
2620:
2621: EXCEPTION
2614: COMMIT WORK;
2615: END IF;
2616:
2617: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2618: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateDeliverables');
2619: END IF;
2620:
2621: EXCEPTION
2622:
2620:
2621: EXCEPTION
2622:
2623: WHEN FND_API.G_EXC_ERROR THEN
2624: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2625: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateDeliverables Unexpected ERROR');
2626: END IF;
2627: IF del_cur %ISOPEN THEN
2628: CLOSE del_cur ;
2621: EXCEPTION
2622:
2623: WHEN FND_API.G_EXC_ERROR THEN
2624: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2625: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateDeliverables Unexpected ERROR');
2626: END IF;
2627: IF del_cur %ISOPEN THEN
2628: CLOSE del_cur ;
2629: END IF;
2638: x_return_status := G_RET_STS_ERROR ;
2639: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2640:
2641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2642: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2643: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateDeliverables Unexpected ERROR');
2644: END IF;
2645: IF del_cur %ISOPEN THEN
2646: CLOSE del_cur ;
2639: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2640:
2641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2642: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2643: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateDeliverables Unexpected ERROR');
2644: END IF;
2645: IF del_cur %ISOPEN THEN
2646: CLOSE del_cur ;
2647: END IF;
2656: x_return_status := G_RET_STS_UNEXP_ERROR ;
2657: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2658:
2659: WHEN OTHERS THEN
2660: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2661: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
2662: END IF;
2663: IF del_cur %ISOPEN THEN
2664: CLOSE del_cur ;
2657: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2658:
2659: WHEN OTHERS THEN
2660: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2661: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
2662: END IF;
2663: IF del_cur %ISOPEN THEN
2664: CLOSE del_cur ;
2665: END IF;
2699:
2700: BEGIN
2701:
2702: -- start procedure
2703: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
2705: END IF;
2706:
2707: -- Standard Start of API savepoint
2700: BEGIN
2701:
2702: -- start procedure
2703: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
2705: END IF;
2706:
2707: -- Standard Start of API savepoint
2708: SAVEPOINT g_enable_del_ntf_GRP;
2728: IF FND_API.To_Boolean( p_commit ) THEN
2729: COMMIT WORK;
2730: END IF;
2731:
2732: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving enableNotifications');
2734: END IF;
2735:
2736: EXCEPTION
2729: COMMIT WORK;
2730: END IF;
2731:
2732: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2733: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving enableNotifications');
2734: END IF;
2735:
2736: EXCEPTION
2737:
2735:
2736: EXCEPTION
2737:
2738: WHEN FND_API.G_EXC_ERROR THEN
2739: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2740: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving enableNotifications Unexpected ERROR');
2741: END IF;
2742: ROLLBACK TO g_enable_del_ntf_GRP;
2743: x_return_status := G_RET_STS_ERROR ;
2736: EXCEPTION
2737:
2738: WHEN FND_API.G_EXC_ERROR THEN
2739: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2740: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving enableNotifications Unexpected ERROR');
2741: END IF;
2742: ROLLBACK TO g_enable_del_ntf_GRP;
2743: x_return_status := G_RET_STS_ERROR ;
2744: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2743: x_return_status := G_RET_STS_ERROR ;
2744: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2745:
2746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2747: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving enableNotifications Unexpected ERROR');
2749: END IF;
2750: ROLLBACK TO g_enable_del_ntf_GRP;
2751: x_return_status := G_RET_STS_UNEXP_ERROR ;
2744: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2745:
2746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2747: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2748: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving enableNotifications Unexpected ERROR');
2749: END IF;
2750: ROLLBACK TO g_enable_del_ntf_GRP;
2751: x_return_status := G_RET_STS_UNEXP_ERROR ;
2752: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2751: x_return_status := G_RET_STS_UNEXP_ERROR ;
2752: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2753:
2754: WHEN OTHERS THEN
2755: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2756: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving enableNotifications because of EXCEPTION: '||substr(sqlerrm,1,200));
2757: END IF;
2758: ROLLBACK TO g_enable_del_ntf_GRP;
2759: x_return_status := G_RET_STS_UNEXP_ERROR ;
2752: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2753:
2754: WHEN OTHERS THEN
2755: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2756: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving enableNotifications because of EXCEPTION: '||substr(sqlerrm,1,200));
2757: END IF;
2758: ROLLBACK TO g_enable_del_ntf_GRP;
2759: x_return_status := G_RET_STS_UNEXP_ERROR ;
2760: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2784:
2785: BEGIN
2786:
2787: -- start procedure
2788: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2789: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
2790: END IF;
2791:
2792: -- Standard Start of API savepoint
2785: BEGIN
2786:
2787: -- start procedure
2788: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2789: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
2790: END IF;
2791:
2792: -- Standard Start of API savepoint
2793: SAVEPOINT g_cancel_del_GRP;
2805: -- Initialize API return status to success
2806: x_return_status := FND_API.G_RET_STS_SUCCESS;
2807:
2808: -- start procedure
2809: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2810: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'change_deliverable_status');
2811: END IF;
2812:
2813: --- call change_deliverable_status, to change deliverable status
2806: x_return_status := FND_API.G_RET_STS_SUCCESS;
2807:
2808: -- start procedure
2809: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2810: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'change_deliverable_status');
2811: END IF;
2812:
2813: --- call change_deliverable_status, to change deliverable status
2814: --- to CANCELLED
2826: x_msg_data => x_msg_data,
2827: x_msg_count => x_msg_count,
2828: x_return_status => x_return_status);
2829:
2830: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2831: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished change_deliverable_status' ||x_return_status);
2832: END IF;
2833:
2834: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2827: x_msg_count => x_msg_count,
2828: x_return_status => x_return_status);
2829:
2830: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2831: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished change_deliverable_status' ||x_return_status);
2832: END IF;
2833:
2834: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2844:
2845: -- Standard call to get message count and if count is 1, get message info.
2846: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2847:
2848: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2849: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving cancelDeliverables');
2850: END IF;
2851:
2852: EXCEPTION
2845: -- Standard call to get message count and if count is 1, get message info.
2846: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2847:
2848: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2849: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving cancelDeliverables');
2850: END IF;
2851:
2852: EXCEPTION
2853:
2851:
2852: EXCEPTION
2853:
2854: WHEN FND_API.G_EXC_ERROR THEN
2855: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2856: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving cancelDeliverables Unexpected ERROR');
2857: END IF;
2858: ROLLBACK TO g_cancel_del_GRP;
2859: x_return_status := G_RET_STS_ERROR ;
2852: EXCEPTION
2853:
2854: WHEN FND_API.G_EXC_ERROR THEN
2855: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2856: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving cancelDeliverables Unexpected ERROR');
2857: END IF;
2858: ROLLBACK TO g_cancel_del_GRP;
2859: x_return_status := G_RET_STS_ERROR ;
2860: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2859: x_return_status := G_RET_STS_ERROR ;
2860: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2861:
2862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2863: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2864: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving cancelDeliverables Unexpected ERROR');
2865: END IF;
2866: ROLLBACK TO g_cancel_del_GRP;
2867: x_return_status := G_RET_STS_UNEXP_ERROR ;
2860: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2861:
2862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2863: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2864: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving cancelDeliverables Unexpected ERROR');
2865: END IF;
2866: ROLLBACK TO g_cancel_del_GRP;
2867: x_return_status := G_RET_STS_UNEXP_ERROR ;
2868: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2867: x_return_status := G_RET_STS_UNEXP_ERROR ;
2868: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2869:
2870: WHEN OTHERS THEN
2871: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2872: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving cancelDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
2873: END IF;
2874: ROLLBACK TO g_cancel_del_GRP;
2875: x_return_status := G_RET_STS_UNEXP_ERROR ;
2868: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2869:
2870: WHEN OTHERS THEN
2871: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2872: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving cancelDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
2873: END IF;
2874: ROLLBACK TO g_cancel_del_GRP;
2875: x_return_status := G_RET_STS_UNEXP_ERROR ;
2876: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2903:
2904: BEGIN
2905:
2906: -- start procedure
2907: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2908: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
2909: END IF;
2910:
2911: -- Standard Start of API savepoint
2904: BEGIN
2905:
2906: -- start procedure
2907: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2908: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
2909: END IF;
2910:
2911: -- Standard Start of API savepoint
2912: SAVEPOINT g_cancel2_del_GRP;
2924: -- Initialize API return status to success
2925: x_return_status := FND_API.G_RET_STS_SUCCESS;
2926:
2927: -- start procedure
2928: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2929: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'change_deliverable_status');
2930: END IF;
2931:
2932: --- call change_deliverable_status, to change deliverable status
2925: x_return_status := FND_API.G_RET_STS_SUCCESS;
2926:
2927: -- start procedure
2928: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2929: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'change_deliverable_status');
2930: END IF;
2931:
2932: --- call change_deliverable_status, to change deliverable status
2933: --- to CANCELLED
2945: x_msg_data => x_msg_data,
2946: x_msg_count => x_msg_count,
2947: x_return_status => x_return_status);
2948:
2949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished change_deliverable_status' ||x_return_status);
2951: END IF;
2952:
2953: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2946: x_msg_count => x_msg_count,
2947: x_return_status => x_return_status);
2948:
2949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished change_deliverable_status' ||x_return_status);
2951: END IF;
2952:
2953: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2958:
2959: -- Initialize API return status to success
2960: x_return_status := FND_API.G_RET_STS_SUCCESS;
2961:
2962: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2963: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'resolveDeliverables');
2964: END IF;
2965:
2966: --- resolve deliverables
2959: -- Initialize API return status to success
2960: x_return_status := FND_API.G_RET_STS_SUCCESS;
2961:
2962: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2963: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'resolveDeliverables');
2964: END IF;
2965:
2966: --- resolve deliverables
2967: resolveDeliverables(
2978: x_msg_count => x_msg_count,
2979: x_return_status => x_return_status,
2980: p_cancel_flag => G_TRUE);
2981:
2982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished resolveDeliverables' ||x_return_status);
2984: END IF;
2985:
2986: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2979: x_return_status => x_return_status,
2980: p_cancel_flag => G_TRUE);
2981:
2982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished resolveDeliverables' ||x_return_status);
2984: END IF;
2985:
2986: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2991:
2992: -- Initialize API return status to success
2993: x_return_status := FND_API.G_RET_STS_SUCCESS;
2994:
2995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status');
2997: END IF;
2998:
2999: --- call change_deliverable_status, to change deliverable status from
2992: -- Initialize API return status to success
2993: x_return_status := FND_API.G_RET_STS_SUCCESS;
2994:
2995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||'OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status');
2997: END IF;
2998:
2999: --- call change_deliverable_status, to change deliverable status from
3000: --- INACTIVE to 'OPEN'
3012: x_msg_data => x_msg_data,
3013: x_msg_count => x_msg_count,
3014: x_return_status => x_return_status);
3015:
3016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status' ||x_return_status);
3018: END IF;
3019:
3020: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3013: x_msg_count => x_msg_count,
3014: x_return_status => x_return_status);
3015:
3016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status' ||x_return_status);
3018: END IF;
3019:
3020: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3029:
3030: -- Standard call to get message count and if count is 1, get message info.
3031: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3032:
3033: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3034: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving cancelDeliverables');
3035: END IF;
3036:
3037: EXCEPTION
3030: -- Standard call to get message count and if count is 1, get message info.
3031: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3032:
3033: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3034: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving cancelDeliverables');
3035: END IF;
3036:
3037: EXCEPTION
3038:
3036:
3037: EXCEPTION
3038:
3039: WHEN FND_API.G_EXC_ERROR THEN
3040: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving cancelDeliverables Unexpected ERROR');
3042: END IF;
3043: ROLLBACK TO g_cancel2_del_GRP;
3044: x_return_status := G_RET_STS_ERROR ;
3037: EXCEPTION
3038:
3039: WHEN FND_API.G_EXC_ERROR THEN
3040: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3041: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving cancelDeliverables Unexpected ERROR');
3042: END IF;
3043: ROLLBACK TO g_cancel2_del_GRP;
3044: x_return_status := G_RET_STS_ERROR ;
3045: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3045: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3046:
3047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3048:
3049: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3050: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving cancelDeliverables Unexpected ERROR');
3051: END IF;
3052: ROLLBACK TO g_cancel2_del_GRP;
3053: x_return_status := G_RET_STS_UNEXP_ERROR ;
3046:
3047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3048:
3049: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3050: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving cancelDeliverables Unexpected ERROR');
3051: END IF;
3052: ROLLBACK TO g_cancel2_del_GRP;
3053: x_return_status := G_RET_STS_UNEXP_ERROR ;
3054: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3053: x_return_status := G_RET_STS_UNEXP_ERROR ;
3054: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3055:
3056: WHEN OTHERS THEN
3057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving cancelDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3059: END IF;
3060: ROLLBACK TO g_cancel2_del_GRP;
3061: x_return_status := G_RET_STS_UNEXP_ERROR ;
3054: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3055:
3056: WHEN OTHERS THEN
3057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving cancelDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3059: END IF;
3060: ROLLBACK TO g_cancel2_del_GRP;
3061: x_return_status := G_RET_STS_UNEXP_ERROR ;
3062: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3088:
3089: BEGIN
3090:
3091: -- start procedure
3092: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3093: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3094: END IF;
3095:
3096: -- Standard Start of API savepoint
3089: BEGIN
3090:
3091: -- start procedure
3092: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3093: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3094: END IF;
3095:
3096: -- Standard Start of API savepoint
3097: SAVEPOINT g_update_del_GRP;
3125:
3126: -- Standard call to get message count and if count is 1, get message info.
3127: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3128:
3129: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3130: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateDeliverables');
3131: END IF;
3132:
3133: EXCEPTION
3126: -- Standard call to get message count and if count is 1, get message info.
3127: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3128:
3129: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3130: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateDeliverables');
3131: END IF;
3132:
3133: EXCEPTION
3134:
3132:
3133: EXCEPTION
3134:
3135: WHEN FND_API.G_EXC_ERROR THEN
3136: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3137: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateDeliverables Unexpected ERROR');
3138: END IF;
3139: ROLLBACK TO g_update_del_GRP;
3140: x_return_status := G_RET_STS_ERROR ;
3133: EXCEPTION
3134:
3135: WHEN FND_API.G_EXC_ERROR THEN
3136: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3137: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateDeliverables Unexpected ERROR');
3138: END IF;
3139: ROLLBACK TO g_update_del_GRP;
3140: x_return_status := G_RET_STS_ERROR ;
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3140: x_return_status := G_RET_STS_ERROR ;
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3142:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateDeliverables Unexpected ERROR');
3146: END IF;
3147: ROLLBACK TO g_update_del_GRP;
3148: x_return_status := G_RET_STS_UNEXP_ERROR ;
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3142:
3143: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3144: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3145: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateDeliverables Unexpected ERROR');
3146: END IF;
3147: ROLLBACK TO g_update_del_GRP;
3148: x_return_status := G_RET_STS_UNEXP_ERROR ;
3149: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3148: x_return_status := G_RET_STS_UNEXP_ERROR ;
3149: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3150:
3151: WHEN OTHERS THEN
3152: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3153: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3154: END IF;
3155: ROLLBACK TO g_update_del_GRP;
3156: x_return_status := G_RET_STS_UNEXP_ERROR ;
3149: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3150:
3151: WHEN OTHERS THEN
3152: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3153: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3154: END IF;
3155: ROLLBACK TO g_update_del_GRP;
3156: x_return_status := G_RET_STS_UNEXP_ERROR ;
3157: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3191:
3192: BEGIN
3193:
3194: -- start procedure
3195: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3197: END IF;
3198:
3199: -- Standard Start of API savepoint
3192: BEGIN
3193:
3194: -- start procedure
3195: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3196: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3197: END IF;
3198:
3199: -- Standard Start of API savepoint
3200: SAVEPOINT g_update2_del_GRP;
3237:
3238: -- Standard call to get message count and if count is 1, get message info.
3239: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3240:
3241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateBuyerDeliverables');
3243: END IF;
3244:
3245: EXCEPTION
3238: -- Standard call to get message count and if count is 1, get message info.
3239: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3240:
3241: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3242: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateBuyerDeliverables');
3243: END IF;
3244:
3245: EXCEPTION
3246:
3244:
3245: EXCEPTION
3246:
3247: WHEN FND_API.G_EXC_ERROR THEN
3248: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3249: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateBuyerDeliverables Unexpected ERROR');
3250: END IF;
3251: ROLLBACK TO g_update2_del_GRP;
3252: x_return_status := G_RET_STS_ERROR ;
3245: EXCEPTION
3246:
3247: WHEN FND_API.G_EXC_ERROR THEN
3248: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3249: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateBuyerDeliverables Unexpected ERROR');
3250: END IF;
3251: ROLLBACK TO g_update2_del_GRP;
3252: x_return_status := G_RET_STS_ERROR ;
3253: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3253: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3254:
3255:
3256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3257: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3258: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateBuyerDeliverables Unexpected ERROR');
3259: END IF;
3260: ROLLBACK TO g_update2_del_GRP;
3261: x_return_status := G_RET_STS_UNEXP_ERROR ;
3254:
3255:
3256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3257: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3258: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateBuyerDeliverables Unexpected ERROR');
3259: END IF;
3260: ROLLBACK TO g_update2_del_GRP;
3261: x_return_status := G_RET_STS_UNEXP_ERROR ;
3262: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3261: x_return_status := G_RET_STS_UNEXP_ERROR ;
3262: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3263:
3264: WHEN OTHERS THEN
3265: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3266: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateBuyerDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3267: END IF;
3268: ROLLBACK TO g_update2_del_GRP;
3269: x_return_status := G_RET_STS_UNEXP_ERROR ;
3262: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3263:
3264: WHEN OTHERS THEN
3265: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3266: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateBuyerDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3267: END IF;
3268: ROLLBACK TO g_update2_del_GRP;
3269: x_return_status := G_RET_STS_UNEXP_ERROR ;
3270: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3293: l_api_version CONSTANT VARCHAR2(30) := 1;
3294:
3295: BEGIN
3296: -- start procedure
3297: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3298: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3299: END IF;
3300:
3301: -- Standard Start of API savepoint
3294:
3295: BEGIN
3296: -- start procedure
3297: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3298: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3299: END IF;
3300:
3301: -- Standard Start of API savepoint
3302: SAVEPOINT g_disable_del_GRP;
3314: -- Initialize API return status to success
3315: x_return_status := FND_API.G_RET_STS_SUCCESS;
3316:
3317: -- start procedure
3318: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Calling OKC_DELIVERABLE_PROCESS_PVT.disable_deliverables');
3320: END IF;
3321:
3322: --- call change_deliverable_status, to change deliverable status
3315: x_return_status := FND_API.G_RET_STS_SUCCESS;
3316:
3317: -- start procedure
3318: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3319: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Calling OKC_DELIVERABLE_PROCESS_PVT.disable_deliverables');
3320: END IF;
3321:
3322: --- call change_deliverable_status, to change deliverable status
3323: --- to CANCELLED
3330: x_msg_data => x_msg_data,
3331: x_msg_count => x_msg_count,
3332: x_return_status => x_return_status);
3333:
3334: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3335: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished disable_deliverables' ||x_return_status);
3336: END IF;
3337:
3338: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3331: x_msg_count => x_msg_count,
3332: x_return_status => x_return_status);
3333:
3334: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3335: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished disable_deliverables' ||x_return_status);
3336: END IF;
3337:
3338: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3348:
3349: -- Standard call to get message count and if count is 1, get message info.
3350: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3351:
3352: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3353: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Leaving disableDeliverables');
3354: END IF;
3355:
3356: EXCEPTION
3349: -- Standard call to get message count and if count is 1, get message info.
3350: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3351:
3352: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3353: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Leaving disableDeliverables');
3354: END IF;
3355:
3356: EXCEPTION
3357:
3355:
3356: EXCEPTION
3357:
3358: WHEN FND_API.G_EXC_ERROR THEN
3359: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving disableDeliverables Unexpected ERROR');
3361: END IF;
3362: ROLLBACK TO g_disable_del_GRP;
3363: x_return_status := G_RET_STS_ERROR ;
3356: EXCEPTION
3357:
3358: WHEN FND_API.G_EXC_ERROR THEN
3359: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3360: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving disableDeliverables Unexpected ERROR');
3361: END IF;
3362: ROLLBACK TO g_disable_del_GRP;
3363: x_return_status := G_RET_STS_ERROR ;
3364: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3363: x_return_status := G_RET_STS_ERROR ;
3364: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3365:
3366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3367: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3368: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving disableDeliverables Unexpected ERROR');
3369: END IF;
3370: ROLLBACK TO g_disable_del_GRP;
3371: x_return_status := G_RET_STS_UNEXP_ERROR ;
3364: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3365:
3366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3367: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3368: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving disableDeliverables Unexpected ERROR');
3369: END IF;
3370: ROLLBACK TO g_disable_del_GRP;
3371: x_return_status := G_RET_STS_UNEXP_ERROR ;
3372: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3371: x_return_status := G_RET_STS_UNEXP_ERROR ;
3372: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3373:
3374: WHEN OTHERS THEN
3375: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3376: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving disableDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3377: END IF;
3378: ROLLBACK TO g_disable_del_GRP;
3379: x_return_status := G_RET_STS_UNEXP_ERROR ;
3372: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3373:
3374: WHEN OTHERS THEN
3375: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3376: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving disableDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3377: END IF;
3378: ROLLBACK TO g_disable_del_GRP;
3379: x_return_status := G_RET_STS_UNEXP_ERROR ;
3380: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3408:
3409: BEGIN
3410:
3411: -- start procedure
3412: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3413: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3414: END IF;
3415:
3416: -- Standard Start of API savepoint
3409: BEGIN
3410:
3411: -- start procedure
3412: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3413: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3414: END IF;
3415:
3416: -- Standard Start of API savepoint
3417: SAVEPOINT g_update_del_GRP;
3446:
3447: -- Standard call to get message count and if count is 1, get message info.
3448: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3449:
3450: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables');
3452: END IF;
3453:
3454: EXCEPTION
3447: -- Standard call to get message count and if count is 1, get message info.
3448: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3449:
3450: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3451: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables');
3452: END IF;
3453:
3454: EXCEPTION
3455:
3453:
3454: EXCEPTION
3455:
3456: WHEN FND_API.G_EXC_ERROR THEN
3457: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3458: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3459: END IF;
3460: ROLLBACK TO g_update_del_GRP;
3461: x_return_status := G_RET_STS_ERROR ;
3454: EXCEPTION
3455:
3456: WHEN FND_API.G_EXC_ERROR THEN
3457: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3458: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3459: END IF;
3460: ROLLBACK TO g_update_del_GRP;
3461: x_return_status := G_RET_STS_ERROR ;
3462: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3461: x_return_status := G_RET_STS_ERROR ;
3462: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3463:
3464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3465: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3466: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3467: END IF;
3468: ROLLBACK TO g_update_del_GRP;
3469: x_return_status := G_RET_STS_UNEXP_ERROR ;
3462: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3463:
3464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3465: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3466: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3467: END IF;
3468: ROLLBACK TO g_update_del_GRP;
3469: x_return_status := G_RET_STS_UNEXP_ERROR ;
3470: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3469: x_return_status := G_RET_STS_UNEXP_ERROR ;
3470: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3471:
3472: WHEN OTHERS THEN
3473: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3474: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3475: END IF;
3476: ROLLBACK TO g_update_del_GRP;
3477: x_return_status := G_RET_STS_UNEXP_ERROR ;
3470: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3471:
3472: WHEN OTHERS THEN
3473: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3474: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3475: END IF;
3476: ROLLBACK TO g_update_del_GRP;
3477: x_return_status := G_RET_STS_UNEXP_ERROR ;
3478: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3513:
3514: BEGIN
3515:
3516: -- start procedure
3517: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3518: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3519: END IF;
3520:
3521: -- Standard Start of API savepoint
3514: BEGIN
3515:
3516: -- start procedure
3517: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3518: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3519: END IF;
3520:
3521: -- Standard Start of API savepoint
3522: SAVEPOINT g_update2_del_GRP;
3560:
3561: -- Standard call to get message count and if count is 1, get message info.
3562: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3563:
3564: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3565: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables');
3566: END IF;
3567:
3568: EXCEPTION
3561: -- Standard call to get message count and if count is 1, get message info.
3562: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3563:
3564: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3565: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables');
3566: END IF;
3567:
3568: EXCEPTION
3569:
3567:
3568: EXCEPTION
3569:
3570: WHEN FND_API.G_EXC_ERROR THEN
3571: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3572: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3573: END IF;
3574: ROLLBACK TO g_update2_del_GRP;
3575: x_return_status := G_RET_STS_ERROR ;
3568: EXCEPTION
3569:
3570: WHEN FND_API.G_EXC_ERROR THEN
3571: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3572: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3573: END IF;
3574: ROLLBACK TO g_update2_del_GRP;
3575: x_return_status := G_RET_STS_ERROR ;
3576: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3576: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3577:
3578:
3579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3580: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3581: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3582: END IF;
3583: ROLLBACK TO g_update2_del_GRP;
3584: x_return_status := G_RET_STS_UNEXP_ERROR ;
3577:
3578:
3579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3580: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3581: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateIntContactOnDeliverables Unexpected ERROR');
3582: END IF;
3583: ROLLBACK TO g_update2_del_GRP;
3584: x_return_status := G_RET_STS_UNEXP_ERROR ;
3585: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3584: x_return_status := G_RET_STS_UNEXP_ERROR ;
3585: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3586:
3587: WHEN OTHERS THEN
3588: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3589: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3590: END IF;
3591: ROLLBACK TO g_update2_del_GRP;
3592: x_return_status := G_RET_STS_UNEXP_ERROR ;
3585: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3586:
3587: WHEN OTHERS THEN
3588: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3589: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateIntContactOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3590: END IF;
3591: ROLLBACK TO g_update2_del_GRP;
3592: x_return_status := G_RET_STS_UNEXP_ERROR ;
3593: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3619:
3620: BEGIN
3621:
3622: -- start procedure
3623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3625: END IF;
3626:
3627: -- Standard Start of API savepoint
3620: BEGIN
3621:
3622: -- start procedure
3623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3625: END IF;
3626:
3627: -- Standard Start of API savepoint
3628: SAVEPOINT g_update_del_GRP;
3657:
3658: -- Standard call to get message count and if count is 1, get message info.
3659: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3660:
3661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables ');
3663: END IF;
3664:
3665: EXCEPTION
3658: -- Standard call to get message count and if count is 1, get message info.
3659: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3660:
3661: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3662: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables ');
3663: END IF;
3664:
3665: EXCEPTION
3666:
3664:
3665: EXCEPTION
3666:
3667: WHEN FND_API.G_EXC_ERROR THEN
3668: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3669: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3670: END IF;
3671: ROLLBACK TO g_update_del_GRP;
3672: x_return_status := G_RET_STS_ERROR ;
3665: EXCEPTION
3666:
3667: WHEN FND_API.G_EXC_ERROR THEN
3668: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3669: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3670: END IF;
3671: ROLLBACK TO g_update_del_GRP;
3672: x_return_status := G_RET_STS_ERROR ;
3673: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3672: x_return_status := G_RET_STS_ERROR ;
3673: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3674:
3675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3676: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3677: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3678: END IF;
3679: ROLLBACK TO g_update_del_GRP;
3680: x_return_status := G_RET_STS_UNEXP_ERROR ;
3673: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3674:
3675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3676: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3677: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3678: END IF;
3679: ROLLBACK TO g_update_del_GRP;
3680: x_return_status := G_RET_STS_UNEXP_ERROR ;
3681: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3680: x_return_status := G_RET_STS_UNEXP_ERROR ;
3681: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3682:
3683: WHEN OTHERS THEN
3684: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3685: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3686: END IF;
3687: ROLLBACK TO g_update_del_GRP;
3688: x_return_status := G_RET_STS_UNEXP_ERROR ;
3681: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3682:
3683: WHEN OTHERS THEN
3684: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3685: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3686: END IF;
3687: ROLLBACK TO g_update_del_GRP;
3688: x_return_status := G_RET_STS_UNEXP_ERROR ;
3689: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3735:
3736: BEGIN
3737:
3738: -- start procedure
3739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3741: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
3742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
3743: END IF;
3736: BEGIN
3737:
3738: -- start procedure
3739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3741: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
3742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
3743: END IF;
3744:
3737:
3738: -- start procedure
3739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3741: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
3742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
3743: END IF;
3744:
3745: -- Standard Start of API savepoint
3738: -- start procedure
3739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3741: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
3742: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
3743: END IF;
3744:
3745: -- Standard Start of API savepoint
3746: SAVEPOINT g_update_del_GRP;
3798: COMMIT WORK;
3799: END IF;
3800:
3801:
3802: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3803: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables ');
3804: END IF;
3805:
3806: EXCEPTION
3799: END IF;
3800:
3801:
3802: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3803: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables ');
3804: END IF;
3805:
3806: EXCEPTION
3807:
3805:
3806: EXCEPTION
3807:
3808: WHEN FND_API.G_EXC_ERROR THEN
3809: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3810: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3811: END IF;
3812: -- close any open cursors
3813: IF del_cur %ISOPEN THEN
3806: EXCEPTION
3807:
3808: WHEN FND_API.G_EXC_ERROR THEN
3809: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3810: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3811: END IF;
3812: -- close any open cursors
3813: IF del_cur %ISOPEN THEN
3814: CLOSE del_cur ;
3817: x_return_status := G_RET_STS_ERROR ;
3818: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3819:
3820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3821: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3822: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3823: END IF;
3824: ROLLBACK TO g_update_del_GRP;
3825: x_return_status := G_RET_STS_UNEXP_ERROR ;
3818: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3819:
3820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3821: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3822: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving updateExtPartyOnDeliverables Unexpected ERROR');
3823: END IF;
3824: ROLLBACK TO g_update_del_GRP;
3825: x_return_status := G_RET_STS_UNEXP_ERROR ;
3826: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3825: x_return_status := G_RET_STS_UNEXP_ERROR ;
3826: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3827:
3828: WHEN OTHERS THEN
3829: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3830: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3831: END IF;
3832: -- close any open cursors
3833: IF del_cur %ISOPEN THEN
3826: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3827:
3828: WHEN OTHERS THEN
3829: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3830: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving updateExtPartyOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
3831: END IF;
3832: -- close any open cursors
3833: IF del_cur %ISOPEN THEN
3834: CLOSE del_cur ;
3919:
3920: BEGIN
3921:
3922: -- start procedure
3923: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3924: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3925: END IF;
3926:
3927: -- Standard Start of API savepoint
3920: BEGIN
3921:
3922: -- start procedure
3923: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3924: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
3925: END IF;
3926:
3927: -- Standard Start of API savepoint
3928: SAVEPOINT g_createHistory_GRP;
3991: p_parameter_value1 => del_rec.deliverable_id,
3992: p_parameter_name2 => 'MSG_CODE',
3993: p_parameter_value2 => l_msg_Code); exception
3994: when others then
3995: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3996: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving postDelStatusChanges because of EXCEPTION in WF_event.raise2:'||sqlerrm);
3997:
3998: END IF;
3999: raise;
3992: p_parameter_name2 => 'MSG_CODE',
3993: p_parameter_value2 => l_msg_Code); exception
3994: when others then
3995: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3996: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving postDelStatusChanges because of EXCEPTION in WF_event.raise2:'||sqlerrm);
3997:
3998: END IF;
3999: raise;
4000: end;
4015: end if;
4016:
4017: exception
4018: when others then
4019: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4020: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving postDelStatusChanges because of EXCEPTION in OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history:'||x_msg_data);
4021:
4022: END IF;
4023: raise;
4016:
4017: exception
4018: when others then
4019: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4020: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving postDelStatusChanges because of EXCEPTION in OKC_DELIVERABLE_PROCESS_PVT.create_del_status_history:'||x_msg_data);
4021:
4022: END IF;
4023: raise;
4024: end;
4027: COMMIT WORK;
4028: END IF;
4029:
4030:
4031: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4032: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving create history');
4033: END IF;
4034:
4035: EXCEPTION
4028: END IF;
4029:
4030:
4031: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4032: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving create history');
4033: END IF;
4034:
4035: EXCEPTION
4036:
4034:
4035: EXCEPTION
4036:
4037: WHEN FND_API.G_EXC_ERROR THEN
4038: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4039: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving postDelStatusChanges Unexpected ERROR');
4040: END IF;
4041: ROLLBACK TO g_createHistory_GRP;
4042: x_return_status := G_RET_STS_ERROR ;
4035: EXCEPTION
4036:
4037: WHEN FND_API.G_EXC_ERROR THEN
4038: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4039: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving postDelStatusChanges Unexpected ERROR');
4040: END IF;
4041: ROLLBACK TO g_createHistory_GRP;
4042: x_return_status := G_RET_STS_ERROR ;
4043: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4042: x_return_status := G_RET_STS_ERROR ;
4043: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4044:
4045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4046: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4047: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving postDelStatusChanges Unexpected ERROR');
4048: END IF;
4049: ROLLBACK TO g_createHistory_GRP;
4050: x_return_status := G_RET_STS_UNEXP_ERROR ;
4043: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4044:
4045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4046: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4047: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving postDelStatusChanges Unexpected ERROR');
4048: END IF;
4049: ROLLBACK TO g_createHistory_GRP;
4050: x_return_status := G_RET_STS_UNEXP_ERROR ;
4051: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4050: x_return_status := G_RET_STS_UNEXP_ERROR ;
4051: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4052:
4053: WHEN OTHERS THEN
4054: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4055: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving postDelStatusChanges because of EXCEPTION: '||substr(sqlerrm,1,200));
4056: END IF;
4057: ROLLBACK TO g_createHistory_GRP;
4058: x_return_status := G_RET_STS_UNEXP_ERROR ;
4051: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4052:
4053: WHEN OTHERS THEN
4054: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4055: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving postDelStatusChanges because of EXCEPTION: '||substr(sqlerrm,1,200));
4056: END IF;
4057: ROLLBACK TO g_createHistory_GRP;
4058: x_return_status := G_RET_STS_UNEXP_ERROR ;
4059: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4111:
4112:
4113: l_return_value := 'N';
4114:
4115: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4116: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000:Inside '||G_PKG_NAME ||'.'||l_api_name);
4117: END IF;
4118:
4119: -- check if deliverables exist for the given party on a contract.
4112:
4113: l_return_value := 'N';
4114:
4115: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4116: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000:Inside '||G_PKG_NAME ||'.'||l_api_name);
4117: END IF;
4118:
4119: -- check if deliverables exist for the given party on a contract.
4120: OPEN del_cur;
4124: l_return_value := 'Y';
4125:
4126: END IF;
4127: CLOSE del_cur;
4128: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
4130: END IF;
4131:
4132: RETURN(l_return_value);
4125:
4126: END IF;
4127: CLOSE del_cur;
4128: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
4130: END IF;
4131:
4132: RETURN(l_return_value);
4133:
4132: RETURN(l_return_value);
4133:
4134: EXCEPTION
4135: WHEN OTHERS THEN
4136: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4137: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name||' with unexpected error');
4138: END IF;
4139: IF del_cur %ISOPEN THEN
4140: CLOSE del_cur ;
4133:
4134: EXCEPTION
4135: WHEN OTHERS THEN
4136: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4137: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name||' with unexpected error');
4138: END IF;
4139: IF del_cur %ISOPEN THEN
4140: CLOSE del_cur ;
4141: END IF;
4193:
4194:
4195: l_return_value := 'N';
4196:
4197: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4198: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000:Inside '||G_PKG_NAME ||'.'||l_api_name);
4199: END IF;
4200:
4201: -- check if maneagable deliverables exist for the given contract.
4194:
4195: l_return_value := 'N';
4196:
4197: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4198: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000:Inside '||G_PKG_NAME ||'.'||l_api_name);
4199: END IF;
4200:
4201: -- check if maneagable deliverables exist for the given contract.
4202: OPEN del_cur;
4206: l_return_value := 'Y';
4207: END IF;
4208: CLOSE del_cur;
4209: RETURN(l_return_value);
4210: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4211: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
4212: END IF;
4213:
4214: EXCEPTION
4207: END IF;
4208: CLOSE del_cur;
4209: RETURN(l_return_value);
4210: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4211: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
4212: END IF;
4213:
4214: EXCEPTION
4215: WHEN OTHERS THEN
4212: END IF;
4213:
4214: EXCEPTION
4215: WHEN OTHERS THEN
4216: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4217: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name||' with unexpected error');
4218: END IF;
4219: IF del_cur %ISOPEN THEN
4220: CLOSE del_cur ;
4213:
4214: EXCEPTION
4215: WHEN OTHERS THEN
4216: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4217: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name||' with unexpected error');
4218: END IF;
4219: IF del_cur %ISOPEN THEN
4220: CLOSE del_cur ;
4221: END IF;
4276:
4277: BEGIN
4278:
4279: -- start procedure
4280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
4282: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
4283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
4284: END IF;
4277: BEGIN
4278:
4279: -- start procedure
4280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
4282: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
4283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
4284: END IF;
4285:
4278:
4279: -- start procedure
4280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
4282: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
4283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
4284: END IF;
4285:
4286: -- Standard Start of API savepoint
4279: -- start procedure
4280: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4281: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Entered '||G_PKG_NAME ||'.'||l_api_name);
4282: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_from_external_party_id and p_from_external_party_site_id : '||p_from_external_party_site_id ||' and '||p_from_external_party_site_id);
4283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: p_to_external_party_id and p_to_external_party_site_id : '||p_to_external_party_site_id ||' and '||p_to_external_party_site_id);
4284: END IF;
4285:
4286: -- Standard Start of API savepoint
4287: SAVEPOINT g_update_del_GRP;
4327: COMMIT WORK;
4328: END IF;
4329:
4330:
4331: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving mergeExtPartyOnDeliverables ');
4333: END IF;
4334:
4335: EXCEPTION
4328: END IF;
4329:
4330:
4331: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4332: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving mergeExtPartyOnDeliverables ');
4333: END IF;
4334:
4335: EXCEPTION
4336:
4334:
4335: EXCEPTION
4336:
4337: WHEN FND_API.G_EXC_ERROR THEN
4338: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4339: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving mergeExtPartyOnDeliverables Unexpected ERROR');
4340: END IF;
4341: -- close any open cursors
4342: IF del_cur %ISOPEN THEN
4335: EXCEPTION
4336:
4337: WHEN FND_API.G_EXC_ERROR THEN
4338: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4339: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving mergeExtPartyOnDeliverables Unexpected ERROR');
4340: END IF;
4341: -- close any open cursors
4342: IF del_cur %ISOPEN THEN
4343: CLOSE del_cur ;
4346: x_return_status := G_RET_STS_ERROR ;
4347: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4348:
4349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4350: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4351: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving mergeExtPartyOnDeliverables Unexpected ERROR');
4352: END IF;
4353: ROLLBACK TO g_update_del_GRP;
4354: x_return_status := G_RET_STS_UNEXP_ERROR ;
4347: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4348:
4349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4350: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4351: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving mergeExtPartyOnDeliverables Unexpected ERROR');
4352: END IF;
4353: ROLLBACK TO g_update_del_GRP;
4354: x_return_status := G_RET_STS_UNEXP_ERROR ;
4355: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4354: x_return_status := G_RET_STS_UNEXP_ERROR ;
4355: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4356:
4357: WHEN OTHERS THEN
4358: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4359: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving mergeExtPartyOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
4360: END IF;
4361: -- close any open cursors
4362: IF del_cur %ISOPEN THEN
4355: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4356:
4357: WHEN OTHERS THEN
4358: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4359: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving mergeExtPartyOnDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
4360: END IF;
4361: -- close any open cursors
4362: IF del_cur %ISOPEN THEN
4363: CLOSE del_cur ;
4394:
4395: BEGIN
4396:
4397: -- start procedure
4398: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4399: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
4400: END IF;
4401:
4402: -- Standard Start of API savepoint
4395: BEGIN
4396:
4397: -- start procedure
4398: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4399: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
4400: END IF;
4401:
4402: -- Standard Start of API savepoint
4403: SAVEPOINT g_activatecloseout_del_GRP;
4414:
4415: -- Initialize API return status to success
4416: x_return_status := FND_API.G_RET_STS_SUCCESS;
4417:
4418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Calling '||'resolveDeliverables');
4420: END IF;
4421:
4422: --- resolve deliverables
4415: -- Initialize API return status to success
4416: x_return_status := FND_API.G_RET_STS_SUCCESS;
4417:
4418: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4419: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'200: Calling '||'resolveDeliverables');
4420: END IF;
4421:
4422: --- resolve deliverables
4423: resolveDeliverables(
4434: x_msg_count => x_msg_count,
4435: x_return_status => x_return_status,
4436: p_cancel_flag => G_TRUE);
4437:
4438: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished resolveDeliverables' ||x_return_status);
4440: END IF;
4441:
4442: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4435: x_return_status => x_return_status,
4436: p_cancel_flag => G_TRUE);
4437:
4438: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished resolveDeliverables' ||x_return_status);
4440: END IF;
4441:
4442: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4447:
4448: -- Initialize API return status to success
4449: x_return_status := FND_API.G_RET_STS_SUCCESS;
4450:
4451: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4452: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Entered '||'OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status');
4453: END IF;
4454:
4455: --- call change_deliverable_status, to change deliverable status from
4448: -- Initialize API return status to success
4449: x_return_status := FND_API.G_RET_STS_SUCCESS;
4450:
4451: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4452: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'400: Entered '||'OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status');
4453: END IF;
4454:
4455: --- call change_deliverable_status, to change deliverable status from
4456: --- INACTIVE to 'OPEN'
4468: x_msg_data => x_msg_data,
4469: x_msg_count => x_msg_count,
4470: x_return_status => x_return_status);
4471:
4472: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Finished OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status' ||x_return_status);
4474: END IF;
4475:
4476: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4469: x_msg_count => x_msg_count,
4470: x_return_status => x_return_status);
4471:
4472: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4473: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'500: Finished OKC_DELIVERABLE_PROCESS_PVT.change_deliverable_status' ||x_return_status);
4474: END IF;
4475:
4476: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
4477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4485:
4486: -- Standard call to get message count and if count is 1, get message info.
4487: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4488:
4489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving activateCloseoutDeliverables');
4491: END IF;
4492:
4493: EXCEPTION
4486: -- Standard call to get message count and if count is 1, get message info.
4487: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4488:
4489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving activateCloseoutDeliverables');
4491: END IF;
4492:
4493: EXCEPTION
4494:
4492:
4493: EXCEPTION
4494:
4495: WHEN FND_API.G_EXC_ERROR THEN
4496: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4497: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving activateCloseoutDeliverables Unexpected ERROR');
4498: END IF;
4499: ROLLBACK TO g_activatecloseout_del_GRP;
4500: x_return_status := G_RET_STS_ERROR ;
4493: EXCEPTION
4494:
4495: WHEN FND_API.G_EXC_ERROR THEN
4496: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4497: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving activateCloseoutDeliverables Unexpected ERROR');
4498: END IF;
4499: ROLLBACK TO g_activatecloseout_del_GRP;
4500: x_return_status := G_RET_STS_ERROR ;
4501: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4501: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4502:
4503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4504:
4505: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4506: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving activateCloseoutDeliverables Unexpected ERROR');
4507: END IF;
4508: ROLLBACK TO g_activatecloseout_del_GRP;
4509: x_return_status := G_RET_STS_UNEXP_ERROR ;
4502:
4503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4504:
4505: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4506: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving activateCloseoutDeliverables Unexpected ERROR');
4507: END IF;
4508: ROLLBACK TO g_activatecloseout_del_GRP;
4509: x_return_status := G_RET_STS_UNEXP_ERROR ;
4510: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4509: x_return_status := G_RET_STS_UNEXP_ERROR ;
4510: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4511:
4512: WHEN OTHERS THEN
4513: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4514: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving activateCloseoutDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
4515: END IF;
4516: ROLLBACK TO g_activatecloseout_del_GRP;
4517: x_return_status := G_RET_STS_UNEXP_ERROR ;
4510: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4511:
4512: WHEN OTHERS THEN
4513: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4514: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving activateCloseoutDeliverables because of EXCEPTION: '||substr(sqlerrm,1,200));
4515: END IF;
4516: ROLLBACK TO g_activatecloseout_del_GRP;
4517: x_return_status := G_RET_STS_UNEXP_ERROR ;
4518: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4576: l_api_name CONSTANT VARCHAR2(50) := 'applyPaymentHolds';
4577:
4578:
4579: BEGIN
4580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside OKC_MANAGE_DELIVERABLES_GRP.payWhenPaidApplyHolds');
4582: END IF;
4583: x_return_status := l_return_status_false;
4584:
4577:
4578:
4579: BEGIN
4580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside OKC_MANAGE_DELIVERABLES_GRP.payWhenPaidApplyHolds');
4582: END IF;
4583: x_return_status := l_return_status_false;
4584:
4585:
4613: END IF;
4614:
4615: END LOOP;
4616:
4617: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4618: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'leaving OKC_MANAGE_DELIVERABLES_GRP.payWhenPaidApplyHolds');
4619: END IF;
4620:
4621: EXCEPTION
4614:
4615: END LOOP;
4616:
4617: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4618: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'leaving OKC_MANAGE_DELIVERABLES_GRP.payWhenPaidApplyHolds');
4619: END IF;
4620:
4621: EXCEPTION
4622: WHEN OTHERS THEN
4619: END IF;
4620:
4621: EXCEPTION
4622: WHEN OTHERS THEN
4623: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4624: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'leaving OKC_MANAGE_DELIVERABLES_GRP.payWhenPaidApplyHolds in OTHERS');
4625: END IF;
4626: IF getDeliverables %ISOPEN THEN
4627: CLOSE getDeliverables ;
4620:
4621: EXCEPTION
4622: WHEN OTHERS THEN
4623: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4624: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'leaving OKC_MANAGE_DELIVERABLES_GRP.payWhenPaidApplyHolds in OTHERS');
4625: END IF;
4626: IF getDeliverables %ISOPEN THEN
4627: CLOSE getDeliverables ;
4628: END IF;
4675:
4676: BEGIN
4677: l_return_value := G_FALSE;
4678:
4679: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4680: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside '||G_PKG_NAME ||'.'||l_api_name);
4681: END IF;
4682:
4683: OPEN del_cur;
4676: BEGIN
4677: l_return_value := G_FALSE;
4678:
4679: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4680: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Inside '||G_PKG_NAME ||'.'||l_api_name);
4681: END IF;
4682:
4683: OPEN del_cur;
4684: FETCH del_cur INTO del_rec;
4710:
4711: END IF;
4712:
4713: CLOSE del_cur;
4714: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4715: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4716: END IF;
4717:
4718:
4711: END IF;
4712:
4713: CLOSE del_cur;
4714: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4715: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4716: END IF;
4717:
4718:
4719: RETURN(l_return_value);
4719: RETURN(l_return_value);
4720:
4721: EXCEPTION
4722: WHEN OTHERS THEN
4723: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4724: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'leaving OKC_MANAGE_DELIVERABLES_GRP.checkDeliverablePayHold in OTHERS');
4725: END IF;
4726: IF del_cur%ISOPEN THEN
4727: CLOSE del_cur ;
4720:
4721: EXCEPTION
4722: WHEN OTHERS THEN
4723: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4724: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'leaving OKC_MANAGE_DELIVERABLES_GRP.checkDeliverablePayHold in OTHERS');
4725: END IF;
4726: IF del_cur%ISOPEN THEN
4727: CLOSE del_cur ;
4728: END IF;