DBA Data[Home] [Help]

APPS.BOM_OP_SEQ_UTIL dependencies on ERROR_HANDLER

Line 46: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

42: ( p_operation_sequence_number IN NUMBER
43: , p_effectivity_date IN DATE
44: , p_routing_sequence_id IN NUMBER
45: , p_operation_type IN NUMBER
46: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
47: , x_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Operation_Rec_Type
48: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
49: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
50: , x_return_status IN OUT NOCOPY VARCHAR2

Line 49: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

45: , p_operation_type IN NUMBER
46: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
47: , x_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Operation_Rec_Type
48: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
49: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
50: , x_return_status IN OUT NOCOPY VARCHAR2
51: )
52:
53:

Line 105: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

101: ( p_operation_sequence_number IN NUMBER
102: , p_effectivity_date IN DATE
103: , p_routing_sequence_id IN NUMBER
104: , p_operation_type IN NUMBER
105: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
106: , x_rev_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Rec_Type
107: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
108: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
109: , x_return_status IN OUT NOCOPY VARCHAR2

Line 108: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

104: , p_operation_type IN NUMBER
105: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
106: , x_rev_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Rec_Type
107: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
108: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
109: , x_return_status IN OUT NOCOPY VARCHAR2
110: )
111:
112:

Line 168: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type

164: ( p_operation_sequence_number IN NUMBER
165: , p_effectivity_date IN DATE
166: , p_routing_sequence_id IN NUMBER
167: , p_operation_type IN NUMBER
168: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
169: , x_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
170: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
171: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
172: , x_return_status IN OUT NOCOPY VARCHAR2

Line 171: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

167: , p_operation_type IN NUMBER
168: , p_mesg_token_tbl IN Error_Handler.Mesg_Token_Tbl_Type
169: , x_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
170: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
171: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
172: , x_return_status IN OUT NOCOPY VARCHAR2
173: )
174: IS
175:

Line 216: Error_Handler.Write_Debug

212:
213: BEGIN
214:
215: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
216: Error_Handler.Write_Debug
217: ('Querying an operation sequence record : Seq Number '
218: || to_char(p_operation_sequence_number) || '. . . ' ) ;
219: Error_Handler.Write_Debug (' : Routing seq id ' || to_char( p_routing_sequence_id));
220: Error_Handler.Write_Debug (' : Effecitive date' || to_char( p_effectivity_date));

Line 219: Error_Handler.Write_Debug (' : Routing seq id ' || to_char( p_routing_sequence_id));

215: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
216: Error_Handler.Write_Debug
217: ('Querying an operation sequence record : Seq Number '
218: || to_char(p_operation_sequence_number) || '. . . ' ) ;
219: Error_Handler.Write_Debug (' : Routing seq id ' || to_char( p_routing_sequence_id));
220: Error_Handler.Write_Debug (' : Effecitive date' || to_char( p_effectivity_date));
221: Error_Handler.Write_Debug (' : Operation type ' || to_char( NVL(p_operation_type , 1)));
222: END IF ;
223:

Line 220: Error_Handler.Write_Debug (' : Effecitive date' || to_char( p_effectivity_date));

216: Error_Handler.Write_Debug
217: ('Querying an operation sequence record : Seq Number '
218: || to_char(p_operation_sequence_number) || '. . . ' ) ;
219: Error_Handler.Write_Debug (' : Routing seq id ' || to_char( p_routing_sequence_id));
220: Error_Handler.Write_Debug (' : Effecitive date' || to_char( p_effectivity_date));
221: Error_Handler.Write_Debug (' : Operation type ' || to_char( NVL(p_operation_type , 1)));
222: END IF ;
223:
224: -- dbms_output.put_line('Op Type : ' ||

Line 221: Error_Handler.Write_Debug (' : Operation type ' || to_char( NVL(p_operation_type , 1)));

217: ('Querying an operation sequence record : Seq Number '
218: || to_char(p_operation_sequence_number) || '. . . ' ) ;
219: Error_Handler.Write_Debug (' : Routing seq id ' || to_char( p_routing_sequence_id));
220: Error_Handler.Write_Debug (' : Effecitive date' || to_char( p_effectivity_date));
221: Error_Handler.Write_Debug (' : Operation type ' || to_char( NVL(p_operation_type , 1)));
222: END IF ;
223:
224: -- dbms_output.put_line('Op Type : ' ||
225: -- to_char(p_operation_type);

Line 314: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning operation record . . .') ;

310: l_com_operation_rec.Attribute15 := op_seq_rec.ATTRIBUTE15 ;
311: l_com_operation_rec.Original_System_Reference := op_seq_rec.ORIGINAL_SYSTEM_REFERENCE ;
312: l_com_operation_rec.Long_Description := op_seq_rec.LONG_DESCRIPTION ; -- Added for long description project (Bug 2689249)
313:
314: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Finished querying and assigning operation record . . .') ;
315: END IF ;
316:
317: x_return_status := BOM_Rtg_Globals.G_RECORD_FOUND ;
318: x_com_operation_rec := l_com_operation_rec ;

Line 340: Error_Handler.Add_Error_Token

336: || substrb(SQLERRM,1,200);
337:
338: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
339:
340: Error_Handler.Add_Error_Token
341: ( p_message_name => NULL
342: , p_message_text => l_err_text
343: , p_mesg_token_tbl => p_mesg_token_tbl
344: , x_mesg_token_tbl => x_mesg_token_tbl

Line 367: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

363: *********************************************************************/
364: PROCEDURE Perform_Writes
365: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
366: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
367: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
368: , x_return_status IN OUT NOCOPY VARCHAR2
369: )
370: IS
371: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;

Line 413: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

409: PROCEDURE Perform_Writes
410: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
411: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
412: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
413: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
414: , x_return_status IN OUT NOCOPY VARCHAR2
415: )
416: IS
417: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;

Line 456: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

452: PROCEDURE Perform_Writes
453: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
454: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
455: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
456: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
457: , x_return_status IN OUT NOCOPY VARCHAR2
458: )
459:
460: IS

Line 471: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

467: -- Error Handlig Variables
468: l_return_status VARCHAR2(1);
469: l_temp_return_status VARCHAR2(1);
470: l_err_text VARCHAR2(2000) ;
471: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
472: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
473: l_Token_Tbl Error_Handler.Token_Tbl_Type;
474:
475: -- Check if Routing exists

Line 472: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

