[Home] [Help]
30: -- Declare Procedures --
31: ------------------------
32: PROCEDURE create_disposition(
33: p_api_version IN NUMBER := 1.0,
34: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
35: p_commit IN VARCHAR2 := FND_API.G_FALSE,
36: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
37: p_module_type IN VARCHAR2 := NULL,
38: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
31: ------------------------
32: PROCEDURE create_disposition(
33: p_api_version IN NUMBER := 1.0,
34: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
35: p_commit IN VARCHAR2 := FND_API.G_FALSE,
36: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
37: p_module_type IN VARCHAR2 := NULL,
38: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
39: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
32: PROCEDURE create_disposition(
33: p_api_version IN NUMBER := 1.0,
34: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
35: p_commit IN VARCHAR2 := FND_API.G_FALSE,
36: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
37: p_module_type IN VARCHAR2 := NULL,
38: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
39: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
40: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
44: );
45:
46: PROCEDURE update_disposition(
47: p_api_version IN NUMBER := 1.0,
48: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
49: p_commit IN VARCHAR2 := FND_API.G_FALSE,
50: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
51: p_module_type IN VARCHAR2 := NULL,
52: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
45:
46: PROCEDURE update_disposition(
47: p_api_version IN NUMBER := 1.0,
48: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
49: p_commit IN VARCHAR2 := FND_API.G_FALSE,
50: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
51: p_module_type IN VARCHAR2 := NULL,
52: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
53: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
46: PROCEDURE update_disposition(
47: p_api_version IN NUMBER := 1.0,
48: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
49: p_commit IN VARCHAR2 := FND_API.G_FALSE,
50: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
51: p_module_type IN VARCHAR2 := NULL,
52: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
53: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
54: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
57: x_msg_data OUT NOCOPY VARCHAR2
58: );
59:
60: PROCEDURE CREATE_SR(
61: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
62: p_disposition_rec IN AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
63: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
64: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
65: x_primary_sr_id OUT NOCOPY NUMBER,
130: -- This API is used to get all default dispositions for a job from its related route
131: -- and then put them into the dispostion entity.
132: PROCEDURE create_job_dispositions(
133: p_api_version IN NUMBER := 1.0,
134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
135: p_commit IN VARCHAR2 := FND_API.G_FALSE,
136: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
137: x_return_status OUT NOCOPY VARCHAR2,
138: x_msg_count OUT NOCOPY NUMBER,
131: -- and then put them into the dispostion entity.
132: PROCEDURE create_job_dispositions(
133: p_api_version IN NUMBER := 1.0,
134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
135: p_commit IN VARCHAR2 := FND_API.G_FALSE,
136: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
137: x_return_status OUT NOCOPY VARCHAR2,
138: x_msg_count OUT NOCOPY NUMBER,
139: x_msg_data OUT NOCOPY VARCHAR2,
132: PROCEDURE create_job_dispositions(
133: p_api_version IN NUMBER := 1.0,
134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
135: p_commit IN VARCHAR2 := FND_API.G_FALSE,
136: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
137: x_return_status OUT NOCOPY VARCHAR2,
138: x_msg_count OUT NOCOPY NUMBER,
139: x_msg_data OUT NOCOPY VARCHAR2,
140: p_workorder_id IN NUMBER)
234: WHERE instance_id = c_instance_id;
235:
236: BEGIN
237: --Initialize API return status to success
238: x_return_status := FND_API.G_RET_STS_SUCCESS;
239:
240: --Standard Start of API savepoint
241: SAVEPOINT create_job_dispositions;
242:
240: --Standard Start of API savepoint
241: SAVEPOINT create_job_dispositions;
242:
243: --Standard call to check for call compatibility.
244: IF NOT FND_API.compatible_api_call(
245: l_api_version,
246: p_api_version,
247: l_api_name,
248: G_PKG_NAME)
246: p_api_version,
247: l_api_name,
248: G_PKG_NAME)
249: THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252:
253: --Initialize message list if p_init_msg_list is set to TRUE.
254: IF FND_API.to_boolean( p_init_msg_list ) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252:
253: --Initialize message list if p_init_msg_list is set to TRUE.
254: IF FND_API.to_boolean( p_init_msg_list ) THEN
255: FND_MSG_PUB.initialize;
256: END IF;
257:
258: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: /*
270: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_ID_INVALID');
271: FND_MESSAGE.set_token('JOBID', p_workorder_id);
272: FND_MSG_PUB.add;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: CLOSE get_job_attrs;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: */
277: CLOSE get_job_attrs;
271: FND_MESSAGE.set_token('JOBID', p_workorder_id);
272: FND_MSG_PUB.add;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: CLOSE get_job_attrs;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: */
277: CLOSE get_job_attrs;
278: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
279: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
285: --Complete(4) and Closed(12)
286: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_STS_INVALID');
287: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
288: FND_MSG_PUB.add;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: CLOSE get_job_attrs;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
293: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
287: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
288: FND_MSG_PUB.add;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: CLOSE get_job_attrs;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
293: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
294: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
295: FND_MSG_PUB.add;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
293: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
294: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
295: FND_MSG_PUB.add;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: CLOSE get_job_attrs;
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF l_job_attrs.route_id IS NULL THEN
300: CLOSE get_job_attrs;
294: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
295: FND_MSG_PUB.add;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: CLOSE get_job_attrs;
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF l_job_attrs.route_id IS NULL THEN
300: CLOSE get_job_attrs;
301: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
318: ' p_requirement_date='||l_job_attrs.scheduled_start_date);
319: END IF;
320: ahl_ltp_mtl_req_pvt.get_route_mtl_req(
321: p_api_version => 1.0,
322: p_init_msg_list => FND_API.G_FALSE,
323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
324: x_return_status => l_return_status,
325: x_msg_count => l_msg_count,
326: x_msg_data => l_msg_data,
319: END IF;
320: ahl_ltp_mtl_req_pvt.get_route_mtl_req(
321: p_api_version => 1.0,
322: p_init_msg_list => FND_API.G_FALSE,
323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
324: x_return_status => l_return_status,
325: x_msg_count => l_msg_count,
326: x_msg_data => l_msg_data,
327: p_route_id => l_job_attrs.route_id,
331: p_requirement_date => l_job_attrs.scheduled_start_date,
332: p_request_type => 'PLANNED',
333: x_route_mtl_req_tbl => l_route_mtl_req_tbl);
334:
335: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
332: p_request_type => 'PLANNED',
333: x_route_mtl_req_tbl => l_route_mtl_req_tbl);
334:
335: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
333: x_route_mtl_req_tbl => l_route_mtl_req_tbl);
334:
335: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
334:
335: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
339: END IF;
340: ----dbms_output.put_line('After calling ltp API, the count='||l_route_mtl_req_tbl.COUNT);
341: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
366: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_MTL_REQ_ID_INV');
367: FND_MESSAGE.set_token('REQID', l_route_mtl_req_tbl(i).rt_oper_material_id);
368: FND_MSG_PUB.add;
369: CLOSE get_mtl_req_flags;
370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
371: END IF;
372: CLOSE get_mtl_req_flags;
373: --dbms_output.put_line('Before check flag');
374: --Filter out the record which should not be included
441: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
442: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
443: FND_MSG_PUB.add;
444: CLOSE get_sub_unit_instance;
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSE
447: CLOSE get_sub_unit_instance;
448: END IF;
449: ELSE
460: l_unit_instance_id);
461: END IF;
462: AHL_MC_PATH_POSITION_PVT.get_pos_instance(
463: p_api_version => 1.0,
464: p_init_msg_list => FND_API.G_FALSE,
465: p_commit => FND_API.G_FALSE,
466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
467: x_return_status => l_return_status,
468: x_msg_count => l_msg_count,
461: END IF;
462: AHL_MC_PATH_POSITION_PVT.get_pos_instance(
463: p_api_version => 1.0,
464: p_init_msg_list => FND_API.G_FALSE,
465: p_commit => FND_API.G_FALSE,
466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
467: x_return_status => l_return_status,
468: x_msg_count => l_msg_count,
469: x_msg_data => l_msg_data,
462: AHL_MC_PATH_POSITION_PVT.get_pos_instance(
463: p_api_version => 1.0,
464: p_init_msg_list => FND_API.G_FALSE,
465: p_commit => FND_API.G_FALSE,
466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
467: x_return_status => l_return_status,
468: x_msg_count => l_msg_count,
469: x_msg_data => l_msg_data,
470: p_position_id => l_route_mtl_req_tbl(i).position_path_id,
482: ', x_item_instance_id = ' || l_installed_inst_id ||
483: ', x_lowest_uc_csi_id = ' || l_lowest_unit_inst_id);
484: END IF;
485:
486: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
483: ', x_lowest_uc_csi_id = ' || l_lowest_unit_inst_id);
484: END IF;
485:
486: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
484: END IF;
485:
486: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
492: IF (l_mapping_status = 'NA') THEN
485:
486: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
487: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
488: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
492: IF (l_mapping_status = 'NA') THEN
493: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
493: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
494: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
495: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
496: FND_MSG_PUB.add;
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: -- Position does not apply to current unit
499: ELSIF (l_mapping_status = 'EMPTY') THEN
500: l_installed_inst_id := NULL;
501: l_serial_number := NULL;
712: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
713: l_msg_count := FND_MSG_PUB.count_msg;
714: IF l_msg_count > 0 THEN
715: x_msg_count := l_msg_count;
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718:
719: -- Perform the Commit (if requested)
720: IF FND_API.to_boolean(p_commit) THEN
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718:
719: -- Perform the Commit (if requested)
720: IF FND_API.to_boolean(p_commit) THEN
721: COMMIT;
722: END IF;
723:
724: -- Count and Get messages (optional)
722: END IF;
723:
724: -- Count and Get messages (optional)
725: FND_MSG_PUB.count_and_get(
726: p_encoded => FND_API.G_FALSE,
727: p_count => x_msg_count,
728: p_data => x_msg_data);
729:
730: EXCEPTION
727: p_count => x_msg_count,
728: p_data => x_msg_data);
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO create_job_dispositions;
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: FND_MSG_PUB.count_and_get(
735: p_encoded => FND_API.G_FALSE,
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO create_job_dispositions;
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: FND_MSG_PUB.count_and_get(
735: p_encoded => FND_API.G_FALSE,
736: p_count => x_msg_count,
737: p_data => x_msg_data);
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO create_job_dispositions;
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: FND_MSG_PUB.count_and_get(
735: p_encoded => FND_API.G_FALSE,
736: p_count => x_msg_count,
737: p_data => x_msg_data);
738:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
735: p_encoded => FND_API.G_FALSE,
736: p_count => x_msg_count,
737: p_data => x_msg_data);
738:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740: ROLLBACK TO create_job_dispositions;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: FND_MSG_PUB.count_and_get(
743: p_encoded => FND_API.G_FALSE,
737: p_data => x_msg_data);
738:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740: ROLLBACK TO create_job_dispositions;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: FND_MSG_PUB.count_and_get(
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data);
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740: ROLLBACK TO create_job_dispositions;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: FND_MSG_PUB.count_and_get(
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data);
746:
747: WHEN OTHERS THEN
745: p_data => x_msg_data);
746:
747: WHEN OTHERS THEN
748: ROLLBACK TO create_job_dispositions;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
751: THEN
752: FND_MSG_PUB.add_exc_msg(
753: p_pkg_name => G_PKG_NAME,
754: p_procedure_name => l_api_name,
755: p_error_text => SUBSTRB(SQLERRM,1,240));
756: END IF;
757: FND_MSG_PUB.count_and_get(
758: p_encoded => FND_API.G_FALSE,
759: p_count => x_msg_count,
760: p_data => x_msg_data);
761:
762: END create_job_dispositions;
770: -- Parameters :
771: --
772: -- Standard IN Parameters :
773: -- p_api_version IN NUMBER Default 1.0
774: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
775: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
776: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
777: -- Standard OUT Parameters :
778: -- x_return_status OUT VARCHAR2 Required
771: --
772: -- Standard IN Parameters :
773: -- p_api_version IN NUMBER Default 1.0
774: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
775: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
776: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
777: -- Standard OUT Parameters :
778: -- x_return_status OUT VARCHAR2 Required
779: -- x_msg_count OUT NUMBER Required
772: -- Standard IN Parameters :
773: -- p_api_version IN NUMBER Default 1.0
774: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
775: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
776: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
777: -- Standard OUT Parameters :
778: -- x_return_status OUT VARCHAR2 Required
779: -- x_msg_count OUT NUMBER Required
780: -- x_msg_data OUT VARCHAR2 Required
800: --------------------------------------------------------------------------------------------------------------
801:
802: PROCEDURE process_disposition(
803: p_api_version IN NUMBER := 1.0,
804: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
805: p_commit IN VARCHAR2 := FND_API.G_FALSE,
806: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
807: p_module_type IN VARCHAR2 := NULL,
808: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
801:
802: PROCEDURE process_disposition(
803: p_api_version IN NUMBER := 1.0,
804: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
805: p_commit IN VARCHAR2 := FND_API.G_FALSE,
806: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
807: p_module_type IN VARCHAR2 := NULL,
808: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
809: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
802: PROCEDURE process_disposition(
803: p_api_version IN NUMBER := 1.0,
804: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
805: p_commit IN VARCHAR2 := FND_API.G_FALSE,
806: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
807: p_module_type IN VARCHAR2 := NULL,
808: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
809: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
810: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
814:
815:
816: l_api_version CONSTANT NUMBER := 1.0;
817: l_api_name CONSTANT VARCHAR2(30) := 'process_disposition';
818: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
819: l_init_msg_list VARCHAR2(1) := FND_API.G_FALSE;
820: l_commit VARCHAR2(1) := FND_API.G_FALSE;
821: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_disposition';
822: l_prev_err_count NUMBER;
815:
816: l_api_version CONSTANT NUMBER := 1.0;
817: l_api_name CONSTANT VARCHAR2(30) := 'process_disposition';
818: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
819: l_init_msg_list VARCHAR2(1) := FND_API.G_FALSE;
820: l_commit VARCHAR2(1) := FND_API.G_FALSE;
821: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_disposition';
822: l_prev_err_count NUMBER;
823:
816: l_api_version CONSTANT NUMBER := 1.0;
817: l_api_name CONSTANT VARCHAR2(30) := 'process_disposition';
818: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
819: l_init_msg_list VARCHAR2(1) := FND_API.G_FALSE;
820: l_commit VARCHAR2(1) := FND_API.G_FALSE;
821: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'process_disposition';
822: l_prev_err_count NUMBER;
823:
824: BEGIN
830: END IF;
831:
832: --dbms_output.put_line(SubStr('Begin Process_Disposition', 1, 255));
833: -- Standard call to check for call compatibility
834: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME )
835: THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
832: --dbms_output.put_line(SubStr('Begin Process_Disposition', 1, 255));
833: -- Standard call to check for call compatibility
834: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME )
835: THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
839: -- Initialize message list if p_init_msg_list is set to TRUE
840: IF FND_API.To_Boolean( p_init_msg_list)
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: END IF;
838:
839: -- Initialize message list if p_init_msg_list is set to TRUE
840: IF FND_API.To_Boolean( p_init_msg_list)
841: THEN
842: FND_MSG_PUB.Initialize;
843: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
844: END IF;
846: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
847: /* End Fix for 4071599 on Dec 22, 2004 by JR */
848:
849: -- Initialize API return status to success
850: x_return_status := FND_API.G_RET_STS_SUCCESS;
851: g_module_type := p_module_type;
852:
853: -- Begin Processing HERE
854:
886: x_msg_count := FND_MSG_PUB.count_msg;
887:
888:
889: IF x_msg_count - l_prev_err_count > 0 THEN
890: RAISE FND_API.G_EXC_ERROR;
891: END IF;
892:
893: -- Standard check of p_commit
894: IF FND_API.TO_BOOLEAN(p_commit) THEN
890: RAISE FND_API.G_EXC_ERROR;
891: END IF;
892:
893: -- Standard check of p_commit
894: IF FND_API.TO_BOOLEAN(p_commit) THEN
895: COMMIT WORK;
896: END IF;
897:
898: -- Standard call to get message count and if count is 1, get message info
898: -- Standard call to get message count and if count is 1, get message info
899: FND_MSG_PUB.Count_And_Get
900: ( p_count => x_msg_count,
901: p_data => x_msg_data,
902: p_encoded => fnd_api.g_false
903: );
904:
905: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'End Procedure');
907: END IF;
908: --dbms_output.put_line(SubStr('End Process_Disposition', 1, 255));
909:
910: EXCEPTION
911: WHEN FND_API.G_EXC_ERROR THEN
912: Rollback to process_disposition_pvt;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
909:
910: EXCEPTION
911: WHEN FND_API.G_EXC_ERROR THEN
912: Rollback to process_disposition_pvt;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
912: Rollback to process_disposition_pvt;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
919: END IF;
920: --dbms_output.put_line(SubStr('Execution Exception', 1, 255));
919: END IF;
920: --dbms_output.put_line(SubStr('Execution Exception', 1, 255));
921:
922:
923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
924: Rollback to process_disposition_pvt;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
927: p_data => x_msg_data,
921:
922:
923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
924: Rollback to process_disposition_pvt;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
927: p_data => x_msg_data,
928: p_encoded => fnd_api.g_false);
929:
924: Rollback to process_disposition_pvt;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
927: p_data => x_msg_data,
928: p_encoded => fnd_api.g_false);
929:
930: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Unexpected Exception: ' || x_msg_data);
932: END IF;
933: --dbms_output.put_line(SubStr('Unexpected Exception', 1, 255));
934:
935: WHEN OTHERS THEN
936: Rollback to process_disposition_pvt;
937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
939: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
940: p_procedure_name => l_api_name,
941: p_error_text => SUBSTR(SQLERRM,1,500));
941: p_error_text => SUBSTR(SQLERRM,1,500));
942: END IF;
943: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
944: p_data => x_msg_data,
945: p_encoded => fnd_api.g_false);
946:
947: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
948: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, 'Other Exception: ' || x_msg_data);
949: END IF;
956: --------------CREATE_DISPOSITION---------------------------------------------------
957:
958: PROCEDURE create_disposition(
959: p_api_version IN NUMBER := 1.0,
960: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
963: p_module_type IN VARCHAR2 := NULL,
964: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
957:
958: PROCEDURE create_disposition(
959: p_api_version IN NUMBER := 1.0,
960: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
963: p_module_type IN VARCHAR2 := NULL,
964: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
965: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
958: PROCEDURE create_disposition(
959: p_api_version IN NUMBER := 1.0,
960: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
961: p_commit IN VARCHAR2 := FND_API.G_FALSE,
962: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
963: p_module_type IN VARCHAR2 := NULL,
964: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
965: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
966: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
1058: END IF;
1059: --dbms_output.put_line(SubStr('Begin Create_Disposition', 1, 255));
1060:
1061: IF (p_module_type = 'JSP') THEN
1062: IF (p_x_disposition_rec.WORKORDER_ID = FND_API.G_MISS_NUM) THEN
1063: p_x_disposition_rec.WORKORDER_ID := null;
1064: END IF;
1065: IF (p_x_disposition_rec.PART_CHANGE_ID = FND_API.G_MISS_NUM) THEN
1066: p_x_disposition_rec.PART_CHANGE_ID := null;
1061: IF (p_module_type = 'JSP') THEN
1062: IF (p_x_disposition_rec.WORKORDER_ID = FND_API.G_MISS_NUM) THEN
1063: p_x_disposition_rec.WORKORDER_ID := null;
1064: END IF;
1065: IF (p_x_disposition_rec.PART_CHANGE_ID = FND_API.G_MISS_NUM) THEN
1066: p_x_disposition_rec.PART_CHANGE_ID := null;
1067: END IF;
1068: IF (p_x_disposition_rec.PATH_POSITION_ID = FND_API.G_MISS_NUM) THEN
1069: p_x_disposition_rec.PATH_POSITION_ID := null;
1064: END IF;
1065: IF (p_x_disposition_rec.PART_CHANGE_ID = FND_API.G_MISS_NUM) THEN
1066: p_x_disposition_rec.PART_CHANGE_ID := null;
1067: END IF;
1068: IF (p_x_disposition_rec.PATH_POSITION_ID = FND_API.G_MISS_NUM) THEN
1069: p_x_disposition_rec.PATH_POSITION_ID := null;
1070: END IF;
1071: IF (p_x_disposition_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM) THEN
1072: p_x_disposition_rec.INVENTORY_ITEM_ID := null;
1067: END IF;
1068: IF (p_x_disposition_rec.PATH_POSITION_ID = FND_API.G_MISS_NUM) THEN
1069: p_x_disposition_rec.PATH_POSITION_ID := null;
1070: END IF;
1071: IF (p_x_disposition_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM) THEN
1072: p_x_disposition_rec.INVENTORY_ITEM_ID := null;
1073: END IF;
1074: IF (p_x_disposition_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM) THEN
1075: p_x_disposition_rec.ITEM_GROUP_ID := null;
1070: END IF;
1071: IF (p_x_disposition_rec.INVENTORY_ITEM_ID = FND_API.G_MISS_NUM) THEN
1072: p_x_disposition_rec.INVENTORY_ITEM_ID := null;
1073: END IF;
1074: IF (p_x_disposition_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM) THEN
1075: p_x_disposition_rec.ITEM_GROUP_ID := null;
1076: END IF;
1077: IF (p_x_disposition_rec.CONDITION_ID = FND_API.G_MISS_NUM) THEN
1078: p_x_disposition_rec.CONDITION_ID := null;
1073: END IF;
1074: IF (p_x_disposition_rec.ITEM_GROUP_ID = FND_API.G_MISS_NUM) THEN
1075: p_x_disposition_rec.ITEM_GROUP_ID := null;
1076: END IF;
1077: IF (p_x_disposition_rec.CONDITION_ID = FND_API.G_MISS_NUM) THEN
1078: p_x_disposition_rec.CONDITION_ID := null;
1079: END IF;
1080: IF (p_x_disposition_rec.INSTANCE_ID = FND_API.G_MISS_NUM) THEN
1081: p_x_disposition_rec.INSTANCE_ID := null;
1076: END IF;
1077: IF (p_x_disposition_rec.CONDITION_ID = FND_API.G_MISS_NUM) THEN
1078: p_x_disposition_rec.CONDITION_ID := null;
1079: END IF;
1080: IF (p_x_disposition_rec.INSTANCE_ID = FND_API.G_MISS_NUM) THEN
1081: p_x_disposition_rec.INSTANCE_ID := null;
1082: END IF;
1083: IF (p_x_disposition_rec.SERIAL_NUMBER = FND_API.G_MISS_CHAR) THEN
1084: p_x_disposition_rec.SERIAL_NUMBER := null;
1079: END IF;
1080: IF (p_x_disposition_rec.INSTANCE_ID = FND_API.G_MISS_NUM) THEN
1081: p_x_disposition_rec.INSTANCE_ID := null;
1082: END IF;
1083: IF (p_x_disposition_rec.SERIAL_NUMBER = FND_API.G_MISS_CHAR) THEN
1084: p_x_disposition_rec.SERIAL_NUMBER := null;
1085: END IF;
1086: IF (p_x_disposition_rec.LOT_NUMBER = FND_API.G_MISS_CHAR) THEN
1087: p_x_disposition_rec.LOT_NUMBER := null;
1082: END IF;
1083: IF (p_x_disposition_rec.SERIAL_NUMBER = FND_API.G_MISS_CHAR) THEN
1084: p_x_disposition_rec.SERIAL_NUMBER := null;
1085: END IF;
1086: IF (p_x_disposition_rec.LOT_NUMBER = FND_API.G_MISS_CHAR) THEN
1087: p_x_disposition_rec.LOT_NUMBER := null;
1088: END IF;
1089: IF (p_x_disposition_rec.IMMEDIATE_DISPOSITION_CODE = FND_API.G_MISS_CHAR) THEN
1090: p_x_disposition_rec.IMMEDIATE_DISPOSITION_CODE := null;
1085: END IF;
1086: IF (p_x_disposition_rec.LOT_NUMBER = FND_API.G_MISS_CHAR) THEN
1087: p_x_disposition_rec.LOT_NUMBER := null;
1088: END IF;
1089: IF (p_x_disposition_rec.IMMEDIATE_DISPOSITION_CODE = FND_API.G_MISS_CHAR) THEN
1090: p_x_disposition_rec.IMMEDIATE_DISPOSITION_CODE := null;
1091: END IF;
1092: IF (p_x_disposition_rec.SECONDARY_DISPOSITION_CODE = FND_API.G_MISS_CHAR) THEN
1093: p_x_disposition_rec.SECONDARY_DISPOSITION_CODE := null;
1088: END IF;
1089: IF (p_x_disposition_rec.IMMEDIATE_DISPOSITION_CODE = FND_API.G_MISS_CHAR) THEN
1090: p_x_disposition_rec.IMMEDIATE_DISPOSITION_CODE := null;
1091: END IF;
1092: IF (p_x_disposition_rec.SECONDARY_DISPOSITION_CODE = FND_API.G_MISS_CHAR) THEN
1093: p_x_disposition_rec.SECONDARY_DISPOSITION_CODE := null;
1094: END IF;
1095: IF (p_x_disposition_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1096: p_x_disposition_rec.STATUS_CODE := null;
1091: END IF;
1092: IF (p_x_disposition_rec.SECONDARY_DISPOSITION_CODE = FND_API.G_MISS_CHAR) THEN
1093: p_x_disposition_rec.SECONDARY_DISPOSITION_CODE := null;
1094: END IF;
1095: IF (p_x_disposition_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1096: p_x_disposition_rec.STATUS_CODE := null;
1097: END IF;
1098: IF (p_x_disposition_rec.QUANTITY = FND_API.G_MISS_NUM) THEN
1099: p_x_disposition_rec.QUANTITY := null;
1094: END IF;
1095: IF (p_x_disposition_rec.STATUS_CODE = FND_API.G_MISS_CHAR) THEN
1096: p_x_disposition_rec.STATUS_CODE := null;
1097: END IF;
1098: IF (p_x_disposition_rec.QUANTITY = FND_API.G_MISS_NUM) THEN
1099: p_x_disposition_rec.QUANTITY := null;
1100: END IF;
1101: IF (p_x_disposition_rec.UOM = FND_API.G_MISS_CHAR) THEN
1102: p_x_disposition_rec.UOM := null;
1097: END IF;
1098: IF (p_x_disposition_rec.QUANTITY = FND_API.G_MISS_NUM) THEN
1099: p_x_disposition_rec.QUANTITY := null;
1100: END IF;
1101: IF (p_x_disposition_rec.UOM = FND_API.G_MISS_CHAR) THEN
1102: p_x_disposition_rec.UOM := null;
1103: END IF;
1104: IF (p_x_disposition_rec.COLLECTION_ID = FND_API.G_MISS_NUM) THEN
1105: p_x_disposition_rec.COLLECTION_ID := null;
1100: END IF;
1101: IF (p_x_disposition_rec.UOM = FND_API.G_MISS_CHAR) THEN
1102: p_x_disposition_rec.UOM := null;
1103: END IF;
1104: IF (p_x_disposition_rec.COLLECTION_ID = FND_API.G_MISS_NUM) THEN
1105: p_x_disposition_rec.COLLECTION_ID := null;
1106: END IF;
1107: IF (p_x_disposition_rec.PRIMARY_SERVICE_REQUEST_ID = FND_API.G_MISS_NUM) THEN
1108: p_x_disposition_rec.PRIMARY_SERVICE_REQUEST_ID := null;
1103: END IF;
1104: IF (p_x_disposition_rec.COLLECTION_ID = FND_API.G_MISS_NUM) THEN
1105: p_x_disposition_rec.COLLECTION_ID := null;
1106: END IF;
1107: IF (p_x_disposition_rec.PRIMARY_SERVICE_REQUEST_ID = FND_API.G_MISS_NUM) THEN
1108: p_x_disposition_rec.PRIMARY_SERVICE_REQUEST_ID := null;
1109: END IF;
1110: IF (p_x_disposition_rec.NON_ROUTINE_WORKORDER_ID = FND_API.G_MISS_NUM) THEN
1111: p_x_disposition_rec.NON_ROUTINE_WORKORDER_ID := null;
1106: END IF;
1107: IF (p_x_disposition_rec.PRIMARY_SERVICE_REQUEST_ID = FND_API.G_MISS_NUM) THEN
1108: p_x_disposition_rec.PRIMARY_SERVICE_REQUEST_ID := null;
1109: END IF;
1110: IF (p_x_disposition_rec.NON_ROUTINE_WORKORDER_ID = FND_API.G_MISS_NUM) THEN
1111: p_x_disposition_rec.NON_ROUTINE_WORKORDER_ID := null;
1112: END IF;
1113: IF (p_x_disposition_rec.WO_OPERATION_ID = FND_API.G_MISS_NUM) THEN
1114: p_x_disposition_rec.WO_OPERATION_ID := null;
1109: END IF;
1110: IF (p_x_disposition_rec.NON_ROUTINE_WORKORDER_ID = FND_API.G_MISS_NUM) THEN
1111: p_x_disposition_rec.NON_ROUTINE_WORKORDER_ID := null;
1112: END IF;
1113: IF (p_x_disposition_rec.WO_OPERATION_ID = FND_API.G_MISS_NUM) THEN
1114: p_x_disposition_rec.WO_OPERATION_ID := null;
1115: END IF;
1116: IF (p_x_disposition_rec.ITEM_REVISION = FND_API.G_MISS_CHAR) THEN
1117: p_x_disposition_rec.ITEM_REVISION := null;
1112: END IF;
1113: IF (p_x_disposition_rec.WO_OPERATION_ID = FND_API.G_MISS_NUM) THEN
1114: p_x_disposition_rec.WO_OPERATION_ID := null;
1115: END IF;
1116: IF (p_x_disposition_rec.ITEM_REVISION = FND_API.G_MISS_CHAR) THEN
1117: p_x_disposition_rec.ITEM_REVISION := null;
1118: END IF;
1119: END IF;
1120:
1118: END IF;
1119: END IF;
1120:
1121:
1122: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
1123: convert_values_to_ids(p_x_disposition_rec);
1124: END IF;
1125:
1126:
1250: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1251: l_msg_count := FND_MSG_PUB.count_msg;
1252: IF l_msg_count > 0 THEN
1253: x_msg_count := l_msg_count;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: Create_SR (p_init_msg_list => FND_API.G_FALSE,
1257: p_disposition_rec => p_x_disposition_rec,
1258: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
1252: IF l_msg_count > 0 THEN
1253: x_msg_count := l_msg_count;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256: Create_SR (p_init_msg_list => FND_API.G_FALSE,
1257: p_disposition_rec => p_x_disposition_rec,
1258: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
1259: p_mr_asso_tbl => p_mr_asso_tbl,
1260: x_primary_sr_id => l_primary_service_request_id,
1262: x_return_status => x_return_status,
1263: x_msg_count => x_msg_count,
1264: x_msg_data => x_msg_data);
1265: --reinitialize message stack and ignore any warning message
1266: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1267: FND_MSG_PUB.Initialize;
1268: END IF;
1269:
1270: p_x_disposition_rec.primary_service_request_id := l_primary_service_request_id;
1332: -- If the instance was just removed in Serviceable condition return the part to the Visit Locator.
1333: -- Note that the ReturnTo_Workorder_Locator will return only if the locator is set at the Visit level.
1334: -- For FP OGMA Issue# 105 - Non-Serialized Item Maintenance, if the instance was removed in 'Inspection'
1335: -- condition, then it should not be returned to the locator.
1336: IF (NVL(x_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS AND
1337: p_x_disposition_rec.part_change_id IS NOT NULL AND
1338: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
1339: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
1340: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_INSPECTION'), -1)) THEN
1354: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition with ' ||
1355: ' p_instance_id = ' || l_removed_instance_id ||
1356: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
1357: END IF;
1358: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
1359: p_commit => FND_API.G_FALSE,
1360: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1361: p_instance_id => l_removed_instance_id,
1362: p_instance_condition_id => p_x_disposition_rec.condition_id,
1355: ' p_instance_id = ' || l_removed_instance_id ||
1356: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
1357: END IF;
1358: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
1359: p_commit => FND_API.G_FALSE,
1360: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1361: p_instance_id => l_removed_instance_id,
1362: p_instance_condition_id => p_x_disposition_rec.condition_id,
1363: x_return_status => x_return_status,
1356: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
1357: END IF;
1358: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
1359: p_commit => FND_API.G_FALSE,
1360: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1361: p_instance_id => l_removed_instance_id,
1362: p_instance_condition_id => p_x_disposition_rec.condition_id,
1363: x_return_status => x_return_status,
1364: x_msg_data => x_msg_data,
1366: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
1368: ' x_return_status = ' || x_return_status);
1369: END IF;
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1367: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
1368: ' x_return_status = ' || x_return_status);
1369: END IF;
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375:
1368: ' x_return_status = ' || x_return_status);
1369: END IF;
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375:
1376: IF (p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
1369: END IF;
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1374: END IF;
1375:
1376: IF (p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
1377: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
1392: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
1394: ' x_return_status = ' || x_return_status);
1395: END IF;
1396: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
1394: ' x_return_status = ' || x_return_status);
1395: END IF;
1396: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401: END IF; -- If Serviceable Removal
1394: ' x_return_status = ' || x_return_status);
1395: END IF;
1396: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401: END IF; -- If Serviceable Removal
1402: END IF; -- If Part Removal has happened
1395: END IF;
1396: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401: END IF; -- If Serviceable Removal
1402: END IF; -- If Part Removal has happened
1403: END IF; -- x_return_status is Success and Part Change has happened
1490: --------------UPDATE_DISPOSITION---------------------------------------------------
1491:
1492: PROCEDURE update_disposition(
1493: p_api_version IN NUMBER := 1.0,
1494: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1495: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1496: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1497: p_module_type IN VARCHAR2 := NULL,
1498: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
1491:
1492: PROCEDURE update_disposition(
1493: p_api_version IN NUMBER := 1.0,
1494: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1495: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1496: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1497: p_module_type IN VARCHAR2 := NULL,
1498: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
1499: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
1492: PROCEDURE update_disposition(
1493: p_api_version IN NUMBER := 1.0,
1494: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1495: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1496: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1497: p_module_type IN VARCHAR2 := NULL,
1498: p_x_disposition_rec IN OUT NOCOPY AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
1499: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
1500: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
1626: l_pos_empty BOOLEAN;
1627: l_assoc_quantity NUMBER;
1628:
1629: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'update_disposition';
1630: l_init_msg_list VARCHAR2(1) := FND_API.G_FALSE;
1631: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1632: l_msg_count NUMBER;
1633: l_plan_id NUMBER;
1634: l_msg_data VARCHAR2(2000);
1627: l_assoc_quantity NUMBER;
1628:
1629: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || 'update_disposition';
1630: l_init_msg_list VARCHAR2(1) := FND_API.G_FALSE;
1631: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1632: l_msg_count NUMBER;
1633: l_plan_id NUMBER;
1634: l_msg_data VARCHAR2(2000);
1635:
1668: IF (disposition_csr%NOTFOUND) THEN
1669: CLOSE disposition_csr; --close cursor before raising exeption
1670: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_FOUND');
1671: FND_MSG_PUB.ADD;
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674: CLOSE disposition_csr;
1675:
1676: IF(p_x_disposition_rec.OBJECT_VERSION_NUMBER <> l_disposition_rec.OBJECT_VERSION_NUMBER) THEN
1675:
1676: IF(p_x_disposition_rec.OBJECT_VERSION_NUMBER <> l_disposition_rec.OBJECT_VERSION_NUMBER) THEN
1677: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
1678: FND_MSG_PUB.ADD;
1679: RAISE FND_API.G_EXC_ERROR;
1680: END IF;
1681:
1682: IF l_disposition_rec.status_code = 'TERMINATED' THEN
1683: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DIS_UPDATE_TERMINATE'); --Cannot update a terminated disposition.
1681:
1682: IF l_disposition_rec.status_code = 'TERMINATED' THEN
1683: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DIS_UPDATE_TERMINATE'); --Cannot update a terminated disposition.
1684: FND_MSG_PUB.ADD;
1685: RAISE FND_API.G_EXC_ERROR;
1686: END IF;
1687:
1688: --Handle JSP module
1689: --Handle GMiss and merge the updating record with the one from database
1694: END IF;
1695: --dbms_output.put_line(SubStr('Update_disp:Merging data', 1, 255));
1696: IF p_x_disposition_rec.workorder_id IS NULL THEN
1697: p_x_disposition_rec.workorder_id := l_disposition_rec.workorder_id;
1698: ELSIF (p_x_disposition_rec.workorder_id = FND_API.G_MISS_NUM) THEN
1699: p_x_disposition_rec.workorder_id := null;
1700: END IF;
1701: IF p_x_disposition_rec.part_change_id IS NULL THEN
1702: p_x_disposition_rec.part_change_id := l_disposition_rec.part_change_id;
1699: p_x_disposition_rec.workorder_id := null;
1700: END IF;
1701: IF p_x_disposition_rec.part_change_id IS NULL THEN
1702: p_x_disposition_rec.part_change_id := l_disposition_rec.part_change_id;
1703: ELSIF (p_x_disposition_rec.part_change_id = FND_API.G_MISS_NUM) THEN
1704: p_x_disposition_rec.part_change_id := null;
1705: END IF;
1706: IF p_x_disposition_rec.path_position_id IS NULL THEN
1707: p_x_disposition_rec.path_position_id := l_disposition_rec.path_position_id;
1704: p_x_disposition_rec.part_change_id := null;
1705: END IF;
1706: IF p_x_disposition_rec.path_position_id IS NULL THEN
1707: p_x_disposition_rec.path_position_id := l_disposition_rec.path_position_id;
1708: ELSIF (p_x_disposition_rec.path_position_id = FND_API.G_MISS_NUM) THEN
1709: p_x_disposition_rec.path_position_id := null;
1710: END IF;
1711: IF p_x_disposition_rec.item_org_id IS NULL THEN
1712: p_x_disposition_rec.item_org_id := l_disposition_rec.organization_id;
1709: p_x_disposition_rec.path_position_id := null;
1710: END IF;
1711: IF p_x_disposition_rec.item_org_id IS NULL THEN
1712: p_x_disposition_rec.item_org_id := l_disposition_rec.organization_id;
1713: ELSIF (p_x_disposition_rec.item_org_id = FND_API.G_MISS_NUM) THEN
1714: p_x_disposition_rec.item_org_id := null;
1715: END IF;
1716: IF p_x_disposition_rec.inventory_item_id IS NULL THEN
1717: p_x_disposition_rec.inventory_item_id := l_disposition_rec.inventory_item_id;
1714: p_x_disposition_rec.item_org_id := null;
1715: END IF;
1716: IF p_x_disposition_rec.inventory_item_id IS NULL THEN
1717: p_x_disposition_rec.inventory_item_id := l_disposition_rec.inventory_item_id;
1718: ELSIF (p_x_disposition_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
1719: p_x_disposition_rec.inventory_item_id := null;
1720: END IF;
1721:
1722: IF p_x_disposition_rec.item_group_id IS NULL THEN
1720: END IF;
1721:
1722: IF p_x_disposition_rec.item_group_id IS NULL THEN
1723: p_x_disposition_rec.item_group_id := l_disposition_rec.item_group_id;
1724: ELSIF (p_x_disposition_rec.item_group_id = FND_API.G_MISS_NUM) THEN
1725: p_x_disposition_rec.item_group_id := null;
1726: END IF;
1727: IF p_x_disposition_rec.condition_id IS NULL THEN
1728: p_x_disposition_rec.condition_id := l_disposition_rec.condition_id;
1725: p_x_disposition_rec.item_group_id := null;
1726: END IF;
1727: IF p_x_disposition_rec.condition_id IS NULL THEN
1728: p_x_disposition_rec.condition_id := l_disposition_rec.condition_id;
1729: ELSIF (p_x_disposition_rec.condition_id = FND_API.G_MISS_NUM) THEN
1730: p_x_disposition_rec.condition_id := null;
1731: END IF;
1732: IF p_x_disposition_rec.instance_id IS NULL THEN
1733: p_x_disposition_rec.instance_id := l_disposition_rec.instance_id;
1730: p_x_disposition_rec.condition_id := null;
1731: END IF;
1732: IF p_x_disposition_rec.instance_id IS NULL THEN
1733: p_x_disposition_rec.instance_id := l_disposition_rec.instance_id;
1734: ELSIF (p_x_disposition_rec.instance_id = FND_API.G_MISS_NUM) THEN
1735: p_x_disposition_rec.instance_id := null;
1736: END IF;
1737: IF p_x_disposition_rec.serial_number IS NULL THEN
1738: p_x_disposition_rec.serial_number := l_disposition_rec.serial_number;
1735: p_x_disposition_rec.instance_id := null;
1736: END IF;
1737: IF p_x_disposition_rec.serial_number IS NULL THEN
1738: p_x_disposition_rec.serial_number := l_disposition_rec.serial_number;
1739: ELSIF (p_x_disposition_rec.serial_number = FND_API.G_MISS_CHAR) THEN
1740: p_x_disposition_rec.serial_number := null;
1741: END IF;
1742: IF p_x_disposition_rec.lot_number IS NULL THEN
1743: p_x_disposition_rec.lot_number := l_disposition_rec.lot_number;
1740: p_x_disposition_rec.serial_number := null;
1741: END IF;
1742: IF p_x_disposition_rec.lot_number IS NULL THEN
1743: p_x_disposition_rec.lot_number := l_disposition_rec.lot_number;
1744: ELSIF (p_x_disposition_rec.lot_number = FND_API.G_MISS_CHAR) THEN
1745: p_x_disposition_rec.lot_number := null;
1746: END IF;
1747: IF p_x_disposition_rec.immediate_disposition_code IS NULL THEN
1748: p_x_disposition_rec.immediate_disposition_code := l_disposition_rec.immediate_disposition_code;
1745: p_x_disposition_rec.lot_number := null;
1746: END IF;
1747: IF p_x_disposition_rec.immediate_disposition_code IS NULL THEN
1748: p_x_disposition_rec.immediate_disposition_code := l_disposition_rec.immediate_disposition_code;
1749: ELSIF (p_x_disposition_rec.immediate_disposition_code = FND_API.G_MISS_CHAR) THEN
1750: p_x_disposition_rec.immediate_disposition_code := null;
1751: END IF;
1752: IF p_x_disposition_rec.secondary_disposition_code IS NULL THEN
1753: p_x_disposition_rec.secondary_disposition_code := l_disposition_rec.secondary_disposition_code;
1750: p_x_disposition_rec.immediate_disposition_code := null;
1751: END IF;
1752: IF p_x_disposition_rec.secondary_disposition_code IS NULL THEN
1753: p_x_disposition_rec.secondary_disposition_code := l_disposition_rec.secondary_disposition_code;
1754: ELSIF (p_x_disposition_rec.secondary_disposition_code = FND_API.G_MISS_CHAR) THEN
1755: p_x_disposition_rec.secondary_disposition_code := null;
1756: END IF;
1757: IF p_x_disposition_rec.status_code IS NULL THEN
1758: p_x_disposition_rec.status_code := l_disposition_rec.status_code;
1755: p_x_disposition_rec.secondary_disposition_code := null;
1756: END IF;
1757: IF p_x_disposition_rec.status_code IS NULL THEN
1758: p_x_disposition_rec.status_code := l_disposition_rec.status_code;
1759: ELSIF (p_x_disposition_rec.status_code = FND_API.G_MISS_CHAR) THEN
1760: p_x_disposition_rec.status_code := null;
1761: END IF;
1762: IF p_x_disposition_rec.quantity IS NULL THEN
1763: p_x_disposition_rec.quantity := l_disposition_rec.quantity;
1760: p_x_disposition_rec.status_code := null;
1761: END IF;
1762: IF p_x_disposition_rec.quantity IS NULL THEN
1763: p_x_disposition_rec.quantity := l_disposition_rec.quantity;
1764: ELSIF (p_x_disposition_rec.quantity = FND_API.G_MISS_NUM) THEN
1765: p_x_disposition_rec.quantity := null;
1766: END IF;
1767: IF p_x_disposition_rec.uom IS NULL THEN
1768: p_x_disposition_rec.uom := l_disposition_rec.uom;
1765: p_x_disposition_rec.quantity := null;
1766: END IF;
1767: IF p_x_disposition_rec.uom IS NULL THEN
1768: p_x_disposition_rec.uom := l_disposition_rec.uom;
1769: ELSIF (p_x_disposition_rec.uom = FND_API.G_MISS_CHAR) THEN
1770: p_x_disposition_rec.uom := null;
1771: END IF;
1772: IF p_x_disposition_rec.comments IS NULL THEN
1773: p_x_disposition_rec.comments := l_disposition_rec.comments;
1770: p_x_disposition_rec.uom := null;
1771: END IF;
1772: IF p_x_disposition_rec.comments IS NULL THEN
1773: p_x_disposition_rec.comments := l_disposition_rec.comments;
1774: ELSIF (p_x_disposition_rec.comments = FND_API.G_MISS_CHAR) THEN
1775: p_x_disposition_rec.comments := null;
1776: END IF;
1777: IF p_x_disposition_rec.collection_id IS NULL THEN
1778: p_x_disposition_rec.collection_id := l_disposition_rec.collection_id;
1775: p_x_disposition_rec.comments := null;
1776: END IF;
1777: IF p_x_disposition_rec.collection_id IS NULL THEN
1778: p_x_disposition_rec.collection_id := l_disposition_rec.collection_id;
1779: ELSIF (p_x_disposition_rec.collection_id = FND_API.G_MISS_NUM) THEN
1780: p_x_disposition_rec.collection_id := null;
1781: END IF;
1782: IF p_x_disposition_rec.primary_service_request_id IS NULL THEN
1783: p_x_disposition_rec.primary_service_request_id := l_disposition_rec.primary_service_request_id;
1780: p_x_disposition_rec.collection_id := null;
1781: END IF;
1782: IF p_x_disposition_rec.primary_service_request_id IS NULL THEN
1783: p_x_disposition_rec.primary_service_request_id := l_disposition_rec.primary_service_request_id;
1784: ELSIF (p_x_disposition_rec.primary_service_request_id = FND_API.G_MISS_NUM) THEN
1785: p_x_disposition_rec.primary_service_request_id := null;
1786: END IF;
1787: IF p_x_disposition_rec.non_routine_workorder_id IS NULL THEN
1788: p_x_disposition_rec.non_routine_workorder_id := l_disposition_rec.non_routine_workorder_id;
1785: p_x_disposition_rec.primary_service_request_id := null;
1786: END IF;
1787: IF p_x_disposition_rec.non_routine_workorder_id IS NULL THEN
1788: p_x_disposition_rec.non_routine_workorder_id := l_disposition_rec.non_routine_workorder_id;
1789: ELSIF (p_x_disposition_rec.non_routine_workorder_id = FND_API.G_MISS_NUM) THEN
1790: p_x_disposition_rec.non_routine_workorder_id := null;
1791: END IF;
1792: IF p_x_disposition_rec.wo_operation_id IS NULL THEN
1793: p_x_disposition_rec.wo_operation_id := l_disposition_rec.wo_operation_id;
1790: p_x_disposition_rec.non_routine_workorder_id := null;
1791: END IF;
1792: IF p_x_disposition_rec.wo_operation_id IS NULL THEN
1793: p_x_disposition_rec.wo_operation_id := l_disposition_rec.wo_operation_id;
1794: ELSIF (p_x_disposition_rec.wo_operation_id = FND_API.G_MISS_NUM) THEN
1795: p_x_disposition_rec.wo_operation_id := null;
1796: END IF;
1797: IF p_x_disposition_rec.item_revision IS NULL THEN
1798: p_x_disposition_rec.item_revision := l_disposition_rec.item_revision;
1795: p_x_disposition_rec.wo_operation_id := null;
1796: END IF;
1797: IF p_x_disposition_rec.item_revision IS NULL THEN
1798: p_x_disposition_rec.item_revision := l_disposition_rec.item_revision;
1799: ELSIF (p_x_disposition_rec.item_revision = FND_API.G_MISS_CHAR) THEN
1800: p_x_disposition_rec.item_revision := null;
1801: END IF;
1802:
1803: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1806: --dbms_output.put_line(SubStr('Update_disp:End Merging data', 1, 255));
1807: END IF;
1808: --END MERGING DATA
1809:
1810: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL THEN
1811: convert_values_to_ids(p_x_disposition_rec);
1812: END IF;
1813:
1814: --VALIDATE THAT THESE ATTRIBUTE SHOULD NOT BE CHANGED
2064: --COLLECTION ID
2065: -- Added by jaramana on March 25, 2005 to fix bug 4243200
2066: -- First check if a QA PLan is defined in the workorder Org.
2067: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
2068: p_init_msg_list => FND_API.G_False,
2069: p_commit => FND_API.G_FALSE,
2070: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2071: p_default => FND_API.G_FALSE,
2072: p_organization_id => p_x_disposition_rec.item_org_id,
2065: -- Added by jaramana on March 25, 2005 to fix bug 4243200
2066: -- First check if a QA PLan is defined in the workorder Org.
2067: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
2068: p_init_msg_list => FND_API.G_False,
2069: p_commit => FND_API.G_FALSE,
2070: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2071: p_default => FND_API.G_FALSE,
2072: p_organization_id => p_x_disposition_rec.item_org_id,
2073: p_transaction_number => 2004, -- MRB_TRANSACTION_NUMBER
2066: -- First check if a QA PLan is defined in the workorder Org.
2067: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
2068: p_init_msg_list => FND_API.G_False,
2069: p_commit => FND_API.G_FALSE,
2070: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2071: p_default => FND_API.G_FALSE,
2072: p_organization_id => p_x_disposition_rec.item_org_id,
2073: p_transaction_number => 2004, -- MRB_TRANSACTION_NUMBER
2074: p_col_trigger_value => fnd_profile.value('AHL_MRB_DISP_PLAN_TYPE'),
2067: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
2068: p_init_msg_list => FND_API.G_False,
2069: p_commit => FND_API.G_FALSE,
2070: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2071: p_default => FND_API.G_FALSE,
2072: p_organization_id => p_x_disposition_rec.item_org_id,
2073: p_transaction_number => 2004, -- MRB_TRANSACTION_NUMBER
2074: p_col_trigger_value => fnd_profile.value('AHL_MRB_DISP_PLAN_TYPE'),
2075: x_return_status => l_return_status,
2136: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2137: l_msg_count := FND_MSG_PUB.count_msg;
2138: IF l_msg_count > 0 THEN
2139: x_msg_count := l_msg_count;
2140: RAISE FND_API.G_EXC_ERROR;
2141: END IF;
2142: Create_SR (p_init_msg_list => FND_API.G_FALSE,
2143: p_disposition_rec => p_x_disposition_rec,
2144: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
2138: IF l_msg_count > 0 THEN
2139: x_msg_count := l_msg_count;
2140: RAISE FND_API.G_EXC_ERROR;
2141: END IF;
2142: Create_SR (p_init_msg_list => FND_API.G_FALSE,
2143: p_disposition_rec => p_x_disposition_rec,
2144: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
2145: p_mr_asso_tbl => p_mr_asso_tbl,
2146: x_primary_sr_id => l_primary_service_request_id,
2148: x_return_status => x_return_status,
2149: x_msg_count => x_msg_count,
2150: x_msg_data => x_msg_data);
2151: --reinitialize message stack and ignore any warning message
2152: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2153: FND_MSG_PUB.Initialize;
2154:
2155: -- SATHAPLI::Bug 7111116, 21-May-2008
2156: -- set the l_primary_sr_created flag to TRUE
2397: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 12-Dec-2007
2398: -- The API update_item_location and its use has been commented out. Its functionality will
2399: -- now be handled in the API AHL_PRD_NONROUTINE_PVT.process_nonroutine_job.
2400: /*
2401: IF (NVL(x_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS AND
2402: p_x_disposition_rec.non_routine_workorder_id IS NOT NULL AND
2403: l_disposition_rec.part_change_id IS NULL AND
2404: p_x_disposition_rec.part_change_id IS NOT NULL AND
2405: l_exist IS NOT NULL) THEN
2461:
2462: -- call the required API
2463: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
2464: p_api_version => 1.0,
2465: p_init_msg_list => FND_API.G_FALSE,
2466: p_commit => FND_API.G_FALSE,
2467: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2468: p_module_type => NULL,
2469: p_default => FND_API.G_TRUE,
2462: -- call the required API
2463: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
2464: p_api_version => 1.0,
2465: p_init_msg_list => FND_API.G_FALSE,
2466: p_commit => FND_API.G_FALSE,
2467: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2468: p_module_type => NULL,
2469: p_default => FND_API.G_TRUE,
2470: p_move_item_instance_tbl => l_move_item_ins_tbl,
2463: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
2464: p_api_version => 1.0,
2465: p_init_msg_list => FND_API.G_FALSE,
2466: p_commit => FND_API.G_FALSE,
2467: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2468: p_module_type => NULL,
2469: p_default => FND_API.G_TRUE,
2470: p_move_item_instance_tbl => l_move_item_ins_tbl,
2471: x_return_status => x_return_status,
2465: p_init_msg_list => FND_API.G_FALSE,
2466: p_commit => FND_API.G_FALSE,
2467: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2468: p_module_type => NULL,
2469: p_default => FND_API.G_TRUE,
2470: p_move_item_instance_tbl => l_move_item_ins_tbl,
2471: x_return_status => x_return_status,
2472: x_msg_count => x_msg_count,
2473: x_msg_data => x_msg_data
2478: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2479: END IF;
2480:
2481: -- check the API call return status
2482: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2483: CLOSE get_rem_inst_id_csr;
2484: CLOSE get_rel_nonmaster_wo_id_csr;
2485: RAISE FND_API.G_EXC_ERROR;
2486: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2481: -- check the API call return status
2482: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2483: CLOSE get_rem_inst_id_csr;
2484: CLOSE get_rel_nonmaster_wo_id_csr;
2485: RAISE FND_API.G_EXC_ERROR;
2486: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2487: CLOSE get_rem_inst_id_csr;
2488: CLOSE get_rel_nonmaster_wo_id_csr;
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2482: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2483: CLOSE get_rem_inst_id_csr;
2484: CLOSE get_rel_nonmaster_wo_id_csr;
2485: RAISE FND_API.G_EXC_ERROR;
2486: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2487: CLOSE get_rem_inst_id_csr;
2488: CLOSE get_rel_nonmaster_wo_id_csr;
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: END IF;
2485: RAISE FND_API.G_EXC_ERROR;
2486: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2487: CLOSE get_rem_inst_id_csr;
2488: CLOSE get_rel_nonmaster_wo_id_csr;
2489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2490: END IF;
2491:
2492: -- Changes by jaramana on 03-FEB-2011 for bug 10647408
2493: -- For Non Serialized tracked items, if an unserviceable removal was done with Create Work Order in released option
2511: -- If the instance was just removed in Serviceable condition return the part to the Visit Locator.
2512: -- Note that the ReturnTo_Workorder_Locator will return only if the locator is set at the Visit level.
2513: -- For FP OGMA Issue# 105 - Non-Serialized Item Maintenance, if the instance was removed in 'Inspection'
2514: -- condition, then it should not be returned to the locator.
2515: IF (NVL(x_return_status, FND_API.G_RET_STS_SUCCESS) = FND_API.G_RET_STS_SUCCESS AND
2516: l_disposition_rec.part_change_id IS NULL AND
2517: p_x_disposition_rec.part_change_id IS NOT NULL AND
2518: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
2519: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
2533: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition with ' ||
2534: ' p_instance_id = ' || l_removed_instance_id ||
2535: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
2536: END IF;
2537: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
2538: p_commit => FND_API.G_FALSE,
2539: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2540: p_instance_id => l_removed_instance_id,
2541: p_instance_condition_id => p_x_disposition_rec.condition_id,
2534: ' p_instance_id = ' || l_removed_instance_id ||
2535: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
2536: END IF;
2537: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
2538: p_commit => FND_API.G_FALSE,
2539: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2540: p_instance_id => l_removed_instance_id,
2541: p_instance_condition_id => p_x_disposition_rec.condition_id,
2542: x_return_status => x_return_status,
2535: ', and p_instance_condition_id = ' || p_x_disposition_rec.condition_id);
2536: END IF;
2537: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition(p_init_msg_list => FND_API.G_FALSE,
2538: p_commit => FND_API.G_FALSE,
2539: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2540: p_instance_id => l_removed_instance_id,
2541: p_instance_condition_id => p_x_disposition_rec.condition_id,
2542: x_return_status => x_return_status,
2543: x_msg_data => x_msg_data,
2545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
2547: ' x_return_status = ' || x_return_status);
2548: END IF;
2549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2550: RAISE FND_API.G_EXC_ERROR;
2551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2553: END IF;
2546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition: ' ||
2547: ' x_return_status = ' || x_return_status);
2548: END IF;
2549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2550: RAISE FND_API.G_EXC_ERROR;
2551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2553: END IF;
2554:
2547: ' x_return_status = ' || x_return_status);
2548: END IF;
2549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2550: RAISE FND_API.G_EXC_ERROR;
2551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2553: END IF;
2554:
2555: IF (p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
2548: END IF;
2549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2550: RAISE FND_API.G_EXC_ERROR;
2551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2553: END IF;
2554:
2555: IF (p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1) AND
2556: p_x_disposition_rec.condition_id <> NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1) AND
2570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
2572: ' x_return_status = ' || x_return_status);
2573: END IF;
2574: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2575: RAISE FND_API.G_EXC_ERROR;
2576: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2578: END IF;
2571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from AHL_PRD_PARTS_CHANGE_PVT.ReturnTo_Workorder_Locator: ' ||
2572: ' x_return_status = ' || x_return_status);
2573: END IF;
2574: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2575: RAISE FND_API.G_EXC_ERROR;
2576: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2578: END IF;
2579: END IF; -- If Serviceable Removal
2572: ' x_return_status = ' || x_return_status);
2573: END IF;
2574: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2575: RAISE FND_API.G_EXC_ERROR;
2576: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2578: END IF;
2579: END IF; -- If Serviceable Removal
2580: END IF; -- If Part Removal has happened
2573: END IF;
2574: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2575: RAISE FND_API.G_EXC_ERROR;
2576: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2578: END IF;
2579: END IF; -- If Serviceable Removal
2580: END IF; -- If Part Removal has happened
2581: END IF; -- x_return_status is Success and Part Change has just happened
2589:
2590: ------------------------------------------------------------------
2591:
2592: PROCEDURE CREATE_SR(
2593: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2594: p_disposition_rec IN AHL_PRD_DISPOSITION_PVT.disposition_rec_type,
2595: -- Parameter added by jaramana on Oct 9, 2007 for ER 5883257
2596: p_mr_asso_tbl IN AHL_PRD_NONROUTINE_PVT.MR_Association_tbl_type,
2597: x_primary_sr_id OUT NOCOPY NUMBER,
2665: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2666: END IF;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE
2669: IF FND_API.To_Boolean( p_init_msg_list)
2670: THEN
2671: FND_MSG_PUB.Initialize;
2672: END IF;
2673: --dbms_output.put_line('Begin Create SR -----------------------------');
2794: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before process_nonroutine_job');
2795: END IF;
2796: AHL_PRD_NONROUTINE_PVT.process_nonroutine_job (
2797: p_api_version => 1.0,
2798: p_commit => Fnd_Api.g_false,
2799: p_module_type => NULL,
2800: x_return_status => x_return_status,
2801: x_msg_count => x_msg_count,
2802: x_msg_data => x_msg_data,
2819:
2820: FOR i IN 1..x_msg_count LOOP
2821: FND_MSG_PUB.get (
2822: p_msg_index => i,
2823: p_encoded => FND_API.G_FALSE,
2824: p_data => x_msg_data,
2825: p_msg_index_out => l_msg_index_out );
2826: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2827: END LOOP;
2834: --dbms_output.put_line('Nonroutine_wo_id: ' || l_sr_task_tbl(0).Nonroutine_wo_id);
2835:
2836:
2837: -- Check return status.
2838: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2839: RAISE FND_API.G_EXC_ERROR;
2840: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2835:
2836:
2837: -- Check return status.
2838: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2839: RAISE FND_API.G_EXC_ERROR;
2840: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2836:
2837: -- Check return status.
2838: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2839: RAISE FND_API.G_EXC_ERROR;
2840: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2844:
2837: -- Check return status.
2838: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2839: RAISE FND_API.G_EXC_ERROR;
2840: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2842: END IF;
2843:
2844:
2845: x_primary_sr_id := l_sr_task_tbl(0).incident_id;
2904:
2905: -- call the required API
2906: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
2907: p_api_version => 1.0,
2908: p_init_msg_list => FND_API.G_FALSE,
2909: p_commit => FND_API.G_FALSE,
2910: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2911: p_module_type => NULL,
2912: p_default => FND_API.G_TRUE,
2905: -- call the required API
2906: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
2907: p_api_version => 1.0,
2908: p_init_msg_list => FND_API.G_FALSE,
2909: p_commit => FND_API.G_FALSE,
2910: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2911: p_module_type => NULL,
2912: p_default => FND_API.G_TRUE,
2913: p_move_item_instance_tbl => l_move_item_ins_tbl,
2906: AHL_PRD_PARTS_CHANGE_PVT.move_instance_location(
2907: p_api_version => 1.0,
2908: p_init_msg_list => FND_API.G_FALSE,
2909: p_commit => FND_API.G_FALSE,
2910: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2911: p_module_type => NULL,
2912: p_default => FND_API.G_TRUE,
2913: p_move_item_instance_tbl => l_move_item_ins_tbl,
2914: x_return_status => x_return_status,
2908: p_init_msg_list => FND_API.G_FALSE,
2909: p_commit => FND_API.G_FALSE,
2910: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2911: p_module_type => NULL,
2912: p_default => FND_API.G_TRUE,
2913: p_move_item_instance_tbl => l_move_item_ins_tbl,
2914: x_return_status => x_return_status,
2915: x_msg_count => x_msg_count,
2916: x_msg_data => x_msg_data
2921: 'Call to the API AHL_PRD_PARTS_CHANGE_PVT.move_instance_location returned with status => '||x_return_status);
2922: END IF;
2923:
2924: -- check the API call return status
2925: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2926: CLOSE get_rem_inst_id_csr;
2927: CLOSE get_rel_nonmaster_wo_id_csr;
2928: RAISE FND_API.G_EXC_ERROR;
2929: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2924: -- check the API call return status
2925: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2926: CLOSE get_rem_inst_id_csr;
2927: CLOSE get_rel_nonmaster_wo_id_csr;
2928: RAISE FND_API.G_EXC_ERROR;
2929: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2930: CLOSE get_rem_inst_id_csr;
2931: CLOSE get_rel_nonmaster_wo_id_csr;
2932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2925: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2926: CLOSE get_rem_inst_id_csr;
2927: CLOSE get_rel_nonmaster_wo_id_csr;
2928: RAISE FND_API.G_EXC_ERROR;
2929: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2930: CLOSE get_rem_inst_id_csr;
2931: CLOSE get_rel_nonmaster_wo_id_csr;
2932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2933: END IF; -- x_return_status check
2928: RAISE FND_API.G_EXC_ERROR;
2929: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2930: CLOSE get_rem_inst_id_csr;
2931: CLOSE get_rel_nonmaster_wo_id_csr;
2932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2933: END IF; -- x_return_status check
2934: END IF; -- get_rem_inst_id_csr%FOUND
2935: CLOSE get_rem_inst_id_csr;
2936: END IF; -- get_rel_nonmaster_wo_id_csr%FOUND
3036: x_mapping_status => l_dummy_status
3037: );
3038: p_x_disposition_rec.instance_id := l_position_instance_id;
3039: -- Check return status.
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3037: );
3038: p_x_disposition_rec.instance_id := l_position_instance_id;
3039: -- Check return status.
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3038: p_x_disposition_rec.instance_id := l_position_instance_id;
3039: -- Check return status.
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3039: -- Check return status.
3040: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3044: END IF;
3045:
3046: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,'derived Position Instance_id: ' || p_x_disposition_rec.instance_id);
3064: END IF;
3065: -- Raise an Exception
3066: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3067: FND_MSG_PUB.ADD;
3068: RAISE FND_API.G_EXC_ERROR;
3069: END IF;
3070: END IF;
3071: END IF;
3072: END IF;
3088: END IF;
3089: -- Raise an Exception
3090: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3091: FND_MSG_PUB.ADD;
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: END IF;
3095: -- End addition by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
3096: END IF;
3188: x_msg_data => x_msg_data,
3189: p_csi_item_instance_id => p_x_disposition_rec.instance_id,
3190: x_path_position_id => l_derived_path_pos_id);
3191:
3192: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3189: p_csi_item_instance_id => p_x_disposition_rec.instance_id,
3190: x_path_position_id => l_derived_path_pos_id);
3191:
3192: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197:
3190: x_path_position_id => l_derived_path_pos_id);
3191:
3192: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197:
3198: p_x_disposition_rec.path_position_id := l_derived_path_pos_id;
3191:
3192: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197:
3198: p_x_disposition_rec.path_position_id := l_derived_path_pos_id;
3199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3419: --WORKORDER
3420: IF (p_disposition_rec.workorder_id IS NULL) THEN
3421: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_REQ'); -- Workorder is required to create disposition.
3422: FND_MSG_PUB.ADD;
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSE
3425: validate_workorder(p_disposition_rec.workorder_id);
3426: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
3427: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Create Disposition Because Workorder is not editable.
3425: validate_workorder(p_disposition_rec.workorder_id);
3426: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
3427: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Create Disposition Because Workorder is not editable.
3428: FND_MSG_PUB.ADD;
3429: RAISE FND_API.G_EXC_ERROR;
3430: END IF;
3431: END IF;
3432:
3433: IF (p_disposition_rec.path_position_id IS NULL AND p_disposition_rec.inventory_item_id IS NULL) THEN
3432:
3433: IF (p_disposition_rec.path_position_id IS NULL AND p_disposition_rec.inventory_item_id IS NULL) THEN
3434: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_OR_ITEM_REQ'); --Path Position or Item is required to create a disposition
3435: FND_MSG_PUB.ADD;
3436: RAISE FND_API.G_EXC_ERROR;
3437: END IF;
3438:
3439: IF p_disposition_rec.item_org_id IS NOT NULL AND p_disposition_rec.inventory_item_id IS NULL THEN
3440: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_CANNOT_ENTER_ORG'); --Cannot enter organization id.
3451: CLOSE part_change_csr;
3452: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
3453: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_disposition_rec.part_change_id);
3454: FND_MSG_PUB.ADD;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457: CLOSE part_change_csr;
3458: END IF;
3459:
3509: l_unit_instance_id := get_unit_instance_id(p_disposition_rec.workorder_id);
3510: IF(l_unit_instance_id IS NULL) THEN
3511: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_UC_NO_POS'); --Workorder's instance does not belong to UC hence path position is not allowed
3512: FND_MSG_PUB.ADD;
3513: RAISE FND_API.G_EXC_ERROR;
3514: END IF;
3515:
3516: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3517: FND_LOG.STRING(FND_LOG.LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||
3539: ', x_parent_instance_id ' || l_parent_instance_id ||
3540: ', x_mapping_status = ' || l_mapping_status);
3541: END IF;
3542: -- Check return status.
3543: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3544: RAISE FND_API.G_EXC_ERROR;
3545: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3547: END IF;
3540: ', x_mapping_status = ' || l_mapping_status);
3541: END IF;
3542: -- Check return status.
3543: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3544: RAISE FND_API.G_EXC_ERROR;
3545: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3547: END IF;
3548:
3541: END IF;
3542: -- Check return status.
3543: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3544: RAISE FND_API.G_EXC_ERROR;
3545: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3547: END IF;
3548:
3549: -- SATHAPLI:: Bug 6836572, 19-Mar-2008
3542: -- Check return status.
3543: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3544: RAISE FND_API.G_EXC_ERROR;
3545: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3547: END IF;
3548:
3549: -- SATHAPLI:: Bug 6836572, 19-Mar-2008
3550: -- If the workorder instance is root instance of an installed sub UC, and the sub UC has been removed during parts change, then
3611:
3612: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3613: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_POS_NOT_WO_UC'); -- Instance is not in the same unit as workorder instance
3614: FND_MSG_PUB.ADD;
3615: RAISE FND_API.G_EXC_ERROR;
3616: END IF;
3617: END IF;
3618: END IF; -- Part Change
3619: ELSIF (l_mapping_status = 'MATCH') THEN
3625: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3626: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3627: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3628: FND_MSG_PUB.ADD;
3629: RAISE FND_API.G_EXC_ERROR;
3630: END IF;
3631: l_position_empty := TRUE;
3632: ELSIF (l_pc_type = G_PART_CHANGE_SWAP) THEN
3633: -- Disposition is for the instance that was swapped out
3857: --COLLECTION ID-------------------------------------------------------------
3858: -- Added by jaramana on March 25, 2005 to fix bug 4243200
3859: -- First check if a QA Plan is defined in the workorder Org.
3860: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
3861: p_init_msg_list => FND_API.G_False,
3862: p_commit => FND_API.G_FALSE,
3863: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3864: p_default => FND_API.G_FALSE,
3865: p_organization_id => p_disposition_rec.item_org_id,
3858: -- Added by jaramana on March 25, 2005 to fix bug 4243200
3859: -- First check if a QA Plan is defined in the workorder Org.
3860: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
3861: p_init_msg_list => FND_API.G_False,
3862: p_commit => FND_API.G_FALSE,
3863: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3864: p_default => FND_API.G_FALSE,
3865: p_organization_id => p_disposition_rec.item_org_id,
3866: p_transaction_number => 2004, -- MRB_TRANSACTION_NUMBER
3859: -- First check if a QA Plan is defined in the workorder Org.
3860: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
3861: p_init_msg_list => FND_API.G_False,
3862: p_commit => FND_API.G_FALSE,
3863: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3864: p_default => FND_API.G_FALSE,
3865: p_organization_id => p_disposition_rec.item_org_id,
3866: p_transaction_number => 2004, -- MRB_TRANSACTION_NUMBER
3867: p_col_trigger_value => fnd_profile.value('AHL_MRB_DISP_PLAN_TYPE'),
3860: AHL_QA_RESULTS_PVT.get_qa_plan( p_api_version => 1.0,
3861: p_init_msg_list => FND_API.G_False,
3862: p_commit => FND_API.G_FALSE,
3863: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3864: p_default => FND_API.G_FALSE,
3865: p_organization_id => p_disposition_rec.item_org_id,
3866: p_transaction_number => 2004, -- MRB_TRANSACTION_NUMBER
3867: p_col_trigger_value => fnd_profile.value('AHL_MRB_DISP_PLAN_TYPE'),
3868: x_return_status => l_return_status,
3920: END IF;
3921: END IF;
3922:
3923: IF FND_MSG_PUB.count_msg > 0 THEN
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3926:
3927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3928: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
4003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
4005: END IF;
4006: --dbms_output.put_line(SubStr('Begin Convert_val_to_id', 1, 255));
4007: IF (p_x_prd_disposition_rec.instance_number IS NOT NULL AND p_x_prd_disposition_rec.instance_number <> FND_API.G_MISS_CHAR) THEN
4008: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
4009: FETCH instance_id_csr INTO p_x_prd_disposition_rec.instance_id;
4010: IF(instance_id_csr%NOTFOUND) THEN
4011: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
4012: FND_MESSAGE.Set_Token('INTANCE_NUM', p_x_prd_disposition_rec.instance_number);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4015: CLOSE instance_id_csr;
4016: ELSIF(p_x_prd_disposition_rec.instance_number = FND_API.G_MISS_CHAR) THEN
4017: p_x_prd_disposition_rec.instance_id := NULL;
4018: END IF;
4019:
4020: IF (p_x_prd_disposition_rec.item_group_name IS NOT NULL AND p_x_prd_disposition_rec.item_group_name <> FND_API.G_MISS_CHAR) THEN
4016: ELSIF(p_x_prd_disposition_rec.instance_number = FND_API.G_MISS_CHAR) THEN
4017: p_x_prd_disposition_rec.instance_id := NULL;
4018: END IF;
4019:
4020: IF (p_x_prd_disposition_rec.item_group_name IS NOT NULL AND p_x_prd_disposition_rec.item_group_name <> FND_API.G_MISS_CHAR) THEN
4021: OPEN item_group_id_csr(p_x_prd_disposition_rec.item_group_name);
4022: FETCH item_group_id_csr INTO p_x_prd_disposition_rec.item_group_id;
4023: IF(item_group_id_csr%NOTFOUND) THEN
4024: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITM_GRPNAME');
4025: FND_MESSAGE.Set_Token('ITEM_GROUP', p_x_prd_disposition_rec.item_group_name);
4026: FND_MSG_PUB.ADD;
4027: END IF;
4028: CLOSE item_group_id_csr;
4029: ELSIF(p_x_prd_disposition_rec.item_group_name = FND_API.G_MISS_CHAR) THEN
4030: p_x_prd_disposition_rec.item_group_id := NULL;
4031: END IF;
4032:
4033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before convert Item Number: ' ||p_x_prd_disposition_rec.item_number);
4035: END IF;
4036: --dbms_output.put_line(SubStr('convert Item Number', 1, 255));
4037: IF (p_x_prd_disposition_rec.item_number IS NOT NULL AND p_x_prd_disposition_rec.item_number <> FND_API.G_MISS_CHAR) THEN
4038: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
4039: FETCH item_id_csr INTO p_x_prd_disposition_rec.inventory_item_id;
4040: IF(item_id_csr%NOTFOUND) THEN
4041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITEM_NUM');
4042: FND_MESSAGE.Set_Token('ITEM_NUM', p_x_prd_disposition_rec.item_number);
4043: FND_MSG_PUB.ADD;
4044: END IF;
4045: CLOSE item_id_csr;
4046: ELSIF(p_x_prd_disposition_rec.item_number = FND_API.G_MISS_CHAR) THEN
4047: p_x_prd_disposition_rec.inventory_item_id := NULL;
4048: END IF;
4049:
4050: IF (p_x_prd_disposition_rec.operation_sequence IS NOT NULL AND p_x_prd_disposition_rec.operation_sequence <> FND_API.G_MISS_NUM) THEN
4046: ELSIF(p_x_prd_disposition_rec.item_number = FND_API.G_MISS_CHAR) THEN
4047: p_x_prd_disposition_rec.inventory_item_id := NULL;
4048: END IF;
4049:
4050: IF (p_x_prd_disposition_rec.operation_sequence IS NOT NULL AND p_x_prd_disposition_rec.operation_sequence <> FND_API.G_MISS_NUM) THEN
4051: OPEN wo_operation_id_csr(p_x_prd_disposition_rec.workorder_id, p_x_prd_disposition_rec.operation_sequence);
4052: FETCH wo_operation_id_csr INTO p_x_prd_disposition_rec.wo_operation_id;
4053: IF(wo_operation_id_csr%NOTFOUND) THEN
4054: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_OPER_SEQ');
4055: FND_MESSAGE.Set_Token('OPER_SEQ', p_x_prd_disposition_rec.operation_sequence);
4056: FND_MSG_PUB.ADD;
4057: END IF;
4058: CLOSE wo_operation_id_csr;
4059: ELSIF(p_x_prd_disposition_rec.operation_sequence = FND_API.G_MISS_NUM) THEN
4060: p_x_prd_disposition_rec.wo_operation_id := NULL;
4061: END IF;
4062:
4063: IF (p_x_prd_disposition_rec.condition_meaning IS NOT NULL AND p_x_prd_disposition_rec.condition_meaning <> FND_API.G_MISS_CHAR) THEN
4059: ELSIF(p_x_prd_disposition_rec.operation_sequence = FND_API.G_MISS_NUM) THEN
4060: p_x_prd_disposition_rec.wo_operation_id := NULL;
4061: END IF;
4062:
4063: IF (p_x_prd_disposition_rec.condition_meaning IS NOT NULL AND p_x_prd_disposition_rec.condition_meaning <> FND_API.G_MISS_CHAR) THEN
4064: OPEN condition_id_csr(p_x_prd_disposition_rec.condition_meaning);
4065: FETCH condition_id_csr INTO p_x_prd_disposition_rec.condition_id;
4066: IF(condition_id_csr%NOTFOUND) THEN
4067: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_CONDITION');
4068: FND_MESSAGE.Set_Token('CONDITION', p_x_prd_disposition_rec.condition_meaning);
4069: FND_MSG_PUB.ADD;
4070: END IF;
4071: CLOSE condition_id_csr;
4072: ELSIF(p_x_prd_disposition_rec.condition_meaning = FND_API.G_MISS_CHAR) THEN
4073: p_x_prd_disposition_rec.condition_id := NULL;
4074: END IF;
4075:
4076: IF (p_x_prd_disposition_rec.severity_name IS NOT NULL AND p_x_prd_disposition_rec.severity_name <> FND_API.G_MISS_CHAR) THEN
4072: ELSIF(p_x_prd_disposition_rec.condition_meaning = FND_API.G_MISS_CHAR) THEN
4073: p_x_prd_disposition_rec.condition_id := NULL;
4074: END IF;
4075:
4076: IF (p_x_prd_disposition_rec.severity_name IS NOT NULL AND p_x_prd_disposition_rec.severity_name <> FND_API.G_MISS_CHAR) THEN
4077: OPEN severity_id_csr( p_x_prd_disposition_rec.severity_name);
4078: FETCH severity_id_csr INTO p_x_prd_disposition_rec.severity_id;
4079: IF(severity_id_csr%NOTFOUND) THEN
4080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_SEVERITY_NAME');
4081: FND_MESSAGE.Set_Token('NAME', p_x_prd_disposition_rec.severity_name);
4082: FND_MSG_PUB.ADD;
4083: END IF;
4084: CLOSE severity_id_csr;
4085: ELSIF(p_x_prd_disposition_rec.severity_name = FND_API.G_MISS_CHAR) THEN
4086: p_x_prd_disposition_rec.severity_id := NULL;
4087: END IF;
4088:
4089: IF (p_x_prd_disposition_rec.problem_meaning IS NOT NULL AND p_x_prd_disposition_rec.problem_meaning <> FND_API.G_MISS_CHAR) THEN
4085: ELSIF(p_x_prd_disposition_rec.severity_name = FND_API.G_MISS_CHAR) THEN
4086: p_x_prd_disposition_rec.severity_id := NULL;
4087: END IF;
4088:
4089: IF (p_x_prd_disposition_rec.problem_meaning IS NOT NULL AND p_x_prd_disposition_rec.problem_meaning <> FND_API.G_MISS_CHAR) THEN
4090: OPEN problem_code_csr( p_x_prd_disposition_rec.problem_meaning);
4091: FETCH problem_code_csr INTO p_x_prd_disposition_rec.problem_code;
4092: IF(problem_code_csr%NOTFOUND) THEN
4093: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_PROBLEM');
4094: FND_MESSAGE.Set_Token('PROBLEM', p_x_prd_disposition_rec.problem_meaning);
4095: FND_MSG_PUB.ADD;
4096: END IF;
4097: CLOSE problem_code_csr;
4098: ELSIF(p_x_prd_disposition_rec.problem_meaning = FND_API.G_MISS_CHAR) THEN
4099: p_x_prd_disposition_rec.problem_code := NULL;
4100: END IF;
4101:
4102: ---AVIKUKUM::PIE::FP ::19-OCT-2010:: Service Type
4102: ---AVIKUKUM::PIE::FP ::19-OCT-2010:: Service Type
4103: --If Service Type is passed then derive the Service Type Code.
4104: -- If Service Type Code does not exists for Service Type, throw error.
4105:
4106: IF (p_x_prd_disposition_rec.service_type IS NOT NULL AND p_x_prd_disposition_rec.service_type <> FND_API.G_MISS_CHAR) THEN
4107: OPEN service_type_code_csr( p_x_prd_disposition_rec.service_type);
4108: FETCH service_type_code_csr INTO p_x_prd_disposition_rec.service_type_code;
4109: IF(service_type_code_csr%NOTFOUND) THEN
4110: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_SERVICE_TYPE_INVALID');
4110: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_SERVICE_TYPE_INVALID');
4111: FND_MSG_PUB.ADD;
4112: END IF;
4113: CLOSE service_type_code_csr;
4114: ELSIF(p_x_prd_disposition_rec.service_type = FND_API.G_MISS_CHAR) THEN
4115: p_x_prd_disposition_rec.service_type_code := NULL;
4116: END IF;
4117:
4118: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4164: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_WORKORDER_ID'); -- Invalid Workorder Id
4165: FND_MESSAGE.set_token('WORKORDER_ID', p_workorder_id);
4166: FND_MSG_PUB.ADD;
4167: CLOSE workorder_csr;
4168: RAISE FND_API.G_EXC_ERROR;
4169: ELSE
4170: CLOSE workorder_csr;
4171: END IF;
4172:
4188: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_PATH_POSITION');
4189: FND_MESSAGE.SET_TOKEN('PATH_POS_ID', p_path_position_id);
4190: FND_MSG_PUB.ADD;
4191: CLOSE path_position_csr;
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSE
4194: CLOSE path_position_csr;
4195: END IF;
4196: END validate_path_position;
4221: CLOSE val_item_csr; --Close cursor before raising exception
4222: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_ITEM_ID');
4223: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4224: FND_MSG_PUB.ADD;
4225: RAISE FND_API.G_EXC_ERROR;
4226: END IF;
4227: CLOSE val_item_csr;
4228:
4229:
4239: CLOSE val_item_csr; --close cursor before raise an exception
4240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_ITEM_NOT_IN_WO_ORG'); --Item is not defined in workorder's organization
4241: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4242: FND_MSG_PUB.ADD;
4243: RAISE FND_API.G_EXC_ERROR;
4244: END IF;
4245: CLOSE val_item_csr;
4246: END IF;
4247:
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4435: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
4436: FND_MSG_PUB.ADD;
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF; -- Root Instances are not the same
4439: END IF; -- l_wo_instance_id <> p_instance_id
4440: END IF; -- p_part_change_id is null
4441: ELSE --then it is a stand alone instance need to check if instance is issued to the job
4454: IF instance_in_wip_csr%NOTFOUND THEN
4455: CLOSE instance_in_wip_csr;
4456: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INST_NOT_ISSUED'); -- Instance is not issued to the job
4457: FND_MSG_PUB.ADD;
4458: RAISE FND_API.G_EXC_ERROR;
4459: END IF;
4460: CLOSE instance_in_wip_csr;
4461: ***/
4462: END IF;
4923: -- Standard start of API savepoint
4924: SAVEPOINT Validate_Disp_Types_Pvt;
4925:
4926: -- Initialize Procedure return status to success
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928:
4929: --Validate that the immediate disposition type is valid
4930: OPEN check_immed_disp_types_csr (p_disposition_rec.immediate_disposition_code);
4931: FETCH check_immed_disp_types_csr into l_dummy;
5029: IF (get_disp_rec_csr%NOTFOUND) THEN
5030: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_ID_INV');
5031: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_disposition_rec.disposition_id);
5032: FND_MSG_PUB.ADD;
5033: RAISE FND_API.G_EXC_ERROR;
5034: END IF;
5035: CLOSE get_disp_rec_csr;
5036:
5037: --Validate that condition id flows only 1 way.
5116:
5117: END IF; --G_UPDATE
5118:
5119: IF FND_MSG_PUB.count_msg > 0 THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5123: EXCEPTION
5124: WHEN FND_API.G_EXC_ERROR THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5123: EXCEPTION
5124: WHEN FND_API.G_EXC_ERROR THEN
5125: Rollback to Validate_Disp_Types_Pvt;
5126: x_return_status := FND_API.G_RET_STS_ERROR;
5127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5128: p_data => x_msg_data,
5122:
5123: EXCEPTION
5124: WHEN FND_API.G_EXC_ERROR THEN
5125: Rollback to Validate_Disp_Types_Pvt;
5126: x_return_status := FND_API.G_RET_STS_ERROR;
5127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5128: p_data => x_msg_data,
5129: p_encoded => fnd_api.g_false);
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5125: Rollback to Validate_Disp_Types_Pvt;
5126: x_return_status := FND_API.G_RET_STS_ERROR;
5127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5128: p_data => x_msg_data,
5129: p_encoded => fnd_api.g_false);
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: Rollback to Validate_Disp_Types_Pvt;
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5126: x_return_status := FND_API.G_RET_STS_ERROR;
5127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5128: p_data => x_msg_data,
5129: p_encoded => fnd_api.g_false);
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: Rollback to Validate_Disp_Types_Pvt;
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5128: p_data => x_msg_data,
5129: p_encoded => fnd_api.g_false);
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: Rollback to Validate_Disp_Types_Pvt;
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5135: p_encoded => fnd_api.g_false);
5136: WHEN OTHERS THEN
5131: Rollback to Validate_Disp_Types_Pvt;
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5135: p_encoded => fnd_api.g_false);
5136: WHEN OTHERS THEN
5137: Rollback to Validate_Disp_Types_Pvt;
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
5134: p_data => x_msg_data,
5135: p_encoded => fnd_api.g_false);
5136: WHEN OTHERS THEN
5137: Rollback to Validate_Disp_Types_Pvt;
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
5140: p_procedure_name => l_api_name,
5141: p_error_text => SQLERRM);
5142: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5140: p_procedure_name => l_api_name,
5141: p_error_text => SQLERRM);
5142: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5143: p_data => x_msg_data,
5144: p_encoded => fnd_api.g_false);
5145:
5146: END Validate_Disposition_Types;
5147:
5148: -------------------------------------------------------------------------
5553:
5554: BEGIN
5555:
5556: --Initialize API return status to success
5557: x_return_status := FND_API.G_RET_STS_SUCCESS;
5558:
5559: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5560: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Entering Procedure. p_workorder_id = ' || p_workorder_id || ', p_instance_id = ' || p_instance_id);
5561: END IF;
5571: END IF;
5572: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5573: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5574: FND_MSG_PUB.ADD;
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSE
5577: -- Additional check added by jaramana on February 23, 2007 for ER 5854667
5578: -- Update the instance location only if the work order is in released status
5579: OPEN ahl_wo_status_csr(l_wip_entity_id);
5594: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_REMOVED_INSTANCE_INVALID');
5595: FND_MESSAGE.Set_Token('INST', p_instance_id);
5596: FND_MSG_PUB.ADD;
5597: CLOSE ahl_obj_ver_csr;
5598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5599: ELSE
5600: CLOSE ahl_obj_ver_csr;
5601: END IF;
5602: -- Populate l_instance_rec
5612:
5613: -- get transaction_type_id .
5614: AHL_Util_UC_Pkg.GetCSI_Transaction_ID('UC_UPDATE', l_transaction_type_id, l_return_val);
5615: IF NOT(l_return_val) THEN
5616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5617: END IF;
5618: l_csi_transaction_rec.transaction_type_id := l_transaction_type_id;
5619: l_csi_transaction_rec.source_transaction_date := sysdate;
5620:
5623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'About to call CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE');
5624: END IF;
5625:
5626: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5627: ,p_commit => fnd_api.g_false
5628: ,p_init_msg_list => fnd_api.g_false
5629: ,p_validation_level => fnd_api.g_valid_level_full
5630: ,p_instance_rec => l_instance_rec
5631: ,p_ext_attrib_values_tbl => l_extend_attrib_values_tbl
5624: END IF;
5625:
5626: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5627: ,p_commit => fnd_api.g_false
5628: ,p_init_msg_list => fnd_api.g_false
5629: ,p_validation_level => fnd_api.g_valid_level_full
5630: ,p_instance_rec => l_instance_rec
5631: ,p_ext_attrib_values_tbl => l_extend_attrib_values_tbl
5632: ,p_party_tbl => l_party_tbl
5625:
5626: CSI_ITEM_INSTANCE_PUB.UPDATE_ITEM_INSTANCE(p_api_version => 1.0
5627: ,p_commit => fnd_api.g_false
5628: ,p_init_msg_list => fnd_api.g_false
5629: ,p_validation_level => fnd_api.g_valid_level_full
5630: ,p_instance_rec => l_instance_rec
5631: ,p_ext_attrib_values_tbl => l_extend_attrib_values_tbl
5632: ,p_party_tbl => l_party_tbl
5633: ,p_account_tbl => l_account_tbl
5647: END IF; -- WIP Entity Id is null or not
5648:
5649: -- Updated by jaramana on October 15, 2007 since the CSI API seems to nullify return params
5650: IF (x_return_status IS NULL AND NVL(l_msg_count, 0) = 0) THEN
5651: x_return_status := FND_API.G_RET_STS_SUCCESS;
5652: END IF;
5653:
5654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_full_name, 'Exiting Procedure. x_return_status = ' || x_return_status);