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 165: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type

161: ( p_organization_id IN NUMBER
162: , p_change_notice IN VARCHAR2
163: , p_user_id IN NUMBER
164: , p_login IN NUMBER
165: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
166: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
167: , x_return_status OUT NOCOPY VARCHAR2
168: )
169: IS

Line 166: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

162: , p_change_notice IN VARCHAR2
163: , p_user_id IN NUMBER
164: , p_login IN NUMBER
165: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
166: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
167: , x_return_status OUT NOCOPY VARCHAR2
168: )
169: IS
170: l_err_text VARCHAR2(2000) := NULL;

Line 171: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;

167: , x_return_status OUT NOCOPY VARCHAR2
168: )
169: IS
170: l_err_text VARCHAR2(2000) := NULL;
171: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;
172: l_token_tbl Error_Handler.Token_Tbl_Type;
173: X_EcoStatus number;
174: Cursor CheckEco is
175: Select 'x' dummy

Line 172: l_token_tbl Error_Handler.Token_Tbl_Type;

168: )
169: IS
170: l_err_text VARCHAR2(2000) := NULL;
171: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;
172: l_token_tbl Error_Handler.Token_Tbl_Type;
173: X_EcoStatus number;
174: Cursor CheckEco is
175: Select 'x' dummy
176: From dual

Line 214: Error_Handler.Add_Error_Token

210: X_EcoStatus := 6;
211:
212: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
213: THEN
214: Error_Handler.Add_Error_Token
215: ( p_Message_Name => 'ENG_LAST_ITEM_CANCL_ECO_IMPL'
216: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
217: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
218: , p_Token_Tbl => l_Token_Tbl

Line 237: Error_Handler.Add_Error_Token

233: AND CHANGE_NOTICE = p_change_notice;
234:
235: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
236: THEN
237: Error_Handler.Add_Error_Token
238: ( p_Message_Name => 'ENG_LAST_ITEM_CANCL_ECO_CANCL'
239: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
240: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
241: , p_Token_Tbl => l_Token_Tbl

Line 252: Error_Handler.Add_Error_Token

248: EXCEPTION
249: WHEN OTHERS THEN
250: l_err_text := G_PKG_NAME || ' :(Cancel_ECO)-Revised Item '
251: || substrb(SQLERRM,1,200);
252: Error_Handler.Add_Error_Token
253: ( p_Message_Name => NULL
254: , p_Message_Text => l_Err_Text
255: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
256: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 287: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type

283: , user_id IN NUMBER
284: , login IN NUMBER
285: , change_order IN VARCHAR2
286: , cancel_comments IN VARCHAR2
287: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
288: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
289: , x_return_status OUT NOCOPY VARCHAR2
290: )
291: IS

Line 288: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

284: , login IN NUMBER
285: , change_order IN VARCHAR2
286: , cancel_comments IN VARCHAR2
287: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
288: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
289: , x_return_status OUT NOCOPY VARCHAR2
290: )
291: IS
292: l_err_text VARCHAR2(2000) := NULL;

Line 293: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;

289: , x_return_status OUT NOCOPY VARCHAR2
290: )
291: IS
292: l_err_text VARCHAR2(2000) := NULL;
293: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type := p_Mesg_Token_Tbl;
294:
295: CURSOR c_getRevisedComps IS
296: SELECT component_sequence_id
297: FROM bom_inventory_components

Line 541: Error_Handler.Add_Error_Token

537: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
538: WHEN OTHERS THEN
539: l_err_text := G_PKG_NAME || ' :(Cancel_Revised_Item)-Revised Item '
540: || substrb(SQLERRM,1,200);
541: Error_Handler.Add_Error_Token
542: ( p_Message_Name => NULL
543: , p_Message_Text => l_Err_Text
544: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
545: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 753: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

749: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
750: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
751: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
752: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
753: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
754: , x_Return_Status OUT NOCOPY VARCHAR2
755: )
756: IS
757: l_err_text VARCHAR2(2000);

Line 759: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

755: )
756: IS
757: l_err_text VARCHAR2(2000);
758: l_stmt_num NUMBER := 0;
759: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
760: l_user_id NUMBER;
761: l_login_id NUMBER;
762: l_prog_appid NUMBER;
763: l_prog_id NUMBER;

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

775: l_prog_id := ENG_GLOBALS.Get_prog_id;
776:
777:
778:
779: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item . . . seq id : ' ||
780: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
781: END IF;
782:
783: IF (p_control_rec.caller_type = 'FORM' AND

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

895:
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
897:
898:
899: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;
900:
901: EXCEPTION
902: WHEN NO_DATA_FOUND THEN
903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;

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

899: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating revised item is completed'); END IF;
900:
901: EXCEPTION
902: WHEN NO_DATA_FOUND THEN
903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;
904: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
905: THEN
906: Error_Handler.Add_Error_Token
907: ( p_Message_Name => 'ENG_REV_ITEM_REC_DELETED'

Line 906: Error_Handler.Add_Error_Token

902: WHEN NO_DATA_FOUND THEN
903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('no data stmt_num '|| l_stmt_num); END IF;
904: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
905: THEN
906: Error_Handler.Add_Error_Token
907: ( p_Message_Name => 'ENG_REV_ITEM_REC_DELETED'
908: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
909: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
910: );

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

911: END IF;
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913:
914: WHEN OTHERS THEN
915: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('un exp stmt_num '|| l_stmt_num); END IF;
916: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
917: THEN
918: l_err_text := G_PKG_NAME || ' : Utility (Revised Item Update) '
919: || SUBSTR(SQLERRM, 1, 200);

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

916: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
917: THEN
918: l_err_text := G_PKG_NAME || ' : Utility (Revised Item Update) '
919: || SUBSTR(SQLERRM, 1, 200);
920: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
921: IF FND_MSG_PUB.Check_Msg_Level
922: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
923: THEN
924: Error_Handler.Add_Error_Token

Line 924: Error_Handler.Add_Error_Token

920: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
921: IF FND_MSG_PUB.Check_Msg_Level
922: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
923: THEN
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 936: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validation controller is '||p_control_rec.validation_controller); END IF;

932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
933: END;
934: END IF; -- if call is from form, and side effects processing not requested.
935:
936: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Validation controller is '||p_control_rec.validation_controller); END IF;
937:
938: -- If call if from form, execute this block of code only if side effects
939: -- processing has been requested
940: -- By AS on 10/13/99

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

943: OR
944: p_control_rec.caller_type <> 'FORM'
945: THEN
946:
947: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing SIDE_EFFECTS'); END IF;
948:
949: /*********************************************************************
950: --
951: -- If the user has updated the status to 5 i.e. cancel, then

Line 1005: 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;

1001: if any existing need to be deleted ro modified.
1002: */
1003:
1004: BEGIN
1005: 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;
1006: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
1007: THEN
1008: -- Delete record from MTL_ITEM_REVISIONS if it already
1009: -- exists

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

1006: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_ITEM_REV = 1
1007: THEN
1008: -- Delete record from MTL_ITEM_REVISIONS if it already
1009: -- exists
1010: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Item Revisions . . .'); END IF;
1011:
1012: l_stmt_num := 3;
1013: ENG_REVISED_ITEMS_PKG.Delete_Item_Revisions
1014: ( x_change_notice =>

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

1024: THEN
1025: -- Update new item revision information in
1026: -- MTL_ITEM_REVISIONS
1027:
1028: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Item Revisions . . .');
1029: END IF;
1030:
1031: /*
1032: IF Bom_Globals.Get_Debug = 'Y' THEN

Line 1033: Error_Handler.Write_Debug(p_revised_item_rec.updated_revised_item_revision

1029: END IF;
1030:
1031: /*
1032: IF Bom_Globals.Get_Debug = 'Y' THEN
1033: Error_Handler.Write_Debug(p_revised_item_rec.updated_revised_item_revision
1034: || p_revised_item_rec.start_effective_date
1035: ||p_revised_item_rec.new_effective_date
1036: || p_revised_item_rec.eco_name
1037: || p_rev_item_unexp_rec.organization_id

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

1138: THEN
1139: -- Insert new record if revision record doesn't already
1140: -- exist
1141:
1142: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Item Revisions . . .'); END IF;
1143: l_stmt_num := 5;
1144: IF (p_revised_item_rec.new_effective_date is NULL) THEN
1145: ENG_REVISED_ITEMS_PKG.Insert_Item_Revisions
1146: ( x_inventory_item_id =>

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

1245: IF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 1
1246: THEN
1247: -- Delete record from MTL_RTG_ITEM_REVISIONS if it already
1248: -- exists
1249: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Deleting Routing Revisions . . .'); END IF;
1250:
1251: DELETE FROM MTL_RTG_ITEM_REVISIONS
1252: WHERE implementation_date IS NULL
1253: AND change_notice = p_revised_item_rec.eco_name

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

1261: THEN
1262: -- Update new item revision information in
1263: -- MTL_ITEM_REVISIONS
1264:
1265: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating Routing Revisions . . .'); END IF;
1266:
1267: UPDATE MTL_RTG_ITEM_REVISIONS
1268: SET process_revision = p_revised_item_rec.updated_routing_revision
1269: , effectivity_date = DECODE( DECODE(p_revised_item_rec.new_effective_date,

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

1288: ELSIF Eng_Default_Revised_Item.G_DEL_UPD_INS_RTG_REV = 3
1289: THEN
1290: -- Insert new record if revision record doesn't already
1291: -- exist
1292: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting Routing Revisions . . . '); END IF;
1293:
1294: IF ( p_revised_item_rec.new_effective_date is NULL) THEN
1295: Insert_Routing_Revisions
1296: ( p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id

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

1330: IF Eng_Default_Revised_Item.G_SCHED_DATE_CHANGED
1331: THEN
1332: l_stmt_num := 6;
1333:
1334: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective daste for child rev comps . . .'); END IF;
1335:
1336: ENG_REVISED_ITEMS_PKG.Update_Inventory_Components
1337: ( x_change_notice =>
1338: p_revised_item_rec.eco_name

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

1348: );
1349:
1350:
1351:
1352: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updating effective date for child rev operations . . . '); END IF;
1353:
1354: Update_Rev_Operations
1355: ( x_change_notice => p_revised_item_rec.eco_name
1356: , x_routing_sequence_id => p_rev_item_unexp_rec.routing_sequence_id

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

1359: ) ;
1360:
1361:
1362: l_stmt_num := 7;
1363: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting current schedule date . . .'); END IF;
1364: if (p_revised_item_rec.status_type = 4) then
1365: if (p_rev_item_unexp_rec.requestor_id is null ) then
1366: -- req_id := l_User_Id;
1367: -- Bug 3589974 : Fetching the party_id for the current user_id

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

1415: );
1416: end if;
1417:
1418: IF Bom_Globals.Get_Debug = 'Y' THEN
1419: Error_Handler.Write_Debug('Updating effective dates of pending item/rtg rev in this revised item record . . . ');
1420: END IF;
1421:
1422: UPDATE MTL_RTG_ITEM_REVISIONS
1423: SET effectivity_date =

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

1509: ************************************************************/
1510: IF Eng_Default_Revised_Item.G_ECO_FOR_PROD_CHANGED
1511: THEN
1512:
1513: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Before Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1514:
1515: UPDATE BOM_OPERATION_SEQUENCES
1516: SET eco_for_production = p_revised_item_rec.eco_for_production
1517: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;

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

1519: UPDATE BOM_INVENTORY_COMPONENTS
1520: SET eco_for_production = p_revised_item_rec.eco_for_production
1521: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;
1522:
1523: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After Updating Eco_For_Production in Rev Comps and Rev Ops'); END IF;
1524:
1525: END IF; /* Eco For Production */
1526:
1527: /* 11.5.10 chnages */

Line 1546: Error_Handler.Add_Error_Token

1542: WHEN OTHERS THEN
1543: l_err_text := G_PKG_NAME ||
1544: ' : (Updating Record) ' ||
1545: SUBSTRB(SQLERRM,1,200);
1546: Error_Handler.Add_Error_Token
1547: ( p_Message_Name => NULL
1548: , p_Message_Text => l_Err_Text
1549: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1550: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

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

1554:
1555: END; /* Inser/Update/Delete revision and check reschedule block Ends */
1556: END IF;
1557:
1558: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from update_row'); END IF;
1559:
1560: END Update_Row;
1561:
1562: /*****************************************************************************

Line 1578: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

1574: ( p_revised_item_rec IN ENG_Eco_PUB.Revised_Item_Rec_Type
1575: , p_rev_item_unexp_rec IN Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
1576: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
1577: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
1578: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1579: , x_Return_Status OUT NOCOPY VARCHAR2
1580: )
1581: IS
1582: l_assembly_type NUMBER := NULL;

Line 1584: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

1580: )
1581: IS
1582: l_assembly_type NUMBER := NULL;
1583: l_err_text VARCHAR2(2000) := NULL;
1584: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1585: l_user_id NUMBER;
1586: l_login_id NUMBER;
1587: l_prog_appid NUMBER;
1588: l_prog_id NUMBER;

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

1836: ( p_revised_item_rec.new_revised_item_revision IS NOT NULL OR
1837: p_revised_item_rec.new_revised_item_revision <> FND_API.G_MISS_CHAR
1838: )
1839: THEN
1840: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting item revisions . . . '); END IF;
1841: ENG_REVISED_ITEMS_PKG.Insert_Item_Revisions
1842: ( x_inventory_item_id =>
1843: p_rev_item_unexp_rec.revised_item_id
1844: , x_organization_id =>

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

1870: p_revised_item_rec.new_routing_revision <> FND_API.G_MISS_CHAR
1871: )
1872: THEN
1873:
1874: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting routing revisions . . .'); END IF;
1875:
1876:
1877: Insert_Routing_Revisions
1878: ( p_inventory_item_id => p_rev_item_unexp_rec.revised_item_id

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

1888:
1889:
1890: IF p_revised_item_rec.start_effective_date IS NOT NULL
1891: THEN
1892: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1894: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1895: to_char(p_rev_item_unexp_rec.organization_id));
1896: END IF;

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

1889:
1890: IF p_revised_item_rec.start_effective_date IS NOT NULL
1891: THEN
1892: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1894: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1895: to_char(p_rev_item_unexp_rec.organization_id));
1896: END IF;
1897: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||

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

1890: IF p_revised_item_rec.start_effective_date IS NOT NULL
1891: THEN
1892: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Inserting cur_sch_dates . . .'); END IF;
1893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1894: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1895: to_char(p_rev_item_unexp_rec.organization_id));
1896: END IF;
1897: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1898: to_char(p_rev_item_unexp_rec.revised_item_id));

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

1893: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ECO : ' || p_revised_item_rec.eco_name); END IF;
1894: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' ||
1895: to_char(p_rev_item_unexp_rec.organization_id));
1896: END IF;
1897: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1898: to_char(p_rev_item_unexp_rec.revised_item_id));
1899: END IF;
1900: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1901: to_char(p_revised_item_rec.start_effective_date));

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

1896: END IF;
1897: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' ||
1898: to_char(p_rev_item_unexp_rec.revised_item_id));
1899: END IF;
1900: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1901: to_char(p_revised_item_rec.start_effective_date));
1902: END IF;
1903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1904: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));

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

1899: END IF;
1900: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' ||
1901: to_char(p_revised_item_rec.start_effective_date));
1902: END IF;
1903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1904: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
1905: END IF;
1906: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||
1907: to_char(p_rev_item_unexp_rec.requestor_id));

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

1902: END IF;
1903: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item Sequence: ' ||
1904: to_char(p_rev_item_unexp_rec.revised_item_sequence_id));
1905: END IF;
1906: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Requestor: ' ||
1907: to_char(p_rev_item_unexp_rec.requestor_id));
1908: END IF;
1909:
1910: /*Insert_Current_Scheduled_Dates

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

1936: , p_organization_id =>
1937: p_rev_item_unexp_rec.organization_id
1938: );
1939:
1940: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Creating Altenate BOM . . .'); END IF;
1941:
1942: ENG_REVISED_ITEMS_PKG.Create_BOM
1943: ( x_assembly_item_id =>
1944: p_rev_item_unexp_rec.revised_item_id

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

1969: , last_updated_by = l_user_id -- Last Updated By
1970: , last_update_login = l_login_id -- Last Update Login
1971: WHERE revised_item_sequence_id = p_rev_item_unexp_rec.revised_item_sequence_id ;
1972:
1973: IF BOM_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1974: ('Set created bill sequence id : ' || to_char(p_rev_item_unexp_rec.bill_sequence_id )
1975: || ' to the parenet revised item . . .') ;
1976: END IF ;
1977:

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

1993: );
1994: END IF ;
1995:
1996: IF Bom_Globals.Get_Debug = 'Y' THEN
1997: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1998:
1999: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));

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

1995:
1996: IF Bom_Globals.Get_Debug = 'Y' THEN
1997: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1998:
1999: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));

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

1996: IF Bom_Globals.Get_Debug = 'Y' THEN
1997: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1998:
1999: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
2004: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));

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

1997: Error_Handler.Write_Debug('Creating Alternate Routing. . . ');
1998:
1999: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
2004: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
2005: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));

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

1998:
1999: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
2004: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
2005: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
2006:

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

1999: Error_Handler.Write_Debug('Rtg Sequence Id : '|| to_char(p_rev_item_unexp_rec.routing_sequence_id));
2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
2004: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
2005: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
2006:
2007:

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

2000: Error_Handler.Write_Debug('Assembly Item : '|| to_char(p_rev_item_unexp_rec.revised_item_id));
2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
2004: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
2005: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
2006:
2007:
2008: END IF;

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

2001: Error_Handler.Write_Debug('Org Id: '|| to_char(p_rev_item_unexp_rec.organization_id));
2002: Error_Handler.Write_Debug('Alt Code : '|| p_revised_item_rec.alternate_bom_code );
2003: Error_Handler.Write_Debug('Routing Type : '|| to_char(l_assembly_type));
2004: Error_Handler.Write_Debug('User Id: '|| to_char(l_user_id));
2005: Error_Handler.Write_Debug('Login Id: '|| to_char(l_login_id));
2006:
2007:
2008: END IF;
2009:

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

2053: WHEN OTHERS THEN
2054:
2055: l_err_text := G_PKG_NAME || ' : (Inserting Record - Revised Item) '
2056: || substrb(SQLERRM,1,200);
2057: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
2058: Error_Handler.Add_Error_Token
2059: ( p_Message_Name => NULL
2060: , p_Message_Text => l_Err_Text
2061: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2058: Error_Handler.Add_Error_Token

2054:
2055: l_err_text := G_PKG_NAME || ' : (Inserting Record - Revised Item) '
2056: || substrb(SQLERRM,1,200);
2057: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug(l_err_text); END IF;
2058: Error_Handler.Add_Error_Token
2059: ( p_Message_Name => NULL
2060: , p_Message_Text => l_Err_Text
2061: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2062: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2079: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

2075: * other entities depending on that revised item.
2076: *****************************************************************************/
2077: PROCEDURE Delete_Row
2078: ( p_revised_item_sequence_id IN NUMBER
2079: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2080: , x_return_status OUT NOCOPY VARCHAR2
2081: )
2082: IS
2083: l_organization_id NUMBER := NULL;

Line 2093: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2089: -- Added by MK on 09/01/2000
2090:
2091: l_change_notice VARCHAR2(10) := NULL;
2092: l_err_text VARCHAR2(2000) := NULL;
2093: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2094:
2095: BEGIN
2096:
2097: BEGIN

Line 2118: Error_Handler.Add_Error_Token

2114: WHEN OTHERS THEN
2115: l_err_text := G_PKG_NAME ||
2116: ' : (Deleting Record) - Revised Item'
2117: || substrb(SQLERRM,1,200);
2118: Error_Handler.Add_Error_Token
2119: ( p_Message_Name => NULL
2120: , p_Message_Text => l_Err_Text
2121: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2122: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2162: Error_Handler.Add_Error_Token

2158: THEN
2159: l_err_text := G_PKG_NAME ||
2160: ' : (Deleting Revised Item Details ' ||
2161: substrb(SQLERRM,1,200);
2162: Error_Handler.Add_Error_Token
2163: ( p_Message_Name => NULL
2164: , p_Message_Text => l_Err_Text
2165: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2166: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl

Line 2204: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2200: )
2201: IS
2202: l_revised_item_rec ENG_Eco_PUB.Revised_Item_Rec_Type;
2203: l_rev_item_unexp_rec Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type;
2204: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2205: l_err_text VARCHAR2(2000);
2206: BEGIN
2207:
2208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;

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

2204: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2205: l_err_text VARCHAR2(2000);
2206: BEGIN
2207:
2208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2210: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2212: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;

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

2205: l_err_text VARCHAR2(2000);
2206: BEGIN
2207:
2208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2210: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2212: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2213: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));

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

2206: BEGIN
2207:
2208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2210: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2212: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2213: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2214: END IF;

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

2207:
2208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2210: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2212: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2213: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2214: END IF;
2215:

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

2208: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revised Item: ' || to_char(p_revised_item_id)); END IF;
2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2210: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2212: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2213: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2214: END IF;
2215:
2216: SELECT

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

2209: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Organization: ' || to_char(p_organization_id)); END IF;
2210: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('ChangeNotice: ' || p_change_notice); END IF;
2211: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Revision: ' || p_new_item_revision); END IF;
2212: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Rtg Revision: ' || p_new_routing_revision); END IF;
2213: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Effective Date: ' || to_char(p_start_eff_date));
2214: END IF;
2215:
2216: SELECT
2217: CHANGE_NOTICE

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

2339:
2340: x_revised_item_Rec := l_revised_item_rec;
2341: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
2342:
2343: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Execution of Query row over . . .'); END IF;
2344:
2345: EXCEPTION
2346:
2347: WHEN NO_DATA_FOUND THEN

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

2345: EXCEPTION
2346:
2347: WHEN NO_DATA_FOUND THEN
2348:
2349: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;
2350:
2351: x_return_status := Eng_Globals.G_RECORD_NOT_FOUND;
2352: x_revised_item_Rec := l_revised_item_rec;
2353: x_rev_item_unexp_rec := l_rev_item_unexp_rec;

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

2352: x_revised_item_Rec := l_revised_item_rec;
2353: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
2354:
2355: WHEN OTHERS THEN
2356: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Query Revised Item: ' || SQLERRM); END IF;
2357:
2358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2359: x_revised_item_Rec := l_revised_item_rec;
2360: x_rev_item_unexp_rec := l_rev_item_unexp_rec;

Line 2383: Error_Handler.Mesg_Token_Tbl_Type

2379: Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type
2380: , p_control_rec IN BOM_BO_Pub.Control_Rec_Type
2381: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
2382: , x_Mesg_Token_Tbl OUT NOCOPY
2383: Error_Handler.Mesg_Token_Tbl_Type
2384: , x_Return_Status OUT NOCOPY VARCHAR2
2385: )
2386: IS
2387: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 2387: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2383: Error_Handler.Mesg_Token_Tbl_Type
2384: , x_Return_Status OUT NOCOPY VARCHAR2
2385: )
2386: IS
2387: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2388: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2389: BEGIN
2390:
2391: IF p_revised_item_rec.transaction_type = Eng_Globals.G_OPR_CREATE

Line 2494: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2490:
2491: l_rev_item c_revised_item%ROWTYPE;
2492: -- R12 Changes for common BOM
2493: l_return_status varchar2(80);
2494: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2495: -- Cursor to Fetch all source bill's component changes that are being updated
2496: -- by reschedule
2497: CURSOR c_source_components(
2498: cp_change_notice eng_engineering_changes.change_notice%TYPE

Line 2518: Error_Handler.Open_Debug_Session

2514:
2515: IF (p_debug = 'Y')
2516: THEN
2517: BOM_Globals.Set_Debug(p_debug);
2518: Error_Handler.Open_Debug_Session
2519: ( p_debug_filename => p_debug_filename
2520: , p_output_dir => p_output_dir
2521: , x_return_status => x_return_status
2522: , x_error_mesg => l_error_mesg

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

2522: , x_error_mesg => l_error_mesg
2523: );
2524: END IF;
2525:
2526: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('-***-Start API Reschedule_Revised_Item-***-'); END IF;
2527: SAVEPOINT Reschedule_Revised_Item_SP;
2528: x_return_status := FND_API.G_RET_STS_SUCCESS;
2529:
2530: -- Standard call to check for call compatibility

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

2537: IF FND_API.to_Boolean(p_init_msg_list) THEN
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540:
2541: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Fetch the revised Item Details'); END IF;
2542: OPEN c_revised_item(cp_revised_item_sequence_id => p_revised_item_sequence_id);
2543: FETCH c_revised_item INTO l_rev_item;
2544:
2545: -- update item revision

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

2552: AND organization_id = l_rev_item.organization_id
2553: AND implementation_date is NULL
2554: AND inventory_item_id = l_rev_item.revised_item_id
2555: AND revised_item_sequence_id = p_revised_item_sequence_id;
2556: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for item revision effectivity'); END IF;
2557:
2558: -- update revised components EFFECTIVITY_DATE
2559: UPDATE BOM_INVENTORY_COMPONENTS bic
2560: SET bic.EFFECTIVITY_DATE = p_effectivity_date

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

2565: OR bic.common_component_sequence_id = bic.component_sequence_id)
2566: -- This is to ensure that the destination bill's revised item
2567: -- reschedule doesnt affect its components effectivity date
2568: AND bic.IMPLEMENTATION_DATE IS NULL;
2569: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component effectivity' ); END IF;
2570:
2571: -- update revised components DISABLE_DATE
2572: UPDATE BOM_INVENTORY_COMPONENTS bic1
2573: SET bic1.DISABLE_DATE = p_effectivity_date

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

2575: AND bic1.ACD_TYPE = 3 -- ACD Type: Disable
2576: AND revised_item_sequence_id = p_revised_item_sequence_id
2577: AND bill_sequence_id = l_rev_item.bill_sequence_id
2578: AND bic1.IMPLEMENTATION_DATE IS NULL;
2579: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for component disable date' ); END IF;
2580: -- R12 : Common BOM changes
2581: -- updating the replicated components for the pending changes
2582: FOR c_sc IN c_source_components(l_rev_item.change_notice, p_revised_item_sequence_id, l_rev_item.bill_sequence_id)
2583: LOOP

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

2593: ( x_change_notice => l_rev_item.change_notice
2594: , x_routing_sequence_id => l_rev_item.routing_sequence_id
2595: , x_revised_item_sequence_id => p_revised_item_sequence_id
2596: , x_scheduled_date => p_effectivity_date);
2597: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated operation sequences effectivity'); END IF;
2598:
2599: -- update routing revision details
2600: UPDATE MTL_RTG_ITEM_REVISIONS
2601: SET effectivity_date = p_effectivity_date,

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

2606: AND organization_id = l_rev_item.organization_id
2607: AND implementation_date is NULL
2608: AND inventory_item_id = l_rev_item.revised_item_id
2609: AND revised_item_sequence_id = p_revised_item_sequence_id;
2610: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Updated '|| SQL%ROWCOUNT ||'rows for routing revision effectivity'); END IF;
2611:
2612: CLOSE c_revised_item;
2613: IF FND_API.To_Boolean (p_commit)
2614: THEN

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

2618: ( p_count => x_msg_count
2619: , p_data => x_msg_data );
2620: IF Bom_Globals.Get_Debug = 'Y'
2621: THEN
2622: Error_Handler.Write_Debug('-***-End API Reschedule_Revised_Item-***-');
2623: Error_Handler.Close_Debug_Session;
2624: END IF;
2625:
2626: EXCEPTION

Line 2623: Error_Handler.Close_Debug_Session;

2619: , p_data => x_msg_data );
2620: IF Bom_Globals.Get_Debug = 'Y'
2621: THEN
2622: Error_Handler.Write_Debug('-***-End API Reschedule_Revised_Item-***-');
2623: Error_Handler.Close_Debug_Session;
2624: END IF;
2625:
2626: EXCEPTION
2627: WHEN OTHERS THEN

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