468: l_return_status VARCHAR2(1);
469: l_temp_return_status VARCHAR2(1);
470: l_err_text VARCHAR2(2000) ;
471: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
472: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
473: l_Token_Tbl Error_Handler.Token_Tbl_Type;
474:
475: -- Check if Routing exists
476: CURSOR l_rtg_exists_csr ( p_revised_item_id NUMBER

Line 473: l_Token_Tbl Error_Handler.Token_Tbl_Type;

469: l_temp_return_status VARCHAR2(1);
470: l_err_text VARCHAR2(2000) ;
471: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
472: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
473: l_Token_Tbl Error_Handler.Token_Tbl_Type;
474:
475: -- Check if Routing exists
476: CURSOR l_rtg_exists_csr ( p_revised_item_id NUMBER
477: , p_organization_id NUMBER

Line 515: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

511: l_com_op_unexp_rec := p_com_op_unexp_rec ;
512: l_return_status := FND_API.G_RET_STS_SUCCESS ;
513: x_return_status := FND_API.G_RET_STS_SUCCESS ;
514:
515: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
516: ('Performing Database Writes . . .') ;
517: END IF ;
518:
519:

Line 521: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

517: END IF ;
518:
519:
520: IF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
521: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
522: ('Operation Sequence: Executing Insert Row. . . ') ;
523: END IF;
524:
525: /**************************************************************************

Line 570: Error_Handler.Add_Error_Token

566: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
567: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER';
568: l_Token_Tbl(2).token_value := p_com_operation_rec.operation_sequence_number ;
569:
570: Error_Handler.Add_Error_Token
571: ( p_Message_Name => 'BOM_NEW_PRIMARY_RTG_CREATED'
572: , p_Message_Text => NULL
573: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
574: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 589: Error_Handler.Add_Error_Token

585: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
586: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER';
587: l_Token_Tbl(2).token_value := p_com_operation_rec.operation_sequence_number ;
588:
589: Error_Handler.Add_Error_Token
590: ( p_Message_Name => 'BOM_NEW_PRIMARY_RTG_CREATED'
591: , p_Message_Text => NULL
592: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
593: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 666: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

662: AND organization_id = l_com_op_unexp_rec.organization_id
663: AND inventory_item_id = l_com_op_unexp_rec.revised_item_id
664: ) ;
665:
666: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
667: ('Creating new routing revision for the created primary routing for the revised item . . . ') ;
668: END IF;
669:
670:

Line 693: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

689: END IF ;
690:
691: ELSIF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
692: THEN
693: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
694: ('Operatin Sequence: Executing Update Row. . . ') ;
695: END IF ;
696:
697: Update_Row

Line 707: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

703:
704: ELSIF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
705: THEN
706:
707: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
708: ('Operatin Sequence: Executing Delete Row. . . ') ;
709: END IF ;
710:
711: Delete_Row

Line 735: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

731: ELSIF l_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CANCEL
732: THEN
733:
734:
735: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
736: ('Operatin Sequence: Perform Cancel Operation . . .') ;
737: END IF ;
738:
739: Cancel_Operation

Line 751: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

747: , x_return_status => l_return_status
748: , x_mesg_token_tbl => l_mesg_token_tbl
749: ) ;
750:
751: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
752: ('Cancel Operation is completed with return status ' || l_return_status ) ;
753: END IF ;
754:
755:

Line 770: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

766: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl ;
767:
768: EXCEPTION
769: WHEN OTHERS THEN
770: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
771: ('Some unknown error in Perform Writes . . .' || SQLERRM );
772: END IF ;
773:
774: l_err_text := G_PKG_NAME || ' Utility (Perform Writes) '

Line 779: Error_Handler.Add_Error_Token

775: || substrb(SQLERRM,1,200);
776:
777: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
778:
779: Error_Handler.Add_Error_Token
780: ( p_message_name => NULL
781: , p_message_text => l_err_text
782: , p_mesg_token_tbl => l_mesg_token_tbl
783: , x_mesg_token_tbl => l_mesg_token_tbl

Line 825: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

821: , p_created_by IN NUMBER
822: , p_login_id IN NUMBER
823: , p_revised_item_sequence_id IN NUMBER
824: , p_original_system_reference IN VARCHAR2
825: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
826: , x_return_status IN OUT NOCOPY VARCHAR2
827: )
828: IS
829: -- Error Handlig Variables

Line 832: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

828: IS
829: -- Error Handlig Variables
830: l_return_status VARCHAR2(1);
831: l_err_text VARCHAR2(2000) ;
832: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
833:
834: BEGIN
835: NULL ;
836: /* commenting this following updating for the release 11i.4 to remove dependancy

Line 843: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

839: -- in release 12 when these all files alongwith the odf will be base
840:
841: x_return_status := FND_API.G_RET_STS_SUCCESS ;
842:
843: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
844: ('Create New Routing for ECO . . .') ;
845: END IF ;
846:
847: --

Line 907: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

903: , last_updated_by = p_last_updated_by -- Last Updated By
904: , last_update_login = p_login_id -- Last Update Login
905: WHERE revised_item_sequence_id = p_revised_item_sequence_id ;
906:
907: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
908: ('Set created routing sequence id : ' || to_char(p_routing_sequence_id)
909: || ' to the parenet revised item . . .') ;
910: END IF ;
911:

Line 915: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

911:
912:
913: EXCEPTION
914: WHEN OTHERS THEN
915: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
916: ('Some unknown error in Creating New Routing . . .' || SQLERRM );
917: END IF ;
918:
919: l_err_text := G_PKG_NAME || 'Utilities (Create New Routing) '

Line 924: Error_Handler.Add_Error_Token

920: || substrb(SQLERRM,1,200);
921:
922: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
923:
924: Error_Handler.Add_Error_Token
925: ( p_message_name => NULL
926: , p_message_text => l_err_text
927: , p_mesg_token_tbl => l_mesg_token_tbl
928: , x_mesg_token_tbl => l_mesg_token_tbl

Line 1207: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1203: )
1204: IS
1205: BEGIN
1206:
1207: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1208: ('Debug1. . . ' ) ;
1209: END IF ;
1210:
1211: INSERT INTO BOM_OPERATION_RESOURCES

Line 1305: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1301: -- , setup_id
1302: FROM BOM_OPERATION_RESOURCES
1303: WHERE operation_sequence_id = p_old_operation_sequence_id ;
1304:
1305: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1306: ('Debug2. . . ' ) ;
1307: END IF ;
1308:
1309: INSERT INTO BOM_SUB_OPERATION_RESOURCES

Line 1403: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1399: -- , setup_id
1400: FROM BOM_SUB_OPERATION_RESOURCES
1401: WHERE operation_sequence_id = p_old_operation_sequence_id ;
1402:
1403: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1404: ('Debug3. . . ' ) ;
1405: END IF ;
1406:
1407: END Copy_Old_Op_Seq_Children ;

Line 1426: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1422: *****************************************************************************/
1423: PROCEDURE Insert_Row
1424: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1425: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1426: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1427: , x_return_status IN OUT NOCOPY VARCHAR2
1428: )
1429: IS
1430: l_Bo_Id VARCHAR2(3) ;

Line 1436: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

1432:
1433: -- Error Handlig Variables
1434: l_return_status VARCHAR2(1);
1435: l_err_text VARCHAR2(2000) ;
1436: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1437:
1438:
1439: /* Comment out to resolve Eco Bo dependency
1440:

Line 1462: error_handler.write_debug('Now Eco_For_Production in Parent Revised Item is set to this revised operation');

1458: IF l_Bo_Id = BOM_Rtg_Globals.G_ECO_BO THEN
1459:
1460: IF BOM_Rtg_Globals.get_debug = 'Y'
1461: THEN
1462: error_handler.write_debug('Now Eco_For_Production in Parent Revised Item is set to this revised operation');
1463: END IF;
1464:
1465: OPEN l_eco_for_production_csr ( p_revised_item_sequence_id =>
1466: p_com_op_unexp_rec.revised_item_sequence_id

Line 1631: error_handler.write_debug('Operation : '|| to_char(p_com_op_unexp_rec.operation_sequence_id)

1627: );
1628:
1629: IF BOM_Rtg_Globals.get_debug = 'Y'
1630: THEN
1631: error_handler.write_debug('Operation : '|| to_char(p_com_op_unexp_rec.operation_sequence_id)
1632: ||' has been created. ' );
1633: END IF;
1634:
1635:

Line 1643: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1639: THEN
1640: --
1641: -- Copy Standard Operation Resources
1642: --
1643: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1644: ('Copy Standard Operation Resources. . . ' ) ;
1645: END IF ;
1646:
1647: IF p_com_operation_rec.reference_flag = 1 OR (p_com_operation_rec.reference_flag = 2 AND nvl(BOM_Globals.Get_Caller_Type, '') <> 'MIGRATION') THEN

Line 1664: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1660: THEN
1661: --
1662: -- Copy Old Operation childeren when Rev Op's Acd type is disable
1663: --
1664: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1665: ('Copy Operation Resources of Old Rev Operation when the Acd Type is disable. . . ' ) ;
1666: END IF ;
1667:
1668: Copy_Old_Op_Seq_Children

Line 1684: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1680:
1681: EXCEPTION
1682:
1683: WHEN OTHERS THEN
1684: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1685: ('Unexpected Error occured in Insert . . .' || SQLERRM);
1686: END IF;
1687:
1688: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 1694: Error_Handler.Add_Error_Token

1690: l_err_text := G_PKG_NAME || ' : Utility (Operation Insert) ' ||
1691: SUBSTR(SQLERRM, 1, 200);
1692: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1693:
1694: Error_Handler.Add_Error_Token
1695: ( p_message_name => NULL
1696: , p_message_text => l_err_text
1697: , p_mesg_token_tbl => l_mesg_token_tbl
1698: , x_mesg_token_tbl => l_mesg_token_tbl

Line 1722: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1718: ****************************************************************************/
1719: PROCEDURE Update_Row
1720: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1721: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1722: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1723: , x_return_status IN OUT NOCOPY VARCHAR2
1724: )
1725: IS
1726:

Line 1730: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

1726:
1727: -- Error Handlig Variables
1728: l_return_status VARCHAR2(1);
1729: l_err_text VARCHAR2(2000) ;
1730: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1731: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1732:
1733: BEGIN
1734:

Line 1731: l_Token_Tbl Error_Handler.Token_Tbl_Type;

1727: -- Error Handlig Variables
1728: l_return_status VARCHAR2(1);
1729: l_err_text VARCHAR2(2000) ;
1730: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1731: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1732:
1733: BEGIN
1734:
1735: l_return_status := FND_API.G_RET_STS_SUCCESS ;

Line 1739: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;

1735: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1736: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1737:
1738:
1739: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;
1740: END IF ;
1741:
1742: UPDATE BOM_OPERATION_SEQUENCES
1743: SET operation_seq_num = DECODE(p_com_operation_rec.new_operation_sequence_number ,

Line 1828: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1824: AND bom.organization_id = bor.organization_id
1825: AND bor.routing_sequence_id = p_com_op_unexp_rec.routing_sequence_id) ;
1826:
1827: IF SQL%FOUND THEN
1828: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1829: ('Operation lead time in bom inventory components refered Operation Seq Num is updated.') ;
1830: END IF ;
1831:
1832: --

Line 1838: Error_Handler.Add_Error_Token

