[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:
271: FND_MESSAGE.SET_TOKEN( token => 'ASSET_NUMBER'
272: ,value => l_eam_failure_entry_record.object_id
273: );
274: FND_MSG_PUB.Add;
275: RAISE FND_API.G_EXC_ERROR;
276: END;
277:
278: IF (l_department_id IS NULL) THEN
279: l_department_id := l_msn_department_id;
289: FND_MESSAGE.SET_TOKEN( token => 'DEPARTMENT'
290: ,value => l_eam_failure_entry_record.department_id
291: );
292: FND_MSG_PUB.Add;
293: RAISE FND_API.G_EXC_ERROR;
294: ELSE
295: l_eam_failure_entry_record.department_id := l_department_id;
296: END IF;
297:
305: FND_MESSAGE.SET_TOKEN( token => 'AREA'
306: ,value => l_eam_failure_entry_record.area_id
307: );
308: FND_MSG_PUB.Add;
309: RAISE FND_API.G_EXC_ERROR;
310: ELSE
311: l_eam_failure_entry_record.area_id := l_eam_location_id;
312: END IF;
313:
349: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
350: , value => l_eam_failure_entry_record.source_id||l_eam_failure_entry_record.source_name
351: );
352: FND_MSG_PUB.Add;
353: RAISE FND_API.G_EXC_ERROR;
354: END;
355: ELSE
356: FND_MESSAGE.SET_NAME ('EAM', 'EAM_INVALID_FAILURE_ID');
357: FND_MSG_PUB.Add;
354: END;
355: ELSE
356: FND_MESSAGE.SET_NAME ('EAM', 'EAM_INVALID_FAILURE_ID');
357: FND_MSG_PUB.Add;
358: RAISE FND_API.G_EXC_ERROR;
359: END IF;
360: END IF;
361:
362:
372: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
373: , value => 'Failure Id :'||l_eam_failure_entry_record.failure_id
374: );
375: FND_MSG_PUB.Add;
376: RAISE FND_API.G_EXC_ERROR;
377: END;
378:
379: IF l_source_type = 1
380: THEN
380: THEN
381: /***************************************************************
382: Don't Validate the drived columns.
383: IF( ( l_eam_failure_entry_record.object_type IS NOT NULL
384: AND l_eam_failure_entry_record.object_type <> FND_API.G_MISS_NUM
385: AND ( l_object_type IS NULL
386: OR l_object_type <> l_eam_failure_entry_record.object_type
387: )
388: )
386: OR l_object_type <> l_eam_failure_entry_record.object_type
387: )
388: )
389: OR
390: ( l_eam_failure_entry_record.object_type = FND_API.G_MISS_NUM
391: AND l_object_type IS NOT NULL
392: )
393: )
394: THEN
396: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
397: , value => 'OBJECT_TYPE'
398: );
399: FND_MSG_PUB.Add;
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
402:
403: IF( ( l_eam_failure_entry_record.object_id IS NOT NULL
404: AND l_eam_failure_entry_record.object_id <> FND_API.G_MISS_NUM
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
402:
403: IF( ( l_eam_failure_entry_record.object_id IS NOT NULL
404: AND l_eam_failure_entry_record.object_id <> FND_API.G_MISS_NUM
405: AND ( l_object_id IS NULL
406: OR l_object_id <> l_eam_failure_entry_record.object_id
407: )
408: )
406: OR l_object_id <> l_eam_failure_entry_record.object_id
407: )
408: )
409: OR
410: ( l_eam_failure_entry_record.object_id = FND_API.G_MISS_NUM
411: AND l_object_id IS NOT NULL
412: )
413: )
414: THEN
416: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
417: , value => 'OBJECT_ID'
418: );
419: FND_MSG_PUB.Add;
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422:
423: IF( ( l_eam_failure_entry_record.source_type IS NOT NULL
424: AND l_eam_failure_entry_record.source_type <> FND_API.G_MISS_NUM
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422:
423: IF( ( l_eam_failure_entry_record.source_type IS NOT NULL
424: AND l_eam_failure_entry_record.source_type <> FND_API.G_MISS_NUM
425: AND ( l_source_type IS NULL
426: OR l_source_type <> l_eam_failure_entry_record.source_type
427: )
428: )
426: OR l_source_type <> l_eam_failure_entry_record.source_type
427: )
428: )
429: OR
430: ( l_eam_failure_entry_record.source_type = FND_API.G_MISS_NUM
431: AND l_source_type IS NOT NULL
432: )
433: )
434: THEN
436: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
437: , value => 'SOURCE_TYPE'
438: );
439: FND_MSG_PUB.Add;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442:
443: IF( ( l_eam_failure_entry_record.source_id IS NOT NULL
444: AND l_eam_failure_entry_record.source_id <> FND_API.G_MISS_NUM
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442:
443: IF( ( l_eam_failure_entry_record.source_id IS NOT NULL
444: AND l_eam_failure_entry_record.source_id <> FND_API.G_MISS_NUM
445: AND ( l_source_id IS NULL
446: OR l_source_id <> l_eam_failure_entry_record.source_id
447: )
448: )
446: OR l_source_id <> l_eam_failure_entry_record.source_id
447: )
448: )
449: OR
450: ( l_eam_failure_entry_record.source_id = FND_API.G_MISS_NUM
451: AND l_source_id IS NOT NULL
452: )
453: )
454: THEN
456: FND_MESSAGE.SET_TOKEN( token => 'ATTRIBUTE'
457: , value => 'SOURCE_ID'
458: );
459: FND_MSG_PUB.Add;
460: RAISE FND_API.G_EXC_ERROR;
461: ELSE
462: l_eam_failure_entry_record.source_id := l_source_id;
463: END IF;
464: ***************************************************************/
474: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
475: , value => l_eam_failure_entry_record.source_id
476: );
477: FND_MSG_PUB.Add;
478: RAISE FND_API.G_EXC_ERROR;
479: END;
480:
481: IF( ( l_eam_failure_entry_record.maint_organization_id IS NOT NULL
482: AND l_eam_failure_entry_record.maint_organization_id <> FND_API.G_MISS_NUM
478: RAISE FND_API.G_EXC_ERROR;
479: END;
480:
481: IF( ( l_eam_failure_entry_record.maint_organization_id IS NOT NULL
482: AND l_eam_failure_entry_record.maint_organization_id <> FND_API.G_MISS_NUM
483: AND ( l_organization_id IS NULL
484: OR l_organization_id <> l_eam_failure_entry_record.maint_organization_id
485: )
486: )
484: OR l_organization_id <> l_eam_failure_entry_record.maint_organization_id
485: )
486: )
487: OR
488: ( l_eam_failure_entry_record.maint_organization_id = FND_API.G_MISS_NUM
489: AND l_organization_id IS NOT NULL
490: )
491: )
492: THEN
494: FND_MESSAGE.SET_TOKEN( token => 'MAINT_ORG_ID'
495: , value => l_eam_failure_entry_record.maint_organization_id
496: );
497: FND_MSG_PUB.Add;
498: RAISE FND_API.G_EXC_ERROR;
499: ELSE
500: l_eam_failure_entry_record.maint_organization_id := l_organization_id;
501: END IF;
502:
500: l_eam_failure_entry_record.maint_organization_id := l_organization_id;
501: END IF;
502:
503: IF( ( l_eam_failure_entry_record.current_organization_id IS NOT NULL
504: AND l_eam_failure_entry_record.current_organization_id <> FND_API.G_MISS_NUM
505: AND ( l_current_organization_id IS NULL
506: OR l_current_organization_id <> l_eam_failure_entry_record.current_organization_id
507: )
508: )
506: OR l_current_organization_id <> l_eam_failure_entry_record.current_organization_id
507: )
508: )
509: OR
510: ( l_eam_failure_entry_record.current_organization_id = FND_API.G_MISS_NUM
511: AND l_current_organization_id IS NOT NULL
512: )
513: )
514: THEN
516: FND_MESSAGE.SET_TOKEN( token => 'CURR_ORG_ID'
517: , value => l_eam_failure_entry_record.current_organization_id
518: );
519: FND_MSG_PUB.Add;
520: RAISE FND_API.G_EXC_ERROR;
521: ELSE
522: l_eam_failure_entry_record.current_organization_id := l_current_organization_id;
523: END IF;
524:
545: FND_MESSAGE.SET_TOKEN( token => 'ASSET_NUMBER'
546: ,value => l_object_id
547: );
548: FND_MSG_PUB.Add;
549: RAISE FND_API.G_EXC_ERROR;
550: END;
551:
552: IF (l_department_id IS NULL) THEN
553: l_department_id := l_msn_department_id;
554: END IF;
555:
556:
557: IF( ( l_eam_failure_entry_record.department_id IS NOT NULL
558: AND l_eam_failure_entry_record.department_id <> FND_API.G_MISS_NUM
559: AND ( l_department_id IS NULL
560: OR l_department_id <> l_eam_failure_entry_record.department_id
561: )
562: )
560: OR l_department_id <> l_eam_failure_entry_record.department_id
561: )
562: )
563: OR
564: ( l_eam_failure_entry_record.department_id = FND_API.G_MISS_NUM
565: AND l_department_id IS NOT NULL
566: )
567: )
568: THEN
570: FND_MESSAGE.SET_TOKEN( token => 'DEPARTMENT'
571: ,value => l_eam_failure_entry_record.department_id
572: );
573: FND_MSG_PUB.Add;
574: RAISE FND_API.G_EXC_ERROR;
575: ELSE
576: l_eam_failure_entry_record.department_id := l_department_id;
577: END IF;
578:
577: END IF;
578:
579:
580: IF( ( l_eam_failure_entry_record.area_id IS NOT NULL
581: AND l_eam_failure_entry_record.area_id <> FND_API.G_MISS_NUM
582: AND ( l_eam_location_id IS NULL
583: OR l_eam_location_id <> l_eam_failure_entry_record.area_id
584: )
585: )
583: OR l_eam_location_id <> l_eam_failure_entry_record.area_id
584: )
585: )
586: OR
587: ( l_eam_failure_entry_record.area_id = FND_API.G_MISS_NUM
588: AND l_eam_location_id IS NOT NULL
589: )
590: )
591: THEN
593: FND_MESSAGE.SET_TOKEN( token => 'AREA'
594: ,value => l_eam_failure_entry_record.area_id
595: );
596: FND_MSG_PUB.Add;
597: RAISE FND_API.G_EXC_ERROR;
598: ELSE
599: l_eam_failure_entry_record.area_id := l_eam_location_id;
600: END IF;
601:
599: l_eam_failure_entry_record.area_id := l_eam_location_id;
600: END IF;
601:
602: ELSE
603: IF l_eam_failure_entry_record.maint_organization_id = FND_API.G_MISS_NUM THEN
604: l_eam_failure_entry_record.maint_organization_id := NULL;
605: ELSIF l_eam_failure_entry_record.maint_organization_id IS NULL THEN
606: l_eam_failure_entry_record.maint_organization_id := l_maint_organization_id;
607: END IF;
605: ELSIF l_eam_failure_entry_record.maint_organization_id IS NULL THEN
606: l_eam_failure_entry_record.maint_organization_id := l_maint_organization_id;
607: END IF;
608:
609: IF l_eam_failure_entry_record.current_organization_id = FND_API.G_MISS_NUM THEN
610: l_eam_failure_entry_record.current_organization_id := NULL;
611: ELSIF l_eam_failure_entry_record.current_organization_id IS NULL THEN
612: l_eam_failure_entry_record.current_organization_id := l_current_organization_id;
613: END IF;
611: ELSIF l_eam_failure_entry_record.current_organization_id IS NULL THEN
612: l_eam_failure_entry_record.current_organization_id := l_current_organization_id;
613: END IF;
614:
615: IF l_eam_failure_entry_record.department_id = FND_API.G_MISS_NUM THEN
616: l_eam_failure_entry_record.department_id := NULL;
617: ELSIF l_eam_failure_entry_record.department_id IS NULL THEN
618: l_eam_failure_entry_record.department_id := l_department_id;
619: END IF;
617: ELSIF l_eam_failure_entry_record.department_id IS NULL THEN
618: l_eam_failure_entry_record.department_id := l_department_id;
619: END IF;
620:
621: IF l_eam_failure_entry_record.area_id = FND_API.G_MISS_NUM THEN
622: l_eam_failure_entry_record.area_id := NULL;
623: ELSIF l_eam_failure_entry_record.area_id IS NULL THEN
624: l_eam_failure_entry_record.area_id := l_maint_organization_id;
625: END IF;
625: END IF;
626:
627: END IF;
628:
629: IF l_eam_failure_entry_record.failure_date = FND_API.G_MISS_DATE THEN
630: l_eam_failure_entry_record.failure_date := NULL;
631: ELSIF l_eam_failure_entry_record.failure_date IS NULL THEN
632: l_eam_failure_entry_record.failure_date := l_failure_date;
633: END IF;
654: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
655: , value => l_eam_failure_codes_tbl(i).failure_id
656: );
657: FND_MSG_PUB.Add;
658: RAISE FND_API.G_EXC_ERROR;
659: END;
660:
661: ELSE
662:
668: EXCEPTION
669: WHEN NO_DATA_FOUND THEN
670: FND_MESSAGE.SET_NAME ('EAM', 'EAM_INVALID_FAILURE_ENTRY_ID');
671: FND_MSG_PUB.Add;
672: RAISE FND_API.G_EXC_ERROR;
673: END;
674:
675: IF l_eam_failure_codes_tbl(i).failure_id <> l_eam_failure_entry_record.failure_id
676: THEN
675: IF l_eam_failure_codes_tbl(i).failure_id <> l_eam_failure_entry_record.failure_id
676: THEN
677: FND_MESSAGE.SET_NAME ('EAM', 'EAM_CHILD_NOT_SYNC');
678: FND_MSG_PUB.Add;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
681:
682: END IF;
683:
680: END IF;
681:
682: END IF;
683:
684: IF l_eam_failure_codes_tbl(i).failure_code = FND_API.G_MISS_CHAR THEN
685: l_eam_failure_codes_tbl(i).failure_code := NULL;
686: ELSIF l_eam_failure_codes_tbl(i).failure_code IS NULL THEN
687: l_eam_failure_codes_tbl(i).failure_code := l_failure_code;
688: END IF;
686: ELSIF l_eam_failure_codes_tbl(i).failure_code IS NULL THEN
687: l_eam_failure_codes_tbl(i).failure_code := l_failure_code;
688: END IF;
689:
690: IF l_eam_failure_codes_tbl(i).cause_code = FND_API.G_MISS_CHAR THEN
691: l_eam_failure_codes_tbl(i).cause_code := NULL;
692: ELSIF l_eam_failure_codes_tbl(i).cause_code IS NULL THEN
693: l_eam_failure_codes_tbl(i).cause_code := l_cause_code;
694: END IF;
692: ELSIF l_eam_failure_codes_tbl(i).cause_code IS NULL THEN
693: l_eam_failure_codes_tbl(i).cause_code := l_cause_code;
694: END IF;
695:
696: IF l_eam_failure_codes_tbl(i).resolution_code = FND_API.G_MISS_CHAR THEN
697: l_eam_failure_codes_tbl(i).resolution_code := NULL;
698: ELSIF l_eam_failure_codes_tbl(i).resolution_code IS NULL THEN
699: l_eam_failure_codes_tbl(i).resolution_code := l_resolution_code;
700: END IF;
698: ELSIF l_eam_failure_codes_tbl(i).resolution_code IS NULL THEN
699: l_eam_failure_codes_tbl(i).resolution_code := l_resolution_code;
700: END IF;
701:
702: IF l_eam_failure_codes_tbl(i).comments = FND_API.G_MISS_CHAR THEN
703: l_eam_failure_codes_tbl(i).comments := NULL;
704: ELSIF l_eam_failure_codes_tbl(i).comments IS NULL THEN
705: l_eam_failure_codes_tbl(i).comments := l_comments;
706: END IF;
733: FND_MESSAGE.SET_TOKEN( token => 'SOURCE_ID'
734: , value => l_eam_failure_entry_record.source_name
735: );
736: FND_MSG_PUB.Add;
737: RAISE FND_API.G_EXC_ERROR;
738: END;
739:
740: /********************************
741: Following Validations for Complete Work Order are as per the 11510 design.
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
761: FND_MSG_PUB.Add;
762: RAISE FND_API.G_EXC_ERROR;
763: END;
764: END IF;
765:
766: IF l_failure_code_required = 'Y'
772: )
773: THEN
774: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
775: FND_MSG_PUB.Add;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778: ELSE
779:
780: IF l_comments IS NOT NULL THEN
785: )
786: THEN
787: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
788: FND_MSG_PUB.Add;
789: RAISE FND_API.G_EXC_ERROR;
790: END IF;
791: ELSE
792: IF NOT ( ( l_failure_date IS NOT NULL
793: AND l_failure_code IS NOT NULL
803: )
804: THEN
805: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
806: FND_MSG_PUB.Add;
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809: END IF;
810:
811: END IF;
816: )
817: THEN
818: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
819: FND_MSG_PUB.Add;
820: RAISE FND_API.G_EXC_ERROR;
821: ELSIF l_eam_failure_codes_tbl.count = 0
822: THEN
823: BEGIN
824: SELECT comments
827: WHERE failure_id = l_eam_failure_entry_record.failure_id;
828: IF l_comments IS NOT NULL THEN
829: FND_MESSAGE.SET_NAME ('EAM', 'EAM_ENTER_FAILURE_INFO');
830: FND_MSG_PUB.Add;
831: RAISE FND_API.G_EXC_ERROR;
832: END IF;
833: EXCEPTION
834: WHEN NO_DATA_FOUND THEN
835: NULL;
855: );
856:
857: IF nvl(x_return_status,'Q') <> 'S' THEN
858: rollback to Process_Failure_Entry_PUB;
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: RAISE FND_API.G_EXC_ERROR;
861: END IF;
862:
863: x_eam_failure_entry_record := l_out_eam_failure_entry_record;
856:
857: IF nvl(x_return_status,'Q') <> 'S' THEN
858: rollback to Process_Failure_Entry_PUB;
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: RAISE FND_API.G_EXC_ERROR;
861: END IF;
862:
863: x_eam_failure_entry_record := l_out_eam_failure_entry_record;
864: x_eam_failure_codes_tbl := l_out_eam_failure_codes_tbl;
862:
863: x_eam_failure_entry_record := l_out_eam_failure_entry_record;
864: x_eam_failure_codes_tbl := l_out_eam_failure_codes_tbl;
865:
866: IF FND_API.to_Boolean( p_commit ) THEN
867: COMMIT;
868: END IF;
869:
870: EXCEPTION
868: END IF;
869:
870: EXCEPTION
871:
872: WHEN FND_API.G_EXC_ERROR THEN
873: ROLLBACK TO Process_Failure_Entry_PUB;
874: x_return_status := FND_API.G_RET_STS_ERROR ;
875: FND_MSG_PUB.Count_And_Get
876: (
870: EXCEPTION
871:
872: WHEN FND_API.G_EXC_ERROR THEN
873: ROLLBACK TO Process_Failure_Entry_PUB;
874: x_return_status := FND_API.G_RET_STS_ERROR ;
875: FND_MSG_PUB.Count_And_Get
876: (
877: p_count => x_msg_count ,
878: p_data => x_msg_data
876: (
877: p_count => x_msg_count ,
878: p_data => x_msg_data
879: );
880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881: ROLLBACK TO Process_Failure_Entry_PUB;
882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
883: FND_MSG_PUB.Count_And_Get
884: (
878: p_data => x_msg_data
879: );
880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881: ROLLBACK TO Process_Failure_Entry_PUB;
882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
883: FND_MSG_PUB.Count_And_Get
884: (
885: p_count => x_msg_count,
886: p_data => x_msg_data
886: p_data => x_msg_data
887: );
888: WHEN OTHERS THEN
889: ROLLBACK TO Process_Failure_Entry_PUB;
890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
891: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
892: THEN
893: FND_MSG_PUB.Add_Exc_Msg
894: (