[Home] [Help]
22: ***************************************************************************/
23:
24: G_Pkg_Name VARCHAR2(30) := 'EAM_WO_VALIDATE_PVT';
25:
26: g_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
27: g_dummy NUMBER;
28: g_obj_source VARCHAR2(30) := EAM_CONSTANTS.G_OBJ_SOURCE;
29: g_obj_type VARCHAR2(30) := EAM_CONSTANTS.G_OBJ_TYPE;
30: g_act_source VARCHAR2(30) := EAM_CONSTANTS.G_ACT_SOURCE;
53:
54: PROCEDURE Check_Existence
55: ( p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
56: , x_old_eam_wo_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
57: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
58: , x_return_status OUT NOCOPY VARCHAR2
59: )
60: IS
61: l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
57: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
58: , x_return_status OUT NOCOPY VARCHAR2
59: )
60: IS
61: l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
62: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
63: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
64: l_return_status VARCHAR2(1);
65: BEGIN
58: , x_return_status OUT NOCOPY VARCHAR2
59: )
60: IS
61: l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
62: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
63: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
64: l_return_status VARCHAR2(1);
65: BEGIN
66:
59: )
60: IS
61: l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
62: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
63: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
64: l_return_status VARCHAR2(1);
65: BEGIN
66:
67: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quering Work Order'); END IF;
63: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
64: l_return_status VARCHAR2(1);
65: BEGIN
66:
67: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quering Work Order'); END IF;
68:
69: EAM_WO_UTILITY_PVT.Query_Row
70: ( p_wip_entity_id => p_eam_wo_rec.wip_entity_id
71: , p_organization_id => p_eam_wo_rec.organization_id
72: , x_eam_wo_rec => x_old_eam_wo_rec
73: , x_Return_status => l_return_status
74: );
75:
76: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Query Row Returned with : ' || l_return_status); END IF;
77:
78: IF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_FOUND AND
79: p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
80: THEN
81: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
82: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
83:
84: l_out_mesg_token_tbl := l_mesg_token_tbl;
85: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
86: ( x_Mesg_token_tbl => l_out_Mesg_Token_Tbl
87: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
88: , p_message_name => 'EAM_WO_ALREADY_EXISTS'
89: , p_token_tbl => l_token_tbl
99: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
100: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
101:
102: l_out_mesg_token_tbl := l_mesg_token_tbl;
103: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
104: ( x_Mesg_token_tbl => l_out_Mesg_Token_Tbl
105: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
106: , p_message_name => 'EAM_WO_DOESNOT_EXISTS'
107: , p_token_tbl => l_token_tbl
112:
113: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
114: THEN
115: l_out_mesg_token_tbl := l_mesg_token_tbl;
116: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
117: ( x_Mesg_token_tbl => l_out_Mesg_Token_Tbl
118: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
119: , p_message_name => NULL
120: , p_message_text => 'Unexpected error while existence verification of ' || 'EAM WO '|| p_eam_wo_rec.wip_entity_name , p_token_tbl => l_token_tbl
153: **********************************************************************/
154:
155: PROCEDURE Check_Attributes_b4_Defaulting
156: ( p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
157: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
158: , x_return_status OUT NOCOPY VARCHAR2
159: )
160: IS
161: l_err_text VARCHAR2(2000) := NULL;
158: , x_return_status OUT NOCOPY VARCHAR2
159: )
160: IS
161: l_err_text VARCHAR2(2000) := NULL;
162: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
163: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
164: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
165: l_old_eam_wo_moid NUMBER := 0;
166:
159: )
160: IS
161: l_err_text VARCHAR2(2000) := NULL;
162: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
163: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
164: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
165: l_old_eam_wo_moid NUMBER := 0;
166:
167: BEGIN
160: IS
161: l_err_text VARCHAR2(2000) := NULL;
162: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
163: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
164: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
165: l_old_eam_wo_moid NUMBER := 0;
166:
167: BEGIN
168:
167: BEGIN
168:
169: x_return_status := FND_API.G_RET_STS_SUCCESS;
170:
171: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Within WO Check Attributes b4 Defaulting . . . '); END IF;
172:
173:
174: -- organization_id
175:
172:
173:
174: -- organization_id
175:
176: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id . . . '); END IF;
177:
178: declare
179: l_disable_date date;
180: begin
201: l_token_tbl(1).token_name := 'Organization Id';
202: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
203:
204: l_out_mesg_token_tbl := l_mesg_token_tbl;
205: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
206: ( p_message_name => 'EAM_WO_ORGANIZATION_ID'
207: , p_token_tbl => l_token_tbl
208: , p_mesg_token_tbl => l_mesg_token_tbl
209: , x_mesg_token_tbl => l_out_mesg_token_tbl
218:
219:
220: -- organization_id (EAM enabled)
221:
222: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . '); END IF;
223:
224: begin
225:
226: select 1
238: l_token_tbl(1).token_name := 'Organization Id';
239: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
240:
241: l_out_mesg_token_tbl := l_mesg_token_tbl;
242: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
243: ( p_message_name => 'EAM_WO_ORG_EAM_ENABLED'
244: , p_token_tbl => l_token_tbl
245: , p_mesg_token_tbl => l_mesg_token_tbl
246: , x_mesg_token_tbl => l_out_mesg_token_tbl
254: end;
255:
256: -- maintenance_object_source
257:
258: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_source . . . '); END IF;
259:
260: begin
261:
262: if p_eam_wo_rec.maintenance_object_source is null or
277: l_token_tbl(1).token_name := 'Object Source';
278: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_source;
279:
280: l_out_mesg_token_tbl := l_mesg_token_tbl;
281: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
282: ( p_message_name => 'EAM_WO_MAINT_OBJ_SRC_REQUIRED'
283: , p_token_tbl => l_token_tbl
284: , p_mesg_token_tbl => l_mesg_token_tbl
285: , x_mesg_token_tbl => l_out_mesg_token_tbl
295: l_token_tbl(1).token_name := 'Object Source';
296: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_source;
297:
298: l_out_mesg_token_tbl := l_mesg_token_tbl;
299: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
300: ( p_message_name => 'EAM_WO_MAINT_OBJ_SOURCE'
301: , p_token_tbl => l_token_tbl
302: , p_mesg_token_tbl => l_mesg_token_tbl
303: , x_mesg_token_tbl => l_out_mesg_token_tbl
311: end;
312:
313: -- maintenance_object_type
314:
315: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_type . . . '); END IF;
316:
317: begin
318:
319: if p_eam_wo_rec.maintenance_object_type is null or
335: l_token_tbl(1).token_name := 'Object Type';
336: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_type;
337:
338: l_out_mesg_token_tbl := l_mesg_token_tbl;
339: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
340: ( p_message_name => 'EAM_WO_MAINT_OBJ_TYPE_REQUIRED'
341: , p_token_tbl => l_token_tbl
342: , p_mesg_token_tbl => l_mesg_token_tbl
343: , x_mesg_token_tbl => l_out_mesg_token_tbl
353: l_token_tbl(1).token_name := 'Object Type';
354: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_type;
355:
356: l_out_mesg_token_tbl := l_mesg_token_tbl;
357: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
358: ( p_message_name => 'EAM_WO_MAINT_OBJ_TYPE'
359: , p_token_tbl => l_token_tbl
360: , p_mesg_token_tbl => l_mesg_token_tbl
361: , x_mesg_token_tbl => l_out_mesg_token_tbl
369: end;
370:
371: -- maintenance_object_id
372:
373: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_id . . . '); END IF;
374:
375: begin
376:
377: if p_eam_wo_rec.maintenance_object_id is null or
427: l_token_tbl(1).token_name := 'Object Id';
428: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_id;
429:
430: l_out_mesg_token_tbl := l_mesg_token_tbl;
431: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
432: ( p_message_name => 'EAM_WO_MAINT_OBJ_ID_REQUIRED'
433: , p_token_tbl => l_token_tbl
434: , p_mesg_token_tbl => l_mesg_token_tbl
435: , x_mesg_token_tbl => l_out_mesg_token_tbl
445: l_token_tbl(1).token_name := 'Object Id';
446: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_id;
447:
448: l_out_mesg_token_tbl := l_mesg_token_tbl;
449: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
450: ( p_message_name => 'EAM_WO_MAINT_OBJ_ID'
451: , p_token_tbl => l_token_tbl
452: , p_mesg_token_tbl => l_mesg_token_tbl
453: , x_mesg_token_tbl => l_out_mesg_token_tbl
461: end;
462:
463: -- rebuild_item_id
464:
465: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_item_id . . . '); END IF;
466:
467: begin
468:
469: -- for CMRO work orders, the rebuild_item_id cannot be null.
482: l_token_tbl(1).token_name := 'Wip Id';
483: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
484:
485: l_out_mesg_token_tbl := l_mesg_token_tbl;
486: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
487: ( p_message_name => 'EAM_WO_REBUILD_ITEM_REQUIRED'
488: , p_token_tbl => l_token_tbl
489: , p_mesg_token_tbl => l_mesg_token_tbl
490: , x_mesg_token_tbl => l_out_mesg_token_tbl
498: end;
499:
500: -- rebuild_item_id and asset_group_id
501:
502: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_item_id and asset_group_id. . . '); END IF;
503:
504: begin
505:
506: -- rebuild_item_id and asset_group_id cannot both be null.
518: l_token_tbl(1).token_name := 'Wip Id';
519: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
520:
521: l_out_mesg_token_tbl := l_mesg_token_tbl;
522: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
523: ( p_message_name => 'EAM_WO_AG_RB_REQUIRED'
524: , p_token_tbl => l_token_tbl
525: , p_mesg_token_tbl => l_mesg_token_tbl
526: , x_mesg_token_tbl => l_out_mesg_token_tbl
535:
536:
537: -- wip_entity_id
538:
539: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_id . . . '); END IF;
540:
541: begin
542:
543: if p_eam_wo_rec.wip_entity_id is not null and
554: l_token_tbl(1).token_name := 'Wip Entity Id';
555: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
556:
557: l_out_mesg_token_tbl := l_mesg_token_tbl;
558: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
559: ( p_message_name => 'EAM_WO_WIP_ENTITY_ID'
560: , p_token_tbl => l_token_tbl
561: , p_mesg_token_tbl => l_mesg_token_tbl
562: , x_mesg_token_tbl => l_out_mesg_token_tbl
576: l_token_tbl(1).token_name := 'Validation (Check Attributes b4 defaulting)';
577: l_token_tbl(1).token_value := substrb(SQLERRM,1,200);
578:
579: l_out_mesg_token_tbl := l_mesg_token_tbl;
580: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
581: ( p_message_name => NULL
582: , p_token_tbl => l_token_tbl
583: , p_mesg_token_tbl => l_mesg_token_tbl
584: , x_mesg_token_tbl => l_out_mesg_token_tbl
606: PROCEDURE Check_Attributes
607: ( p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
608: , p_old_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
609: , x_return_status OUT NOCOPY VARCHAR2
610: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
611: )
612: IS
613: l_err_text VARCHAR2(2000) := NULL;
614: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
610: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
611: )
612: IS
613: l_err_text VARCHAR2(2000) := NULL;
614: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
615: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
616: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
617: l_mo_err_flag VARCHAR2(1) ;
618: l_trans_exist VARCHAR2(1);
611: )
612: IS
613: l_err_text VARCHAR2(2000) := NULL;
614: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
615: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
616: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
617: l_mo_err_flag VARCHAR2(1) ;
618: l_trans_exist VARCHAR2(1);
619:
612: IS
613: l_err_text VARCHAR2(2000) := NULL;
614: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
615: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
616: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
617: l_mo_err_flag VARCHAR2(1) ;
618: l_trans_exist VARCHAR2(1);
619:
620: l_rebuild_status NUMBER;
626: BEGIN
627: l_mo_err_flag:= '';
628: x_return_status := FND_API.G_RET_STS_SUCCESS;
629:
630: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Within WO Check Attributes . . . '); END IF;
631:
632:
633: -- organization_id
634:
631:
632:
633: -- organization_id
634:
635: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id . . . '); END IF;
636:
637: declare
638: l_disable_date date;
639: begin
660: l_token_tbl(1).token_name := 'Organization Id';
661: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
662:
663: l_out_mesg_token_tbl := l_mesg_token_tbl;
664: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
665: ( p_message_name => 'EAM_WO_ORGANIZATION_ID'
666: , p_token_tbl => l_token_tbl
667: , p_mesg_token_tbl => l_mesg_token_tbl
668: , x_mesg_token_tbl => l_out_mesg_token_tbl
678: l_token_tbl(1).token_name := 'Organization Id';
679: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
680:
681: l_out_mesg_token_tbl := l_mesg_token_tbl;
682: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
683: ( p_message_name => 'EAM_WO_ORGANIZATION_ID'
684: , p_token_tbl => l_token_tbl
685: , p_mesg_token_tbl => l_mesg_token_tbl
686: , x_mesg_token_tbl => l_out_mesg_token_tbl
700:
701:
702: -- organization_id (EAM enabled)
703:
704: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . '); END IF;
705:
706: begin
707:
708: select 1
720: l_token_tbl(1).token_name := 'Organization Id';
721: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
722:
723: l_out_mesg_token_tbl := l_mesg_token_tbl;
724: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
725: ( p_message_name => 'EAM_WO_ORG_EAM_ENABLED'
726: , p_token_tbl => l_token_tbl
727: , p_mesg_token_tbl => l_mesg_token_tbl
728: , x_mesg_token_tbl => l_out_mesg_token_tbl
737:
738:
739: -- maintenance_object_type
740:
741: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_type . . . '); END IF;
742:
743: begin
744:
745: if (p_eam_wo_rec.maintenance_object_type is not null) then
759: l_token_tbl(1).token_name := 'Maintenance Object Type';
760: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_type;
761:
762: l_out_mesg_token_tbl := l_mesg_token_tbl;
763: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
764: ( p_message_name => 'EAM_WO_MAINT_OBJECT_TYPE'
765: , p_token_tbl => l_token_tbl
766: , p_mesg_token_tbl => l_mesg_token_tbl
767: , x_mesg_token_tbl => l_out_mesg_token_tbl
776:
777:
778: -- object_source_id
779:
780: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_id . . . '); END IF;
781:
782: begin
783:
784: if (p_eam_wo_rec.maintenance_object_type is not null) then
826: l_token_tbl(1).token_name := 'Maintenance Object Id';
827: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_id;
828:
829: l_out_mesg_token_tbl := l_mesg_token_tbl;
830: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
831: ( p_message_name => 'EAM_WO_MAINT_OBJECT_ID'
832: , p_token_tbl => l_token_tbl
833: , p_mesg_token_tbl => l_mesg_token_tbl
834: , x_mesg_token_tbl => l_out_mesg_token_tbl
843:
844:
845:
846: -- maintenance object
847: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance object . . . '); END IF;
848:
849: begin
850:
851: if (p_eam_wo_rec.asset_group_id is not null) and (p_eam_wo_rec.rebuild_item_id is not null) then
862: l_token_tbl(1).token_name := 'Asset Group';
863: l_token_tbl(1).token_value := p_eam_wo_rec.asset_group_id;
864:
865: l_out_mesg_token_tbl := l_mesg_token_tbl;
866: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
867: ( p_message_name => 'EAM_WO_AG_RB_DUPLICATE'
868: , p_token_tbl => l_token_tbl
869: , p_mesg_token_tbl => l_mesg_token_tbl
870: , x_mesg_token_tbl => l_out_mesg_token_tbl
877:
878: end;
879:
880: -- asset_group_id
881: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_group_id . . . '); END IF;
882:
883: begin
884:
885: if (p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE and p_eam_wo_rec.asset_group_id is not null) then
910: l_token_tbl(1).token_name := 'Asset Group';
911: l_token_tbl(1).token_value := p_eam_wo_rec.asset_group_id;
912:
913: l_out_mesg_token_tbl := l_mesg_token_tbl;
914: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
915: ( p_message_name => 'EAM_WO_ASSET_GROUP'
916: , p_token_tbl => l_token_tbl
917: , p_mesg_token_tbl => l_mesg_token_tbl
918: , x_mesg_token_tbl => l_out_mesg_token_tbl
925:
926: end;
927:
928: -- asset_number
929: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_number . . . '); END IF;
930:
931: begin
932:
933: if (p_eam_wo_rec.transaction_type in (EAM_PROCESS_WO_PVT.G_OPR_CREATE,EAM_PROCESS_WO_PVT.G_OPR_UPDATE) and p_eam_wo_rec.asset_number is not null) then
952: l_token_tbl(1).token_name := 'Asset Number';
953: l_token_tbl(1).token_value := p_eam_wo_rec.asset_number;
954:
955: l_out_mesg_token_tbl := l_mesg_token_tbl;
956: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
957: ( p_message_name => 'EAM_WO_ASSET_NUMBER'
958: , p_token_tbl => l_token_tbl
959: , p_mesg_token_tbl => l_mesg_token_tbl
960: , x_mesg_token_tbl => l_out_mesg_token_tbl
969:
970:
971:
972: -- eam_linear_location_id
973: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating eam_linear_location_id . . . '); END IF;
974:
975: begin
976:
977: if (p_eam_wo_rec.transaction_type in (EAM_PROCESS_WO_PVT.G_OPR_CREATE,
993: l_token_tbl(1).token_name := 'LIN_LOC';
994: l_token_tbl(1).token_value := p_eam_wo_rec.eam_linear_location_id;
995:
996: l_out_mesg_token_tbl := l_mesg_token_tbl;
997: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
998: ( p_message_name => 'EAM_WO_LINEAR_LOCATION'
999: , p_token_tbl => l_token_tbl
1000: , p_mesg_token_tbl => l_mesg_token_tbl
1001: , x_mesg_token_tbl => l_out_mesg_token_tbl
1009: end;
1010:
1011:
1012: -- rebuild_item_id
1013: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_item_id . . . '); END IF;
1014:
1015: begin
1016:
1017: if (p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE and p_eam_wo_rec.rebuild_item_id is not null) then
1033: l_token_tbl(1).token_name := 'Rebuild Item Id';
1034: l_token_tbl(1).token_value := p_eam_wo_rec.rebuild_item_id;
1035:
1036: l_out_mesg_token_tbl := l_mesg_token_tbl;
1037: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1038: ( p_message_name => 'EAM_WO_REBUILD_ITEM_ID'
1039: , p_token_tbl => l_token_tbl
1040: , p_mesg_token_tbl => l_mesg_token_tbl
1041: , x_mesg_token_tbl => l_out_mesg_token_tbl
1048:
1049: end;
1050:
1051: -- rebuild_serial_number
1052: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_serial_number . . . '); END IF;
1053:
1054: begin
1055: if (p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) then
1056:
1119: l_token_tbl(1).token_name := 'Rebuild Serial Number';
1120: l_token_tbl(1).token_value := p_eam_wo_rec.rebuild_serial_Number;
1121:
1122: l_out_mesg_token_tbl := l_mesg_token_tbl;
1123: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1124: ( p_message_name => 'EAM_WO_REBUILD_SERIAL_NUMBER'
1125: , p_token_tbl => l_token_tbl
1126: , p_mesg_token_tbl => l_mesg_token_tbl
1127: , x_mesg_token_tbl => l_out_mesg_token_tbl
1140: -- When a work order created on non instantiated rebuild serial number is released ,its must have an parent work order
1141: -- 3659469
1142:
1143: -- Serial rebuild number is required while releasing the work order if Rebuild number is serial controlled
1144: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating if rebuild_serial_number is mandatory . . . '); END IF;
1145: BEGIN
1146: IF p_eam_wo_rec.status_type = 3
1147: and p_eam_wo_rec.rebuild_item_id IS NOT NULL
1148: and p_eam_wo_rec.rebuild_serial_number IS NULL
1169: l_token_tbl(1).token_name := 'Work_Order_Id';
1170: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
1171:
1172: l_out_mesg_token_tbl := l_mesg_token_tbl;
1173: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1174: ( p_message_name => 'EAM_REBUILD_SER_REQD'
1175: , p_token_tbl => l_token_tbl
1176: , p_mesg_token_tbl => l_mesg_token_tbl
1177: , x_mesg_token_tbl => l_out_mesg_token_tbl
1184:
1185: end ;
1186:
1187: -- parent_wip_entity_id
1188: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating parent_wip_entity_id . . . '); END IF;
1189:
1190: begin
1191: /* Following validation ensures that only WO of parents of serialized
1192: rebuildables can become parent work orders of rebuild WO and any
1199:
1200: IF ( p_eam_wo_rec.maintenance_object_type = 3 and p_eam_wo_rec.maintenance_object_source = 1)
1201: THEN
1202:
1203: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating parent_wip_entity_id . rebuild status=' || l_rebuild_status); END IF;
1204:
1205: SELECT 1
1206: INTO g_dummy
1207: FROM mtl_object_genealogy mog, mtl_serial_numbers msn, wip_discrete_jobs wdj,
1250: l_token_tbl(1).token_name := 'Parent Wip Entity Id';
1251: l_token_tbl(1).token_value := p_eam_wo_rec.parent_wip_entity_id;
1252:
1253: l_out_mesg_token_tbl := l_mesg_token_tbl;
1254: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1255: ( p_message_name => 'EAM_WO_PARENT_WIP_ENTITY_ID'
1256: , p_token_tbl => l_token_tbl
1257: , p_mesg_token_tbl => l_mesg_token_tbl
1258: , x_mesg_token_tbl => l_out_mesg_token_tbl
1293: l_token_tbl(1).token_name := 'Wip Entity Id';
1294: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
1295:
1296: l_out_mesg_token_tbl := l_mesg_token_tbl;
1297: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1298: ( p_message_name => 'EAM_WO_TRANSACTIONS_EXIST'
1299: , p_token_tbl => l_token_tbl
1300: , p_mesg_token_tbl => l_mesg_token_tbl
1301: , x_mesg_token_tbl => l_out_mesg_token_tbl
1311:
1312:
1313:
1314: -- job_name
1315: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_name . . . '); END IF;
1316:
1317: declare
1318: l_count NUMBER;
1319: begin
1340: l_token_tbl(1).token_name := 'Wip Entity Name';
1341: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
1342:
1343: l_out_mesg_token_tbl := l_mesg_token_tbl;
1344: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1345: ( p_message_name => 'EAM_WO_WIP_ENTITY_NAME'
1346: , p_token_tbl => l_token_tbl
1347: , p_mesg_token_tbl => l_mesg_token_tbl
1348: , x_mesg_token_tbl => l_out_mesg_token_tbl
1356: end;
1357:
1358:
1359: -- job_id
1360: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_id . . . '); END IF;
1361:
1362: declare
1363: l_count NUMBER;
1364: begin
1383: l_token_tbl(1).token_name := 'Wip Entity Id';
1384: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
1385:
1386: l_out_mesg_token_tbl := l_mesg_token_tbl;
1387: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1388: ( p_message_name => 'EAM_WO_WIP_ENTITY_ID'
1389: , p_token_tbl => l_token_tbl
1390: , p_mesg_token_tbl => l_mesg_token_tbl
1391: , x_mesg_token_tbl => l_out_mesg_token_tbl
1399: end;
1400:
1401:
1402: -- firm_planned_flag
1403: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating firm_planned_flag . . . '); END IF;
1404:
1405: begin
1406:
1407: if p_eam_wo_rec.firm_planned_flag not in (wip_constants.yes, wip_constants.no) then
1418: l_token_tbl(1).token_name := 'Firm Planned Flag';
1419: l_token_tbl(1).token_value := p_eam_wo_rec.firm_planned_flag;
1420:
1421: l_out_mesg_token_tbl := l_mesg_token_tbl;
1422: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1423: ( p_message_name => 'EAM_WO_FIRM_PLANNED_FLAG'
1424: , p_token_tbl => l_token_tbl
1425: , p_mesg_token_tbl => l_mesg_token_tbl
1426: , x_mesg_token_tbl => l_out_mesg_token_tbl
1435:
1436:
1437:
1438: -- issue_zero_cost_flag
1439: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_name . . . '); END IF;
1440:
1441: declare
1442: l_count NUMBER;
1443: begin
1456: l_token_tbl(1).token_name := 'ISSUE_ZERO_FLAG';
1457: l_token_tbl(1).token_value := p_eam_wo_rec.issue_zero_cost_flag;
1458:
1459: l_out_mesg_token_tbl := l_mesg_token_tbl;
1460: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1461: ( p_message_name => 'EAM_WO_ISSUE_ZERO_COST_FLAG'
1462: , p_token_tbl => l_token_tbl
1463: , p_mesg_token_tbl => l_mesg_token_tbl
1464: , x_mesg_token_tbl => l_out_mesg_token_tbl
1473:
1474:
1475:
1476: -- schedule_group_id
1477: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating schedule_group_id . . . '); END IF;
1478: begin
1479:
1480: if p_eam_wo_rec.schedule_group_id is not null then
1481:
1494: l_token_tbl(1).token_name := 'Schedule Group Id';
1495: l_token_tbl(1).token_value := p_eam_wo_rec.schedule_group_id;
1496:
1497: l_out_mesg_token_tbl := l_mesg_token_tbl;
1498: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1499: ( p_message_name => 'EAM_WO_SCHEDULE_GROUP'
1500: , p_token_tbl => l_token_tbl
1501: , p_mesg_token_tbl => l_mesg_token_tbl
1502: , x_mesg_token_tbl => l_out_mesg_token_tbl
1508: return;
1509:
1510: end;
1511:
1512: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('p_eam_wo_rec.status_type ' || p_eam_wo_rec.status_type); END IF;
1513: --attribute change not allowed for comp_no_chrg,closed,pending-close,failed-close and cancelled
1514: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating attribute change for complete_no_chrg,cancelled,closed,pending-cl,failed-close statuses');END IF;
1515: --start of fix for 3389850
1516:
1510: end;
1511:
1512: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('p_eam_wo_rec.status_type ' || p_eam_wo_rec.status_type); END IF;
1513: --attribute change not allowed for comp_no_chrg,closed,pending-close,failed-close and cancelled
1514: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating attribute change for complete_no_chrg,cancelled,closed,pending-cl,failed-close statuses');END IF;
1515: --start of fix for 3389850
1516:
1517: begin
1518: IF ( p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE )
1601: l_token_tbl(1).token_name := 'STATUS_TYPE';
1602: l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
1603:
1604: l_out_mesg_token_tbl := l_mesg_token_tbl;
1605: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1606: ( p_message_name => 'EAM_WO_CH_ATTR_DISALLOWED'
1607: , p_token_tbl => l_token_tbl
1608: , p_mesg_token_tbl => l_mesg_token_tbl
1609: , x_mesg_token_tbl => l_out_mesg_token_tbl
1618:
1619: --end of fix for 3389850
1620:
1621: -- status_type
1622: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type . . . '); END IF;
1623:
1624: declare
1625:
1626: l_count number;
1667: l_token_tbl(1).token_name := 'Status type';
1668: l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
1669:
1670: l_out_mesg_token_tbl := l_mesg_token_tbl;
1671: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1672: ( p_message_name => 'EAM_WO_STATUS_TYPE'
1673: , p_token_tbl => l_token_tbl
1674: , p_mesg_token_tbl => l_mesg_token_tbl
1675: , x_mesg_token_tbl => l_out_mesg_token_tbl
1683: end;
1684:
1685:
1686: -- job_quantity
1687: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating job_quantity . . . '); END IF;
1688:
1689: begin
1690:
1691: if(p_eam_wo_rec.job_quantity <> 1) then
1700: l_token_tbl(1).token_name := 'Job Quantity';
1701: l_token_tbl(1).token_value := p_eam_wo_rec.job_quantity;
1702:
1703: l_out_mesg_token_tbl := l_mesg_token_tbl;
1704: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1705: ( p_message_name => 'EAM_WO_JOB_QUANTITY'
1706: , p_token_tbl => l_token_tbl
1707: , p_mesg_token_tbl => l_mesg_token_tbl
1708: , x_mesg_token_tbl => l_out_mesg_token_tbl
1716: end;
1717:
1718:
1719: -- primary_item_id (asset activity)
1720: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_activity_id . . . '); END IF;
1721:
1722: declare
1723: l_eam_op_tbl EAM_PROCESS_WO_PUB.EAM_OP_TBL_TYPE;
1724: l_mat_req_exists number;
1760: exception
1761: when fnd_api.g_exc_unexpected_error then
1762:
1763: l_out_mesg_token_tbl := l_mesg_token_tbl;
1764: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1765: ( p_message_name => 'EAM_CANT_UPDATE_ACTIVITY'
1766: , p_token_tbl => l_token_tbl
1767: , p_mesg_token_tbl => l_mesg_token_tbl
1768: , x_mesg_token_tbl => l_out_mesg_token_tbl
1775:
1776: when ACTIVITY_WO_EXISTS then
1777:
1778: l_out_mesg_token_tbl := l_mesg_token_tbl;
1779: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1780: ( p_message_name => 'EAM_ACTIVITY_WO_EXISTS'
1781: , p_token_tbl => l_token_tbl
1782: , p_mesg_token_tbl => l_mesg_token_tbl
1783: , x_mesg_token_tbl => l_out_mesg_token_tbl
1793: l_token_tbl(1).token_name := 'Asset Activity Id';
1794: l_token_tbl(1).token_value := p_eam_wo_rec.asset_activity_id;
1795:
1796: l_out_mesg_token_tbl := l_mesg_token_tbl;
1797: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1798: ( p_message_name => 'EAM_WO_ASSET_ACTIVITY'
1799: , p_token_tbl => l_token_tbl
1800: , p_mesg_token_tbl => l_mesg_token_tbl
1801: , x_mesg_token_tbl => l_out_mesg_token_tbl
1811:
1812:
1813: -- asset activity association
1814:
1815: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_activity_association . . . '); END IF;
1816:
1817: declare
1818: l_start_date DATE;
1819: l_end_date DATE;
1868: exception
1869: WHEN l_wo_asset_activity_err THEN
1870:
1871: l_out_mesg_token_tbl := l_mesg_token_tbl;
1872: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1873: ( p_message_name => 'EAM_WO_ASSET_ACTIVITY_DATES'
1874: , p_token_tbl => l_token_tbl
1875: , p_mesg_token_tbl => l_mesg_token_tbl
1876: , x_mesg_token_tbl => l_out_mesg_token_tbl
1886: l_token_tbl(1).token_name := 'Asset Activity Id';
1887: l_token_tbl(1).token_value := p_eam_wo_rec.asset_activity_id;
1888:
1889: l_out_mesg_token_tbl := l_mesg_token_tbl;
1890: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1891: ( p_message_name => 'EAM_WO_ASSET_ACTIVITY_ASSOC'
1892: , p_token_tbl => l_token_tbl
1893: , p_mesg_token_tbl => l_mesg_token_tbl
1894: , x_mesg_token_tbl => l_out_mesg_token_tbl
1902: end;
1903:
1904:
1905: -- wip_supply_type
1906: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_supply_type . . . '); END IF;
1907:
1908: begin
1909:
1910: if(p_eam_wo_rec.wip_supply_type is not null and p_eam_wo_rec.wip_supply_type not in (wip_constants.push, wip_constants.bulk, wip_constants.based_on_bom)) then
1922: l_token_tbl(1).token_name := 'Wip Supply Type';
1923: l_token_tbl(1).token_value := p_eam_wo_rec.wip_supply_type;
1924:
1925: l_out_mesg_token_tbl := l_mesg_token_tbl;
1926: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1927: ( p_message_name => 'EAM_WO_WIP_SUPPLY_TYPE'
1928: , p_token_tbl => l_token_tbl
1929: , p_mesg_token_tbl => l_mesg_token_tbl
1930: , x_mesg_token_tbl => l_out_mesg_token_tbl
1938: end;
1939:
1940:
1941: -- alternate_routing_designator
1942: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating alternate_routing_designator . . . '); END IF;
1943:
1944: begin
1945:
1946: if p_eam_wo_rec.alternate_routing_designator is not null then
1963: l_token_tbl(1).token_name := 'Alternate Routing Designator';
1964: l_token_tbl(1).token_value := p_eam_wo_rec.alternate_routing_designator;
1965:
1966: l_out_mesg_token_tbl := l_mesg_token_tbl;
1967: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1968: ( p_message_name => 'EAM_WO_ALTERNATE_ROUTING'
1969: , p_token_tbl => l_token_tbl
1970: , p_mesg_token_tbl => l_mesg_token_tbl
1971: , x_mesg_token_tbl => l_out_mesg_token_tbl
1978:
1979: end;
1980:
1981: -- alternate_bom_designator
1982: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating alternate_bom_designator . . . '); END IF;
1983:
1984: begin
1985:
1986: if p_eam_wo_rec.alternate_bom_designator is not null then
2003: l_token_tbl(1).token_name := 'Alternate BOM Designator';
2004: l_token_tbl(1).token_value := p_eam_wo_rec.alternate_bom_designator;
2005:
2006: l_out_mesg_token_tbl := l_mesg_token_tbl;
2007: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2008: ( p_message_name => 'EAM_WO_ALTERNATE_BOM'
2009: , p_token_tbl => l_token_tbl
2010: , p_mesg_token_tbl => l_mesg_token_tbl
2011: , x_mesg_token_tbl => l_out_mesg_token_tbl
2018:
2019: end;
2020:
2021: -- project_id
2022: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating project_id . . . '); END IF;
2023:
2024: declare
2025:
2026: l_min_date DATE;
2065: l_token_tbl(1).token_name := 'Project Id';
2066: l_token_tbl(1).token_value := p_eam_wo_rec.project_id;
2067:
2068: l_out_mesg_token_tbl := l_mesg_token_tbl;
2069: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2070: ( p_message_name => 'EAM_WO_PROJECT_ID'
2071: , p_token_tbl => l_token_tbl
2072: , p_mesg_token_tbl => l_mesg_token_tbl
2073: , x_mesg_token_tbl => l_out_mesg_token_tbl
2081: end;
2082:
2083:
2084: -- task_id
2085: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating task_id . . . '); END IF;
2086:
2087: declare
2088:
2089: l_min_date DATE;
2125: l_token_tbl(1).token_name := 'Task Id';
2126: l_token_tbl(1).token_value := p_eam_wo_rec.task_id;
2127:
2128: l_out_mesg_token_tbl := l_mesg_token_tbl;
2129: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2130: ( p_message_name => 'EAM_WO_TASK_ID'
2131: , p_token_tbl => l_token_tbl
2132: , p_mesg_token_tbl => l_mesg_token_tbl
2133: , x_mesg_token_tbl => l_out_mesg_token_tbl
2143:
2144:
2145: -- schedule_dates 0
2146:
2147: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating PM Suggested dates . . . '); END IF;
2148:
2149: begin
2150:
2151: if p_eam_wo_rec.pm_suggested_start_date is not null and
2163: l_token_tbl(1).token_name := 'Wip Entity Name';
2164: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
2165:
2166: l_out_mesg_token_tbl := l_mesg_token_tbl;
2167: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2168: ( p_message_name => 'EAM_WO_TOO_MANY_PM_DATE'
2169: , p_token_tbl => l_token_tbl
2170: , p_mesg_token_tbl => l_mesg_token_tbl
2171: , x_mesg_token_tbl => l_out_mesg_token_tbl
2180:
2181:
2182: -- schedule_dates 1
2183:
2184: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating due_date, requested_start_date . . . '); END IF;
2185:
2186: begin
2187:
2188: if p_eam_wo_rec.due_date is not null and
2200: l_token_tbl(1).token_name := 'Wip Entity Name';
2201: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
2202:
2203: l_out_mesg_token_tbl := l_mesg_token_tbl;
2204: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2205: ( p_message_name => 'EAM_WO_TOO_MANY_DATE'
2206: , p_token_tbl => l_token_tbl
2207: , p_mesg_token_tbl => l_mesg_token_tbl
2208: , x_mesg_token_tbl => l_out_mesg_token_tbl
2217:
2218:
2219: -- schedule_dates 2
2220:
2221: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating due_date, requested_start_date . . . '); END IF;
2222:
2223: begin
2224:
2225: if p_eam_wo_rec.due_date is null and
2237: l_token_tbl(1).token_name := 'Wip Entity Name';
2238: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
2239:
2240: l_out_mesg_token_tbl := l_mesg_token_tbl;
2241: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2242: ( p_message_name => 'EAM_WO_NEED_DATE'
2243: , p_token_tbl => l_token_tbl
2244: , p_mesg_token_tbl => l_mesg_token_tbl
2245: , x_mesg_token_tbl => l_out_mesg_token_tbl
2253: end;
2254:
2255:
2256: -- schedule_dates 3
2257: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating schedule_dates . . . '); END IF;
2258:
2259: declare
2260: l_rtg_count NUMBER;
2261: l_date_count NUMBER := 0;
2303: l_token_tbl(1).token_name := 'Scheduled Start Date';
2304: l_token_tbl(1).token_value := p_eam_wo_rec.scheduled_start_date;
2305:
2306: l_out_mesg_token_tbl := l_mesg_token_tbl;
2307: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2308: ( p_message_name => 'EAM_WO_SCHEDULE_DATE'
2309: , p_token_tbl => l_token_tbl
2310: , p_mesg_token_tbl => l_mesg_token_tbl
2311: , x_mesg_token_tbl => l_out_mesg_token_tbl
2326: END IF;
2327: exception
2328: when fnd_api.g_exc_unexpected_error then
2329: l_out_mesg_token_tbl := l_mesg_token_tbl;
2330: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2331: ( p_message_name => 'EAM_WO_SCHEDULE_DATE_MORE'
2332: , p_token_tbl => l_token_tbl
2333: , p_mesg_token_tbl => l_mesg_token_tbl
2334: , x_mesg_token_tbl => l_out_mesg_token_tbl
2342: --end of fix for 3396136
2343:
2344:
2345: -- end_item_unit_number
2346: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating end_item_unit_number . . . '); END IF;
2347:
2348: declare
2349: is_unit_effective_item boolean;
2350: l_bom_item_id NUMBER;
2384: l_token_tbl(1).token_name := 'Unit Number';
2385: l_token_tbl(1).token_value := p_eam_wo_rec.end_item_unit_number;
2386:
2387: l_out_mesg_token_tbl := l_mesg_token_tbl;
2388: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2389: ( p_message_name => 'EAM_WO_UNIT_NUMBER'
2390: , p_token_tbl => l_token_tbl
2391: , p_mesg_token_tbl => l_mesg_token_tbl
2392: , x_mesg_token_tbl => l_out_mesg_token_tbl
2400: end;
2401:
2402:
2403: -- class_code
2404: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating class_code . . . '); END IF;
2405:
2406: declare
2407: l_disable_date date;
2408: WO_CANT_CH_WIPACCT exception;
2448:
2449: when WO_CANT_CH_WIPACCT then
2450:
2451: l_out_mesg_token_tbl := l_mesg_token_tbl;
2452: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2453: ( p_message_name => 'EAM_WIPACT_CANNOT_CH'
2454: , p_token_tbl => l_token_tbl
2455: , p_mesg_token_tbl => l_mesg_token_tbl
2456: , x_mesg_token_tbl => l_out_mesg_token_tbl
2466: l_token_tbl(1).token_name := 'Class Code';
2467: l_token_tbl(1).token_value := p_eam_wo_rec.class_code;
2468:
2469: l_out_mesg_token_tbl := l_mesg_token_tbl;
2470: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2471: ( p_message_name => 'EAM_WO_CLASS_CODE'
2472: , p_token_tbl => l_token_tbl
2473: , p_mesg_token_tbl => l_mesg_token_tbl
2474: , x_mesg_token_tbl => l_out_mesg_token_tbl
2482: end;
2483:
2484:
2485: -- bom_revision
2486: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating bom_revision . . . '); END IF;
2487:
2488: declare
2489: l_start_date DATE;
2490: begin
2505: l_token_tbl(1).token_name := 'BOM Revision';
2506: l_token_tbl(1).token_value := p_eam_wo_rec.bom_revision;
2507:
2508: l_out_mesg_token_tbl := l_mesg_token_tbl;
2509: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2510: ( p_message_name => 'EAM_WO_BOM_REVISION'
2511: , p_token_tbl => l_token_tbl
2512: , p_mesg_token_tbl => l_mesg_token_tbl
2513: , x_mesg_token_tbl => l_out_mesg_token_tbl
2522: end;
2523:
2524:
2525: -- routing_revision
2526: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating routing_revision . . . '); END IF;
2527:
2528: declare
2529: l_start_date DATE;
2530: l_count NUMBER;
2557: l_token_tbl(1).token_name := 'Routing Revision';
2558: l_token_tbl(1).token_value := p_eam_wo_rec.routing_revision;
2559:
2560: l_out_mesg_token_tbl := l_mesg_token_tbl;
2561: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2562: ( p_message_name => 'EAM_WO_ROUTING_REVISION'
2563: , p_token_tbl => l_token_tbl
2564: , p_mesg_token_tbl => l_mesg_token_tbl
2565: , x_mesg_token_tbl => l_out_mesg_token_tbl
2573: end;
2574:
2575:
2576: -- manual_rebuild_flag
2577: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating manual_rebuild_flag . . . '); END IF;
2578:
2579: begin
2580: if (p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) then
2581: if(p_eam_wo_rec.manual_rebuild_flag is not null and
2598: l_token_tbl(1).token_name := 'Manual Rebuild Flag';
2599: l_token_tbl(1).token_value := p_eam_wo_rec.manual_rebuild_flag;
2600:
2601: l_out_mesg_token_tbl := l_mesg_token_tbl;
2602: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2603: ( p_message_name => 'EAM_WO_MANUAL_REBUILD_FLAG'
2604: , p_token_tbl => l_token_tbl
2605: , p_mesg_token_tbl => l_mesg_token_tbl
2606: , x_mesg_token_tbl => l_out_mesg_token_tbl
2613:
2614: end;
2615:
2616: -- owning_department
2617: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating owing_department_id . . . '); END IF;
2618:
2619: declare
2620: l_job_date DATE;
2621: l_disable_date DATE;
2648: AND bd.organization_id = p_eam_wo_rec.organization_id;
2649:
2650:
2651: l_out_mesg_token_tbl := l_mesg_token_tbl;
2652: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2653: ( p_message_name => 'EAM_WO_OWNING_DEPARTMENT'
2654: , p_token_tbl => l_token_tbl
2655: , p_mesg_token_tbl => l_mesg_token_tbl
2656: , x_mesg_token_tbl => l_out_mesg_token_tbl
2663:
2664: end;
2665:
2666: -- notification_required
2667: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating notification_required . . . '); END IF;
2668:
2669: begin
2670: if (p_eam_wo_rec.notification_required is not null and
2671: p_eam_wo_rec.notification_required not in ('Y', 'N')) then
2680: l_token_tbl(1).token_name := 'Notification Required';
2681: l_token_tbl(1).token_value := p_eam_wo_rec.notification_required;
2682:
2683: l_out_mesg_token_tbl := l_mesg_token_tbl;
2684: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2685: ( p_message_name => 'EAM_WO_NOTIFICATION_REQUIRED'
2686: , p_token_tbl => l_token_tbl
2687: , p_mesg_token_tbl => l_mesg_token_tbl
2688: , x_mesg_token_tbl => l_out_mesg_token_tbl
2695:
2696: end;
2697:
2698: -- shutdown_type
2699: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating shutdown_type . . . '); END IF;
2700:
2701: begin
2702: if p_eam_wo_rec.shutdown_type is not null then
2703: select 1
2716: l_token_tbl(1).token_name := 'Shutdown Type';
2717: l_token_tbl(1).token_value := p_eam_wo_rec.shutdown_type;
2718:
2719: l_out_mesg_token_tbl := l_mesg_token_tbl;
2720: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2721: ( p_message_name => 'EAM_WO_SHUTDOWN_TYPE'
2722: , p_token_tbl => l_token_tbl
2723: , p_mesg_token_tbl => l_mesg_token_tbl
2724: , x_mesg_token_tbl => l_out_mesg_token_tbl
2731:
2732: end;
2733:
2734: -- tagout_required
2735: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating tagout_required . . . '); END IF;
2736:
2737: begin
2738: if (p_eam_wo_rec.tagout_required is not null and
2739: p_eam_wo_rec.tagout_required not in ('Y', 'N')) then
2748: l_token_tbl(1).token_name := 'Tagout Required';
2749: l_token_tbl(1).token_value := p_eam_wo_rec.tagout_required;
2750:
2751: l_out_mesg_token_tbl := l_mesg_token_tbl;
2752: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2753: ( p_message_name => 'EAM_WO_TAGOUT_REQUIRED'
2754: , p_token_tbl => l_token_tbl
2755: , p_mesg_token_tbl => l_mesg_token_tbl
2756: , x_mesg_token_tbl => l_out_mesg_token_tbl
2763:
2764: end;
2765:
2766: -- plan_maintenance
2767: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating plan_maintenance . . . '); END IF;
2768:
2769: begin
2770: if p_eam_wo_rec.plan_maintenance is not null and
2771: p_eam_wo_rec.plan_maintenance not in ('Y', 'N') then
2780: l_token_tbl(1).token_name := 'Plan Maintenance';
2781: l_token_tbl(1).token_value := p_eam_wo_rec.plan_maintenance;
2782:
2783: l_out_mesg_token_tbl := l_mesg_token_tbl;
2784: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2785: ( p_message_name => 'EAM_WO_PLAN_MAINTENANCE'
2786: , p_token_tbl => l_token_tbl
2787: , p_mesg_token_tbl => l_mesg_token_tbl
2788: , x_mesg_token_tbl => l_out_mesg_token_tbl
2795:
2796: end;
2797:
2798: -- work_order_type
2799: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating work_order_type . . . '); END IF;
2800:
2801: begin
2802: if p_eam_wo_rec.work_order_type is not null then
2803: select 1
2816: l_token_tbl(1).token_name := 'Work Order Type';
2817: l_token_tbl(1).token_value := p_eam_wo_rec.work_order_type;
2818:
2819: l_out_mesg_token_tbl := l_mesg_token_tbl;
2820: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2821: ( p_message_name => 'EAM_WO_WORK_ORDER_TYPE'
2822: , p_token_tbl => l_token_tbl
2823: , p_mesg_token_tbl => l_mesg_token_tbl
2824: , x_mesg_token_tbl => l_out_mesg_token_tbl
2831:
2832: end;
2833:
2834: -- activity_type
2835: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating activity_type . . . '); END IF;
2836:
2837: begin
2838: if p_eam_wo_rec.activity_type is not null then
2839: select 1
2852: l_token_tbl(1).token_name := 'Activity Type';
2853: l_token_tbl(1).token_value := p_eam_wo_rec.activity_type;
2854:
2855: l_out_mesg_token_tbl := l_mesg_token_tbl;
2856: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2857: ( p_message_name => 'EAM_WO_ACTIVITY_TYPE'
2858: , p_token_tbl => l_token_tbl
2859: , p_mesg_token_tbl => l_mesg_token_tbl
2860: , x_mesg_token_tbl => l_out_mesg_token_tbl
2867:
2868: end;
2869:
2870: -- activity_cause
2871: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating activity_cause . . . '); END IF;
2872:
2873: begin
2874: if p_eam_wo_rec.activity_cause is not null then
2875: select 1
2888: l_token_tbl(1).token_name := 'Activity Cause';
2889: l_token_tbl(1).token_value := p_eam_wo_rec.activity_cause;
2890:
2891: l_out_mesg_token_tbl := l_mesg_token_tbl;
2892: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2893: ( p_message_name => 'EAM_WO_ACTIVITY_CAUSE'
2894: , p_token_tbl => l_token_tbl
2895: , p_mesg_token_tbl => l_mesg_token_tbl
2896: , x_mesg_token_tbl => l_out_mesg_token_tbl
2905:
2906:
2907:
2908: -- activity_source
2909: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating activity_source . . . '); END IF;
2910:
2911: begin
2912: if p_eam_wo_rec.activity_source is not null then
2913: select 1
2926: l_token_tbl(1).token_name := 'Activity Source';
2927: l_token_tbl(1).token_value := p_eam_wo_rec.activity_source;
2928:
2929: l_out_mesg_token_tbl := l_mesg_token_tbl;
2930: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2931: ( p_message_name => 'EAM_WO_ACTIVITY_SOURCE'
2932: , p_token_tbl => l_token_tbl
2933: , p_mesg_token_tbl => l_mesg_token_tbl
2934: , x_mesg_token_tbl => l_out_mesg_token_tbl
2942: end;
2943:
2944:
2945: -- date_released
2946: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating accounting_period . . . '); END IF;
2947:
2948: --bug#4425025 - need to validate period only when releasing the first time.
2949: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Old Date_released is : '||nvl(to_char(p_old_eam_wo_rec.date_released),'NULL')); END IF;
2950:
2945: -- date_released
2946: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating accounting_period . . . '); END IF;
2947:
2948: --bug#4425025 - need to validate period only when releasing the first time.
2949: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Old Date_released is : '||nvl(to_char(p_old_eam_wo_rec.date_released),'NULL')); END IF;
2950:
2951: declare
2952: l_date_released_calc DATE;
2953: l_min_open_period_date DATE;
2995: l_token_tbl(1).token_name := 'Date Released';
2996: l_token_tbl(1).token_value := trunc(l_date_released_calc);
2997:
2998: l_out_mesg_token_tbl := l_mesg_token_tbl;
2999: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3000: ( p_message_name => 'EAM_WO_NO_ACCT_PERIOD'
3001: , p_token_tbl => l_token_tbl
3002: , p_mesg_token_tbl => l_mesg_token_tbl
3003: , x_mesg_token_tbl => l_out_mesg_token_tbl
3012:
3013:
3014: -- maintenance_object_source
3015:
3016: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_source . . . '); END IF;
3017:
3018: begin
3019:
3020: if (p_eam_wo_rec.maintenance_object_source is not null) then
3034: l_token_tbl(1).token_name := 'Maintenance Object Source';
3035: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_source;
3036:
3037: l_out_mesg_token_tbl := l_mesg_token_tbl;
3038: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3039: ( p_message_name => 'EAM_WO_MAINT_OBJECT_SOURCE'
3040: , p_token_tbl => l_token_tbl
3041: , p_mesg_token_tbl => l_mesg_token_tbl
3042: , x_mesg_token_tbl => l_out_mesg_token_tbl
3051:
3052:
3053: -- user_id
3054:
3055: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating user_id . . . '); END IF;
3056:
3057: begin
3058:
3059: if (p_eam_wo_rec.user_id is not null) then
3072: l_token_tbl(1).token_name := 'USER_ID';
3073: l_token_tbl(1).token_value := p_eam_wo_rec.user_id;
3074:
3075: l_out_mesg_token_tbl := l_mesg_token_tbl;
3076: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3077: ( p_message_name => 'EAM_WO_USER'
3078: , p_token_tbl => l_token_tbl
3079: , p_mesg_token_tbl => l_mesg_token_tbl
3080: , x_mesg_token_tbl => l_out_mesg_token_tbl
3089:
3090:
3091: -- responsibility_id
3092:
3093: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating responsibility_id . . . '); END IF;
3094:
3095: begin
3096:
3097: if (p_eam_wo_rec.responsibility_id is not null) then
3110: l_token_tbl(1).token_name := 'RESPONSIBILITY_ID';
3111: l_token_tbl(1).token_value := p_eam_wo_rec.responsibility_id;
3112:
3113: l_out_mesg_token_tbl := l_mesg_token_tbl;
3114: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3115: ( p_message_name => 'EAM_WO_RESPONSIBILITY'
3116: , p_token_tbl => l_token_tbl
3117: , p_mesg_token_tbl => l_mesg_token_tbl
3118: , x_mesg_token_tbl => l_out_mesg_token_tbl
3126: end;
3127:
3128: -- user_defined_status_id
3129:
3130: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating user_defined_status_id . . . '); END IF;
3131:
3132: begin
3133:
3134: IF (p_eam_wo_rec.user_defined_status_id IS NOT NULL) AND
3150: l_token_tbl(1).token_name := 'USER_DEFINED_STATUS_ID';
3151: l_token_tbl(1).token_value := p_eam_wo_rec.user_defined_status_id;
3152:
3153: l_out_mesg_token_tbl := l_mesg_token_tbl;
3154: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3155: ( p_message_name => 'EAM_WO_DIS_USER_DEFINED_STATUS'
3156: , p_token_tbl => l_token_tbl
3157: , p_mesg_token_tbl => l_mesg_token_tbl
3158: , x_mesg_token_tbl => l_out_mesg_token_tbl
3166: end;
3167:
3168: -- material_issue_by_mo
3169:
3170: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . . . '); END IF;
3171:
3172: begin
3173:
3174: if (p_eam_wo_rec.material_issue_by_mo is null) then
3184: and not(p_eam_wo_rec.status_type=WIP_CONSTANTS.RELEASED and (p_old_eam_wo_rec.status_type IN (WIP_CONSTANTS.DRAFT,WIP_CONSTANTS.UNRELEASED,WIP_CONSTANTS.CANCELLED))) /*Bug No 3476156*/
3185: and p_eam_wo_rec.material_issue_by_mo <> p_old_eam_wo_rec.material_issue_by_mo then
3186:
3187: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN
3188: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .wip_entity_id' || p_eam_wo_rec.wip_entity_id);
3189: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .org_id' || p_eam_wo_rec.organization_id);
3190: END IF;
3191:
3192: if ((p_eam_wo_rec.status_type = WIP_CONSTANTS.HOLD) OR (p_eam_wo_rec.status_type=WIP_CONSTANTS.RELEASED and p_old_eam_wo_rec.status_type=WIP_CONSTANTS.HOLD)) then /*Bug no 3476156*/
3185: and p_eam_wo_rec.material_issue_by_mo <> p_old_eam_wo_rec.material_issue_by_mo then
3186:
3187: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN
3188: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .wip_entity_id' || p_eam_wo_rec.wip_entity_id);
3189: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .org_id' || p_eam_wo_rec.organization_id);
3190: END IF;
3191:
3192: if ((p_eam_wo_rec.status_type = WIP_CONSTANTS.HOLD) OR (p_eam_wo_rec.status_type=WIP_CONSTANTS.RELEASED and p_old_eam_wo_rec.status_type=WIP_CONSTANTS.HOLD)) then /*Bug no 3476156*/
3193: -- If material allocation has been done then raise error
3211: when fnd_api.g_exc_error then
3212: l_out_mesg_token_tbl := l_mesg_token_tbl;
3213:
3214: If l_mo_err_flag = '1' Then
3215: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3216: ( p_message_name => 'EAM_WO_MTL_ISS_DISALLOWED'
3217: , p_token_tbl => l_token_tbl
3218: , p_mesg_token_tbl => l_mesg_token_tbl
3219: , x_mesg_token_tbl => l_out_mesg_token_tbl
3218: , p_mesg_token_tbl => l_mesg_token_tbl
3219: , x_mesg_token_tbl => l_out_mesg_token_tbl
3220: );
3221: Else
3222: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3223: ( p_message_name => 'EAM_WO_MTL_ALRDY_ISSUED'
3224: , p_token_tbl => l_token_tbl
3225: , p_mesg_token_tbl => l_mesg_token_tbl
3226: , x_mesg_token_tbl => l_out_mesg_token_tbl
3236:
3237: when others then
3238:
3239: l_out_mesg_token_tbl := l_mesg_token_tbl;
3240: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3241: ( p_message_name => 'EAM_WO_MTL_ISSUE_BY_MO'
3242: , p_token_tbl => l_token_tbl
3243: , p_mesg_token_tbl => l_mesg_token_tbl
3244: , x_mesg_token_tbl => l_out_mesg_token_tbl
3252: end;
3253:
3254: -- Bug # 4709084 : FAILURE ANALYSIS : Check for failure_code_required..
3255: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN
3256: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating failure_code_required . . . ');
3257: END IF;
3258:
3259: if (p_eam_wo_rec.failure_code_required is not null and p_eam_wo_rec.failure_code_required not in ('Y', 'N')) then
3260: l_token_tbl(1).token_name := 'failure_code_required';
3259: if (p_eam_wo_rec.failure_code_required is not null and p_eam_wo_rec.failure_code_required not in ('Y', 'N')) then
3260: l_token_tbl(1).token_name := 'failure_code_required';
3261: l_token_tbl(1).token_value := p_eam_wo_rec.failure_code_required;
3262: l_out_mesg_token_tbl := l_mesg_token_tbl;
3263: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3264: ( p_message_name => 'EAM_WO_FAILURE_CODE_REQUIRED'
3265: , p_token_tbl => l_token_tbl
3266: , p_mesg_token_tbl => l_mesg_token_tbl
3267: , x_mesg_token_tbl => l_out_mesg_token_tbl
3280: l_token_tbl(1).token_name := 'Validation (Check Attributes)';
3281: l_token_tbl(1).token_value := substrb(SQLERRM,1,200);
3282:
3283: l_out_mesg_token_tbl := l_mesg_token_tbl;
3284: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3285: ( p_message_name => NULL
3286: , p_token_tbl => l_token_tbl
3287: , p_mesg_token_tbl => l_mesg_token_tbl
3288: , x_mesg_token_tbl => l_out_mesg_token_tbl
3305:
3306: PROCEDURE Check_Required
3307: ( p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
3308: , x_return_status OUT NOCOPY VARCHAR2
3309: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
3310: )
3311: IS
3312: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3313: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3308: , x_return_status OUT NOCOPY VARCHAR2
3309: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
3310: )
3311: IS
3312: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3313: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3314: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
3315: BEGIN
3316:
3309: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
3310: )
3311: IS
3312: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3313: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3314: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
3315: BEGIN
3316:
3317: x_return_status := FND_API.G_RET_STS_SUCCESS;
3310: )
3311: IS
3312: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3313: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3314: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
3315: BEGIN
3316:
3317: x_return_status := FND_API.G_RET_STS_SUCCESS;
3318:
3321: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3322: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3323:
3324: l_out_mesg_token_tbl := l_mesg_token_tbl;
3325: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3326: ( p_message_name => 'EAM_WO_ORG_REQUIRED'
3327: , p_token_tbl => l_Token_tbl
3328: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3329: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3341: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3342: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3343:
3344: l_out_mesg_token_tbl := l_mesg_token_tbl;
3345: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3346: ( p_message_name => 'EAM_WO_MAINT_ASSET_REQUIRED'
3347: , p_token_tbl => l_Token_tbl
3348: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3349: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3360: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3361: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3362:
3363: l_out_mesg_token_tbl := l_mesg_token_tbl;
3364: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3365: ( p_message_name => 'EAM_WO_WAC_REQUIRED'
3366: , p_token_tbl => l_Token_tbl
3367: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3368: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3385: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3386: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3387:
3388: l_out_mesg_token_tbl := l_mesg_token_tbl;
3389: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3390: ( p_message_name => 'EAM_WO_DEPT_REQUIRED'
3391: , p_token_tbl => l_Token_tbl
3392: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3393: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3405: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3406: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3407:
3408: l_out_mesg_token_tbl := l_mesg_token_tbl;
3409: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3410: ( p_message_name => 'EAM_WO_WIP_ENTITY_ID_REQUIRED'
3411: , p_token_tbl => l_Token_tbl
3412: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3413: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3423: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3424: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3425:
3426: l_out_mesg_token_tbl := l_mesg_token_tbl;
3427: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3428: ( p_message_name => 'EAM_WO_WIP_NAME_REQUIRED'
3429: , p_token_tbl => l_Token_tbl
3430: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3431: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3441: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3442: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3443:
3444: l_out_mesg_token_tbl := l_mesg_token_tbl;
3445: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3446: ( p_message_name => 'EAM_WO_STATUS_TYPE_REQUIRED'
3447: , p_token_tbl => l_Token_tbl
3448: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3449: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3460: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3461: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3462:
3463: l_out_mesg_token_tbl := l_mesg_token_tbl;
3464: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3465: ( p_message_name => 'EAM_WO_JOB_QTY_REQUIRED'
3466: , p_token_tbl => l_Token_tbl
3467: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3468: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3479: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3480: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3481:
3482: l_out_mesg_token_tbl := l_mesg_token_tbl;
3483: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3484: ( p_message_name => 'EAM_WO_FIRM_FLAG_REQUIRED'
3485: , p_token_tbl => l_Token_tbl
3486: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3487: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3497: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3498: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3499:
3500: l_out_mesg_token_tbl := l_mesg_token_tbl;
3501: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3502: ( p_message_name => 'EAM_WO_SUPPLY_TYPE_REQUIRED'
3503: , p_token_tbl => l_Token_tbl
3504: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3505: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3515: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3516: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3517:
3518: l_out_mesg_token_tbl := l_mesg_token_tbl;
3519: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3520: ( p_message_name => 'EAM_WO_START_DATE_REQUIRED'
3521: , p_token_tbl => l_Token_tbl
3522: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3523: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3533: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3534: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3535:
3536: l_out_mesg_token_tbl := l_mesg_token_tbl;
3537: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3538: ( p_message_name => 'EAM_WO_COMPL_DATE_REQUIRED'
3539: , p_token_tbl => l_Token_tbl
3540: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3541: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3551: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3552: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3553:
3554: l_out_mesg_token_tbl := l_mesg_token_tbl;
3555: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3556: ( p_message_name => 'EAM_WO_DATE_REQUIRED'
3557: , p_token_tbl => l_Token_tbl
3558: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3559: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3569: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3570: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3571:
3572: l_out_mesg_token_tbl := l_mesg_token_tbl;
3573: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3574: ( p_message_name => 'EAM_WO_MAINT_OBJ_SRC_REQUIRED'
3575: , p_token_tbl => l_Token_tbl
3576: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3577: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3589: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3590: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3591:
3592: l_out_mesg_token_tbl := l_mesg_token_tbl;
3593: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3594: ( p_message_name => 'EAM_WO_MAINT_OBJ_ID_REQUIRED'
3595: , p_token_tbl => l_Token_tbl
3596: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3597: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3609: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3610: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3611:
3612: l_out_mesg_token_tbl := l_mesg_token_tbl;
3613: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3614: ( p_message_name => 'EAM_WO_MAINT_OBJ_TYPE_REQUIRED'
3615: , p_token_tbl => l_Token_tbl
3616: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3617: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3631: l_token_tbl(1).token_name := 'USER_ID';
3632: l_token_tbl(1).token_value := p_eam_wo_rec.user_id;
3633:
3634: l_out_mesg_token_tbl := l_mesg_token_tbl;
3635: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3636: ( p_message_name => 'EAM_WO_USER_RESP_REQUIRED'
3637: , p_token_tbl => l_Token_tbl
3638: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3639: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3654: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3655: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3656:
3657: l_out_mesg_token_tbl := l_mesg_token_tbl;
3658: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3659: ( p_message_name => 'EAM_WO_REB_SR_NUM_REQUIRED'
3660: , p_token_tbl => l_Token_tbl
3661: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3662: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl