eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.ENG_REVISED_ITEM_UTIL dependencies on ERROR_HANDLER

Line 148: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type

144: ( p_organization_id IN NUMBER
145: , p_change_notice IN VARCHAR2
146: , p_user_id IN NUMBER
147: , p_login IN NUMBER
148: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
149: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
150: , x_return_status OUT NOCOPY VARCHAR2
151: )
152: IS

Line 149: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

145: , p_change_notice IN VARCHAR2
146: , p_user_id IN NUMBER
147: , p_login IN NUMBER
148: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
149: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
150: , x_return_status OUT NOCOPY VARCHAR2
151: )
152: IS
153: l_err_text VARCHAR2(2000) := NULL;

Line 154: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;

150: , x_return_status OUT NOCOPY VARCHAR2
151: )
152: IS
153: l_err_text VARCHAR2(2000) := NULL;
154: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;
155: l_token_tbl Error_Handler.Token_Tbl_Type;
156: X_EcoStatus number;
157: Cursor CheckEco is
158: Select 'x' dummy

Line 155: l_token_tbl Error_Handler.Token_Tbl_Type;

151: )
152: IS
153: l_err_text VARCHAR2(2000) := NULL;
154: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;
155: l_token_tbl Error_Handler.Token_Tbl_Type;
156: X_EcoStatus number;
157: Cursor CheckEco is
158: Select 'x' dummy
159: From dual

Line 197: Error_Handler.Add_Error_Token

193: X_EcoStatus := 6;
194:
195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
196: THEN
197: Error_Handler.Add_Error_Token
198: ( p_Message_Name => 'ENG_LAST_ITEM_CANCL_ECO_IMPL'
199: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
200: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
201: , p_Token_Tbl => l_Token_Tbl

Line 220: Error_Handler.Add_Error_Token

216: AND CHANGE_NOTICE = p_change_notice;
217:
218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
219: THEN
220: Error_Handler.Add_Error_Token
221: ( p_Message_Name => 'ENG_LAST_ITEM_CANCL_ECO_CANCL'
222: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
223: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
224: , p_Token_Tbl => l_Token_Tbl

Line 235: Error_Handler.Add_Error_Token

231: EXCEPTION
232: WHEN OTHERS THEN
233: l_err_text := G_PKG_NAME || ' :(Cancel_ECO)-Revised Item '
234: || substrb(SQLERRM,1,200);
235: Error_Handler.Add_Error_Token
236: ( p_Message_Name => NULL
237: , p_Message_Text => l_Err_Text
238: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
239: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 270: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type

266: , user_id IN NUMBER
267: , login IN NUMBER
268: , change_order IN VARCHAR2
269: , cancel_comments IN VARCHAR2
270: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
271: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
272: , x_return_status OUT NOCOPY VARCHAR2
273: )
274: IS

Line 271: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

267: , login IN NUMBER
268: , change_order IN VARCHAR2
269: , cancel_comments IN VARCHAR2
270: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
271: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
272: , x_return_status OUT NOCOPY VARCHAR2
273: )
274: IS
275: l_err_text VARCHAR2(2000) := NULL;

Line 276: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;

272: , x_return_status OUT NOCOPY VARCHAR2
273: )
274: IS
275: l_err_text VARCHAR2(2000) := NULL;
276: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;
277:
278: CURSOR c_getRevisedComps IS
279: SELECT component_sequence_id
280: FROM bom_inventory_components

Line 524: Error_Handler.Add_Error_Token

520: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
521: WHEN OTHERS THEN
522: l_err_text := G_PKG_NAME || ' :(Cancel_Revised_Item)-Revised Item '
523: || substrb(SQLERRM,1,200);
524: Error_Handler.Add_Error_Token
525: ( p_Message_Name => NULL
526: , p_Message_Text => l_Err_Text
527: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
528: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 736: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

732: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
733: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
734: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
735: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
736: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
737: , x_Return_Status OUT NOCOPY VARCHAR2
738: )
739: IS
740: l_err_text VARCHAR2(2000);

Line 742: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

738: )
739: IS
740: l_err_text VARCHAR2(2000);
741: l_stmt_num NUMBER := 0;
742: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
743: l_user_id NUMBER;
744: l_login_id NUMBER;
745: l_prog_appid NUMBER;
746: l_prog_id NUMBER;

Line 762: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item . . . seq id : ' ||

758: l_prog_id := ENG_GLOBALS.Get_prog_id;
759:
760:
761:
762: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item . . . seq id : ' ||
763: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
764: END IF;
765:
766: IF (p_control_rec.caller_type = 'FORM' AND

Line 882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;

878:
879: x_return_status := FND_API.G_RET_STS_SUCCESS;
880:
881:
882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;
883:
884: EXCEPTION
885: WHEN NO_DATA_FOUND THEN
886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;

Line 886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;

882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;
883:
884: EXCEPTION
885: WHEN NO_DATA_FOUND THEN
886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;
887: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
888: THEN
889: Error_Handler.Add_Error_Token
890: ( p_Message_Name => 'ENG_REV_ITEM_REC_DELETED'

Line 889: Error_Handler.Add_Error_Token

885: WHEN NO_DATA_FOUND THEN
886: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;
887: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
888: THEN
889: Error_Handler.Add_Error_Token
890: ( p_Message_Name => 'ENG_REV_ITEM_REC_DELETED'
891: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
892: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
893: );

Line 898: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('un exp stmt_num '|| l_stmt_num); END IF;

894: END IF;
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
896:
897: WHEN OTHERS THEN
898: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('un exp stmt_num '|| l_stmt_num); END IF;
899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: l_err_text := G_PKG_NAME || ' : Utility (Revised Item Update) '
902: || SUBSTR(SQLERRM, 1, 200);

Line 903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;

899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
900: THEN
901: l_err_text := G_PKG_NAME || ' : Utility (Revised Item Update) '
902: || SUBSTR(SQLERRM, 1, 200);
903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
904: IF FND_MSG_PUB.Check_Msg_Level
905: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
906: THEN
907: Error_Handler.Add_Error_Token

Line 907: Error_Handler.Add_Error_Token

903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
904: IF FND_MSG_PUB.Check_Msg_Level
905: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
906: THEN
907: Error_Handler.Add_Error_Token
908: ( p_Message_Name => NULL
909: , p_Message_Text => l_Err_Text
910: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
911: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 919: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validation controller is '||p_control_rec.validation_controller); END IF;

915: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
916: END;
917: END IF; -- if call is from form, and side effects processing not requested.
918:
919: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validation controller is '||p_control_rec.validation_controller); END IF;
920:
921: -- If call if from form, execute this block of code only if side effects
922: -- processing has been requested
923: -- By AS on 10/13/99

Line 930: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing SIDE_EFFECTS'); END IF;

926: OR
927: p_control_rec.caller_type <> 'FORM'
928: THEN
929:
930: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing SIDE_EFFECTS'); END IF;
931:
932: /*********************************************************************
933: --
934: -- If the user has updated the status to 5 i.e. cancel, then

Line 988: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Action on Item Revision is :'||to_char(Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV) ); END IF;

984: if any existing need to be deleted ro modified.
985: */
986:
987: BEGIN
988: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Action on Item Revision is :'||to_char(Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV) ); END IF;
989: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
990: THEN
991: -- Delete record from MTL_ITEM_REVISIONS if it already
992: -- exists

Line 993: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;

989: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
990: THEN
991: -- Delete record from MTL_ITEM_REVISIONS if it already
992: -- exists
993: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;
994:
995: l_stmt_num := 3;
996: ENG_REVISED_ITEMS_PKG.Delete_Item_Revisions
997: ( x_change_notice =>

Line 1011: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Item Revisions . . .');

1007: THEN
1008: -- Update new item revision information in
1009: -- MTL_ITEM_REVISIONS
1010:
1011: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Item Revisions . . .');
1012: END IF;
1013:
1014: /*
1015: IF Bom_Globals.Get_Debug = 'Y' THEN

Line 1016: Error_Handler.Write_Debug(p_revised_item_rec.updated_revised_item_revision

1012: END IF;
1013:
1014: /*
1015: IF Bom_Globals.Get_Debug = 'Y' THEN
1016: Error_Handler.Write_Debug(p_revised_item_rec.updated_revised_item_revision
1017: || p_revised_item_rec.start_effective_date
1018: ||p_revised_item_rec.new_effective_date
1019: || p_revised_item_rec.eco_name
1020: || p_rev_item_unexp_rec.organization_id

Line 1125: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Item Revisions . . .'); END IF;

1121: THEN
1122: -- Insert new record if revision record doesn't already
1123: -- exist
1124:
1125: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Item Revisions . . .'); END IF;
1126: l_stmt_num := 5;
1127: IF (p_revised_item_rec.new_effective_date is NULL) THEN
1128: ENG_REVISED_ITEMS_PKG.Insert_Item_Revisions
1129: ( x_inventory_item_id =>

Line 1232: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;

1228: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 1
1229: THEN
1230: -- Delete record from MTL_RTG_ITEM_REVISIONS if it already
1231: -- exists
1232: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;
1233:
1234: DELETE FROM MTL_RTG_ITEM_REVISIONS
1235: WHERE implementation_date IS NULL
1236: AND change_notice = p_revised_item_rec.eco_name

Line 1248: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Routing Revisions . . .'); END IF;

1244: THEN
1245: -- Update new item revision information in
1246: -- MTL_ITEM_REVISIONS
1247:
1248: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Routing Revisions . . .'); END IF;
1249:
1250: UPDATE MTL_RTG_ITEM_REVISIONS
1251: SET process_revision = p_revised_item_rec.updated_routing_revision
1252: , effectivity_date = DECODE( DECODE(p_revised_item_rec.new_effective_date,

Line 1275: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;

1271: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3
1272: THEN
1273: -- Insert new record if revision record doesn't already
1274: -- exist
1275: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;
1276:
1277: IF ( p_revised_item_rec.new_effective_date is NULL) THEN
1278: Insert_Routing_Revisions
1279: ( p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id

Line 1317: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;

1313: IF Eng_Default_Revised_Item.G_SCHED_DATE_CHANGED
1314: THEN
1315: l_stmt_num := 6;
1316:
1317: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;
1318:
1319: ENG_REVISED_ITEMS_PKG.Update_Inventory_Components
1320: ( x_change_notice =>
1321: p_revised_item_rec.eco_name

Line 1335: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective date for child rev operations . . . '); END IF;

1331: );
1332:
1333:
1334:
1335: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective date for child rev operations . . . '); END IF;
1336:
1337: Update_Rev_Operations
1338: ( x_change_notice => p_revised_item_rec.eco_name
1339: , x_routing_sequence_id => p_rev_item_unexp_rec.routing_sequence_id

Line 1346: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting current schedule date . . .'); END IF;

1342: ) ;
1343:
1344:
1345: l_stmt_num := 7;
1346: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting current schedule date . . .'); END IF;
1347: if (p_revised_item_rec.status_type = 4) then
1348: if (p_rev_item_unexp_rec.requestor_id is null ) then
1349: -- req_id := l_User_Id;
1350: -- Bug 3589974 : Fetching the party_id for the current user_id

Line 1401: Error_Handler.Write_Debug('Updating effective dates of pending item/rtg rev in this revised item record . . . ');

1397: );
1398: end if;
1399:
1400: IF Bom_Globals.Get_Debug = 'Y' THEN
1401: Error_Handler.Write_Debug('Updating effective dates of pending item/rtg rev in this revised item record . . . ');
1402: END IF;
1403:
1404: UPDATE MTL_RTG_ITEM_REVISIONS
1405: SET effectivity_date =

Line 1495: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;

1491: ************************************************************/
1492: IF Eng_Default_Revised_Item.G_ECO_FOR_PROD_CHANGED
1493: THEN
1494:
1495: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1496:
1497: UPDATE BOM_OPERATION_SEQUENCES
1498: SET eco_for_production = p_revised_item_rec.eco_for_production
1499: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;

Line 1505: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;

1501: UPDATE BOM_INVENTORY_COMPONENTS
1502: SET eco_for_production = p_revised_item_rec.eco_for_production
1503: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;
1504:
1505: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1506:
1507: END IF; /* Eco For Production */
1508:
1509: /* 11.5.10 chnages */

Line 1528: Error_Handler.Add_Error_Token

1524: WHEN OTHERS THEN
1525: l_err_text := G_PKG_NAME ||
1526: ' : (Updating Record) ' ||
1527: SUBSTRB(SQLERRM,1,200);
1528: Error_Handler.Add_Error_Token
1529: ( p_Message_Name => NULL
1530: , p_Message_Text => l_Err_Text
1531: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1532: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 1540: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from update_row'); END IF;

1536:
1537: END; /* Inser/Update/Delete revision and check reschedule block Ends */
1538: END IF;
1539:
1540: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from update_row'); END IF;
1541:
1542: END Update_Row;
1543:
1544: /*****************************************************************************

Line 1560: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1556: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
1557: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
1558: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
1559: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
1560: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1561: , x_Return_Status OUT NOCOPY VARCHAR2
1562: )
1563: IS
1564: l_assembly_type NUMBER := NULL;

Line 1566: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

1562: )
1563: IS
1564: l_assembly_type NUMBER := NULL;
1565: l_err_text VARCHAR2(2000) := NULL;
1566: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1567: l_user_id NUMBER;
1568: l_login_id NUMBER;
1569: l_prog_appid NUMBER;
1570: l_prog_id NUMBER;

Line 1816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting item revisions . . . '); END IF;

1812: ( p_revised_item_rec.new_revised_item_revision IS NOT NULL OR
1813: p_revised_item_rec.new_revised_item_revision <> FND_API.G_MISS_CHAR
1814: )
1815: THEN
1816: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting item revisions . . . '); END IF;
1817: ENG_REVISED_ITEMS_PKG.Insert_Item_Revisions
1818: ( x_inventory_item_id =>
1819: p_rev_item_unexp_rec.revised_item_id
1820: , x_organization_id =>

Line 1850: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting routing revisions . . .'); END IF;

1846: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR
1847: )
1848: THEN
1849:
1850: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting routing revisions . . .'); END IF;
1851:
1852:
1853: Insert_Routing_Revisions
1854: ( p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id

Line 1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;

1864:
1865:
1866: IF p_revised_item_rec.start_effective_date IS NOT NULL
1867: THEN
1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;

Line 1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;

1865:
1866: IF p_revised_item_rec.start_effective_date IS NOT NULL
1867: THEN
1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||

Line 1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||

1866: IF p_revised_item_rec.start_effective_date IS NOT NULL
1867: THEN
1868: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1874: to_char(p_rev_item_unexp_rec.revised_item_id));

Line 1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||

1869: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1870: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1871: to_char(p_rev_item_unexp_rec.organization_id));
1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1874: to_char(p_rev_item_unexp_rec.revised_item_id));
1875: END IF;
1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1877: to_char(p_revised_item_rec.start_effective_date));

Line 1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||

1872: END IF;
1873: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1874: to_char(p_rev_item_unexp_rec.revised_item_id));
1875: END IF;
1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1877: to_char(p_revised_item_rec.start_effective_date));
1878: END IF;
1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1880: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));

Line 1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||

1875: END IF;
1876: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1877: to_char(p_revised_item_rec.start_effective_date));
1878: END IF;
1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1880: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
1881: END IF;
1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||
1883: to_char(p_rev_item_unexp_rec.requestor_id));

Line 1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||

1878: END IF;
1879: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1880: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
1881: END IF;
1882: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||
1883: to_char(p_rev_item_unexp_rec.requestor_id));
1884: END IF;
1885:
1886: /*Insert_Current_Scheduled_Dates

Line 1916: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Creating Altenate BOM . . .'); END IF;

1912: , p_organization_id =>
1913: p_rev_item_unexp_rec.organization_id
1914: );
1915:
1916: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Creating Altenate BOM . . .'); END IF;
1917:
1918: ENG_REVISED_ITEMS_PKG.Create_BOM
1919: ( x_assembly_item_id =>
1920: p_rev_item_unexp_rec.revised_item_id

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

1945: , last_updated_by = l_user_id -- Last Updated By
1946: , last_update_login = l_login_id -- Last Update Login
1947: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;
1948:
1949: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1950: ('Set created bill sequence id : ' || to_char(p_rev_item_unexp_rec.bill_sequence_id )
1951: || ' to the parenet revised item . . .') ;
1952: END IF ;
1953:

Line 1973: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');

1969: );
1970: END IF ;
1971:
1972: IF Bom_Globals.Get_Debug = 'Y' THEN
1973: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1974: /*
1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));

Line 1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));

1971:
1972: IF Bom_Globals.Get_Debug = 'Y' THEN
1973: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1974: /*
1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));

Line 1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));

1972: IF Bom_Globals.Get_Debug = 'Y' THEN
1973: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1974: /*
1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));

Line 1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));

1973: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1974: /*
1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
1981: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));

Line 1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );

1974: /*
1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
1981: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
1982: */

Line 1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));

1975: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
1981: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
1982: */
1983:

Line 1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));

1976: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
1981: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
1982: */
1983:
1984: END IF;

Line 1981: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));

1977: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
1978: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
1979: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
1980: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
1981: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
1982: */
1983:
1984: END IF;
1985:

Line 2033: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;

2029: WHEN OTHERS THEN
2030:
2031: l_err_text := G_PKG_NAME || ' : (Inserting Record - Revised Item) '
2032: || substrb(SQLERRM,1,200);
2033: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
2034: Error_Handler.Add_Error_Token
2035: ( p_Message_Name => NULL
2036: , p_Message_Text => l_Err_Text
2037: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2034: Error_Handler.Add_Error_Token

2030:
2031: l_err_text := G_PKG_NAME || ' : (Inserting Record - Revised Item) '
2032: || substrb(SQLERRM,1,200);
2033: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
2034: Error_Handler.Add_Error_Token
2035: ( p_Message_Name => NULL
2036: , p_Message_Text => l_Err_Text
2037: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2038: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2055: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

2051: * other entities depending on that revised item.
2052: *****************************************************************************/
2053: PROCEDURE Delete_Row
2054: ( p_revised_item_sequence_id IN NUMBER
2055: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2056: , x_return_status OUT NOCOPY VARCHAR2
2057: )
2058: IS
2059: l_organization_id NUMBER := NULL;

Line 2069: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2065: -- Added by MK on 09/01/2000
2066:
2067: l_change_notice VARCHAR2(10) := NULL;
2068: l_err_text VARCHAR2(2000) := NULL;
2069: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2070:
2071: BEGIN
2072:
2073: BEGIN

Line 2094: Error_Handler.Add_Error_Token

2090: WHEN OTHERS THEN
2091: l_err_text := G_PKG_NAME ||
2092: ' : (Deleting Record) - Revised Item'
2093: || substrb(SQLERRM,1,200);
2094: Error_Handler.Add_Error_Token
2095: ( p_Message_Name => NULL
2096: , p_Message_Text => l_Err_Text
2097: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2098: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2138: Error_Handler.Add_Error_Token

2134: THEN
2135: l_err_text := G_PKG_NAME ||
2136: ' : (Deleting Revised Item Details ' ||
2137: substrb(SQLERRM,1,200);
2138: Error_Handler.Add_Error_Token
2139: ( p_Message_Name => NULL
2140: , p_Message_Text => l_Err_Text
2141: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2142: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2180: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2176: )
2177: IS
2178: l_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
2179: l_rev_item_unexp_rec Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type;
2180: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2181: l_err_text VARCHAR2(2000);
2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;

Line 2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;

2180: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2181: l_err_text VARCHAR2(2000);
2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;

Line 2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;

2181: l_err_text VARCHAR2(2000);
2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));

Line 2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;

2182: BEGIN
2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;

Line 2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;

2183:
2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;
2191:

Line 2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;

2184: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;
2191:
2192: SELECT

Line 2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));

2185: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2186: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2188: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2189: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2190: END IF;
2191:
2192: SELECT
2193: CHANGE_NOTICE

Line 2319: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Execution of Query row over . . .'); END IF;

2315:
2316: x_revised_item_Rec := l_revised_item_rec;
2317: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
2318:
2319: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Execution of Query row over . . .'); END IF;
2320:
2321: EXCEPTION
2322:
2323: WHEN NO_DATA_FOUND THEN

Line 2325: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;

2321: EXCEPTION
2322:
2323: WHEN NO_DATA_FOUND THEN
2324:
2325: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;
2326:
2327: x_return_status := Eng_Globals.G_RECORD_NOT_FOUND;
2328: x_revised_item_Rec := l_revised_item_rec;
2329: x_rev_item_unexp_rec := l_rev_item_unexp_rec;

Line 2332: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;

2328: x_revised_item_Rec := l_revised_item_rec;
2329: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
2330:
2331: WHEN OTHERS THEN
2332: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;
2333:
2334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2335: x_revised_item_Rec := l_revised_item_rec;
2336: x_rev_item_unexp_rec := l_rev_item_unexp_rec;

Line 2359: Error_Handler.Mesg_Token_Tbl_Type

2355: Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
2356: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
2357: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
2358: , x_Mesg_Token_Tbl OUT NOCOPY
2359: Error_Handler.Mesg_Token_Tbl_Type
2360: , x_Return_Status OUT NOCOPY VARCHAR2
2361: )
2362: IS
2363: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 2363: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2359: Error_Handler.Mesg_Token_Tbl_Type
2360: , x_Return_Status OUT NOCOPY VARCHAR2
2361: )
2362: IS
2363: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2364: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2365: BEGIN
2366:
2367: IF p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_CREATE

Line 2470: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2466:
2467: l_rev_item c_revised_item%ROWTYPE;
2468: -- R12 Changes for common BOM
2469: l_return_status varchar2(80);
2470: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2471: -- Cursor to Fetch all source bill's component changes that are being updated
2472: -- by reschedule
2473: CURSOR c_source_components(
2474: cp_change_notice eng_engineering_changes.change_notice%TYPE

Line 2494: Error_Handler.Open_Debug_Session

2490:
2491: IF (p_debug = 'Y')
2492: THEN
2493: BOM_Globals.Set_Debug(p_debug);
2494: Error_Handler.Open_Debug_Session
2495: ( p_debug_filename => p_debug_filename
2496: , p_output_dir => p_output_dir
2497: , x_return_status => x_return_status
2498: , x_error_mesg => l_error_mesg

Line 2502: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('--Start API Reschedule_Revised_Item--'); END IF;

2498: , x_error_mesg => l_error_mesg
2499: );
2500: END IF;
2501:
2502: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('-***-Start API Reschedule_Revised_Item-***-'); END IF;
2503: SAVEPOINT Reschedule_Revised_Item_SP;
2504: x_return_status := FND_API.G_RET_STS_SUCCESS;
2505:
2506: -- Standard call to check for call compatibility

Line 2517: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Fetch the revised Item Details'); END IF;

2513: IF FND_API.to_Boolean(p_init_msg_list) THEN
2514: FND_MSG_PUB.initialize;
2515: END IF;
2516:
2517: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Fetch the revised Item Details'); END IF;
2518: OPEN c_revised_item(cp_revised_item_sequence_id => p_revised_item_sequence_id);
2519: FETCH c_revised_item INTO l_rev_item;
2520:
2521: -- update item revision

Line 2532: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for item revision effectivity'); END IF;

2528: AND organization_id = l_rev_item.organization_id
2529: AND implementation_date is NULL
2530: AND inventory_item_id = l_rev_item.revised_item_id
2531: AND revised_item_sequence_id = p_revised_item_sequence_id;
2532: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for item revision effectivity'); END IF;
2533:
2534: -- update revised components EFFECTIVITY_DATE
2535: UPDATE BOM_INVENTORY_COMPONENTS bic
2536: SET bic.EFFECTIVITY_DATE = p_effectivity_date

Line 2545: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component effectivity' ); END IF;

2541: OR bic.common_component_sequence_id = bic.component_sequence_id)
2542: -- This is to ensure that the destination bill's revised item
2543: -- reschedule doesnt affect its components effectivity date
2544: AND bic.IMPLEMENTATION_DATE IS NULL;
2545: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component effectivity' ); END IF;
2546:
2547: -- update revised components DISABLE_DATE
2548: UPDATE BOM_INVENTORY_COMPONENTS bic1
2549: SET bic1.DISABLE_DATE = p_effectivity_date

