DBA Data[Home] [Help]

APPS.BOM_RTG_REVISION_UTIL dependencies on ERROR_HANDLER

Line 24: g_token_tbl Error_Handler.Token_Tbl_Type;

20: -- 07-AUG-00 Biao Zhang Initial Creation
21: --
22: ****************************************************************************/
23: G_Pkg_Name VARCHAR2(30) := 'BOM_Rtg_Revision_UTIL';
24: g_token_tbl Error_Handler.Token_Tbl_Type;
25:
26: /*********************************************************************
27: * Procedure : Query_Row
28: * Parameters IN : Assembly item id

Line 54: Error_Handler.Write_Debug('Revision: ' ||

50: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
51: l_dummy varchar2(10);
52: BEGIN
53: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
54: Error_Handler.Write_Debug('Revision: ' ||
55: l_rtg_revision_rec.revision );
56: END IF;
57:
58: SELECT inventory_item_id

Line 132: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

128: *********************************************************************/
129: PROCEDURE Insert_Row
130: ( p_rtg_revision_rec IN Bom_Rtg_Pub.rtg_revision_Rec_Type
131: , p_rtg_rev_unexp_rec IN Bom_Rtg_Pub.rtg_rev_Unexposed_Rec_Type
132: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
133: , x_return_Status IN OUT NOCOPY VARCHAR2
134: )
135: IS
136: l_start_effectivity_date DATE;

Line 149: Error_Handler.Write_Debug('start_effective_date :'||

145: l_start_effectivity_date :=
146: to_date(to_char(sysdate,'DD-MON-YY-HH24:MI:SS'),
147: 'DD-MON-YY-HH24:MI:SS');
148: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
149: Error_Handler.Write_Debug('start_effective_date :'||
150: to_char(l_start_effectivity_date,'DD-MON-YY-HH24:MI:SS'));
151: END IF;
152: ELSIF
153: trunc(p_rtg_revision_rec.start_effective_date) > trunc(sysdate) THEN

Line 163: Error_Handler.Write_Debug('Writing rtg Revisioner rec for '

159:
160: l_start_effectivity_date := p_rtg_revision_rec.start_effective_date; -- Bug 5970070
161:
162: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
163: Error_Handler.Write_Debug('Writing rtg Revisioner rec for '
164: || p_rtg_revision_rec.assembly_item_name);
165: END IF;
166:
167: --bug:3254815 Update request id, prog id, prog appl id and prog update date.

Line 236: Error_Handler.Add_Error_Token

232: x_return_status := FND_API.G_RET_STS_SUCCESS;
233:
234: EXCEPTION
235: WHEN OTHERS THEN
236: Error_Handler.Add_Error_Token
237: ( p_message_name => NULL
238: , p_message_text => G_PKG_NAME ||
239: ' :Inserting Record ' ||
240: SQLERRM

Line 259: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

255: ********************************************************************/
256: PROCEDURE Update_Row
257: ( p_RTG_revision_rec IN Bom_Rtg_Pub.RTG_Revision_Rec_Type
258: , p_RTG_rev_unexp_rec IN Bom_Rtg_Pub.RTG_Rev_Unexposed_Rec_Type
259: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
260: , x_return_Status IN OUT NOCOPY VARCHAR2
261: )
262: IS
263: p_start_effective_date DATE;

Line 273: Error_Handler.Write_Debug('Updating routing revision '

269: -- CTP, Priority, completion subinventory, completion_locator,
270: --
271: --
272: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
273: Error_Handler.Write_Debug('Updating routing revision '
274: || p_rtg_revision_rec.revision);
275: END IF;
276:
277: UPDATE mtl_rtg_item_revisions

Line 323: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

319: *********************************************************************/
320: PROCEDURE Delete_Row
321: ( p_rtg_revision_rec IN Bom_Rtg_Pub.rtg_revision_Rec_Type
322: , p_rtg_rev_unexp_rec IN Bom_Rtg_Pub.rtg_rev_Unexposed_Rec_Type
323: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
324: , x_return_Status IN OUT NOCOPY VARCHAR2
325: )
326: IS
327: l_rtg_rev_unexp_rec Bom_Rtg_Pub.rtg_rev_Unexposed_Rec_Type

Line 330: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;

326: IS
327: l_rtg_rev_unexp_rec Bom_Rtg_Pub.rtg_rev_Unexposed_Rec_Type
328: := p_rtg_rev_unexp_rec;
329:
330: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
331:
332: BEGIN
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334:

Line 336: Error_Handler.Write_Debug('Delete routing revision '

332: BEGIN
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334:
335: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
336: Error_Handler.Write_Debug('Delete routing revision '
337: || p_rtg_revision_rec.revision);
338: END IF;
339:
340: DELETE FROM mtl_rtg_item_revisions

Line 347: Error_Handler.Add_Error_Token

343: AND process_revision = p_rtg_revision_rec.revision;
344:
345: EXCEPTION
346: WHEN OTHERS THEN
347: Error_Handler.Add_Error_Token
348: ( p_Message_Name => NULL
349: , p_Message_Text => 'ERROR in Delete Routing Revision' ||
350: substr(SQLERRM, 1, 100) || ' ' ||
351: to_char(SQLCODE)

Line 373: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

369: *********************************************************************/
370: PROCEDURE Perform_Writes
371: ( p_rtg_revision_rec IN Bom_Rtg_Pub.rtg_revision_Rec_Type
372: , p_rtg_rev_unexp_rec IN Bom_Rtg_Pub.rtg_rev_Unexposed_Rec_Type
373: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
374: , x_return_status IN OUT NOCOPY VARCHAR2
375: )
376: IS
377: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 377: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

373: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
374: , x_return_status IN OUT NOCOPY VARCHAR2
375: )
376: IS
377: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
378: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
379: BEGIN
380: IF p_rtg_revision_rec.transaction_type =
381: BOM_Rtg_Globals.G_OPR_CREATE THEN