[Home] [Help]
27:
28: Procedure validate_start_end(p_labor_start_time date,
29: p_labor_end_time date,
30: p_debrief_header_id NUMBER,
31: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
32: X_Return_Status OUT NOCOPY VARCHAR2,
33: X_Msg_Count OUT NOCOPY NUMBER,
34: X_Msg_Data OUT NOCOPY VARCHAR2) IS
35:
46: and jtb.source_object_type_code = 'SR'
47: and cdh.debrief_header_id = p_debrief_header_id;
48:
49: BEGIN
50: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
51: open get_service_request_date;
52: fetch get_service_request_date INTO l_service_request_date;
53: close get_service_request_date;
54:
53: close get_service_request_date;
54:
55: If (p_labor_start_time IS NOT NULL
56: and p_labor_end_time IS NOT NULL
57: and p_labor_start_time <> FND_API.g_miss_date
58: and p_labor_end_time <> FND_API.g_miss_date
59: AND p_labor_start_time > p_labor_end_time) THEN
60: X_Return_Status := FND_API.G_RET_STS_ERROR;
61: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
54:
55: If (p_labor_start_time IS NOT NULL
56: and p_labor_end_time IS NOT NULL
57: and p_labor_start_time <> FND_API.g_miss_date
58: and p_labor_end_time <> FND_API.g_miss_date
59: AND p_labor_start_time > p_labor_end_time) THEN
60: X_Return_Status := FND_API.G_RET_STS_ERROR;
61: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
62: FND_MESSAGE.Set_Name('CSF','CSF_LABOR_START_DATE_ERR');
56: and p_labor_end_time IS NOT NULL
57: and p_labor_start_time <> FND_API.g_miss_date
58: and p_labor_end_time <> FND_API.g_miss_date
59: AND p_labor_start_time > p_labor_end_time) THEN
60: X_Return_Status := FND_API.G_RET_STS_ERROR;
61: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
62: FND_MESSAGE.Set_Name('CSF','CSF_LABOR_START_DATE_ERR');
63: FND_MSG_PUB.ADD;
64: END IF;
64: END IF;
65: END IF;
66: If p_labor_start_time IS NOT NULL
67: and l_date_val in ('N','P')
68: and p_labor_start_time <> FND_API.g_miss_date
69: and trunc(fnd_timezones_pvt.adjust_datetime(p_labor_start_time,
70: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
71: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
72: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
71: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
72: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
73: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
74: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
75: X_Return_Status := FND_API.G_RET_STS_ERROR;
76: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
77: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE');
78: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
79: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
85: END IF;
86: END IF;
87: If p_labor_end_time IS NOT NULL
88: and l_date_val in ('N','P')
89: and p_labor_end_time <> FND_API.g_miss_date
90: and trunc(fnd_timezones_pvt.adjust_datetime(p_labor_end_time,
91: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
92: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
93: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
92: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
93: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
94: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
95: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
96: X_Return_Status := FND_API.G_RET_STS_ERROR;
97: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
98: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE_END');
99: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
100: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
107: END IF;
108:
109: If (p_labor_start_time IS NOT NULL
110: and l_date_val in ('N','Y')
111: and p_labor_start_time <> FND_API.g_miss_date
112: and p_labor_start_time < l_service_request_date) THEN
113: X_Return_Status := FND_API.G_RET_STS_ERROR;
114: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
115: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE');
109: If (p_labor_start_time IS NOT NULL
110: and l_date_val in ('N','Y')
111: and p_labor_start_time <> FND_API.g_miss_date
112: and p_labor_start_time < l_service_request_date) THEN
113: X_Return_Status := FND_API.G_RET_STS_ERROR;
114: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
115: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE');
116: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
117: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
123: END IF;
124: END IF;
125: If (p_labor_end_time IS NOT NULL
126: and l_date_val in ('N','Y')
127: and p_labor_end_time <> FND_API.g_miss_date
128: and p_labor_end_time < l_service_request_date) THEN
129: X_Return_Status := FND_API.G_RET_STS_ERROR;
130: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
131: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE_END');
125: If (p_labor_end_time IS NOT NULL
126: and l_date_val in ('N','Y')
127: and p_labor_end_time <> FND_API.g_miss_date
128: and p_labor_end_time < l_service_request_date) THEN
129: X_Return_Status := FND_API.G_RET_STS_ERROR;
130: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
131: FND_MESSAGE.Set_Name('CSF','CSFW_SERVICE_DATE_END');
132: fnd_message.set_token('P_SR_DATE',to_char(fnd_timezones_pvt.adjust_datetime(l_service_request_date,
133: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')),
141: END;
142:
143: PROCEDURE Create_debrief(
144: P_Api_Version_Number IN NUMBER,
145: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
146: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
147: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
148: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
149: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type
142:
143: PROCEDURE Create_debrief(
144: P_Api_Version_Number IN NUMBER,
145: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
146: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
147: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
148: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
149: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type
150: := G_MISS_DEBRIEF_LINE_tbl,
143: PROCEDURE Create_debrief(
144: P_Api_Version_Number IN NUMBER,
145: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
146: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
147: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
148: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type := G_MISS_DEBRIEF_REC,
149: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type
150: := G_MISS_DEBRIEF_LINE_tbl,
151: X_DEBRIEF_HEADER_ID OUT NOCOPY NUMBER,
206:
207: SAVEPOINT CREATE_DEBRIEF_HEADER_PVT;
208: -- Standard call to check for call compatibility.
209:
210: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
211: p_api_version_number,
212: l_api_name,
213: G_PKG_NAME)
214: THEN
211: p_api_version_number,
212: l_api_name,
213: G_PKG_NAME)
214: THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: END IF;
217:
218:
219: -- Initialize message list if p_init_msg_list is set to TRUE.
216: END IF;
217:
218:
219: -- Initialize message list if p_init_msg_list is set to TRUE.
220: IF FND_API.to_Boolean( p_init_msg_list )
221: THEN
222: FND_MSG_PUB.initialize;
223: END IF;
224:
232:
233: END IF;
234:
235: -- Initialize API return status to SUCCESS
236: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
237:
238: --
239: -- API body
240: --
248: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
249: THEN
250: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
251: fnd_msg_pub.add;
252: x_return_status := fnd_api.g_ret_sts_unexp_error;
253: RAISE fnd_api.g_exc_unexpected_error;
254: END IF;
255: end if;
256: -- Invoke validation procedures
249: THEN
250: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
251: fnd_msg_pub.add;
252: x_return_status := fnd_api.g_ret_sts_unexp_error;
253: RAISE fnd_api.g_exc_unexpected_error;
254: END IF;
255: end if;
256: -- Invoke validation procedures
257:
254: END IF;
255: end if;
256: -- Invoke validation procedures
257:
258: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
259:
260: Validate_DEBRIEF_DATE(
261: p_init_msg_list => FND_API.G_FALSE,
262: p_validation_mode => G_CREATE,
257:
258: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
259:
260: Validate_DEBRIEF_DATE(
261: p_init_msg_list => FND_API.G_FALSE,
262: p_validation_mode => G_CREATE,
263: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
264: x_return_status => x_return_status,
265: x_msg_count => x_msg_count,
263: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
264: x_return_status => x_return_status,
265: x_msg_count => x_msg_count,
266: x_msg_data => x_msg_data);
267: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
268: x_return_status := fnd_api.g_ret_sts_unexp_error;
269: RAISE fnd_api.g_exc_unexpected_error;
270: END IF;
271:
264: x_return_status => x_return_status,
265: x_msg_count => x_msg_count,
266: x_msg_data => x_msg_data);
267: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
268: x_return_status := fnd_api.g_ret_sts_unexp_error;
269: RAISE fnd_api.g_exc_unexpected_error;
270: END IF;
271:
272: Validate_Task_Assignment_Id(
265: x_msg_count => x_msg_count,
266: x_msg_data => x_msg_data);
267: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
268: x_return_status := fnd_api.g_ret_sts_unexp_error;
269: RAISE fnd_api.g_exc_unexpected_error;
270: END IF;
271:
272: Validate_Task_Assignment_Id(
273: p_init_msg_list => FND_API.G_FALSE,
269: RAISE fnd_api.g_exc_unexpected_error;
270: END IF;
271:
272: Validate_Task_Assignment_Id(
273: p_init_msg_list => FND_API.G_FALSE,
274: p_validation_mode => G_CREATE,
275: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
276: x_return_status => x_return_status,
277: x_msg_count => x_msg_count,
275: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
276: x_return_status => x_return_status,
277: x_msg_count => x_msg_count,
278: x_msg_data => x_msg_data);
279: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
280: x_return_status := fnd_api.g_ret_sts_unexp_error;
281: RAISE fnd_api.g_exc_unexpected_error;
282: END IF;
283: END IF;
276: x_return_status => x_return_status,
277: x_msg_count => x_msg_count,
278: x_msg_data => x_msg_data);
279: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
280: x_return_status := fnd_api.g_ret_sts_unexp_error;
281: RAISE fnd_api.g_exc_unexpected_error;
282: END IF;
283: END IF;
284: -- Debug Message
277: x_msg_count => x_msg_count,
278: x_msg_data => x_msg_data);
279: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
280: x_return_status := fnd_api.g_ret_sts_unexp_error;
281: RAISE fnd_api.g_exc_unexpected_error;
282: END IF;
283: END IF;
284: -- Debug Message
285: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
294:
295: l_debrief_header_id := p_debrief_rec.debrief_header_id;
296: l_debrief_number := p_debrief_rec.debrief_number;
297:
298: if (l_debrief_header_id<>FND_API.G_MISS_NUM) and (l_debrief_header_id is not NULL) then
299: begin
300: select 1 into x
301: from CSF_DEBRIEF_HEADERS
302: where DEBRIEF_HEADER_ID = l_DEBRIEF_HEADER_ID ;
302: where DEBRIEF_HEADER_ID = l_DEBRIEF_HEADER_ID ;
303:
304: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
305: fnd_msg_pub.add;
306: x_return_status := fnd_api.g_ret_sts_unexp_error;
307: RAISE fnd_api.g_exc_unexpected_error;
308: exception
309: when no_data_found then
310: null ;
303:
304: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
305: fnd_msg_pub.add;
306: x_return_status := fnd_api.g_ret_sts_unexp_error;
307: RAISE fnd_api.g_exc_unexpected_error;
308: exception
309: when no_data_found then
310: null ;
311: when too_many_rows then
310: null ;
311: when too_many_rows then
312: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
313: fnd_msg_pub.add;
314: x_return_status := fnd_api.g_ret_sts_unexp_error;
315: RAISE fnd_api.g_exc_unexpected_error;
316: end ;
317:
318:
311: when too_many_rows then
312: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_HEADER');
313: fnd_msg_pub.add;
314: x_return_status := fnd_api.g_ret_sts_unexp_error;
315: RAISE fnd_api.g_exc_unexpected_error;
316: end ;
317:
318:
319: if (l_debrief_number <>FND_API.G_MISS_CHAR) and (l_debrief_number is not null) then
315: RAISE fnd_api.g_exc_unexpected_error;
316: end ;
317:
318:
319: if (l_debrief_number <>FND_API.G_MISS_CHAR) and (l_debrief_number is not null) then
320: null;
321: else
322: SELECT CSF_DEBRIEF_HEADERS_S2.nextval
323: INTO l_debrief_number
326: ELSE
327: SELECT CSF_DEBRIEF_HEADERS_S1.nextval
328: INTO l_debrief_header_id
329: FROM dual;
330: if (l_debrief_number <>FND_API.G_MISS_CHAR) and (l_debrief_number is not null) then
331: null;
332: else
333: SELECT CSF_DEBRIEF_HEADERS_S2.nextval
334: INTO l_debrief_number
338: X_DEBRIEF_HEADER_ID:=l_debrief_header_id;
339: validate_travel_times(p_debrief_rec.TRAVEL_START_TIME,
340: p_debrief_rec.TRAVEL_END_TIME,
341: p_debrief_rec.task_assignment_id,
342: fnd_api.g_false,
343: X_Return_Status,
344: X_Msg_Count,
345: X_Msg_Data);
346: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
342: fnd_api.g_false,
343: X_Return_Status,
344: X_Msg_Count,
345: X_Msg_Data);
346: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
347: return;
348: END IF;
349:
350: open c_task_assgin_object_version ;
353: l_resource_id;
354: CLOSE c_task_assgin_object_version ;
355:
356: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
357: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
358: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
359: THEN
360: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,4);
361: END IF;
354: CLOSE c_task_assgin_object_version ;
355:
356: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
357: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
358: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
359: THEN
360: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,4);
361: END IF;
362: 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
358: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
359: THEN
360: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,4);
361: END IF;
362: 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
363: csf_task_assignments_pub.update_task_assignment(
364: p_api_version => 1.0,
365: x_return_status => x_return_status,
366: x_msg_count => x_msg_count,
373: p_resource_type_code => l_resource_type_code,
374: p_resource_id => l_resource_id,
375: x_task_object_version_number => l_task_object_version,
376: x_task_status_id => l_task_status_id);
377: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
378: x_return_status := fnd_api.g_ret_sts_unexp_error;
379: RAISE fnd_api.g_exc_unexpected_error;
380: END IF;
381: END IF;
374: p_resource_id => l_resource_id,
375: x_task_object_version_number => l_task_object_version,
376: x_task_status_id => l_task_status_id);
377: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
378: x_return_status := fnd_api.g_ret_sts_unexp_error;
379: RAISE fnd_api.g_exc_unexpected_error;
380: END IF;
381: END IF;
382: csf_debrief_headers_pkg.Insert_Row(
375: x_task_object_version_number => l_task_object_version,
376: x_task_status_id => l_task_status_id);
377: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
378: x_return_status := fnd_api.g_ret_sts_unexp_error;
379: RAISE fnd_api.g_exc_unexpected_error;
380: END IF;
381: END IF;
382: csf_debrief_headers_pkg.Insert_Row(
383: PX_DEBRIEF_HEADER_ID => l_debrief_header_id,
414:
415: --Virendra Singh 03/28/2000 commented out
416: -- create Interaction 04/06/2000
417: /*CSF_DEBRIEF_PVT.Create_Interaction (P_Api_Version_Number =>1.0,
418: P_Init_Msg_List =>FND_API.G_FALSE,
419: P_Commit =>FND_API.G_FALSE,
420: P_TASK_ASSIGNMENT_ID =>P_DEBRIEF_REC.TASK_ASSIGNMENT_ID,
421: P_DEBRIEF_HEADER_ID =>l_debrief_header_id,
422: P_MEDIA_ID =>29386,
415: --Virendra Singh 03/28/2000 commented out
416: -- create Interaction 04/06/2000
417: /*CSF_DEBRIEF_PVT.Create_Interaction (P_Api_Version_Number =>1.0,
418: P_Init_Msg_List =>FND_API.G_FALSE,
419: P_Commit =>FND_API.G_FALSE,
420: P_TASK_ASSIGNMENT_ID =>P_DEBRIEF_REC.TASK_ASSIGNMENT_ID,
421: P_DEBRIEF_HEADER_ID =>l_debrief_header_id,
422: P_MEDIA_ID =>29386,
423: P_ACTION_ID =>22,
424: X_RETURN_STATUS =>l_return_status,
425: X_Msg_Count =>X_MSG_COUNT,
426: X_Msg_Data =>X_MSG_DATA);
427:
428: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431: */
432: open c_source_object_type_code (p_debrief_rec.TASK_ASSIGNMENT_ID);
425: X_Msg_Count =>X_MSG_COUNT,
426: X_Msg_Data =>X_MSG_DATA);
427:
428: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431: */
432: open c_source_object_type_code (p_debrief_rec.TASK_ASSIGNMENT_ID);
433: fetch c_source_object_type_code into l_source_object_type_code;
435:
436: IF P_DEBRIEF_LINE_TBL.count > 0 then
437: CSF_DEBRIEF_PVT.Create_debrief_lines(
438: P_Api_Version_Number => 1.0 ,
439: P_Init_Msg_List => FND_API.G_FALSE,
440: P_Commit => FND_API.G_FALSE,
441: P_Upd_tskassgnstatus => NULL,
442: P_Task_Assignment_status => NULL,
443: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
436: IF P_DEBRIEF_LINE_TBL.count > 0 then
437: CSF_DEBRIEF_PVT.Create_debrief_lines(
438: P_Api_Version_Number => 1.0 ,
439: P_Init_Msg_List => FND_API.G_FALSE,
440: P_Commit => FND_API.G_FALSE,
441: P_Upd_tskassgnstatus => NULL,
442: P_Task_Assignment_status => NULL,
443: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
444: P_DEBRIEF_line_tbl => p_DEBRIEF_line_tbl,
439: P_Init_Msg_List => FND_API.G_FALSE,
440: P_Commit => FND_API.G_FALSE,
441: P_Upd_tskassgnstatus => NULL,
442: P_Task_Assignment_status => NULL,
443: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
444: P_DEBRIEF_line_tbl => p_DEBRIEF_line_tbl,
445: P_DEBRIEF_HEADER_ID => l_DEBRIEF_HEADER_ID,
446: P_SOURCE_OBJECT_TYPE_CODE => l_source_object_type_code,
447: X_Return_Status => l_Return_Status,
448: X_Msg_Count => X_Msg_Count,
449: X_Msg_Data => X_Msg_Data
450: );
451:
452: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
453: RAISE FND_API.G_EXC_ERROR;
454: END IF;
455: END IF;
456:
449: X_Msg_Data => X_Msg_Data
450: );
451:
452: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
453: RAISE FND_API.G_EXC_ERROR;
454: END IF;
455: END IF;
456:
457:
455: END IF;
456:
457:
458: -- Standard check for p_commit
459: IF FND_API.to_Boolean( p_commit )
460: THEN
461: COMMIT WORK;
462: END IF;
463:
469: );
470:
471:
472: EXCEPTION
473: WHEN FND_API.G_EXC_ERROR THEN
474: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: FND_MSG_PUB.Count_And_Get (
477: P_COUNT => X_MSG_COUNT
471:
472: EXCEPTION
473: WHEN FND_API.G_EXC_ERROR THEN
474: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: FND_MSG_PUB.Count_And_Get (
477: P_COUNT => X_MSG_COUNT
478: ,P_DATA => X_MSG_DATA);
479:
476: FND_MSG_PUB.Count_And_Get (
477: P_COUNT => X_MSG_COUNT
478: ,P_DATA => X_MSG_DATA);
479:
480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
481: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
482:
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
484: FND_MSG_PUB.Count_And_Get (
479:
480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
481: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
482:
483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
484: FND_MSG_PUB.Count_And_Get (
485: P_COUNT => X_MSG_COUNT
486: ,P_DATA => X_MSG_DATA);
487:
486: ,P_DATA => X_MSG_DATA);
487:
488: WHEN OTHERS THEN
489: ROLLBACK TO CREATE_DEBRIEF_HEADER_PVT;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF FND_MSG_PUB.Check_Msg_Level
492: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
493: THEN
494: FND_MSG_PUB.Add_Exc_Msg (
505:
506: -----------------------------------------------------------------------------------------------------------
507: PROCEDURE Update_debrief(
508: P_Api_Version_Number IN NUMBER,
509: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
510: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
511: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
512: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type,
513: X_Return_Status OUT NOCOPY VARCHAR2,
506: -----------------------------------------------------------------------------------------------------------
507: PROCEDURE Update_debrief(
508: P_Api_Version_Number IN NUMBER,
509: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
510: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
511: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
512: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type,
513: X_Return_Status OUT NOCOPY VARCHAR2,
514: X_Msg_Count OUT NOCOPY NUMBER,
507: PROCEDURE Update_debrief(
508: P_Api_Version_Number IN NUMBER,
509: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
510: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
511: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
512: P_DEBRIEF_Rec IN DEBRIEF_Rec_Type,
513: X_Return_Status OUT NOCOPY VARCHAR2,
514: X_Msg_Count OUT NOCOPY NUMBER,
515: X_Msg_Data OUT NOCOPY VARCHAR2
554: -- Standard Start of API savepoint
555: SAVEPOINT UPDATE_DEBRIEF_PVT;
556: -- Standard call to check for call compatibility.
557:
558: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
559: p_api_version_number,
560: l_api_name,
561: G_PKG_NAME)
562: THEN
559: p_api_version_number,
560: l_api_name,
561: G_PKG_NAME)
562: THEN
563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
564: END IF;
565:
566:
567: -- Initialize message list if p_init_msg_list is set to TRUE.
564: END IF;
565:
566:
567: -- Initialize message list if p_init_msg_list is set to TRUE.
568: IF FND_API.to_Boolean( p_init_msg_list )
569: THEN
570: FND_MSG_PUB.initialize;
571: END IF;
572:
570: FND_MSG_PUB.initialize;
571: END IF;
572:
573: -- Initialize API return status to SUCCESS
574: x_return_status := FND_API.G_RET_STS_SUCCESS;
575:
576: l_debrief_header_id:=l_tar_DEBRIEF_rec.Debrief_header_id;
577: -- Virendra Singh 03/27/2000 check whether Debrief_Header_ID is not null or missging
578: if (l_debrief_header_id =FND_API.G_MISS_NUM) or (l_debrief_header_id is NULL ) then
574: x_return_status := FND_API.G_RET_STS_SUCCESS;
575:
576: l_debrief_header_id:=l_tar_DEBRIEF_rec.Debrief_header_id;
577: -- Virendra Singh 03/27/2000 check whether Debrief_Header_ID is not null or missging
578: if (l_debrief_header_id =FND_API.G_MISS_NUM) or (l_debrief_header_id is NULL ) then
579: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
580: THEN
581: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
582: fnd_msg_pub.add;
579: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
580: THEN
581: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
582: fnd_msg_pub.add;
583: x_return_status := fnd_api.g_ret_sts_unexp_error;
584: RAISE fnd_api.g_exc_unexpected_error;
585: END IF;
586: end if;
587: -- Invoke validation procedures
580: THEN
581: fnd_message.set_name('CSF', 'CSF_DEBRIEF_MISSING_HEADER');
582: fnd_msg_pub.add;
583: x_return_status := fnd_api.g_ret_sts_unexp_error;
584: RAISE fnd_api.g_exc_unexpected_error;
585: END IF;
586: end if;
587: -- Invoke validation procedures
588:
586: end if;
587: -- Invoke validation procedures
588:
589:
590: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
591:
592: IF (l_tar_debrief_rec.DEBRIEF_DATE <> FND_API.G_MISS_DATE) then
593: Validate_DEBRIEF_DATE(
594: p_init_msg_list => FND_API.G_FALSE,
588:
589:
590: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
591:
592: IF (l_tar_debrief_rec.DEBRIEF_DATE <> FND_API.G_MISS_DATE) then
593: Validate_DEBRIEF_DATE(
594: p_init_msg_list => FND_API.G_FALSE,
595: p_validation_mode => G_CREATE,
596: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
590: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
591:
592: IF (l_tar_debrief_rec.DEBRIEF_DATE <> FND_API.G_MISS_DATE) then
593: Validate_DEBRIEF_DATE(
594: p_init_msg_list => FND_API.G_FALSE,
595: p_validation_mode => G_CREATE,
596: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
597: x_return_status => x_return_status,
598: x_msg_count => x_msg_count,
596: p_DEBRIEF_DATE => P_DEBRIEF_Rec.DEBRIEF_DATE,
597: x_return_status => x_return_status,
598: x_msg_count => x_msg_count,
599: x_msg_data => x_msg_data);
600: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
601: x_return_status := fnd_api.g_ret_sts_unexp_error;
602: RAISE fnd_api.g_exc_unexpected_error;
603: END IF;
604: END If;
597: x_return_status => x_return_status,
598: x_msg_count => x_msg_count,
599: x_msg_data => x_msg_data);
600: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
601: x_return_status := fnd_api.g_ret_sts_unexp_error;
602: RAISE fnd_api.g_exc_unexpected_error;
603: END IF;
604: END If;
605:
598: x_msg_count => x_msg_count,
599: x_msg_data => x_msg_data);
600: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
601: x_return_status := fnd_api.g_ret_sts_unexp_error;
602: RAISE fnd_api.g_exc_unexpected_error;
603: END IF;
604: END If;
605:
606: IF (l_tar_DEBRIEF_rec.task_assignment_id <>FND_API.G_MISS_NUM) then
602: RAISE fnd_api.g_exc_unexpected_error;
603: END IF;
604: END If;
605:
606: IF (l_tar_DEBRIEF_rec.task_assignment_id <>FND_API.G_MISS_NUM) then
607: Validate_Task_Assignment_Id(
608: p_init_msg_list => FND_API.G_FALSE,
609: p_validation_mode => G_CREATE,
610: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
604: END If;
605:
606: IF (l_tar_DEBRIEF_rec.task_assignment_id <>FND_API.G_MISS_NUM) then
607: Validate_Task_Assignment_Id(
608: p_init_msg_list => FND_API.G_FALSE,
609: p_validation_mode => G_CREATE,
610: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
611: x_return_status => x_return_status,
612: x_msg_count => x_msg_count,
610: p_Task_Assignment_Id => P_DEBRIEF_Rec.Task_Assignment_Id,
611: x_return_status => x_return_status,
612: x_msg_count => x_msg_count,
613: x_msg_data => x_msg_data);
614: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
615: x_return_status := fnd_api.g_ret_sts_unexp_error;
616: RAISE fnd_api.g_exc_unexpected_error;
617: END IF;
618: END IF;
611: x_return_status => x_return_status,
612: x_msg_count => x_msg_count,
613: x_msg_data => x_msg_data);
614: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
615: x_return_status := fnd_api.g_ret_sts_unexp_error;
616: RAISE fnd_api.g_exc_unexpected_error;
617: END IF;
618: END IF;
619: END IF;
612: x_msg_count => x_msg_count,
613: x_msg_data => x_msg_data);
614: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
615: x_return_status := fnd_api.g_ret_sts_unexp_error;
616: RAISE fnd_api.g_exc_unexpected_error;
617: END IF;
618: END IF;
619: END IF;
620:
621:
622: validate_travel_times(p_debrief_rec.TRAVEL_START_TIME,
623: p_debrief_rec.TRAVEL_END_TIME,
624: p_debrief_rec.task_assignment_id,
625: fnd_api.g_false,
626: X_Return_Status,
627: X_Msg_Count,
628: X_Msg_Data);
629: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
625: fnd_api.g_false,
626: X_Return_Status,
627: X_Msg_Count,
628: X_Msg_Data);
629: if X_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
630: return;
631: END IF;
632:
633: open c_task_assgin_object_version ;
635: l_resource_type_code,
636: l_resource_id;
637: CLOSE c_task_assgin_object_version ;
638:
639: l_actual_travel_duration := FND_API.G_MISS_NUM;
640: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
641: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
642: THEN
643: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,4);
636: l_resource_id;
637: CLOSE c_task_assgin_object_version ;
638:
639: l_actual_travel_duration := FND_API.G_MISS_NUM;
640: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
641: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
642: THEN
643: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,4);
644: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
637: CLOSE c_task_assgin_object_version ;
638:
639: l_actual_travel_duration := FND_API.G_MISS_NUM;
640: IF (p_debrief_rec.TRAVEL_START_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_START_TIME <> FND_API.G_MISS_DATE)
641: AND (p_debrief_rec.TRAVEL_END_TIME IS NOT NULL AND p_debrief_rec.TRAVEL_END_TIME <> FND_API.G_MISS_DATE)
642: THEN
643: l_actual_travel_duration := round ((p_debrief_rec.TRAVEL_END_TIME - p_debrief_rec.TRAVEL_START_TIME) * 24,4);
644: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
645: END IF;
644: l_unit_of_measure_for_hr := fnd_profile.value('CSF_UOM_HOURS');
645: END IF;
646:
647:
648: if (p_debrief_rec.TRAVEL_DISTANCE_IN_KM IS NOT NULL AND p_debrief_rec.TRAVEL_DISTANCE_IN_KM<> FND_API.G_MISS_NUM)
649: OR ( l_actual_travel_duration IS NOT NULL AND l_actual_travel_duration <> FND_API.G_MISS_NUM ) THEN
650: csf_task_assignments_pub.update_task_assignment(
651: p_api_version => 1.0,
652: x_return_status => x_return_status,
645: END IF;
646:
647:
648: if (p_debrief_rec.TRAVEL_DISTANCE_IN_KM IS NOT NULL AND p_debrief_rec.TRAVEL_DISTANCE_IN_KM<> FND_API.G_MISS_NUM)
649: OR ( l_actual_travel_duration IS NOT NULL AND l_actual_travel_duration <> FND_API.G_MISS_NUM ) THEN
650: csf_task_assignments_pub.update_task_assignment(
651: p_api_version => 1.0,
652: x_return_status => x_return_status,
653: x_msg_count => x_msg_count,
660: p_resource_type_code => l_resource_type_code,
661: p_resource_id => l_resource_id,
662: x_task_object_version_number => l_task_object_version,
663: x_task_status_id => l_task_status_id);
664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
665: x_return_status := fnd_api.g_ret_sts_unexp_error;
666: RAISE fnd_api.g_exc_unexpected_error;
667: END IF;
668: END IF;
661: p_resource_id => l_resource_id,
662: x_task_object_version_number => l_task_object_version,
663: x_task_status_id => l_task_status_id);
664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
665: x_return_status := fnd_api.g_ret_sts_unexp_error;
666: RAISE fnd_api.g_exc_unexpected_error;
667: END IF;
668: END IF;
669:
662: x_task_object_version_number => l_task_object_version,
663: x_task_status_id => l_task_status_id);
664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
665: x_return_status := fnd_api.g_ret_sts_unexp_error;
666: RAISE fnd_api.g_exc_unexpected_error;
667: END IF;
668: END IF;
669:
670:
704: -- End of API body.
705: --
706:
707: -- Standard check for p_commit
708: IF FND_API.to_Boolean( p_commit )
709: THEN
710: COMMIT WORK;
711: END IF;
712:
716: p_data => x_msg_data
717: );
718:
719: EXCEPTION
720: WHEN FND_API.G_EXC_ERROR THEN
721: ROLLBACK TO UPDATE_DEBRIEF_PVT;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MSG_PUB.Count_And_Get (
724: P_COUNT => X_MSG_COUNT
718:
719: EXCEPTION
720: WHEN FND_API.G_EXC_ERROR THEN
721: ROLLBACK TO UPDATE_DEBRIEF_PVT;
722: x_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MSG_PUB.Count_And_Get (
724: P_COUNT => X_MSG_COUNT
725: ,P_DATA => X_MSG_DATA);
726:
723: FND_MSG_PUB.Count_And_Get (
724: P_COUNT => X_MSG_COUNT
725: ,P_DATA => X_MSG_DATA);
726:
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO UPDATE_DEBRIEF_PVT;
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.Count_And_Get (
731: P_COUNT => X_MSG_COUNT
725: ,P_DATA => X_MSG_DATA);
726:
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO UPDATE_DEBRIEF_PVT;
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.Count_And_Get (
731: P_COUNT => X_MSG_COUNT
732: ,P_DATA => X_MSG_DATA);
733:
732: ,P_DATA => X_MSG_DATA);
733:
734: WHEN OTHERS THEN
735: ROLLBACK TO UPDATE_DEBRIEF_PVT;
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737: IF FND_MSG_PUB.Check_Msg_Level
738: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
739: THEN
740: FND_MSG_PUB.Add_Exc_Msg (
753:
754: -- Lead Lines Starts from here
755:
756: PROCEDURE Validate_Task_Assignment_ID (
757: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
758: P_Validation_mode IN VARCHAR2,
759: P_TASK_Assignment_ID IN NUMBER,
760: X_Return_Status OUT NOCOPY VARCHAR2,
761: X_Msg_Count OUT NOCOPY NUMBER,
770:
771: l_dummy number;
772: BEGIN
773: -- Initialize message list if p_init_msg_list is set to TRUE.
774: IF FND_API.to_Boolean( p_init_msg_list )
775: THEN
776: FND_MSG_PUB.initialize;
777: END IF;
778: -- Initialize API return status to SUCCESS
775: THEN
776: FND_MSG_PUB.initialize;
777: END IF;
778: -- Initialize API return status to SUCCESS
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: IF (p_task_assignment_id is NULL OR p_task_assignment_id = FND_API.G_MISS_NUM) THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
777: END IF;
778: -- Initialize API return status to SUCCESS
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: IF (p_task_assignment_id is NULL OR p_task_assignment_id = FND_API.G_MISS_NUM) THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
784: THEN
785: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVALID_TA_ID');
778: -- Initialize API return status to SUCCESS
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: IF (p_task_assignment_id is NULL OR p_task_assignment_id = FND_API.G_MISS_NUM) THEN
782: x_return_status := FND_API.G_RET_STS_ERROR;
783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
784: THEN
785: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVALID_TA_ID');
786: FND_MSG_PUB.ADD;
789: open c;
790: fetch c into l_dummy;
791: if c%notfound then
792: close c;
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
795: THEN
796: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVALID_TA_ID');
797: FND_MSG_PUB.ADD;
810: END Validate_Task_assignment_ID;
811:
812:
813: PROCEDURE Validate_Debrief_Date (
814: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
815: P_Validation_mode IN VARCHAR2,
816: P_Debrief_Date IN DATE,
817: X_Return_Status OUT NOCOPY VARCHAR2,
818: X_Msg_Count OUT NOCOPY NUMBER,
821: IS
822: l_api_name varchar2(30) := 'Create Debrief' ;
823: BEGIN
824: -- Initialize message list if p_init_msg_list is set to TRUE.
825: IF FND_API.to_Boolean( p_init_msg_list )
826: THEN
827: FND_MSG_PUB.initialize;
828: END IF;
829:
827: FND_MSG_PUB.initialize;
828: END IF;
829:
830: -- Initialize API return status to SUCCESS
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
832: IF (p_debrief_date is NULL OR p_debrief_date = FND_API.G_MISS_DATE) THEN
833: x_return_status := FND_API.G_RET_STS_ERROR;
834: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
835: THEN
828: END IF;
829:
830: -- Initialize API return status to SUCCESS
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
832: IF (p_debrief_date is NULL OR p_debrief_date = FND_API.G_MISS_DATE) THEN
833: x_return_status := FND_API.G_RET_STS_ERROR;
834: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
835: THEN
836: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_DEBRIEF_DATE');
829:
830: -- Initialize API return status to SUCCESS
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
832: IF (p_debrief_date is NULL OR p_debrief_date = FND_API.G_MISS_DATE) THEN
833: x_return_status := FND_API.G_RET_STS_ERROR;
834: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
835: THEN
836: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_DEBRIEF_DATE');
837: FND_MSG_PUB.ADD;
865: open c_debrief_type;
866: fetch c_debrief_type into l_debrief_type;
867: close c_debrief_type;
868:
869: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) = fnd_api.g_miss_num then
870: l_debrief_type := 'L';
871: end if;
872:
873: return l_debrief_type;
875: end;
876:
877: Function IS_DEBRIEF_HEADER_REC_MISSING(P_DEBRIEF_REC DEBRIEF_REC_TYPE) Return BOOLEAN is
878: BEGIN
879: if P_DEBRIEF_REC.DEBRIEF_HEADER_ID <> FND_API.G_MISS_NUM then
880: Return FALSE;
881: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
882: Return FALSE;
883: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
877: Function IS_DEBRIEF_HEADER_REC_MISSING(P_DEBRIEF_REC DEBRIEF_REC_TYPE) Return BOOLEAN is
878: BEGIN
879: if P_DEBRIEF_REC.DEBRIEF_HEADER_ID <> FND_API.G_MISS_NUM then
880: Return FALSE;
881: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
882: Return FALSE;
883: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
884: Return FALSE;
885: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
879: if P_DEBRIEF_REC.DEBRIEF_HEADER_ID <> FND_API.G_MISS_NUM then
880: Return FALSE;
881: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
882: Return FALSE;
883: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
884: Return FALSE;
885: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
886: Return FALSE;
887: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
881: elsif P_DEBRIEF_REC.DEBRIEF_NUMBER <>FND_API.G_MISS_CHAR then
882: Return FALSE;
883: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
884: Return FALSE;
885: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
886: Return FALSE;
887: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
888: Return FALSE;
889: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
883: elsif P_DEBRIEF_REC.DEBRIEF_DATE <>FND_API.G_MISS_DATE then
884: Return FALSE;
885: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
886: Return FALSE;
887: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
888: Return FALSE;
889: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
890: Return FALSE;
891: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
885: elsif P_DEBRIEF_REC.DEBRIEF_STATUS_ID <>FND_API.G_MISS_NUM then
886: Return FALSE;
887: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
888: Return FALSE;
889: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
890: Return FALSE;
891: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
892: Return FALSE;
893: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
887: elsif P_DEBRIEF_REC.TASK_ASSIGNMENT_ID <>FND_API.G_MISS_NUM then
888: Return FALSE;
889: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
890: Return FALSE;
891: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
892: Return FALSE;
893: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
894: Return FALSE;
895: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
889: elsif P_DEBRIEF_REC.CREATED_BY <>FND_API.G_MISS_NUM then
890: Return FALSE;
891: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
892: Return FALSE;
893: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
894: Return FALSE;
895: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
896: Return FALSE;
897: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
891: elsif P_DEBRIEF_REC.CREATION_DATE <>FND_API.G_MISS_DATE then
892: Return FALSE;
893: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
894: Return FALSE;
895: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
896: Return FALSE;
897: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
898: Return FALSE;
899: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
893: elsif P_DEBRIEF_REC.LAST_UPDATED_BY <>FND_API.G_MISS_NUM then
894: Return FALSE;
895: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
896: Return FALSE;
897: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
898: Return FALSE;
899: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
900: Return FALSE;
901: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
895: elsif P_DEBRIEF_REC.LAST_UPDATE_DATE <>FND_API.G_MISS_DATE then
896: Return FALSE;
897: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
898: Return FALSE;
899: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
900: Return FALSE;
901: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
902: Return FALSE;
903: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
897: elsif P_DEBRIEF_REC.LAST_UPDATE_LOGIN <>FND_API.G_MISS_NUM then
898: Return FALSE;
899: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
900: Return FALSE;
901: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
902: Return FALSE;
903: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
904: Return FALSE;
905: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
899: elsif P_DEBRIEF_REC.ATTRIBUTE1 <>FND_API.G_MISS_CHAR then
900: Return FALSE;
901: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
902: Return FALSE;
903: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
904: Return FALSE;
905: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
906: Return FALSE;
907: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
901: elsif P_DEBRIEF_REC.ATTRIBUTE2 <>FND_API.G_MISS_CHAR then
902: Return FALSE;
903: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
904: Return FALSE;
905: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
906: Return FALSE;
907: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
908: Return FALSE;
909: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
903: elsif P_DEBRIEF_REC.ATTRIBUTE3 <>FND_API.G_MISS_CHAR then
904: Return FALSE;
905: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
906: Return FALSE;
907: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
908: Return FALSE;
909: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
910: Return FALSE;
911: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
905: elsif P_DEBRIEF_REC.ATTRIBUTE4 <>FND_API.G_MISS_CHAR then
906: Return FALSE;
907: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
908: Return FALSE;
909: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
910: Return FALSE;
911: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
912: Return FALSE;
913: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
907: elsif P_DEBRIEF_REC.ATTRIBUTE5 <>FND_API.G_MISS_CHAR then
908: Return FALSE;
909: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
910: Return FALSE;
911: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
912: Return FALSE;
913: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
914: Return FALSE;
915: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
909: elsif P_DEBRIEF_REC.ATTRIBUTE6 <>FND_API.G_MISS_CHAR then
910: Return FALSE;
911: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
912: Return FALSE;
913: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
914: Return FALSE;
915: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
916: Return FALSE;
917: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
911: elsif P_DEBRIEF_REC.ATTRIBUTE7 <>FND_API.G_MISS_CHAR then
912: Return FALSE;
913: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
914: Return FALSE;
915: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
916: Return FALSE;
917: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
918: Return FALSE;
919: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
913: elsif P_DEBRIEF_REC.ATTRIBUTE8 <>FND_API.G_MISS_CHAR then
914: Return FALSE;
915: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
916: Return FALSE;
917: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
918: Return FALSE;
919: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
920: Return FALSE;
921: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
915: elsif P_DEBRIEF_REC.ATTRIBUTE9 <>FND_API.G_MISS_CHAR then
916: Return FALSE;
917: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
918: Return FALSE;
919: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
920: Return FALSE;
921: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
922: Return FALSE;
923: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
917: elsif P_DEBRIEF_REC.ATTRIBUTE10 <>FND_API.G_MISS_CHAR then
918: Return FALSE;
919: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
920: Return FALSE;
921: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
922: Return FALSE;
923: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
924: Return FALSE;
925: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
919: elsif P_DEBRIEF_REC.ATTRIBUTE11 <>FND_API.G_MISS_CHAR then
920: Return FALSE;
921: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
922: Return FALSE;
923: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
924: Return FALSE;
925: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
926: Return FALSE;
927: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
921: elsif P_DEBRIEF_REC.ATTRIBUTE12 <>FND_API.G_MISS_CHAR then
922: Return FALSE;
923: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
924: Return FALSE;
925: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
926: Return FALSE;
927: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
928: Return FALSE;
929: elsif P_DEBRIEF_REC.ATTRIBUTE_CATEGORY <>FND_API.G_MISS_CHAR then
923: elsif P_DEBRIEF_REC.ATTRIBUTE13 <>FND_API.G_MISS_CHAR then
924: Return FALSE;
925: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
926: Return FALSE;
927: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
928: Return FALSE;
929: elsif P_DEBRIEF_REC.ATTRIBUTE_CATEGORY <>FND_API.G_MISS_CHAR then
930: Return FALSE;
931: else
925: elsif P_DEBRIEF_REC.ATTRIBUTE14 <>FND_API.G_MISS_CHAR then
926: Return FALSE;
927: elsif P_DEBRIEF_REC.ATTRIBUTE15 <>FND_API.G_MISS_CHAR then
928: Return FALSE;
929: elsif P_DEBRIEF_REC.ATTRIBUTE_CATEGORY <>FND_API.G_MISS_CHAR then
930: Return FALSE;
931: else
932: return TRUE;
933: end if;
934: End Is_DEBRIEF_HEADER_REC_MISSING;
935:
936: PROCEDURE Create_debrief_lines(
937: P_Api_Version_Number IN NUMBER,
938: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
939: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
940: P_Upd_tskassgnstatus IN VARCHAR2 ,
941: P_Task_Assignment_status IN VARCHAR2 ,
942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
935:
936: PROCEDURE Create_debrief_lines(
937: P_Api_Version_Number IN NUMBER,
938: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
939: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
940: P_Upd_tskassgnstatus IN VARCHAR2 ,
941: P_Task_Assignment_status IN VARCHAR2 ,
942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
943: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type,
938: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
939: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
940: P_Upd_tskassgnstatus IN VARCHAR2 ,
941: P_Task_Assignment_status IN VARCHAR2 ,
942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
943: P_DEBRIEF_LINE_tbl IN DEBRIEF_LINE_tbl_type,
944: -- DEFAULT G_MISS_DEBRIEF_LINE_tbl,
945: P_DEBRIEF_HEADER_ID IN NUMBER ,
946: P_SOURCE_OBJECT_TYPE_CODE IN VARCHAR2,
1054:
1055: SAVEPOINT CREATE_DEBRIEF_LINE_PVT;
1056:
1057: -- Standard call to check for call compatibility.
1058: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1059: p_api_version_number,
1060: l_api_name,
1061: G_PKG_NAME)
1062: THEN
1059: p_api_version_number,
1060: l_api_name,
1061: G_PKG_NAME)
1062: THEN
1063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1064: END IF;
1065:
1066:
1067: -- Initialize message list if p_init_msg_list is set to TRUE.
1065:
1066:
1067: -- Initialize message list if p_init_msg_list is set to TRUE.
1068:
1069: IF FND_API.to_Boolean( p_init_msg_list )
1070: THEN
1071: FND_MSG_PUB.initialize;
1072: END IF;
1073:
1071: FND_MSG_PUB.initialize;
1072: END IF;
1073:
1074: -- Initialize API return status to SUCCESS
1075: x_return_status := FND_API.G_RET_STS_SUCCESS;
1076: --dbms_output.put_line('LOOP Starts...');
1077: FOR l_curr_row in 1..l_count
1078: LOOP
1079: BEGIN
1169: --dbms_output.put_line('Assigned new values in DBF PVT.');
1170:
1171: l_debrief_type := debrief_type(p_debrief_line_rec);
1172:
1173: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1174: p_debrief_line_rec.issuing_inventory_org_id := null;
1175: end if;
1176: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1177: p_debrief_line_rec.receiving_inventory_org_id := null;
1172:
1173: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1174: p_debrief_line_rec.issuing_inventory_org_id := null;
1175: end if;
1176: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1177: p_debrief_line_rec.receiving_inventory_org_id := null;
1178: end if;
1179:
1180: IF (p_DEBRIEF_LINE_REC.CHANNEL_CODE <> 'CSF_PORTAL') THEN
1183:
1184: --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.
1185: --dbms_output.put_line('<> CSF_PORTAL CODE !!');
1186: IF (p_debrief_line_tbl(l_curr_row).TRANSACTION_TYPE_ID is null)
1187: or (p_debrief_line_tbl(l_curr_row).TRANSACTION_TYPE_ID = fnd_api.g_miss_num)
1188: Then
1189: open c_txn_billing_type_id (p_debrief_line_rec.txn_billing_type_id);
1190: fetch c_txn_billing_type_id into l_billing_type, l_line_order_category_code, l_transaction_type_id;
1191: close c_txn_billing_type_id;
1197: END IF;
1198: --dbms_output.put_line('1');
1199:
1200: IF (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE is null)
1201: or (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE = fnd_api.g_miss_char) Then
1202: --------------------------------------------------------------
1203: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1204: Then l_return_reason_code := fnd_api.g_miss_char;
1205: else if l_line_order_category_code = 'RETURN'
1199:
1200: IF (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE is null)
1201: or (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE = fnd_api.g_miss_char) Then
1202: --------------------------------------------------------------
1203: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1204: Then l_return_reason_code := fnd_api.g_miss_char;
1205: else if l_line_order_category_code = 'RETURN'
1206: Then l_return_reason_code := fnd_profile.value('CSF_RETURN_REASON');
1207: Else l_return_reason_code := fnd_api.g_miss_char;
1200: IF (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE is null)
1201: or (p_debrief_line_tbl(l_curr_row).RETURN_REASON_CODE = fnd_api.g_miss_char) Then
1202: --------------------------------------------------------------
1203: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1204: Then l_return_reason_code := fnd_api.g_miss_char;
1205: else if l_line_order_category_code = 'RETURN'
1206: Then l_return_reason_code := fnd_profile.value('CSF_RETURN_REASON');
1207: Else l_return_reason_code := fnd_api.g_miss_char;
1208: End If;
1203: if nvl(l_billing_type, fnd_api.g_miss_char) <>'M'
1204: Then l_return_reason_code := fnd_api.g_miss_char;
1205: else if l_line_order_category_code = 'RETURN'
1206: Then l_return_reason_code := fnd_profile.value('CSF_RETURN_REASON');
1207: Else l_return_reason_code := fnd_api.g_miss_char;
1208: End If;
1209: End If;
1210: --------------------------------------------------------------
1211: P_debrief_line_rec.RETURN_REASON_CODE := l_return_reason_code;
1216: --dbms_output.put_line('2');
1217:
1218:
1219: l_cp_status := p_debrief_line_rec.STATUS_OF_RECEIVED_PART;
1220: if (l_cp_status is null or l_cp_status=FND_API.G_MISS_CHAR) then
1221: open c_cp_status(p_debrief_line_tbl(l_curr_row).TRANSACTION_TYPE_ID);
1222: fetch c_cp_status into l_cp_status_id;
1223: close c_cp_status;
1224: else
1227: close c_cp_status_notnull;
1228: END IF;
1229: --dbms_output.put_line('3');
1230: if l_debrief_type = 'E' and
1231: nvl(p_debrief_line_rec.expense_amount,fnd_api.g_miss_num) <> fnd_api.g_miss_num then
1232: p_debrief_line_rec.UOM_CODE := null;
1233: P_DEBRIEF_LINE_Rec.quantity := null;
1234: END IF;
1235: --dbms_output.put_line('4');
1234: END IF;
1235: --dbms_output.put_line('4');
1236: if l_debrief_type = 'L' then
1237: -- Fixed bug 1286592
1238: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE then
1239: xx_labor_start_date := NULL;
1240: else
1241: xx_labor_start_date := p_DEBRIEF_LINE_rec.labor_start_date;
1242: -- If this is a labor line, ignore what is passed, get primary uom
1243: open labor_uom(p_debrief_line_rec.inventory_item_id);
1244: fetch labor_uom into p_debrief_line_rec.UOM_CODE;
1245: close labor_uom;
1246: end if;
1247: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE then
1248: xx_labor_end_date := NULL;
1249: else
1250: xx_labor_end_date := p_DEBRIEF_LINE_rec.labor_end_date;
1251: end if;
1251: end if;
1252:
1253: --we should calculate quantity based on start time and end time
1254:
1255: if nvl(p_debrief_line_rec.uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
1256:
1257: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
1258: end if;
1259: if nvl(p_DEBRIEF_LINE_rec.quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num then
1255: if nvl(p_debrief_line_rec.uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
1256:
1257: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
1258: end if;
1259: if nvl(p_DEBRIEF_LINE_rec.quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num then
1260:
1261: l_quantity := (p_debrief_line_rec.LABOR_END_DATE - p_debrief_line_rec.LABOR_START_DATE);
1262: if p_debrief_line_rec.UOM_CODE <> l_hr_uom and l_quantity is not null then
1263:
1276: l_quantity := nvl(l_quantity,0);
1277: p_DEBRIEF_LINE_rec.QUANTITY := round(l_quantity,4);
1278: end if;
1279:
1280: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1281:
1282: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1283:
1284: l_quantity := inv_convert.inv_um_convert(
1292: else
1293:
1294: l_quantity := p_DEBRIEF_LINE_rec.quantity;
1295: end if;
1296: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
1297:
1298: xx_labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
1299: end if;
1300: end if;
1298: xx_labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
1299: end if;
1300: end if;
1301:
1302: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
1303: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
1304: nvl(p_debrief_line_rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num) then
1305:
1306: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1299: end if;
1300: end if;
1301:
1302: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
1303: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
1304: nvl(p_debrief_line_rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num) then
1305:
1306: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1307:
1300: end if;
1301:
1302: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
1303: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
1304: nvl(p_debrief_line_rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num) then
1305:
1306: if p_debrief_line_rec.UOM_CODE <> l_hr_uom then
1307:
1308: l_quantity := inv_convert.inv_um_convert(
1317:
1318: l_quantity := p_DEBRIEF_LINE_rec.quantity;
1319: end if;
1320:
1321: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
1322:
1323: xx_labor_end_date := p_DEBRIEF_LINE_rec.labor_start_date + l_quantity/24;
1324: end if;
1325: end if;
1326: if nvl(p_debrief_line_rec.channel_code,'a') not in ('CSF_LAPTOP','CSF_PALM') then
1327: validate_start_end(xx_labor_start_date,
1328: xx_labor_end_date,
1329: p_debrief_line_rec.debrief_header_id,
1330: fnd_api.g_false,
1331: X_Return_Status,
1332: X_Msg_Count,
1333: X_Msg_Data);
1334: if x_return_status <> fnd_api.g_ret_sts_success then
1330: fnd_api.g_false,
1331: X_Return_Status,
1332: X_Msg_Count,
1333: X_Msg_Data);
1334: if x_return_status <> fnd_api.g_ret_sts_success then
1335: x_return_status := fnd_api.g_ret_sts_unexp_error;
1336: raise fnd_api.g_exc_unexpected_error;
1337: end if;
1338: end if;
1331: X_Return_Status,
1332: X_Msg_Count,
1333: X_Msg_Data);
1334: if x_return_status <> fnd_api.g_ret_sts_success then
1335: x_return_status := fnd_api.g_ret_sts_unexp_error;
1336: raise fnd_api.g_exc_unexpected_error;
1337: end if;
1338: end if;
1339: END IF;
1332: X_Msg_Count,
1333: X_Msg_Data);
1334: if x_return_status <> fnd_api.g_ret_sts_success then
1335: x_return_status := fnd_api.g_ret_sts_unexp_error;
1336: raise fnd_api.g_exc_unexpected_error;
1337: end if;
1338: end if;
1339: END IF;
1340: --dbms_output.put_line('5');
1338: end if;
1339: END IF;
1340: --dbms_output.put_line('5');
1341:
1342: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1343:
1344: if l_debrief_type = 'M' then
1345: validate_subinventory_code(
1346: p_init_msg_list => fnd_api.g_false,
1342: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
1343:
1344: if l_debrief_type = 'M' then
1345: validate_subinventory_code(
1346: p_init_msg_list => fnd_api.g_false,
1347: p_organization_id => nvl(p_debrief_line_rec.issuing_inventory_org_id,p_debrief_line_rec.receiving_inventory_org_id),
1348: p_subinventory_code => nvl(p_debrief_line_rec.issuing_sub_inventory_code,p_debrief_line_rec.receiving_sub_inventory_code),
1349: x_return_status => x_return_status,
1350: x_msg_count => x_msg_count,
1349: x_return_status => x_return_status,
1350: x_msg_count => x_msg_count,
1351: x_msg_data => x_msg_data);
1352:
1353: if x_return_status <> fnd_api.g_ret_sts_success then
1354: x_return_status := fnd_api.g_ret_sts_unexp_error;
1355: raise fnd_api.g_exc_unexpected_error;
1356: end if;
1357: END IF;
1350: x_msg_count => x_msg_count,
1351: x_msg_data => x_msg_data);
1352:
1353: if x_return_status <> fnd_api.g_ret_sts_success then
1354: x_return_status := fnd_api.g_ret_sts_unexp_error;
1355: raise fnd_api.g_exc_unexpected_error;
1356: end if;
1357: END IF;
1358: --dbms_output.put_line('6');
1351: x_msg_data => x_msg_data);
1352:
1353: if x_return_status <> fnd_api.g_ret_sts_success then
1354: x_return_status := fnd_api.g_ret_sts_unexp_error;
1355: raise fnd_api.g_exc_unexpected_error;
1356: end if;
1357: END IF;
1358: --dbms_output.put_line('6');
1359: log('test', 'before calling Validate_Service_Date p_debrief_line_rec.Service_Date=' || p_debrief_line_rec.Service_Date);
1360:
1361: /* for testing only.. remove this comment after done
1362:
1363: Validate_Service_Date (
1364: P_Init_Msg_List =>FND_API.G_FALSE,
1365: P_Service_Date =>p_debrief_line_rec.Service_Date,
1366: X_Return_Status =>x_return_status,
1367: X_Msg_Count =>x_msg_count,
1368: X_Msg_Data =>x_msg_data);
1365: P_Service_Date =>p_debrief_line_rec.Service_Date,
1366: X_Return_Status =>x_return_status,
1367: X_Msg_Count =>x_msg_count,
1368: X_Msg_Data =>x_msg_data);
1369: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error;
1371: RAISE fnd_api.g_exc_unexpected_error;
1372: END IF;
1373:
1366: X_Return_Status =>x_return_status,
1367: X_Msg_Count =>x_msg_count,
1368: X_Msg_Data =>x_msg_data);
1369: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error;
1371: RAISE fnd_api.g_exc_unexpected_error;
1372: END IF;
1373:
1374: */
1367: X_Msg_Count =>x_msg_count,
1368: X_Msg_Data =>x_msg_data);
1369: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1370: x_return_status := fnd_api.g_ret_sts_unexp_error;
1371: RAISE fnd_api.g_exc_unexpected_error;
1372: END IF;
1373:
1374: */
1375:
1374: */
1375:
1376: --dbms_output.put_line('7');
1377: --dbms_output.put_line('l_debrief_type :: '|| l_debrief_type);
1378: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1379: fnd_api.g_miss_num and l_debrief_type = 'L' then
1380: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1381: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1375:
1376: --dbms_output.put_line('7');
1377: --dbms_output.put_line('l_debrief_type :: '|| l_debrief_type);
1378: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1379: fnd_api.g_miss_num and l_debrief_type = 'L' then
1380: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1381: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1376: --dbms_output.put_line('7');
1377: --dbms_output.put_line('l_debrief_type :: '|| l_debrief_type);
1378: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1379: fnd_api.g_miss_num and l_debrief_type = 'L' then
1380: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1381: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1384: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1377: --dbms_output.put_line('l_debrief_type :: '|| l_debrief_type);
1378: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1379: fnd_api.g_miss_num and l_debrief_type = 'L' then
1380: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1381: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1384: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1385: FND_MSG_PUB.ADD;
1378: if nvl(p_debrief_line_rec.inventory_item_id,fnd_api.g_miss_num) =
1379: fnd_api.g_miss_num and l_debrief_type = 'L' then
1380: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
1381: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1384: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1385: FND_MSG_PUB.ADD;
1386: END IF;
1383: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1384: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
1385: FND_MSG_PUB.ADD;
1386: END IF;
1387: RAISE fnd_api.g_exc_error;
1388: end if;
1389: else
1390: Validate_Inventory_Item_ID (
1391: P_Init_Msg_List => FND_API.G_FALSE,
1387: RAISE fnd_api.g_exc_error;
1388: end if;
1389: else
1390: Validate_Inventory_Item_ID (
1391: P_Init_Msg_List => FND_API.G_FALSE,
1392: p_organization_id => nvl(p_debrief_line_rec.issuing_inventory_org_id,p_debrief_line_rec.receiving_inventory_org_id),
1393: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
1394: X_Return_Status =>x_return_status,
1395: X_Msg_Count =>x_msg_count,
1393: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
1394: X_Return_Status =>x_return_status,
1395: X_Msg_Count =>x_msg_count,
1396: X_Msg_Data =>x_msg_data);
1397: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1398: x_return_status := fnd_api.g_ret_sts_unexp_error;
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401: --dbms_output.put_line('8');
1394: X_Return_Status =>x_return_status,
1395: X_Msg_Count =>x_msg_count,
1396: X_Msg_Data =>x_msg_data);
1397: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1398: x_return_status := fnd_api.g_ret_sts_unexp_error;
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401: --dbms_output.put_line('8');
1402: Validate_Instance_ID (
1395: X_Msg_Count =>x_msg_count,
1396: X_Msg_Data =>x_msg_data);
1397: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1398: x_return_status := fnd_api.g_ret_sts_unexp_error;
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401: --dbms_output.put_line('8');
1402: Validate_Instance_ID (
1403: P_Init_Msg_List => FND_API.G_FALSE,
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401: --dbms_output.put_line('8');
1402: Validate_Instance_ID (
1403: P_Init_Msg_List => FND_API.G_FALSE,
1404: P_Instance_ID =>p_debrief_line_rec.Instance_ID,
1405: X_Return_Status =>x_return_status,
1406: X_Msg_Count =>x_msg_count,
1407: X_Msg_Data =>x_msg_data);
1404: P_Instance_ID =>p_debrief_line_rec.Instance_ID,
1405: X_Return_Status =>x_return_status,
1406: X_Msg_Count =>x_msg_count,
1407: X_Msg_Data =>x_msg_data);
1408: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1409: x_return_status := fnd_api.g_ret_sts_unexp_error;
1410: RAISE fnd_api.g_exc_unexpected_error;
1411: END IF;
1412: END IF;
1405: X_Return_Status =>x_return_status,
1406: X_Msg_Count =>x_msg_count,
1407: X_Msg_Data =>x_msg_data);
1408: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1409: x_return_status := fnd_api.g_ret_sts_unexp_error;
1410: RAISE fnd_api.g_exc_unexpected_error;
1411: END IF;
1412: END IF;
1413: --dbms_output.put_line('9');
1406: X_Msg_Count =>x_msg_count,
1407: X_Msg_Data =>x_msg_data);
1408: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1409: x_return_status := fnd_api.g_ret_sts_unexp_error;
1410: RAISE fnd_api.g_exc_unexpected_error;
1411: END IF;
1412: END IF;
1413: --dbms_output.put_line('9');
1414: Validate_Debrief_Header_ID (
1411: END IF;
1412: END IF;
1413: --dbms_output.put_line('9');
1414: Validate_Debrief_Header_ID (
1415: P_Init_Msg_List => FND_API.G_FALSE,
1416: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
1417: X_Return_Status =>x_return_status,
1418: X_Msg_Count =>x_msg_count,
1419: X_Msg_Data =>x_msg_data);
1416: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
1417: X_Return_Status =>x_return_status,
1418: X_Msg_Count =>x_msg_count,
1419: X_Msg_Data =>x_msg_data);
1420: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: x_return_status := fnd_api.g_ret_sts_unexp_error;
1422: RAISE fnd_api.g_exc_unexpected_error;
1423: END IF;
1424: --dbms_output.put_line('10');
1417: X_Return_Status =>x_return_status,
1418: X_Msg_Count =>x_msg_count,
1419: X_Msg_Data =>x_msg_data);
1420: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: x_return_status := fnd_api.g_ret_sts_unexp_error;
1422: RAISE fnd_api.g_exc_unexpected_error;
1423: END IF;
1424: --dbms_output.put_line('10');
1425: --dbms_output.put_line('Value: '||p_debrief_line_rec.usage_type);
1418: X_Msg_Count =>x_msg_count,
1419: X_Msg_Data =>x_msg_data);
1420: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: x_return_status := fnd_api.g_ret_sts_unexp_error;
1422: RAISE fnd_api.g_exc_unexpected_error;
1423: END IF;
1424: --dbms_output.put_line('10');
1425: --dbms_output.put_line('Value: '||p_debrief_line_rec.usage_type);
1426: IF p_debrief_line_rec.usage_type <> 'DOA' AND p_debrief_line_rec.usage_type <> 'UNUSED'
1425: --dbms_output.put_line('Value: '||p_debrief_line_rec.usage_type);
1426: IF p_debrief_line_rec.usage_type <> 'DOA' AND p_debrief_line_rec.usage_type <> 'UNUSED'
1427: THEN
1428: Validate_BUSINESS_PROCESS_ID (
1429: P_Init_Msg_List => FND_API.G_FALSE,
1430: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
1431: X_Return_Status =>x_return_status,
1432: X_Msg_Count =>x_msg_count,
1433: X_Msg_Data =>x_msg_data);
1430: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
1431: X_Return_Status =>x_return_status,
1432: X_Msg_Count =>x_msg_count,
1433: X_Msg_Data =>x_msg_data);
1434: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1435: x_return_status := fnd_api.g_ret_sts_unexp_error;
1436: RAISE fnd_api.g_exc_unexpected_error;
1437: END IF;
1438: --dbms_output.put_line('11');
1431: X_Return_Status =>x_return_status,
1432: X_Msg_Count =>x_msg_count,
1433: X_Msg_Data =>x_msg_data);
1434: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1435: x_return_status := fnd_api.g_ret_sts_unexp_error;
1436: RAISE fnd_api.g_exc_unexpected_error;
1437: END IF;
1438: --dbms_output.put_line('11');
1439: Validate_TRANSACTION_TYPE_ID (
1432: X_Msg_Count =>x_msg_count,
1433: X_Msg_Data =>x_msg_data);
1434: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1435: x_return_status := fnd_api.g_ret_sts_unexp_error;
1436: RAISE fnd_api.g_exc_unexpected_error;
1437: END IF;
1438: --dbms_output.put_line('11');
1439: Validate_TRANSACTION_TYPE_ID (
1440: P_Init_Msg_List => FND_API.G_FALSE,
1436: RAISE fnd_api.g_exc_unexpected_error;
1437: END IF;
1438: --dbms_output.put_line('11');
1439: Validate_TRANSACTION_TYPE_ID (
1440: P_Init_Msg_List => FND_API.G_FALSE,
1441: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
1442: X_Return_Status =>x_return_status,
1443: X_Msg_Count =>x_msg_count,
1444: X_Msg_Data =>x_msg_data);
1441: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
1442: X_Return_Status =>x_return_status,
1443: X_Msg_Count =>x_msg_count,
1444: X_Msg_Data =>x_msg_data);
1445: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1446: x_return_status := fnd_api.g_ret_sts_unexp_error;
1447: RAISE fnd_api.g_exc_unexpected_error;
1448: END IF;
1449:
1442: X_Return_Status =>x_return_status,
1443: X_Msg_Count =>x_msg_count,
1444: X_Msg_Data =>x_msg_data);
1445: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1446: x_return_status := fnd_api.g_ret_sts_unexp_error;
1447: RAISE fnd_api.g_exc_unexpected_error;
1448: END IF;
1449:
1450: END IF;
1443: X_Msg_Count =>x_msg_count,
1444: X_Msg_Data =>x_msg_data);
1445: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1446: x_return_status := fnd_api.g_ret_sts_unexp_error;
1447: RAISE fnd_api.g_exc_unexpected_error;
1448: END IF;
1449:
1450: END IF;
1451: END IF;
1450: END IF;
1451: END IF;
1452: --dbms_output.put_line('12');
1453: l_debrief_line_id := p_debrief_line_rec.debrief_line_id;
1454: if (l_debrief_line_id<>FND_API.G_MISS_NUM) and (l_debrief_line_id is not NULL) then
1455: begin
1456: select 1 into x
1457: from CSF_DEBRIEF_LINES
1458: where DEBRIEF_LINE_ID = l_DEBRIEF_LINE_ID ;
1458: where DEBRIEF_LINE_ID = l_DEBRIEF_LINE_ID ;
1459:
1460: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1461: fnd_msg_pub.add;
1462: x_return_status := fnd_api.g_ret_sts_unexp_error;
1463: RAISE fnd_api.g_exc_unexpected_error;
1464: exception
1465: when no_data_found then
1466: null ;
1459:
1460: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1461: fnd_msg_pub.add;
1462: x_return_status := fnd_api.g_ret_sts_unexp_error;
1463: RAISE fnd_api.g_exc_unexpected_error;
1464: exception
1465: when no_data_found then
1466: null ;
1467: when too_many_rows then
1466: null ;
1467: when too_many_rows then
1468: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1469: fnd_msg_pub.add;
1470: x_return_status := fnd_api.g_ret_sts_unexp_error;
1471: RAISE fnd_api.g_exc_unexpected_error;
1472: end ;
1473: ELSE
1474:
1467: when too_many_rows then
1468: fnd_message.set_name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1469: fnd_msg_pub.add;
1470: x_return_status := fnd_api.g_ret_sts_unexp_error;
1471: RAISE fnd_api.g_exc_unexpected_error;
1472: end ;
1473: ELSE
1474:
1475: SELECT CSF_DEBRIEF_LINES_S.nextval
1593: x_msg_data => x_msg_data,
1594: x_debrief_number => l_debrief_number,
1595: x_task_number => l_task_number
1596: );
1597: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1598: FND_MESSAGE.Set_Name('CSF', 'CSF_OVERLAP_LABOR_LINE');
1599: FND_MESSAGE.SET_TOKEN ('TASK_NUMBER', l_task_number);
1600: FND_MSG_PUB.ADD;
1601: RAISE fnd_api.g_exc_error;
1597: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1598: FND_MESSAGE.Set_Name('CSF', 'CSF_OVERLAP_LABOR_LINE');
1599: FND_MESSAGE.SET_TOKEN ('TASK_NUMBER', l_task_number);
1600: FND_MSG_PUB.ADD;
1601: RAISE fnd_api.g_exc_error;
1602: END IF;
1603: END IF;
1604: --Update actual times for task and task assignment
1605: if l_debrief_type = 'L' then
1606: update_task_actuals(p_debrief_line_rec.debrief_header_id, -- modified for bug 3748610
1607: x_return_status,
1608: x_msg_count,
1609: x_msg_data);
1610: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1611: RAISE FND_API.G_EXC_ERROR;
1612: END IF;
1613: end if;
1614: if l_debrief_type='L' then
1607: x_return_status,
1608: x_msg_count,
1609: x_msg_data);
1610: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1611: RAISE FND_API.G_EXC_ERROR;
1612: END IF;
1613: end if;
1614: if l_debrief_type='L' then
1615: Begin
1642: where resource_id = z_resource_id;
1643:
1644: /* jtf_rs_resource_pub.update_resource
1645: (P_API_VERSION => 1,
1646: P_INIT_MSG_LIST => fnd_api.g_false,
1647: P_COMMIT => fnd_api.g_false,
1648: P_RESOURCE_ID => z_resource_id,
1649: P_RESOURCE_NUMBER => null,
1650: P_LOCATION => z_location,
1643:
1644: /* jtf_rs_resource_pub.update_resource
1645: (P_API_VERSION => 1,
1646: P_INIT_MSG_LIST => fnd_api.g_false,
1647: P_COMMIT => fnd_api.g_false,
1648: P_RESOURCE_ID => z_resource_id,
1649: P_RESOURCE_NUMBER => null,
1650: P_LOCATION => z_location,
1651: P_object_version_num => z_object_version_number,
1651: P_object_version_num => z_object_version_number,
1652: X_RETURN_STATUS => x_return_status,
1653: X_MSG_COUNT => x_msg_count,
1654: X_MSG_DATA => x_msg_data);
1655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1656: Raise FND_API.G_EXC_ERROR;
1657: END IF;
1658: */
1659: END IF;
1652: X_RETURN_STATUS => x_return_status,
1653: X_MSG_COUNT => x_msg_count,
1654: X_MSG_DATA => x_msg_data);
1655: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1656: Raise FND_API.G_EXC_ERROR;
1657: END IF;
1658: */
1659: END IF;
1660: Exception
1668:
1669: BEGIN
1670: Validate_Task_Assignment_Satus(
1671: P_Api_Version_Number =>1.0,
1672: P_Init_Msg_List => FND_API.G_FALSE,
1673: P_Commit => FND_API.G_FALSE,
1674: P_Task_Assignment_status =>P_Task_Assignment_status,
1675: X_TA_STATUS_ID =>l_assignment_status_id,
1676: X_Return_Status =>X_Return_Status,
1669: BEGIN
1670: Validate_Task_Assignment_Satus(
1671: P_Api_Version_Number =>1.0,
1672: P_Init_Msg_List => FND_API.G_FALSE,
1673: P_Commit => FND_API.G_FALSE,
1674: P_Task_Assignment_status =>P_Task_Assignment_status,
1675: X_TA_STATUS_ID =>l_assignment_status_id,
1676: X_Return_Status =>X_Return_Status,
1677: X_Msg_Count =>X_MSG_COUNT,
1675: X_TA_STATUS_ID =>l_assignment_status_id,
1676: X_Return_Status =>X_Return_Status,
1677: X_Msg_Count =>X_MSG_COUNT,
1678: X_Msg_Data =>X_MSG_DATA);
1679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1680: RAISE FND_API.G_EXC_ERROR;
1681: END IF;
1682:
1683:
1676: X_Return_Status =>X_Return_Status,
1677: X_Msg_Count =>X_MSG_COUNT,
1678: X_Msg_Data =>X_MSG_DATA);
1679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1680: RAISE FND_API.G_EXC_ERROR;
1681: END IF;
1682:
1683:
1684: select jta.task_assignment_id,
1694:
1695:
1696: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
1697: P_API_VERSION =>1.0 ,
1698: P_INIT_MSG_LIST =>FND_API.G_FALSE,
1699: P_COMMIT =>FND_API.G_FALSE,
1700: X_RETURN_STATUS =>x_return_status,
1701: X_MSG_COUNT =>x_msg_count,
1702: X_MSG_DATA =>x_msg_data,
1695:
1696: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
1697: P_API_VERSION =>1.0 ,
1698: P_INIT_MSG_LIST =>FND_API.G_FALSE,
1699: P_COMMIT =>FND_API.G_FALSE,
1700: X_RETURN_STATUS =>x_return_status,
1701: X_MSG_COUNT =>x_msg_count,
1702: X_MSG_DATA =>x_msg_data,
1703: P_TASK_ASSIGNMENT_ID =>l_task_assignment_id,
1705: P_OBJECT_VERSION_NUMBER =>l_object_version_number,
1706: P_UPDATE_TASK =>'T',
1707: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
1708: X_TASK_STATUS_ID =>l_task_status_id);
1709: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1710: RAISE FND_API.G_EXC_ERROR;
1711: END IF;
1712:
1713: EXCEPTION
1706: P_UPDATE_TASK =>'T',
1707: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
1708: X_TASK_STATUS_ID =>l_task_status_id);
1709: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1710: RAISE FND_API.G_EXC_ERROR;
1711: END IF;
1712:
1713: EXCEPTION
1714: WHEN OTHERS THEN
1715: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1716: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_UPDATE_TASK_ASSIGNMENT');
1717: FND_MSG_PUB.ADD;
1718: END IF;
1719: RAISE FND_API.G_EXC_ERROR;
1720: END;
1721: end if;
1722: END IF;
1723: END;
1741: 1.0,
1742: p_debrief_line_rec.debrief_header_id);
1743: end if;
1744: -- Standard check for p_commit
1745: IF FND_API.to_Boolean( p_commit )
1746: THEN
1747: COMMIT WORK;
1748: END IF;
1749:
1755: p_data => x_msg_data
1756: );
1757: --dbms_output.put_line('Start of EXCEPTION Block');
1758: EXCEPTION
1759: WHEN FND_API.G_EXC_ERROR THEN
1760: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: FND_MSG_PUB.Count_And_Get (
1763: P_COUNT => X_MSG_COUNT
1757: --dbms_output.put_line('Start of EXCEPTION Block');
1758: EXCEPTION
1759: WHEN FND_API.G_EXC_ERROR THEN
1760: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: FND_MSG_PUB.Count_And_Get (
1763: P_COUNT => X_MSG_COUNT
1764: ,P_DATA => X_MSG_DATA);
1765:
1762: FND_MSG_PUB.Count_And_Get (
1763: P_COUNT => X_MSG_COUNT
1764: ,P_DATA => X_MSG_DATA);
1765:
1766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1767: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1769: FND_MSG_PUB.Count_And_Get (
1770: P_COUNT => X_MSG_COUNT
1764: ,P_DATA => X_MSG_DATA);
1765:
1766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1767: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1769: FND_MSG_PUB.Count_And_Get (
1770: P_COUNT => X_MSG_COUNT
1771: ,P_DATA => X_MSG_DATA);
1772: WHEN OTHERS THEN
1770: P_COUNT => X_MSG_COUNT
1771: ,P_DATA => X_MSG_DATA);
1772: WHEN OTHERS THEN
1773: ROLLBACK TO CREATE_DEBRIEF_LINE_PVT;
1774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1776: THEN
1777: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,L_API_NAME );
1778: END IF;
1785: -- **********
1786:
1787: PROCEDURE Validate_Task_Assignment_Satus(
1788: P_Api_Version_Number IN NUMBER,
1789: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1790: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1791: P_Task_Assignment_status IN VARCHAR2 ,
1792: X_TA_STATUS_ID OUT NOCOPY NUMBER,
1793: X_Return_Status OUT NOCOPY VARCHAR2,
1786:
1787: PROCEDURE Validate_Task_Assignment_Satus(
1788: P_Api_Version_Number IN NUMBER,
1789: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1790: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1791: P_Task_Assignment_status IN VARCHAR2 ,
1792: X_TA_STATUS_ID OUT NOCOPY NUMBER,
1793: X_Return_Status OUT NOCOPY VARCHAR2,
1794: X_Msg_Count OUT NOCOPY NUMBER,
1802: where name=P_Task_Assignment_status;
1803:
1804: BEGIN
1805: -- Initialize message list if p_init_msg_list is set to TRUE.
1806: IF FND_API.to_Boolean( p_init_msg_list )
1807: THEN
1808: FND_MSG_PUB.initialize;
1809: END IF;
1810:
1808: FND_MSG_PUB.initialize;
1809: END IF;
1810:
1811: -- Initialize API return status to SUCCESS
1812: x_return_status := FND_API.G_RET_STS_SUCCESS;
1813: IF (P_Task_Assignment_status is NULL OR P_Task_Assignment_status = FND_API.G_MISS_CHAR) THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1816: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TA_STATUS');
1809: END IF;
1810:
1811: -- Initialize API return status to SUCCESS
1812: x_return_status := FND_API.G_RET_STS_SUCCESS;
1813: IF (P_Task_Assignment_status is NULL OR P_Task_Assignment_status = FND_API.G_MISS_CHAR) THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1816: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TA_STATUS');
1817: FND_MSG_PUB.ADD;
1810:
1811: -- Initialize API return status to SUCCESS
1812: x_return_status := FND_API.G_RET_STS_SUCCESS;
1813: IF (P_Task_Assignment_status is NULL OR P_Task_Assignment_status = FND_API.G_MISS_CHAR) THEN
1814: x_return_status := FND_API.G_RET_STS_ERROR;
1815: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1816: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TA_STATUS');
1817: FND_MSG_PUB.ADD;
1818: END IF;
1820: open validate_ta_status;
1821: fetch validate_ta_status into X_TA_STATUS_ID;
1822: if validate_ta_status%notfound then
1823: close validate_ta_status ;
1824: x_return_status := FND_API.G_RET_STS_ERROR;
1825: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1826: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_TAvalvav_STATUS');
1827: FND_MSG_PUB.ADD;
1828: END IF;
1839: -- **********
1840:
1841: PROCEDURE Update_debrief_line(
1842: P_Api_Version_Number IN NUMBER,
1843: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1844: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1845: P_Upd_tskassgnstatus IN VARCHAR2 ,
1846: P_Task_Assignment_status IN VARCHAR2 ,
1847: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1840:
1841: PROCEDURE Update_debrief_line(
1842: P_Api_Version_Number IN NUMBER,
1843: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1844: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1845: P_Upd_tskassgnstatus IN VARCHAR2 ,
1846: P_Task_Assignment_status IN VARCHAR2 ,
1847: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1848: P_DEBRIEF_LINE_Rec IN OUT NOCOPY DEBRIEF_LINE_Rec_type,
1843: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1844: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1845: P_Upd_tskassgnstatus IN VARCHAR2 ,
1846: P_Task_Assignment_status IN VARCHAR2 ,
1847: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1848: P_DEBRIEF_LINE_Rec IN OUT NOCOPY DEBRIEF_LINE_Rec_type,
1849: X_Return_Status OUT NOCOPY VARCHAR2,
1850: X_Msg_Count OUT NOCOPY NUMBER,
1851: X_Msg_Data OUT NOCOPY VARCHAR2
1947: l_debrief_type := debrief_type(p_debrief_line_rec);
1948:
1949: l_issuing_inventory_org_id := p_debrief_line_rec.issuing_inventory_org_id;
1950: l_receiving_inventory_org_id := p_debrief_line_rec.receiving_inventory_org_id;
1951: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1952: l_issuing_inventory_org_id := null;
1953: end if;
1954: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1955: l_receiving_inventory_org_id := null;
1950: l_receiving_inventory_org_id := p_debrief_line_rec.receiving_inventory_org_id;
1951: if p_debrief_line_rec.issuing_inventory_org_id = fnd_api.g_miss_num then
1952: l_issuing_inventory_org_id := null;
1953: end if;
1954: if p_debrief_line_rec.receiving_inventory_org_id = fnd_api.g_miss_num then
1955: l_receiving_inventory_org_id := null;
1956: end if;
1957:
1958: -- Standard Start of API savepoint
1958: -- Standard Start of API savepoint
1959: SAVEPOINT UPDATE_DEBRIEF_LINE_PVT;
1960:
1961: -- Standard call to check for call compatibility.
1962: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1963: p_api_version_number,
1964: l_api_name,
1965: G_PKG_NAME)
1966: THEN
1963: p_api_version_number,
1964: l_api_name,
1965: G_PKG_NAME)
1966: THEN
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
1969:
1970: IF FND_API.to_Boolean( p_init_msg_list )
1971: THEN
1966: THEN
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
1969:
1970: IF FND_API.to_Boolean( p_init_msg_list )
1971: THEN
1972: FND_MSG_PUB.initialize;
1973: END IF;
1974:
1972: FND_MSG_PUB.initialize;
1973: END IF;
1974:
1975: -- Initialize API return status to SUCCESS
1976: x_return_status := FND_API.G_RET_STS_SUCCESS;
1977:
1978: -- Virendra Singh 03/21/2000
1979: -- fetch charge upload status and check if its already upload
1980: -- then don't update debrief lines
1988: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_INVALID_LINE_ID');
1989: FND_MSG_PUB.Add;
1990:
1991: END IF;
1992: raise FND_API.G_EXC_ERROR;
1993: end if;
1994: close GET_CHARGE_UPLOAD_STATUS;
1995: l_cp_status := p_debrief_line_rec.STATUS_OF_RECEIVED_PART;
1996: if (l_cp_status is null or l_cp_status=FND_API.G_MISS_CHAR) then
1992: raise FND_API.G_EXC_ERROR;
1993: end if;
1994: close GET_CHARGE_UPLOAD_STATUS;
1995: l_cp_status := p_debrief_line_rec.STATUS_OF_RECEIVED_PART;
1996: if (l_cp_status is null or l_cp_status=FND_API.G_MISS_CHAR) then
1997: open c_cp_status(p_debrief_line_rec.TXN_BILLING_TYPE_ID);
1998: fetch c_cp_status into l_cp_status_id;
1999: close c_cp_status;
2000: else
2011: FND_MSG_PUB.Add;
2012: x_return_status := 'E';
2013: END IF;
2014: ELSE
2015: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2016: THEN
2017: IF (p_debrief_line_rec.Service_Date<> FND_API.G_MISS_DATE) then
2018: Validate_Service_Date (
2019: P_Init_Msg_List =>FND_API.G_FALSE,
2013: END IF;
2014: ELSE
2015: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2016: THEN
2017: IF (p_debrief_line_rec.Service_Date<> FND_API.G_MISS_DATE) then
2018: Validate_Service_Date (
2019: P_Init_Msg_List =>FND_API.G_FALSE,
2020: P_Service_Date =>p_debrief_line_rec.Service_Date,
2021: X_Return_Status =>x_return_status,
2015: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
2016: THEN
2017: IF (p_debrief_line_rec.Service_Date<> FND_API.G_MISS_DATE) then
2018: Validate_Service_Date (
2019: P_Init_Msg_List =>FND_API.G_FALSE,
2020: P_Service_Date =>p_debrief_line_rec.Service_Date,
2021: X_Return_Status =>x_return_status,
2022: X_Msg_Count =>x_msg_count,
2023: X_Msg_Data =>x_msg_data);
2020: P_Service_Date =>p_debrief_line_rec.Service_Date,
2021: X_Return_Status =>x_return_status,
2022: X_Msg_Count =>x_msg_count,
2023: X_Msg_Data =>x_msg_data);
2024: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2025: x_return_status := fnd_api.g_ret_sts_unexp_error;
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: END IF;
2021: X_Return_Status =>x_return_status,
2022: X_Msg_Count =>x_msg_count,
2023: X_Msg_Data =>x_msg_data);
2024: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2025: x_return_status := fnd_api.g_ret_sts_unexp_error;
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: END IF;
2029: 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
2022: X_Msg_Count =>x_msg_count,
2023: X_Msg_Data =>x_msg_data);
2024: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2025: x_return_status := fnd_api.g_ret_sts_unexp_error;
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: END IF;
2029: 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
2030: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
2025: x_return_status := fnd_api.g_ret_sts_unexp_error;
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: END IF;
2029: 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
2030: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
2031: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2026: RAISE fnd_api.g_exc_unexpected_error;
2027: END IF;
2028: END IF;
2029: 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
2030: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
2031: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2034: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
2027: END IF;
2028: END IF;
2029: 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
2030: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
2031: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2034: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
2035: FND_MSG_PUB.ADD;
2028: END IF;
2029: 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
2030: if nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date and
2031: nvl(p_debrief_line_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
2032: x_return_status := FND_API.G_RET_STS_ERROR;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2034: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
2035: FND_MSG_PUB.ADD;
2036: END IF;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2034: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_LABOR_DATES_ITEM');
2035: FND_MSG_PUB.ADD;
2036: END IF;
2037: RAISE fnd_api.g_exc_error;
2038: end if;
2039: else
2040: Validate_Inventory_Item_ID (
2041: P_Init_Msg_List => FND_API.G_FALSE,
2037: RAISE fnd_api.g_exc_error;
2038: end if;
2039: else
2040: Validate_Inventory_Item_ID (
2041: P_Init_Msg_List => FND_API.G_FALSE,
2042: p_organization_id => nvl(l_issuing_inventory_org_id,l_receiving_inventory_org_id),
2043: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
2044: X_Return_Status =>x_return_status,
2045: X_Msg_Count =>x_msg_count,
2043: P_Inventory_Item_ID =>p_debrief_line_rec.Inventory_Item_ID,
2044: X_Return_Status =>x_return_status,
2045: X_Msg_Count =>x_msg_count,
2046: X_Msg_Data =>x_msg_data);
2047: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2048: x_return_status := fnd_api.g_ret_sts_unexp_error;
2049: RAISE fnd_api.g_exc_unexpected_error;
2050: END IF;
2051: END IF;
2044: X_Return_Status =>x_return_status,
2045: X_Msg_Count =>x_msg_count,
2046: X_Msg_Data =>x_msg_data);
2047: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2048: x_return_status := fnd_api.g_ret_sts_unexp_error;
2049: RAISE fnd_api.g_exc_unexpected_error;
2050: END IF;
2051: END IF;
2052: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2045: X_Msg_Count =>x_msg_count,
2046: X_Msg_Data =>x_msg_data);
2047: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2048: x_return_status := fnd_api.g_ret_sts_unexp_error;
2049: RAISE fnd_api.g_exc_unexpected_error;
2050: END IF;
2051: END IF;
2052: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2053: Validate_Debrief_Header_ID (
2048: x_return_status := fnd_api.g_ret_sts_unexp_error;
2049: RAISE fnd_api.g_exc_unexpected_error;
2050: END IF;
2051: END IF;
2052: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2053: Validate_Debrief_Header_ID (
2054: P_Init_Msg_List => FND_API.G_FALSE,
2055: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
2056: X_Return_Status =>x_return_status,
2050: END IF;
2051: END IF;
2052: IF (P_DEBRIEF_LINE_REC.DEBRIEF_HEADER_ID <>FND_API.G_MISS_NUM) THEN
2053: Validate_Debrief_Header_ID (
2054: P_Init_Msg_List => FND_API.G_FALSE,
2055: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
2056: X_Return_Status =>x_return_status,
2057: X_Msg_Count =>x_msg_count,
2058: X_Msg_Data =>x_msg_data);
2055: P_Debrief_Header_ID =>p_debrief_line_rec.Debrief_Header_ID,
2056: X_Return_Status =>x_return_status,
2057: X_Msg_Count =>x_msg_count,
2058: X_Msg_Data =>x_msg_data);
2059: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2060: x_return_status := fnd_api.g_ret_sts_unexp_error;
2061: RAISE fnd_api.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2056: X_Return_Status =>x_return_status,
2057: X_Msg_Count =>x_msg_count,
2058: X_Msg_Data =>x_msg_data);
2059: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2060: x_return_status := fnd_api.g_ret_sts_unexp_error;
2061: RAISE fnd_api.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2064: IF p_debrief_line_rec.usage_type <> 'DOA' AND p_debrief_line_rec.usage_type <> 'UNUSED' then
2057: X_Msg_Count =>x_msg_count,
2058: X_Msg_Data =>x_msg_data);
2059: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2060: x_return_status := fnd_api.g_ret_sts_unexp_error;
2061: RAISE fnd_api.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2064: IF p_debrief_line_rec.usage_type <> 'DOA' AND p_debrief_line_rec.usage_type <> 'UNUSED' then
2065: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2061: RAISE fnd_api.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2064: IF p_debrief_line_rec.usage_type <> 'DOA' AND p_debrief_line_rec.usage_type <> 'UNUSED' then
2065: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2066: Validate_BUSINESS_PROCESS_ID (
2067: P_Init_Msg_List => FND_API.G_FALSE,
2068: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
2069: X_Return_Status =>x_return_status,
2063: END IF;
2064: IF p_debrief_line_rec.usage_type <> 'DOA' AND p_debrief_line_rec.usage_type <> 'UNUSED' then
2065: IF (P_DEBRIEF_LINE_REC.BUSINESS_PROCESS_ID <> FND_API.G_MISS_NUM) THEN
2066: Validate_BUSINESS_PROCESS_ID (
2067: P_Init_Msg_List => FND_API.G_FALSE,
2068: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
2069: X_Return_Status =>x_return_status,
2070: X_Msg_Count =>x_msg_count,
2071: X_Msg_Data =>x_msg_data);
2068: P_BUSINESS_PROCESS_ID =>p_debrief_line_rec.BUSINESS_PROCESS_ID,
2069: X_Return_Status =>x_return_status,
2070: X_Msg_Count =>x_msg_count,
2071: X_Msg_Data =>x_msg_data);
2072: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2073: x_return_status := fnd_api.g_ret_sts_unexp_error;
2074: RAISE fnd_api.g_exc_unexpected_error;
2075: END IF;
2076: END IF;
2069: X_Return_Status =>x_return_status,
2070: X_Msg_Count =>x_msg_count,
2071: X_Msg_Data =>x_msg_data);
2072: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2073: x_return_status := fnd_api.g_ret_sts_unexp_error;
2074: RAISE fnd_api.g_exc_unexpected_error;
2075: END IF;
2076: END IF;
2077: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2070: X_Msg_Count =>x_msg_count,
2071: X_Msg_Data =>x_msg_data);
2072: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2073: x_return_status := fnd_api.g_ret_sts_unexp_error;
2074: RAISE fnd_api.g_exc_unexpected_error;
2075: END IF;
2076: END IF;
2077: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2078: Validate_TRANSACTION_TYPE_ID (
2073: x_return_status := fnd_api.g_ret_sts_unexp_error;
2074: RAISE fnd_api.g_exc_unexpected_error;
2075: END IF;
2076: END IF;
2077: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2078: Validate_TRANSACTION_TYPE_ID (
2079: P_Init_Msg_List => FND_API.G_FALSE,
2080: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
2081: X_Return_Status =>x_return_status,
2075: END IF;
2076: END IF;
2077: IF (P_DEBRIEF_LINE_REC.TXN_BILLING_TYPE_ID <> FND_API.G_MISS_NUM) THEN
2078: Validate_TRANSACTION_TYPE_ID (
2079: P_Init_Msg_List => FND_API.G_FALSE,
2080: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
2081: X_Return_Status =>x_return_status,
2082: X_Msg_Count =>x_msg_count,
2083: X_Msg_Data =>x_msg_data);
2080: P_TRANSACTION_TYPE_ID =>p_debrief_line_rec.transaction_type_id,
2081: X_Return_Status =>x_return_status,
2082: X_Msg_Count =>x_msg_count,
2083: X_Msg_Data =>x_msg_data);
2084: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: x_return_status := fnd_api.g_ret_sts_unexp_error;
2086: RAISE fnd_api.g_exc_unexpected_error;
2087: END IF;
2088: END IF;
2081: X_Return_Status =>x_return_status,
2082: X_Msg_Count =>x_msg_count,
2083: X_Msg_Data =>x_msg_data);
2084: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: x_return_status := fnd_api.g_ret_sts_unexp_error;
2086: RAISE fnd_api.g_exc_unexpected_error;
2087: END IF;
2088: END IF;
2089: end if;
2082: X_Msg_Count =>x_msg_count,
2083: X_Msg_Data =>x_msg_data);
2084: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: x_return_status := fnd_api.g_ret_sts_unexp_error;
2086: RAISE fnd_api.g_exc_unexpected_error;
2087: END IF;
2088: END IF;
2089: end if;
2090: END IF;
2095: open labor_uom(p_debrief_line_rec.inventory_item_id);
2096: fetch labor_uom into l_uom_code;
2097: close labor_uom;
2098: end if;
2099: if l_debrief_type = 'E' and nvl(p_debrief_line_rec.expense_amount,fnd_api.g_miss_num) <> fnd_api.g_miss_num then
2100: p_debrief_line_rec.UOM_CODE := null;
2101: P_DEBRIEF_LINE_Rec.quantity := null;
2102: end if;
2103: if l_debrief_type = 'L' then
2102: end if;
2103: if l_debrief_type = 'L' then
2104: --we should calculate quantity based on start time and end time
2105: --we should calculate quantity based on start time and end time
2106: if nvl(p_debrief_line_rec.uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2107: open c_uom_code;
2108: fetch c_uom_code into l_uom_code;
2109: close c_uom_code;
2110: -- p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2108: fetch c_uom_code into l_uom_code;
2109: close c_uom_code;
2110: -- p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2111: end if;
2112: if nvl(p_DEBRIEF_LINE_rec.quantity,fnd_api.g_miss_num) = fnd_api.g_miss_num then
2113: l_quantity := (p_debrief_line_rec.LABOR_END_DATE - p_debrief_line_rec.LABOR_START_DATE);
2114: if l_uom_code <> l_hr_uom and l_quantity is not null then
2115: l_quantity := inv_convert.inv_um_convert(
2116: p_debrief_line_rec.INVENTORY_ITEM_ID,
2126: l_quantity := round(nvl(l_quantity,0),4);
2127: p_DEBRIEF_LINE_rec.QUANTITY := round(l_quantity,4);
2128: end if;
2129:
2130: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) = fnd_api.g_miss_date then
2131: if l_uom_code <> l_hr_uom then
2132: l_quantity := inv_convert.inv_um_convert(
2133: p_debrief_line_rec.INVENTORY_ITEM_ID,
2134: 20,
2139: null);
2140: else
2141: l_quantity := p_DEBRIEF_LINE_rec.quantity;
2142: end if;
2143: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
2144: p_debrief_line_rec.labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
2145: end if;
2146: end if;
2147:
2144: p_debrief_line_rec.labor_start_date := p_DEBRIEF_LINE_rec.labor_end_date - l_quantity/24;
2145: end if;
2146: end if;
2147:
2148: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
2149: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
2150: nvl(P_DEBRIEF_LINE_Rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num ) then
2151: if l_uom_code <> l_hr_uom then
2152: l_quantity := inv_convert.inv_um_convert(
2145: end if;
2146: end if;
2147:
2148: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
2149: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
2150: nvl(P_DEBRIEF_LINE_Rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num ) then
2151: if l_uom_code <> l_hr_uom then
2152: l_quantity := inv_convert.inv_um_convert(
2153: p_debrief_line_rec.INVENTORY_ITEM_ID,
2146: end if;
2147:
2148: if nvl(p_DEBRIEF_LINE_rec.labor_end_date,fnd_api.g_miss_date) = fnd_api.g_miss_date or
2149: (nvl(p_debrief_line_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date and
2150: nvl(P_DEBRIEF_LINE_Rec.quantity,fnd_api.g_miss_num) <> fnd_api.g_miss_num ) then
2151: if l_uom_code <> l_hr_uom then
2152: l_quantity := inv_convert.inv_um_convert(
2153: p_debrief_line_rec.INVENTORY_ITEM_ID,
2154: 20,
2159: null);
2160: else
2161: l_quantity := p_DEBRIEF_LINE_rec.quantity;
2162: end if;
2163: if nvl(p_DEBRIEF_LINE_rec.labor_start_date,fnd_api.g_miss_date) <> fnd_api.g_miss_date then
2164: p_debrief_line_rec.labor_end_date := p_DEBRIEF_LINE_rec.labor_start_date + l_quantity/24;
2165: end if;
2166: end if;
2167:
2168: if nvl(p_debrief_line_rec.channel_code,'a') not in ('CSF_LAPTOP','CSF_PALM') then
2169: validate_start_end(p_debrief_line_rec.labor_start_date,
2170: p_debrief_line_rec.labor_end_date,
2171: p_debrief_line_rec.debrief_header_id,
2172: fnd_api.g_false,
2173: X_Return_Status,
2174: X_Msg_Count,
2175: X_Msg_Data);
2176: if x_return_status <> fnd_api.g_ret_sts_success then
2172: fnd_api.g_false,
2173: X_Return_Status,
2174: X_Msg_Count,
2175: X_Msg_Data);
2176: if x_return_status <> fnd_api.g_ret_sts_success then
2177: x_return_status := fnd_api.g_ret_sts_unexp_error;
2178: raise fnd_api.g_exc_unexpected_error;
2179: end if;
2180: end if;
2173: X_Return_Status,
2174: X_Msg_Count,
2175: X_Msg_Data);
2176: if x_return_status <> fnd_api.g_ret_sts_success then
2177: x_return_status := fnd_api.g_ret_sts_unexp_error;
2178: raise fnd_api.g_exc_unexpected_error;
2179: end if;
2180: end if;
2181: if nvl(l_uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2174: X_Msg_Count,
2175: X_Msg_Data);
2176: if x_return_status <> fnd_api.g_ret_sts_success then
2177: x_return_status := fnd_api.g_ret_sts_unexp_error;
2178: raise fnd_api.g_exc_unexpected_error;
2179: end if;
2180: end if;
2181: if nvl(l_uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2182: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2177: x_return_status := fnd_api.g_ret_sts_unexp_error;
2178: raise fnd_api.g_exc_unexpected_error;
2179: end if;
2180: end if;
2181: if nvl(l_uom_code,fnd_api.g_miss_char) = fnd_api.g_miss_char then
2182: p_debrief_line_rec.uom_code := fnd_profile.value('CSF_LABOR_DEBRIEF_DEFAULT_UOM');
2183: end if;
2184: end if;
2185:
2309:
2310:
2311: /* jtf_rs_resource_pub.update_resource
2312: (P_API_VERSION => 1,
2313: P_INIT_MSG_LIST => fnd_api.g_false,
2314: P_COMMIT => fnd_api.g_false,
2315: P_RESOURCE_ID => z_resource_id,
2316: P_RESOURCE_NUMBER => null,
2317: P_LOCATION => z_location,
2310:
2311: /* jtf_rs_resource_pub.update_resource
2312: (P_API_VERSION => 1,
2313: P_INIT_MSG_LIST => fnd_api.g_false,
2314: P_COMMIT => fnd_api.g_false,
2315: P_RESOURCE_ID => z_resource_id,
2316: P_RESOURCE_NUMBER => null,
2317: P_LOCATION => z_location,
2318: P_object_version_num => z_object_version_number,
2318: P_object_version_num => z_object_version_number,
2319: X_RETURN_STATUS => x_return_status,
2320: X_MSG_COUNT => x_msg_count,
2321: X_MSG_DATA => x_msg_data);
2322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2323: Raise FND_API.G_EXC_ERROR;
2324: END IF;
2325: */
2326: END IF;
2319: X_RETURN_STATUS => x_return_status,
2320: X_MSG_COUNT => x_msg_count,
2321: X_MSG_DATA => x_msg_data);
2322: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2323: Raise FND_API.G_EXC_ERROR;
2324: END IF;
2325: */
2326: END IF;
2327:
2336:
2337: BEGIN
2338: Validate_Task_Assignment_Satus(
2339: P_Api_Version_Number =>1.0,
2340: P_Init_Msg_List => FND_API.G_FALSE,
2341: P_Commit => FND_API.G_FALSE,
2342: P_Task_Assignment_status =>P_Task_Assignment_status,
2343: X_TA_STATUS_ID =>l_assignment_status_id,
2344: X_Return_Status =>X_Return_Status,
2337: BEGIN
2338: Validate_Task_Assignment_Satus(
2339: P_Api_Version_Number =>1.0,
2340: P_Init_Msg_List => FND_API.G_FALSE,
2341: P_Commit => FND_API.G_FALSE,
2342: P_Task_Assignment_status =>P_Task_Assignment_status,
2343: X_TA_STATUS_ID =>l_assignment_status_id,
2344: X_Return_Status =>X_Return_Status,
2345: X_Msg_Count =>X_MSG_COUNT,
2343: X_TA_STATUS_ID =>l_assignment_status_id,
2344: X_Return_Status =>X_Return_Status,
2345: X_Msg_Count =>X_MSG_COUNT,
2346: X_Msg_Data =>X_MSG_DATA);
2347: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350:
2351: select jta.task_assignment_id,
2344: X_Return_Status =>X_Return_Status,
2345: X_Msg_Count =>X_MSG_COUNT,
2346: X_Msg_Data =>X_MSG_DATA);
2347: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350:
2351: select jta.task_assignment_id,
2352: jta.object_version_number,
2361:
2362:
2363: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
2364: P_API_VERSION =>1.0 ,
2365: P_INIT_MSG_LIST =>FND_API.G_FALSE,
2366: P_COMMIT =>FND_API.G_FALSE,
2367: X_RETURN_STATUS =>x_return_status,
2368: X_MSG_COUNT =>x_msg_count,
2369: X_MSG_DATA =>x_msg_data,
2362:
2363: CSF_TASK_ASSIGNMENTS_PUB.UPDATE_ASSIGNMENT_STATUS(
2364: P_API_VERSION =>1.0 ,
2365: P_INIT_MSG_LIST =>FND_API.G_FALSE,
2366: P_COMMIT =>FND_API.G_FALSE,
2367: X_RETURN_STATUS =>x_return_status,
2368: X_MSG_COUNT =>x_msg_count,
2369: X_MSG_DATA =>x_msg_data,
2370: P_TASK_ASSIGNMENT_ID =>l_task_assignment_id,
2372: P_OBJECT_VERSION_NUMBER =>l_object_version_number,
2373: P_UPDATE_TASK =>'T',
2374: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
2375: X_TASK_STATUS_ID =>l_task_status_id);
2376: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2377: RAISE FND_API.G_EXC_ERROR;
2378: END IF;
2379:
2380: EXCEPTION
2373: P_UPDATE_TASK =>'T',
2374: X_TASK_OBJECT_VERSION_NUMBER =>l_task_object_version_number,
2375: X_TASK_STATUS_ID =>l_task_status_id);
2376: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2377: RAISE FND_API.G_EXC_ERROR;
2378: END IF;
2379:
2380: EXCEPTION
2381: WHEN OTHERS THEN
2382: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2383: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_UPDATE_TASK_ASSIGNMENT');
2384: FND_MSG_PUB.ADD;
2385: END IF;
2386: RAISE FND_API.G_EXC_ERROR;
2387: END;
2388: end if;
2389:
2390: -- Call concurrent program if assignment status is completed,closed,rejected,canceled
2402: p_debrief_line_rec.debrief_header_id);
2403: end if;
2404:
2405: -- Standard check for p_commit
2406: IF FND_API.to_Boolean( p_commit )
2407: THEN
2408: COMMIT WORK;
2409: END IF;
2410:
2422: p_data => x_msg_data
2423: );
2424: end if; -- if charge_upload_status='INTERFACED'
2425: EXCEPTION
2426: WHEN FND_API.G_EXC_ERROR THEN
2427: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2428: x_return_status := FND_API.G_RET_STS_ERROR;
2429: FND_MSG_PUB.Count_And_Get (
2430: P_COUNT => X_MSG_COUNT
2424: end if; -- if charge_upload_status='INTERFACED'
2425: EXCEPTION
2426: WHEN FND_API.G_EXC_ERROR THEN
2427: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2428: x_return_status := FND_API.G_RET_STS_ERROR;
2429: FND_MSG_PUB.Count_And_Get (
2430: P_COUNT => X_MSG_COUNT
2431: ,P_DATA => X_MSG_DATA);
2432:
2429: FND_MSG_PUB.Count_And_Get (
2430: P_COUNT => X_MSG_COUNT
2431: ,P_DATA => X_MSG_DATA);
2432:
2433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2434: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: FND_MSG_PUB.Count_And_Get (
2437: P_COUNT => X_MSG_COUNT
2431: ,P_DATA => X_MSG_DATA);
2432:
2433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2434: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: FND_MSG_PUB.Count_And_Get (
2437: P_COUNT => X_MSG_COUNT
2438: ,P_DATA => X_MSG_DATA);
2439:
2438: ,P_DATA => X_MSG_DATA);
2439:
2440: WHEN OTHERS THEN
2441: ROLLBACK TO UPDATE_DEBRIEF_LINE_PVT;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2443: IF FND_MSG_PUB.Check_Msg_Level
2444: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2445: THEN
2446: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,L_API_NAME );
2453: End Update_debrief_line;
2454:
2455:
2456: PROCEDURE Validate_Service_Date (
2457: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2458: P_Service_Date IN DATE,
2459: X_Return_Status OUT NOCOPY VARCHAR2,
2460: X_Msg_Count OUT NOCOPY NUMBER,
2461: X_Msg_Data OUT NOCOPY VARCHAR2
2463: IS
2464: BEGIN
2465: log('Validate_Service_Date' ,'P_Service_Date=' || P_Service_Date);
2466: -- Initialize message list if p_init_msg_list is set to TRUE.
2467: IF FND_API.to_Boolean( p_init_msg_list )
2468: THEN
2469: FND_MSG_PUB.initialize;
2470: END IF;
2471:
2469: FND_MSG_PUB.initialize;
2470: END IF;
2471:
2472: -- Initialize API return status to SUCCESS
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474: IF (p_service_date is NULL OR p_service_date = FND_API.G_MISS_DATE) THEN
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2477: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_SERVICE_DATE');
2470: END IF;
2471:
2472: -- Initialize API return status to SUCCESS
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474: IF (p_service_date is NULL OR p_service_date = FND_API.G_MISS_DATE) THEN
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2477: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_SERVICE_DATE');
2478: FND_MSG_PUB.ADD;
2471:
2472: -- Initialize API return status to SUCCESS
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474: IF (p_service_date is NULL OR p_service_date = FND_API.G_MISS_DATE) THEN
2475: x_return_status := FND_API.G_RET_STS_ERROR;
2476: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2477: FND_MESSAGE.Set_Name('CSF', 'CSF_DEBRIEF_SERVICE_DATE');
2478: FND_MSG_PUB.ADD;
2479: END IF;
2487:
2488: END Validate_Service_Date;
2489:
2490: PROCEDURE validate_subinventory_code (
2491: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2492: p_organization_id IN number,
2493: p_subinventory_code in varchar2,
2494: X_Return_Status OUT NOCOPY VARCHAR2,
2495: X_Msg_Count OUT NOCOPY NUMBER,
2509: and secondary_inventory_name = p_subinventory_code;
2510:
2511: BEGIN
2512: -- Initialize message list if p_init_msg_list is set to TRUE.
2513: IF FND_API.to_Boolean( p_init_msg_list )
2514: THEN
2515: FND_MSG_PUB.initialize;
2516: END IF;
2517:
2515: FND_MSG_PUB.initialize;
2516: END IF;
2517:
2518: -- Initialize API return status to SUCCESS
2519: x_return_status := FND_API.G_RET_STS_SUCCESS;
2520: open c_subinventory_code;
2521: fetch c_subinventory_code into l_organization_code,l_subinventory_code;
2522: close c_subinventory_code;
2523: IF l_subinventory_code is NULL THEN
2520: open c_subinventory_code;
2521: fetch c_subinventory_code into l_organization_code,l_subinventory_code;
2522: close c_subinventory_code;
2523: IF l_subinventory_code is NULL THEN
2524: x_return_status := FND_API.G_RET_STS_ERROR;
2525: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2526: FND_MESSAGE.Set_Name('CSP', 'CSP_INVALID_ORG_SUBINV');
2527: FND_MESSAGE.set_token('ORG',l_organization_code,TRUE);
2528: FND_MESSAGE.set_token('SUBINV',l_subinventory_code,TRUE);
2537:
2538: END validate_subinventory_code;
2539:
2540: PROCEDURE Validate_Inventory_Item_ID (
2541: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2542: p_organization_id IN NUMBER,
2543: P_Inventory_Item_ID IN NUMBER,
2544: X_Return_Status OUT NOCOPY VARCHAR2,
2545: X_Msg_Count OUT NOCOPY NUMBER,
2554: and msib.material_billable_flag = cbtc.billing_type;
2555:
2556: BEGIN
2557: -- Initialize message list if p_init_msg_list is set to TRUE.
2558: IF FND_API.to_Boolean( p_init_msg_list )
2559: THEN
2560: FND_MSG_PUB.initialize;
2561: END IF;
2562:
2560: FND_MSG_PUB.initialize;
2561: END IF;
2562:
2563: -- Initialize API return status to SUCCESS
2564: x_return_status := FND_API.G_RET_STS_SUCCESS;
2565: l_inventory_item_id := null;
2566: open c_inventory_item;
2567: fetch c_inventory_item into l_inventory_item_id;
2568: close c_inventory_item;
2566: open c_inventory_item;
2567: fetch c_inventory_item into l_inventory_item_id;
2568: close c_inventory_item;
2569: IF l_inventory_item_id is null THEN
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2572: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INVENTORY_ITEM_ID');
2573: FND_MSG_PUB.ADD;
2574: END IF;
2581:
2582: END Validate_Inventory_Item_ID;
2583:
2584: PROCEDURE Validate_Instance_ID (
2585: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2586: P_Instance_ID IN NUMBER,
2587: X_Return_Status OUT NOCOPY VARCHAR2,
2588: X_Msg_Count OUT NOCOPY NUMBER,
2589: X_Msg_Data OUT NOCOPY VARCHAR2
2598:
2599: Begin
2600:
2601: -- Initialize message list if p_init_msg_list is set to TRUE.
2602: IF FND_API.to_Boolean( p_init_msg_list )
2603: THEN
2604: FND_MSG_PUB.initialize;
2605: END IF;
2606:
2604: FND_MSG_PUB.initialize;
2605: END IF;
2606:
2607: -- Initialize API return status to SUCCESS
2608: x_return_status := FND_API.G_RET_STS_SUCCESS;
2609: IF (p_instance_id is NOT NULL and p_instance_id <> FND_API.G_MISS_NUM ) THEN
2610: open get_instance_id;
2611: fetch get_instance_id into l_dummy;
2612: if get_instance_id%notfound then
2605: END IF;
2606:
2607: -- Initialize API return status to SUCCESS
2608: x_return_status := FND_API.G_RET_STS_SUCCESS;
2609: IF (p_instance_id is NOT NULL and p_instance_id <> FND_API.G_MISS_NUM ) THEN
2610: open get_instance_id;
2611: fetch get_instance_id into l_dummy;
2612: if get_instance_id%notfound then
2613: close get_instance_id;
2610: open get_instance_id;
2611: fetch get_instance_id into l_dummy;
2612: if get_instance_id%notfound then
2613: close get_instance_id;
2614: x_return_status := FND_API.G_RET_STS_ERROR;
2615: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2616: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_INSTANCE_ID');
2617: FND_MSG_PUB.ADD;
2618: END IF;
2627: );
2628: END Validate_Instance_ID;
2629:
2630: PROCEDURE Validate_Debrief_Header_ID (
2631: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2632: P_Debrief_Header_ID IN NUMBER,
2633: X_Return_Status OUT NOCOPY VARCHAR2,
2634: X_Msg_Count OUT NOCOPY NUMBER,
2635: X_Msg_Data OUT NOCOPY VARCHAR2
2642: where debrief_header_id=p_debrief_header_id;
2643: BEGIN
2644:
2645: -- Initialize message list if p_init_msg_list is set to TRUE.
2646: IF FND_API.to_Boolean( p_init_msg_list )
2647: THEN
2648: FND_MSG_PUB.initialize;
2649: END IF;
2650:
2648: FND_MSG_PUB.initialize;
2649: END IF;
2650:
2651: -- Initialize API return status to SUCCESS
2652: x_return_status := FND_API.G_RET_STS_SUCCESS;
2653: IF (P_DEBRIEF_HEADER_ID is NULL OR P_DEBRIEF_HEADER_ID = FND_API.G_MISS_NUM) THEN
2654: x_return_status := FND_API.G_RET_STS_ERROR;
2655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2656: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2649: END IF;
2650:
2651: -- Initialize API return status to SUCCESS
2652: x_return_status := FND_API.G_RET_STS_SUCCESS;
2653: IF (P_DEBRIEF_HEADER_ID is NULL OR P_DEBRIEF_HEADER_ID = FND_API.G_MISS_NUM) THEN
2654: x_return_status := FND_API.G_RET_STS_ERROR;
2655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2656: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2657: FND_MSG_PUB.ADD;
2650:
2651: -- Initialize API return status to SUCCESS
2652: x_return_status := FND_API.G_RET_STS_SUCCESS;
2653: IF (P_DEBRIEF_HEADER_ID is NULL OR P_DEBRIEF_HEADER_ID = FND_API.G_MISS_NUM) THEN
2654: x_return_status := FND_API.G_RET_STS_ERROR;
2655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2656: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2657: FND_MSG_PUB.ADD;
2658: END IF;
2660: open validate_header_id;
2661: fetch validate_header_id into l_dummy;
2662: if validate_header_id%notfound then
2663: -- close validate_header_id;
2664: x_return_status := FND_API.G_RET_STS_ERROR;
2665: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2666: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_HEADER_ID');
2667: FND_MSG_PUB.ADD;
2668: END IF;
2679:
2680:
2681:
2682: PROCEDURE Validate_DEBRIEF_LINE_NUMBER (
2683: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2684: P_Validation_mode IN VARCHAR2,
2685: P_DEBRIEF_LINE_NUMBER IN NUMBER,
2686: X_Return_Status OUT NOCOPY VARCHAR2,
2687: X_Msg_Count OUT NOCOPY NUMBER,
2690: IS
2691: l_api_name varchar2(30) := 'Create Debrief Line' ;
2692: BEGIN
2693: -- Initialize message list if p_init_msg_list is set to TRUE.
2694: IF FND_API.to_Boolean( p_init_msg_list )
2695: THEN
2696: FND_MSG_PUB.initialize;
2697: END IF;
2698:
2696: FND_MSG_PUB.initialize;
2697: END IF;
2698:
2699: -- Initialize API return status to SUCCESS
2700: x_return_status := FND_API.G_RET_STS_SUCCESS;
2701: IF(p_validation_mode = G_CREATE) THEN
2702: IF (p_debrief_line_number is NULL OR p_debrief_line_number = FND_API.G_MISS_NUM ) THEN
2703: x_return_status := FND_API.G_RET_STS_ERROR;
2704: ELSIF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2698:
2699: -- Initialize API return status to SUCCESS
2700: x_return_status := FND_API.G_RET_STS_SUCCESS;
2701: IF(p_validation_mode = G_CREATE) THEN
2702: IF (p_debrief_line_number is NULL OR p_debrief_line_number = FND_API.G_MISS_NUM ) THEN
2703: x_return_status := FND_API.G_RET_STS_ERROR;
2704: ELSIF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2705: THEN
2706: FND_MESSAGE.Set_Name('CSF', l_api_name);
2699: -- Initialize API return status to SUCCESS
2700: x_return_status := FND_API.G_RET_STS_SUCCESS;
2701: IF(p_validation_mode = G_CREATE) THEN
2702: IF (p_debrief_line_number is NULL OR p_debrief_line_number = FND_API.G_MISS_NUM ) THEN
2703: x_return_status := FND_API.G_RET_STS_ERROR;
2704: ELSIF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2705: THEN
2706: FND_MESSAGE.Set_Name('CSF', l_api_name);
2707: FND_MESSAGE.Set_Token('COLUMN', 'DEBRIEF_LINE_NUMBER', FALSE);
2717:
2718: END Validate_DEBRIEF_LINE_NUMBER;
2719:
2720: PROCEDURE Validate_BUSINESS_PROCESS_ID (
2721: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2722: P_BUSINESS_PROCESS_ID IN NUMBER,
2723: X_Return_Status OUT NOCOPY VARCHAR2,
2724: X_Msg_Count OUT NOCOPY NUMBER,
2725: X_Msg_Data OUT NOCOPY VARCHAR2
2731: from cs_business_processes
2732: where BUSINESS_PROCESS_ID=P_BUSINESS_PROCESS_ID;
2733: BEGIN
2734: -- Initialize message list if p_init_msg_list is set to TRUE.
2735: IF FND_API.to_Boolean( p_init_msg_list )
2736: THEN
2737: FND_MSG_PUB.initialize;
2738: END IF;
2739:
2737: FND_MSG_PUB.initialize;
2738: END IF;
2739:
2740: -- Initialize API return status to SUCCESS
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742: IF (p_business_process_id is NULL OR p_business_process_id = FND_API.G_MISS_NUM ) THEN
2743: x_return_status := FND_API.G_RET_STS_ERROR;
2744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2745: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2738: END IF;
2739:
2740: -- Initialize API return status to SUCCESS
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742: IF (p_business_process_id is NULL OR p_business_process_id = FND_API.G_MISS_NUM ) THEN
2743: x_return_status := FND_API.G_RET_STS_ERROR;
2744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2745: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2746: FND_MSG_PUB.ADD;
2739:
2740: -- Initialize API return status to SUCCESS
2741: x_return_status := FND_API.G_RET_STS_SUCCESS;
2742: IF (p_business_process_id is NULL OR p_business_process_id = FND_API.G_MISS_NUM ) THEN
2743: x_return_status := FND_API.G_RET_STS_ERROR;
2744: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2745: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2746: FND_MSG_PUB.ADD;
2747: END IF;
2749: open get_business_process_id;
2750: fetch get_business_process_id into l_dummy;
2751: if get_business_process_id%notfound then
2752: close get_business_process_id;
2753: x_return_status := FND_API.G_RET_STS_ERROR;
2754: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2755: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_BUS_PROCESS_ID');
2756: FND_MSG_PUB.ADD;
2757: END IF;
2765: p_data => x_msg_data
2766: );
2767: END Validate_BUSINESS_PROCESS_ID;
2768: PROCEDURE Validate_TRANSACTION_TYPE_ID (
2769: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2770: P_TRANSACTION_TYPE_ID IN NUMBER,
2771: X_Return_Status OUT NOCOPY VARCHAR2,
2772: X_Msg_Count OUT NOCOPY NUMBER,
2773: X_Msg_Data OUT NOCOPY VARCHAR2
2779: from cs_transaction_types vl
2780: where transaction_type_id=P_Transaction_type_id;
2781: BEGIN
2782: -- Initialize message list if p_init_msg_list is set to TRUE.
2783: IF FND_API.to_Boolean( p_init_msg_list )
2784: THEN
2785: FND_MSG_PUB.initialize;
2786: END IF;
2787:
2785: FND_MSG_PUB.initialize;
2786: END IF;
2787:
2788: -- Initialize API return status to SUCCESS
2789: x_return_status := FND_API.G_RET_STS_SUCCESS;
2790: IF (p_transaction_type_id is NULL OR p_transaction_type_id = FND_API.G_MISS_NUM ) THEN
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2793: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2786: END IF;
2787:
2788: -- Initialize API return status to SUCCESS
2789: x_return_status := FND_API.G_RET_STS_SUCCESS;
2790: IF (p_transaction_type_id is NULL OR p_transaction_type_id = FND_API.G_MISS_NUM ) THEN
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2793: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2794: FND_MSG_PUB.ADD;
2787:
2788: -- Initialize API return status to SUCCESS
2789: x_return_status := FND_API.G_RET_STS_SUCCESS;
2790: IF (p_transaction_type_id is NULL OR p_transaction_type_id = FND_API.G_MISS_NUM ) THEN
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2793: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2794: FND_MSG_PUB.ADD;
2795: END IF;
2797: open get_transaction_type_id;
2798: fetch get_transaction_type_id into l_dummy;
2799: if get_transaction_type_id%notfound then
2800: close get_transaction_type_id;
2801: x_return_status := FND_API.G_RET_STS_ERROR;
2802: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2803: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_TXN_BILLING_TYP_ID');
2804: FND_MSG_PUB.ADD;
2805: END IF;
2815: END Validate_TRANSACTION_TYPE_ID;
2816:
2817:
2818: Procedure CREATE_INTERACTION(P_Api_Version_Number IN NUMBER,
2819: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2820: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2821: P_TASK_ASSIGNMENT_ID IN NUMBER,
2822: P_DEBRIEF_HEADER_ID IN NUMBER,
2823: P_MEDIA_ID IN NUMBER,
2816:
2817:
2818: Procedure CREATE_INTERACTION(P_Api_Version_Number IN NUMBER,
2819: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2820: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2821: P_TASK_ASSIGNMENT_ID IN NUMBER,
2822: P_DEBRIEF_HEADER_ID IN NUMBER,
2823: P_MEDIA_ID IN NUMBER,
2824: P_ACTION_ID IN NUMBER,
2844: -- Standard Start of API savepoint
2845: SAVEPOINT CREATE_INTERACTION;
2846: -- Standard call to check for call compatibility.
2847:
2848: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2849: p_api_version_number,
2850: l_api_name,
2851: G_PKG_NAME)
2852: THEN
2849: p_api_version_number,
2850: l_api_name,
2851: G_PKG_NAME)
2852: THEN
2853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2854: END IF;
2855:
2856:
2857: -- Initialize message list if p_init_msg_list is set to TRUE.
2854: END IF;
2855:
2856:
2857: -- Initialize message list if p_init_msg_list is set to TRUE.
2858: IF FND_API.to_Boolean( p_init_msg_list )
2859: THEN
2860: FND_MSG_PUB.initialize;
2861: END IF;
2862:
2860: FND_MSG_PUB.initialize;
2861: END IF;
2862:
2863: -- Initialize API return status to SUCCESS
2864: x_return_status := FND_API.G_RET_STS_SUCCESS;
2865:
2866: select jtb.task_id,
2867: jtb.customer_id,
2868: jtb.cust_account_id,
2885: l_interaction_rec.party_id := l_party_id;
2886: -- open interaction
2887: jtf_ih_pub.Open_Interaction(
2888: p_api_version => 1.0,
2889: p_init_msg_list => FND_API.G_TRUE,
2890: p_commit => FND_API.G_FALSE,
2891: p_user_id => G_USER_ID,
2892: x_return_status =>l_return_status,
2893: x_msg_count =>l_msg_count,
2886: -- open interaction
2887: jtf_ih_pub.Open_Interaction(
2888: p_api_version => 1.0,
2889: p_init_msg_list => FND_API.G_TRUE,
2890: p_commit => FND_API.G_FALSE,
2891: p_user_id => G_USER_ID,
2892: x_return_status =>l_return_status,
2893: x_msg_count =>l_msg_count,
2894: x_msg_data =>l_msg_data,
2893: x_msg_count =>l_msg_count,
2894: x_msg_data =>l_msg_data,
2895: p_interaction_rec =>l_interaction_rec,
2896: x_interaction_id =>l_interaction_id );
2897: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2898: RAISE FND_API.G_EXC_ERROR;
2899: END IF;
2900:
2901: FND_MSG_PUB.GET(P_MSG_INDEX=>1,
2894: x_msg_data =>l_msg_data,
2895: p_interaction_rec =>l_interaction_rec,
2896: x_interaction_id =>l_interaction_id );
2897: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2898: RAISE FND_API.G_EXC_ERROR;
2899: END IF;
2900:
2901: FND_MSG_PUB.GET(P_MSG_INDEX=>1,
2902: P_ENCODED=>'F',
2916: l_return_status:=NULL;
2917: -- add activity
2918: jtf_ih_pub.add_activity(
2919: p_api_version => 1.0,
2920: p_init_msg_list => FND_API.G_FALSE,
2921: p_commit => FND_API.G_FALSE,
2922: p_user_id =>G_USER_ID,
2923: x_return_status =>l_return_status,
2924: x_msg_count =>l_msg_count,
2917: -- add activity
2918: jtf_ih_pub.add_activity(
2919: p_api_version => 1.0,
2920: p_init_msg_list => FND_API.G_FALSE,
2921: p_commit => FND_API.G_FALSE,
2922: p_user_id =>G_USER_ID,
2923: x_return_status =>l_return_status,
2924: x_msg_count =>l_msg_count,
2925: x_msg_data =>l_msg_data,
2924: x_msg_count =>l_msg_count,
2925: x_msg_data =>l_msg_data,
2926: p_activity_rec =>l_activity_rec,
2927: x_activity_id =>l_activity_id);
2928: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2929: raise FND_API.G_EXC_ERROR;
2930: end if;
2931: -- close interaction
2932: l_return_status:=NULL;
2925: x_msg_data =>l_msg_data,
2926: p_activity_rec =>l_activity_rec,
2927: x_activity_id =>l_activity_id);
2928: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2929: raise FND_API.G_EXC_ERROR;
2930: end if;
2931: -- close interaction
2932: l_return_status:=NULL;
2933: jtf_ih_pub.Close_Interaction(
2931: -- close interaction
2932: l_return_status:=NULL;
2933: jtf_ih_pub.Close_Interaction(
2934: p_api_version => 1.0,
2935: p_init_msg_list => FND_API.G_FALSE,
2936: p_commit => FND_API.G_FALSE,
2937: p_user_id => G_USER_ID,
2938: x_return_status =>l_return_status,
2939: x_msg_count =>l_msg_count,
2932: l_return_status:=NULL;
2933: jtf_ih_pub.Close_Interaction(
2934: p_api_version => 1.0,
2935: p_init_msg_list => FND_API.G_FALSE,
2936: p_commit => FND_API.G_FALSE,
2937: p_user_id => G_USER_ID,
2938: x_return_status =>l_return_status,
2939: x_msg_count =>l_msg_count,
2940: x_msg_data =>l_msg_data,
2939: x_msg_count =>l_msg_count,
2940: x_msg_data =>l_msg_data,
2941: p_interaction_rec =>l_interaction_rec );
2942:
2943: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2944: raise FND_API.G_EXC_ERROR;
2945: end if;
2946: EXCEPTION
2947: WHEN FND_API.G_EXC_ERROR THEN
2940: x_msg_data =>l_msg_data,
2941: p_interaction_rec =>l_interaction_rec );
2942:
2943: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2944: raise FND_API.G_EXC_ERROR;
2945: end if;
2946: EXCEPTION
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO CREATE_INTERACTION;
2943: if l_return_status<>FND_API.G_RET_STS_SUCCESS then
2944: raise FND_API.G_EXC_ERROR;
2945: end if;
2946: EXCEPTION
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO CREATE_INTERACTION;
2949: x_return_status := FND_API.G_RET_STS_ERROR;
2950: FND_MSG_PUB.Count_And_Get (
2951: P_COUNT => X_MSG_COUNT
2945: end if;
2946: EXCEPTION
2947: WHEN FND_API.G_EXC_ERROR THEN
2948: ROLLBACK TO CREATE_INTERACTION;
2949: x_return_status := FND_API.G_RET_STS_ERROR;
2950: FND_MSG_PUB.Count_And_Get (
2951: P_COUNT => X_MSG_COUNT
2952: ,P_DATA => X_MSG_DATA);
2953:
2950: FND_MSG_PUB.Count_And_Get (
2951: P_COUNT => X_MSG_COUNT
2952: ,P_DATA => X_MSG_DATA);
2953:
2954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2955: ROLLBACK TO CREATE_INTERACTION;
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2957: FND_MSG_PUB.Count_And_Get (
2958: P_COUNT => X_MSG_COUNT
2952: ,P_DATA => X_MSG_DATA);
2953:
2954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2955: ROLLBACK TO CREATE_INTERACTION;
2956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2957: FND_MSG_PUB.Count_And_Get (
2958: P_COUNT => X_MSG_COUNT
2959: ,P_DATA => X_MSG_DATA);
2960:
2959: ,P_DATA => X_MSG_DATA);
2960:
2961: WHEN OTHERS THEN
2962: ROLLBACK TO CREATE_INTERACTION;
2963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2964: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2965: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,L_API_NAME);
2966: END IF;
2967: FND_MSG_PUB.Count_And_Get (
3034: l_labor_start_date date;
3035: l_labor_end_date date;
3036:
3037: begin
3038: x_return_status := FND_API.G_RET_STS_SUCCESS;
3039: open c_actual_times;
3040: fetch c_actual_times into l_debrief_header_id,
3041: l_labor_start_date,
3042: l_labor_end_date;
3077: cursor c_task_assignment is
3078: select task_id,
3079: jta.task_assignment_id,
3080: least(nvl(actual_start_date,p_start_date),
3081: nvl(p_start_date,fnd_api.g_miss_date)),
3082: greatest(nvl(actual_end_date,p_end_date),
3083: nvl(p_end_date,fnd_api.g_miss_date)),
3084: jta.object_version_number,
3085: jta.resource_type_code,
3079: jta.task_assignment_id,
3080: least(nvl(actual_start_date,p_start_date),
3081: nvl(p_start_date,fnd_api.g_miss_date)),
3082: greatest(nvl(actual_end_date,p_end_date),
3083: nvl(p_end_date,fnd_api.g_miss_date)),
3084: jta.object_version_number,
3085: jta.resource_type_code,
3086: jta.resource_id
3087: from jtf_task_assignments jta,
3094: nvl(p_end_date,actual_end_date));
3095:
3096: cursor c_task is
3097: select least(nvl(actual_start_date,p_start_date),
3098: nvl(p_start_date,fnd_api.g_miss_date)),
3099: greatest(nvl(actual_end_date,p_end_date),
3100: nvl(p_end_date,fnd_api.g_miss_date)),
3101: object_version_number
3102: from jtf_tasks_b
3096: cursor c_task is
3097: select least(nvl(actual_start_date,p_start_date),
3098: nvl(p_start_date,fnd_api.g_miss_date)),
3099: greatest(nvl(actual_end_date,p_end_date),
3100: nvl(p_end_date,fnd_api.g_miss_date)),
3101: object_version_number
3102: from jtf_tasks_b
3103: where task_id = l_task_id
3104: and (nvl(actual_start_date,p_start_date) >=
3107: nvl(p_end_date,actual_end_date));
3108:
3109: BEGIN
3110: -- Initialize API return status to SUCCESS
3111: x_return_status := FND_API.G_RET_STS_SUCCESS;
3112:
3113: open c_task_assignment;
3114: fetch c_task_assignment into l_task_id,
3115: l_task_assignment_id,
3155: end if;
3156:
3157: END;
3158: PROCEDURE VALIDATE_COUNTERS (
3159: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3160: p_task_id in number,
3161: p_incident_id in number,
3162: x_return_status out nocopy varchar2,
3163: x_msg_count out nocopy number,
3201: end;
3202:
3203:
3204: PROCEDURE VALIDATE_LABOR_TIMES (
3205: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3206: P_api_version_number In number,
3207: p_resource_type_code in Varchar2,
3208: p_resource_id in Number,
3209: p_debrief_line_id in Number,
3278: l_new_resource_type varchar2(100) := null;
3279: l_new_resource_id number := null;
3280: l_debrief_header_id number := null;
3281: begin
3282: x_return_status := FND_API.G_RET_STS_SUCCESS;
3283: l_task_assignment_id :=
3284: JTF_TASK_ASSIGNMENTS_PUB.p_task_assignments_user_hooks.task_assignment_id;
3285: l_new_resource_id :=
3286: JTF_TASK_ASSIGNMENTS_PUB.p_task_assignments_user_hooks.resource_id;
3297:
3298: if l_debrief_header_id is not null then
3299: if l_old_resource_type <> l_new_resource_type or
3300: l_old_resource_id <> l_new_resource_id then
3301: x_return_status := FND_API.G_RET_STS_ERROR;
3302: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_EXISTS');
3303: FND_MSG_PUB.ADD;
3304: end if;
3305: end if;
3312: PROCEDURE TASK_ASSIGNMENT_PRE_DELETE(x_return_status out nocopy varchar2) is
3313: l_task_assignment_id number := null;
3314: l_debrief_header_id number := null;
3315: begin
3316: x_return_status := FND_API.G_RET_STS_SUCCESS;
3317: l_task_assignment_id := JTF_TASK_ASSIGNMENTS_PUB.p_task_assignments_user_hooks.task_assignment_id;
3318: select debrief_header_id
3319: into l_debrief_header_id
3320: from csf_debrief_headers
3320: from csf_debrief_headers
3321: where task_assignment_id = l_task_assignment_id;
3322:
3323: if l_debrief_header_id is not null then
3324: x_return_status := FND_API.G_RET_STS_ERROR;
3325: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_EXISTS');
3326: FND_MSG_PUB.ADD;
3327: end if;
3328:
3333:
3334: PROCEDURE TASK_ASSIGNMENT_POST_UPDATE(x_return_status out nocopy varchar2) is
3335: l_msg_data varchar(2000);
3336: l_msg_count number;
3337: l_return_status varchar2(1) := FND_API.G_RET_STS_SUCCESS;
3338: l_travel_start_date date;
3339: l_travel_end_date date;
3340: l_travel_exists varchar2(1);
3341: l_working_start_date date;
3704:
3705: BEGIN
3706: FND_MSG_PUB.initialize;
3707: -- Initialize API return status to SUCCESS
3708: x_return_status := FND_API.G_RET_STS_SUCCESS;
3709: open get_debrief_status;
3710: fetch get_debrief_status into l_processed_flag;
3711: close get_debrief_status;
3712: if nvl(l_processed_flag,'COMPLETED') = 'COMPLETED' THEN
3709: open get_debrief_status;
3710: fetch get_debrief_status into l_processed_flag;
3711: close get_debrief_status;
3712: if nvl(l_processed_flag,'COMPLETED') = 'COMPLETED' THEN
3713: x_return_status := FND_API.G_RET_STS_SUCCESS;
3714: else
3715: x_return_status := FND_API.G_RET_STS_ERROR;
3716: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_PENDING');
3717: FND_MSG_PUB.ADD;
3711: close get_debrief_status;
3712: if nvl(l_processed_flag,'COMPLETED') = 'COMPLETED' THEN
3713: x_return_status := FND_API.G_RET_STS_SUCCESS;
3714: else
3715: x_return_status := FND_API.G_RET_STS_ERROR;
3716: FND_MESSAGE.Set_Name('CSF','CSF_DEBRIEF_PENDING');
3717: FND_MSG_PUB.ADD;
3718: end if;
3719: -- Standard call to get message count and if count is 1, get message info.
3991: ---- added for bug 3629886 ends ------------------------------------------------------
3992:
3993: BEGIN
3994: -- Initialize API return status to SUCCESS
3995: x_return_status := FND_API.G_RET_STS_SUCCESS;
3996:
3997: open c_task_assgin_object_version;
3998: fetch c_task_assgin_object_version into l_task_id, l_task_assignment_id, l_object_version,
3999: l_resource_type_code, l_resource_id ;
4005: if l_start_date is null then
4006: l_start_date := null;
4007: l_end_date := null;
4008: else
4009: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
4010: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
4011:
4012: -- bug # 6960521
4013: open c_task_assignment_return(l_start_date, l_end_date);
4006: l_start_date := null;
4007: l_end_date := null;
4008: else
4009: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
4010: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
4011:
4012: -- bug # 6960521
4013: open c_task_assignment_return(l_start_date, l_end_date);
4014: fetch c_task_assignment_return into l_start_date_ret, l_end_date_ret, l_debrief_line_id;
4095: if l_start_date is null then
4096: l_start_date := null;
4097: l_end_date := null;
4098: else
4099: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
4100: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
4101:
4102: -- bug # 6960521
4103: open c_task_return(l_start_date, l_end_date);
4096: l_start_date := null;
4097: l_end_date := null;
4098: else
4099: l_start_date := nvl(l_start_date,fnd_api.g_miss_date);
4100: l_end_date := nvl(l_end_date,fnd_api.g_miss_date);
4101:
4102: -- bug # 6960521
4103: open c_task_return(l_start_date, l_end_date);
4104: fetch c_task_return into l_start_date_ret, l_end_date_ret, l_debrief_line_id;
4244:
4245: Procedure validate_travel_times(p_actual_travel_start_time date,
4246: p_actual_travel_end_time date,
4247: p_task_assignment_id NUMBER,
4248: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4249: X_Return_Status OUT NOCOPY VARCHAR2,
4250: X_Msg_Count OUT NOCOPY NUMBER,
4251: X_Msg_Data OUT NOCOPY VARCHAR2) IS
4252:
4260: and cia.incident_id = jtb.source_object_id
4261: and jtb.source_object_type_code = 'SR';
4262:
4263: BEGIN
4264: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
4265: open get_service_request_date;
4266: fetch get_service_request_date INTO l_service_request_date;
4267: close get_service_request_date;
4268:
4266: fetch get_service_request_date INTO l_service_request_date;
4267: close get_service_request_date;
4268:
4269: If (p_actual_travel_start_time IS NULL
4270: or p_actual_travel_start_time = FND_API.g_miss_date)
4271: and (p_actual_travel_end_time <> FND_API.g_miss_date
4272: and p_actual_travel_end_time IS NOT NULL) THEN
4273: X_Return_Status := FND_API.G_RET_STS_ERROR;
4274: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4267: close get_service_request_date;
4268:
4269: If (p_actual_travel_start_time IS NULL
4270: or p_actual_travel_start_time = FND_API.g_miss_date)
4271: and (p_actual_travel_end_time <> FND_API.g_miss_date
4272: and p_actual_travel_end_time IS NOT NULL) THEN
4273: X_Return_Status := FND_API.G_RET_STS_ERROR;
4274: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4275: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_TIME');
4269: If (p_actual_travel_start_time IS NULL
4270: or p_actual_travel_start_time = FND_API.g_miss_date)
4271: and (p_actual_travel_end_time <> FND_API.g_miss_date
4272: and p_actual_travel_end_time IS NOT NULL) THEN
4273: X_Return_Status := FND_API.G_RET_STS_ERROR;
4274: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4275: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_TIME');
4276: FND_MSG_PUB.ADD;
4277: END IF;
4278: END IF;
4279:
4280: If (p_actual_travel_start_time IS NOT NULL
4281: and p_actual_travel_end_time IS NOT NULL
4282: and p_actual_travel_start_time <> FND_API.g_miss_date
4283: and p_actual_travel_end_time <> FND_API.g_miss_date
4284: AND p_actual_travel_start_time > p_actual_travel_end_time) THEN
4285: X_Return_Status := FND_API.G_RET_STS_ERROR;
4286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4279:
4280: If (p_actual_travel_start_time IS NOT NULL
4281: and p_actual_travel_end_time IS NOT NULL
4282: and p_actual_travel_start_time <> FND_API.g_miss_date
4283: and p_actual_travel_end_time <> FND_API.g_miss_date
4284: AND p_actual_travel_start_time > p_actual_travel_end_time) THEN
4285: X_Return_Status := FND_API.G_RET_STS_ERROR;
4286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4287: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_AFTER_END');
4281: and p_actual_travel_end_time IS NOT NULL
4282: and p_actual_travel_start_time <> FND_API.g_miss_date
4283: and p_actual_travel_end_time <> FND_API.g_miss_date
4284: AND p_actual_travel_start_time > p_actual_travel_end_time) THEN
4285: X_Return_Status := FND_API.G_RET_STS_ERROR;
4286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4287: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_AFTER_END');
4288: FND_MSG_PUB.ADD;
4289: END IF;
4289: END IF;
4290: END IF;
4291:
4292: If p_actual_travel_start_time IS NOT NULL
4293: and p_actual_travel_start_time <> FND_API.g_miss_date
4294: and trunc(fnd_timezones_pvt.adjust_datetime(p_actual_travel_start_time,
4295: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
4296: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
4297: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
4296: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
4297: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
4298: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
4299: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
4300: X_Return_Status := FND_API.G_RET_STS_ERROR;
4301: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4302: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_CURR_DATE');
4303: FND_MSG_PUB.ADD;
4304: END IF;
4303: FND_MSG_PUB.ADD;
4304: END IF;
4305: END IF;
4306: If p_actual_travel_end_time IS NOT NULL
4307: and p_actual_travel_end_time <> FND_API.g_miss_date
4308: and trunc(fnd_timezones_pvt.adjust_datetime(p_actual_travel_end_time,
4309: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
4310: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
4311: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
4310: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID'))))
4311: > trunc(fnd_timezones_pvt.adjust_datetime(sysdate,
4312: fnd_timezones.get_code(fnd_profile.value('SERVER_TIMEZONE_ID')),
4313: fnd_timezones.get_code(fnd_profile.value('CLIENT_TIMEZONE_ID')))) THEN
4314: X_Return_Status := FND_API.G_RET_STS_ERROR;
4315: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4316: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_END_CURR_DATE');
4317: FND_MSG_PUB.ADD;
4318: END IF;
4318: END IF;
4319: END IF;
4320:
4321: If (p_actual_travel_start_time IS NOT NULL
4322: and p_actual_travel_start_time <> FND_API.g_miss_date
4323: and p_actual_travel_start_time < l_service_request_date) THEN
4324: X_Return_Status := FND_API.G_RET_STS_ERROR;
4325: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4326: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_SR_DATE');
4320:
4321: If (p_actual_travel_start_time IS NOT NULL
4322: and p_actual_travel_start_time <> FND_API.g_miss_date
4323: and p_actual_travel_start_time < l_service_request_date) THEN
4324: X_Return_Status := FND_API.G_RET_STS_ERROR;
4325: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4326: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_START_SR_DATE');
4327: FND_MSG_PUB.ADD;
4328: END IF;
4327: FND_MSG_PUB.ADD;
4328: END IF;
4329: END IF;
4330: If (p_actual_travel_end_time IS NOT NULL
4331: and p_actual_travel_end_time <> FND_API.g_miss_date
4332: and p_actual_travel_end_time < l_service_request_date) THEN
4333: X_Return_Status := FND_API.G_RET_STS_ERROR;
4334: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4335: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_END_SR_DATE');
4329: END IF;
4330: If (p_actual_travel_end_time IS NOT NULL
4331: and p_actual_travel_end_time <> FND_API.g_miss_date
4332: and p_actual_travel_end_time < l_service_request_date) THEN
4333: X_Return_Status := FND_API.G_RET_STS_ERROR;
4334: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4335: FND_MESSAGE.Set_Name('CSF','CSF_TRAVEL_END_SR_DATE');
4336: FND_MSG_PUB.ADD;
4337: END IF;