[Home] [Help]
19:
20: Procedure validate_start_end(p_labor_start_time date,
21: p_labor_end_time date,
22: p_debrief_header_id NUMBER,
23: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
24: X_Return_Status OUT NOCOPY VARCHAR2,
25: X_Msg_Count OUT NOCOPY NUMBER,
26: X_Msg_Data OUT NOCOPY VARCHAR2) IS
27:
37: and jtb.source_object_type_code = 'SR'
38: and cdh.debrief_header_id = p_debrief_header_id;
39:
40: BEGIN
41: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
42: open get_service_request_date;
43: fetch get_service_request_date INTO l_service_request_date;
44: close get_service_request_date;
45:
44: close get_service_request_date;
45:
46: If (p_labor_start_time IS NOT NULL
47: and p_labor_end_time IS NOT NULL
48: and p_labor_start_time <> FND_API.g_miss_date
49: and p_labor_end_time <> FND_API.g_miss_date
50: AND p_labor_start_time > p_labor_end_time) THEN
51: X_Return_Status := FND_API.G_RET_STS_ERROR;
52: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
45:
46: If (p_labor_start_time IS NOT NULL
47: and p_labor_end_time IS NOT NULL
48: and p_labor_start_time <> FND_API.g_miss_date
49: and p_labor_end_time <> FND_API.g_miss_date
50: AND p_labor_start_time > p_labor_end_time) THEN
51: X_Return_Status := FND_API.G_RET_STS_ERROR;
52: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
53: FND_MESSAGE.Set_Name('CSF','CSF_LABOR_START_DATE_ERR');
47: and p_labor_end_time IS NOT NULL
48: and p_labor_start_time <> FND_API.g_miss_date
49: and p_labor_end_time <> FND_API.g_miss_date
50: AND p_labor_start_time > p_labor_end_time) THEN
51: X_Return_Status := FND_API.G_RET_STS_ERROR;
52: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
53: FND_MESSAGE.Set_Name('CSF','CSF_LABOR_START_DATE_ERR');
54: FND_MSG_PUB.ADD;
55: END IF;
54: FND_MSG_PUB.ADD;
55: END IF;
56: END IF;
57: If p_labor_start_time IS NOT NULL
58: and p_labor_start_time <> FND_API.g_miss_date
59: and trunc(fnd_timezones_pvt.adjust_datetime(p_labor_start_time,
60: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
61: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
62: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
61: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
62: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
63: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
64: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
65: X_Return_Status := FND_API.G_RET_STS_ERROR;
66: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
67: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE');
68: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
69: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
74: FND_MSG_PUB.ADD;
75: END IF;
76: END IF;
77: If p_labor_end_time IS NOT NULL
78: and p_labor_end_time <> FND_API.g_miss_date
79: and trunc(fnd_timezones_pvt.adjust_datetime(p_labor_end_time,
80: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
81: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID'))))
82: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
81: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID'))))
82: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
83: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
84: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')))) THEN
85: X_Return_Status := FND_API.G_RET_STS_ERROR;
86: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
87: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE_END');
88: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
89: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
95: END IF;
96: END IF;
97:
98: If (p_labor_start_time IS NOT NULL
99: and p_labor_start_time <> FND_API.g_miss_date
100: and p_labor_start_time < l_service_request_date) THEN
101: X_Return_Status := FND_API.G_RET_STS_ERROR;
102: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
103: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE');
97:
98: If (p_labor_start_time IS NOT NULL
99: and p_labor_start_time <> FND_API.g_miss_date
100: and p_labor_start_time < l_service_request_date) THEN
101: X_Return_Status := FND_API.G_RET_STS_ERROR;
102: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
103: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE');
104: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
105: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
110: FND_MSG_PUB.ADD;
111: END IF;
112: END IF;
113: If (p_labor_end_time IS NOT NULL
114: and p_labor_end_time <> FND_API.g_miss_date
115: and p_labor_end_time < l_service_request_date) THEN
116: X_Return_Status := FND_API.G_RET_STS_ERROR;
117: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
118: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE_END');
112: END IF;
113: If (p_labor_end_time IS NOT NULL
114: and p_labor_end_time <> FND_API.g_miss_date
115: and p_labor_end_time < l_service_request_date) THEN
116: X_Return_Status := FND_API.G_RET_STS_ERROR;
117: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
118: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE_END');
119: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
120: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
128: END;
129:
130: PROCEDURE Create_debrief(
131: P_Api_Version_Number IN NUMBER,
132: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
133: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
134: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
135: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
136: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type
129:
130: PROCEDURE Create_debrief(
131: P_Api_Version_Number IN NUMBER,
132: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
133: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
134: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
135: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
136: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type
137: := G_MISS_DEBRIEF_LINE_tbl,
130: PROCEDURE Create_debrief(
131: P_Api_Version_Number IN NUMBER,
132: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
133: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
134: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
135: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
136: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type
137: := G_MISS_DEBRIEF_LINE_tbl,
138: X_DEBRIEF_HEADER_ID OUT NOCOPY NUMBER,
193:
194: SAVEPOINT CREATE_DEBRIEF_HEADER_PVT;
195: -- Standard call to check for call compatibility.
196:
197: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
198: p_api_version_number,
199: l_api_name,
200: G_PKG_NAME)
201: THEN
198: p_api_version_number,
199: l_api_name,
200: G_PKG_NAME)
201: THEN
202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
203: END IF;
204:
205:
206: -- Initialize message list if p_init_msg_list is set to TRUE.
203: END IF;
204:
205:
206: -- Initialize message list if p_init_msg_list is set to TRUE.
207: IF FND_API.to_Boolean( p_init_msg_list )
208: THEN
209: FND_MSG_PUB.initialize;
210: END IF;
211:
219:
220: END IF;
221:
222: -- Initialize API return status to SUCCESS
223: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
224:
225: --
226: -- API body
227: --
235: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
236: THEN
237: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
238: fnd_msg_pub.add;
239: x_return_status := fnd_api.g_ret_sts_unexp_error;
240: RAISE fnd_api.g_exc_unexpected_error;
241: END IF;
242: end if;
243: -- Invoke validation procedures
236: THEN
237: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
238: fnd_msg_pub.add;
239: x_return_status := fnd_api.g_ret_sts_unexp_error;
240: RAISE fnd_api.g_exc_unexpected_error;
241: END IF;
242: end if;
243: -- Invoke validation procedures
244:
241: END IF;
242: end if;
243: -- Invoke validation procedures
244:
245: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
246:
247: Validate_DEBRIEF_DATE(
248: p_init_msg_list => FND_API.G_FALSE,
249: p_validation_mode => G_CREATE,
244:
245: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
246:
247: Validate_DEBRIEF_DATE(
248: p_init_msg_list => FND_API.G_FALSE,
249: p_validation_mode => G_CREATE,
250: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
250: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
254: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
255: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: RAISE fnd_api.g_exc_unexpected_error;
257: END IF;
258:
251: x_return_status => x_return_status,
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
254: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
255: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: RAISE fnd_api.g_exc_unexpected_error;
257: END IF;
258:
259: Validate_Task_Assignment_Id(
252: x_msg_count => x_msg_count,
253: x_msg_data => x_msg_data);
254: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
255: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: RAISE fnd_api.g_exc_unexpected_error;
257: END IF;
258:
259: Validate_Task_Assignment_Id(
260: p_init_msg_list => FND_API.G_FALSE,
256: RAISE fnd_api.g_exc_unexpected_error;
257: END IF;
258:
259: Validate_Task_Assignment_Id(
260: p_init_msg_list => FND_API.G_FALSE,
261: p_validation_mode => G_CREATE,
262: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
263: x_return_status => x_return_status,
264: x_msg_count => x_msg_count,
262: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
263: x_return_status => x_return_status,
264: x_msg_count => x_msg_count,
265: x_msg_data => x_msg_data);
266: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: x_return_status := fnd_api.g_ret_sts_unexp_error;
268: RAISE fnd_api.g_exc_unexpected_error;
269: END IF;
270: END IF;
263: x_return_status => x_return_status,
264: x_msg_count => x_msg_count,
265: x_msg_data => x_msg_data);
266: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: x_return_status := fnd_api.g_ret_sts_unexp_error;
268: RAISE fnd_api.g_exc_unexpected_error;
269: END IF;
270: END IF;
271: -- Debug Message
264: x_msg_count => x_msg_count,
265: x_msg_data => x_msg_data);
266: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
267: x_return_status := fnd_api.g_ret_sts_unexp_error;
268: RAISE fnd_api.g_exc_unexpected_error;
269: END IF;
270: END IF;
271: -- Debug Message
272: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
281:
282: l_debrief_header_id := p_debrief_rec.debrief_header_id;
283: l_debrief_number := p_debrief_rec.debrief_number;
284:
285: if (l_debrief_header_id<>FND_API.G_MISS_NUM) and (l_debrief_header_id is not NULL) then
286: begin
287: select 1 into x
288: from CSF_DEBRIEF_HEADERS
289: where DEBRIEF_HEADER_ID = l_DEBRIEF_HEADER_ID ;
289: where DEBRIEF_HEADER_ID = l_DEBRIEF_HEADER_ID ;
290:
291: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
292: fnd_msg_pub.add;
293: x_return_status := fnd_api.g_ret_sts_unexp_error;
294: RAISE fnd_api.g_exc_unexpected_error;
295: exception
296: when no_data_found then
297: null ;
290:
291: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
292: fnd_msg_pub.add;
293: x_return_status := fnd_api.g_ret_sts_unexp_error;
294: RAISE fnd_api.g_exc_unexpected_error;
295: exception
296: when no_data_found then
297: null ;
298: when too_many_rows then
297: null ;
298: when too_many_rows then
299: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
300: fnd_msg_pub.add;
301: x_return_status := fnd_api.g_ret_sts_unexp_error;
302: RAISE fnd_api.g_exc_unexpected_error;
303: end ;
304:
305:
298: when too_many_rows then
299: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
300: fnd_msg_pub.add;
301: x_return_status := fnd_api.g_ret_sts_unexp_error;
302: RAISE fnd_api.g_exc_unexpected_error;
303: end ;
304:
305:
306: if (l_debrief_number <>FND_API.G_MISS_CHAR) and (l_debrief_number is not null) then
302: RAISE fnd_api.g_exc_unexpected_error;
303: end ;
304:
305:
306: if (l_debrief_number <>FND_API.G_MISS_CHAR) and (l_debrief_number is not null) then
307: null;
308: else
309: SELECT CSF_DEBRIEF_HEADERS_S2.nextval
310: INTO l_debrief_number
313: ELSE
314: SELECT CSF_DEBRIEF_HEADERS_S1.nextval
315: INTO l_debrief_header_id
316: FROM dual;
317: if (l_debrief_number <>FND_API.G_MISS_CHAR) and (l_debrief_number is not null) then
318: null;
319: else
320: SELECT CSF_DEBRIEF_HEADERS_S2.nextval
321: INTO l_debrief_number
325: X_DEBRIEF_HEADER_ID:=l_debrief_header_id;
326: validate_travel_times(p_debrief_rec.TRAVEL_START_TIME,
327: p_debrief_rec.TRAVEL_END_TIME,
328: p_debrief_rec.task_assignment_id,
329: fnd_api.g_false,
330: X_Return_Status,
331: X_Msg_Count,
332: X_Msg_Data);
333: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
329: fnd_api.g_false,
330: X_Return_Status,
331: X_Msg_Count,
332: X_Msg_Data);
333: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
334: return;
335: END IF;
336:
337: open c_task_assgin_object_version ;
340: l_resource_id;
341: CLOSE c_task_assgin_object_version ;
342:
343: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
344: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
345: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
346: THEN
347: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,2);
348: END IF;
341: CLOSE c_task_assgin_object_version ;
342:
343: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
344: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
345: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
346: THEN
347: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,2);
348: END IF;
349: if (p_debrief_rec.TRAVEL_DISTANCE_IN_KM IS NOT NULL AND p_debrief_rec.TRAVEL_DISTANCE_IN_KM<> FND_API.G_MISS_NUM) THEN
345: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
346: THEN
347: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,2);
348: END IF;
349: if (p_debrief_rec.TRAVEL_DISTANCE_IN_KM IS NOT NULL AND p_debrief_rec.TRAVEL_DISTANCE_IN_KM<> FND_API.G_MISS_NUM) THEN
350: csf_task_assignments_pub.update_task_assignment(
351: p_api_version => 1.0,
352: x_return_status => x_return_status,
353: x_msg_count => x_msg_count,
360: p_resource_type_code => l_resource_type_code,
361: p_resource_id => l_resource_id,
362: x_task_object_version_number => l_task_object_version,
363: x_task_status_id => l_task_status_id);
364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
365: x_return_status := fnd_api.g_ret_sts_unexp_error;
366: RAISE fnd_api.g_exc_unexpected_error;
367: END IF;
368: END IF;
361: p_resource_id => l_resource_id,
362: x_task_object_version_number => l_task_object_version,
363: x_task_status_id => l_task_status_id);
364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
365: x_return_status := fnd_api.g_ret_sts_unexp_error;
366: RAISE fnd_api.g_exc_unexpected_error;
367: END IF;
368: END IF;
369: csf_debrief_headers_pkg.Insert_Row(
362: x_task_object_version_number => l_task_object_version,
363: x_task_status_id => l_task_status_id);
364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
365: x_return_status := fnd_api.g_ret_sts_unexp_error;
366: RAISE fnd_api.g_exc_unexpected_error;
367: END IF;
368: END IF;
369: csf_debrief_headers_pkg.Insert_Row(
370: PX_DEBRIEF_HEADER_ID => l_debrief_header_id,
401:
402: --Virendra Singh 03/28/2000 commented out
403: -- create Interaction 04/06/2000
404: /*CSF_DEBRIEF_PVT.Create_Interaction (P_Api_Version_Number =>1.0,
405: P_Init_Msg_List =>FND_API.G_FALSE,
406: P_Commit =>FND_API.G_FALSE,
407: P_TASK_ASSIGNMENT_ID =>P_DEBRIEF_REC.TASK_ASSIGNMENT_ID,
408: P_DEBRIEF_HEADER_ID =>l_debrief_header_id,
409: P_MEDIA_ID =>29386,
402: --Virendra Singh 03/28/2000 commented out
403: -- create Interaction 04/06/2000
404: /*CSF_DEBRIEF_PVT.Create_Interaction (P_Api_Version_Number =>1.0,
405: P_Init_Msg_List =>FND_API.G_FALSE,
406: P_Commit =>FND_API.G_FALSE,
407: P_TASK_ASSIGNMENT_ID =>P_DEBRIEF_REC.TASK_ASSIGNMENT_ID,
408: P_DEBRIEF_HEADER_ID =>l_debrief_header_id,
409: P_MEDIA_ID =>29386,
410: P_ACTION_ID =>22,
411: X_RETURN_STATUS =>l_return_status,
412: X_Msg_Count =>X_MSG_COUNT,
413: X_Msg_Data =>X_MSG_DATA);
414:
415: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: */
419: open c_source_object_type_code (p_debrief_rec.TASK_ASSIGNMENT_ID);
412: X_Msg_Count =>X_MSG_COUNT,
413: X_Msg_Data =>X_MSG_DATA);
414:
415: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: */
419: open c_source_object_type_code (p_debrief_rec.TASK_ASSIGNMENT_ID);
420: fetch c_source_object_type_code into l_source_object_type_code;
422:
423: IF P_DEBRIEF_LINE_TBL.count > 0 then
424: CSF_DEBRIEF_PVT.Create_debrief_lines(
425: P_Api_Version_Number => 1.0 ,
426: P_Init_Msg_List => FND_API.G_FALSE,
427: P_Commit => FND_API.G_FALSE,
428: P_Upd_tskassgnstatus => NULL,
429: P_Task_Assignment_status => NULL,
430: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
423: IF P_DEBRIEF_LINE_TBL.count > 0 then
424: CSF_DEBRIEF_PVT.Create_debrief_lines(
425: P_Api_Version_Number => 1.0 ,
426: P_Init_Msg_List => FND_API.G_FALSE,
427: P_Commit => FND_API.G_FALSE,
428: P_Upd_tskassgnstatus => NULL,
429: P_Task_Assignment_status => NULL,
430: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
431: P_DEBRIEF_line_tbl => p_DEBRIEF_line_tbl,
426: P_Init_Msg_List => FND_API.G_FALSE,
427: P_Commit => FND_API.G_FALSE,
428: P_Upd_tskassgnstatus => NULL,
429: P_Task_Assignment_status => NULL,
430: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
431: P_DEBRIEF_line_tbl => p_DEBRIEF_line_tbl,
432: P_DEBRIEF_HEADER_ID => l_DEBRIEF_HEADER_ID,
433: P_SOURCE_OBJECT_TYPE_CODE => l_source_object_type_code,
434: X_Return_Status => l_Return_Status,
435: X_Msg_Count => X_Msg_Count,
436: X_Msg_Data => X_Msg_Data
437: );
438:
439: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442: END IF;
443:
436: X_Msg_Data => X_Msg_Data
437: );
438:
439: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442: END IF;
443:
444:
442: END IF;
443:
444:
445: -- Standard check for p_commit
446: IF FND_API.to_Boolean( p_commit )
447: THEN
448: COMMIT WORK;
449: END IF;
450:
456: );
457:
458:
459: EXCEPTION
460: WHEN FND_API.G_EXC_ERROR THEN
461: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: FND_MSG_PUB.Count_And_Get (
464: P_COUNT => X_MSG_COUNT
458:
459: EXCEPTION
460: WHEN FND_API.G_EXC_ERROR THEN
461: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: FND_MSG_PUB.Count_And_Get (
464: P_COUNT => X_MSG_COUNT
465: ,P_DATA => X_MSG_DATA);
466:
463: FND_MSG_PUB.Count_And_Get (
464: P_COUNT => X_MSG_COUNT
465: ,P_DATA => X_MSG_DATA);
466:
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
469:
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: FND_MSG_PUB.Count_And_Get (
466:
467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
468: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
469:
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: FND_MSG_PUB.Count_And_Get (
472: P_COUNT => X_MSG_COUNT
473: ,P_DATA => X_MSG_DATA);
474:
473: ,P_DATA => X_MSG_DATA);
474:
475: WHEN OTHERS THEN
476: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: IF FND_MSG_PUB.Check_Msg_Level
479: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
480: THEN
481: FND_MSG_PUB.Add_Exc_Msg (
492:
493: -----------------------------------------------------------------------------------------------------------
494: PROCEDURE Update_debrief(
495: P_Api_Version_Number IN NUMBER,
496: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
497: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type,
500: X_Return_Status OUT NOCOPY VARCHAR2,
493: -----------------------------------------------------------------------------------------------------------
494: PROCEDURE Update_debrief(
495: P_Api_Version_Number IN NUMBER,
496: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
497: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type,
500: X_Return_Status OUT NOCOPY VARCHAR2,
501: X_Msg_Count OUT NOCOPY NUMBER,
494: PROCEDURE Update_debrief(
495: P_Api_Version_Number IN NUMBER,
496: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
497: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type,
500: X_Return_Status OUT NOCOPY VARCHAR2,
501: X_Msg_Count OUT NOCOPY NUMBER,
502: X_Msg_Data OUT NOCOPY VARCHAR2
541: -- Standard Start of API savepoint
542: SAVEPOINT UPDATE_DEBRIEF_PVT;
543: -- Standard call to check for call compatibility.
544:
545: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
546: p_api_version_number,
547: l_api_name,
548: G_PKG_NAME)
549: THEN
546: p_api_version_number,
547: l_api_name,
548: G_PKG_NAME)
549: THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: END IF;
552:
553:
554: -- Initialize message list if p_init_msg_list is set to TRUE.
551: END IF;
552:
553:
554: -- Initialize message list if p_init_msg_list is set to TRUE.
555: IF FND_API.to_Boolean( p_init_msg_list )
556: THEN
557: FND_MSG_PUB.initialize;
558: END IF;
559:
557: FND_MSG_PUB.initialize;
558: END IF;
559:
560: -- Initialize API return status to SUCCESS
561: x_return_status := FND_API.G_RET_STS_SUCCESS;
562:
563: l_debrief_header_id:=l_tar_DEBRIEF_rec.Debrief_header_id;
564: -- Virendra Singh 03/27/2000 check whether Debrief_Header_ID is not null or missging
565: if (l_debrief_header_id =FND_API.G_MISS_NUM) or (l_debrief_header_id is NULL ) then
561: x_return_status := FND_API.G_RET_STS_SUCCESS;
562:
563: l_debrief_header_id:=l_tar_DEBRIEF_rec.Debrief_header_id;
564: -- Virendra Singh 03/27/2000 check whether Debrief_Header_ID is not null or missging
565: if (l_debrief_header_id =FND_API.G_MISS_NUM) or (l_debrief_header_id is NULL ) then
566: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
567: THEN
568: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
569: fnd_msg_pub.add;
566: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
567: THEN
568: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
569: fnd_msg_pub.add;
570: x_return_status := fnd_api.g_ret_sts_unexp_error;
571: RAISE fnd_api.g_exc_unexpected_error;
572: END IF;
573: end if;
574: -- Invoke validation procedures
567: THEN
568: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
569: fnd_msg_pub.add;
570: x_return_status := fnd_api.g_ret_sts_unexp_error;
571: RAISE fnd_api.g_exc_unexpected_error;
572: END IF;
573: end if;
574: -- Invoke validation procedures
575:
573: end if;
574: -- Invoke validation procedures
575:
576:
577: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
578:
579: IF (l_tar_debrief_rec.DEBRIEF_DATE <> FND_API.G_MISS_DATE) then
580: Validate_DEBRIEF_DATE(
581: p_init_msg_list => FND_API.G_FALSE,
575:
576:
577: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
578:
579: IF (l_tar_debrief_rec.DEBRIEF_DATE <> FND_API.G_MISS_DATE) then
580: Validate_DEBRIEF_DATE(
581: p_init_msg_list => FND_API.G_FALSE,
582: p_validation_mode => G_CREATE,
583: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
577: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
578:
579: IF (l_tar_debrief_rec.DEBRIEF_DATE <> FND_API.G_MISS_DATE) then
580: Validate_DEBRIEF_DATE(
581: p_init_msg_list => FND_API.G_FALSE,
582: p_validation_mode => G_CREATE,
583: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
584: x_return_status => x_return_status,
585: x_msg_count => x_msg_count,
583: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
584: x_return_status => x_return_status,
585: x_msg_count => x_msg_count,
586: x_msg_data => x_msg_data);
587: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589: RAISE fnd_api.g_exc_unexpected_error;
590: END IF;
591: END If;
584: x_return_status => x_return_status,
585: x_msg_count => x_msg_count,
586: x_msg_data => x_msg_data);
587: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589: RAISE fnd_api.g_exc_unexpected_error;
590: END IF;
591: END If;
592:
585: x_msg_count => x_msg_count,
586: x_msg_data => x_msg_data);
587: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
588: x_return_status := fnd_api.g_ret_sts_unexp_error;
589: RAISE fnd_api.g_exc_unexpected_error;
590: END IF;
591: END If;
592:
593: IF (l_tar_DEBRIEF_rec.task_assignment_id <>FND_API.G_MISS_NUM) then
589: RAISE fnd_api.g_exc_unexpected_error;
590: END IF;
591: END If;
592:
593: IF (l_tar_DEBRIEF_rec.task_assignment_id <>FND_API.G_MISS_NUM) then
594: Validate_Task_Assignment_Id(
595: p_init_msg_list => FND_API.G_FALSE,
596: p_validation_mode => G_CREATE,
597: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
591: END If;
592:
593: IF (l_tar_DEBRIEF_rec.task_assignment_id <>FND_API.G_MISS_NUM) then
594: Validate_Task_Assignment_Id(
595: p_init_msg_list => FND_API.G_FALSE,
596: p_validation_mode => G_CREATE,
597: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
598: x_return_status => x_return_status,
599: x_msg_count => x_msg_count,
597: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
598: x_return_status => x_return_status,
599: x_msg_count => x_msg_count,
600: x_msg_data => x_msg_data);
601: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
602: x_return_status := fnd_api.g_ret_sts_unexp_error;
603: RAISE fnd_api.g_exc_unexpected_error;
604: END IF;
605: END IF;
598: x_return_status => x_return_status,
599: x_msg_count => x_msg_count,
600: x_msg_data => x_msg_data);
601: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
602: x_return_status := fnd_api.g_ret_sts_unexp_error;
603: RAISE fnd_api.g_exc_unexpected_error;
604: END IF;
605: END IF;
606: END IF;
599: x_msg_count => x_msg_count,
600: x_msg_data => x_msg_data);
601: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
602: x_return_status := fnd_api.g_ret_sts_unexp_error;
603: RAISE fnd_api.g_exc_unexpected_error;
604: END IF;
605: END IF;
606: END IF;
607:
608:
609: validate_travel_times(p_debrief_rec.TRAVEL_START_TIME,
610: p_debrief_rec.TRAVEL_END_TIME,
611: p_debrief_rec.task_assignment_id,
612: fnd_api.g_false,
613: X_Return_Status,
614: X_Msg_Count,
615: X_Msg_Data);
616: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
612: fnd_api.g_false,
613: X_Return_Status,
614: X_Msg_Count,
615: X_Msg_Data);
616: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
617: return;
618: END IF;
619:
620: open c_task_assgin_object_version ;
622: l_resource_type_code,
623: l_resource_id;
624: CLOSE c_task_assgin_object_version ;
625:
626: l_actual_travel_duration := FND_API.G_MISS_NUM;
627: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
628: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
629: THEN
630: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,2);
623: l_resource_id;
624: CLOSE c_task_assgin_object_version ;
625:
626: l_actual_travel_duration := FND_API.G_MISS_NUM;
627: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
628: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
629: THEN
630: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,2);
631: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
624: CLOSE c_task_assgin_object_version ;
625:
626: l_actual_travel_duration := FND_API.G_MISS_NUM;
627: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
628: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
629: THEN
630: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,2);
631: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
632: END IF;
631: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
632: END IF;
633:
634:
635: if (p_debrief_rec.TRAVEL_DISTANCE_IN_KM IS NOT NULL AND p_debrief_rec.TRAVEL_DISTANCE_IN_KM<> FND_API.G_MISS_NUM)
636: OR ( l_actual_travel_duration IS NOT NULL AND l_actual_travel_duration <> FND_API.G_MISS_NUM ) THEN
637: csf_task_assignments_pub.update_task_assignment(
638: p_api_version => 1.0,
639: x_return_status => x_return_status,
632: END IF;
633:
634:
635: if (p_debrief_rec.TRAVEL_DISTANCE_IN_KM IS NOT NULL AND p_debrief_rec.TRAVEL_DISTANCE_IN_KM<> FND_API.G_MISS_NUM)
636: OR ( l_actual_travel_duration IS NOT NULL AND l_actual_travel_duration <> FND_API.G_MISS_NUM ) THEN
637: csf_task_assignments_pub.update_task_assignment(
638: p_api_version => 1.0,
639: x_return_status => x_return_status,
640: x_msg_count => x_msg_count,
647: p_resource_type_code => l_resource_type_code,
648: p_resource_id => l_resource_id,
649: x_task_object_version_number => l_task_object_version,
650: x_task_status_id => l_task_status_id);
651: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
652: x_return_status := fnd_api.g_ret_sts_unexp_error;
653: RAISE fnd_api.g_exc_unexpected_error;
654: END IF;
655: END IF;
648: p_resource_id => l_resource_id,
649: x_task_object_version_number => l_task_object_version,
650: x_task_status_id => l_task_status_id);
651: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
652: x_return_status := fnd_api.g_ret_sts_unexp_error;
653: RAISE fnd_api.g_exc_unexpected_error;
654: END IF;
655: END IF;
656:
649: x_task_object_version_number => l_task_object_version,
650: x_task_status_id => l_task_status_id);
651: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
652: x_return_status := fnd_api.g_ret_sts_unexp_error;
653: RAISE fnd_api.g_exc_unexpected_error;
654: END IF;
655: END IF;
656:
657:
691: -- End of API body.
692: --
693:
694: -- Standard check for p_commit
695: IF FND_API.to_Boolean( p_commit )
696: THEN
697: COMMIT WORK;
698: END IF;
699:
703: p_data => x_msg_data
704: );
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO UPDATE_DEBRIEF_PVT;
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: FND_MSG_PUB.Count_And_Get (
711: P_COUNT => X_MSG_COUNT
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO UPDATE_DEBRIEF_PVT;
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: FND_MSG_PUB.Count_And_Get (
711: P_COUNT => X_MSG_COUNT
712: ,P_DATA => X_MSG_DATA);
713:
710: FND_MSG_PUB.Count_And_Get (
711: P_COUNT => X_MSG_COUNT
712: ,P_DATA => X_MSG_DATA);
713:
714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
715: ROLLBACK TO UPDATE_DEBRIEF_PVT;
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: FND_MSG_PUB.Count_And_Get (
718: P_COUNT => X_MSG_COUNT
712: ,P_DATA => X_MSG_DATA);
713:
714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
715: ROLLBACK TO UPDATE_DEBRIEF_PVT;
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: FND_MSG_PUB.Count_And_Get (
718: P_COUNT => X_MSG_COUNT
719: ,P_DATA => X_MSG_DATA);
720:
719: ,P_DATA => X_MSG_DATA);
720:
721: WHEN OTHERS THEN
722: ROLLBACK TO UPDATE_DEBRIEF_PVT;
723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
724: IF FND_MSG_PUB.Check_Msg_Level
725: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
726: THEN
727: FND_MSG_PUB.Add_Exc_Msg (
740:
741: -- Lead Lines Starts from here
742:
743: PROCEDURE Validate_Task_Assignment_ID (
744: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
745: P_Validation_mode IN VARCHAR2,
746: P_TASK_Assignment_ID IN NUMBER,
747: X_Return_Status OUT NOCOPY VARCHAR2,
748: X_Msg_Count OUT NOCOPY NUMBER,
757:
758: l_dummy number;
759: BEGIN
760: -- Initialize message list if p_init_msg_list is set to TRUE.
761: IF FND_API.to_Boolean( p_init_msg_list )
762: THEN
763: FND_MSG_PUB.initialize;
764: END IF;
765: -- Initialize API return status to SUCCESS
762: THEN
763: FND_MSG_PUB.initialize;
764: END IF;
765: -- Initialize API return status to SUCCESS
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767:
768: IF (p_task_assignment_id is NULL OR p_task_assignment_id = FND_API.G_MISS_NUM) THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
764: END IF;
765: -- Initialize API return status to SUCCESS
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767:
768: IF (p_task_assignment_id is NULL OR p_task_assignment_id = FND_API.G_MISS_NUM) THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
771: THEN
772: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVALID_TA_ID');
765: -- Initialize API return status to SUCCESS
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767:
768: IF (p_task_assignment_id is NULL OR p_task_assignment_id = FND_API.G_MISS_NUM) THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
771: THEN
772: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVALID_TA_ID');
773: FND_MSG_PUB.ADD;
776: open c;
777: fetch c into l_dummy;
778: if c%notfound then
779: close c;
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
782: THEN
783: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVALID_TA_ID');
784: FND_MSG_PUB.ADD;
797: END Validate_Task_assignment_ID;
798:
799:
800: PROCEDURE Validate_Debrief_Date (
801: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
802: P_Validation_mode IN VARCHAR2,
803: P_Debrief_Date IN DATE,
804: X_Return_Status OUT NOCOPY VARCHAR2,
805: X_Msg_Count OUT NOCOPY NUMBER,
808: IS
809: l_api_name varchar2(30) := 'Create Debrief' ;
810: BEGIN
811: -- Initialize message list if p_init_msg_list is set to TRUE.
812: IF FND_API.to_Boolean( p_init_msg_list )
813: THEN
814: FND_MSG_PUB.initialize;
815: END IF;
816:
814: FND_MSG_PUB.initialize;
815: END IF;
816:
817: -- Initialize API return status to SUCCESS
818: x_return_status := FND_API.G_RET_STS_SUCCESS;
819: IF (p_debrief_date is NULL OR p_debrief_date = FND_API.G_MISS_DATE) THEN
820: x_return_status := FND_API.G_RET_STS_ERROR;
821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
822: THEN
815: END IF;
816:
817: -- Initialize API return status to SUCCESS
818: x_return_status := FND_API.G_RET_STS_SUCCESS;
819: IF (p_debrief_date is NULL OR p_debrief_date = FND_API.G_MISS_DATE) THEN
820: x_return_status := FND_API.G_RET_STS_ERROR;
821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
822: THEN
823: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_DEBRIEF_DATE');
816:
817: -- Initialize API return status to SUCCESS
818: x_return_status := FND_API.G_RET_STS_SUCCESS;
819: IF (p_debrief_date is NULL OR p_debrief_date = FND_API.G_MISS_DATE) THEN
820: x_return_status := FND_API.G_RET_STS_ERROR;
821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
822: THEN
823: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_DEBRIEF_DATE');
824: FND_MSG_PUB.ADD;
852: open c_debrief_type;
853: fetch c_debrief_type into l_debrief_type;
854: close c_debrief_type;
855:
856: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) = fnd_api.g_miss_num then
857: l_debrief_type := 'L';
858: end if;
859:
860: return l_debrief_type;
862: end;
863:
864: Function IS_DEBRIEF_HEADER_REC_MISSING(P_DEBRIEF_REC DEBRIEF_REC_TYPE) Return BOOLEAN is
865: BEGIN
866: if P_DEBRIEF_REC.DEBRIEF_HEADER_ID <> FND_API.G_MISS_NUM then
867: Return FALSE;
868: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
869: Return FALSE;
870: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
864: Function IS_DEBRIEF_HEADER_REC_MISSING(P_DEBRIEF_REC DEBRIEF_REC_TYPE) Return BOOLEAN is
865: BEGIN
866: if P_DEBRIEF_REC.DEBRIEF_HEADER_ID <> FND_API.G_MISS_NUM then
867: Return FALSE;
868: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
869: Return FALSE;
870: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
871: Return FALSE;
872: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
866: if P_DEBRIEF_REC.DEBRIEF_HEADER_ID <> FND_API.G_MISS_NUM then
867: Return FALSE;
868: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
869: Return FALSE;
870: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
871: Return FALSE;
872: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
873: Return FALSE;
874: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
868: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
869: Return FALSE;
870: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
871: Return FALSE;
872: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
873: Return FALSE;
874: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
875: Return FALSE;
876: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
870: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
871: Return FALSE;
872: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
873: Return FALSE;
874: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
875: Return FALSE;
876: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
877: Return FALSE;
878: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
872: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
873: Return FALSE;
874: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
875: Return FALSE;
876: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
877: Return FALSE;
878: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
879: Return FALSE;
880: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
874: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
875: Return FALSE;
876: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
877: Return FALSE;
878: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
879: Return FALSE;
880: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
881: Return FALSE;
882: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
876: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
877: Return FALSE;
878: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
879: Return FALSE;
880: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
881: Return FALSE;
882: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
883: Return FALSE;
884: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
878: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
879: Return FALSE;
880: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
881: Return FALSE;
882: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
883: Return FALSE;
884: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
885: Return FALSE;
886: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
880: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
881: Return FALSE;
882: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
883: Return FALSE;
884: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
885: Return FALSE;
886: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
887: Return FALSE;
888: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
882: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
883: Return FALSE;
884: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
885: Return FALSE;
886: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
887: Return FALSE;
888: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
889: Return FALSE;
890: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
884: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
885: Return FALSE;
886: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
887: Return FALSE;
888: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
889: Return FALSE;
890: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
891: Return FALSE;
892: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
886: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
887: Return FALSE;
888: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
889: Return FALSE;
890: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
891: Return FALSE;
892: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
893: Return FALSE;
894: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
888: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
889: Return FALSE;
890: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
891: Return FALSE;
892: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
893: Return FALSE;
894: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
895: Return FALSE;
896: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
890: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
891: Return FALSE;
892: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
893: Return FALSE;
894: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
895: Return FALSE;
896: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
897: Return FALSE;
898: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
892: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
893: Return FALSE;
894: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
895: Return FALSE;
896: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
897: Return FALSE;
898: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
899: Return FALSE;
900: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
894: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
895: Return FALSE;
896: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
897: Return FALSE;
898: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
899: Return FALSE;
900: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
901: Return FALSE;
902: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
896: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
897: Return FALSE;
898: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
899: Return FALSE;
900: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
901: Return FALSE;
902: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
903: Return FALSE;
904: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
898: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
899: Return FALSE;
900: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
901: Return FALSE;
902: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
903: Return FALSE;
904: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
905: Return FALSE;
906: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
900: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
901: Return FALSE;
902: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
903: Return FALSE;
904: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
905: Return FALSE;
906: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
907: Return FALSE;
908: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
902: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
903: Return FALSE;
904: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
905: Return FALSE;
906: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
907: Return FALSE;
908: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
909: Return FALSE;
910: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
904: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
905: Return FALSE;
906: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
907: Return FALSE;
908: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
909: Return FALSE;
910: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
911: Return FALSE;
912: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
906: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
907: Return FALSE;
908: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
909: Return FALSE;
910: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
911: Return FALSE;
912: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
913: Return FALSE;
914: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
908: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
909: Return FALSE;
910: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
911: Return FALSE;
912: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
913: Return FALSE;
914: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
915: Return FALSE;
916: elsif P_DEBRIEF_REC.ATTRIBUTE_CATEGORY <>FND_API.G_MISS_CHAR then
910: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
911: Return FALSE;
912: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
913: Return FALSE;
914: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
915: Return FALSE;
916: elsif P_DEBRIEF_REC.ATTRIBUTE_CATEGORY <>FND_API.G_MISS_CHAR then
917: Return FALSE;
918: else
912: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
913: Return FALSE;
914: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
915: Return FALSE;
916: elsif P_DEBRIEF_REC.ATTRIBUTE_CATEGORY <>FND_API.G_MISS_CHAR then
917: Return FALSE;
918: else
919: return TRUE;
920: end if;
932:
933:
934: PROCEDURE Create_debrief_lines(
935: P_Api_Version_Number IN NUMBER,
936: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
937: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
938: P_Upd_tskassgnstatus IN VARCHAR2 ,
939: P_Task_Assignment_status IN VARCHAR2 ,
940: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
933:
934: PROCEDURE Create_debrief_lines(
935: P_Api_Version_Number IN NUMBER,
936: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
937: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
938: P_Upd_tskassgnstatus IN VARCHAR2 ,
939: P_Task_Assignment_status IN VARCHAR2 ,
940: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
941: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type,
936: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
937: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
938: P_Upd_tskassgnstatus IN VARCHAR2 ,
939: P_Task_Assignment_status IN VARCHAR2 ,
940: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
941: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type,
942: -- DEFAULT G_MISS_DEBRIEF_LINE_tbl,
943: P_DEBRIEF_HEADER_ID IN NUMBER ,
944: P_SOURCE_OBJECT_TYPE_CODE IN VARCHAR2,
1052:
1053: SAVEPOINT CREATE_DEBRIEF_LINE_PVT;
1054:
1055: -- Standard call to check for call compatibility.
1056: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1057: p_api_version_number,
1058: l_api_name,
1059: G_PKG_NAME)
1060: THEN
1057: p_api_version_number,
1058: l_api_name,
1059: G_PKG_NAME)
1060: THEN
1061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1062: END IF;
1063:
1064:
1065: -- Initialize message list if p_init_msg_list is set to TRUE.
1063:
1064:
1065: -- Initialize message list if p_init_msg_list is set to TRUE.
1066:
1067: IF FND_API.to_Boolean( p_init_msg_list )
1068: THEN
1069: FND_MSG_PUB.initialize;
1070: END IF;
1071:
1069: FND_MSG_PUB.initialize;
1070: END IF;
1071:
1072: -- Initialize API return status to SUCCESS
1073: x_return_status := FND_API.G_RET_STS_SUCCESS;
1074:
1075: FOR l_curr_row in 1..l_count
1076: LOOP
1077: BEGIN
1151: p_debrief_line_rec.debrief_header_id := p_debrief_header_id;
1152:
1153: l_debrief_type := debrief_type(p_debrief_line_rec);
1154:
1155: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1156: p_debrief_line_rec.issuing_inventory_org_id := null;
1157: end if;
1158: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1159: p_debrief_line_rec.receiving_inventory_org_id := null;
1154:
1155: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1156: p_debrief_line_rec.issuing_inventory_org_id := null;
1157: end if;
1158: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1159: p_debrief_line_rec.receiving_inventory_org_id := null;
1160: end if;
1161:
1162: IF (p_DEBRIEF_LINE_REC.CHANNEL_CODE <> 'CSF_PORTAL') THEN
1165:
1166: --in both cases we have to find billing_type + line_order_category_code in order to know if we should default return reason or not.
1167:
1168: IF (p_debrief_line_tbl(l_curr_row).TRANSACTION_TYPE_ID is null)
1169: or (p_debrief_line_tbl(l_curr_row).TRANSACTION_TYPE_ID = fnd_api.g_miss_num)
1170: Then
1171: open c_txn_billing_type_id (p_debrief_line_rec.txn_billing_type_id);
1172: fetch c_txn_billing_type_id into l_billing_type, l_line_order_category_code, l_transaction_type_id;
1173: close c_txn_billing_type_id;
1179: End If;
1180:
1181:
1182: IF (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE is null)
1183: or (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE = fnd_api.g_miss_char) Then
1184: --------------------------------------------------------------
1185: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1186: Then l_return_reason_code := fnd_api.g_miss_char;
1187: else if l_line_order_category_code = 'RETURN'
1181:
1182: IF (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE is null)
1183: or (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE = fnd_api.g_miss_char) Then
1184: --------------------------------------------------------------
1185: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1186: Then l_return_reason_code := fnd_api.g_miss_char;
1187: else if l_line_order_category_code = 'RETURN'
1188: Then l_return_reason_code := fnd_profile.value('CSF_RETURN_REASON');
1189: Else l_return_reason_code := fnd_api.g_miss_char;
1182: IF (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE is null)
1183: or (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE = fnd_api.g_miss_char) Then
1184: --------------------------------------------------------------
1185: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1186: Then l_return_reason_code := fnd_api.g_miss_char;
1187: else if l_line_order_category_code = 'RETURN'
1188: Then l_return_reason_code := fnd_profile.value('CSF_RETURN_REASON');
1189: Else l_return_reason_code := fnd_api.g_miss_char;
1190: End If;
1185: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1186: Then l_return_reason_code := fnd_api.g_miss_char;
1187: else if l_line_order_category_code = 'RETURN'
1188: Then l_return_reason_code := fnd_profile.value('CSF_RETURN_REASON');
1189: Else l_return_reason_code := fnd_api.g_miss_char;
1190: End If;
1191: End If;
1192: --------------------------------------------------------------
1193: P_debrief_line_rec.RETURN_REASON_CODE := l_return_reason_code;
1198:
1199:
1200:
1201: l_cp_status := p_debrief_line_rec.STATUS_OF_RECEIVED_PART;
1202: if (l_cp_status is null or l_cp_status=FND_API.G_MISS_CHAR) then
1203: open c_cp_status(p_debrief_line_tbl(l_curr_row).TRANSACTION_TYPE_ID);
1204: fetch c_cp_status into l_cp_status_id;
1205: close c_cp_status;
1206: else
1208: fetch c_cp_status_notnull into l_cp_status_id;
1209: close c_cp_status_notnull;
1210: end if;
1211: if l_debrief_type = 'E' and
1212: nvl(p_debrief_line_rec.expense_amount,fnd_api.g_miss_num) <> fnd_api.g_miss_num then
1213: p_debrief_line_rec.UOM_CODE := null;
1214: P_DEBRIEF_LINE_Rec.quantity := null;
1215: end if;
1216: if l_debrief_type = 'L' then
1214: P_DEBRIEF_LINE_Rec.quantity := null;
1215: end if;
1216: if l_debrief_type = 'L' then
1217: -- Fixed bug 1286592
1218: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE then
1219: xx_labor_start_date := NULL;
1220: else
1221: xx_labor_start_date := p_DEBRIEF_LINE_rec.labor_start_date;
1222: -- If this is a labor line, ignore what is passed, get primary uom
1223: open labor_uom(p_debrief_line_rec.inventory_item_id);
1224: fetch labor_uom into p_debrief_line_rec.UOM_CODE;
1225: close labor_uom;
1226: end if;
1227: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE then
1228: xx_labor_end_date := NULL;
1229: else
1230: xx_labor_end_date := p_DEBRIEF_LINE_rec.labor_end_date;
1231: end if;
1231: end if;
1232:
1233: --we should calculate quantity based on start time and end time
1234:
1235: if nvl(p_debrief_line_rec.uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
1236:
1237: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
1238: end if;
1239: if nvl(p_DEBRIEF_LINE_rec.quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num then
1235: if nvl(p_debrief_line_rec.uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
1236:
1237: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
1238: end if;
1239: if nvl(p_DEBRIEF_LINE_rec.quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num then
1240:
1241: l_quantity := (p_debrief_line_rec.LABOR_END_DATE - p_debrief_line_rec.LABOR_START_DATE);
1242: if p_debrief_line_rec.UOM_CODE <> l_hr_uom and l_quantity is not null then
1243:
1256: l_quantity := nvl(l_quantity,0);
1257: p_DEBRIEF_LINE_rec.QUANTITY := round(l_quantity,2);
1258: end if;
1259:
1260: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1261:
1262: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1263:
1264: l_quantity := inv_convert.inv_um_convert(
1272: else
1273:
1274: l_quantity := p_DEBRIEF_LINE_rec.quantity;
1275: end if;
1276: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
1277:
1278: xx_labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
1279: end if;
1280: end if;
1278: xx_labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
1279: end if;
1280: end if;
1281:
1282: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
1283: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
1284: nvl(p_debrief_line_rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num) then
1285:
1286: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1279: end if;
1280: end if;
1281:
1282: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
1283: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
1284: nvl(p_debrief_line_rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num) then
1285:
1286: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1287:
1280: end if;
1281:
1282: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
1283: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
1284: nvl(p_debrief_line_rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num) then
1285:
1286: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1287:
1288: l_quantity := inv_convert.inv_um_convert(
1297:
1298: l_quantity := p_DEBRIEF_LINE_rec.quantity;
1299: end if;
1300:
1301: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
1302:
1303: xx_labor_end_date := p_DEBRIEF_LINE_rec.labor_start_date + l_quantity/24;
1304: end if;
1305: end if;
1306: if nvl(p_debrief_line_rec.channel_code,'a') not in ('CSF_LAPTOP','CSF_PALM') then
1307: validate_start_end(xx_labor_start_date,
1308: xx_labor_end_date,
1309: p_debrief_line_rec.debrief_header_id,
1310: fnd_api.g_false,
1311: X_Return_Status,
1312: X_Msg_Count,
1313: X_Msg_Data);
1314: if x_return_status <> fnd_api.g_ret_sts_success then
1310: fnd_api.g_false,
1311: X_Return_Status,
1312: X_Msg_Count,
1313: X_Msg_Data);
1314: if x_return_status <> fnd_api.g_ret_sts_success then
1315: x_return_status := fnd_api.g_ret_sts_unexp_error;
1316: raise fnd_api.g_exc_unexpected_error;
1317: end if;
1318: end if;
1311: X_Return_Status,
1312: X_Msg_Count,
1313: X_Msg_Data);
1314: if x_return_status <> fnd_api.g_ret_sts_success then
1315: x_return_status := fnd_api.g_ret_sts_unexp_error;
1316: raise fnd_api.g_exc_unexpected_error;
1317: end if;
1318: end if;
1319: end if;
1312: X_Msg_Count,
1313: X_Msg_Data);
1314: if x_return_status <> fnd_api.g_ret_sts_success then
1315: x_return_status := fnd_api.g_ret_sts_unexp_error;
1316: raise fnd_api.g_exc_unexpected_error;
1317: end if;
1318: end if;
1319: end if;
1320:
1317: end if;
1318: end if;
1319: end if;
1320:
1321: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1322:
1323: if l_debrief_type = 'M' then
1324: validate_subinventory_code(
1325: p_init_msg_list => fnd_api.g_false,
1321: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1322:
1323: if l_debrief_type = 'M' then
1324: validate_subinventory_code(
1325: p_init_msg_list => fnd_api.g_false,
1326: p_organization_id => nvl(p_debrief_line_rec.issuing_inventory_org_id,p_debrief_line_rec.receiving_inventory_org_id),
1327: p_subinventory_code => nvl(p_debrief_line_rec.issuing_sub_inventory_code,p_debrief_line_rec.receiving_sub_inventory_code),
1328: x_return_status => x_return_status,
1329: x_msg_count => x_msg_count,
1328: x_return_status => x_return_status,
1329: x_msg_count => x_msg_count,
1330: x_msg_data => x_msg_data);
1331:
1332: if x_return_status <> fnd_api.g_ret_sts_success then
1333: x_return_status := fnd_api.g_ret_sts_unexp_error;
1334: raise fnd_api.g_exc_unexpected_error;
1335: end if;
1336: end if;
1329: x_msg_count => x_msg_count,
1330: x_msg_data => x_msg_data);
1331:
1332: if x_return_status <> fnd_api.g_ret_sts_success then
1333: x_return_status := fnd_api.g_ret_sts_unexp_error;
1334: raise fnd_api.g_exc_unexpected_error;
1335: end if;
1336: end if;
1337:
1330: x_msg_data => x_msg_data);
1331:
1332: if x_return_status <> fnd_api.g_ret_sts_success then
1333: x_return_status := fnd_api.g_ret_sts_unexp_error;
1334: raise fnd_api.g_exc_unexpected_error;
1335: end if;
1336: end if;
1337:
1338: Validate_Service_Date (
1335: end if;
1336: end if;
1337:
1338: Validate_Service_Date (
1339: P_Init_Msg_List =>FND_API.G_FALSE,
1340: P_Service_Date =>p_debrief_line_rec.Service_Date,
1341: X_Return_Status =>x_return_status,
1342: X_Msg_Count =>x_msg_count,
1343: X_Msg_Data =>x_msg_data);
1340: P_Service_Date =>p_debrief_line_rec.Service_Date,
1341: X_Return_Status =>x_return_status,
1342: X_Msg_Count =>x_msg_count,
1343: X_Msg_Data =>x_msg_data);
1344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: x_return_status := fnd_api.g_ret_sts_unexp_error;
1346: RAISE fnd_api.g_exc_unexpected_error;
1347: END IF;
1348:
1341: X_Return_Status =>x_return_status,
1342: X_Msg_Count =>x_msg_count,
1343: X_Msg_Data =>x_msg_data);
1344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: x_return_status := fnd_api.g_ret_sts_unexp_error;
1346: RAISE fnd_api.g_exc_unexpected_error;
1347: END IF;
1348:
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1342: X_Msg_Count =>x_msg_count,
1343: X_Msg_Data =>x_msg_data);
1344: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1345: x_return_status := fnd_api.g_ret_sts_unexp_error;
1346: RAISE fnd_api.g_exc_unexpected_error;
1347: END IF;
1348:
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1350: fnd_api.g_miss_num and l_debrief_type = 'L' then
1345: x_return_status := fnd_api.g_ret_sts_unexp_error;
1346: RAISE fnd_api.g_exc_unexpected_error;
1347: END IF;
1348:
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1350: fnd_api.g_miss_num and l_debrief_type = 'L' then
1351: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1352: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1346: RAISE fnd_api.g_exc_unexpected_error;
1347: END IF;
1348:
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1350: fnd_api.g_miss_num and l_debrief_type = 'L' then
1351: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1352: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1347: END IF;
1348:
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1350: fnd_api.g_miss_num and l_debrief_type = 'L' then
1351: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1352: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1355: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1348:
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1350: fnd_api.g_miss_num and l_debrief_type = 'L' then
1351: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1352: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1355: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1356: FND_MSG_PUB.ADD;
1349: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1350: fnd_api.g_miss_num and l_debrief_type = 'L' then
1351: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1352: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1355: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1356: FND_MSG_PUB.ADD;
1357: END IF;
1354: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1355: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1356: FND_MSG_PUB.ADD;
1357: END IF;
1358: RAISE fnd_api.g_exc_error;
1359: end if;
1360: else
1361: Validate_Inventory_Item_ID (
1362: P_Init_Msg_List => FND_API.G_FALSE,
1358: RAISE fnd_api.g_exc_error;
1359: end if;
1360: else
1361: Validate_Inventory_Item_ID (
1362: P_Init_Msg_List => FND_API.G_FALSE,
1363: p_organization_id => nvl(p_debrief_line_rec.issuing_inventory_org_id,p_debrief_line_rec.receiving_inventory_org_id),
1364: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
1365: X_Return_Status =>x_return_status,
1366: X_Msg_Count =>x_msg_count,
1364: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
1365: X_Return_Status =>x_return_status,
1366: X_Msg_Count =>x_msg_count,
1367: X_Msg_Data =>x_msg_data);
1368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1369: x_return_status := fnd_api.g_ret_sts_unexp_error;
1370: RAISE fnd_api.g_exc_unexpected_error;
1371: END IF;
1372:
1365: X_Return_Status =>x_return_status,
1366: X_Msg_Count =>x_msg_count,
1367: X_Msg_Data =>x_msg_data);
1368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1369: x_return_status := fnd_api.g_ret_sts_unexp_error;
1370: RAISE fnd_api.g_exc_unexpected_error;
1371: END IF;
1372:
1373: Validate_Instance_ID (
1366: X_Msg_Count =>x_msg_count,
1367: X_Msg_Data =>x_msg_data);
1368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1369: x_return_status := fnd_api.g_ret_sts_unexp_error;
1370: RAISE fnd_api.g_exc_unexpected_error;
1371: END IF;
1372:
1373: Validate_Instance_ID (
1374: P_Init_Msg_List => FND_API.G_FALSE,
1370: RAISE fnd_api.g_exc_unexpected_error;
1371: END IF;
1372:
1373: Validate_Instance_ID (
1374: P_Init_Msg_List => FND_API.G_FALSE,
1375: P_Instance_ID =>p_debrief_line_rec.Instance_ID,
1376: X_Return_Status =>x_return_status,
1377: X_Msg_Count =>x_msg_count,
1378: X_Msg_Data =>x_msg_data);
1375: P_Instance_ID =>p_debrief_line_rec.Instance_ID,
1376: X_Return_Status =>x_return_status,
1377: X_Msg_Count =>x_msg_count,
1378: X_Msg_Data =>x_msg_data);
1379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1380: x_return_status := fnd_api.g_ret_sts_unexp_error;
1381: RAISE fnd_api.g_exc_unexpected_error;
1382: END IF;
1383: end if;
1376: X_Return_Status =>x_return_status,
1377: X_Msg_Count =>x_msg_count,
1378: X_Msg_Data =>x_msg_data);
1379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1380: x_return_status := fnd_api.g_ret_sts_unexp_error;
1381: RAISE fnd_api.g_exc_unexpected_error;
1382: END IF;
1383: end if;
1384:
1377: X_Msg_Count =>x_msg_count,
1378: X_Msg_Data =>x_msg_data);
1379: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1380: x_return_status := fnd_api.g_ret_sts_unexp_error;
1381: RAISE fnd_api.g_exc_unexpected_error;
1382: END IF;
1383: end if;
1384:
1385: Validate_Debrief_Header_ID (
1382: END IF;
1383: end if;
1384:
1385: Validate_Debrief_Header_ID (
1386: P_Init_Msg_List => FND_API.G_FALSE,
1387: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
1388: X_Return_Status =>x_return_status,
1389: X_Msg_Count =>x_msg_count,
1390: X_Msg_Data =>x_msg_data);
1387: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
1388: X_Return_Status =>x_return_status,
1389: X_Msg_Count =>x_msg_count,
1390: X_Msg_Data =>x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: x_return_status := fnd_api.g_ret_sts_unexp_error;
1393: RAISE fnd_api.g_exc_unexpected_error;
1394: END IF;
1395:
1388: X_Return_Status =>x_return_status,
1389: X_Msg_Count =>x_msg_count,
1390: X_Msg_Data =>x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: x_return_status := fnd_api.g_ret_sts_unexp_error;
1393: RAISE fnd_api.g_exc_unexpected_error;
1394: END IF;
1395:
1396: Validate_BUSINESS_PROCESS_ID (
1389: X_Msg_Count =>x_msg_count,
1390: X_Msg_Data =>x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: x_return_status := fnd_api.g_ret_sts_unexp_error;
1393: RAISE fnd_api.g_exc_unexpected_error;
1394: END IF;
1395:
1396: Validate_BUSINESS_PROCESS_ID (
1397: P_Init_Msg_List => FND_API.G_FALSE,
1393: RAISE fnd_api.g_exc_unexpected_error;
1394: END IF;
1395:
1396: Validate_BUSINESS_PROCESS_ID (
1397: P_Init_Msg_List => FND_API.G_FALSE,
1398: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
1399: X_Return_Status =>x_return_status,
1400: X_Msg_Count =>x_msg_count,
1401: X_Msg_Data =>x_msg_data);
1398: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
1399: X_Return_Status =>x_return_status,
1400: X_Msg_Count =>x_msg_count,
1401: X_Msg_Data =>x_msg_data);
1402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1403: x_return_status := fnd_api.g_ret_sts_unexp_error;
1404: RAISE fnd_api.g_exc_unexpected_error;
1405: END IF;
1406: Validate_TRANSACTION_TYPE_ID (
1399: X_Return_Status =>x_return_status,
1400: X_Msg_Count =>x_msg_count,
1401: X_Msg_Data =>x_msg_data);
1402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1403: x_return_status := fnd_api.g_ret_sts_unexp_error;
1404: RAISE fnd_api.g_exc_unexpected_error;
1405: END IF;
1406: Validate_TRANSACTION_TYPE_ID (
1407: P_Init_Msg_List => FND_API.G_FALSE,
1400: X_Msg_Count =>x_msg_count,
1401: X_Msg_Data =>x_msg_data);
1402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1403: x_return_status := fnd_api.g_ret_sts_unexp_error;
1404: RAISE fnd_api.g_exc_unexpected_error;
1405: END IF;
1406: Validate_TRANSACTION_TYPE_ID (
1407: P_Init_Msg_List => FND_API.G_FALSE,
1408: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
1403: x_return_status := fnd_api.g_ret_sts_unexp_error;
1404: RAISE fnd_api.g_exc_unexpected_error;
1405: END IF;
1406: Validate_TRANSACTION_TYPE_ID (
1407: P_Init_Msg_List => FND_API.G_FALSE,
1408: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
1409: X_Return_Status =>x_return_status,
1410: X_Msg_Count =>x_msg_count,
1411: X_Msg_Data =>x_msg_data);
1408: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
1409: X_Return_Status =>x_return_status,
1410: X_Msg_Count =>x_msg_count,
1411: X_Msg_Data =>x_msg_data);
1412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1413: x_return_status := fnd_api.g_ret_sts_unexp_error;
1414: RAISE fnd_api.g_exc_unexpected_error;
1415: END IF;
1416:
1409: X_Return_Status =>x_return_status,
1410: X_Msg_Count =>x_msg_count,
1411: X_Msg_Data =>x_msg_data);
1412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1413: x_return_status := fnd_api.g_ret_sts_unexp_error;
1414: RAISE fnd_api.g_exc_unexpected_error;
1415: END IF;
1416:
1417: END IF;
1410: X_Msg_Count =>x_msg_count,
1411: X_Msg_Data =>x_msg_data);
1412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1413: x_return_status := fnd_api.g_ret_sts_unexp_error;
1414: RAISE fnd_api.g_exc_unexpected_error;
1415: END IF;
1416:
1417: END IF;
1418:
1417: END IF;
1418:
1419:
1420: l_debrief_line_id := p_debrief_line_rec.debrief_line_id;
1421: if (l_debrief_line_id<>FND_API.G_MISS_NUM) and (l_debrief_line_id is not NULL) then
1422: begin
1423: select 1 into x
1424: from CSF_DEBRIEF_LINES
1425: where DEBRIEF_LINE_ID = l_DEBRIEF_LINE_ID ;
1425: where DEBRIEF_LINE_ID = l_DEBRIEF_LINE_ID ;
1426:
1427: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1428: fnd_msg_pub.add;
1429: x_return_status := fnd_api.g_ret_sts_unexp_error;
1430: RAISE fnd_api.g_exc_unexpected_error;
1431: exception
1432: when no_data_found then
1433: null ;
1426:
1427: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1428: fnd_msg_pub.add;
1429: x_return_status := fnd_api.g_ret_sts_unexp_error;
1430: RAISE fnd_api.g_exc_unexpected_error;
1431: exception
1432: when no_data_found then
1433: null ;
1434: when too_many_rows then
1433: null ;
1434: when too_many_rows then
1435: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1436: fnd_msg_pub.add;
1437: x_return_status := fnd_api.g_ret_sts_unexp_error;
1438: RAISE fnd_api.g_exc_unexpected_error;
1439: end ;
1440: ELSE
1441:
1434: when too_many_rows then
1435: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1436: fnd_msg_pub.add;
1437: x_return_status := fnd_api.g_ret_sts_unexp_error;
1438: RAISE fnd_api.g_exc_unexpected_error;
1439: end ;
1440: ELSE
1441:
1442: SELECT CSF_DEBRIEF_LINES_S.nextval
1544: x_msg_data => x_msg_data,
1545: x_debrief_number => l_debrief_number,
1546: x_task_number => l_task_number
1547: );
1548: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1549: FND_MESSAGE.Set_Name('CSF', 'CSF_OVERLAP_LABOR_LINE');
1550: FND_MSG_PUB.ADD;
1551: RAISE fnd_api.g_exc_error;
1552: END IF;
1547: );
1548: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1549: FND_MESSAGE.Set_Name('CSF', 'CSF_OVERLAP_LABOR_LINE');
1550: FND_MSG_PUB.ADD;
1551: RAISE fnd_api.g_exc_error;
1552: END IF;
1553: END IF;
1554: --Update actual times for task and task assignment
1555: if l_debrief_type = 'L' then
1556: update_task_actuals(p_debrief_line_rec.debrief_header_id, -- modified for bug 3748610
1557: x_return_status,
1558: x_msg_count,
1559: x_msg_data);
1560: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563: end if;
1564: if l_debrief_type='L' then
1557: x_return_status,
1558: x_msg_count,
1559: x_msg_data);
1560: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563: end if;
1564: if l_debrief_type='L' then
1565: Begin
1592: where resource_id = z_resource_id;
1593:
1594: /* jtf_rs_resource_pub.update_resource
1595: (P_API_VERSION => 1,
1596: P_INIT_MSG_LIST => fnd_api.g_false,
1597: P_COMMIT => fnd_api.g_false,
1598: P_RESOURCE_ID => z_resource_id,
1599: P_RESOURCE_NUMBER => null,
1600: P_LOCATION => z_location,
1593:
1594: /* jtf_rs_resource_pub.update_resource
1595: (P_API_VERSION => 1,
1596: P_INIT_MSG_LIST => fnd_api.g_false,
1597: P_COMMIT => fnd_api.g_false,
1598: P_RESOURCE_ID => z_resource_id,
1599: P_RESOURCE_NUMBER => null,
1600: P_LOCATION => z_location,
1601: P_object_version_num => z_object_version_number,
1601: P_object_version_num => z_object_version_number,
1602: X_RETURN_STATUS => x_return_status,
1603: X_MSG_COUNT => x_msg_count,
1604: X_MSG_DATA => x_msg_data);
1605: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1606: Raise FND_API.G_EXC_ERROR;
1607: END IF;
1608: */
1609: END IF;
1602: X_RETURN_STATUS => x_return_status,
1603: X_MSG_COUNT => x_msg_count,
1604: X_MSG_DATA => x_msg_data);
1605: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1606: Raise FND_API.G_EXC_ERROR;
1607: END IF;
1608: */
1609: END IF;
1610: Exception
1618:
1619: BEGIN
1620: Validate_Task_Assignment_Satus(
1621: P_Api_Version_Number =>1.0,
1622: P_Init_Msg_List => FND_API.G_FALSE,
1623: P_Commit => FND_API.G_FALSE,
1624: P_Task_Assignment_status =>P_Task_Assignment_status,
1625: X_TA_STATUS_ID =>l_assignment_status_id,
1626: X_Return_Status =>X_Return_Status,
1619: BEGIN
1620: Validate_Task_Assignment_Satus(
1621: P_Api_Version_Number =>1.0,
1622: P_Init_Msg_List => FND_API.G_FALSE,
1623: P_Commit => FND_API.G_FALSE,
1624: P_Task_Assignment_status =>P_Task_Assignment_status,
1625: X_TA_STATUS_ID =>l_assignment_status_id,
1626: X_Return_Status =>X_Return_Status,
1627: X_Msg_Count =>X_MSG_COUNT,
1625: X_TA_STATUS_ID =>l_assignment_status_id,
1626: X_Return_Status =>X_Return_Status,
1627: X_Msg_Count =>X_MSG_COUNT,
1628: X_Msg_Data =>X_MSG_DATA);
1629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1630: RAISE FND_API.G_EXC_ERROR;
1631: END IF;
1632:
1633:
1626: X_Return_Status =>X_Return_Status,
1627: X_Msg_Count =>X_MSG_COUNT,
1628: X_Msg_Data =>X_MSG_DATA);
1629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1630: RAISE FND_API.G_EXC_ERROR;
1631: END IF;
1632:
1633:
1634: select jta.task_assignment_id,
1644:
1645:
1646: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
1647: P_API_VERSION =>1.0 ,
1648: P_INIT_MSG_LIST =>FND_API.G_FALSE,
1649: P_COMMIT =>FND_API.G_FALSE,
1650: X_RETURN_STATUS =>x_return_status,
1651: X_MSG_COUNT =>x_msg_count,
1652: X_MSG_DATA =>x_msg_data,
1645:
1646: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
1647: P_API_VERSION =>1.0 ,
1648: P_INIT_MSG_LIST =>FND_API.G_FALSE,
1649: P_COMMIT =>FND_API.G_FALSE,
1650: X_RETURN_STATUS =>x_return_status,
1651: X_MSG_COUNT =>x_msg_count,
1652: X_MSG_DATA =>x_msg_data,
1653: P_TASK_ASSIGNMENT_ID =>l_task_assignment_id,
1655: P_OBJECT_VERSION_NUMBER =>l_object_version_number,
1656: P_UPDATE_TASK =>'T',
1657: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
1658: X_TASK_STATUS_ID =>l_task_status_id);
1659: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1660: RAISE FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1663: EXCEPTION
1656: P_UPDATE_TASK =>'T',
1657: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
1658: X_TASK_STATUS_ID =>l_task_status_id);
1659: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1660: RAISE FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1663: EXCEPTION
1664: WHEN OTHERS THEN
1665: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1666: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_UPDATE_TASK_ASSIGNMENT');
1667: FND_MSG_PUB.ADD;
1668: END IF;
1669: RAISE FND_API.G_EXC_ERROR;
1670: END;
1671: end if;
1672: END IF;
1673: END;
1688: 1.0,
1689: p_debrief_line_rec.debrief_header_id);
1690: end if;
1691: -- Standard check for p_commit
1692: IF FND_API.to_Boolean( p_commit )
1693: THEN
1694: COMMIT WORK;
1695: END IF;
1696:
1702: p_data => x_msg_data
1703: );
1704:
1705: EXCEPTION
1706: WHEN FND_API.G_EXC_ERROR THEN
1707: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709: FND_MSG_PUB.Count_And_Get (
1710: P_COUNT => X_MSG_COUNT
1704:
1705: EXCEPTION
1706: WHEN FND_API.G_EXC_ERROR THEN
1707: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709: FND_MSG_PUB.Count_And_Get (
1710: P_COUNT => X_MSG_COUNT
1711: ,P_DATA => X_MSG_DATA);
1712:
1709: FND_MSG_PUB.Count_And_Get (
1710: P_COUNT => X_MSG_COUNT
1711: ,P_DATA => X_MSG_DATA);
1712:
1713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1714: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1716: FND_MSG_PUB.Count_And_Get (
1717: P_COUNT => X_MSG_COUNT
1711: ,P_DATA => X_MSG_DATA);
1712:
1713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1714: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1716: FND_MSG_PUB.Count_And_Get (
1717: P_COUNT => X_MSG_COUNT
1718: ,P_DATA => X_MSG_DATA);
1719: WHEN OTHERS THEN
1717: P_COUNT => X_MSG_COUNT
1718: ,P_DATA => X_MSG_DATA);
1719: WHEN OTHERS THEN
1720: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1723: THEN
1724: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,L_API_NAME );
1725: END IF;
1732: -- **********
1733:
1734: PROCEDURE Validate_Task_Assignment_Satus(
1735: P_Api_Version_Number IN NUMBER,
1736: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1737: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1738: P_Task_Assignment_status IN VARCHAR2 ,
1739: X_TA_STATUS_ID OUT NOCOPY NUMBER,
1740: X_Return_Status OUT NOCOPY VARCHAR2,
1733:
1734: PROCEDURE Validate_Task_Assignment_Satus(
1735: P_Api_Version_Number IN NUMBER,
1736: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1737: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1738: P_Task_Assignment_status IN VARCHAR2 ,
1739: X_TA_STATUS_ID OUT NOCOPY NUMBER,
1740: X_Return_Status OUT NOCOPY VARCHAR2,
1741: X_Msg_Count OUT NOCOPY NUMBER,
1749: where name=P_Task_Assignment_status;
1750:
1751: BEGIN
1752: -- Initialize message list if p_init_msg_list is set to TRUE.
1753: IF FND_API.to_Boolean( p_init_msg_list )
1754: THEN
1755: FND_MSG_PUB.initialize;
1756: END IF;
1757:
1755: FND_MSG_PUB.initialize;
1756: END IF;
1757:
1758: -- Initialize API return status to SUCCESS
1759: x_return_status := FND_API.G_RET_STS_SUCCESS;
1760: IF (P_Task_Assignment_status is NULL OR P_Task_Assignment_status = FND_API.G_MISS_CHAR) THEN
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1763: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TA_STATUS');
1756: END IF;
1757:
1758: -- Initialize API return status to SUCCESS
1759: x_return_status := FND_API.G_RET_STS_SUCCESS;
1760: IF (P_Task_Assignment_status is NULL OR P_Task_Assignment_status = FND_API.G_MISS_CHAR) THEN
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1763: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TA_STATUS');
1764: FND_MSG_PUB.ADD;
1757:
1758: -- Initialize API return status to SUCCESS
1759: x_return_status := FND_API.G_RET_STS_SUCCESS;
1760: IF (P_Task_Assignment_status is NULL OR P_Task_Assignment_status = FND_API.G_MISS_CHAR) THEN
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1763: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TA_STATUS');
1764: FND_MSG_PUB.ADD;
1765: END IF;
1767: open validate_ta_status;
1768: fetch validate_ta_status into X_TA_STATUS_ID;
1769: if validate_ta_status%notfound then
1770: close validate_ta_status ;
1771: x_return_status := FND_API.G_RET_STS_ERROR;
1772: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1773: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TAvalvav_STATUS');
1774: FND_MSG_PUB.ADD;
1775: END IF;
1786: -- **********
1787:
1788: PROCEDURE Update_debrief_line(
1789: P_Api_Version_Number IN NUMBER,
1790: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1791: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1792: P_Upd_tskassgnstatus IN VARCHAR2 ,
1793: P_Task_Assignment_status IN VARCHAR2 ,
1794: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1787:
1788: PROCEDURE Update_debrief_line(
1789: P_Api_Version_Number IN NUMBER,
1790: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1791: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1792: P_Upd_tskassgnstatus IN VARCHAR2 ,
1793: P_Task_Assignment_status IN VARCHAR2 ,
1794: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1795: P_DEBRIEF_LINE_Rec IN OUT NOCOPY DEBRIEF_LINE_Rec_type,
1790: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1791: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1792: P_Upd_tskassgnstatus IN VARCHAR2 ,
1793: P_Task_Assignment_status IN VARCHAR2 ,
1794: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1795: P_DEBRIEF_LINE_Rec IN OUT NOCOPY DEBRIEF_LINE_Rec_type,
1796: X_Return_Status OUT NOCOPY VARCHAR2,
1797: X_Msg_Count OUT NOCOPY NUMBER,
1798: X_Msg_Data OUT NOCOPY VARCHAR2
1894: l_debrief_type := debrief_type(p_debrief_line_rec);
1895:
1896: l_issuing_inventory_org_id := p_debrief_line_rec.issuing_inventory_org_id;
1897: l_receiving_inventory_org_id := p_debrief_line_rec.receiving_inventory_org_id;
1898: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1899: l_issuing_inventory_org_id := null;
1900: end if;
1901: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1902: l_receiving_inventory_org_id := null;
1897: l_receiving_inventory_org_id := p_debrief_line_rec.receiving_inventory_org_id;
1898: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1899: l_issuing_inventory_org_id := null;
1900: end if;
1901: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1902: l_receiving_inventory_org_id := null;
1903: end if;
1904:
1905: -- Standard Start of API savepoint
1905: -- Standard Start of API savepoint
1906: SAVEPOINT UPDATE_DEBRIEF_LINE_PVT;
1907:
1908: -- Standard call to check for call compatibility.
1909: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1910: p_api_version_number,
1911: l_api_name,
1912: G_PKG_NAME)
1913: THEN
1910: p_api_version_number,
1911: l_api_name,
1912: G_PKG_NAME)
1913: THEN
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915: END IF;
1916:
1917: IF FND_API.to_Boolean( p_init_msg_list )
1918: THEN
1913: THEN
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915: END IF;
1916:
1917: IF FND_API.to_Boolean( p_init_msg_list )
1918: THEN
1919: FND_MSG_PUB.initialize;
1920: END IF;
1921:
1919: FND_MSG_PUB.initialize;
1920: END IF;
1921:
1922: -- Initialize API return status to SUCCESS
1923: x_return_status := FND_API.G_RET_STS_SUCCESS;
1924:
1925: -- Virendra Singh 03/21/2000
1926: -- fetch charge upload status and check if its already upload
1927: -- then don't update debrief lines
1935: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1936: FND_MSG_PUB.Add;
1937:
1938: END IF;
1939: raise FND_API.G_EXC_ERROR;
1940: end if;
1941: close GET_CHARGE_UPLOAD_STATUS;
1942: l_cp_status := p_debrief_line_rec.STATUS_OF_RECEIVED_PART;
1943: if (l_cp_status is null or l_cp_status=FND_API.G_MISS_CHAR) then
1939: raise FND_API.G_EXC_ERROR;
1940: end if;
1941: close GET_CHARGE_UPLOAD_STATUS;
1942: l_cp_status := p_debrief_line_rec.STATUS_OF_RECEIVED_PART;
1943: if (l_cp_status is null or l_cp_status=FND_API.G_MISS_CHAR) then
1944: open c_cp_status(p_debrief_line_rec.TXN_BILLING_TYPE_ID);
1945: fetch c_cp_status into l_cp_status_id;
1946: close c_cp_status;
1947: else
1958: FND_MSG_PUB.Add;
1959: x_return_status := 'E';
1960: END IF;
1961: ELSE
1962: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1963: THEN
1964: IF (p_debrief_line_rec.Service_Date<> FND_API.G_MISS_DATE) then
1965: Validate_Service_Date (
1966: P_Init_Msg_List =>FND_API.G_FALSE,
1960: END IF;
1961: ELSE
1962: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1963: THEN
1964: IF (p_debrief_line_rec.Service_Date<> FND_API.G_MISS_DATE) then
1965: Validate_Service_Date (
1966: P_Init_Msg_List =>FND_API.G_FALSE,
1967: P_Service_Date =>p_debrief_line_rec.Service_Date,
1968: X_Return_Status =>x_return_status,
1962: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
1963: THEN
1964: IF (p_debrief_line_rec.Service_Date<> FND_API.G_MISS_DATE) then
1965: Validate_Service_Date (
1966: P_Init_Msg_List =>FND_API.G_FALSE,
1967: P_Service_Date =>p_debrief_line_rec.Service_Date,
1968: X_Return_Status =>x_return_status,
1969: X_Msg_Count =>x_msg_count,
1970: X_Msg_Data =>x_msg_data);
1967: P_Service_Date =>p_debrief_line_rec.Service_Date,
1968: X_Return_Status =>x_return_status,
1969: X_Msg_Count =>x_msg_count,
1970: X_Msg_Data =>x_msg_data);
1971: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975: END IF;
1968: X_Return_Status =>x_return_status,
1969: X_Msg_Count =>x_msg_count,
1970: X_Msg_Data =>x_msg_data);
1971: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975: END IF;
1976: IF nvl(P_DEBRIEF_LINE_REC.Inventory_Item_ID,fnd_api.g_miss_num)= FND_API.G_MISS_NUM and l_debrief_type = 'L' then
1969: X_Msg_Count =>x_msg_count,
1970: X_Msg_Data =>x_msg_data);
1971: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975: END IF;
1976: IF nvl(P_DEBRIEF_LINE_REC.Inventory_Item_ID,fnd_api.g_miss_num)= FND_API.G_MISS_NUM and l_debrief_type = 'L' then
1977: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975: END IF;
1976: IF nvl(P_DEBRIEF_LINE_REC.Inventory_Item_ID,fnd_api.g_miss_num)= FND_API.G_MISS_NUM and l_debrief_type = 'L' then
1977: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1978: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1979: x_return_status := FND_API.G_RET_STS_ERROR;
1980: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1973: RAISE fnd_api.g_exc_unexpected_error;
1974: END IF;
1975: END IF;
1976: IF nvl(P_DEBRIEF_LINE_REC.Inventory_Item_ID,fnd_api.g_miss_num)= FND_API.G_MISS_NUM and l_debrief_type = 'L' then
1977: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1978: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1979: x_return_status := FND_API.G_RET_STS_ERROR;
1980: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1981: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1974: END IF;
1975: END IF;
1976: IF nvl(P_DEBRIEF_LINE_REC.Inventory_Item_ID,fnd_api.g_miss_num)= FND_API.G_MISS_NUM and l_debrief_type = 'L' then
1977: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1978: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1979: x_return_status := FND_API.G_RET_STS_ERROR;
1980: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1981: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1982: FND_MSG_PUB.ADD;
1975: END IF;
1976: IF nvl(P_DEBRIEF_LINE_REC.Inventory_Item_ID,fnd_api.g_miss_num)= FND_API.G_MISS_NUM and l_debrief_type = 'L' then
1977: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1978: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1979: x_return_status := FND_API.G_RET_STS_ERROR;
1980: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1981: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1982: FND_MSG_PUB.ADD;
1983: END IF;
1980: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1981: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1982: FND_MSG_PUB.ADD;
1983: END IF;
1984: RAISE fnd_api.g_exc_error;
1985: end if;
1986: else
1987: Validate_Inventory_Item_ID (
1988: P_Init_Msg_List => FND_API.G_FALSE,
1984: RAISE fnd_api.g_exc_error;
1985: end if;
1986: else
1987: Validate_Inventory_Item_ID (
1988: P_Init_Msg_List => FND_API.G_FALSE,
1989: p_organization_id => nvl(l_issuing_inventory_org_id,l_receiving_inventory_org_id),
1990: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
1991: X_Return_Status =>x_return_status,
1992: X_Msg_Count =>x_msg_count,
1990: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
1991: X_Return_Status =>x_return_status,
1992: X_Msg_Count =>x_msg_count,
1993: X_Msg_Data =>x_msg_data);
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: x_return_status := fnd_api.g_ret_sts_unexp_error;
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998: END IF;
1991: X_Return_Status =>x_return_status,
1992: X_Msg_Count =>x_msg_count,
1993: X_Msg_Data =>x_msg_data);
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: x_return_status := fnd_api.g_ret_sts_unexp_error;
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998: END IF;
1999: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
1992: X_Msg_Count =>x_msg_count,
1993: X_Msg_Data =>x_msg_data);
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: x_return_status := fnd_api.g_ret_sts_unexp_error;
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998: END IF;
1999: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2000: Validate_Debrief_Header_ID (
1995: x_return_status := fnd_api.g_ret_sts_unexp_error;
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998: END IF;
1999: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2000: Validate_Debrief_Header_ID (
2001: P_Init_Msg_List => FND_API.G_FALSE,
2002: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
2003: X_Return_Status =>x_return_status,
1997: END IF;
1998: END IF;
1999: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2000: Validate_Debrief_Header_ID (
2001: P_Init_Msg_List => FND_API.G_FALSE,
2002: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
2003: X_Return_Status =>x_return_status,
2004: X_Msg_Count =>x_msg_count,
2005: X_Msg_Data =>x_msg_data);
2002: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
2003: X_Return_Status =>x_return_status,
2004: X_Msg_Count =>x_msg_count,
2005: X_Msg_Data =>x_msg_data);
2006: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2007: x_return_status := fnd_api.g_ret_sts_unexp_error;
2008: RAISE fnd_api.g_exc_unexpected_error;
2009: END IF;
2010: END IF;
2003: X_Return_Status =>x_return_status,
2004: X_Msg_Count =>x_msg_count,
2005: X_Msg_Data =>x_msg_data);
2006: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2007: x_return_status := fnd_api.g_ret_sts_unexp_error;
2008: RAISE fnd_api.g_exc_unexpected_error;
2009: END IF;
2010: END IF;
2011: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2004: X_Msg_Count =>x_msg_count,
2005: X_Msg_Data =>x_msg_data);
2006: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2007: x_return_status := fnd_api.g_ret_sts_unexp_error;
2008: RAISE fnd_api.g_exc_unexpected_error;
2009: END IF;
2010: END IF;
2011: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2012: Validate_BUSINESS_PROCESS_ID (
2007: x_return_status := fnd_api.g_ret_sts_unexp_error;
2008: RAISE fnd_api.g_exc_unexpected_error;
2009: END IF;
2010: END IF;
2011: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2012: Validate_BUSINESS_PROCESS_ID (
2013: P_Init_Msg_List => FND_API.G_FALSE,
2014: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
2015: X_Return_Status =>x_return_status,
2009: END IF;
2010: END IF;
2011: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2012: Validate_BUSINESS_PROCESS_ID (
2013: P_Init_Msg_List => FND_API.G_FALSE,
2014: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
2015: X_Return_Status =>x_return_status,
2016: X_Msg_Count =>x_msg_count,
2017: X_Msg_Data =>x_msg_data);
2014: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
2015: X_Return_Status =>x_return_status,
2016: X_Msg_Count =>x_msg_count,
2017: X_Msg_Data =>x_msg_data);
2018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2019: x_return_status := fnd_api.g_ret_sts_unexp_error;
2020: RAISE fnd_api.g_exc_unexpected_error;
2021: END IF;
2022: END IF;
2015: X_Return_Status =>x_return_status,
2016: X_Msg_Count =>x_msg_count,
2017: X_Msg_Data =>x_msg_data);
2018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2019: x_return_status := fnd_api.g_ret_sts_unexp_error;
2020: RAISE fnd_api.g_exc_unexpected_error;
2021: END IF;
2022: END IF;
2023: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2016: X_Msg_Count =>x_msg_count,
2017: X_Msg_Data =>x_msg_data);
2018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2019: x_return_status := fnd_api.g_ret_sts_unexp_error;
2020: RAISE fnd_api.g_exc_unexpected_error;
2021: END IF;
2022: END IF;
2023: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2024: Validate_TRANSACTION_TYPE_ID (
2019: x_return_status := fnd_api.g_ret_sts_unexp_error;
2020: RAISE fnd_api.g_exc_unexpected_error;
2021: END IF;
2022: END IF;
2023: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2024: Validate_TRANSACTION_TYPE_ID (
2025: P_Init_Msg_List => FND_API.G_FALSE,
2026: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
2027: X_Return_Status =>x_return_status,
2021: END IF;
2022: END IF;
2023: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2024: Validate_TRANSACTION_TYPE_ID (
2025: P_Init_Msg_List => FND_API.G_FALSE,
2026: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
2027: X_Return_Status =>x_return_status,
2028: X_Msg_Count =>x_msg_count,
2029: X_Msg_Data =>x_msg_data);
2026: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
2027: X_Return_Status =>x_return_status,
2028: X_Msg_Count =>x_msg_count,
2029: X_Msg_Data =>x_msg_data);
2030: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2031: x_return_status := fnd_api.g_ret_sts_unexp_error;
2032: RAISE fnd_api.g_exc_unexpected_error;
2033: END IF;
2034: END IF;
2027: X_Return_Status =>x_return_status,
2028: X_Msg_Count =>x_msg_count,
2029: X_Msg_Data =>x_msg_data);
2030: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2031: x_return_status := fnd_api.g_ret_sts_unexp_error;
2032: RAISE fnd_api.g_exc_unexpected_error;
2033: END IF;
2034: END IF;
2035: END IF;
2028: X_Msg_Count =>x_msg_count,
2029: X_Msg_Data =>x_msg_data);
2030: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2031: x_return_status := fnd_api.g_ret_sts_unexp_error;
2032: RAISE fnd_api.g_exc_unexpected_error;
2033: END IF;
2034: END IF;
2035: END IF;
2036: -- Fixed bug 1286592
2040: open labor_uom(p_debrief_line_rec.inventory_item_id);
2041: fetch labor_uom into l_uom_code;
2042: close labor_uom;
2043: end if;
2044: if l_debrief_type = 'E' and nvl(p_debrief_line_rec.expense_amount,fnd_api.g_miss_num) <> fnd_api.g_miss_num then
2045: p_debrief_line_rec.UOM_CODE := null;
2046: P_DEBRIEF_LINE_Rec.quantity := null;
2047: end if;
2048: if l_debrief_type = 'L' then
2047: end if;
2048: if l_debrief_type = 'L' then
2049: --we should calculate quantity based on start time and end time
2050: --we should calculate quantity based on start time and end time
2051: if nvl(p_debrief_line_rec.uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2052: open c_uom_code;
2053: fetch c_uom_code into l_uom_code;
2054: close c_uom_code;
2055: -- p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2053: fetch c_uom_code into l_uom_code;
2054: close c_uom_code;
2055: -- p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2056: end if;
2057: if nvl(p_DEBRIEF_LINE_rec.quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num then
2058: l_quantity := (p_debrief_line_rec.LABOR_END_DATE - p_debrief_line_rec.LABOR_START_DATE);
2059: if l_uom_code <> l_hr_uom and l_quantity is not null then
2060: l_quantity := inv_convert.inv_um_convert(
2061: p_debrief_line_rec.INVENTORY_ITEM_ID,
2071: l_quantity := round(nvl(l_quantity,0),2);
2072: p_DEBRIEF_LINE_rec.QUANTITY := round(l_quantity,2);
2073: end if;
2074:
2075: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
2076: if l_uom_code <> l_hr_uom then
2077: l_quantity := inv_convert.inv_um_convert(
2078: p_debrief_line_rec.INVENTORY_ITEM_ID,
2079: 20,
2084: null);
2085: else
2086: l_quantity := p_DEBRIEF_LINE_rec.quantity;
2087: end if;
2088: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
2089: p_debrief_line_rec.labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
2090: end if;
2091: end if;
2092:
2089: p_debrief_line_rec.labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
2090: end if;
2091: end if;
2092:
2093: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
2094: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
2095: nvl(P_DEBRIEF_LINE_Rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num ) then
2096: if l_uom_code <> l_hr_uom then
2097: l_quantity := inv_convert.inv_um_convert(
2090: end if;
2091: end if;
2092:
2093: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
2094: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
2095: nvl(P_DEBRIEF_LINE_Rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num ) then
2096: if l_uom_code <> l_hr_uom then
2097: l_quantity := inv_convert.inv_um_convert(
2098: p_debrief_line_rec.INVENTORY_ITEM_ID,
2091: end if;
2092:
2093: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
2094: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
2095: nvl(P_DEBRIEF_LINE_Rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num ) then
2096: if l_uom_code <> l_hr_uom then
2097: l_quantity := inv_convert.inv_um_convert(
2098: p_debrief_line_rec.INVENTORY_ITEM_ID,
2099: 20,
2104: null);
2105: else
2106: l_quantity := p_DEBRIEF_LINE_rec.quantity;
2107: end if;
2108: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
2109: p_debrief_line_rec.labor_end_date := p_DEBRIEF_LINE_rec.labor_start_date + l_quantity/24;
2110: end if;
2111: end if;
2112:
2113: if nvl(p_debrief_line_rec.channel_code,'a') not in ('CSF_LAPTOP','CSF_PALM') then
2114: validate_start_end(p_debrief_line_rec.labor_start_date,
2115: p_debrief_line_rec.labor_end_date,
2116: p_debrief_line_rec.debrief_header_id,
2117: fnd_api.g_false,
2118: X_Return_Status,
2119: X_Msg_Count,
2120: X_Msg_Data);
2121: if x_return_status <> fnd_api.g_ret_sts_success then
2117: fnd_api.g_false,
2118: X_Return_Status,
2119: X_Msg_Count,
2120: X_Msg_Data);
2121: if x_return_status <> fnd_api.g_ret_sts_success then
2122: x_return_status := fnd_api.g_ret_sts_unexp_error;
2123: raise fnd_api.g_exc_unexpected_error;
2124: end if;
2125: end if;
2118: X_Return_Status,
2119: X_Msg_Count,
2120: X_Msg_Data);
2121: if x_return_status <> fnd_api.g_ret_sts_success then
2122: x_return_status := fnd_api.g_ret_sts_unexp_error;
2123: raise fnd_api.g_exc_unexpected_error;
2124: end if;
2125: end if;
2126: if nvl(l_uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2119: X_Msg_Count,
2120: X_Msg_Data);
2121: if x_return_status <> fnd_api.g_ret_sts_success then
2122: x_return_status := fnd_api.g_ret_sts_unexp_error;
2123: raise fnd_api.g_exc_unexpected_error;
2124: end if;
2125: end if;
2126: if nvl(l_uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2127: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2122: x_return_status := fnd_api.g_ret_sts_unexp_error;
2123: raise fnd_api.g_exc_unexpected_error;
2124: end if;
2125: end if;
2126: if nvl(l_uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2127: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2128: end if;
2129: end if;
2130:
2242:
2243:
2244: /* jtf_rs_resource_pub.update_resource
2245: (P_API_VERSION => 1,
2246: P_INIT_MSG_LIST => fnd_api.g_false,
2247: P_COMMIT => fnd_api.g_false,
2248: P_RESOURCE_ID => z_resource_id,
2249: P_RESOURCE_NUMBER => null,
2250: P_LOCATION => z_location,
2243:
2244: /* jtf_rs_resource_pub.update_resource
2245: (P_API_VERSION => 1,
2246: P_INIT_MSG_LIST => fnd_api.g_false,
2247: P_COMMIT => fnd_api.g_false,
2248: P_RESOURCE_ID => z_resource_id,
2249: P_RESOURCE_NUMBER => null,
2250: P_LOCATION => z_location,
2251: P_object_version_num => z_object_version_number,
2251: P_object_version_num => z_object_version_number,
2252: X_RETURN_STATUS => x_return_status,
2253: X_MSG_COUNT => x_msg_count,
2254: X_MSG_DATA => x_msg_data);
2255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2256: Raise FND_API.G_EXC_ERROR;
2257: END IF;
2258: */
2259: END IF;
2252: X_RETURN_STATUS => x_return_status,
2253: X_MSG_COUNT => x_msg_count,
2254: X_MSG_DATA => x_msg_data);
2255: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2256: Raise FND_API.G_EXC_ERROR;
2257: END IF;
2258: */
2259: END IF;
2260:
2269:
2270: BEGIN
2271: Validate_Task_Assignment_Satus(
2272: P_Api_Version_Number =>1.0,
2273: P_Init_Msg_List => FND_API.G_FALSE,
2274: P_Commit => FND_API.G_FALSE,
2275: P_Task_Assignment_status =>P_Task_Assignment_status,
2276: X_TA_STATUS_ID =>l_assignment_status_id,
2277: X_Return_Status =>X_Return_Status,
2270: BEGIN
2271: Validate_Task_Assignment_Satus(
2272: P_Api_Version_Number =>1.0,
2273: P_Init_Msg_List => FND_API.G_FALSE,
2274: P_Commit => FND_API.G_FALSE,
2275: P_Task_Assignment_status =>P_Task_Assignment_status,
2276: X_TA_STATUS_ID =>l_assignment_status_id,
2277: X_Return_Status =>X_Return_Status,
2278: X_Msg_Count =>X_MSG_COUNT,
2276: X_TA_STATUS_ID =>l_assignment_status_id,
2277: X_Return_Status =>X_Return_Status,
2278: X_Msg_Count =>X_MSG_COUNT,
2279: X_Msg_Data =>X_MSG_DATA);
2280: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2281: RAISE FND_API.G_EXC_ERROR;
2282: END IF;
2283:
2284: select jta.task_assignment_id,
2277: X_Return_Status =>X_Return_Status,
2278: X_Msg_Count =>X_MSG_COUNT,
2279: X_Msg_Data =>X_MSG_DATA);
2280: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2281: RAISE FND_API.G_EXC_ERROR;
2282: END IF;
2283:
2284: select jta.task_assignment_id,
2285: jta.object_version_number,
2294:
2295:
2296: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
2297: P_API_VERSION =>1.0 ,
2298: P_INIT_MSG_LIST =>FND_API.G_FALSE,
2299: P_COMMIT =>FND_API.G_FALSE,
2300: X_RETURN_STATUS =>x_return_status,
2301: X_MSG_COUNT =>x_msg_count,
2302: X_MSG_DATA =>x_msg_data,
2295:
2296: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
2297: P_API_VERSION =>1.0 ,
2298: P_INIT_MSG_LIST =>FND_API.G_FALSE,
2299: P_COMMIT =>FND_API.G_FALSE,
2300: X_RETURN_STATUS =>x_return_status,
2301: X_MSG_COUNT =>x_msg_count,
2302: X_MSG_DATA =>x_msg_data,
2303: P_TASK_ASSIGNMENT_ID =>l_task_assignment_id,
2305: P_OBJECT_VERSION_NUMBER =>l_object_version_number,
2306: P_UPDATE_TASK =>'T',
2307: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
2308: X_TASK_STATUS_ID =>l_task_status_id);
2309: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2310: RAISE FND_API.G_EXC_ERROR;
2311: END IF;
2312:
2313: EXCEPTION
2306: P_UPDATE_TASK =>'T',
2307: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
2308: X_TASK_STATUS_ID =>l_task_status_id);
2309: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2310: RAISE FND_API.G_EXC_ERROR;
2311: END IF;
2312:
2313: EXCEPTION
2314: WHEN OTHERS THEN
2315: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2316: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_UPDATE_TASK_ASSIGNMENT');
2317: FND_MSG_PUB.ADD;
2318: END IF;
2319: RAISE FND_API.G_EXC_ERROR;
2320: END;
2321: end if;
2322:
2323: -- Call concurrent program if assignment status is completed,closed,rejected,canceled
2335: p_debrief_line_rec.debrief_header_id);
2336: end if;
2337:
2338: -- Standard check for p_commit
2339: IF FND_API.to_Boolean( p_commit )
2340: THEN
2341: COMMIT WORK;
2342: END IF;
2343:
2355: p_data => x_msg_data
2356: );
2357: end if; -- if charge_upload_status='INTERFACED'
2358: EXCEPTION
2359: WHEN FND_API.G_EXC_ERROR THEN
2360: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2361: x_return_status := FND_API.G_RET_STS_ERROR;
2362: FND_MSG_PUB.Count_And_Get (
2363: P_COUNT => X_MSG_COUNT
2357: end if; -- if charge_upload_status='INTERFACED'
2358: EXCEPTION
2359: WHEN FND_API.G_EXC_ERROR THEN
2360: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2361: x_return_status := FND_API.G_RET_STS_ERROR;
2362: FND_MSG_PUB.Count_And_Get (
2363: P_COUNT => X_MSG_COUNT
2364: ,P_DATA => X_MSG_DATA);
2365:
2362: FND_MSG_PUB.Count_And_Get (
2363: P_COUNT => X_MSG_COUNT
2364: ,P_DATA => X_MSG_DATA);
2365:
2366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2367: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2369: FND_MSG_PUB.Count_And_Get (
2370: P_COUNT => X_MSG_COUNT
2364: ,P_DATA => X_MSG_DATA);
2365:
2366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2367: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2369: FND_MSG_PUB.Count_And_Get (
2370: P_COUNT => X_MSG_COUNT
2371: ,P_DATA => X_MSG_DATA);
2372:
2371: ,P_DATA => X_MSG_DATA);
2372:
2373: WHEN OTHERS THEN
2374: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2376: IF FND_MSG_PUB.Check_Msg_Level
2377: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2378: THEN
2379: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,L_API_NAME );
2386: End Update_debrief_line;
2387:
2388:
2389: PROCEDURE Validate_Service_Date (
2390: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2391: P_Service_Date IN DATE,
2392: X_Return_Status OUT NOCOPY VARCHAR2,
2393: X_Msg_Count OUT NOCOPY NUMBER,
2394: X_Msg_Data OUT NOCOPY VARCHAR2
2395: )
2396: IS
2397: BEGIN
2398: -- Initialize message list if p_init_msg_list is set to TRUE.
2399: IF FND_API.to_Boolean( p_init_msg_list )
2400: THEN
2401: FND_MSG_PUB.initialize;
2402: END IF;
2403:
2401: FND_MSG_PUB.initialize;
2402: END IF;
2403:
2404: -- Initialize API return status to SUCCESS
2405: x_return_status := FND_API.G_RET_STS_SUCCESS;
2406: IF (p_service_date is NULL OR p_service_date = FND_API.G_MISS_DATE) THEN
2407: x_return_status := FND_API.G_RET_STS_ERROR;
2408: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2409: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_SERVICE_DATE');
2402: END IF;
2403:
2404: -- Initialize API return status to SUCCESS
2405: x_return_status := FND_API.G_RET_STS_SUCCESS;
2406: IF (p_service_date is NULL OR p_service_date = FND_API.G_MISS_DATE) THEN
2407: x_return_status := FND_API.G_RET_STS_ERROR;
2408: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2409: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_SERVICE_DATE');
2410: FND_MSG_PUB.ADD;
2403:
2404: -- Initialize API return status to SUCCESS
2405: x_return_status := FND_API.G_RET_STS_SUCCESS;
2406: IF (p_service_date is NULL OR p_service_date = FND_API.G_MISS_DATE) THEN
2407: x_return_status := FND_API.G_RET_STS_ERROR;
2408: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2409: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_SERVICE_DATE');
2410: FND_MSG_PUB.ADD;
2411: END IF;
2419:
2420: END Validate_Service_Date;
2421:
2422: PROCEDURE validate_subinventory_code (
2423: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2424: p_organization_id IN number,
2425: p_subinventory_code in varchar2,
2426: X_Return_Status OUT NOCOPY VARCHAR2,
2427: X_Msg_Count OUT NOCOPY NUMBER,
2441: and secondary_inventory_name = p_subinventory_code;
2442:
2443: BEGIN
2444: -- Initialize message list if p_init_msg_list is set to TRUE.
2445: IF FND_API.to_Boolean( p_init_msg_list )
2446: THEN
2447: FND_MSG_PUB.initialize;
2448: END IF;
2449:
2447: FND_MSG_PUB.initialize;
2448: END IF;
2449:
2450: -- Initialize API return status to SUCCESS
2451: x_return_status := FND_API.G_RET_STS_SUCCESS;
2452: open c_subinventory_code;
2453: fetch c_subinventory_code into l_organization_code,l_subinventory_code;
2454: close c_subinventory_code;
2455: IF l_subinventory_code is NULL THEN
2452: open c_subinventory_code;
2453: fetch c_subinventory_code into l_organization_code,l_subinventory_code;
2454: close c_subinventory_code;
2455: IF l_subinventory_code is NULL THEN
2456: x_return_status := FND_API.G_RET_STS_ERROR;
2457: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2458: FND_MESSAGE.Set_Name('CSP', 'CSP_INVALID_ORG_SUBINV');
2459: FND_MESSAGE.set_token('ORG',l_organization_code,TRUE);
2460: FND_MESSAGE.set_token('SUBINV',l_subinventory_code,TRUE);
2469:
2470: END validate_subinventory_code;
2471:
2472: PROCEDURE Validate_Inventory_Item_ID (
2473: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2474: p_organization_id IN NUMBER,
2475: P_Inventory_Item_ID IN NUMBER,
2476: X_Return_Status OUT NOCOPY VARCHAR2,
2477: X_Msg_Count OUT NOCOPY NUMBER,
2486: and msib.material_billable_flag = cbtc.billing_type;
2487:
2488: BEGIN
2489: -- Initialize message list if p_init_msg_list is set to TRUE.
2490: IF FND_API.to_Boolean( p_init_msg_list )
2491: THEN
2492: FND_MSG_PUB.initialize;
2493: END IF;
2494:
2492: FND_MSG_PUB.initialize;
2493: END IF;
2494:
2495: -- Initialize API return status to SUCCESS
2496: x_return_status := FND_API.G_RET_STS_SUCCESS;
2497: l_inventory_item_id := null;
2498: open c_inventory_item;
2499: fetch c_inventory_item into l_inventory_item_id;
2500: close c_inventory_item;
2498: open c_inventory_item;
2499: fetch c_inventory_item into l_inventory_item_id;
2500: close c_inventory_item;
2501: IF l_inventory_item_id is null THEN
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2503: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2504: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVENTORY_ITEM_ID');
2505: FND_MSG_PUB.ADD;
2506: END IF;
2513:
2514: END Validate_Inventory_Item_ID;
2515:
2516: PROCEDURE Validate_Instance_ID (
2517: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2518: P_Instance_ID IN NUMBER,
2519: X_Return_Status OUT NOCOPY VARCHAR2,
2520: X_Msg_Count OUT NOCOPY NUMBER,
2521: X_Msg_Data OUT NOCOPY VARCHAR2
2530:
2531: Begin
2532:
2533: -- Initialize message list if p_init_msg_list is set to TRUE.
2534: IF FND_API.to_Boolean( p_init_msg_list )
2535: THEN
2536: FND_MSG_PUB.initialize;
2537: END IF;
2538:
2536: FND_MSG_PUB.initialize;
2537: END IF;
2538:
2539: -- Initialize API return status to SUCCESS
2540: x_return_status := FND_API.G_RET_STS_SUCCESS;
2541: IF (p_instance_id is NOT NULL and p_instance_id <> FND_API.G_MISS_NUM ) THEN
2542: open get_instance_id;
2543: fetch get_instance_id into l_dummy;
2544: if get_instance_id%notfound then
2537: END IF;
2538:
2539: -- Initialize API return status to SUCCESS
2540: x_return_status := FND_API.G_RET_STS_SUCCESS;
2541: IF (p_instance_id is NOT NULL and p_instance_id <> FND_API.G_MISS_NUM ) THEN
2542: open get_instance_id;
2543: fetch get_instance_id into l_dummy;
2544: if get_instance_id%notfound then
2545: close get_instance_id;
2542: open get_instance_id;
2543: fetch get_instance_id into l_dummy;
2544: if get_instance_id%notfound then
2545: close get_instance_id;
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2548: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INSTANCE_ID');
2549: FND_MSG_PUB.ADD;
2550: END IF;
2559: );
2560: END Validate_Instance_ID;
2561:
2562: PROCEDURE Validate_Debrief_Header_ID (
2563: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2564: P_Debrief_Header_ID IN NUMBER,
2565: X_Return_Status OUT NOCOPY VARCHAR2,
2566: X_Msg_Count OUT NOCOPY NUMBER,
2567: X_Msg_Data OUT NOCOPY VARCHAR2
2574: where debrief_header_id=p_debrief_header_id;
2575: BEGIN
2576:
2577: -- Initialize message list if p_init_msg_list is set to TRUE.
2578: IF FND_API.to_Boolean( p_init_msg_list )
2579: THEN
2580: FND_MSG_PUB.initialize;
2581: END IF;
2582:
2580: FND_MSG_PUB.initialize;
2581: END IF;
2582:
2583: -- Initialize API return status to SUCCESS
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: IF (P_DEBRIEF_HEADER_ID is NULL OR P_DEBRIEF_HEADER_ID = FND_API.G_MISS_NUM) THEN
2586: x_return_status := FND_API.G_RET_STS_ERROR;
2587: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2588: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2581: END IF;
2582:
2583: -- Initialize API return status to SUCCESS
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: IF (P_DEBRIEF_HEADER_ID is NULL OR P_DEBRIEF_HEADER_ID = FND_API.G_MISS_NUM) THEN
2586: x_return_status := FND_API.G_RET_STS_ERROR;
2587: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2588: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2589: FND_MSG_PUB.ADD;
2582:
2583: -- Initialize API return status to SUCCESS
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: IF (P_DEBRIEF_HEADER_ID is NULL OR P_DEBRIEF_HEADER_ID = FND_API.G_MISS_NUM) THEN
2586: x_return_status := FND_API.G_RET_STS_ERROR;
2587: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2588: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2589: FND_MSG_PUB.ADD;
2590: END IF;
2592: open validate_header_id;
2593: fetch validate_header_id into l_dummy;
2594: if validate_header_id%notfound then
2595: -- close validate_header_id;
2596: x_return_status := FND_API.G_RET_STS_ERROR;
2597: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2598: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2599: FND_MSG_PUB.ADD;
2600: END IF;
2611:
2612:
2613:
2614: PROCEDURE Validate_DEBRIEF_LINE_NUMBER (
2615: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2616: P_Validation_mode IN VARCHAR2,
2617: P_DEBRIEF_LINE_NUMBER IN NUMBER,
2618: X_Return_Status OUT NOCOPY VARCHAR2,
2619: X_Msg_Count OUT NOCOPY NUMBER,
2622: IS
2623: l_api_name varchar2(30) := 'Create Debrief Line' ;
2624: BEGIN
2625: -- Initialize message list if p_init_msg_list is set to TRUE.
2626: IF FND_API.to_Boolean( p_init_msg_list )
2627: THEN
2628: FND_MSG_PUB.initialize;
2629: END IF;
2630:
2628: FND_MSG_PUB.initialize;
2629: END IF;
2630:
2631: -- Initialize API return status to SUCCESS
2632: x_return_status := FND_API.G_RET_STS_SUCCESS;
2633: IF(p_validation_mode = G_CREATE) THEN
2634: IF (p_debrief_line_number is NULL OR p_debrief_line_number = FND_API.G_MISS_NUM ) THEN
2635: x_return_status := FND_API.G_RET_STS_ERROR;
2636: ELSIF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2630:
2631: -- Initialize API return status to SUCCESS
2632: x_return_status := FND_API.G_RET_STS_SUCCESS;
2633: IF(p_validation_mode = G_CREATE) THEN
2634: IF (p_debrief_line_number is NULL OR p_debrief_line_number = FND_API.G_MISS_NUM ) THEN
2635: x_return_status := FND_API.G_RET_STS_ERROR;
2636: ELSIF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2637: THEN
2638: FND_MESSAGE.Set_Name('CSF', l_api_name);
2631: -- Initialize API return status to SUCCESS
2632: x_return_status := FND_API.G_RET_STS_SUCCESS;
2633: IF(p_validation_mode = G_CREATE) THEN
2634: IF (p_debrief_line_number is NULL OR p_debrief_line_number = FND_API.G_MISS_NUM ) THEN
2635: x_return_status := FND_API.G_RET_STS_ERROR;
2636: ELSIF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2637: THEN
2638: FND_MESSAGE.Set_Name('CSF', l_api_name);
2639: FND_MESSAGE.Set_Token('COLUMN', 'DEBRIEF_LINE_NUMBER', FALSE);
2649:
2650: END Validate_DEBRIEF_LINE_NUMBER;
2651:
2652: PROCEDURE Validate_BUSINESS_PROCESS_ID (
2653: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2654: P_BUSINESS_PROCESS_ID IN NUMBER,
2655: X_Return_Status OUT NOCOPY VARCHAR2,
2656: X_Msg_Count OUT NOCOPY NUMBER,
2657: X_Msg_Data OUT NOCOPY VARCHAR2
2663: from cs_business_processes
2664: where BUSINESS_PROCESS_ID=P_BUSINESS_PROCESS_ID;
2665: BEGIN
2666: -- Initialize message list if p_init_msg_list is set to TRUE.
2667: IF FND_API.to_Boolean( p_init_msg_list )
2668: THEN
2669: FND_MSG_PUB.initialize;
2670: END IF;
2671:
2669: FND_MSG_PUB.initialize;
2670: END IF;
2671:
2672: -- Initialize API return status to SUCCESS
2673: x_return_status := FND_API.G_RET_STS_SUCCESS;
2674: IF (p_business_process_id is NULL OR p_business_process_id = FND_API.G_MISS_NUM ) THEN
2675: x_return_status := FND_API.G_RET_STS_ERROR;
2676: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2677: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2670: END IF;
2671:
2672: -- Initialize API return status to SUCCESS
2673: x_return_status := FND_API.G_RET_STS_SUCCESS;
2674: IF (p_business_process_id is NULL OR p_business_process_id = FND_API.G_MISS_NUM ) THEN
2675: x_return_status := FND_API.G_RET_STS_ERROR;
2676: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2677: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2678: FND_MSG_PUB.ADD;
2671:
2672: -- Initialize API return status to SUCCESS
2673: x_return_status := FND_API.G_RET_STS_SUCCESS;
2674: IF (p_business_process_id is NULL OR p_business_process_id = FND_API.G_MISS_NUM ) THEN
2675: x_return_status := FND_API.G_RET_STS_ERROR;
2676: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2677: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2678: FND_MSG_PUB.ADD;
2679: END IF;
2681: open get_business_process_id;
2682: fetch get_business_process_id into l_dummy;
2683: if get_business_process_id%notfound then
2684: close get_business_process_id;
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2687: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2688: FND_MSG_PUB.ADD;
2689: END IF;
2697: p_data => x_msg_data
2698: );
2699: END Validate_BUSINESS_PROCESS_ID;
2700: PROCEDURE Validate_TRANSACTION_TYPE_ID (
2701: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2702: P_TRANSACTION_TYPE_ID IN NUMBER,
2703: X_Return_Status OUT NOCOPY VARCHAR2,
2704: X_Msg_Count OUT NOCOPY NUMBER,
2705: X_Msg_Data OUT NOCOPY VARCHAR2
2711: from cs_transaction_types vl
2712: where transaction_type_id=P_Transaction_type_id;
2713: BEGIN
2714: -- Initialize message list if p_init_msg_list is set to TRUE.
2715: IF FND_API.to_Boolean( p_init_msg_list )
2716: THEN
2717: FND_MSG_PUB.initialize;
2718: END IF;
2719:
2717: FND_MSG_PUB.initialize;
2718: END IF;
2719:
2720: -- Initialize API return status to SUCCESS
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722: IF (p_transaction_type_id is NULL OR p_transaction_type_id = FND_API.G_MISS_NUM ) THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2725: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2718: END IF;
2719:
2720: -- Initialize API return status to SUCCESS
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722: IF (p_transaction_type_id is NULL OR p_transaction_type_id = FND_API.G_MISS_NUM ) THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2725: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2726: FND_MSG_PUB.ADD;
2719:
2720: -- Initialize API return status to SUCCESS
2721: x_return_status := FND_API.G_RET_STS_SUCCESS;
2722: IF (p_transaction_type_id is NULL OR p_transaction_type_id = FND_API.G_MISS_NUM ) THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2725: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2726: FND_MSG_PUB.ADD;
2727: END IF;
2729: open get_transaction_type_id;
2730: fetch get_transaction_type_id into l_dummy;
2731: if get_transaction_type_id%notfound then
2732: close get_transaction_type_id;
2733: x_return_status := FND_API.G_RET_STS_ERROR;
2734: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2735: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2736: FND_MSG_PUB.ADD;
2737: END IF;
2747: END Validate_TRANSACTION_TYPE_ID;
2748:
2749:
2750: Procedure CREATE_INTERACTION(P_Api_Version_Number IN NUMBER,
2751: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2752: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2753: P_TASK_ASSIGNMENT_ID IN NUMBER,
2754: P_DEBRIEF_HEADER_ID IN NUMBER,
2755: P_MEDIA_ID IN NUMBER,
2748:
2749:
2750: Procedure CREATE_INTERACTION(P_Api_Version_Number IN NUMBER,
2751: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2752: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2753: P_TASK_ASSIGNMENT_ID IN NUMBER,
2754: P_DEBRIEF_HEADER_ID IN NUMBER,
2755: P_MEDIA_ID IN NUMBER,
2756: P_ACTION_ID IN NUMBER,
2776: -- Standard Start of API savepoint
2777: SAVEPOINT CREATE_INTERACTION;
2778: -- Standard call to check for call compatibility.
2779:
2780: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2781: p_api_version_number,
2782: l_api_name,
2783: G_PKG_NAME)
2784: THEN
2781: p_api_version_number,
2782: l_api_name,
2783: G_PKG_NAME)
2784: THEN
2785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2786: END IF;
2787:
2788:
2789: -- Initialize message list if p_init_msg_list is set to TRUE.
2786: END IF;
2787:
2788:
2789: -- Initialize message list if p_init_msg_list is set to TRUE.
2790: IF FND_API.to_Boolean( p_init_msg_list )
2791: THEN
2792: FND_MSG_PUB.initialize;
2793: END IF;
2794:
2792: FND_MSG_PUB.initialize;
2793: END IF;
2794:
2795: -- Initialize API return status to SUCCESS
2796: x_return_status := FND_API.G_RET_STS_SUCCESS;
2797:
2798: select jtb.task_id,
2799: jtb.customer_id,
2800: jtb.cust_account_id,
2817: l_interaction_rec.party_id := l_party_id;
2818: -- open interaction
2819: jtf_ih_pub.Open_Interaction(
2820: p_api_version => 1.0,
2821: p_init_msg_list => FND_API.G_TRUE,
2822: p_commit => FND_API.G_FALSE,
2823: p_user_id => G_USER_ID,
2824: x_return_status =>l_return_status,
2825: x_msg_count =>l_msg_count,
2818: -- open interaction
2819: jtf_ih_pub.Open_Interaction(
2820: p_api_version => 1.0,
2821: p_init_msg_list => FND_API.G_TRUE,
2822: p_commit => FND_API.G_FALSE,
2823: p_user_id => G_USER_ID,
2824: x_return_status =>l_return_status,
2825: x_msg_count =>l_msg_count,
2826: x_msg_data =>l_msg_data,
2825: x_msg_count =>l_msg_count,
2826: x_msg_data =>l_msg_data,
2827: p_interaction_rec =>l_interaction_rec,
2828: x_interaction_id =>l_interaction_id );
2829: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2830: RAISE FND_API.G_EXC_ERROR;
2831: END IF;
2832:
2833: FND_MSG_PUB.GET(P_MSG_INDEX=>1,
2826: x_msg_data =>l_msg_data,
2827: p_interaction_rec =>l_interaction_rec,
2828: x_interaction_id =>l_interaction_id );
2829: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2830: RAISE FND_API.G_EXC_ERROR;
2831: END IF;
2832:
2833: FND_MSG_PUB.GET(P_MSG_INDEX=>1,
2834: P_ENCODED=>'F',
2848: l_return_status:=NULL;
2849: -- add activity
2850: jtf_ih_pub.add_activity(
2851: p_api_version => 1.0,
2852: p_init_msg_list => FND_API.G_FALSE,
2853: p_commit => FND_API.G_FALSE,
2854: p_user_id =>G_USER_ID,
2855: x_return_status =>l_return_status,
2856: x_msg_count =>l_msg_count,
2849: -- add activity
2850: jtf_ih_pub.add_activity(
2851: p_api_version => 1.0,
2852: p_init_msg_list => FND_API.G_FALSE,
2853: p_commit => FND_API.G_FALSE,
2854: p_user_id =>G_USER_ID,
2855: x_return_status =>l_return_status,
2856: x_msg_count =>l_msg_count,
2857: x_msg_data =>l_msg_data,
2856: x_msg_count =>l_msg_count,
2857: x_msg_data =>l_msg_data,
2858: p_activity_rec =>l_activity_rec,
2859: x_activity_id =>l_activity_id);
2860: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2861: raise FND_API.G_EXC_ERROR;
2862: end if;
2863: -- close interaction
2864: l_return_status:=NULL;
2857: x_msg_data =>l_msg_data,
2858: p_activity_rec =>l_activity_rec,
2859: x_activity_id =>l_activity_id);
2860: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2861: raise FND_API.G_EXC_ERROR;
2862: end if;
2863: -- close interaction
2864: l_return_status:=NULL;
2865: jtf_ih_pub.Close_Interaction(
2863: -- close interaction
2864: l_return_status:=NULL;
2865: jtf_ih_pub.Close_Interaction(
2866: p_api_version => 1.0,
2867: p_init_msg_list => FND_API.G_FALSE,
2868: p_commit => FND_API.G_FALSE,
2869: p_user_id => G_USER_ID,
2870: x_return_status =>l_return_status,
2871: x_msg_count =>l_msg_count,
2864: l_return_status:=NULL;
2865: jtf_ih_pub.Close_Interaction(
2866: p_api_version => 1.0,
2867: p_init_msg_list => FND_API.G_FALSE,
2868: p_commit => FND_API.G_FALSE,
2869: p_user_id => G_USER_ID,
2870: x_return_status =>l_return_status,
2871: x_msg_count =>l_msg_count,
2872: x_msg_data =>l_msg_data,
2871: x_msg_count =>l_msg_count,
2872: x_msg_data =>l_msg_data,
2873: p_interaction_rec =>l_interaction_rec );
2874:
2875: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2876: raise FND_API.G_EXC_ERROR;
2877: end if;
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2872: x_msg_data =>l_msg_data,
2873: p_interaction_rec =>l_interaction_rec );
2874:
2875: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2876: raise FND_API.G_EXC_ERROR;
2877: end if;
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: ROLLBACK TO CREATE_INTERACTION;
2875: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2876: raise FND_API.G_EXC_ERROR;
2877: end if;
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: ROLLBACK TO CREATE_INTERACTION;
2881: x_return_status := FND_API.G_RET_STS_ERROR;
2882: FND_MSG_PUB.Count_And_Get (
2883: P_COUNT => X_MSG_COUNT
2877: end if;
2878: EXCEPTION
2879: WHEN FND_API.G_EXC_ERROR THEN
2880: ROLLBACK TO CREATE_INTERACTION;
2881: x_return_status := FND_API.G_RET_STS_ERROR;
2882: FND_MSG_PUB.Count_And_Get (
2883: P_COUNT => X_MSG_COUNT
2884: ,P_DATA => X_MSG_DATA);
2885:
2882: FND_MSG_PUB.Count_And_Get (
2883: P_COUNT => X_MSG_COUNT
2884: ,P_DATA => X_MSG_DATA);
2885:
2886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2887: ROLLBACK TO CREATE_INTERACTION;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2889: FND_MSG_PUB.Count_And_Get (
2890: P_COUNT => X_MSG_COUNT
2884: ,P_DATA => X_MSG_DATA);
2885:
2886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2887: ROLLBACK TO CREATE_INTERACTION;
2888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2889: FND_MSG_PUB.Count_And_Get (
2890: P_COUNT => X_MSG_COUNT
2891: ,P_DATA => X_MSG_DATA);
2892:
2891: ,P_DATA => X_MSG_DATA);
2892:
2893: WHEN OTHERS THEN
2894: ROLLBACK TO CREATE_INTERACTION;
2895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2896: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2897: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,L_API_NAME);
2898: END IF;
2899: FND_MSG_PUB.Count_And_Get (
2966: l_labor_start_date date;
2967: l_labor_end_date date;
2968:
2969: begin
2970: x_return_status := FND_API.G_RET_STS_SUCCESS;
2971: open c_actual_times;
2972: fetch c_actual_times into l_debrief_header_id,
2973: l_labor_start_date,
2974: l_labor_end_date;
3009: cursor c_task_assignment is
3010: select task_id,
3011: jta.task_assignment_id,
3012: least(nvl(actual_start_date,p_start_date),
3013: nvl(p_start_date,fnd_api.g_miss_date)),
3014: greatest(nvl(actual_end_date,p_end_date),
3015: nvl(p_end_date,fnd_api.g_miss_date)),
3016: jta.object_version_number,
3017: jta.resource_type_code,
3011: jta.task_assignment_id,
3012: least(nvl(actual_start_date,p_start_date),
3013: nvl(p_start_date,fnd_api.g_miss_date)),
3014: greatest(nvl(actual_end_date,p_end_date),
3015: nvl(p_end_date,fnd_api.g_miss_date)),
3016: jta.object_version_number,
3017: jta.resource_type_code,
3018: jta.resource_id
3019: from jtf_task_assignments jta,
3026: nvl(p_end_date,actual_end_date));
3027:
3028: cursor c_task is
3029: select least(nvl(actual_start_date,p_start_date),
3030: nvl(p_start_date,fnd_api.g_miss_date)),
3031: greatest(nvl(actual_end_date,p_end_date),
3032: nvl(p_end_date,fnd_api.g_miss_date)),
3033: object_version_number
3034: from jtf_tasks_b
3028: cursor c_task is
3029: select least(nvl(actual_start_date,p_start_date),
3030: nvl(p_start_date,fnd_api.g_miss_date)),
3031: greatest(nvl(actual_end_date,p_end_date),
3032: nvl(p_end_date,fnd_api.g_miss_date)),
3033: object_version_number
3034: from jtf_tasks_b
3035: where task_id = l_task_id
3036: and (nvl(actual_start_date,p_start_date) >=
3039: nvl(p_end_date,actual_end_date));
3040:
3041: BEGIN
3042: -- Initialize API return status to SUCCESS
3043: x_return_status := FND_API.G_RET_STS_SUCCESS;
3044:
3045: open c_task_assignment;
3046: fetch c_task_assignment into l_task_id,
3047: l_task_assignment_id,
3087: end if;
3088:
3089: END;
3090: PROCEDURE VALIDATE_COUNTERS (
3091: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3092: p_task_id in number,
3093: p_incident_id in number,
3094: x_return_status out nocopy varchar2,
3095: x_msg_count out nocopy number,
3153: end;
3154:
3155:
3156: PROCEDURE VALIDATE_LABOR_TIMES (
3157: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3158: P_api_version_number In number,
3159: p_resource_type_code in Varchar2,
3160: p_resource_id in Number,
3161: p_debrief_line_id in Number,
3224: PROCEDURE TASK_ASSIGNMENT_PRE_DELETE(x_return_status out nocopy varchar2) is
3225: l_task_assignment_id number := null;
3226: l_debrief_header_id number := null;
3227: begin
3228: x_return_status := FND_API.G_RET_STS_SUCCESS;
3229: l_task_assignment_id := JTF_TASK_ASSIGNMENTS_PUB.p_task_assignments_user_hooks.task_assignment_id;
3230: select debrief_header_id
3231: into l_debrief_header_id
3232: from csf_debrief_headers
3232: from csf_debrief_headers
3233: where task_assignment_id = l_task_assignment_id;
3234:
3235: if l_debrief_header_id is not null then
3236: x_return_status := FND_API.G_RET_STS_ERROR;
3237: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_EXISTS');
3238: FND_MSG_PUB.ADD;
3239: end if;
3240:
3260:
3261: BEGIN
3262: FND_MSG_PUB.initialize;
3263: -- Initialize API return status to SUCCESS
3264: x_return_status := FND_API.G_RET_STS_SUCCESS;
3265: open get_debrief_status;
3266: fetch get_debrief_status into l_processed_flag;
3267: close get_debrief_status;
3268: if nvl(l_processed_flag,'COMPLETED') = 'COMPLETED' THEN
3265: open get_debrief_status;
3266: fetch get_debrief_status into l_processed_flag;
3267: close get_debrief_status;
3268: if nvl(l_processed_flag,'COMPLETED') = 'COMPLETED' THEN
3269: x_return_status := FND_API.G_RET_STS_SUCCESS;
3270: else
3271: x_return_status := FND_API.G_RET_STS_ERROR;
3272: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_PENDING');
3273: FND_MSG_PUB.ADD;
3267: close get_debrief_status;
3268: if nvl(l_processed_flag,'COMPLETED') = 'COMPLETED' THEN
3269: x_return_status := FND_API.G_RET_STS_SUCCESS;
3270: else
3271: x_return_status := FND_API.G_RET_STS_ERROR;
3272: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_PENDING');
3273: FND_MSG_PUB.ADD;
3274: end if;
3275: -- Standard call to get message count and if count is 1, get message info.
3547: ---- added for bug 3629886 ends ------------------------------------------------------
3548:
3549: BEGIN
3550: -- Initialize API return status to SUCCESS
3551: x_return_status := FND_API.G_RET_STS_SUCCESS;
3552:
3553: open c_task_assgin_object_version;
3554: fetch c_task_assgin_object_version into l_task_id, l_task_assignment_id, l_object_version,
3555: l_resource_type_code, l_resource_id ;
3561: if l_debrief_line_id is null then
3562: l_start_date := null;
3563: l_end_date := null;
3564: else
3565: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
3566: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
3567:
3568: -- bug # 6960521
3569: open c_task_assignment_return(l_start_date, l_end_date);
3562: l_start_date := null;
3563: l_end_date := null;
3564: else
3565: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
3566: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
3567:
3568: -- bug # 6960521
3569: open c_task_assignment_return(l_start_date, l_end_date);
3570: fetch c_task_assignment_return into l_start_date_ret, l_end_date_ret, l_debrief_line_id;
3651: if l_debrief_line_id is null then
3652: l_start_date := null;
3653: l_end_date := null;
3654: else
3655: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
3656: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
3657:
3658: -- bug # 6960521
3659: open c_task_return(l_start_date, l_end_date);
3652: l_start_date := null;
3653: l_end_date := null;
3654: else
3655: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
3656: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
3657:
3658: -- bug # 6960521
3659: open c_task_return(l_start_date, l_end_date);
3660: fetch c_task_return into l_start_date_ret, l_end_date_ret, l_debrief_line_id;
3800:
3801: Procedure validate_travel_times(p_actual_travel_start_time date,
3802: p_actual_travel_end_time date,
3803: p_task_assignment_id NUMBER,
3804: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3805: X_Return_Status OUT NOCOPY VARCHAR2,
3806: X_Msg_Count OUT NOCOPY NUMBER,
3807: X_Msg_Data OUT NOCOPY VARCHAR2) IS
3808:
3816: and cia.incident_id = jtb.source_object_id
3817: and jtb.source_object_type_code = 'SR';
3818:
3819: BEGIN
3820: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
3821: open get_service_request_date;
3822: fetch get_service_request_date INTO l_service_request_date;
3823: close get_service_request_date;
3824:
3822: fetch get_service_request_date INTO l_service_request_date;
3823: close get_service_request_date;
3824:
3825: If (p_actual_travel_start_time IS NULL
3826: or p_actual_travel_start_time = FND_API.g_miss_date)
3827: and (p_actual_travel_end_time <> FND_API.g_miss_date
3828: and p_actual_travel_end_time IS NOT NULL) THEN
3829: X_Return_Status := FND_API.G_RET_STS_ERROR;
3830: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3823: close get_service_request_date;
3824:
3825: If (p_actual_travel_start_time IS NULL
3826: or p_actual_travel_start_time = FND_API.g_miss_date)
3827: and (p_actual_travel_end_time <> FND_API.g_miss_date
3828: and p_actual_travel_end_time IS NOT NULL) THEN
3829: X_Return_Status := FND_API.G_RET_STS_ERROR;
3830: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3831: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_TIME');
3825: If (p_actual_travel_start_time IS NULL
3826: or p_actual_travel_start_time = FND_API.g_miss_date)
3827: and (p_actual_travel_end_time <> FND_API.g_miss_date
3828: and p_actual_travel_end_time IS NOT NULL) THEN
3829: X_Return_Status := FND_API.G_RET_STS_ERROR;
3830: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3831: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_TIME');
3832: FND_MSG_PUB.ADD;
3833: END IF;
3834: END IF;
3835:
3836: If (p_actual_travel_start_time IS NOT NULL
3837: and p_actual_travel_end_time IS NOT NULL
3838: and p_actual_travel_start_time <> FND_API.g_miss_date
3839: and p_actual_travel_end_time <> FND_API.g_miss_date
3840: AND p_actual_travel_start_time > p_actual_travel_end_time) THEN
3841: X_Return_Status := FND_API.G_RET_STS_ERROR;
3842: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3835:
3836: If (p_actual_travel_start_time IS NOT NULL
3837: and p_actual_travel_end_time IS NOT NULL
3838: and p_actual_travel_start_time <> FND_API.g_miss_date
3839: and p_actual_travel_end_time <> FND_API.g_miss_date
3840: AND p_actual_travel_start_time > p_actual_travel_end_time) THEN
3841: X_Return_Status := FND_API.G_RET_STS_ERROR;
3842: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3843: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_AFTER_END');
3837: and p_actual_travel_end_time IS NOT NULL
3838: and p_actual_travel_start_time <> FND_API.g_miss_date
3839: and p_actual_travel_end_time <> FND_API.g_miss_date
3840: AND p_actual_travel_start_time > p_actual_travel_end_time) THEN
3841: X_Return_Status := FND_API.G_RET_STS_ERROR;
3842: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3843: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_AFTER_END');
3844: FND_MSG_PUB.ADD;
3845: END IF;
3845: END IF;
3846: END IF;
3847:
3848: If p_actual_travel_start_time IS NOT NULL
3849: and p_actual_travel_start_time <> FND_API.g_miss_date
3850: and trunc(fnd_timezones_pvt.adjust_datetime(p_actual_travel_start_time,
3851: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
3852: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
3853: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
3852: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
3853: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
3854: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
3855: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
3856: X_Return_Status := FND_API.G_RET_STS_ERROR;
3857: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3858: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_CURR_DATE');
3859: FND_MSG_PUB.ADD;
3860: END IF;
3859: FND_MSG_PUB.ADD;
3860: END IF;
3861: END IF;
3862: If p_actual_travel_end_time IS NOT NULL
3863: and p_actual_travel_end_time <> FND_API.g_miss_date
3864: and trunc(fnd_timezones_pvt.adjust_datetime(p_actual_travel_end_time,
3865: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
3866: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
3867: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
3866: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
3867: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
3868: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
3869: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
3870: X_Return_Status := FND_API.G_RET_STS_ERROR;
3871: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3872: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_END_CURR_DATE');
3873: FND_MSG_PUB.ADD;
3874: END IF;
3874: END IF;
3875: END IF;
3876:
3877: If (p_actual_travel_start_time IS NOT NULL
3878: and p_actual_travel_start_time <> FND_API.g_miss_date
3879: and p_actual_travel_start_time < l_service_request_date) THEN
3880: X_Return_Status := FND_API.G_RET_STS_ERROR;
3881: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3882: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_SR_DATE');
3876:
3877: If (p_actual_travel_start_time IS NOT NULL
3878: and p_actual_travel_start_time <> FND_API.g_miss_date
3879: and p_actual_travel_start_time < l_service_request_date) THEN
3880: X_Return_Status := FND_API.G_RET_STS_ERROR;
3881: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3882: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_SR_DATE');
3883: FND_MSG_PUB.ADD;
3884: END IF;
3883: FND_MSG_PUB.ADD;
3884: END IF;
3885: END IF;
3886: If (p_actual_travel_end_time IS NOT NULL
3887: and p_actual_travel_end_time <> FND_API.g_miss_date
3888: and p_actual_travel_end_time < l_service_request_date) THEN
3889: X_Return_Status := FND_API.G_RET_STS_ERROR;
3890: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3891: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_END_SR_DATE');
3885: END IF;
3886: If (p_actual_travel_end_time IS NOT NULL
3887: and p_actual_travel_end_time <> FND_API.g_miss_date
3888: and p_actual_travel_end_time < l_service_request_date) THEN
3889: X_Return_Status := FND_API.G_RET_STS_ERROR;
3890: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3891: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_END_SR_DATE');
3892: FND_MSG_PUB.ADD;
3893: END IF;