86: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
87: , p_message_name => 'ENG_CL_ALREADY_EXISTS'
88: , p_token_tbl => l_token_tbl
89: ) ;
90: l_return_status := FND_API.G_RET_STS_ERROR ;
91:
92: ELSIF l_return_status = Eng_Globals.G_RECORD_NOT_FOUND AND
93: p_change_line_rec.transaction_type IN
94: (ENG_Globals.G_OPR_UPDATE, ENG_Globals.G_OPR_DELETE )
98: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
99: , p_message_name => 'ENG_CL_DOESNOT_EXIST'
100: , p_token_tbl => l_token_tbl
101: ) ;
102: l_return_status := FND_API.G_RET_STS_ERROR ;
103:
104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
105: THEN
106: Error_Handler.Add_Error_Token
100: , p_token_tbl => l_token_tbl
101: ) ;
102: l_return_status := FND_API.G_RET_STS_ERROR ;
103:
104: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
105: THEN
106: Error_Handler.Add_Error_Token
107: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
108: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
112: || p_change_line_rec.name
113: , p_token_tbl => l_token_tbl
114: ) ;
115: ELSE
116: l_return_status := FND_API.G_RET_STS_SUCCESS;
117: END IF ;
118:
119: x_return_status := l_return_status;
120: x_mesg_token_tbl := l_Mesg_Token_Tbl;
143: l_err_text VARCHAR(2000) ;
144: l_Token_Tbl Error_Handler.Token_Tbl_Type;
145:
146: BEGIN
147: x_return_status := FND_API.G_RET_STS_SUCCESS;
148: l_Token_Tbl(1).token_name := 'LINE_NAME';
149: l_Token_Tbl(1).token_value := p_change_line_rec.name ;
150:
151:
151:
152: -- Sequence Number
153: IF ( p_change_line_rec.transaction_type = ENG_Globals.G_OPR_CREATE
154: AND ( p_change_line_rec.sequence_number IS NULL OR
155: p_change_line_rec.sequence_number = FND_API.G_MISS_NUM )
156: )
157: THEN
158:
159: Error_Handler.Add_Error_Token
162: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
163: , p_Token_Tbl => l_Token_Tbl
164: ) ;
165:
166: x_return_status := FND_API.G_RET_STS_ERROR ;
167:
168:
169: END IF ;
170:
170:
171: -- Change Type Code
172: IF ( p_change_line_rec.transaction_type = ENG_Globals.G_OPR_CREATE
173: AND ( p_change_line_rec.change_type_code IS NULL OR
174: p_change_line_rec.change_type_code = FND_API.G_MISS_CHAR )
175: --added for bug 2848506 as change type for header level line is not required
176: AND p_change_line_rec.sequence_number > 0
177: )
178: THEN
183: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
184: , p_Token_Tbl => l_Token_Tbl
185: ) ;
186:
187: x_return_status := FND_API.G_RET_STS_ERROR ;
188:
189:
190: END IF ;
191:
208: , x_mesg_token_tbl => l_mesg_token_tbl
209: ) ;
210:
211: -- Return the status and message table.
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
213: x_mesg_token_tbl := l_mesg_token_tbl ;
214:
215: END Check_Required ;
216:
246: l_Token_Tbl Error_Handler.Token_Tbl_Type;
247:
248: BEGIN
249:
250: l_return_status := FND_API.G_RET_STS_SUCCESS;
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252:
253: -- Set the first token to be equal to the line name
254: l_Token_Tbl(1).token_name := 'LINE_NAME';
247:
248: BEGIN
249:
250: l_return_status := FND_API.G_RET_STS_SUCCESS;
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252:
253: -- Set the first token to be equal to the line name
254: l_Token_Tbl(1).token_name := 'LINE_NAME';
255: l_Token_Tbl(1).token_value := p_change_line_rec.name ;
266: ('Change Line Attr Validation: Missing Value. . . ' || l_return_status) ;
267: END IF;
268:
269: -- Sequence Number
270: IF p_change_line_rec.sequence_number = FND_API.G_MISS_NUM
271: THEN
272: Error_Handler.Add_Error_Token
273: ( p_Message_Name => 'ENG_CL_SEQ_NUM_MISSING'
274: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
274: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
275: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
276: , p_Token_Tbl => l_Token_Tbl
277: );
278: l_return_status := FND_API.G_RET_STS_ERROR;
279: END IF ;
280:
281:
282: -- Change Type Code
279: END IF ;
280:
281:
282: -- Change Type Code
283: IF p_change_line_rec.change_type_code = FND_API.G_MISS_CHAR
284: THEN
285: Error_Handler.Add_Error_Token
286: ( p_Message_Name => 'ENG_CL_CHANGE_TYPE_MISSING'
287: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
287: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
288: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
289: , p_Token_Tbl => l_Token_Tbl
290: );
291: l_return_status := FND_API.G_RET_STS_ERROR;
292: END IF;
293:
294: END IF ;
295:
313: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
314: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
315: , p_Token_Tbl => l_Token_Tbl
316: );
317: l_return_status := FND_API.G_RET_STS_ERROR ;
318: END IF;
319:
320: --Status Name
321:
339: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
340: , p_Token_Tbl => l_Token_Tbl
341: );
342: END IF;
343: l_return_status := FND_API.G_RET_STS_ERROR;
344: l_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
345:
346: END IF;
347:
363: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
364: , p_Token_Tbl => l_Token_Tbl
365: );
366: END IF;
367: l_return_status := FND_API.G_RET_STS_ERROR;
368: l_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
369: END IF;
370:
371: --End of changes for Bug 2908248
397: , x_mesg_token_tbl => l_mesg_token_tbl
398: ) ;
399:
400: -- Return the status and message table.
401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
402: x_mesg_token_tbl := l_mesg_token_tbl ;
403:
404:
405: END Check_Attributes ;
427: l_token_tbl Error_Handler.Token_Tbl_Type;
428:
429: BEGIN
430:
431: x_return_status := FND_API.G_RET_STS_SUCCESS;
432: l_Token_Tbl(1).token_name := 'LINE_NAME';
433: l_Token_Tbl(1).token_value := p_change_line_rec.name ;
434:
435: -- Return the message table.
449: , x_mesg_token_tbl => l_mesg_token_tbl
450: ) ;
451:
452: -- Return the status and message table.
453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
454: x_mesg_token_tbl := l_mesg_token_tbl ;
455:
456: END Check_Conditionally_Required ;
457:
481:
482:
483: BEGIN
484:
485: l_return_status := FND_API.G_RET_STS_SUCCESS;
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487:
488: -- Set the first token to be equal to the line name
489: l_Token_Tbl(1).token_name := 'LINE_NAME';
482:
483: BEGIN
484:
485: l_return_status := FND_API.G_RET_STS_SUCCESS;
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487:
488: -- Set the first token to be equal to the line name
489: l_Token_Tbl(1).token_name := 'LINE_NAME';
490: l_Token_Tbl(1).token_value := p_change_line_rec.name ;
531: , x_mesg_token_tbl => l_mesg_token_tbl
532: ) ;
533:
534: -- Return the status and message table.
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
536: x_mesg_token_tbl := l_mesg_token_tbl ;
537:
538:
539: END Check_Entity_Delete ;
613: --
614: -- Initialize Common Record and Status
615: --
616:
617: l_return_status := FND_API.G_RET_STS_SUCCESS ;
618:
619: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
620: ('Performing Change Line Check Entitity Validation . . .') ;
621: END IF ;
663: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
664: , p_token_tbl => l_token_tbl
665: );
666:
667: l_return_status := FND_API.G_RET_STS_ERROR;
668: END IF ;
669:
670: --
671: -- Verify that the Item on CL is not PTO Item
682: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
683: , p_token_tbl => l_token_tbl
684: );
685:
686: l_return_status := FND_API.G_RET_STS_ERROR;
687: END IF ;
688: */
689: /*
690: --
701: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
702: , p_token_tbl => l_token_tbl
703: );
704:
705: l_return_status := FND_API.G_RET_STS_ERROR;
706:
707: END IF ;
708:
709: END IF ; -- Change Line Item Validation
735: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
736: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
737: , p_Token_Tbl => l_Token_Tbl
738: ) ;
739: l_return_status := FND_API.G_RET_STS_ERROR ;
740:
741: END LOOP ;
742:
743: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
772: , x_mesg_token_tbl => l_mesg_token_tbl
773: ) ;
774:
775: -- Return the status and message table.
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: x_mesg_token_tbl := l_mesg_token_tbl ;
778:
779: END Check_Entity ;
780:
829:
830:
831: BEGIN
832:
833: l_return_status := FND_API.G_RET_STS_SUCCESS;
834:
835:
836: --
837: -- Check that the user has access to the BOM Item Type
888: , p_Mesg_Token_Tbl => l_mesg_token_tbl
889: , x_Mesg_Token_Tbl => l_mesg_token_tbl
890: , p_Token_Tbl => l_token_tbl
891: );
892: l_return_status := FND_API.G_RET_STS_ERROR;
893:
894: ELSIF item_rec.Bom_Item_Type NOT IN
895: ( NVL(BOM_Globals.Get_STD_Item_Access, 0),
896: NVL(BOM_Globals.Get_PLN_Item_Access, 0),
920: , x_Mesg_Token_Tbl => l_mesg_token_tbl
921: , p_Token_Tbl => l_token_tbl
922: );
923:
924: l_return_status := FND_API.G_RET_STS_ERROR;
925:
926: END IF;
927: END LOOP;
928: