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 1210: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

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

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

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

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

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

Line 1429: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

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

Line 1439: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

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

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

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

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

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

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

1642: THEN
1643: --
1644: -- Copy Standard Operation Resources
1645: --
1646: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1647: ('Copy Standard Operation Resources. . . ' ) ;
1648: END IF ;
1649:
1650: 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 1667: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug

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

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

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

Line 1697: Error_Handler.Add_Error_Token

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

Line 1725: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

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

Line 1733: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

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

Line 1734: l_Token_Tbl Error_Handler.Token_Tbl_Type;

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

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

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

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

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

Line 1841: Error_Handler.Add_Error_Token

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

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

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

Line 1863: Error_Handler.Add_Error_Token

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

Line 1896: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

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

Line 1909: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

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

Line 1910: l_Token_Tbl Error_Handler.Token_Tbl_Type;

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

Line 1964: Error_Handler.Add_Error_Token

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

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

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

Line 2013: Error_Handler.Add_Error_Token

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

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

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

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

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

Line 2075: Error_Handler.Add_Error_Token

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

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

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

Line 2101: Error_Handler.Add_Error_Token

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

Line 2140: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

2136: , p_user_id IN NUMBER
2137: , p_login_id IN NUMBER
2138: , p_prog_id IN NUMBER
2139: , p_prog_appid IN NUMBER
2140: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2141: , x_return_status IN OUT NOCOPY VARCHAR2
2142: )
2143:
2144:

Line 2150: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;

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

Line 2151: l_Token_Tbl Error_Handler.Token_Tbl_Type;

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

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

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

Line 2329: Error_Handler.Add_Error_Token

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

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

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

Line 2363: Error_Handler.Add_Error_Token

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