[Home] [Help]
115: -- Parameters :
116: --
117: -- Standard IN Parameters :
118: -- p_api_version IN NUMBER Required
119: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
120: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
121: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
122: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
123: -- p_module_type IN VARCHAR2 Default NULL.
116: --
117: -- Standard IN Parameters :
118: -- p_api_version IN NUMBER Required
119: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
120: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
121: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
122: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
123: -- p_module_type IN VARCHAR2 Default NULL.
124: --
117: -- Standard IN Parameters :
118: -- p_api_version IN NUMBER Required
119: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
120: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
121: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
122: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
123: -- p_module_type IN VARCHAR2 Default NULL.
124: --
125: -- Standard OUT Parameters :
118: -- p_api_version IN NUMBER Required
119: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
120: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
121: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
122: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
123: -- p_module_type IN VARCHAR2 Default NULL.
124: --
125: -- Standard OUT Parameters :
126: -- x_return_status OUT VARCHAR2 Required
136: -- Initial Version 1.0
137: -------------------------------------------------------------------
138: PROCEDURE Process_nonroutine_job (
139: p_api_version IN NUMBER,
140: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
141: p_commit IN VARCHAR2 := Fnd_Api.g_false,
142: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
143: p_module_type IN VARCHAR2 := 'JSP',
144: x_return_status OUT NOCOPY VARCHAR2,
137: -------------------------------------------------------------------
138: PROCEDURE Process_nonroutine_job (
139: p_api_version IN NUMBER,
140: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
141: p_commit IN VARCHAR2 := Fnd_Api.g_false,
142: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
143: p_module_type IN VARCHAR2 := 'JSP',
144: x_return_status OUT NOCOPY VARCHAR2,
145: x_msg_count OUT NOCOPY NUMBER,
138: PROCEDURE Process_nonroutine_job (
139: p_api_version IN NUMBER,
140: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
141: p_commit IN VARCHAR2 := Fnd_Api.g_false,
142: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
143: p_module_type IN VARCHAR2 := 'JSP',
144: x_return_status OUT NOCOPY VARCHAR2,
145: x_msg_count OUT NOCOPY NUMBER,
146: x_msg_data OUT NOCOPY VARCHAR2,
204: -- Standard start of API savepoint
205: SAVEPOINT AHL_PROCESS_NONROUTINE_JOB_PVT;
206:
207: -- Standard call to check for call compatibility
208: IF NOT FND_API.Compatible_API_Call(l_api_version,
209: p_api_version,
210: l_api_name,
211: G_PKG_NAME) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: IF NOT FND_API.Compatible_API_Call(l_api_version,
209: p_api_version,
210: l_api_name,
211: G_PKG_NAME) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE
216: IF FND_API.To_Boolean(p_init_msg_list) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: -- Initialize message list if p_init_msg_list is set to TRUE
216: IF FND_API.To_Boolean(p_init_msg_list) THEN
217: FND_MSG_PUB.Initialize;
218: END IF;
219:
220: -- Initialize Procedure return status to success
217: FND_MSG_PUB.Initialize;
218: END IF;
219:
220: -- Initialize Procedure return status to success
221: x_return_status := FND_API.G_RET_STS_SUCCESS;
222:
223: -- Enable Debug.
224: IF (G_DEBUG = 'Y') THEN
225: AHL_DEBUG_PUB.enable_debug;
246: AHL_DEBUG_PUB.debug('INPUT - module_type :'||p_module_type);
247: END IF;
248:
249:
250: l_convert_validate_status := FND_API.G_RET_STS_SUCCESS;
251:
252: FOR i IN p_x_sr_task_tbl.FIRST..p_x_sr_task_tbl.LAST LOOP
253:
254: -- Add the logic
258: IF upper(p_module_type) = 'JSP' THEN
259:
260: IF upper(l_sr_task_rec.operation_type) = 'CREATE' THEN
261:
262: l_sr_task_rec.type_id := FND_API.G_MISS_NUM;
263: l_sr_task_rec.severity_id := FND_API.G_MISS_NUM;
264: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
265: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
266:
259:
260: IF upper(l_sr_task_rec.operation_type) = 'CREATE' THEN
261:
262: l_sr_task_rec.type_id := FND_API.G_MISS_NUM;
263: l_sr_task_rec.severity_id := FND_API.G_MISS_NUM;
264: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
265: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
266:
267: -- VLAKKU :: ER # 13787940
260: IF upper(l_sr_task_rec.operation_type) = 'CREATE' THEN
261:
262: l_sr_task_rec.type_id := FND_API.G_MISS_NUM;
263: l_sr_task_rec.severity_id := FND_API.G_MISS_NUM;
264: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
265: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
266:
267: -- VLAKKU :: ER # 13787940
268: -- l_sr_task_rec.Quality_inspection_type_code := FND_API.G_MISS_CHAR;
261:
262: l_sr_task_rec.type_id := FND_API.G_MISS_NUM;
263: l_sr_task_rec.severity_id := FND_API.G_MISS_NUM;
264: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
265: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
266:
267: -- VLAKKU :: ER # 13787940
268: -- l_sr_task_rec.Quality_inspection_type_code := FND_API.G_MISS_CHAR;
269:
264: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
265: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
266:
267: -- VLAKKU :: ER # 13787940
268: -- l_sr_task_rec.Quality_inspection_type_code := FND_API.G_MISS_CHAR;
269:
270: -- NR MR ER -- start
271: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
272: -- NR MR ER -- end
267: -- VLAKKU :: ER # 13787940
268: -- l_sr_task_rec.Quality_inspection_type_code := FND_API.G_MISS_CHAR;
269:
270: -- NR MR ER -- start
271: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
272: -- NR MR ER -- end
273: l_sr_task_rec.visit_id := FND_API.G_MISS_NUM;
274: l_sr_task_rec.instance_id := FND_API.G_MISS_NUM;
275:
269:
270: -- NR MR ER -- start
271: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
272: -- NR MR ER -- end
273: l_sr_task_rec.visit_id := FND_API.G_MISS_NUM;
274: l_sr_task_rec.instance_id := FND_API.G_MISS_NUM;
275:
276: ELSIF upper(l_sr_task_rec.operation_type) = 'UPDATE' THEN
277:
270: -- NR MR ER -- start
271: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
272: -- NR MR ER -- end
273: l_sr_task_rec.visit_id := FND_API.G_MISS_NUM;
274: l_sr_task_rec.instance_id := FND_API.G_MISS_NUM;
275:
276: ELSIF upper(l_sr_task_rec.operation_type) = 'UPDATE' THEN
277:
278: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
274: l_sr_task_rec.instance_id := FND_API.G_MISS_NUM;
275:
276: ELSIF upper(l_sr_task_rec.operation_type) = 'UPDATE' THEN
277:
278: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
279: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
280: -- NR MR ER -- start
281: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
282: -- NR MR ER -- end
275:
276: ELSIF upper(l_sr_task_rec.operation_type) = 'UPDATE' THEN
277:
278: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
279: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
280: -- NR MR ER -- start
281: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
282: -- NR MR ER -- end
283: END IF;
277:
278: l_sr_task_rec.urgency_id := FND_API.G_MISS_NUM;
279: l_sr_task_rec.problem_code := FND_API.G_MISS_CHAR;
280: -- NR MR ER -- start
281: --l_sr_task_rec.resolution_code := FND_API.G_MISS_CHAR;
282: -- NR MR ER -- end
283: END IF;
284:
285: END IF;
291: -- Call value to id conversion
292: Convert_val_to_id( p_x_sr_task_rec => l_sr_task_rec,
293: x_return_status => l_return_status);
294:
295: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
296: l_convert_validate_status := FND_API.G_RET_STS_ERROR;
297: END IF;
298:
299: IF (G_DEBUG = 'Y') THEN
292: Convert_val_to_id( p_x_sr_task_rec => l_sr_task_rec,
293: x_return_status => l_return_status);
294:
295: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
296: l_convert_validate_status := FND_API.G_RET_STS_ERROR;
297: END IF;
298:
299: IF (G_DEBUG = 'Y') THEN
300: AHL_DEBUG_PUB.debug('PROC : Calling Default_and_validate_param procedure');
305: p_mr_asso_count => p_x_mr_asso_tbl.COUNT,
306: p_module_type => p_module_type,
307: x_return_status => l_return_status);
308:
309: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
310: l_convert_validate_status := FND_API.G_RET_STS_ERROR;
311: END IF;
312:
313: p_x_sr_task_tbl(i) := l_sr_task_rec;
306: p_module_type => p_module_type,
307: x_return_status => l_return_status);
308:
309: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
310: l_convert_validate_status := FND_API.G_RET_STS_ERROR;
311: END IF;
312:
313: p_x_sr_task_tbl(i) := l_sr_task_rec;
314:
314:
315: END LOOP;
316:
317: -- Check For Errors.
318: IF( l_convert_validate_status <> FND_API.G_RET_STS_SUCCESS ) THEN
319: RAISE FND_API.G_EXC_ERROR;
320: END IF;
321:
322: FOR i IN p_x_sr_task_tbl.FIRST..p_x_sr_task_tbl.LAST LOOP
315: END LOOP;
316:
317: -- Check For Errors.
318: IF( l_convert_validate_status <> FND_API.G_RET_STS_SUCCESS ) THEN
319: RAISE FND_API.G_EXC_ERROR;
320: END IF;
321:
322: FOR i IN p_x_sr_task_tbl.FIRST..p_x_sr_task_tbl.LAST LOOP
323:
334: Create_sr( p_x_sr_task_rec => l_sr_task_rec,
335: x_return_status => l_return_status);
336:
337:
338: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341:
342: ELSIF ( upper(l_sr_task_rec.operation_type) = 'UPDATE' ) THEN
335: x_return_status => l_return_status);
336:
337:
338: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341:
342: ELSIF ( upper(l_sr_task_rec.operation_type) = 'UPDATE' ) THEN
343:
350: IF p_module_type IS NULL OR p_module_type <> 'SR_OA' THEN
351: Update_sr( p_x_sr_task_rec => l_sr_task_rec,
352: x_return_status => l_return_status);
353:
354: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
355: RAISE FND_API.G_EXC_ERROR;
356: END IF;
357:
358: -- JKJain, Bug 8540538 start
351: Update_sr( p_x_sr_task_rec => l_sr_task_rec,
352: x_return_status => l_return_status);
353:
354: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
355: RAISE FND_API.G_EXC_ERROR;
356: END IF;
357:
358: -- JKJain, Bug 8540538 start
359:
411: x_return_status => l_return_status);
412:
413: l_msg_count := FND_MSG_PUB.count_msg;
414:
415: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS or l_msg_count>0) THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: */
419: -- NR MR ER - End
412:
413: l_msg_count := FND_MSG_PUB.count_msg;
414:
415: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS or l_msg_count>0) THEN
416: RAISE FND_API.G_EXC_ERROR;
417: END IF;
418: */
419: -- NR MR ER - End
420:
453: 'After calling Process_Mr...Return status->'||x_return_status
454: );
455: END IF;
456:
457: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
454: );
455: END IF;
456:
457: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
455: END IF;
456:
457: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463: -- Bug # 8267142 (FP for KAL Bug # 7667326) -- start
456:
457: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463: -- Bug # 8267142 (FP for KAL Bug # 7667326) -- start
464: IF ( p_x_sr_task_tbl.COUNT > 0) THEN
495: x_return_status => x_return_status,
496: x_msg_count => x_msg_count,
497: x_msg_data => x_msg_data);
498:
499: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
496: x_msg_count => x_msg_count,
497: x_msg_data => x_msg_data);
498:
499: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
497: x_msg_data => x_msg_data);
498:
499: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
505: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
498:
499: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
500: RAISE FND_API.G_EXC_ERROR;
501: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
503: END IF;
504:
505: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
506: fnd_log.string(fnd_log.level_statement,
517: FETCH cs_sr_status INTO l_sr_status_id;
518: IF ( cs_sr_status%NOTFOUND) THEN
519: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_STATUS_ERROR');
520: Fnd_Msg_Pub.ADD;
521: x_return_status := FND_API.G_RET_STS_ERROR;
522: END IF;
523: */
524:
525: l_sr_status_id := G_SR_PLANNED_STATUS_ID;
549: -- Call Update Service Request procedure
550: Update_sr( p_x_sr_task_rec => l_sr_task_rec,
551: x_return_status => l_return_status);
552:
553: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
554: RAISE FND_API.G_EXC_ERROR;
555: END IF;
556:
557: END IF;
550: Update_sr( p_x_sr_task_rec => l_sr_task_rec,
551: x_return_status => l_return_status);
552:
553: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
554: RAISE FND_API.G_EXC_ERROR;
555: END IF;
556:
557: END IF;
558: -- FP for ER 5716489 -- end
556:
557: END IF;
558: -- FP for ER 5716489 -- end
559:
560: IF(( l_sr_task_rec.object_id IS NOT NULL AND l_sr_task_rec.object_id <> FND_API.G_MISS_NUM )
561: AND (l_sr_task_rec.object_type = 'AHL_PRD_DISP')) THEN
562:
563: AHL_PRD_DISP_UTIL_PVT.Create_SR_Disp_Link (
564:
562:
563: AHL_PRD_DISP_UTIL_PVT.Create_SR_Disp_Link (
564:
565: p_api_version => 1.0,
566: p_init_msg_list => FND_API.G_TRUE,
567: p_commit => FND_API.G_FALSE,
568: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
569: x_return_status => x_return_status,
570: x_msg_count => l_msg_count,
563: AHL_PRD_DISP_UTIL_PVT.Create_SR_Disp_Link (
564:
565: p_api_version => 1.0,
566: p_init_msg_list => FND_API.G_TRUE,
567: p_commit => FND_API.G_FALSE,
568: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
569: x_return_status => x_return_status,
570: x_msg_count => l_msg_count,
571: x_msg_data => l_msg_data,
564:
565: p_api_version => 1.0,
566: p_init_msg_list => FND_API.G_TRUE,
567: p_commit => FND_API.G_FALSE,
568: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
569: x_return_status => x_return_status,
570: x_msg_count => l_msg_count,
571: x_msg_data => l_msg_data,
572: p_service_request_id => l_sr_task_rec.incident_id,
573: p_disposition_id => l_sr_task_rec.object_id,
574: x_link_id => l_sr_task_rec.link_id
575: );
576:
577: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
580: END IF ;
581: END IF;
574: x_link_id => l_sr_task_rec.link_id
575: );
576:
577: IF ( upper(l_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
580: END IF ;
581: END IF;
582:
597: FND_MSG_PUB.Initialize;
598: END IF;
599:
600: -- Standard check of p_commit
601: IF FND_API.TO_BOOLEAN(p_commit) THEN
602: COMMIT WORK;
603: END IF;
604:
605: IF (G_DEBUG = 'Y') THEN
607: END IF;
608:
609: -- Count and Get messages
610: FND_MSG_PUB.count_and_get
611: ( p_encoded => fnd_api.g_false,
612: p_count => x_msg_count,
613: p_data => x_msg_data
614: );
615:
618: AHL_DEBUG_PUB.disable_debug;
619: END IF;
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
625: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
626: p_data => x_msg_data,
619: END IF;
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
625: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
626: p_data => x_msg_data,
627: p_encoded => fnd_api.g_false);
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
625: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
626: p_data => x_msg_data,
627: p_encoded => fnd_api.g_false);
628:
629: -- Disable debug
630: IF (G_DEBUG = 'Y') THEN
631: AHL_DEBUG_PUB.disable_debug;
631: AHL_DEBUG_PUB.disable_debug;
632: END IF;
633:
634:
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
638: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
639: p_data => x_msg_data,
632: END IF;
633:
634:
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
638: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
639: p_data => x_msg_data,
640: p_encoded => fnd_api.g_false);
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
638: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
639: p_data => x_msg_data,
640: p_encoded => fnd_api.g_false);
641:
642: -- Disable debug
643: IF (G_DEBUG = 'Y') THEN
644: AHL_DEBUG_PUB.disable_debug;
644: AHL_DEBUG_PUB.disable_debug;
645: END IF;
646:
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: Rollback to AHL_PROCESS_NONROUTINE_JOB_PVT;
650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
651: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
652: p_procedure_name => 'Process_Nonroutine_Job',
653: p_error_text => SUBSTR(SQLERRM,1,240));
654: END IF;
655: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
656: p_data => x_msg_data,
657: p_encoded => fnd_api.g_false);
658:
659: -- Disable debug
660: IF (G_DEBUG = 'Y') THEN
661: AHL_DEBUG_PUB.disable_debug;
736:
737: BEGIN
738:
739: -- Initialize Procedure return status to success
740: x_return_status := FND_API.G_RET_STS_SUCCESS;
741:
742: IF ( upper(p_x_sr_task_rec.operation_type) = 'CREATE' ) THEN
743:
744: -- added to fix bug# 8265902
741:
742: IF ( upper(p_x_sr_task_rec.operation_type) = 'CREATE' ) THEN
743:
744: -- added to fix bug# 8265902
745: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM) and
746: (p_x_sr_task_rec.status_name is not null AND p_x_sr_task_rec.status_name <> FND_API.G_MISS_CHAR)) THEN
747: OPEN get_status_id(p_x_sr_task_rec.status_name);
748: FETCH get_status_id INTO l_status_id;
749: IF (get_status_id%FOUND) THEN
742: IF ( upper(p_x_sr_task_rec.operation_type) = 'CREATE' ) THEN
743:
744: -- added to fix bug# 8265902
745: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM) and
746: (p_x_sr_task_rec.status_name is not null AND p_x_sr_task_rec.status_name <> FND_API.G_MISS_CHAR)) THEN
747: OPEN get_status_id(p_x_sr_task_rec.status_name);
748: FETCH get_status_id INTO l_status_id;
749: IF (get_status_id%FOUND) THEN
750: p_x_sr_task_rec.status_id := l_status_id;
758: -- return error msg. If only customer name is passed then
759: -- derive the customer id and name.
760:
761: IF( p_x_sr_task_rec.customer_id is not null and
762: p_x_sr_task_rec.customer_id <> FND_API.G_MISS_NUM
763: and (p_x_sr_task_rec.customer_name is not null and
764: p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR)) THEN
765: BEGIN
766: Select party_name
760:
761: IF( p_x_sr_task_rec.customer_id is not null and
762: p_x_sr_task_rec.customer_id <> FND_API.G_MISS_NUM
763: and (p_x_sr_task_rec.customer_name is not null and
764: p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR)) THEN
765: BEGIN
766: Select party_name
767: into
768: l_customer_name
770: where party_id
771: = p_x_sr_task_rec.customer_id;
772:
773: IF (l_customer_name <> nvl(p_x_sr_task_rec.customer_name,l_customer_name) and
774: (p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR) ) THEN
775: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_MISMATCH');
776: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
777: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
778: Fnd_Msg_Pub.ADD;
775: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_MISMATCH');
776: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
777: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
778: Fnd_Msg_Pub.ADD;
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: END IF;
781:
782: EXCEPTION
783: WHEN NO_DATA_FOUND THEN
783: WHEN NO_DATA_FOUND THEN
784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_INVALID');
785: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
786: Fnd_Msg_Pub.ADD;
787: x_return_status := FND_API.G_RET_STS_ERROR;
788: WHEN TOO_MANY_ROWS THEN
789: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_NOT_UNIQUE');
790: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
791: Fnd_Msg_Pub.ADD;
788: WHEN TOO_MANY_ROWS THEN
789: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_ID_NOT_UNIQUE');
790: Fnd_Message.SET_TOKEN('CUST_ID',p_x_sr_task_rec.customer_id);
791: Fnd_Msg_Pub.ADD;
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: END;
794:
795:
796: ELSIF ( (p_x_sr_task_rec.customer_id is null or
793: END;
794:
795:
796: ELSIF ( (p_x_sr_task_rec.customer_id is null or
797: p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM)
798: and (p_x_sr_task_rec.customer_name is not null and
799: p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR)) THEN
800:
801: BEGIN
795:
796: ELSIF ( (p_x_sr_task_rec.customer_id is null or
797: p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM)
798: and (p_x_sr_task_rec.customer_name is not null and
799: p_x_sr_task_rec.customer_name <> FND_API.G_MISS_CHAR)) THEN
800:
801: BEGIN
802: Select party_id
803: into
810: WHEN NO_DATA_FOUND THEN
811: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_INVALID');
812: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
813: Fnd_Msg_Pub.ADD;
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: WHEN TOO_MANY_ROWS THEN
816: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_NOT_UNIQUE');
817: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
818: Fnd_Msg_Pub.ADD;
815: WHEN TOO_MANY_ROWS THEN
816: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_NAME_NOT_UNIQUE');
817: Fnd_Message.SET_TOKEN('CUST_NAME',p_x_sr_task_rec.customer_name);
818: Fnd_Msg_Pub.ADD;
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: END;
821: -- NR MR ER - start
822: -- Balaji added following elseif clause to explicitly pass null to
823: -- SR API so that appropriate error msg is thrown.
840:
841: IF (upper(p_x_sr_task_rec.contact_type) in ('PARTY_RELATIONSHIP','PERSON')) THEN
842:
843: IF( p_x_sr_task_rec.contact_id is not null and
844: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
845: and ( p_x_sr_task_rec.contact_name is not null and
846: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
847: BEGIN
848: Select party_name
842:
843: IF( p_x_sr_task_rec.contact_id is not null and
844: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
845: and ( p_x_sr_task_rec.contact_name is not null and
846: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
847: BEGIN
848: Select party_name
849: into
850: l_contact_name
853: = p_x_sr_task_rec.contact_id;
854:
855:
856: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
857: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
858: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
859: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
860: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
861: Fnd_Msg_Pub.ADD;
858: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
859: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
860: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
861: Fnd_Msg_Pub.ADD;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: END IF;
864:
865: EXCEPTION
866: WHEN NO_DATA_FOUND THEN
866: WHEN NO_DATA_FOUND THEN
867: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
868: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
869: Fnd_Msg_Pub.ADD;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: WHEN TOO_MANY_ROWS THEN
872: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
873: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
874: Fnd_Msg_Pub.ADD;
871: WHEN TOO_MANY_ROWS THEN
872: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
873: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
874: Fnd_Msg_Pub.ADD;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: END;
877:
878:
879: ELSIF ( (p_x_sr_task_rec.contact_id is null or
876: END;
877:
878:
879: ELSIF ( (p_x_sr_task_rec.contact_id is null or
880: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
881: and ( p_x_sr_task_rec.contact_name is not null and
882: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
883:
884: BEGIN
878:
879: ELSIF ( (p_x_sr_task_rec.contact_id is null or
880: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
881: and ( p_x_sr_task_rec.contact_name is not null and
882: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
883:
884: BEGIN
885: Select party_id
886: into
895: WHEN NO_DATA_FOUND THEN
896: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
897: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
898: Fnd_Msg_Pub.ADD;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: WHEN TOO_MANY_ROWS THEN
901: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
902: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
903: Fnd_Msg_Pub.ADD;
900: WHEN TOO_MANY_ROWS THEN
901: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
902: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
903: Fnd_Msg_Pub.ADD;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: END;
906: -- NR MR ER -- start
907: -- Balaji added following elseif clause to explicitly pass null to
908: -- SR API so that appropriate error msg is thrown.
925:
926: IF (upper(p_x_sr_task_rec.contact_type) = 'EMPLOYEE') THEN
927:
928: IF( p_x_sr_task_rec.contact_id is not null and
929: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
930: and ( p_x_sr_task_rec.contact_name is not null and
931: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
932: BEGIN
933: Select full_name
927:
928: IF( p_x_sr_task_rec.contact_id is not null and
929: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
930: and ( p_x_sr_task_rec.contact_name is not null and
931: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
932: BEGIN
933: Select full_name
934: into
935: l_contact_name
940: and trunc(nvl(effective_end_date,sysdate));
941:
942:
943: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
944: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) ) THEN
945: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
946: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
947: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
948: Fnd_Msg_Pub.ADD;
945: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
946: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
947: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
948: Fnd_Msg_Pub.ADD;
949: x_return_status := FND_API.G_RET_STS_ERROR;
950: END IF;
951:
952: EXCEPTION
953: WHEN NO_DATA_FOUND THEN
953: WHEN NO_DATA_FOUND THEN
954: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
955: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
956: Fnd_Msg_Pub.ADD;
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: WHEN TOO_MANY_ROWS THEN
959: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
960: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
961: Fnd_Msg_Pub.ADD;
958: WHEN TOO_MANY_ROWS THEN
959: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
960: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
961: Fnd_Msg_Pub.ADD;
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: END;
964:
965:
966: ELSIF ( (p_x_sr_task_rec.contact_id is null or
963: END;
964:
965:
966: ELSIF ( (p_x_sr_task_rec.contact_id is null or
967: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
968: and ( p_x_sr_task_rec.contact_name is not null and
969: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
970:
971: BEGIN
965:
966: ELSIF ( (p_x_sr_task_rec.contact_id is null or
967: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
968: and ( p_x_sr_task_rec.contact_name is not null and
969: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
970:
971: BEGIN
972: Select person_id
973: into
983: WHEN NO_DATA_FOUND THEN
984: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
985: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
986: Fnd_Msg_Pub.ADD;
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: WHEN TOO_MANY_ROWS THEN
989: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
990: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
991: Fnd_Msg_Pub.ADD;
988: WHEN TOO_MANY_ROWS THEN
989: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
990: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
991: Fnd_Msg_Pub.ADD;
992: x_return_status := FND_API.G_RET_STS_ERROR;
993: END;
994: -- NR MR ER -- start
995: -- Balaji added following elseif clause to explicitly pass null to
996: -- SR API so that appropriate error msg is thrown.
1005:
1006:
1007: -- Derive the visit id from visit number
1008: IF ((p_x_sr_task_rec.visit_id is null or
1009: p_x_sr_task_rec.visit_id = FND_API.G_MISS_NUM) and
1010: p_x_sr_task_rec.visit_number is not null) THEN
1011:
1012: OPEN ahl_visit(p_x_sr_task_rec.visit_number);
1013: FETCH ahl_visit INTO p_x_sr_task_rec.visit_id;
1017:
1018:
1019: -- Derive the instance id from instance number
1020: IF ((p_x_sr_task_rec.instance_id is null or
1021: p_x_sr_task_rec.instance_id = FND_API.G_MISS_NUM) and
1022: p_x_sr_task_rec.instance_number is not null ) THEN
1023:
1024: OPEN sr_customer_product(p_x_sr_task_rec.instance_number);
1025: FETCH sr_customer_product INTO p_x_sr_task_rec.instance_id;
1029:
1030:
1031: -- Derive the problem code from problem meaning
1032: IF ((p_x_sr_task_rec.problem_code is null or
1033: p_x_sr_task_rec.problem_code = FND_API.G_MISS_CHAR) and
1034: p_x_sr_task_rec.problem_meaning is not null ) THEN
1035:
1036: OPEN sr_problem_code(p_x_sr_task_rec.problem_meaning);
1037: FETCH sr_problem_code INTO p_x_sr_task_rec.problem_code;
1046: IF p_x_sr_task_rec.problem_code IS NULL THEN
1047: Fnd_Message.SET_NAME('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
1048: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.problem_meaning);
1049: Fnd_Msg_Pub.ADD;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: END IF;
1052: -- NR MR ER - end
1053:
1054: END IF;
1055:
1056: -- :: VLAKKU :: ER # 13787940 --START
1057: -- Derive the Quality inspection type code from Quality inspection type description
1058: IF ((p_x_sr_task_rec.quality_inspection_type_code is null or
1059: p_x_sr_task_rec.quality_inspection_type_code = FND_API.G_MISS_CHAR) and
1060: p_x_sr_task_rec.quality_inspection_type is not null ) THEN
1061:
1062: OPEN sr_qality_inspection_type(p_x_sr_task_rec.quality_inspection_type);
1063: FETCH sr_qality_inspection_type INTO p_x_sr_task_rec.quality_inspection_type_code;
1064: IF (sr_qality_inspection_type%NOTFOUND ) THEN
1065: Fnd_Message.SET_NAME('AHL','AHL_PRD_QA_INSP_TYPE_INVALID');
1066: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.quality_inspection_type);
1067: Fnd_Msg_Pub.ADD;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: END IF;
1070: CLOSE sr_qality_inspection_type;
1071:
1072: END IF;
1073: -- :: VLAKKU :: ER # 13787940 -- END
1074:
1075: -- Derive the resolution code from resolution meaning.
1076: IF ((p_x_sr_task_rec.resolution_code is null or
1077: p_x_sr_task_rec.resolution_code = FND_API.G_MISS_CHAR) and
1078: p_x_sr_task_rec.resolution_meaning is not null ) THEN
1079:
1080: OPEN sr_resolution_code(p_x_sr_task_rec.resolution_meaning);
1081: FETCH sr_resolution_code INTO p_x_sr_task_rec.resolution_code;
1090: IF p_x_sr_task_rec.resolution_code IS NULL THEN
1091: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_INV');
1092: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.resolution_meaning);
1093: Fnd_Msg_Pub.ADD;
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: END IF;
1096: -- NR MR ER -- end
1097:
1098: END IF;
1101: -- Derive the warranty contract id from warranty contract number
1102: BEGIN
1103: -- following If condition will be useful while Creating SR from Public APIs
1104: IF ((p_x_sr_task_rec.warranty_contract_number is null or
1105: p_x_sr_task_rec.warranty_contract_number = FND_API.G_MISS_NUM) and
1106: (p_x_sr_task_rec.warranty_contract_id is not null and
1107: p_x_sr_task_rec.warranty_contract_id <> FND_API.G_MISS_NUM)) THEN
1108:
1109: Select warranty_contract_id into p_x_sr_task_rec.warranty_contract_id
1103: -- following If condition will be useful while Creating SR from Public APIs
1104: IF ((p_x_sr_task_rec.warranty_contract_number is null or
1105: p_x_sr_task_rec.warranty_contract_number = FND_API.G_MISS_NUM) and
1106: (p_x_sr_task_rec.warranty_contract_id is not null and
1107: p_x_sr_task_rec.warranty_contract_id <> FND_API.G_MISS_NUM)) THEN
1108:
1109: Select warranty_contract_id into p_x_sr_task_rec.warranty_contract_id
1110: From ahl_warranty_contracts_b
1111: Where warranty_contract_id = p_x_sr_task_rec.warranty_contract_id
1112: and item_instance_id = p_x_sr_task_rec.instance_id
1113: and contract_status_code = 'ACTIVE';
1114:
1115: ELSIF (p_x_sr_task_rec.warranty_contract_number is not null and
1116: p_x_sr_task_rec.warranty_contract_number <> FND_API.G_MISS_NUM) THEN
1117:
1118: Select warranty_contract_id into p_x_sr_task_rec.warranty_contract_id
1119: From ahl_warranty_contracts_b
1120: Where contract_number = p_x_sr_task_rec.warranty_contract_number
1126: WHEN NO_DATA_FOUND THEN
1127: Fnd_Message.SET_NAME('AHL', 'AHL_WARRANTY_INVALID_CNTR_NUM');
1128: Fnd_Message.SET_TOKEN('CNTR_NUM', p_x_sr_task_rec.warranty_contract_number);
1129: Fnd_Msg_Pub.ADD;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: END;
1132:
1133: ELSIF ( upper(p_x_sr_task_rec.operation_type) = 'UPDATE') THEN
1134:
1142:
1143: IF (upper(p_x_sr_task_rec.contact_type) in ('PARTY_RELATIONSHIP','PERSON')) THEN
1144:
1145: IF( p_x_sr_task_rec.contact_id is not null and
1146: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
1147: and ( p_x_sr_task_rec.contact_name is not null and
1148: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
1149: BEGIN
1150: Select party_name
1144:
1145: IF( p_x_sr_task_rec.contact_id is not null and
1146: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
1147: and ( p_x_sr_task_rec.contact_name is not null and
1148: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
1149: BEGIN
1150: Select party_name
1151: into
1152: l_contact_name
1154: where party_id
1155: = p_x_sr_task_rec.contact_id;
1156:
1157: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1158: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1159: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1160: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1161: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1162: Fnd_Msg_Pub.ADD;
1159: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1160: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1161: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1162: Fnd_Msg_Pub.ADD;
1163: x_return_status := FND_API.G_RET_STS_ERROR;
1164: END IF;
1165:
1166:
1167: EXCEPTION
1168: WHEN NO_DATA_FOUND THEN
1169: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
1170: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1171: Fnd_Msg_Pub.ADD;
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: WHEN TOO_MANY_ROWS THEN
1174: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1175: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1176: Fnd_Msg_Pub.ADD;
1173: WHEN TOO_MANY_ROWS THEN
1174: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1175: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1176: Fnd_Msg_Pub.ADD;
1177: x_return_status := FND_API.G_RET_STS_ERROR;
1178: END;
1179:
1180:
1181: ELSIF ( (p_x_sr_task_rec.contact_id is null or
1178: END;
1179:
1180:
1181: ELSIF ( (p_x_sr_task_rec.contact_id is null or
1182: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
1183: and ( p_x_sr_task_rec.contact_name is not null and
1184: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
1185:
1186: BEGIN
1180:
1181: ELSIF ( (p_x_sr_task_rec.contact_id is null or
1182: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
1183: and ( p_x_sr_task_rec.contact_name is not null and
1184: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR )) THEN
1185:
1186: BEGIN
1187: Select party_id
1188: into
1196: WHEN NO_DATA_FOUND THEN
1197: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
1198: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1199: Fnd_Msg_Pub.ADD;
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: WHEN TOO_MANY_ROWS THEN
1202: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1203: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1204: Fnd_Msg_Pub.ADD;
1201: WHEN TOO_MANY_ROWS THEN
1202: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1203: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1204: Fnd_Msg_Pub.ADD;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: END;
1207: -- NR MR ER -- start
1208: -- Balaji added following elseif clause to explicitly pass null to
1209: -- SR API so that appropriate error msg is thrown.
1227:
1228: IF (upper(p_x_sr_task_rec.contact_type) = 'EMPLOYEE') THEN
1229:
1230: IF( p_x_sr_task_rec.contact_id is not null and
1231: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
1232: and ( p_x_sr_task_rec.contact_name is not null and
1233: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR)) THEN
1234: BEGIN
1235: Select full_name
1229:
1230: IF( p_x_sr_task_rec.contact_id is not null and
1231: p_x_sr_task_rec.contact_id <> FND_API.G_MISS_NUM
1232: and ( p_x_sr_task_rec.contact_name is not null and
1233: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR)) THEN
1234: BEGIN
1235: Select full_name
1236: into
1237: l_contact_name
1241: and trunc(sysdate) between trunc(nvl(effective_start_date,sysdate))
1242: and trunc(nvl(effective_end_date,sysdate));
1243:
1244: IF(l_contact_name <> nvl(p_x_sr_task_rec.contact_name,l_contact_name) and
1245: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1246: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1247: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1248: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1249: Fnd_Msg_Pub.ADD;
1246: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_MISMATCH');
1247: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1248: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1249: Fnd_Msg_Pub.ADD;
1250: x_return_status := FND_API.G_RET_STS_ERROR;
1251: END IF;
1252:
1253: EXCEPTION
1254: WHEN NO_DATA_FOUND THEN
1254: WHEN NO_DATA_FOUND THEN
1255: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_INVALID');
1256: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1257: Fnd_Msg_Pub.ADD;
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: WHEN TOO_MANY_ROWS THEN
1260: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1261: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1262: Fnd_Msg_Pub.ADD;
1259: WHEN TOO_MANY_ROWS THEN
1260: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_ID_NOT_UNIQUE');
1261: Fnd_Message.SET_TOKEN('CONT_ID',p_x_sr_task_rec.contact_id);
1262: Fnd_Msg_Pub.ADD;
1263: x_return_status := FND_API.G_RET_STS_ERROR;
1264: END;
1265:
1266:
1267: ELSIF ( (p_x_sr_task_rec.contact_id is null or
1264: END;
1265:
1266:
1267: ELSIF ( (p_x_sr_task_rec.contact_id is null or
1268: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
1269: and ( p_x_sr_task_rec.contact_name is not null and
1270: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR)) THEN
1271:
1272: BEGIN
1266:
1267: ELSIF ( (p_x_sr_task_rec.contact_id is null or
1268: p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)
1269: and ( p_x_sr_task_rec.contact_name is not null and
1270: p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR)) THEN
1271:
1272: BEGIN
1273: Select person_id
1274: into
1284: WHEN NO_DATA_FOUND THEN
1285: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_INVALID');
1286: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1287: Fnd_Msg_Pub.ADD;
1288: x_return_status := FND_API.G_RET_STS_ERROR;
1289: WHEN TOO_MANY_ROWS THEN
1290: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1291: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1292: Fnd_Msg_Pub.ADD;
1289: WHEN TOO_MANY_ROWS THEN
1290: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_NAME_NOT_UNIQUE');
1291: Fnd_Message.SET_TOKEN('CONT_NAME',p_x_sr_task_rec.contact_name);
1292: Fnd_Msg_Pub.ADD;
1293: x_return_status := FND_API.G_RET_STS_ERROR;
1294: END;
1295: -- NR MR ER -- start
1296: -- Balaji added following elseif clause to explicitly pass null to
1297: -- SR API so that appropriate error msg is thrown.
1307:
1308:
1309: -- Derive the problem code from problem meaning.
1310: IF ((p_x_sr_task_rec.problem_code is null or
1311: p_x_sr_task_rec.problem_code = FND_API.G_MISS_CHAR) and
1312: p_x_sr_task_rec.problem_meaning is not null ) THEN
1313:
1314: OPEN sr_problem_code(p_x_sr_task_rec.problem_meaning);
1315: FETCH sr_problem_code INTO p_x_sr_task_rec.problem_code;
1324: IF p_x_sr_task_rec.problem_code IS NULL THEN
1325: Fnd_Message.SET_NAME('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
1326: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.problem_meaning);
1327: Fnd_Msg_Pub.ADD;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: END IF;
1330: -- NR MR ER -- end
1331:
1332: END IF;
1332: END IF;
1333:
1334: -- Derive the resolution code from resolution meaning.
1335: IF ((p_x_sr_task_rec.resolution_code is null or
1336: p_x_sr_task_rec.resolution_code = FND_API.G_MISS_CHAR) and
1337: p_x_sr_task_rec.resolution_meaning is not null ) THEN
1338:
1339: OPEN sr_resolution_code(p_x_sr_task_rec.resolution_meaning);
1340: FETCH sr_resolution_code INTO p_x_sr_task_rec.resolution_code;
1349: IF p_x_sr_task_rec.resolution_code IS NULL THEN
1350: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_INV');
1351: Fnd_Message.SET_TOKEN('CODE',p_x_sr_task_rec.resolution_meaning);
1352: Fnd_Msg_Pub.ADD;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: END IF;
1355: -- NR MR ER -- end
1356:
1357: END IF;
1360: -- Balaji added the code for OGMA ER (Adding MRs to Non-Routine)
1361: -- Begin
1362: -- Derive the visit id from visit number
1363: IF ((p_x_sr_task_rec.visit_id is null or
1364: p_x_sr_task_rec.visit_id = FND_API.G_MISS_NUM) and
1365: p_x_sr_task_rec.visit_number is not null) THEN
1366:
1367: OPEN ahl_visit(p_x_sr_task_rec.visit_number);
1368: FETCH ahl_visit INTO p_x_sr_task_rec.visit_id;
1486:
1487: BEGIN
1488:
1489: -- Initialize Procedure return status to success
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1491:
1492:
1493: IF (upper(p_x_sr_task_rec.operation_type) = 'CREATE') THEN
1494:
1494:
1495:
1496: -- Check if instance id is not null. If instance id
1497: -- is null then return error message.
1498: IF (p_x_sr_task_rec.instance_id is null or p_x_sr_task_rec.instance_id = FND_API.G_MISS_NUM) THEN
1499:
1500: Fnd_Message.SET_NAME('AHL','AHL_PRD_INSTANCE_VALUE_REQ');
1501: Fnd_Msg_Pub.ADD;
1502: RAISE FND_API.G_EXC_ERROR;
1498: IF (p_x_sr_task_rec.instance_id is null or p_x_sr_task_rec.instance_id = FND_API.G_MISS_NUM) THEN
1499:
1500: Fnd_Message.SET_NAME('AHL','AHL_PRD_INSTANCE_VALUE_REQ');
1501: Fnd_Msg_Pub.ADD;
1502: RAISE FND_API.G_EXC_ERROR;
1503:
1504: END IF;
1505:
1506: -- If originating work order id is null then
1504: END IF;
1505:
1506: -- If originating work order id is null then
1507: -- return an error message.
1508: IF (p_x_sr_task_rec.originating_wo_id is null or p_x_sr_task_rec.originating_wo_id = FND_API.G_MISS_NUM) THEN
1509:
1510: Fnd_Message.SET_NAME('AHL','AHL_PRD_TASK_ORG_WOID_REQ');
1511: Fnd_Msg_Pub.ADD;
1512: RAISE FND_API.G_EXC_ERROR;
1508: IF (p_x_sr_task_rec.originating_wo_id is null or p_x_sr_task_rec.originating_wo_id = FND_API.G_MISS_NUM) THEN
1509:
1510: Fnd_Message.SET_NAME('AHL','AHL_PRD_TASK_ORG_WOID_REQ');
1511: Fnd_Msg_Pub.ADD;
1512: RAISE FND_API.G_EXC_ERROR;
1513:
1514: END IF;
1515:
1516: -- bachandr added following validation for Bug # 6447467 (Base ER # 5571440)
1520:
1521: IF ( nvl(fnd_profile.value('AHL_SR_RESL_CODE_COMP'), 'N') = 'Y') THEN
1522:
1523: IF ( p_x_sr_task_rec.resolution_meaning IS NULL OR
1524: p_x_sr_task_rec.resolution_meaning = FND_API.G_MISS_CHAR) THEN
1525:
1526: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_REQ');
1527: Fnd_Msg_Pub.ADD;
1528: RAISE FND_API.G_EXC_ERROR;
1524: p_x_sr_task_rec.resolution_meaning = FND_API.G_MISS_CHAR) THEN
1525:
1526: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_REQ');
1527: Fnd_Msg_Pub.ADD;
1528: RAISE FND_API.G_EXC_ERROR;
1529:
1530: END IF;
1531: END IF;
1532: -- Bug # 6447467 -- End
1544: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_x_sr_task_rec.originating_wo_id,
1545: p_ue_id => NULL,
1546: p_visit_id => NULL,
1547: p_item_instance_id => NULL);
1548: IF l_return_status = FND_API.G_TRUE THEN
1549: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_SR_UNTLCKD');
1550: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1551: FND_MSG_PUB.ADD;
1552: RAISE FND_API.G_EXC_ERROR;
1548: IF l_return_status = FND_API.G_TRUE THEN
1549: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_SR_UNTLCKD');
1550: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1551: FND_MSG_PUB.ADD;
1552: RAISE FND_API.G_EXC_ERROR;
1553: END IF;
1554: -- rroy
1555: -- ACL Changes
1556:
1557: -- If type id is null then derive it
1558: -- from profile. If profile value is null then
1559: -- return an error message
1560:
1561: IF ((p_x_sr_task_rec.type_id is null or p_x_sr_task_rec.type_id = FND_API.G_MISS_NUM)and
1562: (p_x_sr_task_rec.type_name is null or p_x_sr_task_rec.type_name = FND_API.G_MISS_CHAR)) THEN
1563: IF (fnd_profile.value('AHL_PRD_SR_TYPE') is not null) THEN
1564: p_x_sr_task_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
1565: p_x_sr_task_rec.type_name := fnd_profile.value('AHL_PRD_SR_TYPE');
1558: -- from profile. If profile value is null then
1559: -- return an error message
1560:
1561: IF ((p_x_sr_task_rec.type_id is null or p_x_sr_task_rec.type_id = FND_API.G_MISS_NUM)and
1562: (p_x_sr_task_rec.type_name is null or p_x_sr_task_rec.type_name = FND_API.G_MISS_CHAR)) THEN
1563: IF (fnd_profile.value('AHL_PRD_SR_TYPE') is not null) THEN
1564: p_x_sr_task_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
1565: p_x_sr_task_rec.type_name := fnd_profile.value('AHL_PRD_SR_TYPE');
1566: ELSE
1567: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_TYPE_REQ');
1568: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1569: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1570: Fnd_Msg_Pub.ADD;
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1572: END IF;
1573:
1574: END IF;
1575:
1575:
1576:
1577: -- If status is null then derive it from profile.
1578: -- If profile value is null then default it to OPEN.
1579: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM)and
1580: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
1581:
1582: IF (fnd_profile.value('AHL_PRD_SR_STATUS') is not null) THEN
1583: p_x_sr_task_rec.status_id := fnd_profile.value('AHL_PRD_SR_STATUS');
1576:
1577: -- If status is null then derive it from profile.
1578: -- If profile value is null then default it to OPEN.
1579: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM)and
1580: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
1581:
1582: IF (fnd_profile.value('AHL_PRD_SR_STATUS') is not null) THEN
1583: p_x_sr_task_rec.status_id := fnd_profile.value('AHL_PRD_SR_STATUS');
1584: ELSE
1590: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_DEFAULT_ERR');
1591: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1592: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1593: Fnd_Msg_Pub.ADD;
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595: ELSE
1596: FETCH cs_sr_status INTO p_x_sr_task_rec.status_id;
1597: END IF;
1598:
1604:
1605: --MANESING::Supplier Warranty, 04-Oct-2010, cannot modify warranty contract when the SR is in Closed status
1606: IF (p_mr_asso_count = 0 and
1607: p_x_sr_task_rec.status_id = 2 and p_x_sr_task_rec.warranty_contract_id IS NOT null) THEN
1608: x_return_status := FND_API.G_RET_STS_ERROR;
1609: FND_MESSAGE.set_name('AHL', 'AHL_PRD_NR_WARR_CNTR_RO');
1610: FND_MSG_PUB.ADD;
1611: END IF;
1612:
1611: END IF;
1612:
1613: -- If severity is null then derive it from profile.
1614: -- If profile value is null then return an error message.
1615: IF ((p_x_sr_task_rec.severity_id is null or p_x_sr_task_rec.severity_id = FND_API.G_MISS_NUM)and
1616: (p_x_sr_task_rec.severity_name is null or p_x_sr_task_rec.severity_name = FND_API.G_MISS_CHAR)) THEN
1617:
1618: IF (fnd_profile.value('AHL_PRD_SR_SEVERITY') is not null) THEN
1619: p_x_sr_task_rec.severity_id := fnd_profile.value('AHL_PRD_SR_SEVERITY');
1612:
1613: -- If severity is null then derive it from profile.
1614: -- If profile value is null then return an error message.
1615: IF ((p_x_sr_task_rec.severity_id is null or p_x_sr_task_rec.severity_id = FND_API.G_MISS_NUM)and
1616: (p_x_sr_task_rec.severity_name is null or p_x_sr_task_rec.severity_name = FND_API.G_MISS_CHAR)) THEN
1617:
1618: IF (fnd_profile.value('AHL_PRD_SR_SEVERITY') is not null) THEN
1619: p_x_sr_task_rec.severity_id := fnd_profile.value('AHL_PRD_SR_SEVERITY');
1620:
1625: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_INVALID');
1626: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1627: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1628: Fnd_Msg_Pub.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1631:
1632: CLOSE cs_sr_severity_validate;
1633: ELSE
1634: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_SEVERITY_REQ');
1635: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1636: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1637: Fnd_Msg_Pub.ADD;
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: END IF;
1640:
1641: END IF;
1642:
1642:
1643: -- Default incident date to sysdate if
1644: -- request date is null
1645: IF (p_x_sr_task_rec.request_date is null or
1646: p_x_sr_task_rec.request_date = FND_API.G_MISS_DATE) THEN
1647:
1648: p_x_sr_task_rec.request_date := sysdate;
1649:
1650: -- modified to default based on workorder scheduled start date to fix bug# 7697685 .
1649:
1650: -- modified to default based on workorder scheduled start date to fix bug# 7697685 .
1651: IF ((nvl(UPPER(p_x_sr_task_rec.WO_Create_flag),'Y') = 'Y') AND
1652: (p_x_sr_task_rec.workorder_start_time IS NOT NULL AND
1653: p_x_sr_task_rec.workorder_start_time <> FND_API.G_MISS_DATE) AND
1654: p_x_sr_task_rec.workorder_start_time < sysdate ) THEN
1655: p_x_sr_task_rec.request_date := p_x_sr_task_rec.workorder_start_time;
1656: END IF;
1657:
1659:
1660:
1661: -- If summary is null then return an
1662: -- error message.
1663: IF (p_x_sr_task_rec.summary is null or p_x_sr_task_rec.summary = FND_API.G_MISS_CHAR) THEN
1664:
1665: Fnd_Message.SET_NAME('AHL','AHL_PRD_SUMMARY_REQ');
1666: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1667: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1665: Fnd_Message.SET_NAME('AHL','AHL_PRD_SUMMARY_REQ');
1666: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1667: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1668: Fnd_Msg_Pub.ADD;
1669: x_return_status := FND_API.G_RET_STS_ERROR;
1670:
1671: END IF;
1672:
1673:
1673:
1674: -- If duration is null then derive it from profile.
1675: -- If profile value is null then default it to 1.
1676: --apattark changed for ER 9368251 to pass 0 if the duration is null
1677: IF (p_x_sr_task_rec.duration is null or p_x_sr_task_rec.duration = FND_API.G_MISS_NUM) THEN
1678: p_x_sr_task_rec.duration := 0;
1679: /*IF ( fnd_profile.value('AHL_PRD_TASK_EST_DURATION') is not null) THEN
1680: p_x_sr_task_rec.duration := fnd_profile.value('AHL_PRD_TASK_EST_DURATION');
1681: ELSE
1684: */
1685: END IF;
1686:
1687: -- Changes made by VSUNDARA For SR Integration
1688: IF (p_x_sr_task_rec.customer_id IS NULL or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM ) THEN
1689: OPEN default_party_id(p_x_sr_task_rec.instance_id);
1690: FETCH default_party_id INTO p_x_sr_task_rec.customer_id ;
1691: --Just to Check
1692: Select party_name
1698: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1699: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1700: Fnd_Message.SET_TOKEN('INSTANCE_NUM',null);
1701: Fnd_Msg_Pub.ADD;
1702: x_return_status := FND_API.G_RET_STS_ERROR;
1703: END IF;
1704: OPEN owner_customer_type(p_x_sr_task_rec.customer_id);
1705: FETCH owner_customer_type INTO p_x_sr_task_rec.customer_type;
1706: IF ( owner_customer_type%NOTFOUND) THEN
1707: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR'); -- Customer Type is Invalid
1708: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1709: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1710: Fnd_Msg_Pub.ADD;
1711: x_return_status := FND_API.G_RET_STS_ERROR;
1712: END IF;
1713:
1714: CLOSE owner_customer_type;
1715: -- Defalut contact is Same
1719: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1720: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1721: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1722: Fnd_Msg_Pub.ADD;
1723: x_return_status := FND_API.G_RET_STS_ERROR;
1724: ELSE
1725: p_x_sr_task_rec.contact_type := 'EMPLOYEE';
1726: END IF;
1727:
1731: --- Validation of the Customer ID with Owner of the Instance
1732: OPEN default_party_id(p_x_sr_task_rec.instance_id);
1733: FETCH default_party_id INTO l_owner_id ;
1734: IF( l_owner_id <> nvl(p_x_sr_task_rec.customer_id,l_owner_id) and
1735: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1736: Fnd_Message.SET_NAME('AHL','AHL_PRD_INVALID_OWNER'); -- New Error Message Should be added
1737: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1738: Fnd_Msg_Pub.ADD;
1739: x_return_status := FND_API.G_RET_STS_ERROR;
1735: (p_x_sr_task_rec.contact_name <> FND_API.G_MISS_CHAR) )THEN
1736: Fnd_Message.SET_NAME('AHL','AHL_PRD_INVALID_OWNER'); -- New Error Message Should be added
1737: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1738: Fnd_Msg_Pub.ADD;
1739: x_return_status := FND_API.G_RET_STS_ERROR;
1740: END IF;
1741:
1742: END IF;
1743:
1745:
1746: -- If Customer id and Contact id is null then
1747: -- Derive the Customer info from Profile and
1748: -- Contact info from fnd_user.user_id
1749: IF ((p_x_sr_task_rec.customer_id IS NULL or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM ) and
1750: (p_x_sr_task_rec.contact_id IS NULL or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)) THEN
1751: IF ( fnd_profile.value('AHL_PRD_SR_CUSTOMER_NAME') is not null ) THEN
1752:
1753: OPEN default_customer_type;
1746: -- If Customer id and Contact id is null then
1747: -- Derive the Customer info from Profile and
1748: -- Contact info from fnd_user.user_id
1749: IF ((p_x_sr_task_rec.customer_id IS NULL or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM ) and
1750: (p_x_sr_task_rec.contact_id IS NULL or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)) THEN
1751: IF ( fnd_profile.value('AHL_PRD_SR_CUSTOMER_NAME') is not null ) THEN
1752:
1753: OPEN default_customer_type;
1754: FETCH default_customer_type INTO p_x_sr_task_rec.customer_type;
1757: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CUST_ERROR');
1758: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1759: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1760: Fnd_Msg_Pub.ADD;
1761: x_return_status := FND_API.G_RET_STS_ERROR;
1762: ELSE
1763: p_x_sr_task_rec.customer_id := fnd_profile.value('AHL_PRD_SR_CUSTOMER_NAME');
1764: END IF;
1765:
1771: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_CONT_ERROR');
1772: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1773: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1774: Fnd_Msg_Pub.ADD;
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1776: ELSE
1777: p_x_sr_task_rec.contact_type := 'EMPLOYEE';
1778: END IF;
1779:
1784: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_PROFILE_REQ');
1785: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1786: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1787: Fnd_Msg_Pub.ADD;
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1789:
1790: END IF;
1791:
1792: END IF;
1794:
1795: -- If Customer id is not null but Customer type is
1796: -- null then return an error message.
1797: IF (p_x_sr_task_rec.customer_id is not null and
1798: (p_x_sr_task_rec.customer_type is null or p_x_sr_task_rec.customer_type = FND_API.G_MISS_CHAR)) THEN
1799:
1800: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_TYPE_REQ');
1801: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1802: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1800: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUST_TYPE_REQ');
1801: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1802: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1803: Fnd_Msg_Pub.ADD;
1804: x_return_status := FND_API.G_RET_STS_ERROR;
1805:
1806: END IF;
1807:
1808:
1808:
1809: -- If Contact id is not null but Contact type is
1810: -- null then return an error message.
1811: IF (p_x_sr_task_rec.contact_id is not null and
1812: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1813:
1814: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1815: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1816: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1814: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1815: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1816: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1817: Fnd_Msg_Pub.ADD;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819:
1820: END IF;
1821:
1822:
1822:
1823: -- If Customer value is not null but Contact
1824: -- is null then return an error message.
1825: IF (p_x_sr_task_rec.customer_id is not null and
1826: (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM)) THEN
1827:
1828: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1829: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1830: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1828: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1829: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1830: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1831: Fnd_Msg_Pub.ADD;
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1833:
1834: -- If Contact is not null but Customer is null then
1835: -- return an error message.
1836: ELSIF((p_x_sr_task_rec.customer_id is null or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM) and
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1833:
1834: -- If Contact is not null but Customer is null then
1835: -- return an error message.
1836: ELSIF((p_x_sr_task_rec.customer_id is null or p_x_sr_task_rec.customer_id = FND_API.G_MISS_NUM) and
1837: p_x_sr_task_rec.contact_id is not null ) THEN
1838:
1839: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUSTOMER_REQ');
1840: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1839: Fnd_Message.SET_NAME('AHL','AHL_PRD_CUSTOMER_REQ');
1840: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1841: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1842: Fnd_Msg_Pub.ADD;
1843: x_return_status := FND_API.G_RET_STS_ERROR;
1844:
1845: END IF;
1846:
1847:
1846:
1847:
1848: -- If visit id is null then return an error
1849: -- message.
1850: IF (p_x_sr_task_rec.visit_id is null or p_x_sr_task_rec.visit_id = FND_API.G_MISS_NUM) THEN
1851:
1852: Fnd_Message.SET_NAME('AHL','AHL_PRD_VISIT_VALUE_REQ');
1853: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1854: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1852: Fnd_Message.SET_NAME('AHL','AHL_PRD_VISIT_VALUE_REQ');
1853: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1854: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1855: Fnd_Msg_Pub.ADD;
1856: x_return_status := FND_API.G_RET_STS_ERROR;
1857:
1858: END IF;
1859:
1860: -- STHILAK PIE Integration
1872: WHEN NO_DATA_FOUND THEN
1873: Fnd_Message.SET_NAME('AHL','AHL_PRD_SERVICE_TYPE_INVALID');
1874: -- Fnd_Message.SET_TOKEN('SERVICE_TYPE',p_x_sr_task_rec.service_type);
1875: Fnd_Msg_Pub.ADD;
1876: x_return_status := FND_API.G_RET_STS_ERROR;
1877: END;
1878: ELSE
1879: p_x_sr_task_rec.service_type_code := NULL;
1880: END IF;
1882: --amsriniv. Issue 105. Begin ER 6014567
1883: IF (p_x_sr_task_rec.instance_quantity IS NOT NULL AND p_x_sr_task_rec.instance_quantity <= 0) THEN
1884: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
1885: Fnd_Msg_Pub.ADD;
1886: x_return_status := FND_API.G_RET_STS_ERROR;
1887: END IF;
1888:
1889: IF (upper(p_x_sr_task_rec.WO_Create_flag) = 'N') THEN
1890: OPEN check_inst_nonserial(p_x_sr_task_rec.Instance_id, p_x_sr_task_rec.originating_wo_id);
1892: IF (check_inst_nonserial%FOUND) THEN
1893: Fnd_Message.SET_NAME('AHL','AHL_NO_CREATE_WO_NONSER');
1894: Fnd_Message.SET_TOKEN('FIELD',l_instance_num);
1895: Fnd_Msg_Pub.ADD;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: END IF;
1898: CLOSE check_inst_nonserial;
1899: END IF;
1900:
1906: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_ISSUED');
1907: Fnd_Message.SET_TOKEN('INS_NUM',l_instance_num);
1908: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1909: Fnd_Msg_Pub.ADD;
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: ELSIF (l_quantity < p_x_sr_task_rec.instance_quantity) THEN
1912: Fnd_Message.SET_NAME('AHL','AHL_INST_NOT_AVAIL');
1913: Fnd_Message.SET_TOKEN('INS_NAME',l_instance_num);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1914: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1915: Fnd_Message.SET_TOKEN('QUANT_USER',TO_CHAR(p_x_sr_task_rec.instance_quantity));
1916: Fnd_Message.SET_TOKEN('QUANT_AVAIL',TO_CHAR(l_quantity));
1917: Fnd_Msg_Pub.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1920: ELSE
1921: Fnd_Message.SET_NAME('AHL','AHL_NR_WO_NOT_RELEASED');
1922: Fnd_Msg_Pub.ADD;
1919: END IF;
1920: ELSE
1921: Fnd_Message.SET_NAME('AHL','AHL_NR_WO_NOT_RELEASED');
1922: Fnd_Msg_Pub.ADD;
1923: x_return_status := FND_API.G_RET_STS_ERROR;
1924: END IF;
1925: END IF;
1926: --amsriniv. Issue 105. End ER 6014567
1927:
1935:
1936: IF ( nvl(fnd_profile.value('AHL_SR_RESL_CODE_COMP'), 'N') = 'Y') THEN
1937:
1938: IF ( p_x_sr_task_rec.resolution_meaning IS NULL OR
1939: p_x_sr_task_rec.resolution_meaning = FND_API.G_MISS_CHAR) THEN
1940:
1941: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_REQ');
1942: Fnd_Msg_Pub.ADD;
1943: RAISE FND_API.G_EXC_ERROR;
1939: p_x_sr_task_rec.resolution_meaning = FND_API.G_MISS_CHAR) THEN
1940:
1941: Fnd_Message.SET_NAME('AHL','AHL_PRD_RESL_CODE_REQ');
1942: Fnd_Msg_Pub.ADD;
1943: RAISE FND_API.G_EXC_ERROR;
1944:
1945: END IF;
1946: END IF;
1947: -- Bug # 6447467 -- end
1958: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => p_x_sr_task_rec.originating_wo_id,
1959: p_ue_id => NULL,
1960: p_visit_id => NULL,
1961: p_item_instance_id => NULL);
1962: IF l_return_status = FND_API.G_TRUE THEN
1963: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_SR_UNTLCKD');
1964: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1965: FND_MSG_PUB.ADD;
1966: RAISE FND_API.G_EXC_ERROR;
1962: IF l_return_status = FND_API.G_TRUE THEN
1963: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_SR_UNTLCKD');
1964: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
1965: FND_MSG_PUB.ADD;
1966: RAISE FND_API.G_EXC_ERROR;
1967: END IF;
1968: -- rroy
1969: -- ACL Changes
1970:
1971: IF p_module_type IS NULL OR p_module_type <> 'SR_OA' THEN
1972:
1973: -- If contact id is null then return an
1974: -- error message.
1975: IF (p_x_sr_task_rec.contact_id is null or p_x_sr_task_rec.contact_id = FND_API.G_MISS_NUM) THEN
1976:
1977: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1978: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1979: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1977: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONTACT_REQ');
1978: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1979: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1980: Fnd_Msg_Pub.ADD;
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1982:
1983: END IF;
1984:
1985:
1985:
1986: -- If Contact type is null then return an error
1987: -- message.
1988: IF (p_x_sr_task_rec.contact_id is not null and
1989: (p_x_sr_task_rec.contact_type is null or p_x_sr_task_rec.contact_type = FND_API.G_MISS_CHAR)) THEN
1990:
1991: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1992: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1993: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1991: Fnd_Message.SET_NAME('AHL','AHL_PRD_CONT_TYPE_REQ');
1992: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1993: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
1994: Fnd_Msg_Pub.ADD;
1995: x_return_status := FND_API.G_RET_STS_ERROR;
1996:
1997: END IF;
1998:
1999:
1998:
1999:
2000: -- If status is null then return an
2001: -- error message.
2002: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM)and
2003: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
2004:
2005: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_REQ');
2006: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
1999:
2000: -- If status is null then return an
2001: -- error message.
2002: IF ((p_x_sr_task_rec.status_id is null or p_x_sr_task_rec.status_id = FND_API.G_MISS_NUM)and
2003: (p_x_sr_task_rec.status_name is null or p_x_sr_task_rec.status_name = FND_API.G_MISS_CHAR)) THEN
2004:
2005: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_REQ');
2006: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2007: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2005: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_STATUS_REQ');
2006: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2007: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2008: Fnd_Msg_Pub.ADD;
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010:
2011: END IF;
2012:
2013: END IF;
2014:
2015: -- If object version number is null then
2016: -- return an error message.
2017: IF (p_x_sr_task_rec.incident_object_version_number is null or
2018: p_x_sr_task_rec.incident_object_version_number = FND_API.G_MISS_NUM) THEN
2019:
2020: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_OBJ_VER_ID_REQ');
2021: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2022: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2020: Fnd_Message.SET_NAME('AHL','AHL_PRD_SR_OBJ_VER_ID_REQ');
2021: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2022: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2023: Fnd_Msg_Pub.ADD;
2024: x_return_status := FND_API.G_RET_STS_ERROR;
2025:
2026: END IF;
2027:
2028: -- If Incident number and incident id is null then
2027:
2028: -- If Incident number and incident id is null then
2029: -- return an error message.
2030: IF (p_x_sr_task_rec.incident_number is null or
2031: p_x_sr_task_rec.incident_number = FND_API.G_MISS_CHAR) and
2032: (p_x_sr_task_rec.incident_id is null or
2033: p_x_sr_task_rec.incident_id = FND_API.G_MISS_NUM)THEN
2034:
2035: Fnd_Message.SET_NAME('AHL','AHL_PRD_INCIDENT_VALUE_REQ');
2029: -- return an error message.
2030: IF (p_x_sr_task_rec.incident_number is null or
2031: p_x_sr_task_rec.incident_number = FND_API.G_MISS_CHAR) and
2032: (p_x_sr_task_rec.incident_id is null or
2033: p_x_sr_task_rec.incident_id = FND_API.G_MISS_NUM)THEN
2034:
2035: Fnd_Message.SET_NAME('AHL','AHL_PRD_INCIDENT_VALUE_REQ');
2036: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2037: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2035: Fnd_Message.SET_NAME('AHL','AHL_PRD_INCIDENT_VALUE_REQ');
2036: Fnd_Message.SET_TOKEN('WO_NAME',l_wo_name);
2037: Fnd_Message.SET_TOKEN('INSTANCE_NUM',l_instance_num);
2038: Fnd_Msg_Pub.ADD;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: END IF;
2041:
2042: END IF;
2043:
2041:
2042: END IF;
2043:
2044: IF (p_x_sr_task_rec.source_program_code is null or
2045: p_x_sr_task_rec.source_program_code = FND_API.G_MISS_CHAR) then
2046: p_x_sr_task_rec.source_program_code := 'AHL_ROUTINE';
2047: END IF;
2048:
2049: EXCEPTION
2046: p_x_sr_task_rec.source_program_code := 'AHL_ROUTINE';
2047: END IF;
2048:
2049: EXCEPTION
2050: WHEN FND_API.G_EXC_ERROR THEN
2051: x_return_status := FND_API.G_RET_STS_ERROR;
2052: END Default_and_validate_param;
2053:
2054:
2047: END IF;
2048:
2049: EXCEPTION
2050: WHEN FND_API.G_EXC_ERROR THEN
2051: x_return_status := FND_API.G_RET_STS_ERROR;
2052: END Default_and_validate_param;
2053:
2054:
2055: --------------------------------------------
2169: Fetch default_item_org_id INTO l_service_request_rec.inventory_item_id,l_service_request_rec.inventory_org_id;
2170: IF (default_item_org_id%NOTFOUND ) THEN
2171: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_ORG_ERROR');
2172: Fnd_Msg_Pub.ADD;
2173: x_return_status := FND_API.G_RET_STS_ERROR;
2174: END IF;
2175: CLOSE default_item_org_id;
2176:
2177: -- By default set to true. If type_name is valid, then reset flag to FALSE
2177: -- By default set to true. If type_name is valid, then reset flag to FALSE
2178: l_default_sr_flag := TRUE;
2179:
2180: -- if type_name is not null, validate it(fix for bug# 8265902)
2181: IF (p_x_sr_task_rec.type_name IS NOT NULL AND p_x_sr_task_rec.type_name <> FND_API.G_MISS_CHAR) THEN
2182: OPEN get_inc_type_id(p_x_sr_task_rec.type_name);
2183: FETCH get_inc_type_id INTO l_service_request_rec.type_id;
2184: IF (get_inc_type_id%FOUND) THEN
2185: l_service_request_rec.type_name := p_x_sr_task_rec.type_name;
2198:
2199: IF ( default_incident_type_id%NOTFOUND) THEN
2200: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_INCIDENT_ERROR');
2201: Fnd_Msg_Pub.ADD;
2202: x_return_status := FND_API.G_RET_STS_ERROR;
2203: END IF;
2204:
2205: IF (G_DEBUG = 'Y') THEN
2206: AHL_DEBUG_PUB.debug('Defaulting SR type:ID:' || l_service_request_rec.type_name || ':' || l_service_request_rec.type_id );
2237: -- Call to Service Request API
2238:
2239: CS_SERVICEREQUEST_PUB.Create_ServiceRequest(
2240: p_api_version => 3.0,
2241: p_init_msg_list => FND_API.G_TRUE,
2242: p_commit => FND_API.G_FALSE,
2243: x_return_status => x_return_status,
2244: x_msg_count => l_msg_count,
2245: x_msg_data => l_msg_data,
2238:
2239: CS_SERVICEREQUEST_PUB.Create_ServiceRequest(
2240: p_api_version => 3.0,
2241: p_init_msg_list => FND_API.G_TRUE,
2242: p_commit => FND_API.G_FALSE,
2243: x_return_status => x_return_status,
2244: x_msg_count => l_msg_count,
2245: x_msg_data => l_msg_data,
2246: p_resp_appl_id => NULL,
2262: x_group_owner => l_individual_owner,
2263: x_individual_type => l_individual_type
2264: );
2265:
2266: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2267: RAISE FND_API.G_EXC_ERROR;
2268: END IF;
2269:
2270: ---Changes by VSUNDARA FOR TRANSIT CHECK
2263: x_individual_type => l_individual_type
2264: );
2265:
2266: IF ( upper(x_return_status) <> FND_API.G_RET_STS_SUCCESS ) THEN
2267: RAISE FND_API.G_EXC_ERROR;
2268: END IF;
2269:
2270: ---Changes by VSUNDARA FOR TRANSIT CHECK
2271:
2318:
2319: WHEN OTHERS THEN
2320: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_ORIGINWO_UPD_FAILED');
2321: Fnd_Msg_Pub.ADD;
2322: x_return_status := FND_API.G_RET_STS_ERROR;
2323:
2324: END;
2325:
2326: END IF;
2425: IF (l_log_statement >= l_log_current_level) THEN
2426: FND_LOG.string(l_log_statement, l_full_name, 'invalid SR id for updating warranty entitlement record');
2427: END IF;
2428:
2429: x_return_status := FND_API.G_RET_STS_ERROR;
2430: FND_MESSAGE.set_name('AHL', 'AHL_UMP_INVALID_INCIDENT_ID');
2431: FND_MESSAGE.set_token('INCIDENT_ID', l_sr_task_rec.incident_id);
2432: FND_MSG_PUB.ADD;
2433: RETURN;
2478: IF (l_log_statement >= l_log_current_level) THEN
2479: FND_LOG.string(l_log_statement, l_full_name, 'invalid visit task id for updating warranty entitlement record');
2480: END IF;
2481:
2482: x_return_status := FND_API.G_RET_STS_ERROR;
2483: FND_MESSAGE.set_name('AHL', 'AHL_LTP_TASK_ID_INVALID');
2484: FND_MESSAGE.set_token('TASK_ID', l_visit_task_id);
2485: FND_MSG_PUB.ADD;
2486: RETURN;
2733:
2734: -- 1. Create Unit Effectivity hierarchy for the SR - MR hieararchy.
2735: AHL_UMP_SR_PVT.Process_SR_MR_Associations(
2736: p_api_version => 1.0,
2737: p_init_msg_list => FND_API.G_TRUE,-- verify the value to be passed here
2738: p_commit => FND_API.G_FALSE,
2739: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2740: x_return_status => x_return_status,
2741: x_msg_count => x_msg_count,
2734: -- 1. Create Unit Effectivity hierarchy for the SR - MR hieararchy.
2735: AHL_UMP_SR_PVT.Process_SR_MR_Associations(
2736: p_api_version => 1.0,
2737: p_init_msg_list => FND_API.G_TRUE,-- verify the value to be passed here
2738: p_commit => FND_API.G_FALSE,
2739: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2740: x_return_status => x_return_status,
2741: x_msg_count => x_msg_count,
2742: x_msg_data => x_msg_data,
2735: AHL_UMP_SR_PVT.Process_SR_MR_Associations(
2736: p_api_version => 1.0,
2737: p_init_msg_list => FND_API.G_TRUE,-- verify the value to be passed here
2738: p_commit => FND_API.G_FALSE,
2739: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2740: x_return_status => x_return_status,
2741: x_msg_count => x_msg_count,
2742: x_msg_data => x_msg_data,
2743: p_user_id => fnd_global.user_id,
2755: 'After calling AHL_UMP_SR_PVT.Process_SR_MR_Associations...Return status->'||x_return_status
2756: );
2757: END IF;
2758:
2759: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2760: RAISE FND_API.G_EXC_ERROR;
2761: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2756: );
2757: END IF;
2758:
2759: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2760: RAISE FND_API.G_EXC_ERROR;
2761: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2764:
2757: END IF;
2758:
2759: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2760: RAISE FND_API.G_EXC_ERROR;
2761: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2764:
2765: END IF;
2758:
2759: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2760: RAISE FND_API.G_EXC_ERROR;
2761: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2764:
2765: END IF;
2766: -- 2. Call VWP API to create task Hiearchy.
2776: OPEN c_get_ue_id(p_x_task_tbl(i).incident_id);
2777: FETCH c_get_ue_id into l_unit_effectivity_id ;
2778: IF c_get_ue_id%NotFound
2779: THEN
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR');
2782: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
2783: FND_MSG_PUB.ADD;
2784: RAISE FND_API.G_EXC_ERROR;
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR');
2782: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
2783: FND_MSG_PUB.ADD;
2784: RAISE FND_API.G_EXC_ERROR;
2785: END IF;
2786: CLOSE c_get_ue_id;
2787:
2788: OPEN c_visit_task_csr(p_x_task_tbl(i).Originating_wo_id);
2881: END IF;
2882:
2883: AHL_VWP_TASKS_PVT.CREATE_PUP_TASKS(
2884: p_api_version => 1.0,
2885: p_init_msg_list => Fnd_Api.G_TRUE,
2886: p_module_type => 'SR',
2887: p_x_task_tbl => l_create_task_tbl,
2888: x_return_status => x_return_status,
2889: x_msg_count => x_msg_count,
2897: 'After calling AHL_VWP_TASKS_PVT.CREATE_PUP_TASKS...Return status->'||x_return_status
2898: );
2899: END IF;
2900:
2901: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2898: );
2899: END IF;
2900:
2901: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906:
2899: END IF;
2900:
2901: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906:
2907: -- 3. Call VWP API to push tasks into production.
2900:
2901: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2902: RAISE FND_API.G_EXC_ERROR;
2903: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905: END IF;
2906:
2907: -- 3. Call VWP API to push tasks into production.
2908:
2925: THEN
2926:
2927: AHL_VWP_PROJ_PROD_PVT.Release_MR(
2928: p_api_version => 1.0,
2929: p_init_msg_list => Fnd_Api.G_FALSE,
2930: p_commit => Fnd_Api.G_FALSE,
2931: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2932: p_module_type => 'SR',
2933: p_visit_id => p_x_task_tbl(i).visit_id,
2926:
2927: AHL_VWP_PROJ_PROD_PVT.Release_MR(
2928: p_api_version => 1.0,
2929: p_init_msg_list => Fnd_Api.G_FALSE,
2930: p_commit => Fnd_Api.G_FALSE,
2931: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2932: p_module_type => 'SR',
2933: p_visit_id => p_x_task_tbl(i).visit_id,
2934: p_unit_effectivity_id => l_unit_effectivity_id,
2927: AHL_VWP_PROJ_PROD_PVT.Release_MR(
2928: p_api_version => 1.0,
2929: p_init_msg_list => Fnd_Api.G_FALSE,
2930: p_commit => Fnd_Api.G_FALSE,
2931: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2932: p_module_type => 'SR',
2933: p_visit_id => p_x_task_tbl(i).visit_id,
2934: p_unit_effectivity_id => l_unit_effectivity_id,
2935: p_release_flag => 'Y',
2944:
2945: ELSE
2946: AHL_VWP_PROJ_PROD_PVT.Release_MR(
2947: p_api_version => 1.0,
2948: p_init_msg_list => Fnd_Api.G_FALSE,
2949: p_commit => Fnd_Api.G_FALSE,
2950: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2951: p_module_type => 'SR',
2952: p_visit_id => p_x_task_tbl(i).visit_id,
2945: ELSE
2946: AHL_VWP_PROJ_PROD_PVT.Release_MR(
2947: p_api_version => 1.0,
2948: p_init_msg_list => Fnd_Api.G_FALSE,
2949: p_commit => Fnd_Api.G_FALSE,
2950: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2951: p_module_type => 'SR',
2952: p_visit_id => p_x_task_tbl(i).visit_id,
2953: p_unit_effectivity_id => l_unit_effectivity_id,
2946: AHL_VWP_PROJ_PROD_PVT.Release_MR(
2947: p_api_version => 1.0,
2948: p_init_msg_list => Fnd_Api.G_FALSE,
2949: p_commit => Fnd_Api.G_FALSE,
2950: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2951: p_module_type => 'SR',
2952: p_visit_id => p_x_task_tbl(i).visit_id,
2953: p_unit_effectivity_id => l_unit_effectivity_id,
2954: p_release_flag => 'N',
2971: 'After calling AHL_VWP_PROJ_PROD_PVT.Release_MR...Return status ->'||x_return_status
2972: );
2973: END IF;
2974:
2975: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2976: RAISE FND_API.G_EXC_ERROR;
2977: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979: END IF;
2972: );
2973: END IF;
2974:
2975: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2976: RAISE FND_API.G_EXC_ERROR;
2977: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979: END IF;
2980:
2973: END IF;
2974:
2975: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2976: RAISE FND_API.G_EXC_ERROR;
2977: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979: END IF;
2980:
2981: -- Added by jaramana on Oct 15
2974:
2975: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
2976: RAISE FND_API.G_EXC_ERROR;
2977: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2979: END IF;
2980:
2981: -- Added by jaramana on Oct 15
2982: IF ( upper(p_x_task_tbl(i).operation_type) = 'CREATE') THEN
3009: IF (l_ins_cntr > 0)
3010: THEN
3011: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
3012: p_api_version => 1.0,
3013: p_init_msg_list => Fnd_Api.G_FALSE,
3014: p_commit => Fnd_Api.G_FALSE,
3015: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3016: p_module_type => NULL,
3017: p_default => FND_API.G_TRUE,
3010: THEN
3011: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
3012: p_api_version => 1.0,
3013: p_init_msg_list => Fnd_Api.G_FALSE,
3014: p_commit => Fnd_Api.G_FALSE,
3015: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3016: p_module_type => NULL,
3017: p_default => FND_API.G_TRUE,
3018: p_move_item_instance_tbl => l_move_item_ins_tbl,
3011: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
3012: p_api_version => 1.0,
3013: p_init_msg_list => Fnd_Api.G_FALSE,
3014: p_commit => Fnd_Api.G_FALSE,
3015: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3016: p_module_type => NULL,
3017: p_default => FND_API.G_TRUE,
3018: p_move_item_instance_tbl => l_move_item_ins_tbl,
3019: x_return_status => x_return_status,
3013: p_init_msg_list => Fnd_Api.G_FALSE,
3014: p_commit => Fnd_Api.G_FALSE,
3015: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3016: p_module_type => NULL,
3017: p_default => FND_API.G_TRUE,
3018: p_move_item_instance_tbl => l_move_item_ins_tbl,
3019: x_return_status => x_return_status,
3020: x_msg_count => x_msg_count,
3021: x_msg_data => x_msg_data
3068: END IF;
3069:
3070: AHL_CMP_PVT.Move_To_InRepair_Locator(
3071: p_api_version => 1.0,
3072: p_init_msg_list => Fnd_Api.g_false,
3073: p_commit => Fnd_Api.g_false,
3074: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3075: p_wip_entity_id => l_rts_wip_id,
3076: p_instance_id => p_x_task_tbl(i).instance_id,
3069:
3070: AHL_CMP_PVT.Move_To_InRepair_Locator(
3071: p_api_version => 1.0,
3072: p_init_msg_list => Fnd_Api.g_false,
3073: p_commit => Fnd_Api.g_false,
3074: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3075: p_wip_entity_id => l_rts_wip_id,
3076: p_instance_id => p_x_task_tbl(i).instance_id,
3077: p_repair_batch_name => l_repair_batch_name,
3070: AHL_CMP_PVT.Move_To_InRepair_Locator(
3071: p_api_version => 1.0,
3072: p_init_msg_list => Fnd_Api.g_false,
3073: p_commit => Fnd_Api.g_false,
3074: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3075: p_wip_entity_id => l_rts_wip_id,
3076: p_instance_id => p_x_task_tbl(i).instance_id,
3077: p_repair_batch_name => l_repair_batch_name,
3078: x_return_status => l_return_status,
3085: L_DEBUG_KEY,
3086: 'After Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.' ||
3087: 'Return Status = ' || l_return_status );
3088: END IF;
3089: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3090: x_msg_count := l_msg_count;
3091: x_return_status := l_return_status;
3092: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3093: RAISE Fnd_Api.g_exc_error;
3088: END IF;
3089: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3090: x_msg_count := l_msg_count;
3091: x_return_status := l_return_status;
3092: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3093: RAISE Fnd_Api.g_exc_error;
3094: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3095: RAISE Fnd_Api.g_exc_unexpected_error;
3096: END IF;
3089: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3090: x_msg_count := l_msg_count;
3091: x_return_status := l_return_status;
3092: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3093: RAISE Fnd_Api.g_exc_error;
3094: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3095: RAISE Fnd_Api.g_exc_unexpected_error;
3096: END IF;
3097: ELSE
3090: x_msg_count := l_msg_count;
3091: x_return_status := l_return_status;
3092: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3093: RAISE Fnd_Api.g_exc_error;
3094: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3095: RAISE Fnd_Api.g_exc_unexpected_error;
3096: END IF;
3097: ELSE
3098: FND_MSG_PUB.Initialize;
3091: x_return_status := l_return_status;
3092: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3093: RAISE Fnd_Api.g_exc_error;
3094: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3095: RAISE Fnd_Api.g_exc_unexpected_error;
3096: END IF;
3097: ELSE
3098: FND_MSG_PUB.Initialize;
3099: END IF;
3214: l_org_task_id := null;
3215:
3216: -- Derive the request type
3217: IF (p_x_task_tbl(i).type_name is null or
3218: p_x_task_tbl(i).type_name = FND_API.G_MISS_CHAR)
3219: THEN
3220: Open GetRequestType(p_x_task_tbl(i).type_id);
3221: Fetch GetRequestType into l_request_type;
3222: Close GetRequestType;
3240: Then
3241: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_TASK_ID_NOT_UNIQUE');
3242: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3243: Fnd_Msg_Pub.ADD;
3244: RAISE FND_API.G_EXC_ERROR;
3245: ElsIf GetOrgTaskDet%NotFound
3246: Then
3247: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_WO_ID');
3248: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3246: Then
3247: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_WO_ID');
3248: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3249: Fnd_Msg_Pub.ADD;
3250: RAISE FND_API.G_EXC_ERROR;
3251: End if;
3252: Close GetOrgTaskDet;
3253:
3254: IF (l_debug_STMT >= l_debug_LEVEL) THEN
3260: END IF;
3261:
3262: -- If visit task name is null then default the values
3263: IF( p_x_task_tbl(i).visit_task_name is null or
3264: p_x_task_tbl(i).visit_task_name = FND_API.G_MISS_CHAR) THEN
3265: l_visit_task_name := substr(l_request_type,1,(78-length(p_x_task_tbl(i).incident_number)))||'-'
3266: ||p_x_task_tbl(i).incident_number;
3267:
3268: p_x_task_tbl(i).visit_task_name := l_visit_task_name;
3285: Then
3286: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INVALID_SR'); -- New Message needed to be added
3287: FND_MESSAGE.SET_TOKEN('WO_ID',p_x_task_tbl(i).originating_wo_id);
3288: Fnd_Msg_Pub.ADD;
3289: RAISE FND_API.G_EXC_ERROR;
3290: End if;
3291: Close getUnitEffectivity;
3292: l_create_job_task_tbl(i).unit_effectivity_id := l_unit_effectivity_id;
3293: --- END Changes by VSUNDARA for SR INTEGRATION
3330: END IF;
3331:
3332: AHL_VWP_PROJ_PROD_PVT.Create_job_tasks(
3333: p_api_version => 1.0,
3334: p_init_msg_list => FND_API.G_TRUE,
3335: p_commit => FND_API.G_FALSE,
3336: p_validation_level => Fnd_API.G_VALID_LEVEL_FULL,
3337: p_module_type => NULL,
3338: p_x_task_tbl => l_create_job_task_tbl,
3331:
3332: AHL_VWP_PROJ_PROD_PVT.Create_job_tasks(
3333: p_api_version => 1.0,
3334: p_init_msg_list => FND_API.G_TRUE,
3335: p_commit => FND_API.G_FALSE,
3336: p_validation_level => Fnd_API.G_VALID_LEVEL_FULL,
3337: p_module_type => NULL,
3338: p_x_task_tbl => l_create_job_task_tbl,
3339: x_return_status => x_return_status,
3332: AHL_VWP_PROJ_PROD_PVT.Create_job_tasks(
3333: p_api_version => 1.0,
3334: p_init_msg_list => FND_API.G_TRUE,
3335: p_commit => FND_API.G_FALSE,
3336: p_validation_level => Fnd_API.G_VALID_LEVEL_FULL,
3337: p_module_type => NULL,
3338: p_x_task_tbl => l_create_job_task_tbl,
3339: x_return_status => x_return_status,
3340: x_msg_count => l_msg_count,
3347: -- wo_id returned is null. Task is created.
3348:
3349: l_msg_count := FND_MSG_PUB.count_msg;
3350:
3351: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS OR l_msg_count > 0) THEN
3352:
3353: IF (l_debug_UEXP >= l_debug_LEVEL) THEN
3354: fnd_log.string
3355: (l_debug_UEXP,
3356: 'ahl.plsql.AHL_PRD_NONROUTINE_PVT.Create_task',
3357: 'Error ' || x_return_status ||' returned from AHL_VWP_PROJ_PROD_PVT.Create_job_tasks');
3358: END IF;
3359:
3360: RAISE FND_API.G_EXC_ERROR;
3361: END IF;
3362:
3363: END IF;
3364:
3362:
3363: END IF;
3364:
3365: /*
3366: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3367: x_return_status := FND_API.G_RET_STS_ERROR;
3368: END IF;
3369: */
3370:
3363: END IF;
3364:
3365: /*
3366: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
3367: x_return_status := FND_API.G_RET_STS_ERROR;
3368: END IF;
3369: */
3370:
3371: FOR i IN p_x_task_tbl.FIRST..p_x_task_tbl.LAST LOOP
3398:
3399: AHL_PRD_WORKORDER_PVT.Release_visit_jobs
3400: (
3401: p_api_version => 1.0,
3402: p_init_msg_list => FND_API.G_TRUE,
3403: p_commit => FND_API.G_FALSE,
3404: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3405: p_default => FND_API.G_FALSE,
3406: p_module_type => NULL,
3399: AHL_PRD_WORKORDER_PVT.Release_visit_jobs
3400: (
3401: p_api_version => 1.0,
3402: p_init_msg_list => FND_API.G_TRUE,
3403: p_commit => FND_API.G_FALSE,
3404: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3405: p_default => FND_API.G_FALSE,
3406: p_module_type => NULL,
3407: x_return_status => x_return_status,
3400: (
3401: p_api_version => 1.0,
3402: p_init_msg_list => FND_API.G_TRUE,
3403: p_commit => FND_API.G_FALSE,
3404: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3405: p_default => FND_API.G_FALSE,
3406: p_module_type => NULL,
3407: x_return_status => x_return_status,
3408: x_msg_count => l_msg_count,
3401: p_api_version => 1.0,
3402: p_init_msg_list => FND_API.G_TRUE,
3403: p_commit => FND_API.G_FALSE,
3404: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3405: p_default => FND_API.G_FALSE,
3406: p_module_type => NULL,
3407: x_return_status => x_return_status,
3408: x_msg_count => l_msg_count,
3409: x_msg_data => l_msg_data,
3411: p_unit_effectivity_id => NULL,
3412: p_workorder_id => l_create_job_task_tbl(i).workorder_id
3413: );
3414:
3415: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3416: IF (l_debug_UEXP >= l_debug_LEVEL) THEN
3417: fnd_log.string
3418: (l_debug_UEXP,
3419: 'ahl.plsql.AHL_PRD_NONROUTINE_PVT.Create_task',
3418: (l_debug_UEXP,
3419: 'ahl.plsql.AHL_PRD_NONROUTINE_PVT.Create_task',
3420: 'Error ' || x_return_status ||' returned from AHL_PRD_WORKORDER_PVT.Release_visit_jobs');
3421: END IF;
3422: RAISE FND_API.G_EXC_ERROR;
3423: END IF;
3424:
3425: END IF; -- p_x_task_tbl(i).WO_Release_flag = 'Y'
3426:
3434: 'At the end of PLSQL procedure');
3435: END IF;
3436:
3437: EXCEPTION
3438: WHEN FND_API.G_EXC_ERROR THEN
3439: x_return_status := FND_API.G_RET_STS_ERROR;
3440: END Create_task;
3441:
3442:
3435: END IF;
3436:
3437: EXCEPTION
3438: WHEN FND_API.G_EXC_ERROR THEN
3439: x_return_status := FND_API.G_RET_STS_ERROR;
3440: END Create_task;
3441:
3442:
3443: --------------------------------------------
3492:
3493: -- Call to Service Request API
3494: CS_SERVICEREQUEST_PUB.Update_ServiceRequest(
3495: p_api_version => 3.0,
3496: p_init_msg_list => FND_API.G_TRUE,
3497: p_commit => FND_API.G_FALSE,
3498: x_return_status => x_return_status,
3499: x_msg_count => l_msg_count,
3500: x_msg_data => l_msg_data,
3493: -- Call to Service Request API
3494: CS_SERVICEREQUEST_PUB.Update_ServiceRequest(
3495: p_api_version => 3.0,
3496: p_init_msg_list => FND_API.G_TRUE,
3497: p_commit => FND_API.G_FALSE,
3498: x_return_status => x_return_status,
3499: x_msg_count => l_msg_count,
3500: x_msg_data => l_msg_data,
3501: p_request_id => p_x_sr_task_rec.incident_id,