[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
199: l_token_tbl(1).token_name := 'Organization Id';
200: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
201:
202: l_out_mesg_token_tbl := l_mesg_token_tbl;
203: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
204: ( p_message_name => 'EAM_WO_ORGANIZATION_ID'
205: , p_token_tbl => l_token_tbl
206: , p_mesg_token_tbl => l_mesg_token_tbl
207: , x_mesg_token_tbl => l_out_mesg_token_tbl
216:
217:
218: -- organization_id (EAM enabled)
219:
220: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . '); END IF;
221:
222: --Only check EAM enabled for CMRO, part of bug fix 9313320
223: IF p_eam_wo_rec.maintenance_object_source = 2 then
224:
237: l_token_tbl(1).token_name := 'Organization Id';
238: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
239:
240: l_out_mesg_token_tbl := l_mesg_token_tbl;
241: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
242: ( p_message_name => 'EAM_WO_ORG_EAM_ENABLED'
243: , p_token_tbl => l_token_tbl
244: , p_mesg_token_tbl => l_mesg_token_tbl
245: , x_mesg_token_tbl => l_out_mesg_token_tbl
269: l_token_tbl(1).token_name := 'Organization Id';
270: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
271:
272: l_out_mesg_token_tbl := l_mesg_token_tbl;
273: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
274: ( p_message_name => 'EAM_WO_ORG_EAM_ENABLED'
275: , p_token_tbl => l_token_tbl
276: , p_mesg_token_tbl => l_mesg_token_tbl
277: , x_mesg_token_tbl => l_out_mesg_token_tbl
288: END IF;
289:
290: -- maintenance_object_source
291:
292: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_source . . . '); END IF;
293:
294: begin
295:
296: if p_eam_wo_rec.maintenance_object_source is null or
311: l_token_tbl(1).token_name := 'Object Source';
312: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_source;
313:
314: l_out_mesg_token_tbl := l_mesg_token_tbl;
315: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
316: ( p_message_name => 'EAM_WO_MAINT_OBJ_SRC_REQUIRED'
317: , p_token_tbl => l_token_tbl
318: , p_mesg_token_tbl => l_mesg_token_tbl
319: , x_mesg_token_tbl => l_out_mesg_token_tbl
329: l_token_tbl(1).token_name := 'Object Source';
330: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_source;
331:
332: l_out_mesg_token_tbl := l_mesg_token_tbl;
333: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
334: ( p_message_name => 'EAM_WO_MAINT_OBJ_SOURCE'
335: , p_token_tbl => l_token_tbl
336: , p_mesg_token_tbl => l_mesg_token_tbl
337: , x_mesg_token_tbl => l_out_mesg_token_tbl
345: end;
346:
347: -- maintenance_object_type
348:
349: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_type . . . '); END IF;
350:
351: begin
352:
353: if p_eam_wo_rec.maintenance_object_type is null or
369: l_token_tbl(1).token_name := 'Object Type';
370: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_type;
371:
372: l_out_mesg_token_tbl := l_mesg_token_tbl;
373: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
374: ( p_message_name => 'EAM_WO_MAINT_OBJ_TYPE_REQUIRED'
375: , p_token_tbl => l_token_tbl
376: , p_mesg_token_tbl => l_mesg_token_tbl
377: , x_mesg_token_tbl => l_out_mesg_token_tbl
387: l_token_tbl(1).token_name := 'Object Type';
388: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_type;
389:
390: l_out_mesg_token_tbl := l_mesg_token_tbl;
391: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
392: ( p_message_name => 'EAM_WO_MAINT_OBJ_TYPE'
393: , p_token_tbl => l_token_tbl
394: , p_mesg_token_tbl => l_mesg_token_tbl
395: , x_mesg_token_tbl => l_out_mesg_token_tbl
403: end;
404:
405: -- maintenance_object_id
406:
407: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_id . . . '); END IF;
408:
409: begin
410:
411: if p_eam_wo_rec.maintenance_object_id is null or
461: l_token_tbl(1).token_name := 'Object Id';
462: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_id;
463:
464: l_out_mesg_token_tbl := l_mesg_token_tbl;
465: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
466: ( p_message_name => 'EAM_WO_MAINT_OBJ_ID_REQUIRED'
467: , p_token_tbl => l_token_tbl
468: , p_mesg_token_tbl => l_mesg_token_tbl
469: , x_mesg_token_tbl => l_out_mesg_token_tbl
479: l_token_tbl(1).token_name := 'Object Id';
480: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_id;
481:
482: l_out_mesg_token_tbl := l_mesg_token_tbl;
483: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
484: ( p_message_name => 'EAM_WO_MAINT_OBJ_ID'
485: , p_token_tbl => l_token_tbl
486: , p_mesg_token_tbl => l_mesg_token_tbl
487: , x_mesg_token_tbl => l_out_mesg_token_tbl
495: end;
496:
497: -- rebuild_item_id
498:
499: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_item_id . . . '); END IF;
500:
501: begin
502:
503: -- for CMRO work orders, the rebuild_item_id cannot be null.
516: l_token_tbl(1).token_name := 'Wip Id';
517: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
518:
519: l_out_mesg_token_tbl := l_mesg_token_tbl;
520: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
521: ( p_message_name => 'EAM_WO_REBUILD_ITEM_REQUIRED'
522: , p_token_tbl => l_token_tbl
523: , p_mesg_token_tbl => l_mesg_token_tbl
524: , x_mesg_token_tbl => l_out_mesg_token_tbl
532: end;
533:
534: -- rebuild_item_id and asset_group_id
535:
536: 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;
537:
538: begin
539:
540: -- rebuild_item_id and asset_group_id cannot both be null.
552: l_token_tbl(1).token_name := 'Wip Id';
553: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
554:
555: l_out_mesg_token_tbl := l_mesg_token_tbl;
556: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
557: ( p_message_name => 'EAM_WO_AG_RB_REQUIRED'
558: , p_token_tbl => l_token_tbl
559: , p_mesg_token_tbl => l_mesg_token_tbl
560: , x_mesg_token_tbl => l_out_mesg_token_tbl
569:
570:
571: -- wip_entity_id
572:
573: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_id . . . '); END IF;
574:
575: begin
576:
577: if p_eam_wo_rec.wip_entity_id is not null and
588: l_token_tbl(1).token_name := 'Wip Entity Id';
589: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
590:
591: l_out_mesg_token_tbl := l_mesg_token_tbl;
592: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
593: ( p_message_name => 'EAM_WO_WIP_ENTITY_ID'
594: , p_token_tbl => l_token_tbl
595: , p_mesg_token_tbl => l_mesg_token_tbl
596: , x_mesg_token_tbl => l_out_mesg_token_tbl
610: l_token_tbl(1).token_name := 'Validation (Check Attributes b4 defaulting)';
611: l_token_tbl(1).token_value := substrb(SQLERRM,1,200);
612:
613: l_out_mesg_token_tbl := l_mesg_token_tbl;
614: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
615: ( p_message_name => NULL
616: , p_token_tbl => l_token_tbl
617: , p_mesg_token_tbl => l_mesg_token_tbl
618: , x_mesg_token_tbl => l_out_mesg_token_tbl
640: PROCEDURE Check_Attributes
641: ( p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
642: , p_old_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
643: , x_return_status OUT NOCOPY VARCHAR2
644: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
645: )
646: IS
647: l_err_text VARCHAR2(2000) := NULL;
648: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
644: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
645: )
646: IS
647: l_err_text VARCHAR2(2000) := NULL;
648: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
649: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
650: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
651: l_mo_err_flag VARCHAR2(1) ;
652: l_trans_exist VARCHAR2(1);
645: )
646: IS
647: l_err_text VARCHAR2(2000) := NULL;
648: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
649: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
650: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
651: l_mo_err_flag VARCHAR2(1) ;
652: l_trans_exist VARCHAR2(1);
653:
646: IS
647: l_err_text VARCHAR2(2000) := NULL;
648: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
649: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
650: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
651: l_mo_err_flag VARCHAR2(1) ;
652: l_trans_exist VARCHAR2(1);
653:
654: l_rebuild_status NUMBER;
660: BEGIN
661: l_mo_err_flag:= '';
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
663:
664: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Within WO Check Attributes . . . '); END IF;
665:
666:
667: -- organization_id
668:
665:
666:
667: -- organization_id
668:
669: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id . . . '); END IF;
670:
671: declare
672: l_disable_date date;
673: begin
693: l_token_tbl(1).token_name := 'Organization Id';
694: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
695:
696: l_out_mesg_token_tbl := l_mesg_token_tbl;
697: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
698: ( p_message_name => 'EAM_WO_ORGANIZATION_ID'
699: , p_token_tbl => l_token_tbl
700: , p_mesg_token_tbl => l_mesg_token_tbl
701: , x_mesg_token_tbl => l_out_mesg_token_tbl
711: l_token_tbl(1).token_name := 'Organization Id';
712: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
713:
714: l_out_mesg_token_tbl := l_mesg_token_tbl;
715: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
716: ( p_message_name => 'EAM_WO_ORGANIZATION_ID'
717: , p_token_tbl => l_token_tbl
718: , p_mesg_token_tbl => l_mesg_token_tbl
719: , x_mesg_token_tbl => l_out_mesg_token_tbl
733:
734:
735: -- organization_id (EAM enabled)
736:
737: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . '); END IF;
738:
739: --Only check EAM enabled for CMRO, part of bug fix 9313320
740: IF p_eam_wo_rec.maintenance_object_source = 2 then
741:
754: l_token_tbl(1).token_name := 'Organization Id';
755: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
756:
757: l_out_mesg_token_tbl := l_mesg_token_tbl;
758: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
759: ( p_message_name => 'EAM_WO_ORG_EAM_ENABLED'
760: , p_token_tbl => l_token_tbl
761: , p_mesg_token_tbl => l_mesg_token_tbl
762: , x_mesg_token_tbl => l_out_mesg_token_tbl
786: l_token_tbl(1).token_name := 'Organization Id';
787: l_token_tbl(1).token_value := p_eam_wo_rec.organization_id;
788:
789: l_out_mesg_token_tbl := l_mesg_token_tbl;
790: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
791: ( p_message_name => 'EAM_WO_ORG_EAM_ENABLED'
792: , p_token_tbl => l_token_tbl
793: , p_mesg_token_tbl => l_mesg_token_tbl
794: , x_mesg_token_tbl => l_out_mesg_token_tbl
803:
804: END IF;
805: -- maintenance_object_type
806:
807: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_type . . . '); END IF;
808:
809: begin
810:
811: if (p_eam_wo_rec.maintenance_object_type is not null) then
825: l_token_tbl(1).token_name := 'Maintenance Object Type';
826: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_type;
827:
828: l_out_mesg_token_tbl := l_mesg_token_tbl;
829: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
830: ( p_message_name => 'EAM_WO_MAINT_OBJECT_TYPE'
831: , p_token_tbl => l_token_tbl
832: , p_mesg_token_tbl => l_mesg_token_tbl
833: , x_mesg_token_tbl => l_out_mesg_token_tbl
842:
843:
844: -- object_source_id
845:
846: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_id . . . '); END IF;
847:
848: begin
849:
850: if (p_eam_wo_rec.maintenance_object_type is not null) then
892: l_token_tbl(1).token_name := 'Maintenance Object Id';
893: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_id;
894:
895: l_out_mesg_token_tbl := l_mesg_token_tbl;
896: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
897: ( p_message_name => 'EAM_WO_MAINT_OBJECT_ID'
898: , p_token_tbl => l_token_tbl
899: , p_mesg_token_tbl => l_mesg_token_tbl
900: , x_mesg_token_tbl => l_out_mesg_token_tbl
909:
910:
911:
912: -- maintenance object
913: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance object . . . '); END IF;
914:
915: begin
916:
917: if (p_eam_wo_rec.asset_group_id is not null) and (p_eam_wo_rec.rebuild_item_id is not null) then
928: l_token_tbl(1).token_name := 'Asset Group';
929: l_token_tbl(1).token_value := p_eam_wo_rec.asset_group_id;
930:
931: l_out_mesg_token_tbl := l_mesg_token_tbl;
932: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
933: ( p_message_name => 'EAM_WO_AG_RB_DUPLICATE'
934: , p_token_tbl => l_token_tbl
935: , p_mesg_token_tbl => l_mesg_token_tbl
936: , x_mesg_token_tbl => l_out_mesg_token_tbl
943:
944: end;
945:
946: -- asset_group_id
947: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_group_id . . . '); END IF;
948:
949: begin
950:
951: 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
976: l_token_tbl(1).token_name := 'Asset Group';
977: l_token_tbl(1).token_value := p_eam_wo_rec.asset_group_id;
978:
979: l_out_mesg_token_tbl := l_mesg_token_tbl;
980: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
981: ( p_message_name => 'EAM_WO_ASSET_GROUP'
982: , p_token_tbl => l_token_tbl
983: , p_mesg_token_tbl => l_mesg_token_tbl
984: , x_mesg_token_tbl => l_out_mesg_token_tbl
991:
992: end;
993:
994: -- asset_number
995: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_number . . . '); END IF;
996:
997: begin
998:
999: 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
1018: l_token_tbl(1).token_name := 'Asset Number';
1019: l_token_tbl(1).token_value := p_eam_wo_rec.asset_number;
1020:
1021: l_out_mesg_token_tbl := l_mesg_token_tbl;
1022: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1023: ( p_message_name => 'EAM_WO_ASSET_NUMBER'
1024: , p_token_tbl => l_token_tbl
1025: , p_mesg_token_tbl => l_mesg_token_tbl
1026: , x_mesg_token_tbl => l_out_mesg_token_tbl
1035:
1036:
1037:
1038: -- eam_linear_location_id
1039: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating eam_linear_location_id . . . '); END IF;
1040:
1041: begin
1042:
1043: if (p_eam_wo_rec.transaction_type in (EAM_PROCESS_WO_PVT.G_OPR_CREATE,
1059: l_token_tbl(1).token_name := 'LIN_LOC';
1060: l_token_tbl(1).token_value := p_eam_wo_rec.eam_linear_location_id;
1061:
1062: l_out_mesg_token_tbl := l_mesg_token_tbl;
1063: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1064: ( p_message_name => 'EAM_WO_LINEAR_LOCATION'
1065: , p_token_tbl => l_token_tbl
1066: , p_mesg_token_tbl => l_mesg_token_tbl
1067: , x_mesg_token_tbl => l_out_mesg_token_tbl
1075: end;
1076:
1077:
1078: -- rebuild_item_id
1079: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_item_id . . . '); END IF;
1080:
1081: begin
1082:
1083: 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
1113: l_token_tbl(1).token_name := 'Rebuild Item Id';
1114: l_token_tbl(1).token_value := p_eam_wo_rec.rebuild_item_id;
1115:
1116: l_out_mesg_token_tbl := l_mesg_token_tbl;
1117: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1118: ( p_message_name => 'EAM_WO_REBUILD_ITEM_ID'
1119: , p_token_tbl => l_token_tbl
1120: , p_mesg_token_tbl => l_mesg_token_tbl
1121: , x_mesg_token_tbl => l_out_mesg_token_tbl
1128:
1129: end;
1130:
1131: -- rebuild_serial_number
1132: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating rebuild_serial_number . . . '); END IF;
1133:
1134: begin
1135: if (p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) then
1136:
1199: l_token_tbl(1).token_name := 'Rebuild Serial Number';
1200: l_token_tbl(1).token_value := p_eam_wo_rec.rebuild_serial_Number;
1201:
1202: l_out_mesg_token_tbl := l_mesg_token_tbl;
1203: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1204: ( p_message_name => 'EAM_WO_REBUILD_SERIAL_NUMBER'
1205: , p_token_tbl => l_token_tbl
1206: , p_mesg_token_tbl => l_mesg_token_tbl
1207: , x_mesg_token_tbl => l_out_mesg_token_tbl
1220: -- When a work order created on non instantiated rebuild serial number is released ,its must have an parent work order
1221: -- 3659469
1222:
1223: -- Serial rebuild number is required while releasing the work order if Rebuild number is serial controlled
1224: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating if rebuild_serial_number is mandatory . . . '); END IF;
1225: BEGIN
1226: IF p_eam_wo_rec.status_type = 3
1227: and p_eam_wo_rec.rebuild_item_id IS NOT NULL
1228: and p_eam_wo_rec.rebuild_serial_number IS NULL
1249: l_token_tbl(1).token_name := 'Work_Order_Id';
1250: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
1251:
1252: l_out_mesg_token_tbl := l_mesg_token_tbl;
1253: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1254: ( p_message_name => 'EAM_REBUILD_SER_REQD'
1255: , p_token_tbl => l_token_tbl
1256: , p_mesg_token_tbl => l_mesg_token_tbl
1257: , x_mesg_token_tbl => l_out_mesg_token_tbl
1264:
1265: end ;
1266:
1267: -- parent_wip_entity_id
1268: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating parent_wip_entity_id . . . '); END IF;
1269:
1270: begin
1271: /* Following validation ensures that only WO of parents of serialized
1272: rebuildables can become parent work orders of rebuild WO and any
1279:
1280: IF ( p_eam_wo_rec.maintenance_object_type = 3 and p_eam_wo_rec.maintenance_object_source = 1)
1281: THEN
1282:
1283: 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;
1284:
1285: SELECT 1
1286: INTO g_dummy
1287: FROM mtl_object_genealogy mog, mtl_serial_numbers msn, wip_discrete_jobs wdj,
1330: l_token_tbl(1).token_name := 'Parent Wip Entity Id';
1331: l_token_tbl(1).token_value := p_eam_wo_rec.parent_wip_entity_id;
1332:
1333: l_out_mesg_token_tbl := l_mesg_token_tbl;
1334: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1335: ( p_message_name => 'EAM_WO_PARENT_WIP_ENTITY_ID'
1336: , p_token_tbl => l_token_tbl
1337: , p_mesg_token_tbl => l_mesg_token_tbl
1338: , x_mesg_token_tbl => l_out_mesg_token_tbl
1373: l_token_tbl(1).token_name := 'Wip Entity Id';
1374: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
1375:
1376: l_out_mesg_token_tbl := l_mesg_token_tbl;
1377: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1378: ( p_message_name => 'EAM_WO_TRANSACTIONS_EXIST'
1379: , p_token_tbl => l_token_tbl
1380: , p_mesg_token_tbl => l_mesg_token_tbl
1381: , x_mesg_token_tbl => l_out_mesg_token_tbl
1391:
1392:
1393:
1394: -- job_name
1395: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_name . . . '); END IF;
1396:
1397: declare
1398: l_count NUMBER;
1399: begin
1420: l_token_tbl(1).token_name := 'Wip Entity Name';
1421: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
1422:
1423: l_out_mesg_token_tbl := l_mesg_token_tbl;
1424: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1425: ( p_message_name => 'EAM_WO_WIP_ENTITY_NAME'
1426: , p_token_tbl => l_token_tbl
1427: , p_mesg_token_tbl => l_mesg_token_tbl
1428: , x_mesg_token_tbl => l_out_mesg_token_tbl
1436: end;
1437:
1438:
1439: -- job_id
1440: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_id . . . '); END IF;
1441:
1442: declare
1443: l_count NUMBER;
1444: begin
1463: l_token_tbl(1).token_name := 'Wip Entity Id';
1464: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_id;
1465:
1466: l_out_mesg_token_tbl := l_mesg_token_tbl;
1467: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1468: ( p_message_name => 'EAM_WO_WIP_ENTITY_ID'
1469: , p_token_tbl => l_token_tbl
1470: , p_mesg_token_tbl => l_mesg_token_tbl
1471: , x_mesg_token_tbl => l_out_mesg_token_tbl
1479: end;
1480:
1481:
1482: -- firm_planned_flag
1483: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating firm_planned_flag . . . '); END IF;
1484:
1485: begin
1486:
1487: if p_eam_wo_rec.firm_planned_flag not in (wip_constants.yes, wip_constants.no) then
1498: l_token_tbl(1).token_name := 'Firm Planned Flag';
1499: l_token_tbl(1).token_value := p_eam_wo_rec.firm_planned_flag;
1500:
1501: l_out_mesg_token_tbl := l_mesg_token_tbl;
1502: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1503: ( p_message_name => 'EAM_WO_FIRM_PLANNED_FLAG'
1504: , p_token_tbl => l_token_tbl
1505: , p_mesg_token_tbl => l_mesg_token_tbl
1506: , x_mesg_token_tbl => l_out_mesg_token_tbl
1515:
1516:
1517:
1518: -- issue_zero_cost_flag
1519: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_entity_name . . . '); END IF;
1520:
1521: declare
1522: l_count NUMBER;
1523: begin
1536: l_token_tbl(1).token_name := 'ISSUE_ZERO_FLAG';
1537: l_token_tbl(1).token_value := p_eam_wo_rec.issue_zero_cost_flag;
1538:
1539: l_out_mesg_token_tbl := l_mesg_token_tbl;
1540: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1541: ( p_message_name => 'EAM_WO_ISSUE_ZERO_COST_FLAG'
1542: , p_token_tbl => l_token_tbl
1543: , p_mesg_token_tbl => l_mesg_token_tbl
1544: , x_mesg_token_tbl => l_out_mesg_token_tbl
1553:
1554:
1555:
1556: -- schedule_group_id
1557: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating schedule_group_id . . . '); END IF;
1558: begin
1559:
1560: if p_eam_wo_rec.schedule_group_id is not null then
1561:
1574: l_token_tbl(1).token_name := 'Schedule Group Id';
1575: l_token_tbl(1).token_value := p_eam_wo_rec.schedule_group_id;
1576:
1577: l_out_mesg_token_tbl := l_mesg_token_tbl;
1578: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1579: ( p_message_name => 'EAM_WO_SCHEDULE_GROUP'
1580: , p_token_tbl => l_token_tbl
1581: , p_mesg_token_tbl => l_mesg_token_tbl
1582: , x_mesg_token_tbl => l_out_mesg_token_tbl
1588: return;
1589:
1590: end;
1591:
1592: 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;
1593: --attribute change not allowed for comp_no_chrg,closed,pending-close,failed-close and cancelled
1594: 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;
1595: --start of fix for 3389850
1596:
1590: end;
1591:
1592: 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;
1593: --attribute change not allowed for comp_no_chrg,closed,pending-close,failed-close and cancelled
1594: 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;
1595: --start of fix for 3389850
1596:
1597: begin
1598: IF ( p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE )
1681: l_token_tbl(1).token_name := 'STATUS_TYPE';
1682: l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
1683:
1684: l_out_mesg_token_tbl := l_mesg_token_tbl;
1685: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1686: ( p_message_name => 'EAM_WO_CH_ATTR_DISALLOWED'
1687: , p_token_tbl => l_token_tbl
1688: , p_mesg_token_tbl => l_mesg_token_tbl
1689: , x_mesg_token_tbl => l_out_mesg_token_tbl
1698:
1699: --end of fix for 3389850
1700:
1701: -- status_type
1702: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type . . . '); END IF;
1703:
1704: declare
1705:
1706: l_count number;
1747: l_token_tbl(1).token_name := 'Status type';
1748: l_token_tbl(1).token_value := p_eam_wo_rec.status_type;
1749:
1750: l_out_mesg_token_tbl := l_mesg_token_tbl;
1751: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1752: ( p_message_name => 'EAM_WO_STATUS_TYPE'
1753: , p_token_tbl => l_token_tbl
1754: , p_mesg_token_tbl => l_mesg_token_tbl
1755: , x_mesg_token_tbl => l_out_mesg_token_tbl
1763: end;
1764:
1765:
1766: -- job_quantity
1767: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating job_quantity . . . '); END IF;
1768:
1769: begin
1770:
1771: if(p_eam_wo_rec.job_quantity <> 1) then
1780: l_token_tbl(1).token_name := 'Job Quantity';
1781: l_token_tbl(1).token_value := p_eam_wo_rec.job_quantity;
1782:
1783: l_out_mesg_token_tbl := l_mesg_token_tbl;
1784: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1785: ( p_message_name => 'EAM_WO_JOB_QUANTITY'
1786: , p_token_tbl => l_token_tbl
1787: , p_mesg_token_tbl => l_mesg_token_tbl
1788: , x_mesg_token_tbl => l_out_mesg_token_tbl
1796: end;
1797:
1798:
1799: -- primary_item_id (asset activity)
1800: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_activity_id . . . '); END IF;
1801:
1802: declare
1803: l_eam_op_tbl EAM_PROCESS_WO_PUB.EAM_OP_TBL_TYPE;
1804: l_mat_req_exists number;
1840: exception
1841: when fnd_api.g_exc_unexpected_error then
1842:
1843: l_out_mesg_token_tbl := l_mesg_token_tbl;
1844: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1845: ( p_message_name => 'EAM_CANT_UPDATE_ACTIVITY'
1846: , p_token_tbl => l_token_tbl
1847: , p_mesg_token_tbl => l_mesg_token_tbl
1848: , x_mesg_token_tbl => l_out_mesg_token_tbl
1855:
1856: when ACTIVITY_WO_EXISTS then
1857:
1858: l_out_mesg_token_tbl := l_mesg_token_tbl;
1859: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1860: ( p_message_name => 'EAM_ACTIVITY_WO_EXISTS'
1861: , p_token_tbl => l_token_tbl
1862: , p_mesg_token_tbl => l_mesg_token_tbl
1863: , x_mesg_token_tbl => l_out_mesg_token_tbl
1873: l_token_tbl(1).token_name := 'Asset Activity Id';
1874: l_token_tbl(1).token_value := p_eam_wo_rec.asset_activity_id;
1875:
1876: l_out_mesg_token_tbl := l_mesg_token_tbl;
1877: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1878: ( p_message_name => 'EAM_WO_ASSET_ACTIVITY'
1879: , p_token_tbl => l_token_tbl
1880: , p_mesg_token_tbl => l_mesg_token_tbl
1881: , x_mesg_token_tbl => l_out_mesg_token_tbl
1891:
1892:
1893: -- asset activity association
1894:
1895: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating asset_activity_association . . . '); END IF;
1896:
1897: declare
1898: l_start_date DATE;
1899: l_end_date DATE;
1948: exception
1949: WHEN l_wo_asset_activity_err THEN
1950:
1951: l_out_mesg_token_tbl := l_mesg_token_tbl;
1952: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1953: ( p_message_name => 'EAM_WO_ASSET_ACTIVITY_DATES'
1954: , p_token_tbl => l_token_tbl
1955: , p_mesg_token_tbl => l_mesg_token_tbl
1956: , x_mesg_token_tbl => l_out_mesg_token_tbl
1966: l_token_tbl(1).token_name := 'Asset Activity Id';
1967: l_token_tbl(1).token_value := p_eam_wo_rec.asset_activity_id;
1968:
1969: l_out_mesg_token_tbl := l_mesg_token_tbl;
1970: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
1971: ( p_message_name => 'EAM_WO_ASSET_ACTIVITY_ASSOC'
1972: , p_token_tbl => l_token_tbl
1973: , p_mesg_token_tbl => l_mesg_token_tbl
1974: , x_mesg_token_tbl => l_out_mesg_token_tbl
1982: end;
1983:
1984:
1985: -- wip_supply_type
1986: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating wip_supply_type . . . '); END IF;
1987:
1988: begin
1989:
1990: 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
2002: l_token_tbl(1).token_name := 'Wip Supply Type';
2003: l_token_tbl(1).token_value := p_eam_wo_rec.wip_supply_type;
2004:
2005: l_out_mesg_token_tbl := l_mesg_token_tbl;
2006: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2007: ( p_message_name => 'EAM_WO_WIP_SUPPLY_TYPE'
2008: , p_token_tbl => l_token_tbl
2009: , p_mesg_token_tbl => l_mesg_token_tbl
2010: , x_mesg_token_tbl => l_out_mesg_token_tbl
2018: end;
2019:
2020:
2021: -- alternate_routing_designator
2022: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating alternate_routing_designator . . . '); END IF;
2023:
2024: begin
2025:
2026: if p_eam_wo_rec.alternate_routing_designator is not null then
2043: l_token_tbl(1).token_name := 'Alternate Routing Designator';
2044: l_token_tbl(1).token_value := p_eam_wo_rec.alternate_routing_designator;
2045:
2046: l_out_mesg_token_tbl := l_mesg_token_tbl;
2047: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2048: ( p_message_name => 'EAM_WO_ALTERNATE_ROUTING'
2049: , p_token_tbl => l_token_tbl
2050: , p_mesg_token_tbl => l_mesg_token_tbl
2051: , x_mesg_token_tbl => l_out_mesg_token_tbl
2058:
2059: end;
2060:
2061: -- alternate_bom_designator
2062: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating alternate_bom_designator . . . '); END IF;
2063:
2064: begin
2065:
2066: if p_eam_wo_rec.alternate_bom_designator is not null then
2083: l_token_tbl(1).token_name := 'Alternate BOM Designator';
2084: l_token_tbl(1).token_value := p_eam_wo_rec.alternate_bom_designator;
2085:
2086: l_out_mesg_token_tbl := l_mesg_token_tbl;
2087: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2088: ( p_message_name => 'EAM_WO_ALTERNATE_BOM'
2089: , p_token_tbl => l_token_tbl
2090: , p_mesg_token_tbl => l_mesg_token_tbl
2091: , x_mesg_token_tbl => l_out_mesg_token_tbl
2098:
2099: end;
2100:
2101: -- project_id
2102: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating project_id . . . '); END IF;
2103:
2104: declare
2105:
2106: l_min_date DATE;
2145: l_token_tbl(1).token_name := 'Project Id';
2146: l_token_tbl(1).token_value := p_eam_wo_rec.project_id;
2147:
2148: l_out_mesg_token_tbl := l_mesg_token_tbl;
2149: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2150: ( p_message_name => 'EAM_WO_PROJECT_ID'
2151: , p_token_tbl => l_token_tbl
2152: , p_mesg_token_tbl => l_mesg_token_tbl
2153: , x_mesg_token_tbl => l_out_mesg_token_tbl
2161: end;
2162:
2163:
2164: -- task_id
2165: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating task_id . . . '); END IF;
2166:
2167: declare
2168:
2169: l_min_date DATE;
2205: l_token_tbl(1).token_name := 'Task Id';
2206: l_token_tbl(1).token_value := p_eam_wo_rec.task_id;
2207:
2208: l_out_mesg_token_tbl := l_mesg_token_tbl;
2209: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2210: ( p_message_name => 'EAM_WO_TASK_ID'
2211: , p_token_tbl => l_token_tbl
2212: , p_mesg_token_tbl => l_mesg_token_tbl
2213: , x_mesg_token_tbl => l_out_mesg_token_tbl
2223:
2224:
2225: -- schedule_dates 0
2226:
2227: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating PM Suggested dates . . . '); END IF;
2228:
2229: begin
2230:
2231: if p_eam_wo_rec.pm_suggested_start_date is not null and
2243: l_token_tbl(1).token_name := 'Wip Entity Name';
2244: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
2245:
2246: l_out_mesg_token_tbl := l_mesg_token_tbl;
2247: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2248: ( p_message_name => 'EAM_WO_TOO_MANY_PM_DATE'
2249: , p_token_tbl => l_token_tbl
2250: , p_mesg_token_tbl => l_mesg_token_tbl
2251: , x_mesg_token_tbl => l_out_mesg_token_tbl
2260:
2261:
2262: -- schedule_dates 1
2263:
2264: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating due_date, requested_start_date . . . '); END IF;
2265:
2266: begin
2267:
2268: if p_eam_wo_rec.due_date is not null and
2280: l_token_tbl(1).token_name := 'Wip Entity Name';
2281: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
2282:
2283: l_out_mesg_token_tbl := l_mesg_token_tbl;
2284: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2285: ( p_message_name => 'EAM_WO_TOO_MANY_DATE'
2286: , p_token_tbl => l_token_tbl
2287: , p_mesg_token_tbl => l_mesg_token_tbl
2288: , x_mesg_token_tbl => l_out_mesg_token_tbl
2297:
2298:
2299: -- schedule_dates 2
2300:
2301: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating due_date, requested_start_date . . . '); END IF;
2302:
2303: begin
2304:
2305: if p_eam_wo_rec.due_date is null and
2317: l_token_tbl(1).token_name := 'Wip Entity Name';
2318: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
2319:
2320: l_out_mesg_token_tbl := l_mesg_token_tbl;
2321: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2322: ( p_message_name => 'EAM_WO_NEED_DATE'
2323: , p_token_tbl => l_token_tbl
2324: , p_mesg_token_tbl => l_mesg_token_tbl
2325: , x_mesg_token_tbl => l_out_mesg_token_tbl
2333: end;
2334:
2335:
2336: -- schedule_dates 3
2337: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating schedule_dates . . . '); END IF;
2338:
2339: declare
2340: l_rtg_count NUMBER;
2341: l_date_count NUMBER := 0;
2383: l_token_tbl(1).token_name := 'Scheduled Start Date';
2384: l_token_tbl(1).token_value := p_eam_wo_rec.scheduled_start_date;
2385:
2386: l_out_mesg_token_tbl := l_mesg_token_tbl;
2387: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2388: ( p_message_name => 'EAM_WO_SCHEDULE_DATE'
2389: , p_token_tbl => l_token_tbl
2390: , p_mesg_token_tbl => l_mesg_token_tbl
2391: , x_mesg_token_tbl => l_out_mesg_token_tbl
2406: END IF;
2407: exception
2408: when fnd_api.g_exc_unexpected_error then
2409: l_out_mesg_token_tbl := l_mesg_token_tbl;
2410: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2411: ( p_message_name => 'EAM_WO_SCHEDULE_DATE_MORE'
2412: , p_token_tbl => l_token_tbl
2413: , p_mesg_token_tbl => l_mesg_token_tbl
2414: , x_mesg_token_tbl => l_out_mesg_token_tbl
2422: --end of fix for 3396136
2423:
2424:
2425: -- end_item_unit_number
2426: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating end_item_unit_number . . . '); END IF;
2427:
2428: declare
2429: is_unit_effective_item boolean;
2430: l_bom_item_id NUMBER;
2464: l_token_tbl(1).token_name := 'Unit Number';
2465: l_token_tbl(1).token_value := p_eam_wo_rec.end_item_unit_number;
2466:
2467: l_out_mesg_token_tbl := l_mesg_token_tbl;
2468: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2469: ( p_message_name => 'EAM_WO_UNIT_NUMBER'
2470: , p_token_tbl => l_token_tbl
2471: , p_mesg_token_tbl => l_mesg_token_tbl
2472: , x_mesg_token_tbl => l_out_mesg_token_tbl
2480: end;
2481:
2482:
2483: -- class_code
2484: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating class_code . . . '); END IF;
2485:
2486: declare
2487: l_disable_date date;
2488: WO_CANT_CH_WIPACCT exception;
2528:
2529: when WO_CANT_CH_WIPACCT then
2530:
2531: l_out_mesg_token_tbl := l_mesg_token_tbl;
2532: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2533: ( p_message_name => 'EAM_WIPACT_CANNOT_CH'
2534: , p_token_tbl => l_token_tbl
2535: , p_mesg_token_tbl => l_mesg_token_tbl
2536: , x_mesg_token_tbl => l_out_mesg_token_tbl
2546: l_token_tbl(1).token_name := 'Class Code';
2547: l_token_tbl(1).token_value := p_eam_wo_rec.class_code;
2548:
2549: l_out_mesg_token_tbl := l_mesg_token_tbl;
2550: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2551: ( p_message_name => 'EAM_WO_CLASS_CODE'
2552: , p_token_tbl => l_token_tbl
2553: , p_mesg_token_tbl => l_mesg_token_tbl
2554: , x_mesg_token_tbl => l_out_mesg_token_tbl
2562: end;
2563:
2564:
2565: -- bom_revision
2566: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating bom_revision . . . '); END IF;
2567:
2568: declare
2569: l_start_date DATE;
2570: begin
2585: l_token_tbl(1).token_name := 'BOM Revision';
2586: l_token_tbl(1).token_value := p_eam_wo_rec.bom_revision;
2587:
2588: l_out_mesg_token_tbl := l_mesg_token_tbl;
2589: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2590: ( p_message_name => 'EAM_WO_BOM_REVISION'
2591: , p_token_tbl => l_token_tbl
2592: , p_mesg_token_tbl => l_mesg_token_tbl
2593: , x_mesg_token_tbl => l_out_mesg_token_tbl
2602: end;
2603:
2604:
2605: -- routing_revision
2606: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating routing_revision . . . '); END IF;
2607:
2608: declare
2609: l_start_date DATE;
2610: l_count NUMBER;
2637: l_token_tbl(1).token_name := 'Routing Revision';
2638: l_token_tbl(1).token_value := p_eam_wo_rec.routing_revision;
2639:
2640: l_out_mesg_token_tbl := l_mesg_token_tbl;
2641: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2642: ( p_message_name => 'EAM_WO_ROUTING_REVISION'
2643: , p_token_tbl => l_token_tbl
2644: , p_mesg_token_tbl => l_mesg_token_tbl
2645: , x_mesg_token_tbl => l_out_mesg_token_tbl
2653: end;
2654:
2655:
2656: -- manual_rebuild_flag
2657: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating manual_rebuild_flag . . . '); END IF;
2658:
2659: begin
2660: if (p_eam_wo_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) then
2661: if(p_eam_wo_rec.manual_rebuild_flag is not null and
2678: l_token_tbl(1).token_name := 'Manual Rebuild Flag';
2679: l_token_tbl(1).token_value := p_eam_wo_rec.manual_rebuild_flag;
2680:
2681: l_out_mesg_token_tbl := l_mesg_token_tbl;
2682: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2683: ( p_message_name => 'EAM_WO_MANUAL_REBUILD_FLAG'
2684: , p_token_tbl => l_token_tbl
2685: , p_mesg_token_tbl => l_mesg_token_tbl
2686: , x_mesg_token_tbl => l_out_mesg_token_tbl
2693:
2694: end;
2695:
2696: -- owning_department
2697: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating owing_department_id . . . '); END IF;
2698:
2699: declare
2700: l_job_date DATE;
2701: l_disable_date DATE;
2728: AND bd.organization_id = p_eam_wo_rec.organization_id;
2729:
2730:
2731: l_out_mesg_token_tbl := l_mesg_token_tbl;
2732: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2733: ( p_message_name => 'EAM_WO_OWNING_DEPARTMENT'
2734: , p_token_tbl => l_token_tbl
2735: , p_mesg_token_tbl => l_mesg_token_tbl
2736: , x_mesg_token_tbl => l_out_mesg_token_tbl
2743:
2744: end;
2745:
2746: -- notification_required
2747: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating notification_required . . . '); END IF;
2748:
2749: begin
2750: if (p_eam_wo_rec.notification_required is not null and
2751: p_eam_wo_rec.notification_required not in ('Y', 'N')) then
2760: l_token_tbl(1).token_name := 'Notification Required';
2761: l_token_tbl(1).token_value := p_eam_wo_rec.notification_required;
2762:
2763: l_out_mesg_token_tbl := l_mesg_token_tbl;
2764: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2765: ( p_message_name => 'EAM_WO_NOTIFICATION_REQUIRED'
2766: , p_token_tbl => l_token_tbl
2767: , p_mesg_token_tbl => l_mesg_token_tbl
2768: , x_mesg_token_tbl => l_out_mesg_token_tbl
2775:
2776: end;
2777:
2778: -- shutdown_type
2779: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating shutdown_type . . . '); END IF;
2780:
2781: begin
2782: if p_eam_wo_rec.shutdown_type is not null then
2783: select 1
2796: l_token_tbl(1).token_name := 'Shutdown Type';
2797: l_token_tbl(1).token_value := p_eam_wo_rec.shutdown_type;
2798:
2799: l_out_mesg_token_tbl := l_mesg_token_tbl;
2800: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2801: ( p_message_name => 'EAM_WO_SHUTDOWN_TYPE'
2802: , p_token_tbl => l_token_tbl
2803: , p_mesg_token_tbl => l_mesg_token_tbl
2804: , x_mesg_token_tbl => l_out_mesg_token_tbl
2811:
2812: end;
2813:
2814: -- tagout_required
2815: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating tagout_required . . . '); END IF;
2816:
2817: begin
2818: if (p_eam_wo_rec.tagout_required is not null and
2819: p_eam_wo_rec.tagout_required not in ('Y', 'N')) then
2828: l_token_tbl(1).token_name := 'Tagout Required';
2829: l_token_tbl(1).token_value := p_eam_wo_rec.tagout_required;
2830:
2831: l_out_mesg_token_tbl := l_mesg_token_tbl;
2832: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2833: ( p_message_name => 'EAM_WO_TAGOUT_REQUIRED'
2834: , p_token_tbl => l_token_tbl
2835: , p_mesg_token_tbl => l_mesg_token_tbl
2836: , x_mesg_token_tbl => l_out_mesg_token_tbl
2843:
2844: end;
2845:
2846: -- plan_maintenance
2847: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating plan_maintenance . . . '); END IF;
2848:
2849: begin
2850: if p_eam_wo_rec.plan_maintenance is not null and
2851: p_eam_wo_rec.plan_maintenance not in ('Y', 'N') then
2860: l_token_tbl(1).token_name := 'Plan Maintenance';
2861: l_token_tbl(1).token_value := p_eam_wo_rec.plan_maintenance;
2862:
2863: l_out_mesg_token_tbl := l_mesg_token_tbl;
2864: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2865: ( p_message_name => 'EAM_WO_PLAN_MAINTENANCE'
2866: , p_token_tbl => l_token_tbl
2867: , p_mesg_token_tbl => l_mesg_token_tbl
2868: , x_mesg_token_tbl => l_out_mesg_token_tbl
2875:
2876: end;
2877:
2878: -- work_order_type
2879: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating work_order_type . . . '); END IF;
2880:
2881: begin
2882: if p_eam_wo_rec.work_order_type is not null then
2883: select 1
2896: l_token_tbl(1).token_name := 'Work Order Type';
2897: l_token_tbl(1).token_value := p_eam_wo_rec.work_order_type;
2898:
2899: l_out_mesg_token_tbl := l_mesg_token_tbl;
2900: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2901: ( p_message_name => 'EAM_WO_WORK_ORDER_TYPE'
2902: , p_token_tbl => l_token_tbl
2903: , p_mesg_token_tbl => l_mesg_token_tbl
2904: , x_mesg_token_tbl => l_out_mesg_token_tbl
2911:
2912: end;
2913:
2914: -- activity_type
2915: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating activity_type . . . '); END IF;
2916:
2917: begin
2918: if p_eam_wo_rec.activity_type is not null then
2919: select 1
2932: l_token_tbl(1).token_name := 'Activity Type';
2933: l_token_tbl(1).token_value := p_eam_wo_rec.activity_type;
2934:
2935: l_out_mesg_token_tbl := l_mesg_token_tbl;
2936: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2937: ( p_message_name => 'EAM_WO_ACTIVITY_TYPE'
2938: , p_token_tbl => l_token_tbl
2939: , p_mesg_token_tbl => l_mesg_token_tbl
2940: , x_mesg_token_tbl => l_out_mesg_token_tbl
2947:
2948: end;
2949:
2950: -- activity_cause
2951: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating activity_cause . . . '); END IF;
2952:
2953: begin
2954: if p_eam_wo_rec.activity_cause is not null then
2955: select 1
2968: l_token_tbl(1).token_name := 'Activity Cause';
2969: l_token_tbl(1).token_value := p_eam_wo_rec.activity_cause;
2970:
2971: l_out_mesg_token_tbl := l_mesg_token_tbl;
2972: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
2973: ( p_message_name => 'EAM_WO_ACTIVITY_CAUSE'
2974: , p_token_tbl => l_token_tbl
2975: , p_mesg_token_tbl => l_mesg_token_tbl
2976: , x_mesg_token_tbl => l_out_mesg_token_tbl
2985:
2986:
2987:
2988: -- activity_source
2989: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating activity_source . . . '); END IF;
2990:
2991: begin
2992: if p_eam_wo_rec.activity_source is not null then
2993: select 1
3006: l_token_tbl(1).token_name := 'Activity Source';
3007: l_token_tbl(1).token_value := p_eam_wo_rec.activity_source;
3008:
3009: l_out_mesg_token_tbl := l_mesg_token_tbl;
3010: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3011: ( p_message_name => 'EAM_WO_ACTIVITY_SOURCE'
3012: , p_token_tbl => l_token_tbl
3013: , p_mesg_token_tbl => l_mesg_token_tbl
3014: , x_mesg_token_tbl => l_out_mesg_token_tbl
3022: end;
3023:
3024:
3025: -- date_released
3026: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating accounting_period . . . '); END IF;
3027:
3028: --bug#4425025 - need to validate period only when releasing the first time.
3029: 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;
3030:
3025: -- date_released
3026: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating accounting_period . . . '); END IF;
3027:
3028: --bug#4425025 - need to validate period only when releasing the first time.
3029: 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;
3030:
3031: declare
3032: l_date_released_calc DATE;
3033: l_min_open_period_date DATE;
3075: l_token_tbl(1).token_name := 'Date Released';
3076: l_token_tbl(1).token_value := trunc(l_date_released_calc);
3077:
3078: l_out_mesg_token_tbl := l_mesg_token_tbl;
3079: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3080: ( p_message_name => 'EAM_WO_NO_ACCT_PERIOD'
3081: , p_token_tbl => l_token_tbl
3082: , p_mesg_token_tbl => l_mesg_token_tbl
3083: , x_mesg_token_tbl => l_out_mesg_token_tbl
3092:
3093:
3094: -- maintenance_object_source
3095:
3096: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating maintenance_object_source . . . '); END IF;
3097:
3098: begin
3099:
3100: if (p_eam_wo_rec.maintenance_object_source is not null) then
3114: l_token_tbl(1).token_name := 'Maintenance Object Source';
3115: l_token_tbl(1).token_value := p_eam_wo_rec.maintenance_object_source;
3116:
3117: l_out_mesg_token_tbl := l_mesg_token_tbl;
3118: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3119: ( p_message_name => 'EAM_WO_MAINT_OBJECT_SOURCE'
3120: , p_token_tbl => l_token_tbl
3121: , p_mesg_token_tbl => l_mesg_token_tbl
3122: , x_mesg_token_tbl => l_out_mesg_token_tbl
3131:
3132:
3133: -- user_id
3134:
3135: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating user_id . . . '); END IF;
3136:
3137: begin
3138:
3139: if (p_eam_wo_rec.user_id is not null) then
3152: l_token_tbl(1).token_name := 'USER_ID';
3153: l_token_tbl(1).token_value := p_eam_wo_rec.user_id;
3154:
3155: l_out_mesg_token_tbl := l_mesg_token_tbl;
3156: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3157: ( p_message_name => 'EAM_WO_USER'
3158: , p_token_tbl => l_token_tbl
3159: , p_mesg_token_tbl => l_mesg_token_tbl
3160: , x_mesg_token_tbl => l_out_mesg_token_tbl
3169:
3170:
3171: -- responsibility_id
3172:
3173: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating responsibility_id . . . '); END IF;
3174:
3175: begin
3176:
3177: /* if (p_eam_wo_rec.responsibility_id is not null) then
3206: l_token_tbl(1).token_name := 'RESPONSIBILITY_ID';
3207: l_token_tbl(1).token_value := p_eam_wo_rec.responsibility_id;
3208:
3209: l_out_mesg_token_tbl := l_mesg_token_tbl;
3210: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3211: ( p_message_name => 'EAM_WO_RESPONSIBILITY'
3212: , p_token_tbl => l_token_tbl
3213: , p_mesg_token_tbl => l_mesg_token_tbl
3214: , x_mesg_token_tbl => l_out_mesg_token_tbl
3222: end;
3223:
3224: -- user_defined_status_id
3225:
3226: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating user_defined_status_id . . . '); END IF;
3227:
3228: begin
3229:
3230: IF (p_eam_wo_rec.user_defined_status_id IS NOT NULL) AND
3246: l_token_tbl(1).token_name := 'USER_DEFINED_STATUS_ID';
3247: l_token_tbl(1).token_value := p_eam_wo_rec.user_defined_status_id;
3248:
3249: l_out_mesg_token_tbl := l_mesg_token_tbl;
3250: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3251: ( p_message_name => 'EAM_WO_DIS_USER_DEFINED_STATUS'
3252: , p_token_tbl => l_token_tbl
3253: , p_mesg_token_tbl => l_mesg_token_tbl
3254: , x_mesg_token_tbl => l_out_mesg_token_tbl
3262: end;
3263:
3264: -- material_issue_by_mo
3265:
3266: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . . . '); END IF;
3267:
3268: begin
3269:
3270: if (p_eam_wo_rec.material_issue_by_mo is null) then
3280: 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*/
3281: and p_eam_wo_rec.material_issue_by_mo <> p_old_eam_wo_rec.material_issue_by_mo then
3282:
3283: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN
3284: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .wip_entity_id' || p_eam_wo_rec.wip_entity_id);
3285: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .org_id' || p_eam_wo_rec.organization_id);
3286: END IF;
3287:
3288: 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*/
3281: and p_eam_wo_rec.material_issue_by_mo <> p_old_eam_wo_rec.material_issue_by_mo then
3282:
3283: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN
3284: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .wip_entity_id' || p_eam_wo_rec.wip_entity_id);
3285: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating material_issue_by_mo flag . .org_id' || p_eam_wo_rec.organization_id);
3286: END IF;
3287:
3288: 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*/
3289: -- If material allocation has been done then raise error
3307: when fnd_api.g_exc_error then
3308: l_out_mesg_token_tbl := l_mesg_token_tbl;
3309:
3310: If l_mo_err_flag = '1' Then
3311: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3312: ( p_message_name => 'EAM_WO_MTL_ISS_DISALLOWED'
3313: , p_token_tbl => l_token_tbl
3314: , p_mesg_token_tbl => l_mesg_token_tbl
3315: , x_mesg_token_tbl => l_out_mesg_token_tbl
3314: , p_mesg_token_tbl => l_mesg_token_tbl
3315: , x_mesg_token_tbl => l_out_mesg_token_tbl
3316: );
3317: Else
3318: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3319: ( p_message_name => 'EAM_WO_MTL_ALRDY_ISSUED'
3320: , p_token_tbl => l_token_tbl
3321: , p_mesg_token_tbl => l_mesg_token_tbl
3322: , x_mesg_token_tbl => l_out_mesg_token_tbl
3332:
3333: when others then
3334:
3335: l_out_mesg_token_tbl := l_mesg_token_tbl;
3336: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3337: ( p_message_name => 'EAM_WO_MTL_ISSUE_BY_MO'
3338: , p_token_tbl => l_token_tbl
3339: , p_mesg_token_tbl => l_mesg_token_tbl
3340: , x_mesg_token_tbl => l_out_mesg_token_tbl
3348: end;
3349:
3350: -- Bug # 4709084 : FAILURE ANALYSIS : Check for failure_code_required..
3351: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN
3352: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating failure_code_required . . . ');
3353: END IF;
3354:
3355: if (p_eam_wo_rec.failure_code_required is not null and p_eam_wo_rec.failure_code_required not in ('Y', 'N')) then
3356: l_token_tbl(1).token_name := 'failure_code_required';
3355: if (p_eam_wo_rec.failure_code_required is not null and p_eam_wo_rec.failure_code_required not in ('Y', 'N')) then
3356: l_token_tbl(1).token_name := 'failure_code_required';
3357: l_token_tbl(1).token_value := p_eam_wo_rec.failure_code_required;
3358: l_out_mesg_token_tbl := l_mesg_token_tbl;
3359: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3360: ( p_message_name => 'EAM_WO_FAILURE_CODE_REQUIRED'
3361: , p_token_tbl => l_token_tbl
3362: , p_mesg_token_tbl => l_mesg_token_tbl
3363: , x_mesg_token_tbl => l_out_mesg_token_tbl
3376: l_token_tbl(1).token_name := 'Validation (Check Attributes)';
3377: l_token_tbl(1).token_value := substrb(SQLERRM,1,200);
3378:
3379: l_out_mesg_token_tbl := l_mesg_token_tbl;
3380: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3381: ( p_message_name => NULL
3382: , p_token_tbl => l_token_tbl
3383: , p_mesg_token_tbl => l_mesg_token_tbl
3384: , x_mesg_token_tbl => l_out_mesg_token_tbl
3401:
3402: PROCEDURE Check_Required
3403: ( p_eam_wo_rec IN EAM_PROCESS_WO_PUB.eam_wo_rec_type
3404: , x_return_status OUT NOCOPY VARCHAR2
3405: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
3406: )
3407: IS
3408: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3409: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3404: , x_return_status OUT NOCOPY VARCHAR2
3405: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
3406: )
3407: IS
3408: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3409: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3410: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
3411: BEGIN
3412:
3405: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
3406: )
3407: IS
3408: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3409: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3410: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
3411: BEGIN
3412:
3413: x_return_status := FND_API.G_RET_STS_SUCCESS;
3406: )
3407: IS
3408: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3409: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
3410: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
3411: BEGIN
3412:
3413: x_return_status := FND_API.G_RET_STS_SUCCESS;
3414:
3417: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3418: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3419:
3420: l_out_mesg_token_tbl := l_mesg_token_tbl;
3421: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3422: ( p_message_name => 'EAM_WO_ORG_REQUIRED'
3423: , p_token_tbl => l_Token_tbl
3424: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3425: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3437: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3438: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3439:
3440: l_out_mesg_token_tbl := l_mesg_token_tbl;
3441: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3442: ( p_message_name => 'EAM_WO_MAINT_ASSET_REQUIRED'
3443: , p_token_tbl => l_Token_tbl
3444: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3445: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3456: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3457: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3458:
3459: l_out_mesg_token_tbl := l_mesg_token_tbl;
3460: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3461: ( p_message_name => 'EAM_WO_WAC_REQUIRED'
3462: , p_token_tbl => l_Token_tbl
3463: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3464: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3481: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3482: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3483:
3484: l_out_mesg_token_tbl := l_mesg_token_tbl;
3485: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3486: ( p_message_name => 'EAM_WO_DEPT_REQUIRED'
3487: , p_token_tbl => l_Token_tbl
3488: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3489: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3501: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3502: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3503:
3504: l_out_mesg_token_tbl := l_mesg_token_tbl;
3505: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3506: ( p_message_name => 'EAM_WO_WIP_ENTITY_ID_REQUIRED'
3507: , p_token_tbl => l_Token_tbl
3508: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3509: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3519: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3520: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3521:
3522: l_out_mesg_token_tbl := l_mesg_token_tbl;
3523: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3524: ( p_message_name => 'EAM_WO_WIP_NAME_REQUIRED'
3525: , p_token_tbl => l_Token_tbl
3526: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3527: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3537: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3538: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3539:
3540: l_out_mesg_token_tbl := l_mesg_token_tbl;
3541: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3542: ( p_message_name => 'EAM_WO_STATUS_TYPE_REQUIRED'
3543: , p_token_tbl => l_Token_tbl
3544: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3545: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3556: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3557: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3558:
3559: l_out_mesg_token_tbl := l_mesg_token_tbl;
3560: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3561: ( p_message_name => 'EAM_WO_JOB_QTY_REQUIRED'
3562: , p_token_tbl => l_Token_tbl
3563: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3564: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3575: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3576: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3577:
3578: l_out_mesg_token_tbl := l_mesg_token_tbl;
3579: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3580: ( p_message_name => 'EAM_WO_FIRM_FLAG_REQUIRED'
3581: , p_token_tbl => l_Token_tbl
3582: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3583: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3593: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3594: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3595:
3596: l_out_mesg_token_tbl := l_mesg_token_tbl;
3597: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3598: ( p_message_name => 'EAM_WO_SUPPLY_TYPE_REQUIRED'
3599: , p_token_tbl => l_Token_tbl
3600: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3601: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3611: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3612: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3613:
3614: l_out_mesg_token_tbl := l_mesg_token_tbl;
3615: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3616: ( p_message_name => 'EAM_WO_START_DATE_REQUIRED'
3617: , p_token_tbl => l_Token_tbl
3618: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3619: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3629: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3630: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3631:
3632: l_out_mesg_token_tbl := l_mesg_token_tbl;
3633: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3634: ( p_message_name => 'EAM_WO_COMPL_DATE_REQUIRED'
3635: , p_token_tbl => l_Token_tbl
3636: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3637: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3647: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3648: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3649:
3650: l_out_mesg_token_tbl := l_mesg_token_tbl;
3651: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3652: ( p_message_name => 'EAM_WO_DATE_REQUIRED'
3653: , p_token_tbl => l_Token_tbl
3654: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3655: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3665: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3666: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3667:
3668: l_out_mesg_token_tbl := l_mesg_token_tbl;
3669: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3670: ( p_message_name => 'EAM_WO_MAINT_OBJ_SRC_REQUIRED'
3671: , p_token_tbl => l_Token_tbl
3672: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3673: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3685: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3686: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3687:
3688: l_out_mesg_token_tbl := l_mesg_token_tbl;
3689: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3690: ( p_message_name => 'EAM_WO_MAINT_OBJ_ID_REQUIRED'
3691: , p_token_tbl => l_Token_tbl
3692: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3693: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3705: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3706: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3707:
3708: l_out_mesg_token_tbl := l_mesg_token_tbl;
3709: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3710: ( p_message_name => 'EAM_WO_MAINT_OBJ_TYPE_REQUIRED'
3711: , p_token_tbl => l_Token_tbl
3712: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3713: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3727: l_token_tbl(1).token_name := 'USER_ID';
3728: l_token_tbl(1).token_value := p_eam_wo_rec.user_id;
3729:
3730: l_out_mesg_token_tbl := l_mesg_token_tbl;
3731: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3732: ( p_message_name => 'EAM_WO_USER_RESP_REQUIRED'
3733: , p_token_tbl => l_Token_tbl
3734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3735: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
3750: l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
3751: l_token_tbl(1).token_value := p_eam_wo_rec.wip_entity_name;
3752:
3753: l_out_mesg_token_tbl := l_mesg_token_tbl;
3754: EAM_ERROR_MESSAGE_PVT.Add_Error_Token
3755: ( p_message_name => 'EAM_WO_REB_SR_NUM_REQUIRED'
3756: , p_token_tbl => l_Token_tbl
3757: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3758: , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl