24: , p_output_dir IN VARCHAR2
25: , p_debug_filename IN VARCHAR2
26: )
27: IS
28: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
29: l_token_Tbl Error_Handler.Token_Tbl_Type;
30: l_return_status VARCHAR2(1);
31: l_Debug_Flag VARCHAR2(1) := p_debug_flag;
32: BEGIN
25: , p_debug_filename IN VARCHAR2
26: )
27: IS
28: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
29: l_token_Tbl Error_Handler.Token_Tbl_Type;
30: l_return_status VARCHAR2(1);
31: l_Debug_Flag VARCHAR2(1) := p_debug_flag;
32: BEGIN
33:
41: THEN
42: -- If debug is Y then out dir must be
43: -- specified
44:
45: Error_Handler.Add_Error_Token
46: ( p_Message_text =>
47: 'Debug is set to Y so an output directory' ||
48: ' must be specified. Debug will be turned' ||
49: ' off since no directory is specified'
54:
55: Ego_Catalog_Group_Err_Handler.Log_Error
56: ( p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
57: , p_error_status => 'W'
58: , p_error_level => Error_Handler.G_BO_LEVEL
59: );
60: l_debug_flag := 'N';
61:
62: -- dbms_output.put_line('Reverting debug to N ' );
66: IF trim(p_debug_filename) IS NULL OR
67: trim(p_debug_filename) = ''
68: THEN
69:
70: Error_Handler.Add_Error_Token
71: ( p_Message_text =>
72: 'Debug is set to Y so an output filename' ||
73: ' must be specified. Debug will be turned' ||
74: ' off since no filename is specified'
79:
80: Ego_Catalog_Group_Err_Handler.Log_Error
81: ( p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
82: , p_error_status => 'W'
83: , p_error_level => Error_Handler.G_BO_LEVEL
84: );
85: l_debug_flag := 'N';
86:
87:
88: -- dbms_output.put_line('Reverting debug to N ' );
89:
90: END IF;
91:
92: Error_Handler.Set_Debug(l_debug_flag);
93:
94: IF p_debug_flag = 'Y'
95: THEN
96: Error_Handler.Open_Debug_Session
92: Error_Handler.Set_Debug(l_debug_flag);
93:
94: IF p_debug_flag = 'Y'
95: THEN
96: Error_Handler.Open_Debug_Session
97: ( p_debug_filename => p_debug_filename
98: , p_output_dir => p_output_dir
99: , x_return_status => l_return_status
100: , p_mesg_token_tbl => l_mesg_token_tbl
102: );
103:
104: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
105: THEN
106: Error_Handler.Set_Debug('N');
107: END IF;
108: END IF;
109: END IF;
110:
134: , p_debug_filename IN VARCHAR2 := 'Ego_Catalog_Grp.log'
135: ) IS
136: l_return_status VARCHAR2(1);
137: l_other_message VARCHAR2(30);
138: l_other_token_tbl Error_Handler.Token_Tbl_Type;
139: l_token_tbl Error_Handler.Token_Tbl_Type;
140: BEGIN
141: --
142: -- store a global reference to the table so that other processes do not need to be
135: ) IS
136: l_return_status VARCHAR2(1);
137: l_other_message VARCHAR2(30);
138: l_other_token_tbl Error_Handler.Token_Tbl_Type;
139: l_token_tbl Error_Handler.Token_Tbl_Type;
140: BEGIN
141: --
142: -- store a global reference to the table so that other processes do not need to be
143: -- passed the whole table.
163: --
164: -- Set Business Object Idenfier in the System Information
165: -- record.
166: --
167: Error_Handler.Set_Bo_Identifier
168: (p_bo_identifier => p_bo_identifier);
169:
170: --
171: -- Initialize the message list if the user has set the
172: -- Init Message List parameter
173: --
174: IF p_init_msg_list
175: THEN
176: Error_Handler.Initialize;
177: END IF;
178:
179: Set_Debug_Parameters( p_debug_flag => p_debug
180: , p_output_dir => p_output_dir
180: , p_output_dir => p_output_dir
181: , p_debug_filename => p_debug_filename
182: );
183:
184: if(Error_Handler.Get_Debug = 'Y')
185: then
186: Error_Handler.write_debug('Within business object public api ...');
187: -- dbms_output.put_line('Within business object public api ...');
188: end if;
182: );
183:
184: if(Error_Handler.Get_Debug = 'Y')
185: then
186: Error_Handler.write_debug('Within business object public api ...');
187: -- dbms_output.put_line('Within business object public api ...');
188: end if;
189:
190: --
199: -- dbms_output.put_line('Returned from private API ...');
200:
201: IF l_return_status <> 'S'
202: THEN
203: -- Call Error Handler
204: -- dbms_output.put_line('Calling log error ...');
205: Ego_Catalog_Group_Err_Handler.Log_Error
206: ( p_error_status => l_return_status
207: , p_error_scope => Error_Handler.G_SCOPE_ALL
203: -- Call Error Handler
204: -- dbms_output.put_line('Calling log error ...');
205: Ego_Catalog_Group_Err_Handler.Log_Error
206: ( p_error_status => l_return_status
207: , p_error_scope => Error_Handler.G_SCOPE_ALL
208: , p_error_level => Error_Handler.G_BO_LEVEL
209: --, p_other_message => 'EGO_ERROR_BUSINESS_OBJECT'
210: --, p_other_status => l_return_status
211: );
204: -- dbms_output.put_line('Calling log error ...');
205: Ego_Catalog_Group_Err_Handler.Log_Error
206: ( p_error_status => l_return_status
207: , p_error_scope => Error_Handler.G_SCOPE_ALL
208: , p_error_level => Error_Handler.G_BO_LEVEL
209: --, p_other_message => 'EGO_ERROR_BUSINESS_OBJECT'
210: --, p_other_status => l_return_status
211: );
212: -- dbms_output.put_line('Called log error ...');
212: -- dbms_output.put_line('Called log error ...');
213: END IF;
214:
215: x_return_status := l_return_status;
216: x_msg_count := Error_Handler.Get_Message_Count;
217:
218: Error_Handler.write_debug('Return status is ...'||x_return_status);
219:
220: IF Error_Handler.Get_Debug = 'Y'
214:
215: x_return_status := l_return_status;
216: x_msg_count := Error_Handler.Get_Message_Count;
217:
218: Error_Handler.write_debug('Return status is ...'||x_return_status);
219:
220: IF Error_Handler.Get_Debug = 'Y'
221: THEN
222: Error_Handler.Close_Debug_Session;
216: x_msg_count := Error_Handler.Get_Message_Count;
217:
218: Error_Handler.write_debug('Return status is ...'||x_return_status);
219:
220: IF Error_Handler.Get_Debug = 'Y'
221: THEN
222: Error_Handler.Close_Debug_Session;
223: END IF;
224:
218: Error_Handler.write_debug('Return status is ...'||x_return_status);
219:
220: IF Error_Handler.Get_Debug = 'Y'
221: THEN
222: Error_Handler.Close_Debug_Session;
223: END IF;
224:
225: -- return back the table from the global reference.
226:
228:
229: EXCEPTION
230: WHEN EGO_Globals.G_EXC_SEV_QUIT_OBJECT THEN
231:
232: -- Call Error Handler
233:
234: Ego_Catalog_Group_Err_Handler.Log_Error
235: ( p_error_status => Error_Handler.G_STATUS_ERROR
236: , p_error_scope => Error_Handler.G_SCOPE_ALL
231:
232: -- Call Error Handler
233:
234: Ego_Catalog_Group_Err_Handler.Log_Error
235: ( p_error_status => Error_Handler.G_STATUS_ERROR
236: , p_error_scope => Error_Handler.G_SCOPE_ALL
237: , p_error_level => Error_Handler.G_BO_LEVEL
238: , p_other_message => l_other_message
239: , p_other_status => Error_Handler.G_STATUS_ERROR
232: -- Call Error Handler
233:
234: Ego_Catalog_Group_Err_Handler.Log_Error
235: ( p_error_status => Error_Handler.G_STATUS_ERROR
236: , p_error_scope => Error_Handler.G_SCOPE_ALL
237: , p_error_level => Error_Handler.G_BO_LEVEL
238: , p_other_message => l_other_message
239: , p_other_status => Error_Handler.G_STATUS_ERROR
240: );
233:
234: Ego_Catalog_Group_Err_Handler.Log_Error
235: ( p_error_status => Error_Handler.G_STATUS_ERROR
236: , p_error_scope => Error_Handler.G_SCOPE_ALL
237: , p_error_level => Error_Handler.G_BO_LEVEL
238: , p_other_message => l_other_message
239: , p_other_status => Error_Handler.G_STATUS_ERROR
240: );
241:
235: ( p_error_status => Error_Handler.G_STATUS_ERROR
236: , p_error_scope => Error_Handler.G_SCOPE_ALL
237: , p_error_level => Error_Handler.G_BO_LEVEL
238: , p_other_message => l_other_message
239: , p_other_status => Error_Handler.G_STATUS_ERROR
240: );
241:
242: x_return_status := Error_Handler.G_STATUS_ERROR;
243: x_msg_count := Error_Handler.Get_Message_Count;
238: , p_other_message => l_other_message
239: , p_other_status => Error_Handler.G_STATUS_ERROR
240: );
241:
242: x_return_status := Error_Handler.G_STATUS_ERROR;
243: x_msg_count := Error_Handler.Get_Message_Count;
244: IF Error_Handler.Get_Debug = 'Y'
245: THEN
246: Error_Handler.Close_Debug_Session;
239: , p_other_status => Error_Handler.G_STATUS_ERROR
240: );
241:
242: x_return_status := Error_Handler.G_STATUS_ERROR;
243: x_msg_count := Error_Handler.Get_Message_Count;
244: IF Error_Handler.Get_Debug = 'Y'
245: THEN
246: Error_Handler.Close_Debug_Session;
247: END IF;
240: );
241:
242: x_return_status := Error_Handler.G_STATUS_ERROR;
243: x_msg_count := Error_Handler.Get_Message_Count;
244: IF Error_Handler.Get_Debug = 'Y'
245: THEN
246: Error_Handler.Close_Debug_Session;
247: END IF;
248:
242: x_return_status := Error_Handler.G_STATUS_ERROR;
243: x_msg_count := Error_Handler.Get_Message_Count;
244: IF Error_Handler.Get_Debug = 'Y'
245: THEN
246: Error_Handler.Close_Debug_Session;
247: END IF;
248:
249: WHEN EGO_Globals.G_EXC_UNEXP_SKIP_OBJECT THEN
250:
247: END IF;
248:
249: WHEN EGO_Globals.G_EXC_UNEXP_SKIP_OBJECT THEN
250:
251: -- Call Error Handler
252:
253: Ego_Catalog_Group_Err_Handler.Log_Error
254: ( p_error_status => Error_Handler.G_STATUS_UNEXPECTED
255: , p_error_level => Error_Handler.G_BO_LEVEL
250:
251: -- Call Error Handler
252:
253: Ego_Catalog_Group_Err_Handler.Log_Error
254: ( p_error_status => Error_Handler.G_STATUS_UNEXPECTED
255: , p_error_level => Error_Handler.G_BO_LEVEL
256: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
257: , p_other_message => l_other_message
258: , p_other_token_tbl => l_token_tbl
251: -- Call Error Handler
252:
253: Ego_Catalog_Group_Err_Handler.Log_Error
254: ( p_error_status => Error_Handler.G_STATUS_UNEXPECTED
255: , p_error_level => Error_Handler.G_BO_LEVEL
256: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
257: , p_other_message => l_other_message
258: , p_other_token_tbl => l_token_tbl
259: );
252:
253: Ego_Catalog_Group_Err_Handler.Log_Error
254: ( p_error_status => Error_Handler.G_STATUS_UNEXPECTED
255: , p_error_level => Error_Handler.G_BO_LEVEL
256: , p_other_status => Error_Handler.G_STATUS_NOT_PICKED
257: , p_other_message => l_other_message
258: , p_other_token_tbl => l_token_tbl
259: );
260:
257: , p_other_message => l_other_message
258: , p_other_token_tbl => l_token_tbl
259: );
260:
261: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
262: x_msg_count := Error_Handler.Get_Message_Count;
263: IF Error_Handler.Get_Debug = 'Y'
264: THEN
265: Error_Handler.Close_Debug_Session;
258: , p_other_token_tbl => l_token_tbl
259: );
260:
261: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
262: x_msg_count := Error_Handler.Get_Message_Count;
263: IF Error_Handler.Get_Debug = 'Y'
264: THEN
265: Error_Handler.Close_Debug_Session;
266: END IF;
259: );
260:
261: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
262: x_msg_count := Error_Handler.Get_Message_Count;
263: IF Error_Handler.Get_Debug = 'Y'
264: THEN
265: Error_Handler.Close_Debug_Session;
266: END IF;
267:
261: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
262: x_msg_count := Error_Handler.Get_Message_Count;
263: IF Error_Handler.Get_Debug = 'Y'
264: THEN
265: Error_Handler.Close_Debug_Session;
266: END IF;
267:
268:
269: END Process_Catalog_Groups;
512: , sysdate
513: );
514:
515: ELSIF x_return_status <> 'S' THEN
516: Error_Handler.Get_Message
517: ( x_message_text => l_message_list
518: , x_entity_index => l_entity_index
519: , x_entity_id => l_entity_id
520: , x_message_type => l_message_type
519: , x_entity_id => l_entity_id
520: , x_message_type => l_message_type
521: );
522:
523: x_msg_count := ERROR_HANDLER.Get_Message_Count();
524: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.CREATE_CATALOG_GROUP '||l_message_list;
525: END IF;
526:
527: EXCEPTION
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
530:
531: Ego_Catalog_Group_Err_Handler.Log_Error
532: ( p_error_status => x_return_status
533: , p_error_scope => Error_Handler.G_SCOPE_ALL
534: , p_error_level => Error_Handler.G_BO_LEVEL
535: );
536:
537: Error_Handler.Get_Message
530:
531: Ego_Catalog_Group_Err_Handler.Log_Error
532: ( p_error_status => x_return_status
533: , p_error_scope => Error_Handler.G_SCOPE_ALL
534: , p_error_level => Error_Handler.G_BO_LEVEL
535: );
536:
537: Error_Handler.Get_Message
538: ( x_message_text => l_message_list
533: , p_error_scope => Error_Handler.G_SCOPE_ALL
534: , p_error_level => Error_Handler.G_BO_LEVEL
535: );
536:
537: Error_Handler.Get_Message
538: ( x_message_text => l_message_list
539: , x_entity_index => l_entity_index
540: , x_entity_id => l_entity_id
541: , x_message_type => l_message_type
540: , x_entity_id => l_entity_id
541: , x_message_type => l_message_type
542: );
543:
544: x_msg_count := ERROR_HANDLER.Get_Message_Count();
545: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.CREATE_CATALOG_GROUP '||l_message_list;
546:
547: END CREATE_CATALOG_GROUP;
548:
677:
678: END IF;
679:
680: ELSIF x_return_status <> 'S' THEN
681: x_msg_count := Error_Handler.Get_Message_Count();
682:
683: Error_Handler.Get_Message
684: ( x_message_text => l_message_list
685: , x_entity_index => l_entity_index
679:
680: ELSIF x_return_status <> 'S' THEN
681: x_msg_count := Error_Handler.Get_Message_Count();
682:
683: Error_Handler.Get_Message
684: ( x_message_text => l_message_list
685: , x_entity_index => l_entity_index
686: , x_entity_id => l_entity_id
687: , x_message_type => l_message_type
686: , x_entity_id => l_entity_id
687: , x_message_type => l_message_type
688: );
689:
690: x_msg_count := ERROR_HANDLER.Get_Message_Count();
691: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.UPDATE_CATALOG_GROUP '||l_message_list;
692: END IF;
693:
694:
722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
723:
724: Ego_Catalog_Group_Err_Handler.Log_Error
725: ( p_error_status => x_return_status
726: , p_error_scope => Error_Handler.G_SCOPE_ALL
727: , p_error_level => Error_Handler.G_BO_LEVEL
728: );
729:
730: Error_Handler.Get_Message
723:
724: Ego_Catalog_Group_Err_Handler.Log_Error
725: ( p_error_status => x_return_status
726: , p_error_scope => Error_Handler.G_SCOPE_ALL
727: , p_error_level => Error_Handler.G_BO_LEVEL
728: );
729:
730: Error_Handler.Get_Message
731: ( x_message_text => l_message_list
726: , p_error_scope => Error_Handler.G_SCOPE_ALL
727: , p_error_level => Error_Handler.G_BO_LEVEL
728: );
729:
730: Error_Handler.Get_Message
731: ( x_message_text => l_message_list
732: , x_entity_index => l_entity_index
733: , x_entity_id => l_entity_id
734: , x_message_type => l_message_type
733: , x_entity_id => l_entity_id
734: , x_message_type => l_message_type
735: );
736:
737: x_msg_count := ERROR_HANDLER.Get_Message_Count();
738: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.UPDATE_CATALOG_GROUP '||l_message_list;
739:
740: END UPDATE_CATALOG_GROUP;
741: