[Home] [Help]
20: -- 07-AUG-00 Biao Zhang Initial Creation
21: --
22: ****************************************************************************/
23: G_PKG_NAME VARCHAR2(30) := 'BOM_Validate_Rtg_Header';
24: g_token_tbl Error_Handler.Token_Tbl_Type;
25:
26: l_sub_locator_control NUMBER;
27: l_locator_control NUMBER;
28: l_org_locator_control NUMBER;
53: ( p_rtg_header_rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
54: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
55: , x_old_rtg_header_rec IN OUT NOCOPY Bom_Rtg_Pub.rtg_header_Rec_Type
56: , x_old_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
57: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
58: , x_return_status IN OUT NOCOPY VARCHAR2
59: )
60: IS
61: l_token_tbl Error_Handler.Token_Tbl_Type;
57: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
58: , x_return_status IN OUT NOCOPY VARCHAR2
59: )
60: IS
61: l_token_tbl Error_Handler.Token_Tbl_Type;
62: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
63: l_return_status VARCHAR2(1);
64: l_err_text VARCHAR2(2000);
65:
58: , x_return_status IN OUT NOCOPY VARCHAR2
59: )
60: IS
61: l_token_tbl Error_Handler.Token_Tbl_Type;
62: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
63: l_return_status VARCHAR2(1);
64: l_err_text VARCHAR2(2000);
65:
66: BEGIN
65:
66: BEGIN
67:
68: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
69: Error_Handler.Write_Debug('Quering Routing . . . ') ;
70: Error_Handler.Write_Debug('Assembly item : ' || to_char(p_rtg_header_unexp_rec.assembly_item_id));
71: Error_Handler.Write_Debug('Org Id : ' || to_char(p_rtg_header_unexp_rec.organization_id ));
72: Error_Handler.Write_Debug('Alternate : ' || p_rtg_header_rec.alternate_routing_code );
73: END IF;
66: BEGIN
67:
68: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
69: Error_Handler.Write_Debug('Quering Routing . . . ') ;
70: Error_Handler.Write_Debug('Assembly item : ' || to_char(p_rtg_header_unexp_rec.assembly_item_id));
71: Error_Handler.Write_Debug('Org Id : ' || to_char(p_rtg_header_unexp_rec.organization_id ));
72: Error_Handler.Write_Debug('Alternate : ' || p_rtg_header_rec.alternate_routing_code );
73: END IF;
74:
67:
68: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
69: Error_Handler.Write_Debug('Quering Routing . . . ') ;
70: Error_Handler.Write_Debug('Assembly item : ' || to_char(p_rtg_header_unexp_rec.assembly_item_id));
71: Error_Handler.Write_Debug('Org Id : ' || to_char(p_rtg_header_unexp_rec.organization_id ));
72: Error_Handler.Write_Debug('Alternate : ' || p_rtg_header_rec.alternate_routing_code );
73: END IF;
74:
75:
68: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
69: Error_Handler.Write_Debug('Quering Routing . . . ') ;
70: Error_Handler.Write_Debug('Assembly item : ' || to_char(p_rtg_header_unexp_rec.assembly_item_id));
71: Error_Handler.Write_Debug('Org Id : ' || to_char(p_rtg_header_unexp_rec.organization_id ));
72: Error_Handler.Write_Debug('Alternate : ' || p_rtg_header_rec.alternate_routing_code );
73: END IF;
74:
75:
76: Bom_Rtg_Header_Util.Query_Row
85: , x_return_status => l_return_status
86: );
87:
88: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
89: Error_Handler.Write_Debug('Query Row Returned with : ' || l_return_status);
90: END IF;
91:
92: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
93: p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
94: THEN
95: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
96: l_token_tbl(1).token_value :=
97: p_rtg_header_rec.assembly_item_name;
98: Error_Handler.Add_Error_Token
99: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
100: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
101: , p_message_name => 'BOM_RTG_ALREADY_EXISTS'
102: , p_token_tbl => l_token_tbl
109: THEN
110: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
111: l_token_tbl(1).token_value :=
112: p_rtg_header_rec.assembly_item_name;
113: Error_Handler.Add_Error_Token
114: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
115: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
116: , p_message_name => 'BOM_RTG_DOESNOT_EXISTS'
117: , p_token_tbl => l_token_tbl
118: );
119: l_return_status := FND_API.G_RET_STS_ERROR;
120: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
121: THEN
122: Error_Handler.Add_Error_Token
123: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
124: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
125: , p_message_name => NULL
126: , p_message_text =>
145:
146: l_err_text := G_PKG_NAME || ' Validation (Check Existnece) '
147: || substrb(SQLERRM,1,200);
148:
149: Error_Handler.Add_Error_Token
150: ( p_message_name => NULL
151: , p_message_text => l_err_text
152: , p_mesg_token_tbl => l_mesg_token_tbl
153: , x_mesg_token_tbl => l_mesg_token_tbl
178: ( p_assembly_item_name IN VARCHAR2
179: , p_assembly_item_id IN NUMBER
180: , p_alternate_rtg_code IN VARCHAR2
181: , p_organization_id IN NUMBER
182: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
183: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
184: , x_return_status IN OUT NOCOPY VARCHAR2
185: )
186: IS
179: , p_assembly_item_id IN NUMBER
180: , p_alternate_rtg_code IN VARCHAR2
181: , p_organization_id IN NUMBER
182: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
183: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
184: , x_return_status IN OUT NOCOPY VARCHAR2
185: )
186: IS
187: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
184: , x_return_status IN OUT NOCOPY VARCHAR2
185: )
186: IS
187: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
188: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
189: p_mesg_token_tbl;
190: l_err_text VARCHAR2(2000);
191:
192: l_bom_item_type NUMBER;
191:
192: l_bom_item_type NUMBER;
193: l_assembly_type NUMBER;
194: l_eam_item_type NUMBER;
195: l_token_tbl Error_Handler.Token_Tbl_Type;
196:
197: BEGIN
198:
199: --
215:
216: /* Commented for bug 3277905
217: IF l_assembly_type = 2 Engineering Item
218: THEN
219: Error_Handler.Add_Error_Token
220: ( p_Message_name => 'BOM_ASSEMBLY_TYPE_ENG'
221: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
222: , x_mesg_token_tbl => l_mesg_token_tbl
223: );
232: --
233: -- Get respective profile values
234: --
235: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
236: Error_Handler.Write_Debug('Checking item type access . . . ');
237: END IF;
238:
239: IF fnd_profile.value('BOM:STANDARD_ITEM_ACCESS') = '1'
240: THEN
242: ( p_std_item_access => 4);
243: ELSE
244:
245: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
246: Error_Handler.Write_Debug('No access to Std Items');
247: END IF;
248: BOM_Rtg_Globals.Set_STD_Item_Access
249: (p_std_item_access => NULL);
250: END IF;
256: BOM_Rtg_Globals.Set_OC_Item_Access
257: ( p_oc_item_access => 2);
258:
259: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
260: Error_Handler.Write_Debug('Model/OC items are accessible');
261: END IF;
262:
263: ELSE
264: BOM_Rtg_Globals.Set_MDL_Item_Access
266: BOM_Rtg_Globals.Set_OC_Item_Access
267: ( p_oc_item_access => NULL);
268:
269: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
270: Error_Handler.Write_Debug('No access to Model/OC items ');
271: END IF;
272: END IF;
273:
274: IF fnd_profile.value('BOM:PLANNING_ITEM_ACCESS') = '1'
276: BOM_Rtg_Globals.Set_PLN_Item_Access
277: ( p_pln_item_access => 3);
278:
279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
280: Error_Handler.Write_Debug('Planning item accessible');
281: END IF;
282: ELSE
283: BOM_Rtg_Globals.Set_PLN_Item_Access
284: ( p_pln_item_access => NULL);
283: BOM_Rtg_Globals.Set_PLN_Item_Access
284: ( p_pln_item_access => NULL);
285:
286: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
287: Error_Handler.Write_Debug('No access to Planning items ');
288: END IF;
289:
290: END IF;
291: END IF;
317: THEN
318: l_Token_Tbl(1).Token_Value := 'BOM_STANDARD';
319: END IF;
320:
321: Error_Handler.Add_Error_Token
322: ( p_Message_Name => 'BOM_RTG_AITEM_ACCESS_DENIED'
323: , p_Mesg_Token_Tbl => l_mesg_token_tbl
324: , x_Mesg_Token_Tbl => l_mesg_token_tbl
325: , p_Token_Tbl => l_token_tbl
331: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
332: l_token_tbl(1).token_value := p_assembly_item_name ;
333:
334:
335: Error_Handler.Add_Error_Token
336: ( p_Message_name => 'BOM_RTG_AITEM_PLANNING_ITEM'
337: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
338: , x_mesg_token_tbl => l_mesg_token_tbl
339: , p_Token_Tbl => l_token_tbl
343:
344: END IF;
345:
346: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
347: Error_Handler.Write_Debug('Check if this item is Asset Item for Enterprise Asset Management. . .');
348: END IF;
349: -- for eAM enhancement,
350: -- If eam item type is 1 : Asset Group or 3 : Rebuildable Component
351: -- User cannnot create any type of routings
362: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
363: l_token_tbl(1).token_value := p_assembly_item_name ;
364:
365:
366: Error_Handler.Add_Error_Token
367: ( p_Message_name => 'BOM_EAM_ITEM_TYPE_INVALID'
368: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
369: , x_mesg_token_tbl => l_mesg_token_tbl
370: , p_Token_Tbl => l_token_tbl
385:
386: l_err_text := G_PKG_NAME || ' Validation (Check Access) '
387: || substrb(SQLERRM,1,200);
388:
389: Error_Handler.Add_Error_Token
390: ( p_message_name => NULL
391: , p_message_text => l_err_text
392: , p_mesg_token_tbl => l_mesg_token_tbl
393: , x_mesg_token_tbl => l_mesg_token_tbl
414: ( p_assembly_item_name IN VARCHAR2
415: , p_cfm_routing_flag IN NUMBER
416: , p_organization_code IN VARCHAR2
417: , p_organization_id IN NUMBER
418: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
419: , x_return_status IN OUT NOCOPY VARCHAR2
420: )
421: IS
422:
423: l_errorNumber NUMBER;
424: l_OrgIsWsmEnabled NUMBER;
425: l_err_text VARCHAR2(200) := NULL;
426: l_errorMessage VARCHAR2(200) := NULL;
427: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
428: l_Token_Tbl Error_Handler.Token_Tbl_Type;
429: x_install_cfm BOOLEAN;
430: x_status VARCHAR2(50);
431: x_industry VARCHAR2(50);
424: l_OrgIsWsmEnabled NUMBER;
425: l_err_text VARCHAR2(200) := NULL;
426: l_errorMessage VARCHAR2(200) := NULL;
427: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
428: l_Token_Tbl Error_Handler.Token_Tbl_Type;
429: x_install_cfm BOOLEAN;
430: x_status VARCHAR2(50);
431: x_industry VARCHAR2(50);
432: x_schema VARCHAR2(50);
434: BEGIN
435:
436: x_return_status := FND_API.G_RET_STS_SUCCESS;
437:
438: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(
439: 'Within Routing Header Check flow routing operability . . . ');
440: END IF;
441:
442: IF NVL(p_cfm_routing_flag ,2) NOT IN ( 1, 2 ,3)
447: p_assembly_item_name;
448: l_token_tbl(2).token_name := 'CFM_ROUTING_FLAG';
449: l_token_tbl(2).token_value :=
450: NVL(p_cfm_routing_flag ,2) ;
451: Error_Handler.Add_Error_Token
452: ( p_message_name => 'BOM_RTG_CFM_FLAG_INVALID'
453: , p_token_tbl => l_token_tbl
454: , p_mesg_token_tbl => l_mesg_token_tbl
455: , x_mesg_token_tbl => l_mesg_token_tbl
471: THEN
472: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
473: l_token_tbl(1).token_value :=
474: p_assembly_item_name;
475: Error_Handler.Add_Error_Token
476: ( p_message_name => 'BOM_RTG_FLOW_RTG_INVALID'
477: , p_token_tbl => l_token_tbl
478: , p_mesg_token_tbl => l_mesg_token_tbl
479: , x_mesg_token_tbl => l_mesg_token_tbl
499: p_assembly_item_name;
500: l_token_tbl(2).token_name := 'ORGANIZATION_CODE';
501: l_token_tbl(2).token_value := p_organization_code ;
502:
503: Error_Handler.Add_Error_Token
504: ( p_message_name => 'BOM_RTG_WSM_ORG_INVALID'
505: , p_token_tbl => l_token_tbl
506: , p_mesg_token_tbl => l_mesg_token_tbl
507: , x_mesg_token_tbl => l_mesg_token_tbl
522: -- If eam item type is null,
523: -- Cfm Routing Flag is 1,2 or 3
524:
525: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
526: Error_Handler.Write_Debug('Check maintenance routings operability for eAM . . .');
527: END IF;
528: IF BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
529: THEN
530: -- Check cfm routig flag.
537: p_assembly_item_name;
538: l_token_tbl(2).token_name := 'CFM_ROUTING_FLAG';
539: l_token_tbl(2).token_value :=
540: NVL(p_cfm_routing_flag ,2) ;
541: Error_Handler.Add_Error_Token
542: ( p_message_name => 'BOM_EAM_CFM_FLAG_INVALID'
543: , p_token_tbl => l_token_tbl
544: , p_mesg_token_tbl => l_mesg_token_tbl
545: , x_mesg_token_tbl => l_mesg_token_tbl
556:
557: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
558: l_token_tbl(1).token_value :=
559: p_assembly_item_name;
560: Error_Handler.Add_Error_Token
561: ( p_message_name => 'BOM_EAM_INVALID'
562: , p_token_tbl => l_token_tbl
563: , p_mesg_token_tbl => l_mesg_token_tbl
564: , x_mesg_token_tbl => l_mesg_token_tbl
578: p_assembly_item_name;
579: l_token_tbl(2).token_name := 'ORGANIZATION_CODE';
580: l_token_tbl(2).token_value := p_organization_code ;
581:
582: Error_Handler.Add_Error_Token
583: ( p_message_name => 'BOM_EAM_ORG_INVALID'
584: , p_token_tbl => l_token_tbl
585: , p_mesg_token_tbl => l_mesg_token_tbl
586: , x_mesg_token_tbl => l_mesg_token_tbl
604:
605: l_err_text := G_PKG_NAME || ' Validation (Check Flow Routing Operability) '
606: || substrb(SQLERRM,1,200);
607:
608: Error_Handler.Add_Error_Token
609: ( p_message_name => NULL
610: , p_message_text => l_err_text
611: , p_mesg_token_tbl => l_mesg_token_tbl
612: , x_mesg_token_tbl => l_mesg_token_tbl
630: * revised item attrbiute in its entirety.
631: **********************************************************************/
632: PROCEDURE Check_Attributes
633: ( x_return_status IN OUT NOCOPY VARCHAR2
634: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
635: , p_rtg_header_Rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
636: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
637: , p_old_rtg_header_rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
638: , p_old_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
638: , p_old_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
639: )
640: IS
641: l_err_text VARCHAR2(2000) := NULL;
642: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
643: l_Token_Tbl Error_Handler.Token_Tbl_Type;
644:
645:
646: BEGIN
639: )
640: IS
641: l_err_text VARCHAR2(2000) := NULL;
642: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
643: l_Token_Tbl Error_Handler.Token_Tbl_Type;
644:
645:
646: BEGIN
647:
647:
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649:
650: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN
651: Error_Handler.Write_Debug('Within Rtg Header Check Attributes . . . ');
652: END IF;
653:
654: IF p_rtg_header_rec.eng_routing_flag IS NOT NULL AND
655: p_rtg_header_rec.eng_routing_flag <> FND_API.G_MISS_NUM AND
657: THEN
658: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
659: l_token_tbl(1).token_value :=
660: p_rtg_header_rec.assembly_item_name;
661: Error_Handler.Add_Error_Token
662: ( p_message_name => 'BOM_RTG_ENG_RTG_TYPE_INVALID'
663: , p_token_tbl => l_token_tbl
664: , p_mesg_token_tbl => l_mesg_token_tbl
665: , x_mesg_token_tbl => l_mesg_token_tbl
673: THEN
674: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
675: l_token_tbl(1).token_value :=
676: p_rtg_header_rec.assembly_item_name;
677: Error_Handler.Add_Error_Token
678: ( p_message_name => 'BOM_RTG_ENG_RTG_TYPE_MISSING'
679: , p_token_tbl => l_token_tbl
680: , p_mesg_token_tbl => l_mesg_token_tbl
681: , x_mesg_token_tbl => l_mesg_token_tbl
692: THEN
693: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
694: l_token_tbl(1).token_value :=
695: p_rtg_header_rec.assembly_item_name;
696: Error_Handler.Add_Error_Token
697: ( p_message_name =>'BOM_FLM_RTG_MXDMDL_MAP_INVALID'
698: , p_token_tbl => l_token_tbl
699: , p_mesg_token_tbl => l_mesg_token_tbl
700: , x_mesg_token_tbl => l_mesg_token_tbl
708: THEN
709: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
710: l_token_tbl(1).token_value :=
711: p_rtg_header_rec.assembly_item_name;
712: Error_Handler.Add_Error_Token
713: ( p_message_name => 'BOM_RTG_CTP_INVALID'
714: , p_token_tbl => l_token_tbl
715: , p_mesg_token_tbl => l_mesg_token_tbl
716: , x_mesg_token_tbl => l_mesg_token_tbl
729:
730: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
731: l_token_tbl(1).token_value :=
732: p_rtg_header_rec.assembly_item_name;
733: Error_Handler.Add_Error_Token
734: ( p_message_name => 'BOM_RTG_CFM_NOT_UPDATABLE'
735: , p_token_tbl => l_token_tbl
736: , p_mesg_token_tbl => l_mesg_token_tbl
737: , x_mesg_token_tbl => l_mesg_token_tbl
747:
748: l_err_text := G_PKG_NAME || ' Validation (Check Attributes) '
749: || substrb(SQLERRM,1,200);
750:
751: Error_Handler.Add_Error_Token
752: ( p_message_name => NULL
753: , p_message_text => l_err_text
754: , p_mesg_token_tbl => l_mesg_token_tbl
755: , x_mesg_token_tbl => l_mesg_token_tbl
769: * Purpose :
770: **********************************************************************/
771: PROCEDURE Check_Required
772: ( x_return_status IN OUT NOCOPY VARCHAR2
773: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
774: , p_rtg_header_rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
775: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
776: )
777: IS
775: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
776: )
777: IS
778: l_err_text VARCHAR2(2000);
779: l_mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
780: l_Token_Tbl Error_Handler.Token_Tbl_Type;
781: BEGIN
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
776: )
777: IS
778: l_err_text VARCHAR2(2000);
779: l_mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
780: l_Token_Tbl Error_Handler.Token_Tbl_Type;
781: BEGIN
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: IF ( p_rtg_header_unexp_rec.common_routing_sequence_id
799: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
800: l_token_tbl(1).token_value :=
801: p_rtg_header_rec.assembly_item_name;
802:
803: Error_Handler.Add_Error_Token
804: ( p_message_name => 'BOM_RTG_COMMON_RTG_REQUIRED'
805: , p_token_tbl => l_Token_tbl
806: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
807: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
821: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
822: l_token_tbl(1).token_value :=
823: p_rtg_header_rec.assembly_item_name;
824:
825: Error_Handler.Add_Error_Token
826: ( p_message_name => 'BOM_FLM_RTG_LINE_ID_REQUIRED'
827: , p_token_tbl => l_Token_tbl
828: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
829: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
840:
841: l_err_text := G_PKG_NAME || ' Validation (Check Required) '
842: || substrb(SQLERRM,1,200);
843:
844: Error_Handler.Add_Error_Token
845: ( p_message_name => NULL
846: , p_message_text => l_err_text
847: , p_mesg_token_tbl => l_mesg_token_tbl
848: , x_mesg_token_tbl => l_mesg_token_tbl
1001:
1002: BEGIN
1003:
1004: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1005: Error_Handler.Write_Debug('Check Locators. . .Locator Id is ' || to_char(p_locator_id));
1006: END IF;
1007:
1008: l_org_locator_control := 0 ;
1009: l_item_locator_control := 0;
1030: AND inventory_item_id = p_assembly_item_id ;
1031:
1032:
1033: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1034: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1035: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1036: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1037: END IF;
1038:
1031:
1032:
1033: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1034: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1035: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1036: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1037: END IF;
1038:
1039: /**************************************
1032:
1033: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1034: Error_Handler.Write_Debug('Org - Stock Locator Control : '|| to_char(l_org_locator_control) );
1035: Error_Handler.Write_Debug('Item - Location Control : '|| to_char(l_item_locator_control) );
1036: Error_Handler.Write_Debug('Item - Restrict Locator : '|| to_char(l_item_loc_restricted) );
1037: END IF;
1038:
1039: /**************************************
1040: -- Locator_Control_Code
1059: RETURN TRUE;
1060: END IF;
1061: */
1062: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1063: Error_Handler.Write_Debug('Sub Inv - Loc Control : '|| to_char(l_sub_locator_control) );
1064: END IF;
1065:
1066:
1067:
1076: Item_Control => l_item_locator_control
1077: );
1078:
1079: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1080: Error_Handler.Write_Debug('Calling BOM_Validate_Rtg_Header.Control. Loc Control '||
1081: to_char(x_control) );
1082: END IF;
1083: l_locator_control := x_control;
1084: -- Variable to identify if the dynamic loc.
1099: THEN
1100: BEGIN
1101:
1102: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1103: Error_Handler.Write_Debug ('Checking when x_control returned 2 and ' ||
1104: ' item locator is ' ||
1105: to_char(l_item_locator_control));
1106: END IF;
1107:
1124: IF l_item_loc_restricted = 1 -- Restrict Locators = YES
1125: THEN
1126: -- Check for restrict Locators YES
1127: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1128: Error_Handler.Write_Debug ('Before Checking for restrict Locators Yes. ' );
1129: END IF;
1130: SELECT 'Valid'
1131: INTO l_dummy
1132: FROM mtl_item_locations mil,
1139: AND mil.organization_id = msl.organization_id
1140: AND NVL(mil.disable_date, SYSDATE+1) > SYSDATE ;
1141:
1142: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1143: Error_Handler.Write_Debug ('Restrict locators is Y . ' ||
1144: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1145: || ' are valid.' );
1146: END IF;
1147:
1160: AND mil.organization_id = p_organization_id
1161: AND NVL(mil.DISABLE_DATE, SYSDATE+1) > SYSDATE;
1162:
1163: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1164: Error_Handler.Write_Debug ('Restrict locators is No . ' ||
1165: 'Sub Inv : ' || p_subinventory || 'Comp Loc : ' || to_char(p_locator_id )
1166: || ' are valid.' );
1167: END IF;
1168:
1175: EXCEPTION
1176: WHEN NO_DATA_FOUND THEN
1177:
1178: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1179: Error_Handler.Write_Debug ('Locator is invlaid . ' );
1180: END IF ;
1181:
1182: RETURN FALSE;
1183: END; -- x_control=2 Ends
1187: -- Dynamic locators are not allowed in open
1188: -- interface, so raise an error if the locator
1189: -- control is dynamic.
1190: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
1191: Error_Handler.Write_Debug ('Dynamic Locator Control. ' ) ;
1192: END IF ;
1193: l_locator_control := 3;
1194:
1195:
1226: ( p_rtg_header_rec IN OUT NOCOPY Bom_Rtg_Pub.rtg_header_Rec_Type
1227: , p_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
1228: , p_old_rtg_header_rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
1229: , p_old_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
1230: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1231: , x_return_status IN OUT NOCOPY VARCHAR2
1232: )
1233: IS
1234: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1231: , x_return_status IN OUT NOCOPY VARCHAR2
1232: )
1233: IS
1234: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1235: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1236: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1237: l_dummy VARCHAR2(1);
1238: l_HasOps BOOLEAN := FALSE;
1239:
1232: )
1233: IS
1234: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1235: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1236: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1237: l_dummy VARCHAR2(1);
1238: l_HasOps BOOLEAN := FALSE;
1239:
1240: l_bom_item_type NUMBER;
1442:
1443: --
1444: -- Performing Entity Validation in routing header
1445: --
1446: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1447: ('Performing Entitity Validation for Rtg header. . .') ;
1448: END IF;
1449:
1450:
1472:
1473: IF ( p_rtg_header_rec.cfm_routing_flag = 3 AND
1474: ( ( l_ser_num_control_code <> 1 ) AND ( l_ser_num_control_code <> 2 ) ) )
1475: THEN
1476: Error_Handler.Add_Error_Token
1477: ( p_message_name => 'BOM_ASSEMBLY_NOT_SERIAL'
1478: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1479: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1480: , p_token_tbl => g_token_tbl
1492: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1493: g_token_tbl(1).token_value :=
1494: p_rtg_header_rec.assembly_item_name;
1495:
1496: Error_Handler.Add_Error_Token
1497: ( p_message_name => 'BOM_RTG_AITEM_BOM_NOT_ALLOWED'
1498: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1499: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1500: , p_token_tbl => g_token_tbl
1513: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1514: g_token_tbl(1).token_value :=
1515: p_rtg_header_rec.assembly_item_name;
1516:
1517: Error_Handler.Add_Error_Token
1518: ( p_message_name => 'BOM_RTG_AITEM_PTO_ITEM'
1519: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1520: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1521: , p_token_tbl => g_token_tbl
1539: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1540: g_token_tbl(1).token_value :=
1541: p_rtg_header_rec.assembly_item_name;
1542:
1543: Error_Handler.Add_Error_Token
1544: ( p_message_name => 'BOM_RTG_AITEMORRTG_TYP_INVALID'
1545: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1546: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1547: , p_token_tbl => g_token_tbl
1555: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1556: g_token_tbl(1).token_value :=
1557: p_rtg_header_rec.assembly_item_name;
1558:
1559: Error_Handler.Add_Error_Token
1560: ( p_message_name => 'BOM_RTG_AITEMORRTG_TYP_INVALID'
1561: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1562: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1563: , p_token_tbl => g_token_tbl
1584: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1585: g_token_tbl(1).token_value :=
1586: p_rtg_header_rec.assembly_item_name;
1587:
1588: Error_Handler.Add_Error_Token
1589: ( p_message_name => 'BOM_RTG_AITRTG_TYPE_MISSMATCH'
1590: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1591: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1592: , p_token_tbl => g_token_tbl
1604: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1605: g_token_tbl(1).token_value :=
1606: p_rtg_header_rec.assembly_item_name;
1607:
1608: Error_Handler.Add_Error_Token
1609: ( p_message_name => 'BOM_RTG_AITEM_PLANING_ITEM'
1610: , p_mesg_token_tbl => l_Mesg_Token_Tbl
1611: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1612: , p_token_tbl => g_token_tbl
1642: l_token_tbl(1).token_name :=
1643: 'ASSEMBLY_ITEM_NAME';
1644: l_token_tbl(1).token_value :=
1645: p_rtg_header_rec.assembly_item_name;
1646: Error_Handler.Add_Error_Token
1647: ( p_message_name =>
1648: 'BOM_RTG_CANNOT_ADD_ALTERNATE'
1649: , p_token_tbl => l_token_tbl
1650: , p_mesg_token_tbl => l_mesg_token_tbl
1659:
1660: FOR rec1 IN c_Check_BOM LOOP
1661: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1662: THEN
1663: Error_Handler.Add_Error_Token
1664: (p_message_name => 'BOM_ALT_RTG_REF_BOM'
1665: , p_token_tbl => l_token_tbl
1666: , p_mesg_token_tbl => l_mesg_token_tbl
1667: , x_mesg_token_tbl => l_mesg_token_tbl
1695: l_token_tbl(1).token_value := p_rtg_header_rec.assembly_item_name;
1696: l_token_tbl(2).token_name := 'ALTERNATE_ROUTING_CODE';
1697: l_token_tbl(2).token_value := p_rtg_header_rec.alternate_routing_code;
1698:
1699: Error_Handler.Add_Error_Token
1700: ( p_message_name => 'BOM_RTG_ALTERNATE_DISABLED'
1701: , p_token_tbl => l_token_tbl
1702: , p_mesg_token_tbl => l_mesg_token_tbl
1703: , x_mesg_token_tbl => l_mesg_token_tbl
1735: l_token_tbl(2).token_name := 'ASSEMBLY_ITEM_NAME';
1736: l_token_tbl(2).token_value :=
1737: p_rtg_header_rec.assembly_item_name;
1738:
1739: Error_Handler.Add_Error_Token
1740: ( p_message_name =>
1741: 'BOM_RTG_ASSY_COMMON_RRG_SEQ'
1742: , p_token_tbl => l_token_tbl
1743: , p_mesg_token_tbl => l_mesg_token_tbl
1767: p_rtg_header_rec.common_assembly_item_name;
1768: l_token_tbl(2).token_name := 'ASSEMBLY_ITEM_NAME';
1769: l_token_tbl(2).token_value :=
1770: p_rtg_header_rec.assembly_item_name;
1771: Error_Handler.Add_Error_Token
1772: ( p_message_name =>
1773: 'BOM_RTG_ASSY_COMMON_OTHER_ASSY'
1774: , p_token_tbl => l_token_tbl
1775: , p_mesg_token_tbl => l_mesg_token_tbl
1799:
1800: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1801: l_token_tbl(1).token_value :=
1802: p_rtg_header_rec.assembly_item_name;
1803: Error_Handler.Add_Error_Token
1804: ( p_message_name =>
1805: 'BOM_RTG_COMMON_RTG_NOUPDATABLE'
1806: , p_token_tbl => l_token_tbl
1807: , p_mesg_token_tbl => l_mesg_token_tbl
1835: l_token_tbl.delete;
1836: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1837: l_token_tbl(1).token_value :=
1838: p_rtg_header_rec.assembly_item_name;
1839: Error_Handler.Add_Error_Token
1840: ( p_message_name =>
1841: 'BOM_RTG_ASSY_COMMON_REF_COMMON'
1842: , p_token_tbl => l_token_tbl
1843: , p_mesg_token_tbl => l_mesg_token_tbl
1875: LOOP
1876: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1877: l_token_tbl(1).token_value :=
1878: p_rtg_header_rec.assembly_item_name;
1879: Error_Handler.Add_Error_Token
1880: ( p_message_name =>
1881: 'BOM_RTG_CTP_ALREADY_EXISTS'
1882: , p_token_tbl => l_token_tbl
1883: , p_mesg_token_tbl => l_mesg_token_tbl
1906:
1907: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1908: l_token_tbl(1).token_value :=
1909: p_rtg_header_rec.assembly_item_name;
1910: Error_Handler.Add_Error_Token
1911: ( p_message_name =>
1912: 'BOM_FLM_RTG_LINED_NO_UPDATABLE'
1913: , p_token_tbl => l_token_tbl
1914: , p_mesg_token_tbl => l_mesg_token_tbl
1947:
1948: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1949: l_token_tbl(1).token_value :=
1950: p_rtg_header_rec.assembly_item_name;
1951: Error_Handler.Add_Error_Token
1952: ( p_message_name =>
1953: 'BOM_FLM_RTG_MMMF_ALRDY_EXISTS'
1954: , p_token_tbl => l_token_tbl
1955: , p_mesg_token_tbl => l_mesg_token_tbl
1985: LOOP
1986: l_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
1987: l_token_tbl(1).token_value :=
1988: p_rtg_header_rec.assembly_item_name;
1989: Error_Handler.Add_Error_Token
1990: ( p_message_name =>
1991: 'BOM_RTG_PRIORITY_DUPLICATE'
1992: , p_token_tbl => l_token_tbl
1993: , p_mesg_token_tbl => l_mesg_token_tbl
2014:
2015: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2016: THEN
2017:
2018: Error_Handler.Add_Error_Token
2019: ( p_message_name =>
2020: 'BOM_RTG_LOCATOR_MUST_BE_NULL'
2021: , p_token_tbl => l_token_tbl
2022: , p_mesg_token_tbl => l_mesg_token_tbl
2054: p_rtg_header_rec.assembly_item_name;
2055: l_token_tbl(2).token_name := 'COMPLETION_SUBINVENTORY';
2056: l_token_tbl(2).token_value :=
2057: p_rtg_header_rec.completion_subinventory;
2058: Error_Handler.Add_Error_Token
2059: ( p_message_name =>
2060: 'BOM_RTG_SUBINV_NAME_INVALID'
2061: , p_token_tbl => l_token_tbl
2062: , p_mesg_token_tbl => l_mesg_token_tbl
2073:
2074: IF l_sub_inv_exists THEN
2075:
2076: -- check completeion subinventory
2077: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2078: ('Performing completeion subinventory check. . .') ;
2079: END IF;
2080: l_allow_expense_to_asset := fnd_profile.value
2081: ('INV:EXPENSE_TO_ASSET_TRANSFER');
2088: , x_inv_asset_flag => l_inv_asset_flag ) ;
2089:
2090:
2091: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
2092: error_handler.write_debug('Get Sub Inv Flag . . . ');
2093: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
2094: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
2095: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
2096:
2089:
2090:
2091: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
2092: error_handler.write_debug('Get Sub Inv Flag . . . ');
2093: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
2094: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
2095: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
2096:
2097: END IF;
2090:
2091: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
2092: error_handler.write_debug('Get Sub Inv Flag . . . ');
2093: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
2094: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
2095: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
2096:
2097: END IF;
2098:
2091: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
2092: error_handler.write_debug('Get Sub Inv Flag . . . ');
2093: error_handler.write_debug('Expense to asset transfer : '|| l_allow_expense_to_asset );
2094: error_handler.write_debug('Restrict Sub Inv Code : ' || l_rest_subinv_code );
2095: error_handler.write_debug('Inv Asset Flag : '|| l_inv_asset_flag );
2096:
2097: END IF;
2098:
2099: IF l_rest_subinv_code = 'Y' THEN
2100: IF l_allow_expense_to_asset = '1' THEN
2101:
2102: IF BOM_Rtg_Globals.get_debug = 'Y'
2103: THEN
2104: error_handler.write_debug('Before OPEN c_Restrict_SubInv_Trk');
2105: END IF;
2106:
2107: OPEN c_Restrict_SubInv_Trk;
2108: FETCH c_Restrict_SubInv_Trk INTO
2118: 'COMPLETION_SUBINVENTORY';
2119: l_token_tbl(2).token_value :=
2120: p_rtg_header_rec.completion_subinventory;
2121:
2122: Error_Handler.Add_Error_Token
2123: ( p_message_name =>
2124: 'BOM_RTG_SINV_RSTRCT_EXPASST'
2125: , p_token_tbl => l_token_tbl
2126: , p_mesg_token_tbl => l_mesg_token_tbl
2148: l_token_tbl(2).token_name :=
2149: 'COMPLETION_SUBINVENTORY';
2150: l_token_tbl(2).token_value :=
2151: p_rtg_header_rec.completion_subinventory;
2152: Error_Handler.Add_Error_Token
2153: ( p_message_name =>
2154: 'BOM_RTG_SINV_RSTRCT_INVASST'
2155: , p_token_tbl => l_token_tbl
2156: , p_mesg_token_tbl => l_mesg_token_tbl
2176: l_token_tbl(2).token_name :=
2177: 'COMPLETION_SUBINVENTORY';
2178: l_token_tbl(2).token_value :=
2179: p_rtg_header_rec.completion_subinventory;
2180: Error_Handler.Add_Error_Token
2181: ( p_message_name =>
2182: 'BOM_RTG_SINV_RSTRCT_NOASST'
2183: , p_token_tbl => l_token_tbl
2184: , p_mesg_token_tbl => l_mesg_token_tbl
2209: l_token_tbl(2).token_name :=
2210: 'COMPLETION_SUBINVENTORY';
2211: l_token_tbl(2).token_value :=
2212: p_rtg_header_rec.completion_subinventory;
2213: Error_Handler.Add_Error_Token
2214: ( p_message_name =>
2215: 'BOM_RTG_SINV_NOTRSTRCT_EXPASST'
2216: , p_token_tbl => l_token_tbl
2217: , p_mesg_token_tbl => l_mesg_token_tbl
2238: l_token_tbl(2).token_name :=
2239: 'COMPLETION_SUBINVENTORY';
2240: l_token_tbl(2).token_value :=
2241: p_rtg_header_rec.completion_subinventory;
2242: Error_Handler.Add_Error_Token
2243: ( p_message_name =>
2244: 'BOM_RTG_SINV_NOTRSTRCT_ASST'
2245: , p_token_tbl => l_token_tbl
2246: , p_mesg_token_tbl => l_mesg_token_tbl
2266: l_token_tbl(2).token_name :=
2267: 'COMPLETION_SUBINVENTORY';
2268: l_token_tbl(2).token_value :=
2269: p_rtg_header_rec.completion_subinventory;
2270: Error_Handler.Add_Error_Token
2271: ( p_message_name =>
2272: 'BOM_RTG_SINV_NOTRSTRCT_NOASST'
2273: , p_token_tbl => l_token_tbl
2274: , p_mesg_token_tbl => l_mesg_token_tbl
2290: --
2291: ********************************************************************/
2292: -- check completion locator
2293:
2294: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2295: ('Performing completion locator. . .') ;
2296: END IF;
2297:
2298: IF (( p_rtg_header_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
2315: THEN
2316: l_token_tbl(1).token_name :='ASSEMBLY_ITEM_NAME';
2317: l_token_tbl(1).token_value :=
2318: p_rtg_header_rec.assembly_item_name;
2319: Error_Handler.Add_Error_Token
2320: ( p_message_name => 'BOM_RTG_LOCATOR_REQUIRED'
2321: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2322: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2323: , p_Token_Tbl => g_Token_Tbl
2330: THEN
2331: l_token_tbl(1).token_name :='ASSEMBLY_ITEM_NAME';
2332: l_token_tbl(1).token_value :=
2333: p_rtg_header_rec.assembly_item_name;
2334: Error_Handler.Add_Error_Token
2335: ( p_message_name => 'BOM_RTG_LOC_CANNOT_BE_DYNAMIC'
2336: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2337: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2338: , p_Token_Tbl => g_Token_Tbl
2353: l_token_tbl(2).token_value :=
2354: p_rtg_header_rec.completion_subinventory;
2355:
2356:
2357: Error_Handler.Add_Error_Token
2358: ( p_message_name =>
2359: 'BOM_RTG_ITEM_LOC_RESTRICTED'
2360: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2361: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2367: THEN
2368: l_token_tbl(1).token_name :='ASSEMBLY_ITEM_NAME';
2369: l_token_tbl(1).token_value :=
2370: p_rtg_header_rec.assembly_item_name;
2371: Error_Handler.Add_Error_Token
2372: ( p_message_name => 'BOM_RTG_LOCATOR_NOT_IN_SUBINV'
2373: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2374: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2375: , p_Token_Tbl => g_Token_Tbl
2379:
2380: ELSIF l_locator_control = 1 THEN
2381: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2382: THEN
2383: Error_Handler.Add_Error_Token
2384: ( p_message_name =>
2385: 'BOM_RTG_ITEM_NO_LOC_CONTROL'
2386: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2387: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2398: p_rtg_header_rec.ser_start_op_seq IS NOT NULL AND
2399: l_bom_item_type IN (1,2) THEN -- If the item is a model/option class item routing
2400: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2401: THEN
2402: Error_Handler.Add_Error_Token
2403: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
2404: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2405: , p_message_name => 'BOM_SER_OP_CONFIG_RTG_EXISTS'
2406: , p_token_tbl => l_token_tbl
2412: x_return_status := l_return_status;
2413: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2414:
2415: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
2416: Error_Handler.Write_Debug('Routing header : Entity Validation done . . . Return Status is ' || l_return_status);
2417: END IF ;
2418:
2419: EXCEPTION
2420:
2419: EXCEPTION
2420:
2421: WHEN FND_API.G_EXC_ERROR THEN
2422:
2423: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Expected Error in routing header Entity Validation . . .'); END IF;
2424:
2425: x_return_status := FND_API.G_RET_STS_ERROR;
2426: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2427:
2426: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2427:
2428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2429:
2430: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Unexpected Error in routing header Entity Validation . . .'); END IF;
2431:
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: IF FND_MSG_PUB.Check_Msg_Level
2434: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2435: THEN
2436: l_err_text := G_PKG_NAME ||
2437: ' : (Entity Validation) ' ||
2438: substrb(SQLERRM,1,200);
2439: Error_Handler.Add_Error_Token
2440: ( p_Message_Text => l_err_text
2441: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2442: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2443: );
2444: END IF;
2445: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2446:
2447: WHEN OTHERS THEN
2448: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(SQLERRM || ' ' || TO_CHAR(SQLCODE)); END IF;
2449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2450: IF FND_MSG_PUB.Check_Msg_Level
2451: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2452: THEN
2452: THEN
2453: l_err_text := G_PKG_NAME ||
2454: ' : (Entity Validation) ' ||
2455: substrb(SQLERRM,1,200);
2456: Error_Handler.Add_Error_Token
2457: ( p_Message_Text => l_err_text
2458: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2459: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2460: );
2465:
2466:
2467: PROCEDURE Check_Entity_Delete
2468: ( x_return_status IN OUT NOCOPY VARCHAR2
2469: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2470: , p_rtg_header_rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
2471: , p_rtg_header_Unexp_Rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
2472: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
2473: )
2471: , p_rtg_header_Unexp_Rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
2472: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
2473: )
2474: IS
2475: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
2476: l_rtg_header_unexp_rec Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
2477: := p_rtg_header_Unexp_Rec;
2478: l_err_text VARCHAR2(2000);
2479:
2491:
2492: IF p_rtg_header_rec.Delete_Group_Name IS NULL OR
2493: p_rtg_header_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
2494: THEN
2495: Error_Handler.Add_Error_Token
2496: ( p_message_name => 'BOM_DG_NAME_MISSING'
2497: , p_mesg_token_tbl => l_mesg_token_tbl
2498: , x_mesg_token_tbl => x_mesg_token_tbl
2499: );
2503:
2504: For c_CheckGroup in CheckGroup
2505: LOOP
2506: If c_CheckGroup.delete_type <> 3 /* Bill */ then
2507: Error_Handler.Add_Error_Token
2508: ( p_message_name => 'BOM_DUPLICATE_DELETE_GROUP'
2509: , p_mesg_token_tbl=>l_mesg_token_tbl
2510: , x_mesg_token_tbl=>x_mesg_token_tbl
2511: );
2524: END LOOP;
2525: /* -- not necessary (bug 2774997)
2526: IF l_rtg_header_unexp_rec.DG_sequence_id IS NULL
2527: THEN
2528: Error_Handler.Add_Error_Token
2529: ( p_message_name => 'NEW_DELETE_GROUP'
2530: , p_message_type => 'W'
2531: , p_mesg_token_tbl => l_mesg_token_tbl
2532: , x_mesg_token_tbl => x_mesg_token_tbl
2552:
2553: l_err_text := G_PKG_NAME || ' Validation (Check Entity Delete) '
2554: || substrb(SQLERRM,1,200);
2555:
2556: Error_Handler.Add_Error_Token
2557: ( p_message_name => NULL
2558: , p_message_text => l_err_text
2559: , p_mesg_token_tbl => l_mesg_token_tbl
2560: , x_mesg_token_tbl => l_mesg_token_tbl
2570:
2571: PROCEDURE Check_SSOS -- Added for SSOS (bug 2689249)
2572: ( p_rtg_header_rec IN Bom_Rtg_Pub.rtg_header_Rec_Type
2573: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.rtg_header_Unexposed_Rec_Type
2574: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2575: , x_return_status IN OUT NOCOPY VARCHAR2
2576: ) IS
2577: Cursor check_ssos_cur IS
2578: Select 'IsNotValid'
2591: BEGIN
2592: FOR check_ssos_rec in check_ssos_cur LOOP
2593: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2594: THEN
2595: Error_Handler.Add_Error_Token
2596: ( p_message_name => 'BOM_SSOS_INVALID'
2597: , p_mesg_token_tbl => x_mesg_token_tbl
2598: , x_mesg_token_tbl => x_mesg_token_tbl
2599: );
2597: , p_mesg_token_tbl => x_mesg_token_tbl
2598: , x_mesg_token_tbl => x_mesg_token_tbl
2599: );
2600: END IF;
2601: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('SSOS is invalid....'); END IF;
2602: x_return_status := FND_API.G_RET_STS_ERROR;
2603: END LOOP;
2604: END Check_SSOS;
2605:
2606:
2607: PROCEDURE Check_lot_controlled_item --for bug 3132425
2608: ( p_assembly_item_id IN NUMBER
2609: , p_organization_id IN NUMBER
2610: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2611: , x_return_status IN OUT NOCOPY VARCHAR2
2612: )
2613: IS
2614:
2620:
2621: BEGIN
2622: x_return_status := FND_API.G_RET_STS_SUCCESS;
2623:
2624: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(
2625: 'Within Routing Header Check lot controlled item . . . ');
2626: END IF;
2627:
2628: if BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_Lot_Rtg then
2642: PROCEDURE Validate_SSOS
2643: ( p_routing_sequence_id IN NUMBER
2644: , p_ser_start_op_seq IN NUMBER
2645: , p_validate_from_table IN BOOLEAN
2646: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2647: , x_return_status IN OUT NOCOPY VARCHAR2
2648: )
2649: IS
2650:
2694: IF ( ( l_ser_start_op_seq IS NULL ) OR ( l_ser_start_op_seq = FND_API.G_MISS_NUM ) ) THEN
2695:
2696: IF ( FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) )
2697: THEN
2698: Error_Handler.Add_Error_Token
2699: ( p_message_name => 'WSM_NTWK_SERIAL_START_OP'
2700: , p_mesg_token_tbl => x_mesg_token_tbl
2701: , x_mesg_token_tbl => x_mesg_token_tbl
2702: );
2716:
2717: IF (l_retval = 0) THEN
2718: IF ( FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) )
2719: THEN
2720: Error_Handler.Add_Error_Token
2721: ( p_message_name => 'WSM_NTWK_SERIAL_START_OP'
2722: , p_mesg_token_tbl => x_mesg_token_tbl
2723: , x_mesg_token_tbl => x_mesg_token_tbl
2724: );