[Home] [Help]
13: IF (p_token IS NOT NULL) THEN
14: FND_MESSAGE.SET_TOKEN (p_token, p_token_value);
15: END IF;
16: FND_MSG_PUB.ADD;
17: RAISE FND_API.G_EXC_ERROR;
18: END Raise_Error;
19:
20: -- Procedure to Validate FailureSet Info passed in various modes
21: -- to Setup_FailureSet API
20: -- Procedure to Validate FailureSet Info passed in various modes
21: -- to Setup_FailureSet API
22: PROCEDURE Validate_FailureSet
23: (p_mode IN VARCHAR2,
24: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
25: p_failureset_rec IN EAM_FailureSets_PUB.eam_failureset_rec_type,
26: x_set_id OUT NOCOPY NUMBER)
27: IS
28: l_set_count NUMBER;
40:
41: IF (p_mode = 'C') THEN
42:
43: IF (p_failureset_rec.set_name IS NULL OR
44: p_failureset_rec.set_name = FND_API.G_MISS_CHAR) THEN
45: Raise_Error ('EAM_FAILURESET_INVALID', 'FAILURE_SET', NULL);
46: END IF;
47:
48: SELECT count(1)
85: END IF;
86:
87:
88: IF ((p_failureset_rec.effective_end_date IS NOT NULL AND l_old_eff_end_date IS NULL) OR
89: (p_failureset_rec.effective_end_date = FND_API.G_MISS_DATE AND l_old_eff_end_date IS NOT NULL) OR
90: (p_failureset_rec.effective_end_date IS NOT NULL AND l_old_eff_end_date IS NOT NULL AND
91: p_failureset_rec.effective_end_date <> l_old_eff_end_date)) THEN
92: BEGIN
93: SELECT efsa.inventory_item_id, msik.concatenated_segments
124: -- Procedure to Validate SetAssociation Info passed in various modes
125: -- to Setup_SetAssociation API
126: PROCEDURE Validate_SetAssociation
127: (p_mode IN VARCHAR2,
128: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
129: p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
130: x_set_id OUT NOCOPY NUMBER)
131: IS
132:
265: END Validate_SetAssociation;
266:
267: PROCEDURE Setup_FailureSet
268: (p_api_version IN NUMBER ,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
272: p_mode IN VARCHAR2 ,
273: p_failureset_rec IN EAM_FailureSets_PUB.eam_failureset_rec_type,
266:
267: PROCEDURE Setup_FailureSet
268: (p_api_version IN NUMBER ,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
272: p_mode IN VARCHAR2 ,
273: p_failureset_rec IN EAM_FailureSets_PUB.eam_failureset_rec_type,
274: x_return_status OUT NOCOPY VARCHAR2 ,
267: PROCEDURE Setup_FailureSet
268: (p_api_version IN NUMBER ,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
272: p_mode IN VARCHAR2 ,
273: p_failureset_rec IN EAM_FailureSets_PUB.eam_failureset_rec_type,
274: x_return_status OUT NOCOPY VARCHAR2 ,
275: x_msg_count OUT NOCOPY NUMBER ,
291: -- API savepoint
292: SAVEPOINT Setup_FailureSet_PVT;
293:
294: -- check for call compatibility.
295: IF NOT FND_API.Compatible_API_Call (l_api_version,
296: p_api_version,
297: l_api_name,
298: G_PKG_NAME )
299: THEN
296: p_api_version,
297: l_api_name,
298: G_PKG_NAME )
299: THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301: END IF;
302:
303: -- Initialize message list if p_init_msg_list is set to TRUE.
304: IF FND_API.to_Boolean( p_init_msg_list ) THEN
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301: END IF;
302:
303: -- Initialize message list if p_init_msg_list is set to TRUE.
304: IF FND_API.to_Boolean( p_init_msg_list ) THEN
305: FND_MSG_PUB.initialize;
306: END IF;
307:
308: -- Initialize API return status to success
305: FND_MSG_PUB.initialize;
306: END IF;
307:
308: -- Initialize API return status to success
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310:
311: -- Validate Failure Set Info passed
312: Validate_FailureSet(p_mode, p_validation_level, p_failureset_rec, l_failureset_id);
313:
340: OPEN lock_set;
341: UPDATE eam_failure_sets
342: SET description = decode(p_failureset_rec.description,
343: NULL, description,
344: FND_API.G_MISS_CHAR, NULL,
345: p_failureset_rec.description),
346: effective_end_date = decode(p_failureset_rec.effective_end_date,
347: NULL, effective_end_date,
348: FND_API.G_MISS_DATE, NULL,
344: FND_API.G_MISS_CHAR, NULL,
345: p_failureset_rec.description),
346: effective_end_date = decode(p_failureset_rec.effective_end_date,
347: NULL, effective_end_date,
348: FND_API.G_MISS_DATE, NULL,
349: p_failureset_rec.effective_end_date),
350: last_update_date = SYSDATE,
351: last_updated_by = fnd_global.user_id,
352: last_update_login = NULL
355: EXCEPTION
356: WHEN G_LOCKROW_EXCEPTION THEN
357: FND_MESSAGE.SET_NAME ('FND', 'FND_LOCK_RECORD_ERROR');
358: FND_MSG_PUB.ADD;
359: RAISE FND_API.G_EXC_ERROR;
360: END;
361: END IF;
362:
363: x_failureset_id := l_failureset_id;
361: END IF;
362:
363: x_failureset_id := l_failureset_id;
364: -- Standard check of p_commit.
365: IF FND_API.To_Boolean( p_commit ) THEN
366: COMMIT WORK;
367: END IF;
368:
369: -- call to get message count and if count is 1, get message info.
371: (p_count => x_msg_count,
372: p_data => x_msg_data
373: );
374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: ROLLBACK TO Setup_FailureSet_PVT;
377: x_return_status := FND_API.G_RET_STS_ERROR ;
378: FND_MSG_PUB.Count_And_Get
379: (p_count => x_msg_count ,
373: );
374: EXCEPTION
375: WHEN FND_API.G_EXC_ERROR THEN
376: ROLLBACK TO Setup_FailureSet_PVT;
377: x_return_status := FND_API.G_RET_STS_ERROR ;
378: FND_MSG_PUB.Count_And_Get
379: (p_count => x_msg_count ,
380: p_data => x_msg_data
381: );
378: FND_MSG_PUB.Count_And_Get
379: (p_count => x_msg_count ,
380: p_data => x_msg_data
381: );
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: ROLLBACK TO Setup_FailureSet_PVT;
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
385: FND_MSG_PUB.Count_And_Get
386: (p_count => x_msg_count,
380: p_data => x_msg_data
381: );
382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
383: ROLLBACK TO Setup_FailureSet_PVT;
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
385: FND_MSG_PUB.Count_And_Get
386: (p_count => x_msg_count,
387: p_data => x_msg_data
388: );
387: p_data => x_msg_data
388: );
389: WHEN OTHERS THEN
390: ROLLBACK TO Setup_FailureSet_PVT;
391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
392: IF FND_MSG_PUB.Check_Msg_Level
393: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
394: THEN
395: FND_MSG_PUB.Add_Exc_Msg
404: END Setup_FailureSet;
405:
406: PROCEDURE Setup_SetAssociation
407: (p_api_version IN NUMBER ,
408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
409: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
411: p_mode IN VARCHAR2 ,
412: p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
405:
406: PROCEDURE Setup_SetAssociation
407: (p_api_version IN NUMBER ,
408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
409: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
411: p_mode IN VARCHAR2 ,
412: p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
413: x_return_status OUT NOCOPY VARCHAR2 ,
406: PROCEDURE Setup_SetAssociation
407: (p_api_version IN NUMBER ,
408: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
409: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
410: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
411: p_mode IN VARCHAR2 ,
412: p_association_rec IN EAM_FailureSets_PUB.eam_set_association_rec_type,
413: x_return_status OUT NOCOPY VARCHAR2 ,
414: x_msg_count OUT NOCOPY NUMBER ,
436: -- API savepoint
437: SAVEPOINT Setup_SetAssociation_PVT;
438:
439: -- check for call compatibility.
440: IF NOT FND_API.Compatible_API_Call (l_api_version,
441: p_api_version,
442: l_api_name,
443: G_PKG_NAME )
444: THEN
441: p_api_version,
442: l_api_name,
443: G_PKG_NAME )
444: THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447:
448: -- Initialize message list if p_init_msg_list is set to TRUE.
449: IF FND_API.to_Boolean( p_init_msg_list ) THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447:
448: -- Initialize message list if p_init_msg_list is set to TRUE.
449: IF FND_API.to_Boolean( p_init_msg_list ) THEN
450: FND_MSG_PUB.initialize;
451: END IF;
452:
453: -- Initialize API return status to success
450: FND_MSG_PUB.initialize;
451: END IF;
452:
453: -- Initialize API return status to success
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455:
456: -- Validate Failure Set Association Info passed
457: Validate_SetAssociation(p_mode, p_validation_level, p_association_rec, l_set_id);
458:
534: EXCEPTION
535: WHEN G_LOCKROW_EXCEPTION THEN
536: FND_MESSAGE.SET_NAME ('FND', 'FND_LOCK_RECORD_ERROR');
537: FND_MSG_PUB.ADD;
538: RAISE FND_API.G_EXC_ERROR;
539: END;
540: END IF;
541:
542: -- Standard check of p_commit.
539: END;
540: END IF;
541:
542: -- Standard check of p_commit.
543: IF FND_API.To_Boolean( p_commit ) THEN
544: COMMIT WORK;
545: END IF;
546:
547: -- call to get message count and if count is 1, get message info.
549: (p_count => x_msg_count,
550: p_data => x_msg_data
551: );
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: ROLLBACK TO Setup_SetAssociation_PVT;
555: x_return_status := FND_API.G_RET_STS_ERROR ;
556: FND_MSG_PUB.Count_And_Get
557: (p_count => x_msg_count ,
551: );
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: ROLLBACK TO Setup_SetAssociation_PVT;
555: x_return_status := FND_API.G_RET_STS_ERROR ;
556: FND_MSG_PUB.Count_And_Get
557: (p_count => x_msg_count ,
558: p_data => x_msg_data
559: );
556: FND_MSG_PUB.Count_And_Get
557: (p_count => x_msg_count ,
558: p_data => x_msg_data
559: );
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: ROLLBACK TO Setup_SetAssociation_PVT;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
563: FND_MSG_PUB.Count_And_Get
564: (p_count => x_msg_count,
558: p_data => x_msg_data
559: );
560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
561: ROLLBACK TO Setup_SetAssociation_PVT;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
563: FND_MSG_PUB.Count_And_Get
564: (p_count => x_msg_count,
565: p_data => x_msg_data
566: );
565: p_data => x_msg_data
566: );
567: WHEN OTHERS THEN
568: ROLLBACK TO Setup_SetAssociation_PVT;
569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
570: IF FND_MSG_PUB.Check_Msg_Level
571: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
572: THEN
573: FND_MSG_PUB.Add_Exc_Msg
600: l_failureset_rec.set_id := p_set_id;
601: l_failureset_rec.stored_last_upd_date := p_stored_last_upd_date;
602:
603: IF (p_mode = 'U' AND p_effective_end_date IS NULL) THEN
604: l_failureset_rec.effective_end_date := FND_API.G_MISS_DATE;
605: ELSE
606: l_failureset_rec.effective_end_date := p_effective_end_date;
607: END IF;
608: IF (p_mode = 'U' AND p_description IS NULL) THEN
605: ELSE
606: l_failureset_rec.effective_end_date := p_effective_end_date;
607: END IF;
608: IF (p_mode = 'U' AND p_description IS NULL) THEN
609: l_failureset_rec.description := FND_API.G_MISS_CHAR;
610: ELSE
611: l_failureset_rec.description := p_description;
612: END IF;
613:
612: END IF;
613:
614: Setup_FailureSet
615: (p_api_version => 1.0,
616: p_init_msg_list => FND_API.G_TRUE,
617: p_commit => FND_API.G_FALSE,
618: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
619: p_mode => p_mode ,
620: p_failureset_rec => l_failureset_rec,
613:
614: Setup_FailureSet
615: (p_api_version => 1.0,
616: p_init_msg_list => FND_API.G_TRUE,
617: p_commit => FND_API.G_FALSE,
618: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
619: p_mode => p_mode ,
620: p_failureset_rec => l_failureset_rec,
621: x_return_status => x_return_status,
614: Setup_FailureSet
615: (p_api_version => 1.0,
616: p_init_msg_list => FND_API.G_TRUE,
617: p_commit => FND_API.G_FALSE,
618: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
619: p_mode => p_mode ,
620: p_failureset_rec => l_failureset_rec,
621: x_return_status => x_return_status,
622: x_msg_count => x_msg_count,
667: l_association_rec.last_update_login := p_last_update_login;
668:
669: Setup_SetAssociation
670: (p_api_version => 1.0,
671: p_init_msg_list => FND_API.G_TRUE,
672: p_commit => FND_API.G_FALSE,
673: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
674: p_mode => p_mode ,
675: p_association_rec => l_association_rec,
668:
669: Setup_SetAssociation
670: (p_api_version => 1.0,
671: p_init_msg_list => FND_API.G_TRUE,
672: p_commit => FND_API.G_FALSE,
673: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
674: p_mode => p_mode ,
675: p_association_rec => l_association_rec,
676: x_return_status => x_return_status,
669: Setup_SetAssociation
670: (p_api_version => 1.0,
671: p_init_msg_list => FND_API.G_TRUE,
672: p_commit => FND_API.G_FALSE,
673: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
674: p_mode => p_mode ,
675: p_association_rec => l_association_rec,
676: x_return_status => x_return_status,
677: x_msg_count => x_msg_count,
702: BEGIN
703: FND_MSG_PUB.initialize;
704:
705: -- Initialize API return status to success
706: x_return_status := FND_API.G_RET_STS_SUCCESS;
707: BEGIN
708: OPEN lock_association(p_set_id, p_item_id);
709: FETCH lock_association
710: INTO l_fcr, l_end_date, l_last_update_date;
712: CLOSE lock_association;
713: IF (p_last_update_date <> l_last_update_date) THEN
714: FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_CHANGED_ERROR');
715: FND_MSG_PUB.ADD;
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718: IF (l_rowcount = 0) THEN
719: FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_DELETED_ERROR');
720: FND_MSG_PUB.ADD;
717: END IF;
718: IF (l_rowcount = 0) THEN
719: FND_MESSAGE.SET_NAME ('FND', 'FND_RECORD_DELETED_ERROR');
720: FND_MSG_PUB.ADD;
721: RAISE FND_API.G_EXC_ERROR;
722: END IF;
723: EXCEPTION
724: WHEN G_LOCKROW_EXCEPTION THEN
725: FND_MESSAGE.SET_NAME ('FND', 'FND_LOCK_RECORD_ERROR');
723: EXCEPTION
724: WHEN G_LOCKROW_EXCEPTION THEN
725: FND_MESSAGE.SET_NAME ('FND', 'FND_LOCK_RECORD_ERROR');
726: FND_MSG_PUB.ADD;
727: RAISE FND_API.G_EXC_ERROR;
728: END;
729: EXCEPTION
730: WHEN FND_API.G_EXC_ERROR THEN
731: x_return_status := FND_API.G_RET_STS_ERROR ;
726: FND_MSG_PUB.ADD;
727: RAISE FND_API.G_EXC_ERROR;
728: END;
729: EXCEPTION
730: WHEN FND_API.G_EXC_ERROR THEN
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: WHEN OTHERS THEN
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
734: IF FND_MSG_PUB.Check_Msg_Level
727: RAISE FND_API.G_EXC_ERROR;
728: END;
729: EXCEPTION
730: WHEN FND_API.G_EXC_ERROR THEN
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: WHEN OTHERS THEN
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
734: IF FND_MSG_PUB.Check_Msg_Level
735: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
729: EXCEPTION
730: WHEN FND_API.G_EXC_ERROR THEN
731: x_return_status := FND_API.G_RET_STS_ERROR ;
732: WHEN OTHERS THEN
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
734: IF FND_MSG_PUB.Check_Msg_Level
735: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
736: THEN
737: FND_MSG_PUB.Add_Exc_Msg