Line 2555: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component disable date' ); END IF;

2551: AND bic1.ACD_TYPE = 3 -- ACD Type: Disable
2552: AND revised_item_sequence_id = p_revised_item_sequence_id
2553: AND bill_sequence_id = l_rev_item.bill_sequence_id
2554: AND bic1.IMPLEMENTATION_DATE IS NULL;
2555: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component disable date' ); END IF;
2556: -- R12 : Common BOM changes
2557: -- updating the replicated components for the pending changes
2558: FOR c_sc IN c_source_components(l_rev_item.change_notice, p_revised_item_sequence_id, l_rev_item.bill_sequence_id)
2559: LOOP

Line 2573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated operation sequences effectivity'); END IF;

2569: ( x_change_notice => l_rev_item.change_notice
2570: , x_routing_sequence_id => l_rev_item.routing_sequence_id
2571: , x_revised_item_sequence_id => p_revised_item_sequence_id
2572: , x_scheduled_date => p_effectivity_date);
2573: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated operation sequences effectivity'); END IF;
2574:
2575: -- update routing revision details
2576: UPDATE MTL_RTG_ITEM_REVISIONS
2577: SET effectivity_date = p_effectivity_date,

Line 2586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for routing revision effectivity'); END IF;

2582: AND organization_id = l_rev_item.organization_id
2583: AND implementation_date is NULL
2584: AND inventory_item_id = l_rev_item.revised_item_id
2585: AND revised_item_sequence_id = p_revised_item_sequence_id;
2586: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for routing revision effectivity'); END IF;
2587:
2588: CLOSE c_revised_item;
2589: IF FND_API.To_Boolean (p_commit)
2590: THEN

