DBA Data[Home] [Help]

APPS.BOM_OP_NETWORK_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_Op_Network_UTIL';
24: g_token_tbl Error_Handler.Token_Tbl_Type;
25:
26:
27: /*********************************************************************
28: * Procedure : Query_Row

Line 54: THEN Error_Handler.Write_Debug('Query row for operation network');

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'
54: THEN Error_Handler.Write_Debug('Query row for operation network');
55: END IF;
56:
57: SELECT from_op_seq_id
58: , to_op_seq_id

Line 133: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

129: *********************************************************************/
130: PROCEDURE Insert_Row
131: ( p_op_network_rec IN Bom_Rtg_Pub.op_network_Rec_Type
132: , p_op_network_unexp_rec IN Bom_Rtg_Pub.op_network_Unexposed_Rec_Type
133: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
134: , x_return_Status IN OUT NOCOPY VARCHAR2
135: )
136: IS
137: p_start_effectivity_date DATE;

Line 143: Error_Handler.Write_Debug('Writing Operation networker rec for '

139:
140: BEGIN
141:
142: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
143: Error_Handler.Write_Debug('Writing Operation networker rec for '
144: || p_op_network_rec.assembly_item_name);
145: END IF;
146:
147: --bug:3254815 Update request id, prog id, prog appl id and prog update date.

Line 248: Error_Handler.Add_Error_Token

244: x_return_status := FND_API.G_RET_STS_SUCCESS;
245:
246: EXCEPTION
247: WHEN OTHERS THEN
248: Error_Handler.Add_Error_Token
249: ( p_message_name => NULL
250: , p_message_text => G_PKG_NAME ||
251: ' :Inserting Record ' ||
252: SQLERRM

Line 271: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

267: *********************************************************************/
268: PROCEDURE Update_Row
269: ( p_op_network_rec IN Bom_Rtg_Pub.op_network_Rec_Type
270: , p_op_network_unexp_rec IN Bom_Rtg_Pub.op_network_Unexposed_Rec_Type
271: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
272: , x_return_Status IN OUT NOCOPY VARCHAR2
273: )
274: IS
275: p_start_effectivity_date DATE;

Line 285: Error_Handler.Write_Debug('Updating operation network ');

281: -- are...
282: --
283:
284: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
285: Error_Handler.Write_Debug('Updating operation network ');
286: END IF;
287:
288: UPDATE bom_operation_networks
289: SET

Line 375: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

371: *********************************************************************/
372: PROCEDURE Delete_Row
373: ( p_op_network_rec IN Bom_Rtg_Pub.op_network_Rec_Type
374: , p_op_network_unexp_rec IN Bom_Rtg_Pub.op_network_Unexposed_Rec_Type
375: , x_mesg_token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
376: , x_return_Status IN OUT NOCOPY VARCHAR2
377: )
378: IS
379: l_op_network_unexp_rec Bom_Rtg_Pub.op_network_Unexposed_Rec_Type := p_op_network_unexp_rec;

Line 380: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;

376: , x_return_Status IN OUT NOCOPY VARCHAR2
377: )
378: IS
379: l_op_network_unexp_rec Bom_Rtg_Pub.op_network_Unexposed_Rec_Type := p_op_network_unexp_rec;
380: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
381:
382: BEGIN
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384:

Line 386: Error_Handler.Write_Debug('Delete operation network.'

382: BEGIN
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384:
385: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
386: Error_Handler.Write_Debug('Delete operation network.'
387: );
388: END IF;
389:
390: DELETE FROM bom_operation_networks

Line 396: Error_Handler.Add_Error_Token

392: AND to_op_seq_id = p_op_network_unexp_rec.to_op_seq_id;
393:
394: EXCEPTION
395: WHEN OTHERS THEN
396: Error_Handler.Add_Error_Token
397: ( p_Message_Name => NULL
398: , p_Message_Text => 'ERROR in Delete Operation Network:'
399: || substr(SQLERRM, 1, 100) || ' ' ||
400: to_char(SQLCODE)

Line 422: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

418: *********************************************************************/
419: PROCEDURE Perform_Writes
420: ( p_Op_Network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
421: , p_Op_Network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
422: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
423: , x_return_status IN OUT NOCOPY VARCHAR2
424: )
425: IS
426: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

Line 426: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;

422: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
423: , x_return_status IN OUT NOCOPY VARCHAR2
424: )
425: IS
426: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
427: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
428: l_err_text VARCHAR2(2000) ;
429:
430: BEGIN

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

461: x_mesg_token_tbl := l_mesg_token_tbl;
462:
463: EXCEPTION
464: WHEN OTHERS THEN
465: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
466: ('Some unknown error in Perform Writes . . .' || SQLERRM );
467: END IF ;
468:
469:

Line 473: Error_Handler.Add_Error_Token

469:
470: l_err_text := G_PKG_NAME || ' Utility (Perform Writes) '
471: || substrb(SQLERRM,1,200);
472:
473: Error_Handler.Add_Error_Token
474: ( p_message_name => NULL
475: , p_message_text => l_err_text
476: , p_mesg_token_tbl => l_mesg_token_tbl
477: , x_mesg_token_tbl => l_mesg_token_tbl

Line 503: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

499: PROCEDURE Get_WSM_Netowrk_Attribs
500: ( p_routing_sequence_id IN NUMBER
501: , x_prev_start_id IN OUT NOCOPY NUMBER
502: , x_prev_end_id IN OUT NOCOPY NUMBER
503: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
504: , x_Return_status IN OUT NOCOPY VARCHAR2
505: )
506: IS
507: l_routing_sequence_id NUMBER :=0;

Line 510: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;

506: IS
507: l_routing_sequence_id NUMBER :=0;
508: l_common_routing_sequence_id NUMBER :=0;
509: l_cfm_routing_flag NUMBER :=0;
510: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
511: err_code NUMBER;
512: err_msg VARCHAR2(2000);
513: BEGIN
514: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 548: Error_Handler.Add_Error_Token

544:
545: IF err_msg IS NOT NULL THEN
546:
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
548: Error_Handler.Add_Error_Token
549: ( p_message_name => NULL
550: , p_message_text => err_msg
551: , p_mesg_token_tbl => l_mesg_token_tbl
552: , x_mesg_token_tbl => l_mesg_token_tbl

Line 572: Error_Handler.Add_Error_Token

568:
569: IF err_msg IS NOT NULL THEN
570:
571: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
572: Error_Handler.Add_Error_Token
573: ( p_message_name => NULL
574: , p_message_text => err_msg
575: , p_mesg_token_tbl => l_mesg_token_tbl
576: , x_mesg_token_tbl => l_mesg_token_tbl

Line 621: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

617:
618: PROCEDURE Set_WSM_Network_Sub_Loc
619: ( p_routing_sequence_id IN NUMBER
620: , p_end_id IN NUMBER
621: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
622: , x_Return_status IN OUT NOCOPY VARCHAR2
623: )
624: IS
625: l_item_compl_subinv varchar2(10);

Line 636: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;

632: l_inventory_location_id NUMBER;
633: l_routing_sequence_id NUMBER :=0;
634: l_common_routing_sequence_id NUMBER :=0;
635: l_cfm_routing_flag NUMBER :=0;
636: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
637: l_assembly_item_id NUMBER :=0;
638: l_org_id NUMBER :=0;
639: actual_end_id NUMBER; --for bug3134027
640: BEGIN

Line 701: Error_Handler.Add_Error_Token

697: -- No Manual Entry for comp. sub-inv
698:
699: IF l_item_compl_subinv IS NULL THEN
700: -- Comple. sub-inv for assy item is also not defined
701: Error_Handler.Add_Error_Token
702: ( p_message_name => NULL
703: , p_message_text => err_msg
704: , p_mesg_token_tbl => l_mesg_token_tbl
705: , x_mesg_token_tbl => l_mesg_token_tbl

Line 723: Error_Handler.Add_Error_Token

719: l_rtg_comp_sub_loc := l_inventory_location_id;
720:
721: ELSIF l_completion_subinventory <>
722: l_rtg_comp_sub_inv THEN
723: Error_Handler.Add_Error_Token
724: ( p_message_name => 'BOM_RBO_WSM_NTWK_OP_RTG_DIF_SI'
725: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
726: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
727: , p_message_type => 'W'

Line 732: Error_Handler.Add_Error_Token

728: ) ;
729: ELSIF nvl( l_inventory_location_id ,
730: l_rtg_comp_sub_loc ) <>
731: l_rtg_comp_sub_loc THEN
732: Error_Handler.Add_Error_Token
733: ( p_message_name => 'BOM_RBO_WSM_NTWK_OP_RTG_DIF_LC'
734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
736: , p_message_type => 'W'

Line 751: Error_Handler.Add_Error_Token

747: err_code ,
748: err_msg ) ;
749:
750: IF err_msg IS NOT NULL THEN
751: Error_Handler.Add_Error_Token
752: ( p_message_name => NULL
753: , p_message_text => err_msg
754: , p_mesg_token_tbl => l_mesg_token_tbl
755: , x_mesg_token_tbl => l_mesg_token_tbl

Line 771: * @rep:paraminfo { @rep:innertype Error_Handler.Mesg_Token_Tbl_Type }

767: /*#
768: * Procedure to copy the disabled first or last operation of the network.
769: * @param p_routing_sequence_id Routing Sequence Id
770: * @param x_Mesg_Token_Tbl Message Token Table
771: * @rep:paraminfo { @rep:innertype Error_Handler.Mesg_Token_Tbl_Type }
772: * @param x_Return_status Return Status
773: * @rep:scope private
774: * @rep:lifecycle active
775: * @rep:displayname Copy First Last Disabled Operation

Line 779: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type

775: * @rep:displayname Copy First Last Disabled Operation
776: */
777: PROCEDURE Copy_First_Last_Dis_Op
778: ( p_routing_sequence_id IN NUMBER
779: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
780: , x_return_status IN OUT NOCOPY VARCHAR2
781: )
782: IS
783: -- Get the First Operation of the network ordered by descending effectivity date

Line 827: Error_Handler.Write_Debug( ' Copying the First/Last operation if disabled');

823: ORDER BY bos.EFFECTIVITY_DATE DESC;
824:
825: BEGIN
826: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
827: Error_Handler.Write_Debug( ' Copying the First/Last operation if disabled');
828: END IF;
829:
830: FOR l_operation IN First_Op_Of_Nw( p_routing_sequence_id )
831: LOOP

Line 873: Error_Handler.Write_Debug( ' Copying operation ' || p_operation_sequence_id );

869: l_op_seq_id NUMBER;
870: BEGIN
871:
872: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
873: Error_Handler.Write_Debug( ' Copying operation ' || p_operation_sequence_id );
874: END IF;
875:
876: -- Get a new operation sequence id
877: SELECT BOM_OPERATION_SEQUENCES_S.NEXTVAL