92:
93:
94:
95: LOG_MESSAGE('p_api_version :'|| 1.0);
96: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
97: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
98: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
99: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
100: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
93:
94:
95: LOG_MESSAGE('p_api_version :'|| 1.0);
96: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
97: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
98: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
99: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
100: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
101: LOG_MESSAGE('P_dest_organization_id :'|| Lv_destination_org_id);
110: end loop;
111:
112: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
113: (p_api_version => 1.0
114: ,p_Init_Msg_List => FND_API.G_FALSE
115: ,p_commit => FND_API.G_FALSE
116: ,P_repair_supplier_id => Lv_repair_supplier_id
117: ,P_repair_supplier_org_id => Lv_repair_org_id
118: ,P_repair_program => Lv_repair_program
111:
112: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
113: (p_api_version => 1.0
114: ,p_Init_Msg_List => FND_API.G_FALSE
115: ,p_commit => FND_API.G_FALSE
116: ,P_repair_supplier_id => Lv_repair_supplier_id
117: ,P_repair_supplier_org_id => Lv_repair_org_id
118: ,P_repair_program => Lv_repair_program
119: ,P_dest_organization_id => Lv_destination_org_id
142: log_message('message data ='||X_Msg_Data);
143: END LOOP;
144: END IF ;
145:
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
143: END LOOP;
144: END IF ;
145:
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
145:
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
146: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
147: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_UNEXP_ERROR');
148: rollback ;
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
155: log_message('Successful in Creating Repair Req .');
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
155: log_message('Successful in Creating Repair Req .');
156: log_output('Successful in Creating Repair Req .');
157: select requisition_number into lv_req_number from csp_repair_po_headers
150: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
151: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
152: rollback ;
153: RAISE FND_API.G_EXC_ERROR;
154: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
155: log_message('Successful in Creating Repair Req .');
156: log_output('Successful in Creating Repair Req .');
157: select requisition_number into lv_req_number from csp_repair_po_headers
158: where REQUISITION_HEADER_ID=X_requisition_header_id;
179:
180:
181: END IF ;
182: EXCEPTION
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
185: LOG_MESSAGE(SQLERRM);
186: retcode := 1;
187: rollback ;
180:
181: END IF ;
182: EXCEPTION
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
185: LOG_MESSAGE(SQLERRM);
186: retcode := 1;
187: rollback ;
188: log_message('Transaction rolled back');
187: rollback ;
188: log_message('Transaction rolled back');
189: log_message('----------------------------------------------------------');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
193: LOG_MESSAGE(SQLERRM);
194: retcode := 1;
195: rollback ;
188: log_message('Transaction rolled back');
189: log_message('----------------------------------------------------------');
190:
191: WHEN FND_API.G_EXC_ERROR THEN
192: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
193: LOG_MESSAGE(SQLERRM);
194: retcode := 1;
195: rollback ;
196: log_message('Transaction rolled back');
233:
234: --fnd_global.apps_initialize(l_user_id, l_level_value, l_appl_id);
235:
236: LOG_MESSAGE('p_api_version :'|| 1.0);
237: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
238: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
239: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
240: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
241: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
234: --fnd_global.apps_initialize(l_user_id, l_level_value, l_appl_id);
235:
236: LOG_MESSAGE('p_api_version :'|| 1.0);
237: LOG_MESSAGE('p_Init_Msg_List :'|| 'FND_API.G_FALSE');
238: LOG_MESSAGE('p_commit :'|| 'FND_API.G_FALSE');
239: LOG_MESSAGE('P_repair_supplier_id :'|| Lv_repair_supplier_id);
240: LOG_MESSAGE('P_repair_supplier_org_id :'|| Lv_repair_org_id);
241: LOG_MESSAGE('P_repair_program :'|| Lv_repair_program);
242: LOG_MESSAGE('P_dest_organization_id :'|| Lv_destination_org_id);
252: end loop;
253:
254: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
255: (p_api_version => 1.0
256: ,p_Init_Msg_List => FND_API.G_FALSE
257: ,p_commit => FND_API.G_FALSE
258: ,P_repair_supplier_id => Lv_repair_supplier_id
259: ,P_repair_supplier_org_id => Lv_repair_org_id
260: ,P_repair_program => Lv_repair_program
253:
254: CSP_REPAIR_PO_GRP.CREATE_REPAIR_PO
255: (p_api_version => 1.0
256: ,p_Init_Msg_List => FND_API.G_FALSE
257: ,p_commit => FND_API.G_FALSE
258: ,P_repair_supplier_id => Lv_repair_supplier_id
259: ,P_repair_supplier_org_id => Lv_repair_org_id
260: ,P_repair_program => Lv_repair_program
261: ,P_dest_organization_id => Lv_destination_org_id
284: log_message('message data ='||X_Msg_Data);
285: END LOOP;
286: END IF ;
287:
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
285: END LOOP;
286: END IF ;
287:
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
287:
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
288: IF X_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
289: LOG_MESSAGE('Error in Repair req creation : FND_API.G_RET_STS_UNEXP_ERROR');
290: rollback ;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
297: log_message('Successful in Creating Repair Req .');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
297: log_message('Successful in Creating Repair Req .');
298: log_output('Successful in Creating Repair Req .');
299: select requisition_number into lv_req_number from csp_repair_po_headers
292: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
293: LOG_MESSAGE('Error in Repair Req creation : FND_API.G_RET_STS_ERROR');
294: rollback ;
295: RAISE FND_API.G_EXC_ERROR;
296: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
297: log_message('Successful in Creating Repair Req .');
298: log_output('Successful in Creating Repair Req .');
299: select requisition_number into lv_req_number from csp_repair_po_headers
300: where REQUISITION_HEADER_ID=X_requisition_header_id;
301: log_output('External Repair Requisition number :' ||lv_req_number);
302: Commit ;
303: END IF;
304: EXCEPTION
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
307: LOG_MESSAGE(SQLERRM);
308: retcode := 1;
309: rollback ;
302: Commit ;
303: END IF;
304: EXCEPTION
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_UNEXPECTED_ERROR');
307: LOG_MESSAGE(SQLERRM);
308: retcode := 1;
309: rollback ;
310: log_message('Transaction rolled back');
309: rollback ;
310: log_message('Transaction rolled back');
311: log_message('----------------------------------------------------------');
312:
313: WHEN FND_API.G_EXC_ERROR THEN
314: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
315: LOG_MESSAGE(SQLERRM);
316: retcode := 1;
317: rollback ;
310: log_message('Transaction rolled back');
311: log_message('----------------------------------------------------------');
312:
313: WHEN FND_API.G_EXC_ERROR THEN
314: LOG_MESSAGE('Error in Release_new_ERO : FND_API.G_EXC_ERROR');
315: LOG_MESSAGE(SQLERRM);
316: retcode := 1;
317: rollback ;
318: log_message('Transaction rolled back');
340: select * from csd_repairs
341: where repair_line_id = p_repair_line_id ;
342:
343: l_repair_rec CSD_REPAIRS%rowtype;
344: l_Init_Msg_List VARCHAR2(1000):= FND_API.G_FALSE;
345: l_Commit VARCHAR2(1000):= FND_API.G_FALSE;
346: l_validation_level NUMBER:=FND_API.G_VALID_LEVEL_FULL;
347: Q_REPLN_Rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
348: X_Return_Status VARCHAR2(1000);
341: where repair_line_id = p_repair_line_id ;
342:
343: l_repair_rec CSD_REPAIRS%rowtype;
344: l_Init_Msg_List VARCHAR2(1000):= FND_API.G_FALSE;
345: l_Commit VARCHAR2(1000):= FND_API.G_FALSE;
346: l_validation_level NUMBER:=FND_API.G_VALID_LEVEL_FULL;
347: Q_REPLN_Rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
348: X_Return_Status VARCHAR2(1000);
349: p_Msg_Count NUMBER;
342:
343: l_repair_rec CSD_REPAIRS%rowtype;
344: l_Init_Msg_List VARCHAR2(1000):= FND_API.G_FALSE;
345: l_Commit VARCHAR2(1000):= FND_API.G_FALSE;
346: l_validation_level NUMBER:=FND_API.G_VALID_LEVEL_FULL;
347: Q_REPLN_Rec CSD_REPAIRS_PUB.REPLN_Rec_Type;
348: X_Return_Status VARCHAR2(1000);
349: p_Msg_Count NUMBER;
350: X_Msg_Data VARCHAR2(5000);
447: Fnd_file.put_line(fnd_file.LOG,l_msg);
448: END LOOP;
449: END IF;
450: END IF;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
448: END LOOP;
449: END IF;
450: END IF;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
450: END IF;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
451: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
452: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_UNEXP_ERROR');
453: rollback ;
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
460: log_message('Successful in Updating repair order .');
454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
460: log_message('Successful in Updating repair order .');
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
455: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
456: LOG_MESSAGE('Error in updating reapir order : FND_API.G_RET_STS_ERROR');
457: rollback ;
458: RAISE FND_API.G_EXC_ERROR;
459: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
460: log_message('Successful in Updating repair order .');
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
463: EXCEPTION
460: log_message('Successful in Updating repair order .');
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
463: EXCEPTION
464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
465: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_UNEXPECTED_ERROR');
466: LOG_MESSAGE(SQLERRM);
467: retcode := 1;
468: rollback ;
461: log_message('repair number :' ||l_repair_rec.repair_number);
462: END IF;
463: EXCEPTION
464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
465: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_UNEXPECTED_ERROR');
466: LOG_MESSAGE(SQLERRM);
467: retcode := 1;
468: rollback ;
469: log_message('Transaction rolled back');
468: rollback ;
469: log_message('Transaction rolled back');
470: log_message('----------------------------------------------------------');
471:
472: WHEN FND_API.G_EXC_ERROR THEN
473: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_ERROR');
474: LOG_MESSAGE(SQLERRM);
475: retcode := 1;
476: rollback ;
469: log_message('Transaction rolled back');
470: log_message('----------------------------------------------------------');
471:
472: WHEN FND_API.G_EXC_ERROR THEN
473: LOG_MESSAGE('Error in updating reapir order : FND_API.G_EXC_ERROR');
474: LOG_MESSAGE(SQLERRM);
475: retcode := 1;
476: rollback ;
477: log_message('Transaction rolled back');
741: p_service_request_rec.customer_id := l_party_id ; -- bug # 8299478
742: p_service_request_rec.customer_number := NULL;
743: p_service_request_rec.employee_id := NULL;
744: p_service_request_rec.employee_number := '';
745: p_service_request_rec.verify_cp_flag := FND_API.G_MISS_CHAR;
746: p_service_request_rec.customer_product_id := NULL;
747: p_service_request_rec.platform_id := NULL;
748: p_service_request_rec.platform_version_id := NULL;
749: p_service_request_rec.cp_component_id := NULL;
888: /* Call to CSD API to cretate Incident Id for repair Order */
889: BEGIN
890: cs_servicerequest_pub.create_servicerequest
891: (p_api_version => 3.0,
892: p_init_msg_list => FND_API.G_TRUE,
893: p_commit => FND_API.G_TRUE,
894: x_return_status => x_return_status,
895: x_msg_count => x_msg_count,
896: x_msg_data => x_msg_data,
889: BEGIN
890: cs_servicerequest_pub.create_servicerequest
891: (p_api_version => 3.0,
892: p_init_msg_list => FND_API.G_TRUE,
893: p_commit => FND_API.G_TRUE,
894: x_return_status => x_return_status,
895: x_msg_count => x_msg_count,
896: x_msg_data => x_msg_data,
897: p_resp_appl_id => NULL,
1042:
1043: LOG_MESSAGE('Calling API CSD_Repairs_PUB.Create_Repair_Order');
1044:
1045: CSD_Repairs_PUB.Create_Repair_Order(P_Api_Version_Number => 1.0,
1046: P_Init_Msg_List => FND_API.G_FALSE,
1047: P_Commit => FND_API.G_FALSE,
1048: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1049: P_REPAIR_LINE_ID => P_REPAIR_LINE_ID,
1050: P_REPLN_Rec => Q_REPLN_Rec,
1043: LOG_MESSAGE('Calling API CSD_Repairs_PUB.Create_Repair_Order');
1044:
1045: CSD_Repairs_PUB.Create_Repair_Order(P_Api_Version_Number => 1.0,
1046: P_Init_Msg_List => FND_API.G_FALSE,
1047: P_Commit => FND_API.G_FALSE,
1048: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1049: P_REPAIR_LINE_ID => P_REPAIR_LINE_ID,
1050: P_REPLN_Rec => Q_REPLN_Rec,
1051: p_create_default_logistics => p_create_default_logistics,
1044:
1045: CSD_Repairs_PUB.Create_Repair_Order(P_Api_Version_Number => 1.0,
1046: P_Init_Msg_List => FND_API.G_FALSE,
1047: P_Commit => FND_API.G_FALSE,
1048: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1049: P_REPAIR_LINE_ID => P_REPAIR_LINE_ID,
1050: P_REPLN_Rec => Q_REPLN_Rec,
1051: p_create_default_logistics => p_create_default_logistics,
1052: X_REPAIR_LINE_ID => X_REPAIR_LINE_ID,
1138:
1139: LOG_MESSAGE('Calling API WIP_MASSLOAD_PUB.createOneJob');
1140:
1141: WIP_MASSLOAD_PUB.createOneJob( p_interfaceID => l_group_id,
1142: p_validationLevel => FND_API.G_VALID_LEVEL_FULL,
1143: x_wipEntityID => x_wipEntityID,
1144: x_returnStatus => x_return_status,
1145: x_errorMsg => x_msg_data );
1146:
1148: LOG_MESSAGE('x_wipEntityID :'||x_wipEntityID);
1149:
1150: log_output('Wip Job:'||l_wip_job_name);
1151:
1152: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1153: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1154: -- /* rollback ; */ commit;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1149:
1150: log_output('Wip Job:'||l_wip_job_name);
1151:
1152: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1153: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1154: -- /* rollback ; */ commit;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1157: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1151:
1152: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1153: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1154: -- /* rollback ; */ commit;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1157: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1158: rollback ;
1159: RAISE FND_API.G_EXC_ERROR;
1152: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1153: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1154: -- /* rollback ; */ commit;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1157: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1158: rollback ;
1159: RAISE FND_API.G_EXC_ERROR;
1160: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1153: LOG_MESSAGE('Error Rep-work order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1154: -- /* rollback ; */ commit;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1157: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1158: rollback ;
1159: RAISE FND_API.G_EXC_ERROR;
1160: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1161: LOG_MESSAGE('Successful in Creating Rep-work .');
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1157: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1158: rollback ;
1159: RAISE FND_API.G_EXC_ERROR;
1160: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1161: LOG_MESSAGE('Successful in Creating Rep-work .');
1162: LOG_MESSAGE('wip etity id :' ||x_wipEntityID);
1163: -- commit ;
1156: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1157: LOG_MESSAGE('Error in Rep-work order creation : FND_API.G_RET_STS_ERROR');
1158: rollback ;
1159: RAISE FND_API.G_EXC_ERROR;
1160: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1161: LOG_MESSAGE('Successful in Creating Rep-work .');
1162: LOG_MESSAGE('wip etity id :' ||x_wipEntityID);
1163: -- commit ;
1164: LOG_MESSAGE('-------------------------------------------------------------------');
1166:
1167: BEGIN -- Code to call API to link WIp job To REpair ORder
1168: csd_to_form_repair_job_xref.validate_and_write(
1169: p_api_version_number => 1.0,
1170: p_init_msg_list => FND_API.G_FALSE,
1171: p_commit => FND_API.G_FALSE,
1172: p_validation_level => NULL,
1173: p_action_code => 0,
1174: px_repair_job_xref_id => px_REPAIR_JOB_XREF_ID,
1167: BEGIN -- Code to call API to link WIp job To REpair ORder
1168: csd_to_form_repair_job_xref.validate_and_write(
1169: p_api_version_number => 1.0,
1170: p_init_msg_list => FND_API.G_FALSE,
1171: p_commit => FND_API.G_FALSE,
1172: p_validation_level => NULL,
1173: p_action_code => 0,
1174: px_repair_job_xref_id => px_REPAIR_JOB_XREF_ID,
1175: p_created_by => l_user_id,
1209: x_return_status => l_return_status,
1210: x_msg_count => X_Msg_Count,
1211: x_msg_data => X_Msg_Data);
1212:
1213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1214: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1215: rollback ;
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1210: x_msg_count => X_Msg_Count,
1211: x_msg_data => X_Msg_Data);
1212:
1213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1214: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1215: rollback ;
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1212:
1213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1214: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1215: rollback ;
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1219: rollback ;
1220: RAISE FND_API.G_EXC_ERROR;
1213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1214: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1215: rollback ;
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1219: rollback ;
1220: RAISE FND_API.G_EXC_ERROR;
1221: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1214: LOG_MESSAGE('Error Rep-work order updation : FND_API.G_RET_STS_UNEXP_ERROR');
1215: rollback ;
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1219: rollback ;
1220: RAISE FND_API.G_EXC_ERROR;
1221: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1222: LOG_MESSAGE('Successful in updating Rep-work .');
1216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1219: rollback ;
1220: RAISE FND_API.G_EXC_ERROR;
1221: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1222: LOG_MESSAGE('Successful in updating Rep-work .');
1223: LOG_MESSAGE('px_REPAIR_JOB_XREF_ID :' ||px_REPAIR_JOB_XREF_ID);
1224: commit ;
1217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1218: LOG_MESSAGE('Error in Rep-work order updation : FND_API.G_RET_STS_ERROR');
1219: rollback ;
1220: RAISE FND_API.G_EXC_ERROR;
1221: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1222: LOG_MESSAGE('Successful in updating Rep-work .');
1223: LOG_MESSAGE('px_REPAIR_JOB_XREF_ID :' ||px_REPAIR_JOB_XREF_ID);
1224: commit ;
1225: END IF;
1224: commit ;
1225: END IF;
1226: LOG_MESSAGE('Ending....');
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1229: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1230: LOG_MESSAGE(SQLERRM);
1231: -- retcode := 1;
1232: -- rollback ;
1225: END IF;
1226: LOG_MESSAGE('Ending....');
1227: EXCEPTION
1228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1229: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1230: LOG_MESSAGE(SQLERRM);
1231: -- retcode := 1;
1232: -- rollback ;
1233: LOG_MESSAGE('Transaction rolled back');
1232: -- rollback ;
1233: LOG_MESSAGE('Transaction rolled back');
1234: LOG_MESSAGE('----------------------------------------------------------');
1235:
1236: WHEN FND_API.G_EXC_ERROR THEN
1237: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1238: LOG_MESSAGE(SQLERRM);
1239: -- retcode := 1;
1240: -- rollback ;
1233: LOG_MESSAGE('Transaction rolled back');
1234: LOG_MESSAGE('----------------------------------------------------------');
1235:
1236: WHEN FND_API.G_EXC_ERROR THEN
1237: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1238: LOG_MESSAGE(SQLERRM);
1239: -- retcode := 1;
1240: -- rollback ;
1241: LOG_MESSAGE('Transaction rolled back');
1252: END IF;
1253: LOG_MESSAGE('x_return_status :'||x_return_status);
1254: LOG_MESSAGE('Ending....');
1255: EXCEPTION
1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1258: LOG_MESSAGE(SQLERRM);
1259: -- retcode := 1;
1260: -- rollback ;
1253: LOG_MESSAGE('x_return_status :'||x_return_status);
1254: LOG_MESSAGE('Ending....');
1255: EXCEPTION
1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: LOG_MESSAGE('Error : FND_API.G_EXC_UNEXPECTED_ERROR');
1258: LOG_MESSAGE(SQLERRM);
1259: -- retcode := 1;
1260: -- rollback ;
1261: LOG_MESSAGE('Transaction rolled back');
1260: -- rollback ;
1261: LOG_MESSAGE('Transaction rolled back');
1262: LOG_MESSAGE('----------------------------------------------------------');
1263:
1264: WHEN FND_API.G_EXC_ERROR THEN
1265: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1266: LOG_MESSAGE(SQLERRM);
1267: -- retcode := 1;
1268: -- rollback ;
1261: LOG_MESSAGE('Transaction rolled back');
1262: LOG_MESSAGE('----------------------------------------------------------');
1263:
1264: WHEN FND_API.G_EXC_ERROR THEN
1265: LOG_MESSAGE('Error : FND_API.G_EXC_ERROR');
1266: LOG_MESSAGE(SQLERRM);
1267: -- retcode := 1;
1268: -- rollback ;
1269: LOG_MESSAGE('Transaction rolled back');
1320:
1321: if (retcode=0 ) then
1322: CSD_Refurbish_IRO_GRP.Create_InternalRO
1323: ( 1.0,
1324: FND_API.G_FALSE,
1325: FND_API.G_FALSE,
1326: FND_API.G_VALID_LEVEL_FULL,
1327: x_return_status ,
1328: p_msg_count ,
1321: if (retcode=0 ) then
1322: CSD_Refurbish_IRO_GRP.Create_InternalRO
1323: ( 1.0,
1324: FND_API.G_FALSE,
1325: FND_API.G_FALSE,
1326: FND_API.G_VALID_LEVEL_FULL,
1327: x_return_status ,
1328: p_msg_count ,
1329: x_msg_data ,
1322: CSD_Refurbish_IRO_GRP.Create_InternalRO
1323: ( 1.0,
1324: FND_API.G_FALSE,
1325: FND_API.G_FALSE,
1326: FND_API.G_VALID_LEVEL_FULL,
1327: x_return_status ,
1328: p_msg_count ,
1329: x_msg_data ,
1330: l_req_header_id1,
1348: END IF;
1349:
1350: END IF;
1351:
1352: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1353: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1354: rollback ;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1349:
1350: END IF;
1351:
1352: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1353: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1354: rollback ;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1351:
1352: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1353: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1354: rollback ;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1358: rollback ;
1359: RAISE FND_API.G_EXC_ERROR;
1352: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1353: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1354: rollback ;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1358: rollback ;
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1353: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_UNEXP_ERROR');
1354: rollback ;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1358: rollback ;
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1361: log_message('Successful in Creating Repair Req .');
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1358: rollback ;
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1361: log_message('Successful in Creating Repair Req .');
1362: log_message('service request number :' ||x_service_request_number);
1363: log_output('Successful in Creating Repair Req .');
1356: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1357: LOG_MESSAGE('Error in Repair order creation : FND_API.G_RET_STS_ERROR');
1358: rollback ;
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1361: log_message('Successful in Creating Repair Req .');
1362: log_message('service request number :' ||x_service_request_number);
1363: log_output('Successful in Creating Repair Req .');
1364: log_output('service request number :' ||x_service_request_number);
1389: global_retcode := retcode;
1390: end if;
1391:
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_UNEXPECTED_ERROR');
1395: LOG_MESSAGE(SQLERRM);
1396: retcode := 1;
1397: rollback ;
1390: end if;
1391:
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1394: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_UNEXPECTED_ERROR');
1395: LOG_MESSAGE(SQLERRM);
1396: retcode := 1;
1397: rollback ;
1398: log_message('Transaction rolled back');
1397: rollback ;
1398: log_message('Transaction rolled back');
1399: log_message('----------------------------------------------------------');
1400:
1401: WHEN FND_API.G_EXC_ERROR THEN
1402: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_ERROR');
1403: LOG_MESSAGE(SQLERRM);
1404: retcode := 1;
1405: rollback ;
1398: log_message('Transaction rolled back');
1399: log_message('----------------------------------------------------------');
1400:
1401: WHEN FND_API.G_EXC_ERROR THEN
1402: LOG_MESSAGE('Error in Release_new_IRO : FND_API.G_EXC_ERROR');
1403: LOG_MESSAGE(SQLERRM);
1404: retcode := 1;
1405: rollback ;
1406: log_message('Transaction rolled back');