Line 2598: Error_Handler.Write_Debug('--End API Reschedule_Revised_Item--');

2594: ( p_count => x_msg_count
2595: , p_data => x_msg_data );
2596: IF Bom_Globals.Get_Debug = 'Y'
2597: THEN
2598: Error_Handler.Write_Debug('-***-End API Reschedule_Revised_Item-***-');
2599: Error_Handler.Close_Debug_Session;
2600: END IF;
2601:
2602: EXCEPTION

Line 2599: Error_Handler.Close_Debug_Session;

2595: , p_data => x_msg_data );
2596: IF Bom_Globals.Get_Debug = 'Y'
2597: THEN
2598: Error_Handler.Write_Debug('-***-End API Reschedule_Revised_Item-***-');
2599: Error_Handler.Close_Debug_Session;
2600: END IF;
2601:
2602: EXCEPTION
2603: WHEN OTHERS THEN

Line 2616: Error_Handler.Write_Debug('Unexpected Error in API Reschedule_Revised_Item');

2612: ( p_count => x_msg_count
2613: , p_data => x_msg_data );
2614: IF Bom_Globals.Get_Debug = 'Y'
2615: THEN
2616: Error_Handler.Write_Debug('Unexpected Error in API Reschedule_Revised_Item');
2617: Error_Handler.Close_Debug_Session;
2618: END IF;
2619:
2620: END Reschedule_Revised_Item;

Line 2617: Error_Handler.Close_Debug_Session;

2613: , p_data => x_msg_data );
2614: IF Bom_Globals.Get_Debug = 'Y'
2615: THEN
2616: Error_Handler.Write_Debug('Unexpected Error in API Reschedule_Revised_Item');
2617: Error_Handler.Close_Debug_Session;
2618: END IF;
2619:
2620: END Reschedule_Revised_Item;
2621:

Line 2650: -- , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

2646: PROCEDURE Copy_Revised_Item (
2647: p_old_revised_item_seq_id IN NUMBER
2648: , p_effectivity_date IN DATE
2649: , x_new_revised_item_seq_id OUT NOCOPY NUMBER
2650: -- , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2651: , x_return_status OUT NOCOPY VARCHAR2
2652: ) IS
2653:
2654: CURSOR c_revised_item (cp_revised_item_sequence_id NUMBER) IS

Line 2664: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2660:
2661: l_old_revised_item_rec c_revised_item%ROWTYPE;
2662: l_revised_item_rec Eng_Eco_Pub.Revised_Item_Rec_Type;
2663: l_rev_item_unexp_rec Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type;
2664: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2665: BEGIN
2666: --
2667: -- Initialize OUT variables
2668: --