[Home] [Help]
11: -- Pre-reqs : None.
12: -- Parameters :
13: -- IN : p_api_version IN NUMBER Required
14: -- p_init_msg_list IN VARCHAR2 Optional
15: -- Default = FND_API.G_FALSE
16: -- p_commit IN VARCHAR2 Optional
17: -- Default = FND_API.G_FALSE
18: -- p_eam_failure_entry_record IN
19: -- Eam_Process_Failure_Entry_PUB.eam_failure_entry_record_typ
13: -- IN : p_api_version IN NUMBER Required
14: -- p_init_msg_list IN VARCHAR2 Optional
15: -- Default = FND_API.G_FALSE
16: -- p_commit IN VARCHAR2 Optional
17: -- Default = FND_API.G_FALSE
18: -- p_eam_failure_entry_record IN
19: -- Eam_Process_Failure_Entry_PUB.eam_failure_entry_record_typ
20: -- p_eam_failure_codes_tbl IN
21: -- Eam_Process_Failure_Entry_PUB.eam_failure_codes_tbl_typ
32: ***************************************************************************/
33:
34: PROCEDURE Process_Failure_Entry
35: ( p_api_version IN NUMBER := 1.0
36: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
37: , p_commit IN VARCHAR2 := FND_API.G_FALSE
38: , p_eam_failure_entry_record IN Eam_Process_Failure_Entry_PUB.eam_failure_entry_record_typ
39: , p_eam_failure_codes_tbl IN Eam_Process_Failure_Entry_PUB.eam_failure_codes_tbl_typ
40: , x_return_status OUT NOCOPY VARCHAR2
33:
34: PROCEDURE Process_Failure_Entry
35: ( p_api_version IN NUMBER := 1.0
36: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
37: , p_commit IN VARCHAR2 := FND_API.G_FALSE
38: , p_eam_failure_entry_record IN Eam_Process_Failure_Entry_PUB.eam_failure_entry_record_typ
39: , p_eam_failure_codes_tbl IN Eam_Process_Failure_Entry_PUB.eam_failure_codes_tbl_typ
40: , x_return_status OUT NOCOPY VARCHAR2
41: , x_msg_count OUT NOCOPY NUMBER
90: -- API savepoint
91: SAVEPOINT Process_Failure_Entry_PUB;
92:
93: -- check for call compatibility.
94: IF NOT FND_API.Compatible_API_Call (l_api_version,
95: p_api_version,
96: l_api_name,
97: G_PKG_NAME )
98: THEN
95: p_api_version,
96: l_api_name,
97: G_PKG_NAME )
98: THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Initialize message list if p_init_msg_list is set to TRUE.
103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: -- Initialize message list if p_init_msg_list is set to TRUE.
103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
104: FND_MSG_PUB.initialize;
105: END IF;
106:
107: -- Initialize API return status to success
104: FND_MSG_PUB.initialize;
105: END IF;
106:
107: -- Initialize API return status to success
108: x_return_status := FND_API.G_RET_STS_SUCCESS;
109:
110: l_eam_failure_entry_record := p_eam_failure_entry_record;
111: l_eam_failure_codes_tbl := p_eam_failure_codes_tbl;
112:
120: THEN
121: /* Invalid Transaction Type */
122: FND_MESSAGE.SET_NAME ('EAM', 'EAM_FA_INVALID_TXN_TYPE');
123: FND_MSG_PUB.Add;
124: RAISE FND_API.G_EXC_ERROR;
125: ELSIF l_eam_failure_codes_tbl.count > 1
126: THEN
127: FND_MESSAGE.SET_NAME ('EAM', 'EAM_MULTIPLE_CHILD');
128: FND_MSG_PUB.Add;
125: ELSIF l_eam_failure_codes_tbl.count > 1
126: THEN
127: FND_MESSAGE.SET_NAME ('EAM', 'EAM_MULTIPLE_CHILD');
128: FND_MSG_PUB.Add;
129: RAISE FND_API.G_EXC_ERROR;
130: ELSIF ( l_eam_failure_codes_tbl.count = 1
131: AND l_eam_failure_codes_tbl(1).transaction_type <> Eam_Process_Failure_Entry_PUB.G_FE_CREATE
132: AND l_eam_failure_codes_tbl(1).transaction_type <> Eam_Process_Failure_Entry_PUB.G_FE_UPDATE
133: )
133: )
134: THEN
135: FND_MESSAGE.SET_NAME ('EAM', 'EAM_FA_INVALID_TXN_TYPE');
136: FND_MSG_PUB.Add;
137: RAISE FND_API.G_EXC_ERROR;
138: ELSIF ( l_eam_failure_codes_tbl.count = 1
139: AND l_eam_failure_codes_tbl(1).failure_id IS NOT NULL
140: AND l_eam_failure_codes_tbl(1).failure_id <> l_eam_failure_entry_record.failure_id
141: )
141: )
142: THEN
143: FND_MESSAGE.SET_NAME ('EAM', 'EAM_CHILD_NOT_SYNC');
144: FND_MSG_PUB.Add;
145: RAISE FND_API.G_EXC_ERROR;
146: END IF;
147:
148:
149: IF l_eam_failure_entry_record.transaction_type = EAM_Process_Failure_Entry_PUB.G_FE_CREATE THEN
165: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
166: , value => l_eam_failure_entry_record.source_name
167: );
168: FND_MSG_PUB.Add;
169: RAISE FND_API.G_EXC_ERROR;
170: END;
171: END IF;
172:
173: BEGIN
181: fnd_message.set_token( token => 'SOURCE_ID'
182: , value => l_eam_failure_entry_record.source_id
183: );
184: FND_MSG_PUB.Add;
185: RAISE FND_API.G_EXC_ERROR;
186: END;
187:
188: IF( l_eam_failure_entry_record.object_type IS NOT NULL
189: AND ( ( l_object_type IS NULL AND l_eam_failure_entry_record.object_type IS NOT NULL)
195: FND_MESSAGE.SET_TOKEN( token => 'OBJECT_TYPE'
196: , value => l_eam_failure_entry_record.object_type
197: );
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
200: ELSE
201: l_eam_failure_entry_record.object_type := l_object_type;
202: END IF;
203:
211: FND_MESSAGE.SET_TOKEN( token => 'ASSET_NUMBER'
212: , value => l_eam_failure_entry_record.object_id
213: );
214: FND_MSG_PUB.Add;
215: RAISE FND_API.G_EXC_ERROR;
216: ELSE
217: l_eam_failure_entry_record.object_id := l_object_id;
218: END IF;
219:
227: FND_MESSAGE.SET_TOKEN( token => 'MAINT_ORG_ID'
228: , value => l_eam_failure_entry_record.maint_organization_id
229: );
230: FND_MSG_PUB.Add;
231: RAISE FND_API.G_EXC_ERROR;
232: ELSE
233: l_eam_failure_entry_record.maint_organization_id := l_organization_id;
234: END IF;
235:
243: FND_MESSAGE.SET_TOKEN( token => 'CURR_ORG_ID'
244: , value => l_eam_failure_entry_record.current_organization_id
245: );
246: FND_MSG_PUB.Add;
247: RAISE FND_API.G_EXC_ERROR;
248: ELSE
249: l_eam_failure_entry_record.current_organization_id := l_organization_id;
250: END IF;
251:
268: FND_MESSAGE.SET_TOKEN( token => 'ASSET_NUMBER'
269: ,value => l_eam_failure_entry_record.object_id
270: );
271: FND_MSG_PUB.Add;
272: RAISE FND_API.G_EXC_ERROR;
273: END;
274:
275: IF (l_department_id IS NULL) THEN
276: l_department_id := l_msn_department_id;
286: FND_MESSAGE.SET_TOKEN( token => 'DEPARTMENT'
287: ,value => l_eam_failure_entry_record.department_id
288: );
289: FND_MSG_PUB.Add;
290: RAISE FND_API.G_EXC_ERROR;
291: ELSE
292: l_eam_failure_entry_record.department_id := l_department_id;
293: END IF;
294:
302: FND_MESSAGE.SET_TOKEN( token => 'AREA'
303: ,value => l_eam_failure_entry_record.area_id
304: );
305: FND_MSG_PUB.Add;
306: RAISE FND_API.G_EXC_ERROR;
307: ELSE
308: l_eam_failure_entry_record.area_id := l_eam_location_id;
309: END IF;
310:
346: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
347: , value => l_eam_failure_entry_record.source_id||l_eam_failure_entry_record.source_name
348: );
349: FND_MSG_PUB.Add;
350: RAISE FND_API.G_EXC_ERROR;
351: END;
352: ELSE
353: FND_MESSAGE.SET_NAME ('EAM', 'EAM_INVALID_FAILURE_ID');
354: FND_MSG_PUB.Add;
351: END;
352: ELSE
353: FND_MESSAGE.SET_NAME ('EAM', 'EAM_INVALID_FAILURE_ID');
354: FND_MSG_PUB.Add;
355: RAISE FND_API.G_EXC_ERROR;
356: END IF;
357: END IF;
358:
359:
369: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
370: , value => 'Failure Id :'||l_eam_failure_entry_record.failure_id
371: );
372: FND_MSG_PUB.Add;
373: RAISE FND_API.G_EXC_ERROR;
374: END;
375:
376: IF l_source_type = 1
377: THEN
377: THEN
378: /***************************************************************
379: Don't Validate the drived columns.
380: IF( ( l_eam_failure_entry_record.object_type IS NOT NULL
381: AND l_eam_failure_entry_record.object_type <> FND_API.G_MISS_NUM
382: AND ( l_object_type IS NULL
383: OR l_object_type <> l_eam_failure_entry_record.object_type
384: )
385: )
383: OR l_object_type <> l_eam_failure_entry_record.object_type
384: )
385: )
386: OR
387: ( l_eam_failure_entry_record.object_type = FND_API.G_MISS_NUM
388: AND l_object_type IS NOT NULL
389: )
390: )
391: THEN
393: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
394: , value => 'OBJECT_TYPE'
395: );
396: FND_MSG_PUB.Add;
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399:
400: IF( ( l_eam_failure_entry_record.object_id IS NOT NULL
401: AND l_eam_failure_entry_record.object_id <> FND_API.G_MISS_NUM
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399:
400: IF( ( l_eam_failure_entry_record.object_id IS NOT NULL
401: AND l_eam_failure_entry_record.object_id <> FND_API.G_MISS_NUM
402: AND ( l_object_id IS NULL
403: OR l_object_id <> l_eam_failure_entry_record.object_id
404: )
405: )
403: OR l_object_id <> l_eam_failure_entry_record.object_id
404: )
405: )
406: OR
407: ( l_eam_failure_entry_record.object_id = FND_API.G_MISS_NUM
408: AND l_object_id IS NOT NULL
409: )
410: )
411: THEN
413: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
414: , value => 'OBJECT_ID'
415: );
416: FND_MSG_PUB.Add;
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419:
420: IF( ( l_eam_failure_entry_record.source_type IS NOT NULL
421: AND l_eam_failure_entry_record.source_type <> FND_API.G_MISS_NUM
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419:
420: IF( ( l_eam_failure_entry_record.source_type IS NOT NULL
421: AND l_eam_failure_entry_record.source_type <> FND_API.G_MISS_NUM
422: AND ( l_source_type IS NULL
423: OR l_source_type <> l_eam_failure_entry_record.source_type
424: )
425: )
423: OR l_source_type <> l_eam_failure_entry_record.source_type
424: )
425: )
426: OR
427: ( l_eam_failure_entry_record.source_type = FND_API.G_MISS_NUM
428: AND l_source_type IS NOT NULL
429: )
430: )
431: THEN
433: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
434: , value => 'SOURCE_TYPE'
435: );
436: FND_MSG_PUB.Add;
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440: IF( ( l_eam_failure_entry_record.source_id IS NOT NULL
441: AND l_eam_failure_entry_record.source_id <> FND_API.G_MISS_NUM
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439:
440: IF( ( l_eam_failure_entry_record.source_id IS NOT NULL
441: AND l_eam_failure_entry_record.source_id <> FND_API.G_MISS_NUM
442: AND ( l_source_id IS NULL
443: OR l_source_id <> l_eam_failure_entry_record.source_id
444: )
445: )
443: OR l_source_id <> l_eam_failure_entry_record.source_id
444: )
445: )
446: OR
447: ( l_eam_failure_entry_record.source_id = FND_API.G_MISS_NUM
448: AND l_source_id IS NOT NULL
449: )
450: )
451: THEN
453: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
454: , value => 'SOURCE_ID'
455: );
456: FND_MSG_PUB.Add;
457: RAISE FND_API.G_EXC_ERROR;
458: ELSE
459: l_eam_failure_entry_record.source_id := l_source_id;
460: END IF;
461: ***************************************************************/
471: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
472: , value => l_eam_failure_entry_record.source_id
473: );
474: FND_MSG_PUB.Add;
475: RAISE FND_API.G_EXC_ERROR;
476: END;
477:
478: IF( ( l_eam_failure_entry_record.maint_organization_id IS NOT NULL
479: AND l_eam_failure_entry_record.maint_organization_id <> FND_API.G_MISS_NUM
475: RAISE FND_API.G_EXC_ERROR;
476: END;
477:
478: IF( ( l_eam_failure_entry_record.maint_organization_id IS NOT NULL
479: AND l_eam_failure_entry_record.maint_organization_id <> FND_API.G_MISS_NUM
480: AND ( l_organization_id IS NULL
481: OR l_organization_id <> l_eam_failure_entry_record.maint_organization_id
482: )
483: )
481: OR l_organization_id <> l_eam_failure_entry_record.maint_organization_id
482: )
483: )
484: OR
485: ( l_eam_failure_entry_record.maint_organization_id = FND_API.G_MISS_NUM
486: AND l_organization_id IS NOT NULL
487: )
488: )
489: THEN
491: FND_MESSAGE.SET_TOKEN( token => 'MAINT_ORG_ID'
492: , value => l_eam_failure_entry_record.maint_organization_id
493: );
494: FND_MSG_PUB.Add;
495: RAISE FND_API.G_EXC_ERROR;
496: ELSE
497: l_eam_failure_entry_record.maint_organization_id := l_organization_id;
498: END IF;
499:
497: l_eam_failure_entry_record.maint_organization_id := l_organization_id;
498: END IF;
499:
500: IF( ( l_eam_failure_entry_record.current_organization_id IS NOT NULL
501: AND l_eam_failure_entry_record.current_organization_id <> FND_API.G_MISS_NUM
502: AND ( l_current_organization_id IS NULL
503: OR l_current_organization_id <> l_eam_failure_entry_record.current_organization_id
504: )
505: )
503: OR l_current_organization_id <> l_eam_failure_entry_record.current_organization_id
504: )
505: )
506: OR
507: ( l_eam_failure_entry_record.current_organization_id = FND_API.G_MISS_NUM
508: AND l_current_organization_id IS NOT NULL
509: )
510: )
511: THEN
513: FND_MESSAGE.SET_TOKEN( token => 'CURR_ORG_ID'
514: , value => l_eam_failure_entry_record.current_organization_id
515: );
516: FND_MSG_PUB.Add;
517: RAISE FND_API.G_EXC_ERROR;
518: ELSE
519: l_eam_failure_entry_record.current_organization_id := l_current_organization_id;
520: END IF;
521:
539: FND_MESSAGE.SET_TOKEN( token => 'ASSET_NUMBER'
540: ,value => l_object_id
541: );
542: FND_MSG_PUB.Add;
543: RAISE FND_API.G_EXC_ERROR;
544: END;
545:
546: IF (l_department_id IS NULL) THEN
547: l_department_id := l_msn_department_id;
548: END IF;
549:
550:
551: IF( ( l_eam_failure_entry_record.department_id IS NOT NULL
552: AND l_eam_failure_entry_record.department_id <> FND_API.G_MISS_NUM
553: AND ( l_department_id IS NULL
554: OR l_department_id <> l_eam_failure_entry_record.department_id
555: )
556: )
554: OR l_department_id <> l_eam_failure_entry_record.department_id
555: )
556: )
557: OR
558: ( l_eam_failure_entry_record.department_id = FND_API.G_MISS_NUM
559: AND l_department_id IS NOT NULL
560: )
561: )
562: THEN
564: FND_MESSAGE.SET_TOKEN( token => 'DEPARTMENT'
565: ,value => l_eam_failure_entry_record.department_id
566: );
567: FND_MSG_PUB.Add;
568: RAISE FND_API.G_EXC_ERROR;
569: ELSE
570: l_eam_failure_entry_record.department_id := l_department_id;
571: END IF;
572:
571: END IF;
572:
573:
574: IF( ( l_eam_failure_entry_record.area_id IS NOT NULL
575: AND l_eam_failure_entry_record.area_id <> FND_API.G_MISS_NUM
576: AND ( l_eam_location_id IS NULL
577: OR l_eam_location_id <> l_eam_failure_entry_record.area_id
578: )
579: )
577: OR l_eam_location_id <> l_eam_failure_entry_record.area_id
578: )
579: )
580: OR
581: ( l_eam_failure_entry_record.area_id = FND_API.G_MISS_NUM
582: AND l_eam_location_id IS NOT NULL
583: )
584: )
585: THEN
587: FND_MESSAGE.SET_TOKEN( token => 'AREA'
588: ,value => l_eam_failure_entry_record.area_id
589: );
590: FND_MSG_PUB.Add;
591: RAISE FND_API.G_EXC_ERROR;
592: ELSE
593: l_eam_failure_entry_record.area_id := l_eam_location_id;
594: END IF;
595:
593: l_eam_failure_entry_record.area_id := l_eam_location_id;
594: END IF;
595:
596: ELSE
597: IF l_eam_failure_entry_record.maint_organization_id = FND_API.G_MISS_NUM THEN
598: l_eam_failure_entry_record.maint_organization_id := NULL;
599: ELSIF l_eam_failure_entry_record.maint_organization_id IS NULL THEN
600: l_eam_failure_entry_record.maint_organization_id := l_maint_organization_id;
601: END IF;
599: ELSIF l_eam_failure_entry_record.maint_organization_id IS NULL THEN
600: l_eam_failure_entry_record.maint_organization_id := l_maint_organization_id;
601: END IF;
602:
603: IF l_eam_failure_entry_record.current_organization_id = FND_API.G_MISS_NUM THEN
604: l_eam_failure_entry_record.current_organization_id := NULL;
605: ELSIF l_eam_failure_entry_record.current_organization_id IS NULL THEN
606: l_eam_failure_entry_record.current_organization_id := l_current_organization_id;
607: END IF;
605: ELSIF l_eam_failure_entry_record.current_organization_id IS NULL THEN
606: l_eam_failure_entry_record.current_organization_id := l_current_organization_id;
607: END IF;
608:
609: IF l_eam_failure_entry_record.department_id = FND_API.G_MISS_NUM THEN
610: l_eam_failure_entry_record.department_id := NULL;
611: ELSIF l_eam_failure_entry_record.department_id IS NULL THEN
612: l_eam_failure_entry_record.department_id := l_department_id;
613: END IF;
611: ELSIF l_eam_failure_entry_record.department_id IS NULL THEN
612: l_eam_failure_entry_record.department_id := l_department_id;
613: END IF;
614:
615: IF l_eam_failure_entry_record.area_id = FND_API.G_MISS_NUM THEN
616: l_eam_failure_entry_record.area_id := NULL;
617: ELSIF l_eam_failure_entry_record.area_id IS NULL THEN
618: l_eam_failure_entry_record.area_id := l_maint_organization_id;
619: END IF;
619: END IF;
620:
621: END IF;
622:
623: IF l_eam_failure_entry_record.failure_date = FND_API.G_MISS_DATE THEN
624: l_eam_failure_entry_record.failure_date := NULL;
625: ELSIF l_eam_failure_entry_record.failure_date IS NULL THEN
626: l_eam_failure_entry_record.failure_date := l_failure_date;
627: END IF;
648: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
649: , value => l_eam_failure_codes_tbl(i).failure_id
650: );
651: FND_MSG_PUB.Add;
652: RAISE FND_API.G_EXC_ERROR;
653: END;
654:
655: ELSE
656:
662: EXCEPTION
663: WHEN NO_DATA_FOUND THEN
664: FND_MESSAGE.SET_NAME ('EAM', 'EAM_INVALID_FAILURE_ENTRY_ID');
665: FND_MSG_PUB.Add;
666: RAISE FND_API.G_EXC_ERROR;
667: END;
668:
669: IF l_eam_failure_codes_tbl(i).failure_id <> l_eam_failure_entry_record.failure_id
670: THEN
669: IF l_eam_failure_codes_tbl(i).failure_id <> l_eam_failure_entry_record.failure_id
670: THEN
671: FND_MESSAGE.SET_NAME ('EAM', 'EAM_CHILD_NOT_SYNC');
672: FND_MSG_PUB.Add;
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675:
676: END IF;
677:
674: END IF;
675:
676: END IF;
677:
678: IF l_eam_failure_codes_tbl(i).failure_code = FND_API.G_MISS_CHAR THEN
679: l_eam_failure_codes_tbl(i).failure_code := NULL;
680: ELSIF l_eam_failure_codes_tbl(i).failure_code IS NULL THEN
681: l_eam_failure_codes_tbl(i).failure_code := l_failure_code;
682: END IF;
680: ELSIF l_eam_failure_codes_tbl(i).failure_code IS NULL THEN
681: l_eam_failure_codes_tbl(i).failure_code := l_failure_code;
682: END IF;
683:
684: IF l_eam_failure_codes_tbl(i).cause_code = FND_API.G_MISS_CHAR THEN
685: l_eam_failure_codes_tbl(i).cause_code := NULL;
686: ELSIF l_eam_failure_codes_tbl(i).cause_code IS NULL THEN
687: l_eam_failure_codes_tbl(i).cause_code := l_cause_code;
688: END IF;
686: ELSIF l_eam_failure_codes_tbl(i).cause_code IS NULL THEN
687: l_eam_failure_codes_tbl(i).cause_code := l_cause_code;
688: END IF;
689:
690: IF l_eam_failure_codes_tbl(i).resolution_code = FND_API.G_MISS_CHAR THEN
691: l_eam_failure_codes_tbl(i).resolution_code := NULL;
692: ELSIF l_eam_failure_codes_tbl(i).resolution_code IS NULL THEN
693: l_eam_failure_codes_tbl(i).resolution_code := l_resolution_code;
694: END IF;
692: ELSIF l_eam_failure_codes_tbl(i).resolution_code IS NULL THEN
693: l_eam_failure_codes_tbl(i).resolution_code := l_resolution_code;
694: END IF;
695:
696: IF l_eam_failure_codes_tbl(i).comments = FND_API.G_MISS_CHAR THEN
697: l_eam_failure_codes_tbl(i).comments := NULL;
698: ELSIF l_eam_failure_codes_tbl(i).comments IS NULL THEN
699: l_eam_failure_codes_tbl(i).comments := l_comments;
700: END IF;
727: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
728: , value => l_eam_failure_entry_record.source_name
729: );
730: FND_MSG_PUB.Add;
731: RAISE FND_API.G_EXC_ERROR;
732: END;
733:
734: /********************************
735: Following Validations for Complete Work Order are as per the 11510 design.
752: EXCEPTION
753: WHEN NO_DATA_FOUND THEN
754: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
755: FND_MSG_PUB.Add;
756: RAISE FND_API.G_EXC_ERROR;
757: END;
758: END IF;
759:
760: IF l_failure_code_required = 'Y'
766: )
767: THEN
768: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
769: FND_MSG_PUB.Add;
770: RAISE FND_API.G_EXC_ERROR;
771: END IF;
772: ELSE
773:
774: IF l_comments IS NOT NULL THEN
779: )
780: THEN
781: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
782: FND_MSG_PUB.Add;
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785: ELSE
786: IF NOT ( ( l_failure_date IS NOT NULL
787: AND l_failure_code IS NOT NULL
797: )
798: THEN
799: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
800: FND_MSG_PUB.Add;
801: RAISE FND_API.G_EXC_ERROR;
802: END IF;
803: END IF;
804:
805: END IF;
810: )
811: THEN
812: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
813: FND_MSG_PUB.Add;
814: RAISE FND_API.G_EXC_ERROR;
815: ELSIF l_eam_failure_codes_tbl.count = 0
816: THEN
817: BEGIN
818: SELECT comments
821: WHERE failure_id = l_eam_failure_entry_record.failure_id;
822: IF l_comments IS NOT NULL THEN
823: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
824: FND_MSG_PUB.Add;
825: RAISE FND_API.G_EXC_ERROR;
826: END IF;
827: EXCEPTION
828: WHEN NO_DATA_FOUND THEN
829: NULL;
849: );
850:
851: IF nvl(x_return_status,'Q') <> 'S' THEN
852: rollback to Process_Failure_Entry_PUB;
853: x_return_status := FND_API.G_RET_STS_ERROR;
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856:
857: x_eam_failure_entry_record := l_out_eam_failure_entry_record;
850:
851: IF nvl(x_return_status,'Q') <> 'S' THEN
852: rollback to Process_Failure_Entry_PUB;
853: x_return_status := FND_API.G_RET_STS_ERROR;
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856:
857: x_eam_failure_entry_record := l_out_eam_failure_entry_record;
858: x_eam_failure_codes_tbl := l_out_eam_failure_codes_tbl;
856:
857: x_eam_failure_entry_record := l_out_eam_failure_entry_record;
858: x_eam_failure_codes_tbl := l_out_eam_failure_codes_tbl;
859:
860: IF FND_API.to_Boolean( p_commit ) THEN
861: COMMIT;
862: END IF;
863:
864: EXCEPTION
862: END IF;
863:
864: EXCEPTION
865:
866: WHEN FND_API.G_EXC_ERROR THEN
867: ROLLBACK TO Process_Failure_Entry_PUB;
868: x_return_status := FND_API.G_RET_STS_ERROR ;
869: FND_MSG_PUB.Count_And_Get
870: (
864: EXCEPTION
865:
866: WHEN FND_API.G_EXC_ERROR THEN
867: ROLLBACK TO Process_Failure_Entry_PUB;
868: x_return_status := FND_API.G_RET_STS_ERROR ;
869: FND_MSG_PUB.Count_And_Get
870: (
871: p_count => x_msg_count ,
872: p_data => x_msg_data
870: (
871: p_count => x_msg_count ,
872: p_data => x_msg_data
873: );
874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
875: ROLLBACK TO Process_Failure_Entry_PUB;
876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
877: FND_MSG_PUB.Count_And_Get
878: (
872: p_data => x_msg_data
873: );
874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
875: ROLLBACK TO Process_Failure_Entry_PUB;
876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
877: FND_MSG_PUB.Count_And_Get
878: (
879: p_count => x_msg_count,
880: p_data => x_msg_data
880: p_data => x_msg_data
881: );
882: WHEN OTHERS THEN
883: ROLLBACK TO Process_Failure_Entry_PUB;
884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
885: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
886: THEN
887: FND_MSG_PUB.Add_Exc_Msg
888: (