6: -- ---------------------------------------------------------
7: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvactb.pls';
8:
9: -- Global variable for storing the debug level
10: G_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
11:
12: /*--------------------------------------------------------------------*/
13: /* procedure name: CREATE_REPAIR_ACTUALS */
14: /* description : procedure used to Create Repair Actuals */
43: X_Msg_Data OUT NOCOPY VARCHAR2
44: )
45:
46: IS
47: -- Variables used in FND Log
48: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
44: )
45:
46: IS
47: -- Variables used in FND Log
48: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
52: l_error_level number := FND_LOG.LEVEL_ERROR;
45:
46: IS
47: -- Variables used in FND Log
48: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
52: l_error_level number := FND_LOG.LEVEL_ERROR;
53: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
46: IS
47: -- Variables used in FND Log
48: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
52: l_error_level number := FND_LOG.LEVEL_ERROR;
53: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
54: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.CREATE_REPAIR_ACTUALS';
47: -- Variables used in FND Log
48: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
52: l_error_level number := FND_LOG.LEVEL_ERROR;
53: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
54: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.CREATE_REPAIR_ACTUALS';
55:
48: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
52: l_error_level number := FND_LOG.LEVEL_ERROR;
53: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
54: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.CREATE_REPAIR_ACTUALS';
55:
56: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_REPAIR_ACTUALS';
49: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
50: l_event_level number := FND_LOG.LEVEL_EVENT;
51: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
52: l_error_level number := FND_LOG.LEVEL_ERROR;
53: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
54: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.CREATE_REPAIR_ACTUALS';
55:
56: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_REPAIR_ACTUALS';
57: l_api_version CONSTANT NUMBER := 1.0;
85: -- Initialize API return status to success
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: -- Api body starts
89: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
90: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of create_repair_actuals');
91: END IF;
92:
93: -- Dump the in parameters in the log file
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: -- Api body starts
89: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
90: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of create_repair_actuals');
91: END IF;
92:
93: -- Dump the in parameters in the log file
94: -- if the debug level > 5
97: -- csd_gen_utility_pvt.dump_actuals_rec
98: -- ( p_CSD_REPAIR_ACTUALS_REC => px_CSD_REPAIR_ACTUALS_REC);
99: -- end if;
100:
101: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
102: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
103: END IF;
104:
105: -- Check the required parameter
98: -- ( p_CSD_REPAIR_ACTUALS_REC => px_CSD_REPAIR_ACTUALS_REC);
99: -- end if;
100:
101: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
102: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
103: END IF;
104:
105: -- Check the required parameter
106: CSD_PROCESS_UTIL.Check_Reqd_Param
107: ( p_param_value => px_CSD_REPAIR_ACTUALS_REC.repair_line_id,
108: p_param_name => 'REPAIR_LINE_ID',
109: p_api_name => l_api_name);
110:
111: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
112: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
113: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
114: END IF;
115:
108: p_param_name => 'REPAIR_LINE_ID',
109: p_api_name => l_api_name);
110:
111: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
112: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
113: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
114: END IF;
115:
116: -- Validate the repair line ID
109: p_api_name => l_api_name);
110:
111: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
112: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
113: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
114: END IF;
115:
116: -- Validate the repair line ID
117: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
118: ( p_repair_line_id => px_CSD_REPAIR_ACTUALS_REC.repair_line_id )) THEN
119: RAISE FND_API.G_EXC_ERROR;
120: END IF;
121:
122: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
123: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
124: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Check if there is only one Actual Header per Repair Order');
125: END IF;
126:
119: RAISE FND_API.G_EXC_ERROR;
120: END IF;
121:
122: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
123: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
124: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Check if there is only one Actual Header per Repair Order');
125: END IF;
126:
127: Begin
120: END IF;
121:
122: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
123: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
124: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Check if there is only one Actual Header per Repair Order');
125: END IF;
126:
127: Begin
128: select count(*)
130: from csd_repair_actuals
131: where repair_line_id = px_CSD_REPAIR_ACTUALS_REC.repair_line_id;
132: Exception
133: when others then
134: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
135: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
136: END IF;
137: End;
138:
131: where repair_line_id = px_CSD_REPAIR_ACTUALS_REC.repair_line_id;
132: Exception
133: when others then
134: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
135: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
136: END IF;
137: End;
138:
139: IF l_act_count > 0 then
136: END IF;
137: End;
138:
139: IF l_act_count > 0 then
140: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
141: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Actuals already exists for the repair line Id: '||px_CSD_REPAIR_ACTUALS_REC.repair_line_id);
142: END IF;
143:
144: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
137: End;
138:
139: IF l_act_count > 0 then
140: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
141: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Actuals already exists for the repair line Id: '||px_CSD_REPAIR_ACTUALS_REC.repair_line_id);
142: END IF;
143:
144: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
145: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',px_CSD_REPAIR_ACTUALS_REC.repair_line_id);
144: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
145: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',px_CSD_REPAIR_ACTUALS_REC.repair_line_id);
146: FND_MSG_PUB.ADD;
147:
148: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
149: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
150: END IF;
151:
152: RAISE FND_API.G_EXC_ERROR;
145: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',px_CSD_REPAIR_ACTUALS_REC.repair_line_id);
146: FND_MSG_PUB.ADD;
147:
148: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
149: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
150: END IF;
151:
152: RAISE FND_API.G_EXC_ERROR;
153: End IF;
157:
158: --
159: -- API body
160: --
161: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
162: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Insert_Row');
163: END IF;
164:
165: BEGIN
158: --
159: -- API body
160: --
161: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
162: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Insert_Row');
163: END IF;
164:
165: BEGIN
166:
196: );
197:
198: EXCEPTION
199: WHEN OTHERS THEN
200: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
201: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception n CSD_REPAIR_ACTUALS_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
202: END IF;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: END;
197:
198: EXCEPTION
199: WHEN OTHERS THEN
200: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
201: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception n CSD_REPAIR_ACTUALS_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
202: END IF;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: END;
205:
221: (p_count => x_msg_count,
222: p_data => x_msg_data );
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
226: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
227: END IF;
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: ROLLBACK TO CREATE_REPAIR_ACTUALS;
222: p_data => x_msg_data );
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
226: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
227: END IF;
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: ROLLBACK TO CREATE_REPAIR_ACTUALS;
230: FND_MSG_PUB.Count_And_Get
230: FND_MSG_PUB.Count_And_Get
231: (p_count => x_msg_count,
232: p_data => x_msg_data );
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
235: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
236: END IF;
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
238: ROLLBACK TO CREATE_REPAIR_ACTUALS;
231: (p_count => x_msg_count,
232: p_data => x_msg_data );
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
235: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
236: END IF;
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
238: ROLLBACK TO CREATE_REPAIR_ACTUALS;
239: FND_MSG_PUB.Count_And_Get
239: FND_MSG_PUB.Count_And_Get
240: ( p_count => x_msg_count,
241: p_data => x_msg_data );
242: WHEN OTHERS THEN
243: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
244: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
245: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
246: END IF;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
240: ( p_count => x_msg_count,
241: p_data => x_msg_data );
242: WHEN OTHERS THEN
243: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
244: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
245: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
246: END IF;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
248: ROLLBACK TO CREATE_REPAIR_ACTUALS;
241: p_data => x_msg_data );
242: WHEN OTHERS THEN
243: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
244: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
245: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
246: END IF;
247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
248: ROLLBACK TO CREATE_REPAIR_ACTUALS;
249: IF FND_MSG_PUB.Check_Msg_Level
294: X_Msg_Data OUT NOCOPY VARCHAR2
295: )
296:
297: IS
298: -- Variables used in FND Log
299: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
295: )
296:
297: IS
298: -- Variables used in FND Log
299: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
303: l_error_level number := FND_LOG.LEVEL_ERROR;
296:
297: IS
298: -- Variables used in FND Log
299: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
303: l_error_level number := FND_LOG.LEVEL_ERROR;
304: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
297: IS
298: -- Variables used in FND Log
299: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
303: l_error_level number := FND_LOG.LEVEL_ERROR;
304: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
305: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.UPDATE_REPAIR_ACTUALS';
298: -- Variables used in FND Log
299: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
303: l_error_level number := FND_LOG.LEVEL_ERROR;
304: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
305: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.UPDATE_REPAIR_ACTUALS';
306:
299: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
303: l_error_level number := FND_LOG.LEVEL_ERROR;
304: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
305: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.UPDATE_REPAIR_ACTUALS';
306:
307: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_REPAIR_ACTUALS';
300: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
301: l_event_level number := FND_LOG.LEVEL_EVENT;
302: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
303: l_error_level number := FND_LOG.LEVEL_ERROR;
304: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
305: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.UPDATE_REPAIR_ACTUALS';
306:
307: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_REPAIR_ACTUALS';
308: l_api_version CONSTANT NUMBER := 1.0;
344: -- Initialize API return status to success
345: x_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: -- Api body starts
348: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
349: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
350: END IF;
351:
352: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
345: x_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: -- Api body starts
348: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
349: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
350: END IF;
351:
352: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
353: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
348: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
349: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
350: END IF;
351:
352: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
353: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
354: END IF;
355:
356: -- Check the required parameter
349: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
350: END IF;
351:
352: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
353: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
354: END IF;
355:
356: -- Check the required parameter
357: CSD_PROCESS_UTIL.Check_Reqd_Param
358: ( p_param_value => px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,
359: p_param_name => 'REPAIR_ACTUAL_ID',
360: p_api_name => l_api_name);
361:
362: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
363: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
364: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
365: END IF;
366:
359: p_param_name => 'REPAIR_ACTUAL_ID',
360: p_api_name => l_api_name);
361:
362: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
363: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
364: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
365: END IF;
366:
367: -- Validate the repair line ID
360: p_api_name => l_api_name);
361:
362: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
363: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
364: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
365: END IF;
366:
367: -- Validate the repair line ID
368: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
369: ( p_repair_line_id => px_CSD_REPAIR_ACTUALS_REC.repair_line_id )) THEN
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
373: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
374: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
375: END IF;
376:
377: IF NVL(px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
373: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
374: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
375: END IF;
376:
377: IF NVL(px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
378:
384: IF repair_actual%NOTFOUND THEN
385: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_MISSING');
386: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
387: FND_MSG_PUB.ADD;
388: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
389: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
390: END IF;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
385: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_MISSING');
386: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
387: FND_MSG_PUB.ADD;
388: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
389: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
390: END IF;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
396: END IF;
397:
398: END IF;
399:
400: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
401: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
402: END IF;
403:
404: IF NVL(px_CSD_REPAIR_ACTUALS_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
397:
398: END IF;
399:
400: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
401: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
402: END IF;
403:
404: IF NVL(px_CSD_REPAIR_ACTUALS_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
405:
407: -- FND_MESSAGE.SET_NAME('CSD','CSD_OBJ_VER_MISMATCH');
408: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_OBJ_VER_MISMATCH');
409: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
410: FND_MSG_PUB.ADD;
411: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
412: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
413: END IF;
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
408: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_OBJ_VER_MISMATCH');
409: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
410: FND_MSG_PUB.ADD;
411: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
412: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
413: END IF;
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416:
420:
421: --
422: -- API body
423: --
424: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
425: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Update_Row');
426: END IF;
427:
428: BEGIN
421: --
422: -- API body
423: --
424: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
425: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Update_Row');
426: END IF;
427:
428: BEGIN
429:
462: --
463:
464: EXCEPTION
465: WHEN OTHERS THEN
466: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
467: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUALS_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
468: END IF;
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: END;
463:
464: EXCEPTION
465: WHEN OTHERS THEN
466: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
467: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUALS_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
468: END IF;
469: x_return_status := FND_API.G_RET_STS_ERROR;
470: END;
471:
487: (p_count => x_msg_count,
488: p_data => x_msg_data );
489: EXCEPTION
490: WHEN FND_API.G_EXC_ERROR THEN
491: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
492: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
493: END IF;
494: x_return_status := FND_API.G_RET_STS_ERROR ;
495: ROLLBACK TO UPDATE_REPAIR_ACTUALS;
488: p_data => x_msg_data );
489: EXCEPTION
490: WHEN FND_API.G_EXC_ERROR THEN
491: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
492: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
493: END IF;
494: x_return_status := FND_API.G_RET_STS_ERROR ;
495: ROLLBACK TO UPDATE_REPAIR_ACTUALS;
496: FND_MSG_PUB.Count_And_Get
496: FND_MSG_PUB.Count_And_Get
497: (p_count => x_msg_count,
498: p_data => x_msg_data );
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
501: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
502: END IF;
503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
504: ROLLBACK TO UPDATE_REPAIR_ACTUALS;
497: (p_count => x_msg_count,
498: p_data => x_msg_data );
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
501: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
502: END IF;
503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
504: ROLLBACK TO UPDATE_REPAIR_ACTUALS;
505: FND_MSG_PUB.Count_And_Get
505: FND_MSG_PUB.Count_And_Get
506: ( p_count => x_msg_count,
507: p_data => x_msg_data );
508: WHEN OTHERS THEN
509: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
510: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
511: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
512: END IF;
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: ( p_count => x_msg_count,
507: p_data => x_msg_data );
508: WHEN OTHERS THEN
509: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
510: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
511: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
512: END IF;
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
514: ROLLBACK TO UPDATE_REPAIR_ACTUALS;
507: p_data => x_msg_data );
508: WHEN OTHERS THEN
509: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
510: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
511: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
512: END IF;
513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
514: ROLLBACK TO UPDATE_REPAIR_ACTUALS;
515: IF FND_MSG_PUB.Check_Msg_Level
559: X_Msg_Data OUT NOCOPY VARCHAR2
560: )
561:
562: IS
563: -- Variables used in FND Log
564: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
560: )
561:
562: IS
563: -- Variables used in FND Log
564: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
568: l_error_level number := FND_LOG.LEVEL_ERROR;
561:
562: IS
563: -- Variables used in FND Log
564: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
568: l_error_level number := FND_LOG.LEVEL_ERROR;
569: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
562: IS
563: -- Variables used in FND Log
564: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
568: l_error_level number := FND_LOG.LEVEL_ERROR;
569: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
570: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.DELETE_REPAIR_ACTUALS';
563: -- Variables used in FND Log
564: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
568: l_error_level number := FND_LOG.LEVEL_ERROR;
569: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
570: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.DELETE_REPAIR_ACTUALS';
571:
564: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
568: l_error_level number := FND_LOG.LEVEL_ERROR;
569: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
570: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.DELETE_REPAIR_ACTUALS';
571:
572: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_REPAIR_ACTUALS';
565: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
566: l_event_level number := FND_LOG.LEVEL_EVENT;
567: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
568: l_error_level number := FND_LOG.LEVEL_ERROR;
569: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
570: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.DELETE_REPAIR_ACTUALS';
571:
572: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_REPAIR_ACTUALS';
573: l_api_version CONSTANT NUMBER := 1.0;
609: -- Initialize API return status to success
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
611:
612: -- Api body starts
613: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
614: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
615: END IF;
616:
617: -- Dump the in parameters in the log file
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
611:
612: -- Api body starts
613: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
614: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
615: END IF;
616:
617: -- Dump the in parameters in the log file
618: -- if the debug level > 5
622: csd_gen_utility_pvt.dump_actuals_rec
623: ( p_CSD_REPAIR_ACTUALS_REC => px_CSD_REPAIR_ACTUALS_REC);
624: end if;
625: */
626: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
627: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd paramete');
628: END IF;
629:
630: -- Check the required parameter
623: ( p_CSD_REPAIR_ACTUALS_REC => px_CSD_REPAIR_ACTUALS_REC);
624: end if;
625: */
626: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
627: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd paramete');
628: END IF;
629:
630: -- Check the required parameter
631: CSD_PROCESS_UTIL.Check_Reqd_Param
632: ( p_param_value => px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,
633: p_param_name => 'REPAIR_ACTUAL_ID',
634: p_api_name => l_api_name);
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
639: END IF;
640:
633: p_param_name => 'REPAIR_ACTUAL_ID',
634: p_api_name => l_api_name);
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
639: END IF;
640:
641: -- Validate the repair line ID
634: p_api_name => l_api_name);
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
639: END IF;
640:
641: -- Validate the repair line ID
642: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
643: ( p_repair_line_id => px_CSD_REPAIR_ACTUALS_REC.repair_line_id )) THEN
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
648: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
649: END IF;
650:
651: IF NVL(px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
648: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
649: END IF;
650:
651: IF NVL(px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
652:
658: IF repair_actual%NOTFOUND THEN
659: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_MISSING');
660: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
661: FND_MSG_PUB.ADD;
662: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
663: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
664: END IF;
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
659: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_MISSING');
660: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
661: FND_MSG_PUB.ADD;
662: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
663: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
664: END IF;
665: RAISE FND_API.G_EXC_ERROR;
666: END IF;
667:
670: END IF;
671:
672: END IF;
673:
674: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
675: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
676: END IF;
677:
678: IF NVL(px_CSD_REPAIR_ACTUALS_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
671:
672: END IF;
673:
674: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
675: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
676: END IF;
677:
678: IF NVL(px_CSD_REPAIR_ACTUALS_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
679: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
675: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
676: END IF;
677:
678: IF NVL(px_CSD_REPAIR_ACTUALS_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
679: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
680: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
681: || ' for the Repair Actual ID = ' || l_actual_id);
682: END IF;
683:
676: END IF;
677:
678: IF NVL(px_CSD_REPAIR_ACTUALS_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
679: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
680: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
681: || ' for the Repair Actual ID = ' || l_actual_id);
682: END IF;
683:
684: -- Modified the message name for bugfix 3281321. vkjain.
685: -- FND_MESSAGE.SET_NAME('CSD','CSD_OBJ_VER_MISMATCH');
686: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_OBJ_VER_MISMATCH');
687: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
688: FND_MSG_PUB.ADD;
689: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
690: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
691: END IF;
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
686: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_OBJ_VER_MISMATCH');
687: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_ID',l_actual_id);
688: FND_MSG_PUB.ADD;
689: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
690: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
691: END IF;
692: RAISE FND_API.G_EXC_ERROR;
693: END IF;
694:
699: FROM csd_repair_actual_lines
700: WHERE repair_actual_id = l_actual_id;
701: EXCEPTION
702: WHEN OTHERS THEN
703: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
704: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
705: END IF;
706: END;
707:
700: WHERE repair_actual_id = l_actual_id;
701: EXCEPTION
702: WHEN OTHERS THEN
703: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
704: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
705: END IF;
706: END;
707:
708: IF l_act_line_count > 0 THEN
705: END IF;
706: END;
707:
708: IF l_act_line_count > 0 THEN
709: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
710: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Lines exists for the Repair Order');
711: END IF;
712:
713: FND_MESSAGE.SET_NAME('CSD','CSD_ACTUAL_LINE_EXISTS');
706: END;
707:
708: IF l_act_line_count > 0 THEN
709: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
710: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Lines exists for the Repair Order');
711: END IF;
712:
713: FND_MESSAGE.SET_NAME('CSD','CSD_ACTUAL_LINE_EXISTS');
714: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID', px_CSD_REPAIR_ACTUALS_REC.REPAIR_LINE_ID);
712:
713: FND_MESSAGE.SET_NAME('CSD','CSD_ACTUAL_LINE_EXISTS');
714: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID', px_CSD_REPAIR_ACTUALS_REC.REPAIR_LINE_ID);
715: FND_MSG_PUB.ADD;
716: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
717: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
718: END IF;
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
713: FND_MESSAGE.SET_NAME('CSD','CSD_ACTUAL_LINE_EXISTS');
714: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID', px_CSD_REPAIR_ACTUALS_REC.REPAIR_LINE_ID);
715: FND_MSG_PUB.ADD;
716: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
717: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
718: END IF;
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
721:
722:
723: --
724: -- API body
725: --
726: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
727: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Delete_Row');
728: END IF;
729:
730: BEGIN
723: --
724: -- API body
725: --
726: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
727: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Delete_Row');
728: END IF;
729:
730: BEGIN
731:
735: ,p_OBJECT_VERSION_NUMBER => px_CSD_REPAIR_ACTUALS_REC.OBJECT_VERSION_NUMBER);
736:
737: EXCEPTION
738: WHEN OTHERS THEN
739: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
740: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
741: END IF;
742: x_return_status := FND_API.G_RET_STS_ERROR;
743: END;
736:
737: EXCEPTION
738: WHEN OTHERS THEN
739: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
740: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
741: END IF;
742: x_return_status := FND_API.G_RET_STS_ERROR;
743: END;
744:
760: (p_count => x_msg_count,
761: p_data => x_msg_data );
762: EXCEPTION
763: WHEN FND_API.G_EXC_ERROR THEN
764: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
765: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
766: END IF;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: ROLLBACK TO DELETE_REPAIR_ACTUALS;
761: p_data => x_msg_data );
762: EXCEPTION
763: WHEN FND_API.G_EXC_ERROR THEN
764: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
765: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
766: END IF;
767: x_return_status := FND_API.G_RET_STS_ERROR ;
768: ROLLBACK TO DELETE_REPAIR_ACTUALS;
769: FND_MSG_PUB.Count_And_Get
769: FND_MSG_PUB.Count_And_Get
770: (p_count => x_msg_count,
771: p_data => x_msg_data );
772: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
773: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
774: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
775: END IF;
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: ROLLBACK TO DELETE_REPAIR_ACTUALS;
770: (p_count => x_msg_count,
771: p_data => x_msg_data );
772: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
773: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
774: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
775: END IF;
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: ROLLBACK TO DELETE_REPAIR_ACTUALS;
778: FND_MSG_PUB.Count_And_Get
778: FND_MSG_PUB.Count_And_Get
779: ( p_count => x_msg_count,
780: p_data => x_msg_data );
781: WHEN OTHERS THEN
782: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
783: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
784: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
785: END IF;
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
779: ( p_count => x_msg_count,
780: p_data => x_msg_data );
781: WHEN OTHERS THEN
782: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
783: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
784: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
785: END IF;
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
787: ROLLBACK TO DELETE_REPAIR_ACTUALS;
780: p_data => x_msg_data );
781: WHEN OTHERS THEN
782: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
783: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
784: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
785: END IF;
786: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
787: ROLLBACK TO DELETE_REPAIR_ACTUALS;
788: IF FND_MSG_PUB.Check_Msg_Level
830: X_Msg_Count OUT NOCOPY NUMBER,
831: X_Msg_Data OUT NOCOPY VARCHAR2
832: )
833: IS
834: -- Variables used in FND Log
835: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
831: X_Msg_Data OUT NOCOPY VARCHAR2
832: )
833: IS
834: -- Variables used in FND Log
835: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
839: l_error_level number := FND_LOG.LEVEL_ERROR;
832: )
833: IS
834: -- Variables used in FND Log
835: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
839: l_error_level number := FND_LOG.LEVEL_ERROR;
840: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
833: IS
834: -- Variables used in FND Log
835: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
839: l_error_level number := FND_LOG.LEVEL_ERROR;
840: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
841: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.LOCK_REPAIR_ACTUALS';
834: -- Variables used in FND Log
835: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
839: l_error_level number := FND_LOG.LEVEL_ERROR;
840: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
841: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.LOCK_REPAIR_ACTUALS';
842:
835: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
839: l_error_level number := FND_LOG.LEVEL_ERROR;
840: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
841: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.LOCK_REPAIR_ACTUALS';
842:
843: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_REPAIR_ACTUALS';
836: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
837: l_event_level number := FND_LOG.LEVEL_EVENT;
838: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
839: l_error_level number := FND_LOG.LEVEL_ERROR;
840: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
841: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PVT.LOCK_REPAIR_ACTUALS';
842:
843: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_REPAIR_ACTUALS';
844: l_api_version CONSTANT NUMBER := 1.0;
867: -- Initialize API return status to success
868: x_return_status := FND_API.G_RET_STS_SUCCESS;
869:
870: -- Api body starts
871: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
872: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
873: END IF;
874: -- Dump the in parameters in the log file
875: -- if the debug level > 5
868: x_return_status := FND_API.G_RET_STS_SUCCESS;
869:
870: -- Api body starts
871: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
872: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
873: END IF;
874: -- Dump the in parameters in the log file
875: -- if the debug level > 5
876: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
878: -- csd_gen_utility_pvt.dump_actuals_rec
879: -- ( p_CSD_REPAIR_ACTUALS_REC => px_CSD_REPAIR_ACTUALS_REC);
880: -- end if;
881:
882: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
883: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
884: END IF;
885:
886: -- Check the required parameter
879: -- ( p_CSD_REPAIR_ACTUALS_REC => px_CSD_REPAIR_ACTUALS_REC);
880: -- end if;
881:
882: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
883: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
884: END IF;
885:
886: -- Check the required parameter
887: CSD_PROCESS_UTIL.Check_Reqd_Param
888: ( p_param_value => px_CSD_REPAIR_ACTUALS_REC.repair_actual_id,
889: p_param_name => 'REPAIR_ACTUAL_ID',
890: p_api_name => l_api_name);
891:
892: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
893: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
894: END IF;
895:
896: --
889: p_param_name => 'REPAIR_ACTUAL_ID',
890: p_api_name => l_api_name);
891:
892: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
893: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
894: END IF;
895:
896: --
897: -- API body
895:
896: --
897: -- API body
898: --
899: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
900: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Lock_Row');
901: END IF;
902:
903: BEGIN
896: --
897: -- API body
898: --
899: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
900: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUALS_PKG.Lock_Row');
901: END IF;
902:
903: BEGIN
904:
908: ,p_OBJECT_VERSION_NUMBER => px_CSD_REPAIR_ACTUALS_REC.OBJECT_VERSION_NUMBER);
909:
910: EXCEPTION
911: WHEN OTHERS THEN
912: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
913: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUALS_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
914: END IF;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: END;
909:
910: EXCEPTION
911: WHEN OTHERS THEN
912: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
913: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUALS_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
914: END IF;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916: END;
917:
933: (p_count => x_msg_count,
934: p_data => x_msg_data );
935: EXCEPTION
936: WHEN FND_API.G_EXC_ERROR THEN
937: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
938: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
939: END IF;
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941: ROLLBACK TO LOCK_REPAIR_ACTUALS;
934: p_data => x_msg_data );
935: EXCEPTION
936: WHEN FND_API.G_EXC_ERROR THEN
937: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
938: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
939: END IF;
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941: ROLLBACK TO LOCK_REPAIR_ACTUALS;
942: FND_MSG_PUB.Count_And_Get
942: FND_MSG_PUB.Count_And_Get
943: (p_count => x_msg_count,
944: p_data => x_msg_data );
945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
946: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
947: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
948: END IF;
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
950: ROLLBACK TO LOCK_REPAIR_ACTUALS;
943: (p_count => x_msg_count,
944: p_data => x_msg_data );
945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
946: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
947: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
948: END IF;
949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
950: ROLLBACK TO LOCK_REPAIR_ACTUALS;
951: FND_MSG_PUB.Count_And_Get
951: FND_MSG_PUB.Count_And_Get
952: ( p_count => x_msg_count,
953: p_data => x_msg_data );
954: WHEN OTHERS THEN
955: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
956: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
957: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
958: END IF;
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
952: ( p_count => x_msg_count,
953: p_data => x_msg_data );
954: WHEN OTHERS THEN
955: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
956: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
957: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
958: END IF;
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
960: ROLLBACK TO LOCK_REPAIR_ACTUALS;
953: p_data => x_msg_data );
954: WHEN OTHERS THEN
955: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
956: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
957: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
958: END IF;
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
960: ROLLBACK TO LOCK_REPAIR_ACTUALS;
961: IF FND_MSG_PUB.Check_Msg_Level