20: -- 07-AUG-00 Biao Zhang Initial Creation
21: --
22: ****************************************************************************/
23: G_Pkg_Name VARCHAR2(30) := 'BOM_Default_Op_Network';
24: g_token_tbl Error_Handler.Token_Tbl_Type;
25:
26:
27:
28: FUNCTION Get_X_Coordinate( p_op_seq_id IN NUMBER)
170: ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
171: , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
172: , x_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
173: , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
174: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
175: , x_return_status IN OUT NOCOPY VARCHAR2
176: )
177: IS
178: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
174: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
175: , x_return_status IN OUT NOCOPY VARCHAR2
176: )
177: IS
178: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
179: l_err_text VARCHAR2(2000) ;
180: BEGIN
181:
182: x_op_network_rec := p_op_network_rec;
248:
249:
250: EXCEPTION
251: WHEN OTHERS THEN
252: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
253: ('Some unknown error in Attribute Defaulting . . .' || SQLERRM );
254: END IF ;
255:
256:
256:
257: l_err_text := G_PKG_NAME || ' Default (Attr. Defaulting) '
258: || substrb(SQLERRM,1,200);
259:
260: Error_Handler.Add_Error_Token
261: ( p_message_name => NULL
262: , p_message_text => l_err_text
263: , p_mesg_token_tbl => l_mesg_token_tbl
264: , x_mesg_token_tbl => l_mesg_token_tbl
286: ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
287: , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
288: , x_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
289: , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
290: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
291: , x_return_status IN OUT NOCOPY VARCHAR2
292: )
293: IS
294:
291: , x_return_status IN OUT NOCOPY VARCHAR2
292: )
293: IS
294:
295: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
296: l_err_text VARCHAR2(2000) ;
297: l_token_tbl Error_Handler.Token_Tbl_Type;
298:
299:
293: IS
294:
295: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
296: l_err_text VARCHAR2(2000) ;
297: l_token_tbl Error_Handler.Token_Tbl_Type;
298:
299:
300: BEGIN
301:
339: l_token_tbl(2).token_name := 'TO_OP_SEQ_NUMBER';
340: l_token_tbl(2).token_value :=
341: x_op_network_rec.to_op_seq_number;
342:
343: Error_Handler.Add_Error_Token
344: ( p_message_name => 'BOM_EAM_NWK_ATTR_IGNORED'
345: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
346: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
347: , p_Token_Tbl => l_Token_Tbl
348: , p_message_type => 'W'
349: ) ;
350:
351: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
352: Error_Handler.Write_Debug
353: ('Setting default values in connection type and trnasition type for eAM Op Network');
354: END IF;
355:
356:
469:
470:
471: EXCEPTION
472: WHEN OTHERS THEN
473: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
474: ('Some unknown error in Entity Defaulting . . .' || SQLERRM );
475: END IF ;
476:
477:
477:
478: l_err_text := G_PKG_NAME || ' Default (Entity Defaulting) '
479: || substrb(SQLERRM,1,200);
480:
481: Error_Handler.Add_Error_Token
482: ( p_message_name => NULL
483: , p_message_text => l_err_text
484: , p_mesg_token_tbl => l_mesg_token_tbl
485: , x_mesg_token_tbl => l_mesg_token_tbl