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;
578: , sysdate
579: );
580:
581: ELSIF x_return_status <> 'S' THEN
582: Error_Handler.Get_Message
583: ( x_message_text => l_message_list
584: , x_entity_index => l_entity_index
585: , x_entity_id => l_entity_id
586: , x_message_type => l_message_type
585: , x_entity_id => l_entity_id
586: , x_message_type => l_message_type
587: );
588:
589: x_msg_count := ERROR_HANDLER.Get_Message_Count();
590: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.CREATE_CATALOG_GROUP '||l_message_list;
591: END IF;
592:
593: EXCEPTION
595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
596:
597: Ego_Catalog_Group_Err_Handler.Log_Error
598: ( p_error_status => x_return_status
599: , p_error_scope => Error_Handler.G_SCOPE_ALL
600: , p_error_level => Error_Handler.G_BO_LEVEL
601: );
602:
603: Error_Handler.Get_Message
596:
597: Ego_Catalog_Group_Err_Handler.Log_Error
598: ( p_error_status => x_return_status
599: , p_error_scope => Error_Handler.G_SCOPE_ALL
600: , p_error_level => Error_Handler.G_BO_LEVEL
601: );
602:
603: Error_Handler.Get_Message
604: ( x_message_text => l_message_list
599: , p_error_scope => Error_Handler.G_SCOPE_ALL
600: , p_error_level => Error_Handler.G_BO_LEVEL
601: );
602:
603: Error_Handler.Get_Message
604: ( x_message_text => l_message_list
605: , x_entity_index => l_entity_index
606: , x_entity_id => l_entity_id
607: , x_message_type => l_message_type
606: , x_entity_id => l_entity_id
607: , x_message_type => l_message_type
608: );
609:
610: x_msg_count := ERROR_HANDLER.Get_Message_Count();
611: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.CREATE_CATALOG_GROUP '||l_message_list;
612:
613: END CREATE_CATALOG_GROUP;
614:
743:
744: END IF;
745:
746: ELSIF x_return_status <> 'S' THEN
747: x_msg_count := Error_Handler.Get_Message_Count();
748:
749: Error_Handler.Get_Message
750: ( x_message_text => l_message_list
751: , x_entity_index => l_entity_index
745:
746: ELSIF x_return_status <> 'S' THEN
747: x_msg_count := Error_Handler.Get_Message_Count();
748:
749: Error_Handler.Get_Message
750: ( x_message_text => l_message_list
751: , x_entity_index => l_entity_index
752: , x_entity_id => l_entity_id
753: , x_message_type => l_message_type
752: , x_entity_id => l_entity_id
753: , x_message_type => l_message_type
754: );
755:
756: x_msg_count := ERROR_HANDLER.Get_Message_Count();
757: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.UPDATE_CATALOG_GROUP '||l_message_list;
758: END IF;
759:
760:
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789:
790: Ego_Catalog_Group_Err_Handler.Log_Error
791: ( p_error_status => x_return_status
792: , p_error_scope => Error_Handler.G_SCOPE_ALL
793: , p_error_level => Error_Handler.G_BO_LEVEL
794: );
795:
796: Error_Handler.Get_Message
789:
790: Ego_Catalog_Group_Err_Handler.Log_Error
791: ( p_error_status => x_return_status
792: , p_error_scope => Error_Handler.G_SCOPE_ALL
793: , p_error_level => Error_Handler.G_BO_LEVEL
794: );
795:
796: Error_Handler.Get_Message
797: ( x_message_text => l_message_list
792: , p_error_scope => Error_Handler.G_SCOPE_ALL
793: , p_error_level => Error_Handler.G_BO_LEVEL
794: );
795:
796: Error_Handler.Get_Message
797: ( x_message_text => l_message_list
798: , x_entity_index => l_entity_index
799: , x_entity_id => l_entity_id
800: , x_message_type => l_message_type
799: , x_entity_id => l_entity_id
800: , x_message_type => l_message_type
801: );
802:
803: x_msg_count := ERROR_HANDLER.Get_Message_Count();
804: x_msg_data := 'Executing - EGO_ITEM_CATALOG_PUB.UPDATE_CATALOG_GROUP '||l_message_list;
805:
806: END UPDATE_CATALOG_GROUP;
807: