[Home] [Help]
5: --G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_REPAIR_ACTUAL_LINES_PVT';
6: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdvclnb.pls';
7:
8: -- Global variable for storing the debug level
9: G_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
10:
11: /*--------------------------------------------------------------------*/
12: /* procedure name: CREATE_REPAIR_ACTUAL_LINES */
13: /* description : procedure used to Create Repair Actuals */
44: X_Msg_Data OUT NOCOPY VARCHAR2
45: )
46:
47: IS
48: -- Variables used in FND Log
49: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
45: )
46:
47: IS
48: -- Variables used in FND Log
49: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
53: l_error_level number := FND_LOG.LEVEL_ERROR;
46:
47: IS
48: -- Variables used in FND Log
49: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
53: l_error_level number := FND_LOG.LEVEL_ERROR;
54: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
47: IS
48: -- Variables used in FND Log
49: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
53: l_error_level number := FND_LOG.LEVEL_ERROR;
54: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
55: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.create_repair_actual_lines';
48: -- Variables used in FND Log
49: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
53: l_error_level number := FND_LOG.LEVEL_ERROR;
54: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
55: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.create_repair_actual_lines';
56:
49: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
53: l_error_level number := FND_LOG.LEVEL_ERROR;
54: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
55: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.create_repair_actual_lines';
56:
57: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_REPAIR_ACTUAL_LINES';
50: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
51: l_event_level number := FND_LOG.LEVEL_EVENT;
52: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
53: l_error_level number := FND_LOG.LEVEL_ERROR;
54: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
55: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.create_repair_actual_lines';
56:
57: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_REPAIR_ACTUAL_LINES';
58: l_api_version CONSTANT NUMBER := 1.0;
126: -- Initialize API return status to success
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: -- Api body starts
130: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
131: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of create_repair_actual_lines');
132: END IF;
133:
134: -- Dump the in parameters in the log file
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: -- Api body starts
130: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
131: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of create_repair_actual_lines');
132: END IF;
133:
134: -- Dump the in parameters in the log file
135: -- if the debug level > 5
138: -- csd_gen_utility_pvt.dump_actual_lines_rec
139: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
140: -- end if;
141:
142: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
143: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter Repair Line ID : '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
144: END IF;
145:
146: -- Check the required parameter
139: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
140: -- end if;
141:
142: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
143: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter Repair Line ID : '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
144: END IF;
145:
146: -- Check the required parameter
147: CSD_PROCESS_UTIL.Check_Reqd_Param
148: ( p_param_value => px_CSD_ACTUAL_LINES_REC.repair_line_id,
149: p_param_name => 'REPAIR_LINE_ID',
150: p_api_name => l_api_name);
151:
152: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
153: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
154: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
155: END IF;
156:
149: p_param_name => 'REPAIR_LINE_ID',
150: p_api_name => l_api_name);
151:
152: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
153: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
154: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
155: END IF;
156:
157: -- Validate the repair line ID
150: p_api_name => l_api_name);
151:
152: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
153: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
154: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
155: END IF;
156:
157: -- Validate the repair line ID
158: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
159: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
164: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
165: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Check if there is only one Actual Header per Repair Order');
166: END IF;
167:
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
164: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
165: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Check if there is only one Actual Header per Repair Order');
166: END IF;
167:
168: -- Begin check Actuals Header is null
161: END IF;
162:
163: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
164: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
165: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Check if there is only one Actual Header per Repair Order');
166: END IF;
167:
168: -- Begin check Actuals Header is null
169: IF (px_CSD_ACTUAL_LINES_REC.repair_actual_id is null) then
177: from csd_repair_actuals
178: where repair_line_id = px_CSD_ACTUAL_LINES_REC.repair_line_id;
179: Exception
180: when others then
181: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
182: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
183: END IF;
184:
185: End;
178: where repair_line_id = px_CSD_ACTUAL_LINES_REC.repair_line_id;
179: Exception
180: when others then
181: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
182: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
183: END IF;
184:
185: End;
186:
185: End;
186:
187: -- Begin check Actuals Header call
188: IF l_act_count = 0 then
189: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
190: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals do not exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
191: END IF;
192:
193: -- Create Actual Header
186:
187: -- Begin check Actuals Header call
188: IF l_act_count = 0 then
189: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
190: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals do not exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
191: END IF;
192:
193: -- Create Actual Header
194: -- Assign values to actuals header record
220: lx_csd_actuals_rec.BILL_TO_PARTY_ID := NULL;
221: lx_csd_actuals_rec.BILL_TO_PARTY_SITE_ID := NULL;
222:
223:
224: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
225: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Calling csd_repair_actuals_pvt.create_repair_actuals');
226: END IF;
227:
228: -- call API to create Repair Actuals header
221: lx_csd_actuals_rec.BILL_TO_PARTY_SITE_ID := NULL;
222:
223:
224: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
225: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Calling csd_repair_actuals_pvt.create_repair_actuals');
226: END IF;
227:
228: -- call API to create Repair Actuals header
229: csd_repair_actuals_pvt.create_repair_actuals
236: X_Msg_Count => x_msg_count,
237: X_Msg_Data => x_msg_data);
238:
239: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
240: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
241: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'csd_repair_actuals_pvt.create_repair_actuals failed');
242: END IF;
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
237: X_Msg_Data => x_msg_data);
238:
239: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
240: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
241: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'csd_repair_actuals_pvt.create_repair_actuals failed');
242: END IF;
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
245:
245:
246: -- assign the created actuals header to actual lines record
247: px_CSD_ACTUAL_LINES_REC.repair_actual_id := lx_csd_actuals_rec.REPAIR_ACTUAL_ID;
248:
249: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
250: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals do not exists for the repair line Id: '||lx_csd_actuals_rec.REPAIR_ACTUAL_ID);
251: END IF;
252:
253: ELSIF (l_act_count = 1) then
246: -- assign the created actuals header to actual lines record
247: px_CSD_ACTUAL_LINES_REC.repair_actual_id := lx_csd_actuals_rec.REPAIR_ACTUAL_ID;
248:
249: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
250: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals do not exists for the repair line Id: '||lx_csd_actuals_rec.REPAIR_ACTUAL_ID);
251: END IF;
252:
253: ELSIF (l_act_count = 1) then
254: -- special cases
251: END IF;
252:
253: ELSIF (l_act_count = 1) then
254: -- special cases
255: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
256: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Header was not passed in. Retrieving it..');
257: END IF;
258: Begin
259: -- initialize
252:
253: ELSIF (l_act_count = 1) then
254: -- special cases
255: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
256: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Header was not passed in. Retrieving it..');
257: END IF;
258: Begin
259: -- initialize
260: l_act_hdr := -1;
264: from csd_repair_actuals
265: where repair_line_id = px_CSD_ACTUAL_LINES_REC.repair_line_id;
266: Exception
267: when others then
268: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
269: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
270: END IF;
271: End;
272:
265: where repair_line_id = px_CSD_ACTUAL_LINES_REC.repair_line_id;
266: Exception
267: when others then
268: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
269: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
270: END IF;
271: End;
272:
273: -- assign the repair actual header id
272:
273: -- assign the repair actual header id
274: px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID := l_act_hdr;
275:
276: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
277: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals header: '||l_act_hdr||'already exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
278: END IF;
279:
280: ELSIF l_act_count > 1 then
273: -- assign the repair actual header id
274: px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID := l_act_hdr;
275:
276: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
277: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals header: '||l_act_hdr||'already exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
278: END IF;
279:
280: ELSIF l_act_count > 1 then
281: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
277: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actuals header: '||l_act_hdr||'already exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
278: END IF;
279:
280: ELSIF l_act_count > 1 then
281: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
282: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Multiple Actuals exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
283: END IF;
284:
285: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
278: END IF;
279:
280: ELSIF l_act_count > 1 then
281: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
282: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Multiple Actuals exists for the repair line Id: '||px_CSD_ACTUAL_LINES_REC.repair_line_id);
283: END IF;
284:
285: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
286: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_line_id);
284:
285: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
286: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_line_id);
287: FND_MSG_PUB.ADD;
288: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
289: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
290: END IF;
291: RAISE FND_API.G_EXC_ERROR;
292: End IF;
285: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUALS_EXISTS');
286: FND_MESSAGE.SET_TOKEN('REPAIR_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_line_id);
287: FND_MSG_PUB.ADD;
288: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
289: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
290: END IF;
291: RAISE FND_API.G_EXC_ERROR;
292: End IF;
293: -- End check Actuals Header call
309: -- which is the estimate_detail_id of the Actual line
310:
311: -- Raise FND_API.G_EXC_ERROR if the estimate_detail_id is null
312: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
313: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
314: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
315: END IF;
316:
317: RAISE FND_API.G_EXC_ERROR;
310:
311: -- Raise FND_API.G_EXC_ERROR if the estimate_detail_id is null
312: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
313: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
314: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
315: END IF;
316:
317: RAISE FND_API.G_EXC_ERROR;
318: END IF;
319:
320: --
321: -- API body
322: --
323: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
324: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
325: END IF;
326:
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
320: --
321: -- API body
322: --
323: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
324: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
325: END IF;
326:
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
323: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
324: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
325: END IF;
326:
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
324: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
325: END IF;
326:
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
325: END IF;
326:
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
326:
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
334: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
327: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
334: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
335: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
328: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
334: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
335: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
336: END IF;
329: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_LINE_ID (must be null) = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_LINE_ID);
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
334: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
335: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
336: END IF;
337:
330: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
334: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
335: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
336: END IF;
337:
338: BEGIN
331: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
332: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
333: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
334: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
335: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
336: END IF;
337:
338: BEGIN
339: -- Call table handler CSD_REPAIR_ACTUALS_LINES_PKG.Insert_Row to
397: ,p_LOC_SEGMENT18 => px_CSD_ACTUAL_LINES_REC.LOC_SEGMENT18
398: ,p_LOC_SEGMENT19 => px_CSD_ACTUAL_LINES_REC.LOC_SEGMENT19
399: ,p_LOC_SEGMENT20 => px_CSD_ACTUAL_LINES_REC.LOC_SEGMENT20);
400:
401: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
402: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Returned from CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
403: END IF;
404:
405: EXCEPTION
398: ,p_LOC_SEGMENT19 => px_CSD_ACTUAL_LINES_REC.LOC_SEGMENT19
399: ,p_LOC_SEGMENT20 => px_CSD_ACTUAL_LINES_REC.LOC_SEGMENT20);
400:
401: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
402: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Returned from CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
403: END IF;
404:
405: EXCEPTION
406: WHEN OTHERS THEN
403: END IF;
404:
405: EXCEPTION
406: WHEN OTHERS THEN
407: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
408: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
409: END IF;
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END;
404:
405: EXCEPTION
406: WHEN OTHERS THEN
407: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
408: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
409: END IF;
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END;
412:
427: -- we link the Debrief createsd charge line to our Actual Line
428:
429: -- Raise FND_API.G_EXC_ERROR if the estimate_detail_id is null
430: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
431: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
432: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
433: END IF;
434: RAISE FND_API.G_EXC_ERROR;
435: END IF;
428:
429: -- Raise FND_API.G_EXC_ERROR if the estimate_detail_id is null
430: IF (px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID is null) THEN
431: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
432: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Missing estimate_detail_id for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
433: END IF;
434: RAISE FND_API.G_EXC_ERROR;
435: END IF;
436:
436:
437: --
438: -- API body
439: --
440: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
441: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
442: END IF;
443:
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
437: --
438: -- API body
439: --
440: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
441: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
442: END IF;
443:
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
440: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
441: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
442: END IF;
443:
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
441: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
442: END IF;
443:
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
442: END IF;
443:
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
443:
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
451: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
444: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
451: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
452: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
445: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Required columns: ');
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
451: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
452: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
453: END IF;
446: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,' ');
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
451: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
452: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
453: END IF;
454:
447: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'OBJECT_VERSION_NUMBER = ' || px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
451: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
452: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
453: END IF;
454:
455: BEGIN
448: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'ESTIMATE_DETAIL_ID = ' || px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
449: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_ACTUAL_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_ACTUAL_ID);
450: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'REPAIR_LINE_ID = ' || px_CSD_ACTUAL_LINES_REC.REPAIR_LINE_ID);
451: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'CREATED_BY = ' || FND_GLOBAL.USER_ID);
452: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'LAST_UPDATED_BY = '|| FND_GLOBAL.USER_ID);
453: END IF;
454:
455: BEGIN
456: -- Call table handler CSD_REPAIR_ACTUALS_LINES_PKG.Insert_Row to
517:
518:
519: EXCEPTION
520: WHEN OTHERS THEN
521: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
522: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
523: END IF;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: END;
518:
519: EXCEPTION
520: WHEN OTHERS THEN
521: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
522: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
523: END IF;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: END;
526:
546: -- actual line record values passed from the Actuals UI
547: -- Raise FND_API.G_EXC_ERROR if it fails
548: --IF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('MANUAL') ) THEN
549:
550: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
551: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
552: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Line ID ='||px_CSD_ACTUAL_LINES_REC.repair_line_id);
553: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Transaction Billing Type ID ='||px_CHARGES_REC.txn_billing_type_id);
554: END IF;
547: -- Raise FND_API.G_EXC_ERROR if it fails
548: --IF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('MANUAL') ) THEN
549:
550: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
551: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
552: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Line ID ='||px_CSD_ACTUAL_LINES_REC.repair_line_id);
553: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Transaction Billing Type ID ='||px_CHARGES_REC.txn_billing_type_id);
554: END IF;
555:
548: --IF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('MANUAL') ) THEN
549:
550: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
551: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
552: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Line ID ='||px_CSD_ACTUAL_LINES_REC.repair_line_id);
553: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Transaction Billing Type ID ='||px_CHARGES_REC.txn_billing_type_id);
554: END IF;
555:
556: -- Check the required parameter
549:
550: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
551: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
552: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Line ID ='||px_CSD_ACTUAL_LINES_REC.repair_line_id);
553: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Transaction Billing Type ID ='||px_CHARGES_REC.txn_billing_type_id);
554: END IF;
555:
556: -- Check the required parameter
557: CSD_PROCESS_UTIL.Check_Reqd_Param
583: ( p_param_value => px_CHARGES_REC.price_list_id,
584: p_param_name => 'PRICE_LIST_ID',
585: p_api_name => l_api_name);
586:
587: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
588: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
589: END IF;
590:
591: -- begin check for incident id is not null
584: p_param_name => 'PRICE_LIST_ID',
585: p_api_name => l_api_name);
586:
587: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
588: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
589: END IF;
590:
591: -- begin check for incident id is not null
592: IF (px_CHARGES_REC.incident_id is not null) THEN
590:
591: -- begin check for incident id is not null
592: IF (px_CHARGES_REC.incident_id is not null) THEN
593:
594: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
595: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Incident_id ='||px_CHARGES_REC.incident_id);
596: END IF;
597:
598: -- Get the business process id
591: -- begin check for incident id is not null
592: IF (px_CHARGES_REC.incident_id is not null) THEN
593:
594: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
595: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Incident_id ='||px_CHARGES_REC.incident_id);
596: END IF;
597:
598: -- Get the business process id
599: l_bus_process_id := CSD_PROCESS_UTIL.GET_BUS_PROCESS(px_CSD_ACTUAL_LINES_REC.repair_line_id);
597:
598: -- Get the business process id
599: l_bus_process_id := CSD_PROCESS_UTIL.GET_BUS_PROCESS(px_CSD_ACTUAL_LINES_REC.repair_line_id);
600:
601: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
602: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_bus_process_id ='||l_bus_process_id);
603: END IF;
604:
605: IF l_bus_process_id < 0 THEN
598: -- Get the business process id
599: l_bus_process_id := CSD_PROCESS_UTIL.GET_BUS_PROCESS(px_CSD_ACTUAL_LINES_REC.repair_line_id);
600:
601: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
602: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_bus_process_id ='||l_bus_process_id);
603: END IF;
604:
605: IF l_bus_process_id < 0 THEN
606: IF NVL(px_CHARGES_REC.business_process_id,FND_API.G_MISS_NUM)
606: IF NVL(px_CHARGES_REC.business_process_id,FND_API.G_MISS_NUM)
607: <> FND_API.G_MISS_NUM THEN
608: l_bus_process_id := px_CHARGES_REC.business_process_id;
609: ELSE
610: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
611: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Business process does not exist');
612: END IF;
613: RAISE FND_API.G_EXC_ERROR;
614: END IF;
607: <> FND_API.G_MISS_NUM THEN
608: l_bus_process_id := px_CHARGES_REC.business_process_id;
609: ELSE
610: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
611: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Business process does not exist');
612: END IF;
613: RAISE FND_API.G_EXC_ERROR;
614: END IF;
615: END IF;
622: IF order_rec%NOTFOUND OR l_party_id IS NULL THEN
623: FND_MESSAGE.SET_NAME('CSD','CSD_API_PARTY_MISSING');
624: FND_MESSAGE.SET_TOKEN('INCIDENT_ID',px_CHARGES_REC.incident_id);
625: FND_MSG_PUB.ADD;
626: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
627: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
628: END IF;
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
623: FND_MESSAGE.SET_NAME('CSD','CSD_API_PARTY_MISSING');
624: FND_MESSAGE.SET_TOKEN('INCIDENT_ID',px_CHARGES_REC.incident_id);
625: FND_MSG_PUB.ADD;
626: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
627: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
628: END IF;
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
632: IF order_rec%ISOPEN THEN
633: CLOSE order_rec;
634: END IF;
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_party_id ='||l_party_id);
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_account_id ='||l_account_id);
639: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'px_CHARGES_REC.txn_billing_type_id ='||px_CHARGES_REC.txn_billing_type_id);
640: END IF;
633: CLOSE order_rec;
634: END IF;
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_party_id ='||l_party_id);
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_account_id ='||l_account_id);
639: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'px_CHARGES_REC.txn_billing_type_id ='||px_CHARGES_REC.txn_billing_type_id);
640: END IF;
641:
634: END IF;
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_party_id ='||l_party_id);
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_account_id ='||l_account_id);
639: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'px_CHARGES_REC.txn_billing_type_id ='||px_CHARGES_REC.txn_billing_type_id);
640: END IF;
641:
642: -- Derive the txn_billing type and line category code
635:
636: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
637: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_party_id ='||l_party_id);
638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_account_id ='||l_account_id);
639: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'px_CHARGES_REC.txn_billing_type_id ='||px_CHARGES_REC.txn_billing_type_id);
640: END IF;
641:
642: -- Derive the txn_billing type and line category code
643: -- from the transaction type
651: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
656: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_type_id ='||l_line_type_id);
657: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_category_code ='||l_line_category_code);
658: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'price_list_id ='||px_CHARGES_REC.price_list_id);
659: END IF;
652: RAISE FND_API.G_EXC_ERROR;
653: END IF;
654:
655: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
656: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_type_id ='||l_line_type_id);
657: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_category_code ='||l_line_category_code);
658: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'price_list_id ='||px_CHARGES_REC.price_list_id);
659: END IF;
660:
653: END IF;
654:
655: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
656: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_type_id ='||l_line_type_id);
657: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_category_code ='||l_line_category_code);
658: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'price_list_id ='||px_CHARGES_REC.price_list_id);
659: END IF;
660:
661: -- If line_type_id Or line_category_code is null, then raise error
654:
655: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
656: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_type_id ='||l_line_type_id);
657: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'line_category_code ='||l_line_category_code);
658: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'price_list_id ='||px_CHARGES_REC.price_list_id);
659: END IF;
660:
661: -- If line_type_id Or line_category_code is null, then raise error
662: IF l_line_type_id IS NULL OR
663: l_line_category_code IS NULL THEN
664: FND_MESSAGE.SET_NAME('CSD','CSD_API_LINE_TYPE_MISSING');
665: FND_MESSAGE.SET_TOKEN('TXN_BILLING_TYPE_ID',px_CHARGES_REC.txn_billing_type_id);
666: FND_MSG_PUB.ADD;
667: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
668: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
669: END IF;
670: RAISE FND_API.G_EXC_ERROR;
671: END IF;
664: FND_MESSAGE.SET_NAME('CSD','CSD_API_LINE_TYPE_MISSING');
665: FND_MESSAGE.SET_TOKEN('TXN_BILLING_TYPE_ID',px_CHARGES_REC.txn_billing_type_id);
666: FND_MSG_PUB.ADD;
667: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
668: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
669: END IF;
670: RAISE FND_API.G_EXC_ERROR;
671: END IF;
672:
681: WHEN NO_DATA_FOUND THEN
682: FND_MESSAGE.SET_NAME('CSD','CSD_API_INV_PRICE_LIST_ID');
683: FND_MESSAGE.SET_TOKEN('PRICE_LIST_ID',px_CHARGES_REC.price_list_id);
684: FND_MSG_PUB.ADD;
685: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
686: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
687: END IF;
688: RAISE FND_API.G_EXC_ERROR;
689: END;
682: FND_MESSAGE.SET_NAME('CSD','CSD_API_INV_PRICE_LIST_ID');
683: FND_MESSAGE.SET_TOKEN('PRICE_LIST_ID',px_CHARGES_REC.price_list_id);
684: FND_MSG_PUB.ADD;
685: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
686: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
687: END IF;
688: RAISE FND_API.G_EXC_ERROR;
689: END;
690: END IF;
688: RAISE FND_API.G_EXC_ERROR;
689: END;
690: END IF;
691:
692: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
693: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_curr_code ='||l_curr_code);
694: END IF;
695:
696: -- If l_curr_code is null then raise error
689: END;
690: END IF;
691:
692: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
693: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'l_curr_code ='||l_curr_code);
694: END IF;
695:
696: -- If l_curr_code is null then raise error
697: IF l_curr_code IS NULL THEN
697: IF l_curr_code IS NULL THEN
698: FND_MESSAGE.SET_NAME('CSD','CSD_API_INV_CURR_CODE');
699: FND_MESSAGE.SET_TOKEN('PRICE_LIST_ID',px_CHARGES_REC.price_list_id);
700: FND_MSG_PUB.ADD;
701: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
702: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
703: END IF;
704: RAISE FND_API.G_EXC_ERROR;
705: END IF;
698: FND_MESSAGE.SET_NAME('CSD','CSD_API_INV_CURR_CODE');
699: FND_MESSAGE.SET_TOKEN('PRICE_LIST_ID',px_CHARGES_REC.price_list_id);
700: FND_MSG_PUB.ADD;
701: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
702: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
703: END IF;
704: RAISE FND_API.G_EXC_ERROR;
705: END IF;
706:
713: -- travi new code
714: --px_CHARGES_REC.charge_line_type := ;
715: --px_CHARGES_REC.apply_contract_discount := ;
716:
717: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
718: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Assign Derived values for the charge rec');
719: END IF;
720:
721: -- always create estimate lines with interface to OE flag as 'N'
714: --px_CHARGES_REC.charge_line_type := ;
715: --px_CHARGES_REC.apply_contract_discount := ;
716:
717: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
718: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Assign Derived values for the charge rec');
719: END IF;
720:
721: -- always create estimate lines with interface to OE flag as 'N'
722: px_CHARGES_REC.interface_to_oe_flag := 'N' ;
736:
737: --ELSIF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('WIP') ) THEN
738: -- null;
739: --END IF;
740: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
741: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call process_estimate_lines to create charge lines');
742: END IF;
743:
744: -- For WIP we will have charge record as input but we create charge record for MANUAL
737: --ELSIF (px_CSD_ACTUAL_LINES_REC.actual_source_code in ('WIP') ) THEN
738: -- null;
739: --END IF;
740: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
741: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call process_estimate_lines to create charge lines');
742: END IF;
743:
744: -- For WIP we will have charge record as input but we create charge record for MANUAL
745: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines in create mode
758:
759: -- Raise FND_API.G_EXC_ERROR if it fails
760: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
763: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Creating Charge line failed for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
764: END IF;
765: END IF;
766:
759: -- Raise FND_API.G_EXC_ERROR if it fails
760: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
761: RAISE FND_API.G_EXC_ERROR;
762: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
763: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Creating Charge line failed for actual_source_code : '||px_CSD_ACTUAL_LINES_REC.actual_source_code);
764: END IF;
765: END IF;
766:
767: -- Assign estimate_detail_id to Actual lines record
765: END IF;
766:
767: -- Assign estimate_detail_id to Actual lines record
768: px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID := px_charges_rec.estimate_detail_id;
769: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
770: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Created estimate_detail_id : '||px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
771: END IF;
772:
773: --
766:
767: -- Assign estimate_detail_id to Actual lines record
768: px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID := px_charges_rec.estimate_detail_id;
769: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
770: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Created estimate_detail_id : '||px_CSD_ACTUAL_LINES_REC.ESTIMATE_DETAIL_ID);
771: END IF;
772:
773: --
774: -- API body
772:
773: --
774: -- API body
775: --
776: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
777: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
778: END IF;
779:
780: BEGIN
773: --
774: -- API body
775: --
776: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
777: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Insert_Row');
778: END IF;
779:
780: BEGIN
781: -- Call table handler CSD_REPAIR_ACTUALS_LINES_PKG.Insert_Row to
842:
843:
844: EXCEPTION
845: WHEN OTHERS THEN
846: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
847: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
848: END IF;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END;
843:
844: EXCEPTION
845: WHEN OTHERS THEN
846: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
847: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
848: END IF;
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END;
851:
871: p_data => x_msg_data );
872:
873: EXCEPTION
874: WHEN FND_API.G_EXC_ERROR THEN
875: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
876: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
872:
873: EXCEPTION
874: WHEN FND_API.G_EXC_ERROR THEN
875: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
876: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
877: END IF;
878: x_return_status := FND_API.G_RET_STS_ERROR ;
879: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
880: FND_MSG_PUB.Count_And_Get
880: FND_MSG_PUB.Count_And_Get
881: (p_count => x_msg_count,
882: p_data => x_msg_data );
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
885: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
881: (p_count => x_msg_count,
882: p_data => x_msg_data );
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
885: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
886: END IF;
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
888: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
889: FND_MSG_PUB.Count_And_Get
889: FND_MSG_PUB.Count_And_Get
890: ( p_count => x_msg_count,
891: p_data => x_msg_data );
892: WHEN OTHERS THEN
893: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
894: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
895: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
896: END IF;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
890: ( p_count => x_msg_count,
891: p_data => x_msg_data );
892: WHEN OTHERS THEN
893: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
894: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
895: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
896: END IF;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
898: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
891: p_data => x_msg_data );
892: WHEN OTHERS THEN
893: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
894: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
895: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
896: END IF;
897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
898: ROLLBACK TO CREATE_REPAIR_ACTUAL_LINES;
899: IF FND_MSG_PUB.Check_Msg_Level
946: X_Msg_Data OUT NOCOPY VARCHAR2
947: )
948:
949: IS
950: -- Variables used in FND Log
951: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
947: )
948:
949: IS
950: -- Variables used in FND Log
951: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
955: l_error_level number := FND_LOG.LEVEL_ERROR;
948:
949: IS
950: -- Variables used in FND Log
951: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
955: l_error_level number := FND_LOG.LEVEL_ERROR;
956: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
949: IS
950: -- Variables used in FND Log
951: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
955: l_error_level number := FND_LOG.LEVEL_ERROR;
956: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
957: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.update_repair_actual_lines';
950: -- Variables used in FND Log
951: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
955: l_error_level number := FND_LOG.LEVEL_ERROR;
956: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
957: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.update_repair_actual_lines';
958:
951: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
955: l_error_level number := FND_LOG.LEVEL_ERROR;
956: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
957: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.update_repair_actual_lines';
958:
959: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_REPAIR_ACTUAL_LINES';
952: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
953: l_event_level number := FND_LOG.LEVEL_EVENT;
954: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
955: l_error_level number := FND_LOG.LEVEL_ERROR;
956: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
957: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.update_repair_actual_lines';
958:
959: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_REPAIR_ACTUAL_LINES';
960: l_api_version CONSTANT NUMBER := 1.0;
1013: -- Initialize API return status to success
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1015:
1016: -- Api body starts
1017: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1018: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
1019: END IF;
1020:
1021: -- Dump the in parameters in the log file
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1015:
1016: -- Api body starts
1017: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1018: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of update_repair_actual_lines');
1019: END IF;
1020:
1021: -- Dump the in parameters in the log file
1022: -- if the debug level > 5
1025: -- csd_gen_utility_pvt.dump_actuals_rec
1026: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1027: -- end if;
1028:
1029: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1030: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
1031: END IF;
1032:
1033: -- Check the required parameter
1026: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1027: -- end if;
1028:
1029: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1030: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
1031: END IF;
1032:
1033: -- Check the required parameter
1034: CSD_PROCESS_UTIL.Check_Reqd_Param
1050: ( p_param_value => px_Charges_Rec.estimate_detail_id,
1051: p_param_name => 'ESTIMATE_DETAIL_ID',
1052: p_api_name => l_api_name);
1053:
1054: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1055: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1056: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1057: END IF;
1058:
1051: p_param_name => 'ESTIMATE_DETAIL_ID',
1052: p_api_name => l_api_name);
1053:
1054: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1055: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1056: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1057: END IF;
1058:
1059: -- Validate the repair line ID
1052: p_api_name => l_api_name);
1053:
1054: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1055: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1056: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1057: END IF;
1058:
1059: -- Validate the repair line ID
1060: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
1061: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064:
1065: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1066: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1067: END IF;
1068:
1069: -- Validate the repair actual line id against csd_repair_actual_lines
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064:
1065: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1066: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1067: END IF;
1068:
1069: -- Validate the repair actual line id against csd_repair_actual_lines
1070: -- If it is invalid then raise FND_API.G_EXC_ERROR
1077: IF repair_actual_lines%NOTFOUND THEN
1078: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUAL_LINE_MISSING');
1079: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1080: FND_MSG_PUB.ADD;
1081: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1082: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1083: END IF;
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1078: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUAL_LINE_MISSING');
1079: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1080: FND_MSG_PUB.ADD;
1081: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1082: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1083: END IF;
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1086:
1097: IF charge_lines%NOTFOUND THEN
1098: FND_MESSAGE.SET_NAME('CSD','CSD_API_CHARGE_LINE_MISSING');
1099: FND_MESSAGE.SET_TOKEN('ESTIMATE_DETAIL_ID',px_Charges_Rec.estimate_detail_id);
1100: FND_MSG_PUB.ADD;
1101: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1102: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1098: FND_MESSAGE.SET_NAME('CSD','CSD_API_CHARGE_LINE_MISSING');
1099: FND_MESSAGE.SET_TOKEN('ESTIMATE_DETAIL_ID',px_Charges_Rec.estimate_detail_id);
1100: FND_MSG_PUB.ADD;
1101: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1102: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1109: END IF;
1110:
1111: END IF;
1112:
1113: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1114: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number for Charge and Actual Line');
1115: END IF;
1116:
1117: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <> l_act_obj_ver_num THEN
1110:
1111: END IF;
1112:
1113: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1114: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number for Charge and Actual Line');
1115: END IF;
1116:
1117: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <> l_act_obj_ver_num THEN
1118: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1114: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number for Charge and Actual Line');
1115: END IF;
1116:
1117: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <> l_act_obj_ver_num THEN
1118: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1119: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Line Object Version Number does not match'
1120: || ' for the Repair Actual Line ID = ' || px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1121: END IF;
1122:
1115: END IF;
1116:
1117: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <> l_act_obj_ver_num THEN
1118: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1119: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Actual Line Object Version Number does not match'
1120: || ' for the Repair Actual Line ID = ' || px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1121: END IF;
1122:
1123: -- Modified the message name for bugfix 3281321. vkjain.
1124: -- FND_MESSAGE.SET_NAME('CSD','CSD_OBJ_VER_MISMATCH');
1125: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OBJ_VER_MISMATCH');
1126: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1127: FND_MSG_PUB.ADD;
1128: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1129: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1130: END IF;
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSE
1125: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OBJ_VER_MISMATCH');
1126: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',px_CSD_ACTUAL_LINES_REC.repair_actual_line_id);
1127: FND_MSG_PUB.ADD;
1128: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1129: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1130: END IF;
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSE
1133: -- Assigning object version number
1293:
1294: EXCEPTION
1295: -- The following exception was added as a fix for bug 3378602. vkjain
1296: WHEN FND_API.G_EXC_ERROR THEN
1297: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1298: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1299: END IF;
1300: RAISE FND_API.G_EXC_ERROR;
1301: WHEN OTHERS THEN
1294: EXCEPTION
1295: -- The following exception was added as a fix for bug 3378602. vkjain
1296: WHEN FND_API.G_EXC_ERROR THEN
1297: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1298: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1299: END IF;
1300: RAISE FND_API.G_EXC_ERROR;
1301: WHEN OTHERS THEN
1302: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1298: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1299: END IF;
1300: RAISE FND_API.G_EXC_ERROR;
1301: WHEN OTHERS THEN
1302: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1303: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1304: END IF;
1305: RAISE FND_API.G_EXC_ERROR;
1306: END;
1299: END IF;
1300: RAISE FND_API.G_EXC_ERROR;
1301: WHEN OTHERS THEN
1302: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1303: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1304: END IF;
1305: RAISE FND_API.G_EXC_ERROR;
1306: END;
1307:
1304: END IF;
1305: RAISE FND_API.G_EXC_ERROR;
1306: END;
1307:
1308: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1309: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Update_Row');
1310: END IF;
1311:
1312: BEGIN
1305: RAISE FND_API.G_EXC_ERROR;
1306: END;
1307:
1308: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1309: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Update_Row');
1310: END IF;
1311:
1312: BEGIN
1313: -- Invoke table handler(CSD_REPAIR_ACTUAL_LINES_PKG.Update_Row)
1372:
1373:
1374: EXCEPTION
1375: WHEN OTHERS THEN
1376: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1377: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Update_Row Cal:'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1378: END IF;
1379: RAISE FND_API.G_EXC_ERROR;
1380: END;
1373:
1374: EXCEPTION
1375: WHEN OTHERS THEN
1376: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1377: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Update_Row Cal:'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1378: END IF;
1379: RAISE FND_API.G_EXC_ERROR;
1380: END;
1381: --
1393: p_data => x_msg_data );
1394:
1395: EXCEPTION
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1398: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1399: END IF;
1400: x_return_status := FND_API.G_RET_STS_ERROR ;
1401: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1394:
1395: EXCEPTION
1396: WHEN FND_API.G_EXC_ERROR THEN
1397: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1398: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1399: END IF;
1400: x_return_status := FND_API.G_RET_STS_ERROR ;
1401: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1402: FND_MSG_PUB.Count_And_Get
1402: FND_MSG_PUB.Count_And_Get
1403: (p_count => x_msg_count,
1404: p_data => x_msg_data );
1405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1406: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1407: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1410: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1403: (p_count => x_msg_count,
1404: p_data => x_msg_data );
1405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1406: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1407: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1410: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1411: FND_MSG_PUB.Count_And_Get
1411: FND_MSG_PUB.Count_And_Get
1412: ( p_count => x_msg_count,
1413: p_data => x_msg_data );
1414: WHEN OTHERS THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1417: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1418: END IF;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1412: ( p_count => x_msg_count,
1413: p_data => x_msg_data );
1414: WHEN OTHERS THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1417: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1418: END IF;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1413: p_data => x_msg_data );
1414: WHEN OTHERS THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1417: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1418: END IF;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1421: IF FND_MSG_PUB.Check_Msg_Level
1468: X_Msg_Data OUT NOCOPY VARCHAR2
1469: )
1470:
1471: IS
1472: -- Variables used in FND Log
1473: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1469: )
1470:
1471: IS
1472: -- Variables used in FND Log
1473: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1477: l_error_level number := FND_LOG.LEVEL_ERROR;
1470:
1471: IS
1472: -- Variables used in FND Log
1473: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1477: l_error_level number := FND_LOG.LEVEL_ERROR;
1478: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1471: IS
1472: -- Variables used in FND Log
1473: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1477: l_error_level number := FND_LOG.LEVEL_ERROR;
1478: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1479: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1472: -- Variables used in FND Log
1473: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1477: l_error_level number := FND_LOG.LEVEL_ERROR;
1478: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1479: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1480:
1473: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1477: l_error_level number := FND_LOG.LEVEL_ERROR;
1478: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1479: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1480:
1481:
1474: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1475: l_event_level number := FND_LOG.LEVEL_EVENT;
1476: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1477: l_error_level number := FND_LOG.LEVEL_ERROR;
1478: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1479: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1480:
1481:
1482: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_REPAIR_ACTUAL_LINES';
1528: -- Initialize API return status to success
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1530:
1531: -- Api body starts
1532: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1533: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
1534: END IF;
1535:
1536: -- Dump the in parameters in the log file
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1530:
1531: -- Api body starts
1532: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1533: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
1534: END IF;
1535:
1536: -- Dump the in parameters in the log file
1537: -- if the debug level > 5
1542: ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1543: end if;
1544: */
1545:
1546: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1547: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parametes');
1548: END IF;
1549:
1550: -- Check the required parameter
1543: end if;
1544: */
1545:
1546: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1547: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parametes');
1548: END IF;
1549:
1550: -- Check the required parameter
1551: CSD_PROCESS_UTIL.Check_Reqd_Param
1552: ( p_param_value => px_CSD_ACTUAL_LINES_REC.repair_actual_line_id,
1553: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1554: p_api_name => l_api_name);
1555:
1556: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1557: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parametes');
1558: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1559: END IF;
1560:
1553: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1554: p_api_name => l_api_name);
1555:
1556: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1557: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parametes');
1558: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1559: END IF;
1560:
1561: -- Validate the repair line ID
1554: p_api_name => l_api_name);
1555:
1556: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1557: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parametes');
1558: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1559: END IF;
1560:
1561: -- Validate the repair line ID
1562: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
1563: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
1564: RAISE FND_API.G_EXC_ERROR;
1565: END IF;
1566:
1567: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1568: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1569: END IF;
1570:
1571: --
1564: RAISE FND_API.G_EXC_ERROR;
1565: END IF;
1566:
1567: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1568: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1569: END IF;
1570:
1571: --
1572: -- API body
1590: IF repair_actual_lines%NOTFOUND THEN
1591: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUAL_LINES_MISSING');
1592: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1593: FND_MSG_PUB.ADD;
1594: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1595: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1596: END IF;
1597: RAISE FND_API.G_EXC_ERROR;
1598: END IF;
1591: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUAL_LINES_MISSING');
1592: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1593: FND_MSG_PUB.ADD;
1594: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1595: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1596: END IF;
1597: RAISE FND_API.G_EXC_ERROR;
1598: END IF;
1599:
1602: END IF;
1603:
1604: END IF;
1605:
1606: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1607: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1608: END IF;
1609:
1610: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1603:
1604: END IF;
1605:
1606: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1607: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1608: END IF;
1609:
1610: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1611: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1607: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1608: END IF;
1609:
1610: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1611: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1612: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
1613: || ' for the Repair Actual Line ID = ' || l_actual_line_id);
1614: END IF;
1615:
1608: END IF;
1609:
1610: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1611: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1612: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
1613: || ' for the Repair Actual Line ID = ' || l_actual_line_id);
1614: END IF;
1615:
1616: -- Modified the message name for bugfix 3281321. vkjain.
1617: -- FND_MESSAGE.SET_NAME('CSD','CSD_OBJ_VER_MISMATCH');
1618: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OBJ_VER_MISMATCH');
1619: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1620: FND_MSG_PUB.ADD;
1621: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1622: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1623: END IF;
1624: RAISE FND_API.G_EXC_ERROR;
1625: END IF;
1618: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OBJ_VER_MISMATCH');
1619: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1620: FND_MSG_PUB.ADD;
1621: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1622: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1623: END IF;
1624: RAISE FND_API.G_EXC_ERROR;
1625: END IF;
1626:
1624: RAISE FND_API.G_EXC_ERROR;
1625: END IF;
1626:
1627: IF (px_Charges_Rec.order_header_id is not null) THEN
1628: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1629: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Actual Line is Interfaced to Order Management');
1630: END IF;
1631:
1632: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1625: END IF;
1626:
1627: IF (px_Charges_Rec.order_header_id is not null) THEN
1628: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1629: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Actual Line is Interfaced to Order Management');
1630: END IF;
1631:
1632: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1633: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1631:
1632: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1633: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1634: FND_MSG_PUB.ADD;
1635: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1636: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1637: END IF;
1638: RAISE FND_API.G_EXC_ERROR;
1639: END IF;
1632: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1633: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1634: FND_MSG_PUB.ADD;
1635: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1636: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1637: END IF;
1638: RAISE FND_API.G_EXC_ERROR;
1639: END IF;
1640:
1639: END IF;
1640:
1641: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines to
1642: -- delete the record in CS_ESTIMATE_DETAILS
1643: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1644: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call process_estimate_lines to delete charge line');
1645: END IF;
1646:
1647: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1640:
1641: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines to
1642: -- delete the record in CS_ESTIMATE_DETAILS
1643: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1644: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call process_estimate_lines to delete charge line');
1645: END IF;
1646:
1647: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1648: ( p_api_version => 1.0 ,
1660: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1665: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row');
1666: END IF;
1667:
1668: BEGIN
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1665: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row');
1666: END IF;
1667:
1668: BEGIN
1669:
1673: ,p_OBJECT_VERSION_NUMBER => px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
1674:
1675: EXCEPTION
1676: WHEN OTHERS THEN
1677: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1678: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1679: END IF;
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681: END;
1674:
1675: EXCEPTION
1676: WHEN OTHERS THEN
1677: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1678: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1679: END IF;
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681: END;
1682:
1699: (p_count => x_msg_count,
1700: p_data => x_msg_data );
1701: EXCEPTION
1702: WHEN FND_API.G_EXC_ERROR THEN
1703: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1704: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1705: END IF;
1706: x_return_status := FND_API.G_RET_STS_ERROR ;
1707: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1700: p_data => x_msg_data );
1701: EXCEPTION
1702: WHEN FND_API.G_EXC_ERROR THEN
1703: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1704: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1705: END IF;
1706: x_return_status := FND_API.G_RET_STS_ERROR ;
1707: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1708: FND_MSG_PUB.Count_And_Get
1708: FND_MSG_PUB.Count_And_Get
1709: (p_count => x_msg_count,
1710: p_data => x_msg_data );
1711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1712: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1713: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1709: (p_count => x_msg_count,
1710: p_data => x_msg_data );
1711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1712: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1713: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1717: FND_MSG_PUB.Count_And_Get
1717: FND_MSG_PUB.Count_And_Get
1718: ( p_count => x_msg_count,
1719: p_data => x_msg_data );
1720: WHEN OTHERS THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1723: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1724: END IF;
1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1718: ( p_count => x_msg_count,
1719: p_data => x_msg_data );
1720: WHEN OTHERS THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1723: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1724: END IF;
1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1726: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1719: p_data => x_msg_data );
1720: WHEN OTHERS THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1723: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1724: END IF;
1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1726: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1727: IF FND_MSG_PUB.Check_Msg_Level
1772: X_Msg_Data OUT NOCOPY VARCHAR2
1773: )
1774:
1775: IS
1776: -- Variables used in FND Log
1777: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1773: )
1774:
1775: IS
1776: -- Variables used in FND Log
1777: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1781: l_error_level number := FND_LOG.LEVEL_ERROR;
1774:
1775: IS
1776: -- Variables used in FND Log
1777: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1781: l_error_level number := FND_LOG.LEVEL_ERROR;
1782: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1775: IS
1776: -- Variables used in FND Log
1777: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1781: l_error_level number := FND_LOG.LEVEL_ERROR;
1782: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1783: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1776: -- Variables used in FND Log
1777: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1781: l_error_level number := FND_LOG.LEVEL_ERROR;
1782: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1783: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1784:
1777: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1781: l_error_level number := FND_LOG.LEVEL_ERROR;
1782: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1783: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1784:
1785: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_REPAIR_ACTUAL_LINES';
1778: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1779: l_event_level number := FND_LOG.LEVEL_EVENT;
1780: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1781: l_error_level number := FND_LOG.LEVEL_ERROR;
1782: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1783: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1784:
1785: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_REPAIR_ACTUAL_LINES';
1786: l_api_version CONSTANT NUMBER := 1.0;
1809: -- Initialize API return status to success
1810: x_return_status := FND_API.G_RET_STS_SUCCESS;
1811:
1812: -- Api body starts
1813: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1814: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
1815: END IF;
1816: -- Dump the in parameters in the log file
1817: -- if the debug level > 5
1810: x_return_status := FND_API.G_RET_STS_SUCCESS;
1811:
1812: -- Api body starts
1813: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1814: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
1815: END IF;
1816: -- Dump the in parameters in the log file
1817: -- if the debug level > 5
1818: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
1820: -- csd_gen_utility_pvt.dump_actuals_rec
1821: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1822: -- end if;
1823:
1824: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1825: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
1826: END IF;
1827:
1828: -- Check the required parameter
1821: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1822: -- end if;
1823:
1824: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1825: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
1826: END IF;
1827:
1828: -- Check the required parameter
1829: CSD_PROCESS_UTIL.Check_Reqd_Param
1830: ( p_param_value => px_CSD_ACTUAL_LINES_REC.repair_actual_id,
1831: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1832: p_api_name => l_api_name);
1833:
1834: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1835: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1836: END IF;
1837:
1838: --
1831: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1832: p_api_name => l_api_name);
1833:
1834: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1835: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1836: END IF;
1837:
1838: --
1839: -- API body
1837:
1838: --
1839: -- API body
1840: --
1841: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1842: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row');
1843: END IF;
1844:
1845: BEGIN
1838: --
1839: -- API body
1840: --
1841: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1842: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row');
1843: END IF;
1844:
1845: BEGIN
1846:
1850: ,p_OBJECT_VERSION_NUMBER => px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
1851:
1852: EXCEPTION
1853: WHEN OTHERS THEN
1854: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1855: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1856: END IF;
1857: x_return_status := FND_API.G_RET_STS_ERROR;
1858: END;
1851:
1852: EXCEPTION
1853: WHEN OTHERS THEN
1854: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1855: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception in CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1856: END IF;
1857: x_return_status := FND_API.G_RET_STS_ERROR;
1858: END;
1859:
1875: (p_count => x_msg_count,
1876: p_data => x_msg_data );
1877: EXCEPTION
1878: WHEN FND_API.G_EXC_ERROR THEN
1879: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1880: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1881: END IF;
1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1876: p_data => x_msg_data );
1877: EXCEPTION
1878: WHEN FND_API.G_EXC_ERROR THEN
1879: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1880: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_ERROR exception');
1881: END IF;
1882: x_return_status := FND_API.G_RET_STS_ERROR ;
1883: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1884: FND_MSG_PUB.Count_And_Get
1884: FND_MSG_PUB.Count_And_Get
1885: (p_count => x_msg_count,
1886: p_data => x_msg_data );
1887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1888: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1889: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1892: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1885: (p_count => x_msg_count,
1886: p_data => x_msg_data );
1887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1888: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1889: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1892: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1893: FND_MSG_PUB.Count_And_Get
1893: FND_MSG_PUB.Count_And_Get
1894: ( p_count => x_msg_count,
1895: p_data => x_msg_data );
1896: WHEN OTHERS THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1899: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1900: END IF;
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1894: ( p_count => x_msg_count,
1895: p_data => x_msg_data );
1896: WHEN OTHERS THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1899: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1900: END IF;
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1902: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1895: p_data => x_msg_data );
1896: WHEN OTHERS THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1899: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1900: END IF;
1901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1902: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1903: IF FND_MSG_PUB.Check_Msg_Level