1834: --
1835: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
1836: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
1837:
1838: Error_Handler.Add_Error_Token
1839: ( p_message_name => 'BOM_OP_LT_PCT_UPDATED'
1840: , p_mesg_token_tbl => l_mesg_token_Tbl
1841: , x_mesg_token_tbl => l_mesg_token_tbl
1842: , p_message_type => 'W' /* Warning */

Line 1850: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

1846:
1847:
1848: EXCEPTION
1849: WHEN OTHERS THEN
1850: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1851: ('Unexpected Error occured in Update . . .' || SQLERRM);
1852: END IF;
1853:
1854: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 1860: Error_Handler.Add_Error_Token

1856: l_err_text := G_PKG_NAME || ' : Utility (Operation Update) ' ||
1857: SUBSTR(SQLERRM, 1, 200);
1858: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1859:
1860: Error_Handler.Add_Error_Token
1861: ( p_message_name => NULL
1862: , p_message_text => l_err_text
1863: , p_mesg_token_tbl => l_mesg_token_tbl
1864: , x_mesg_token_tbl => l_mesg_token_tbl

Line 1893: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1889: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1890: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1891: , x_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
1892: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1893: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1894: , x_return_status IN OUT NOCOPY VARCHAR2
1895: )
1896: IS
1897:

Line 1906: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

1902:
1903: -- Error Handlig Variables
1904: l_return_status VARCHAR2(1);
1905: l_err_text VARCHAR2(2000) ;
1906: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1907: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1908: l_rtg_type NUMBER;
1909:
1910:

Line 1907: l_Token_Tbl Error_Handler.Token_Tbl_Type;

1903: -- Error Handlig Variables
1904: l_return_status VARCHAR2(1);
1905: l_err_text VARCHAR2(2000) ;
1906: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1907: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1908: l_rtg_type NUMBER;
1909:
1910:
1911:

Line 1961: Error_Handler.Add_Error_Token

1957: THEN
1958: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
1959: l_Token_Tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
1960:
1961: Error_Handler.Add_Error_Token
1962: ( p_Message_Name => 'BOM_OP_DEL_CHILDREN'
1963: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1964: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1965: , p_Token_Tbl => l_Token_Tbl

Line 1976: Error_Handler.Write_Debug('Finished deleting revised operation record . . .') ;

1972: WHERE OPERATION_SEQUENCE_ID = l_com_op_unexp_rec.operation_sequence_id ;
1973:
1974:
1975: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1976: Error_Handler.Write_Debug('Finished deleting revised operation record . . .') ;
1977: END IF ;
1978:
1979:
1980: ELSIF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO

Line 2010: Error_Handler.Add_Error_Token

2006: -- would create New Delete Group
2007: --
2008: l_dg_sequence_id := NULL;
2009:
2010: Error_Handler.Add_Error_Token
2011: ( p_message_name => 'NEW_DELETE_GROUP'
2012: , p_mesg_token_tbl => l_mesg_token_Tbl
2013: , x_mesg_token_tbl => l_mesg_token_tbl
2014: , p_message_type => 'W' /* Warning */

Line 2047: Error_Handler.Write_Debug('Finished creatin new delete group . . .') ;

2043: user_id => BOM_Rtg_Globals.Get_User_Id
2044: ) ;
2045:
2046: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2047: Error_Handler.Write_Debug('Finished creatin new delete group . . .') ;
2048: END IF ;
2049:
2050: END IF ;
2051:

Line 2064: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2060:
2061: EXCEPTION
2062: WHEN DUPLICATE_DEL_GROUP THEN
2063:
2064: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2065: ('Duplicate Delete Group Error occured in Delete . . .' || SQLERRM);
2066: END IF;
2067:
2068:

Line 2072: Error_Handler.Add_Error_Token

2068:
2069: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2070: THEN
2071:
2072: Error_Handler.Add_Error_Token
2073: ( p_message_name => 'BOM_DUPLICATE_DELETE_GROUP'
2074: , p_mesg_token_tbl => l_mesg_token_Tbl
2075: , x_mesg_token_tbl => l_mesg_token_tbl
2076: ) ;

Line 2088: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: x_mesg_token_tbl := l_mesg_token_tbl;
2086:
2087: WHEN OTHERS THEN
2088: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2089: ('Unexpected Error occured in Delete . . .' || SQLERRM);
2090: END IF;
2091:
2092: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 2098: Error_Handler.Add_Error_Token

2094: l_err_text := G_PKG_NAME || ' : Utility (Operation Delete) ' ||
2095: SUBSTR(SQLERRM, 1, 200);
2096: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2097:
2098: Error_Handler.Add_Error_Token
2099: ( p_message_name => NULL
2100: , p_message_text => l_err_text
2101: , p_mesg_token_tbl => l_mesg_token_tbl
2102: , x_mesg_token_tbl => l_mesg_token_tbl

Line 2137: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

2133: , p_user_id IN NUMBER
2134: , p_login_id IN NUMBER
2135: , p_prog_id IN NUMBER
2136: , p_prog_appid IN NUMBER
2137: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2138: , x_return_status IN OUT NOCOPY VARCHAR2
2139: )
2140:
2141:

Line 2147: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

2143:
2144: -- Error Handlig Variables
2145: l_return_status VARCHAR2(1);
2146: l_err_text VARCHAR2(2000) ;
2147: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2148: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2149:
2150:
2151: BEGIN

Line 2148: l_Token_Tbl Error_Handler.Token_Tbl_Type;

2144: -- Error Handlig Variables
2145: l_return_status VARCHAR2(1);
2146: l_err_text VARCHAR2(2000) ;
2147: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2148: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2149:
2150:
2151: BEGIN
2152: null;

Line 2162: Error_Handler.Write_Debug('Performing cancel revised operation : '

2158: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2159: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2160:
2161: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2162: Error_Handler.Write_Debug('Performing cancel revised operation : '
2163: || to_char(p_operation_sequence_id) || ' . . .') ;
2164: END IF ;
2165:
2166: --

Line 2326: Error_Handler.Add_Error_Token

2322: --
2323: -- l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
2324: -- l_Token_Tbl(1).token_value := p_op_seq_num ;
2325:
2326: Error_Handler.Add_Error_Token
2327: ( p_Message_Name => 'BOM_OP_CANCEL_DEL_CHILDREN'
2328: , p_Message_Text => NULL
2329: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2330: , p_Token_Tbl => l_Token_Tbl

Line 2350: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

2346:
2347:
2348: EXCEPTION
2349: WHEN OTHERS THEN
2350: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2351: ('Unexpected Error occured in Cancel . . .' || SQLERRM);
2352: END IF;
2353:
2354: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

Line 2360: Error_Handler.Add_Error_Token

2356: l_err_text := G_PKG_NAME || ' : Utility (Operation Cancel) ' ||
2357: SUBSTR(SQLERRM, 1, 200);
2358: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2359:
2360: Error_Handler.Add_Error_Token
2361: ( p_message_name => NULL
2362: , p_message_text => l_err_text
2363: , p_mesg_token_tbl => l_mesg_token_tbl
2364: , x_mesg_token_tbl => l_mesg_token_tbl