[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
1302:
1303: EXCEPTION
1304: -- The following exception was added as a fix for bug 3378602. vkjain
1305: WHEN FND_API.G_EXC_ERROR THEN
1306: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1307: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1308: END IF;
1309: RAISE FND_API.G_EXC_ERROR;
1310: WHEN OTHERS THEN
1303: EXCEPTION
1304: -- The following exception was added as a fix for bug 3378602. vkjain
1305: WHEN FND_API.G_EXC_ERROR THEN
1306: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1307: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1308: END IF;
1309: RAISE FND_API.G_EXC_ERROR;
1310: WHEN OTHERS THEN
1311: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1307: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Charges API returned error while calling UPDATE.');
1308: END IF;
1309: RAISE FND_API.G_EXC_ERROR;
1310: WHEN OTHERS THEN
1311: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1312: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1313: END IF;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END;
1308: END IF;
1309: RAISE FND_API.G_EXC_ERROR;
1310: WHEN OTHERS THEN
1311: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1312: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Others exception error :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1313: END IF;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END;
1316:
1313: END IF;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END;
1316:
1317: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1318: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Update_Row');
1319: END IF;
1320:
1321: BEGIN
1314: RAISE FND_API.G_EXC_ERROR;
1315: END;
1316:
1317: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1318: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_REC_PKG.Update_Row');
1319: END IF;
1320:
1321: BEGIN
1322: -- Invoke table handler(CSD_REPAIR_ACTUAL_LINES_PKG.Update_Row)
1381:
1382:
1383: EXCEPTION
1384: WHEN OTHERS THEN
1385: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1386: 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));
1387: END IF;
1388: RAISE FND_API.G_EXC_ERROR;
1389: END;
1382:
1383: EXCEPTION
1384: WHEN OTHERS THEN
1385: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1386: 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));
1387: END IF;
1388: RAISE FND_API.G_EXC_ERROR;
1389: END;
1390: --
1402: p_data => x_msg_data );
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_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_ERROR exception');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_ERROR ;
1410: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1403:
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_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_ERROR exception');
1408: END IF;
1409: x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1417: END IF;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1419: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1412: (p_count => x_msg_count,
1413: p_data => x_msg_data );
1414: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1416: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1417: END IF;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1419: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1420: FND_MSG_PUB.Count_And_Get
1420: FND_MSG_PUB.Count_And_Get
1421: ( p_count => x_msg_count,
1422: p_data => x_msg_data );
1423: WHEN OTHERS THEN
1424: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1425: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1426: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1427: END IF;
1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1421: ( p_count => x_msg_count,
1422: p_data => x_msg_data );
1423: WHEN OTHERS THEN
1424: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1425: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1426: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1427: END IF;
1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1429: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1422: p_data => x_msg_data );
1423: WHEN OTHERS THEN
1424: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1425: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1426: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1427: END IF;
1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1429: ROLLBACK TO UPDATE_REPAIR_ACTUAL_LINES;
1430: IF FND_MSG_PUB.Check_Msg_Level
1477: X_Msg_Data OUT NOCOPY VARCHAR2
1478: )
1479:
1480: IS
1481: -- Variables used in FND Log
1482: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1478: )
1479:
1480: IS
1481: -- Variables used in FND Log
1482: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1486: l_error_level number := FND_LOG.LEVEL_ERROR;
1479:
1480: IS
1481: -- Variables used in FND Log
1482: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1486: l_error_level number := FND_LOG.LEVEL_ERROR;
1487: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1480: IS
1481: -- Variables used in FND Log
1482: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1486: l_error_level number := FND_LOG.LEVEL_ERROR;
1487: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1488: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1481: -- Variables used in FND Log
1482: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1486: l_error_level number := FND_LOG.LEVEL_ERROR;
1487: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1488: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1489:
1482: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1486: l_error_level number := FND_LOG.LEVEL_ERROR;
1487: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1488: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1489:
1490:
1483: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1484: l_event_level number := FND_LOG.LEVEL_EVENT;
1485: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1486: l_error_level number := FND_LOG.LEVEL_ERROR;
1487: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1488: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.delete_repair_actual_lines';
1489:
1490:
1491: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_REPAIR_ACTUAL_LINES';
1537: -- Initialize API return status to success
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1540: -- Api body starts
1541: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1542: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
1543: END IF;
1544:
1545: -- Dump the in parameters in the log file
1538: x_return_status := FND_API.G_RET_STS_SUCCESS;
1539:
1540: -- Api body starts
1541: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1542: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of delete_repair_actual_lines');
1543: END IF;
1544:
1545: -- Dump the in parameters in the log file
1546: -- if the debug level > 5
1551: ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1552: end if;
1553: */
1554:
1555: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1556: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parametes');
1557: END IF;
1558:
1559: -- Check the required parameter
1552: end if;
1553: */
1554:
1555: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1556: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parametes');
1557: END IF;
1558:
1559: -- Check the required parameter
1560: CSD_PROCESS_UTIL.Check_Reqd_Param
1561: ( p_param_value => px_CSD_ACTUAL_LINES_REC.repair_actual_line_id,
1562: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1563: p_api_name => l_api_name);
1564:
1565: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1566: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parametes');
1567: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1568: END IF;
1569:
1562: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1563: p_api_name => l_api_name);
1564:
1565: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1566: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parametes');
1567: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1568: END IF;
1569:
1570: -- Validate the repair line ID
1563: p_api_name => l_api_name);
1564:
1565: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1566: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parametes');
1567: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Validate Repair Line id');
1568: END IF;
1569:
1570: -- Validate the repair line ID
1571: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
1572: ( p_repair_line_id => px_CSD_ACTUAL_LINES_REC.repair_line_id )) THEN
1573: RAISE FND_API.G_EXC_ERROR;
1574: END IF;
1575:
1576: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1577: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1578: END IF;
1579:
1580: --
1573: RAISE FND_API.G_EXC_ERROR;
1574: END IF;
1575:
1576: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1577: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Validate Repair Line id');
1578: END IF;
1579:
1580: --
1581: -- API body
1599: IF repair_actual_lines%NOTFOUND THEN
1600: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUAL_LINES_MISSING');
1601: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1602: FND_MSG_PUB.ADD;
1603: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1604: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1605: END IF;
1606: RAISE FND_API.G_EXC_ERROR;
1607: END IF;
1600: FND_MESSAGE.SET_NAME('CSD','CSD_API_ACTUAL_LINES_MISSING');
1601: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1602: FND_MSG_PUB.ADD;
1603: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1604: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1605: END IF;
1606: RAISE FND_API.G_EXC_ERROR;
1607: END IF;
1608:
1611: END IF;
1612:
1613: END IF;
1614:
1615: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1616: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1617: END IF;
1618:
1619: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1612:
1613: END IF;
1614:
1615: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1616: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1617: END IF;
1618:
1619: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1620: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1616: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Validate Object Version Number');
1617: END IF;
1618:
1619: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1620: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1621: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
1622: || ' for the Repair Actual Line ID = ' || l_actual_line_id);
1623: END IF;
1624:
1617: END IF;
1618:
1619: IF NVL(px_CSD_ACTUAL_LINES_REC.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
1620: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1621: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Object Version Number does not match'
1622: || ' for the Repair Actual Line ID = ' || l_actual_line_id);
1623: END IF;
1624:
1625: -- Modified the message name for bugfix 3281321. vkjain.
1626: -- FND_MESSAGE.SET_NAME('CSD','CSD_OBJ_VER_MISMATCH');
1627: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OBJ_VER_MISMATCH');
1628: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1629: FND_MSG_PUB.ADD;
1630: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1631: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1632: END IF;
1633: RAISE FND_API.G_EXC_ERROR;
1634: END IF;
1627: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OBJ_VER_MISMATCH');
1628: -- FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1629: FND_MSG_PUB.ADD;
1630: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1631: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1632: END IF;
1633: RAISE FND_API.G_EXC_ERROR;
1634: END IF;
1635:
1633: RAISE FND_API.G_EXC_ERROR;
1634: END IF;
1635:
1636: IF (px_Charges_Rec.order_header_id is not null) THEN
1637: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Actual Line is Interfaced to Order Management');
1639: END IF;
1640:
1641: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1634: END IF;
1635:
1636: IF (px_Charges_Rec.order_header_id is not null) THEN
1637: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1638: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Repair Actual Line is Interfaced to Order Management');
1639: END IF;
1640:
1641: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1642: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1640:
1641: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1642: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1643: FND_MSG_PUB.ADD;
1644: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1645: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1646: END IF;
1647: RAISE FND_API.G_EXC_ERROR;
1648: END IF;
1641: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_LIN_OM_IFACE');
1642: FND_MESSAGE.SET_TOKEN('REPAIR_ACTUAL_LINE_ID',l_actual_line_id);
1643: FND_MSG_PUB.ADD;
1644: IF (Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level) THEN
1645: FND_LOG.MESSAGE(Fnd_Log.Level_Error,l_mod_name, FALSE);
1646: END IF;
1647: RAISE FND_API.G_EXC_ERROR;
1648: END IF;
1649:
1648: END IF;
1649:
1650: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines to
1651: -- delete the record in CS_ESTIMATE_DETAILS
1652: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1653: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call process_estimate_lines to delete charge line');
1654: END IF;
1655:
1656: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1649:
1650: -- Call table handler CSD_REPAIR_ESTIMATE_PVT.Process_Estimate_Lines to
1651: -- delete the record in CS_ESTIMATE_DETAILS
1652: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1653: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call process_estimate_lines to delete charge line');
1654: END IF;
1655:
1656: CSD_REPAIR_ESTIMATE_PVT.PROCESS_ESTIMATE_LINES
1657: ( p_api_version => 1.0 ,
1669: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1670: RAISE FND_API.G_EXC_ERROR;
1671: END IF;
1672:
1673: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1674: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row');
1675: END IF;
1676:
1677: BEGIN
1670: RAISE FND_API.G_EXC_ERROR;
1671: END IF;
1672:
1673: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1674: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Delete_Row');
1675: END IF;
1676:
1677: BEGIN
1678:
1682: ,p_OBJECT_VERSION_NUMBER => px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
1683:
1684: EXCEPTION
1685: WHEN OTHERS THEN
1686: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1687: 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));
1688: END IF;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690: END;
1683:
1684: EXCEPTION
1685: WHEN OTHERS THEN
1686: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1687: 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));
1688: END IF;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690: END;
1691:
1708: (p_count => x_msg_count,
1709: p_data => x_msg_data );
1710: EXCEPTION
1711: WHEN FND_API.G_EXC_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_ERROR exception');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_ERROR ;
1716: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1709: p_data => x_msg_data );
1710: EXCEPTION
1711: WHEN FND_API.G_EXC_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_ERROR exception');
1714: END IF;
1715: x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1723: END IF;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1725: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1718: (p_count => x_msg_count,
1719: p_data => x_msg_data );
1720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1721: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1722: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1723: END IF;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1725: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1726: FND_MSG_PUB.Count_And_Get
1726: FND_MSG_PUB.Count_And_Get
1727: ( p_count => x_msg_count,
1728: p_data => x_msg_data );
1729: WHEN OTHERS THEN
1730: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1731: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1732: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1733: END IF;
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1727: ( p_count => x_msg_count,
1728: p_data => x_msg_data );
1729: WHEN OTHERS THEN
1730: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1731: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1732: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1733: END IF;
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1735: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1728: p_data => x_msg_data );
1729: WHEN OTHERS THEN
1730: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1731: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1732: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1733: END IF;
1734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1735: ROLLBACK TO DELETE_REPAIR_ACTUAL_LINES;
1736: IF FND_MSG_PUB.Check_Msg_Level
1781: X_Msg_Data OUT NOCOPY VARCHAR2
1782: )
1783:
1784: IS
1785: -- Variables used in FND Log
1786: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1782: )
1783:
1784: IS
1785: -- Variables used in FND Log
1786: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1790: l_error_level number := FND_LOG.LEVEL_ERROR;
1783:
1784: IS
1785: -- Variables used in FND Log
1786: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1790: l_error_level number := FND_LOG.LEVEL_ERROR;
1791: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1784: IS
1785: -- Variables used in FND Log
1786: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1790: l_error_level number := FND_LOG.LEVEL_ERROR;
1791: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1792: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1785: -- Variables used in FND Log
1786: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1790: l_error_level number := FND_LOG.LEVEL_ERROR;
1791: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1792: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1793:
1786: l_stat_level number := FND_LOG.LEVEL_STATEMENT;
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1790: l_error_level number := FND_LOG.LEVEL_ERROR;
1791: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1792: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1793:
1794: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_REPAIR_ACTUAL_LINES';
1787: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
1788: l_event_level number := FND_LOG.LEVEL_EVENT;
1789: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
1790: l_error_level number := FND_LOG.LEVEL_ERROR;
1791: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
1792: l_mod_name varchar2(2000) := 'csd.plsql.csd_repair_actual_lines_pvt.lock_repair_actual_lines';
1793:
1794: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_REPAIR_ACTUAL_LINES';
1795: l_api_version CONSTANT NUMBER := 1.0;
1818: -- Initialize API return status to success
1819: x_return_status := FND_API.G_RET_STS_SUCCESS;
1820:
1821: -- Api body starts
1822: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1823: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
1824: END IF;
1825: -- Dump the in parameters in the log file
1826: -- if the debug level > 5
1819: x_return_status := FND_API.G_RET_STS_SUCCESS;
1820:
1821: -- Api body starts
1822: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1823: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'At the Beginning of lock_repair_actual_lines');
1824: END IF;
1825: -- Dump the in parameters in the log file
1826: -- if the debug level > 5
1827: -- If fnd_profile.value('CSD_DEBUG_LEVEL') > 5 then
1829: -- csd_gen_utility_pvt.dump_actuals_rec
1830: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1831: -- end if;
1832:
1833: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1834: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
1835: END IF;
1836:
1837: -- Check the required parameter
1830: -- ( p_CSD_ACTUAL_LINES_REC => px_CSD_ACTUAL_LINES_REC);
1831: -- end if;
1832:
1833: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1834: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'Begin Check reqd parameter');
1835: END IF;
1836:
1837: -- Check the required parameter
1838: CSD_PROCESS_UTIL.Check_Reqd_Param
1839: ( p_param_value => px_CSD_ACTUAL_LINES_REC.repair_actual_id,
1840: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1841: p_api_name => l_api_name);
1842:
1843: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1844: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1845: END IF;
1846:
1847: --
1840: p_param_name => 'REPAIR_ACTUAL_LINE_ID',
1841: p_api_name => l_api_name);
1842:
1843: IF ( Fnd_Log.Level_Statement >= G_debug_level) THEN
1844: FND_LOG.STRING(Fnd_Log.Level_Statement,l_mod_name,'End Check reqd parameter');
1845: END IF;
1846:
1847: --
1848: -- API body
1846:
1847: --
1848: -- API body
1849: --
1850: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1851: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row');
1852: END IF;
1853:
1854: BEGIN
1847: --
1848: -- API body
1849: --
1850: IF ( Fnd_Log.Level_Procedure >= G_debug_level) THEN
1851: FND_LOG.STRING(Fnd_Log.Level_Procedure,l_mod_name,'Call to CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row');
1852: END IF;
1853:
1854: BEGIN
1855:
1859: ,p_OBJECT_VERSION_NUMBER => px_CSD_ACTUAL_LINES_REC.OBJECT_VERSION_NUMBER);
1860:
1861: EXCEPTION
1862: WHEN OTHERS THEN
1863: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1864: 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));
1865: END IF;
1866: x_return_status := FND_API.G_RET_STS_ERROR;
1867: END;
1860:
1861: EXCEPTION
1862: WHEN OTHERS THEN
1863: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1864: 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));
1865: END IF;
1866: x_return_status := FND_API.G_RET_STS_ERROR;
1867: END;
1868:
1884: (p_count => x_msg_count,
1885: p_data => x_msg_data );
1886: EXCEPTION
1887: WHEN FND_API.G_EXC_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_ERROR exception');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_ERROR ;
1892: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1885: p_data => x_msg_data );
1886: EXCEPTION
1887: WHEN FND_API.G_EXC_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_ERROR exception');
1890: END IF;
1891: x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1899: END IF;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1901: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1894: (p_count => x_msg_count,
1895: p_data => x_msg_data );
1896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1897: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1898: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In FND_API.G_EXC_UNEXPECTED_ERROR exception ');
1899: END IF;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1901: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1902: FND_MSG_PUB.Count_And_Get
1902: FND_MSG_PUB.Count_And_Get
1903: ( p_count => x_msg_count,
1904: p_data => x_msg_data );
1905: WHEN OTHERS THEN
1906: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1907: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1908: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1909: END IF;
1910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1903: ( p_count => x_msg_count,
1904: p_data => x_msg_data );
1905: WHEN OTHERS THEN
1906: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1907: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1908: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1909: END IF;
1910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1911: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1904: p_data => x_msg_data );
1905: WHEN OTHERS THEN
1906: IF ( Fnd_Log.Level_Exception >= G_debug_level) THEN
1907: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'In OTHERS exception');
1908: FND_LOG.STRING(Fnd_Log.Level_Exception,l_mod_name,'Sql Err Msg :'||SQLERRM );
1909: END IF;
1910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1911: ROLLBACK TO LOCK_REPAIR_ACTUAL_LINES;
1912: IF FND_MSG_PUB.Check_Msg_Level