DBA Data[Home] [Help]

APPS.ENG_CHANGE_LINE_UTIL dependencies on ERROR_HANDLER

Line 24: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

20: ( p_line_sequence_number IN NUMBER
21: , p_organization_id IN NUMBER
22: , p_change_notice IN VARCHAR2
23: , p_change_line_name IN VARCHAR2
24: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
25: , x_change_line_rec OUT NOCOPY Eng_Eco_Pub.Change_Line_Rec_Type
26: , x_change_line_unexp_rec OUT NOCOPY Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
27: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
28: , x_return_status OUT NOCOPY VARCHAR2

Line 27: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

23: , p_change_line_name IN VARCHAR2
24: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
25: , x_change_line_rec OUT NOCOPY Eng_Eco_Pub.Change_Line_Rec_Type
26: , x_change_line_unexp_rec OUT NOCOPY Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
27: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
28: , x_return_status OUT NOCOPY VARCHAR2
29: )
30: IS
31:

Line 82: Error_Handler.Write_Debug ('Querying a change line record . . . ' ) ;

78:
79: BEGIN
80:
81: IF BOM_Globals.Get_Debug = 'Y' THEN
82: Error_Handler.Write_Debug ('Querying a change line record . . . ' ) ;
83: Error_Handler.Write_Debug (' : line sequence number ' || p_line_sequence_number);
84: Error_Handler.Write_Debug (' : change notice ' || p_change_notice );
85: Error_Handler.Write_Debug (' : organization_id ' || to_char( p_organization_id ));
86: END IF ;

Line 83: Error_Handler.Write_Debug (' : line sequence number ' || p_line_sequence_number);

79: BEGIN
80:
81: IF BOM_Globals.Get_Debug = 'Y' THEN
82: Error_Handler.Write_Debug ('Querying a change line record . . . ' ) ;
83: Error_Handler.Write_Debug (' : line sequence number ' || p_line_sequence_number);
84: Error_Handler.Write_Debug (' : change notice ' || p_change_notice );
85: Error_Handler.Write_Debug (' : organization_id ' || to_char( p_organization_id ));
86: END IF ;
87:

Line 84: Error_Handler.Write_Debug (' : change notice ' || p_change_notice );

80:
81: IF BOM_Globals.Get_Debug = 'Y' THEN
82: Error_Handler.Write_Debug ('Querying a change line record . . . ' ) ;
83: Error_Handler.Write_Debug (' : line sequence number ' || p_line_sequence_number);
84: Error_Handler.Write_Debug (' : change notice ' || p_change_notice );
85: Error_Handler.Write_Debug (' : organization_id ' || to_char( p_organization_id ));
86: END IF ;
87:
88: x_mesg_token_tbl := p_mesg_token_tbl;

Line 85: Error_Handler.Write_Debug (' : organization_id ' || to_char( p_organization_id ));

81: IF BOM_Globals.Get_Debug = 'Y' THEN
82: Error_Handler.Write_Debug ('Querying a change line record . . . ' ) ;
83: Error_Handler.Write_Debug (' : line sequence number ' || p_line_sequence_number);
84: Error_Handler.Write_Debug (' : change notice ' || p_change_notice );
85: Error_Handler.Write_Debug (' : organization_id ' || to_char( p_organization_id ));
86: END IF ;
87:
88: x_mesg_token_tbl := p_mesg_token_tbl;
89:

Line 155: Error_Handler.Write_Debug('Finished querying chage line record . . .') ;

151: l_change_line_rec.Attribute15 := cl_rec.ATTRIBUTE15 ;
152: */
153:
154: IF BOM_Globals.Get_Debug = 'Y' THEN
155: Error_Handler.Write_Debug('Finished querying chage line record . . .') ;
156: END IF ;
157:
158: x_return_status := BOM_Globals.G_RECORD_FOUND ;
159: x_change_line_rec := l_change_line_rec ;

Line 186: Error_Handler.Add_Error_Token

182: l_err_text := G_PKG_NAME || ' Utility (Change Line Query Row) '
183: || substrb(SQLERRM,1,200);
184:
185:
186: Error_Handler.Add_Error_Token
187: ( p_message_name => NULL
188: , p_message_text => l_err_text
189: , p_mesg_token_tbl => x_mesg_token_tbl
190: , x_mesg_token_tbl => x_mesg_token_tbl

Line 210: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

206: *********************************************************************/
207: PROCEDURE Perform_Writes
208: ( p_change_line_rec IN Eng_Eco_Pub.Change_Line_Rec_Type
209: , p_change_line_unexp_rec IN Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
210: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
211: , x_return_status OUT NOCOPY VARCHAR2
212: )
213: IS
214:

Line 222: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

218: -- Error Handlig Variables
219: l_return_status VARCHAR2(1);
220: l_temp_return_status VARCHAR2(1);
221: l_err_text VARCHAR2(2000) ;
222: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
223: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
224: l_Token_Tbl Error_Handler.Token_Tbl_Type;
225:
226:

Line 223: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

219: l_return_status VARCHAR2(1);
220: l_temp_return_status VARCHAR2(1);
221: l_err_text VARCHAR2(2000) ;
222: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
223: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
224: l_Token_Tbl Error_Handler.Token_Tbl_Type;
225:
226:
227: BEGIN

Line 224: l_Token_Tbl Error_Handler.Token_Tbl_Type;

220: l_temp_return_status VARCHAR2(1);
221: l_err_text VARCHAR2(2000) ;
222: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
223: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
224: l_Token_Tbl Error_Handler.Token_Tbl_Type;
225:
226:
227: BEGIN
228:

Line 237: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

233: l_change_line_unexp_rec := p_change_line_unexp_rec ;
234: l_return_status := FND_API.G_RET_STS_SUCCESS ;
235: x_return_status := FND_API.G_RET_STS_SUCCESS ;
236:
237: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
238: ('Performing Database Writes . . .') ;
239: END IF ;
240:
241:

Line 244: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

240:
241:
242: IF l_change_line_rec.transaction_type = BOM_Globals.G_OPR_CREATE THEN
243:
244: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
245: ('Change Line: Executing Insert Row. . . ') ;
246: END IF;
247:
248:

Line 266: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

262: ELSIF l_change_line_rec.transaction_type = BOM_Globals.G_OPR_UPDATE
263: THEN
264:
265:
266: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
267: ('Change Line: Executing Update Row. . . ') ;
268: END IF ;
269:
270: Update_Row

Line 288: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

284:
285: ELSIF l_change_line_rec.transaction_type = BOM_Globals.G_OPR_DELETE
286: THEN
287:
288: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
289: ('Change Line: Executing Delete Row. . . ') ;
290: END IF ;
291:
292: Delete_Row

Line 316: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

312:
313: EXCEPTION
314: WHEN OTHERS THEN
315:
316: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
317: ('Some unknown error in Perform Writes . . .' || SQLERRM );
318: END IF ;
319:
320: l_err_text := G_PKG_NAME || ' Utility (Perform Writes) '

Line 324: Error_Handler.Add_Error_Token

320: l_err_text := G_PKG_NAME || ' Utility (Perform Writes) '
321: || substrb(SQLERRM,1,200);
322:
323:
324: Error_Handler.Add_Error_Token
325: ( p_message_name => NULL
326: , p_message_text => l_err_text
327: , p_mesg_token_tbl => l_mesg_token_tbl
328: , x_mesg_token_tbl => l_mesg_token_tbl

Line 352: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

348: *****************************************************************************/
349: PROCEDURE Insert_Row
350: ( p_change_line_rec IN Eng_Eco_Pub.Change_Line_Rec_Type
351: , p_change_line_unexp_rec IN Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
352: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
353: , x_return_status OUT NOCOPY VARCHAR2
354: )
355: IS
356:

Line 360: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

356:
357: -- Error Handlig Variables
358: l_return_status VARCHAR2(1);
359: l_err_text VARCHAR2(2000) ;
360: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
361:
362: Cursor c_csr( p_change_notice VARCHAR2
363: , p_organization_id NUMBER
364: )

Line 485: error_handler.write_debug('Change Line: '|| to_char(p_change_line_unexp_rec.change_line_id)

481:
482:
483: IF BOM_Globals.get_debug = 'Y'
484: THEN
485: error_handler.write_debug('Change Line: '|| to_char(p_change_line_unexp_rec.change_line_id)
486: ||' has been created. ' );
487: END IF;
488:
489: -- update IM TEXT Table

Line 507: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

503:
504: WHEN OTHERS THEN
505:
506:
507: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
508: ('Unexpected Error occured in Insert . . .' || SQLERRM);
509: END IF;
510:
511: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 516: Error_Handler.Add_Error_Token

512: THEN
513: l_err_text := G_PKG_NAME || ' : Utility (Change Line Insert) ' ||
514: SUBSTR(SQLERRM, 1, 200);
515:
516: Error_Handler.Add_Error_Token
517: ( p_message_name => NULL
518: , p_message_text => l_err_text
519: , p_mesg_token_tbl => l_mesg_token_tbl
520: , x_mesg_token_tbl => l_mesg_token_tbl

Line 544: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

540: ****************************************************************************/
541: PROCEDURE Update_Row
542: ( p_change_line_rec IN Eng_Eco_Pub.Change_Line_Rec_Type
543: , p_change_line_unexp_rec IN Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
544: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
545: , x_return_status OUT NOCOPY VARCHAR2
546: )
547: IS
548:

Line 552: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

548:
549: -- Error Handlig Variables
550: l_return_status VARCHAR2(1);
551: l_err_text VARCHAR2(2000) ;
552: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
553: l_Token_Tbl Error_Handler.Token_Tbl_Type;
554:
555: BEGIN
556:

Line 553: l_Token_Tbl Error_Handler.Token_Tbl_Type;

549: -- Error Handlig Variables
550: l_return_status VARCHAR2(1);
551: l_err_text VARCHAR2(2000) ;
552: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
553: l_Token_Tbl Error_Handler.Token_Tbl_Type;
554:
555: BEGIN
556:
557: l_return_status := FND_API.G_RET_STS_SUCCESS ;

Line 560: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update change line . . .') ;

556:
557: l_return_status := FND_API.G_RET_STS_SUCCESS ;
558: x_return_status := FND_API.G_RET_STS_SUCCESS ;
559:
560: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update change line . . .') ;
561: END IF ;
562:
563: UPDATE ENG_CHANGE_LINES
564: SET last_update_date = SYSDATE

Line 598: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

594:
595: EXCEPTION
596: WHEN OTHERS THEN
597:
598: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
599: ('Unexpected Error occured in Update . . .' || SQLERRM);
600: END IF;
601:
602: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 607: Error_Handler.Add_Error_Token

603: THEN
604: l_err_text := G_PKG_NAME || ' : Utility (Chage Line Update) ' ||
605: SUBSTR(SQLERRM, 1, 200);
606:
607: Error_Handler.Add_Error_Token
608: ( p_message_name => NULL
609: , p_message_text => l_err_text
610: , p_mesg_token_tbl => l_mesg_token_tbl
611: , x_mesg_token_tbl => l_mesg_token_tbl

Line 633: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

629: *********************************************************************/
630: PROCEDURE Delete_Row
631: ( p_change_line_rec IN Eng_Eco_Pub.Change_Line_Rec_Type
632: , p_change_line_unexp_rec IN Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
633: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
634: , x_return_status OUT NOCOPY VARCHAR2
635: )
636: IS
637:

Line 644: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

640:
641: -- Error Handlig Variables
642: l_return_status VARCHAR2(1);
643: l_err_text VARCHAR2(2000) ;
644: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
645: l_Token_Tbl Error_Handler.Token_Tbl_Type;
646:
647:
648: BEGIN

Line 645: l_Token_Tbl Error_Handler.Token_Tbl_Type;

641: -- Error Handlig Variables
642: l_return_status VARCHAR2(1);
643: l_err_text VARCHAR2(2000) ;
644: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
645: l_Token_Tbl Error_Handler.Token_Tbl_Type;
646:
647:
648: BEGIN
649: l_return_status := FND_API.G_RET_STS_SUCCESS ;

Line 680: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

676: EXCEPTION
677:
678: WHEN OTHERS THEN
679:
680: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
681: ('Unexpected Error occured in Delete . . .' || SQLERRM);
682: END IF;
683:
684: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 690: Error_Handler.Add_Error_Token

686: l_err_text := G_PKG_NAME || ' : Utility (Change Line Delete) ' ||
687: SUBSTR(SQLERRM, 1, 200);
688: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
689:
690: Error_Handler.Add_Error_Token
691: ( p_message_name => NULL
692: , p_message_text => l_err_text
693: , p_mesg_token_tbl => l_mesg_token_tbl
694: , x_mesg_token_tbl => l_mesg_token_tbl

Line 710: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

706: PROCEDURE Change_Subjects (
707: p_change_line_rec IN Eng_Eco_Pub.Change_Line_Rec_Type
708: , p_change_line_unexp_rec IN Eng_Eco_Pub.Change_Line_Unexposed_Rec_Type
709: , x_change_subject_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Change_Subject_Unexp_Rec_Type
710: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
711: , x_return_status IN OUT NOCOPY VARCHAR2)
712: IS
713:
714: cursor Getsubject (p_change_type_id in NUMBER) is

Line 752: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

748: l_return_status VARCHAR2(1);
749: l_org_id NUMBER;
750: l_rev_id NUMBER;
751: l_inv_item_id NUMBER;
752: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
753: l_Token_Tbl Error_Handler.Token_Tbl_Type;
754: l_err_text VARCHAR2(2000);
755:
756: BEGIN

Line 753: l_Token_Tbl Error_Handler.Token_Tbl_Type;

749: l_org_id NUMBER;
750: l_rev_id NUMBER;
751: l_inv_item_id NUMBER;
752: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
753: l_Token_Tbl Error_Handler.Token_Tbl_Type;
754: l_err_text VARCHAR2(2000);
755:
756: BEGIN
757:

Line 809: error_handler.add_error_token(

805: l_return_status := 'S'; --FND_API.G_RET_STS_SUCCESS;
806: ELSE
807: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
808: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
809: error_handler.add_error_token(
810: p_message_name => 'ENG_PK3_NAME_INVALID',
811: p_mesg_token_tbl => l_mesg_token_tbl,
812: x_mesg_token_tbl => l_mesg_token_tbl,
813: p_token_tbl => l_token_tbl);

Line 820: error_handler.add_error_token (

816: END IF; -- end of pk3_name is not null
817: ELSE
818: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
819: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
820: error_handler.add_error_token (
821: p_message_name => 'ENG_PK1_NAME_INVALID',
822: p_mesg_token_tbl => l_mesg_token_tbl,
823: x_mesg_token_tbl => l_mesg_token_tbl,
824: p_token_tbl => l_token_tbl );

Line 830: error_handler.add_error_token (

826: END IF; -- l_inv_item_id IS NOT NULL
827: ELSE
828: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
829: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
830: error_handler.add_error_token (
831: p_message_name => 'ENG_PK2_NAME_INVALID',
832: p_mesg_token_tbl => l_mesg_token_tbl,
833: x_mesg_token_tbl => l_mesg_token_tbl,
834: p_token_tbl => l_token_tbl );

Line 857: error_handler.add_error_token (

853: l_return_status := 'S';
854: ELSE
855: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
856: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
857: error_handler.add_error_token (
858: p_message_name => 'ENG_PK1_NAME_INVALID',
859: p_mesg_token_tbl => l_mesg_token_tbl,
860: x_mesg_token_tbl => l_mesg_token_tbl,
861: p_token_tbl => l_token_tbl );

Line 867: error_handler.add_error_token (

863: END IF; --l_rev_id IS NOT NULL
864: ELSE
865: l_token_tbl(1).token_name := 'CHANGE_LINE_TYPE';
866: l_token_tbl(1).token_value := p_change_line_rec.change_type_code;
867: error_handler.add_error_token (
868: p_message_name => 'ENG_PK2_NAME_INVALID',
869: p_mesg_token_tbl => l_mesg_token_tbl,
870: x_mesg_token_tbl => l_mesg_token_tbl,
871: p_token_tbl => l_token_tbl );