2636: ( p_count => x_msg_count
2637: , p_data => x_msg_data );
2638: IF Bom_Globals.Get_Debug = 'Y'
2639: THEN
2640: Error_Handler.Write_Debug('Unexpected Error in API Reschedule_Revised_Item');
2641: Error_Handler.Close_Debug_Session;
2642: END IF;
2643:
2644: END Reschedule_Revised_Item;

Line 2641: Error_Handler.Close_Debug_Session;

2637: , p_data => x_msg_data );
2638: IF Bom_Globals.Get_Debug = 'Y'
2639: THEN
2640: Error_Handler.Write_Debug('Unexpected Error in API Reschedule_Revised_Item');
2641: Error_Handler.Close_Debug_Session;
2642: END IF;
2643:
2644: END Reschedule_Revised_Item;
2645:

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

2670: PROCEDURE Copy_Revised_Item (
2671: p_old_revised_item_seq_id IN NUMBER
2672: , p_effectivity_date IN DATE
2673: , x_new_revised_item_seq_id OUT NOCOPY NUMBER
2674: -- , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2675: , x_return_status OUT NOCOPY VARCHAR2
2676: ) IS
2677:
2678: CURSOR c_revised_item (cp_revised_item_sequence_id NUMBER) IS

Line 2688: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;

2684:
2685: l_old_revised_item_rec c_revised_item%ROWTYPE;
2686: l_revised_item_rec Eng_Eco_Pub.Revised_Item_Rec_Type;
2687: l_rev_item_unexp_rec Eng_Eco_Pub.Rev_Item_Unexposed_Rec_Type;
2688: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2689: BEGIN
2690: --
2691: -- Initialize OUT variables
2692: --