13:
14: PROCEDURE get_qa_plan_results
15: (
16: p_api_version IN NUMBER := 1.0,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_default IN VARCHAR2 := FND_API.G_FALSE,
21: p_module_type IN VARCHAR2,
14: PROCEDURE get_qa_plan_results
15: (
16: p_api_version IN NUMBER := 1.0,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_default IN VARCHAR2 := FND_API.G_FALSE,
21: p_module_type IN VARCHAR2,
22: p_Workorder_Id IN NUMBER,
15: (
16: p_api_version IN NUMBER := 1.0,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_default IN VARCHAR2 := FND_API.G_FALSE,
21: p_module_type IN VARCHAR2,
22: p_Workorder_Id IN NUMBER,
23: p_Workorder_Number IN VARCHAR2,
16: p_api_version IN NUMBER := 1.0,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_default IN VARCHAR2 := FND_API.G_FALSE,
21: p_module_type IN VARCHAR2,
22: p_Workorder_Id IN NUMBER,
23: p_Workorder_Number IN VARCHAR2,
24: p_WoOperationId IN NUMBER,
114:
115:
116: BEGIN
117: -- Initialize API return status to success
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
119: x_QaPlan.QA_PLAN_ATR_TBL(0) := NULL;
120: x_QaResults.QA_RESULT_TBL(0).QA_PLAN_ATRVAL_TBL(0) := NULL;
121:
122: -- Standard call to check for call compatibility
119: x_QaPlan.QA_PLAN_ATR_TBL(0) := NULL;
120: x_QaResults.QA_RESULT_TBL(0).QA_PLAN_ATRVAL_TBL(0) := NULL;
121:
122: -- Standard call to check for call compatibility
123: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125: END IF;
126:
127: IF FND_API.To_Boolean(p_init_msg_list) THEN
120: x_QaResults.QA_RESULT_TBL(0).QA_PLAN_ATRVAL_TBL(0) := NULL;
121:
122: -- Standard call to check for call compatibility
123: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125: END IF;
126:
127: IF FND_API.To_Boolean(p_init_msg_list) THEN
128: FND_MSG_PUB.Initialize;
123: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125: END IF;
126:
127: IF FND_API.To_Boolean(p_init_msg_list) THEN
128: FND_MSG_PUB.Initialize;
129: END IF;
130:
131: -- Check Error Message stack.
131: -- Check Error Message stack.
132: IF(p_Workorder_Id IS NULL AND p_Workorder_Number IS NULL)THEN
133: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
134: FND_MSG_PUB.ADD;
135: RAISE FND_API.G_EXC_ERROR;
136: ELSIF (p_Workorder_Id IS NULL AND p_Workorder_Number IS NOT NULL)THEN
137: l_workorder_id := get_workorder_id(p_Workorder_Number);
138: ELSE
139: l_workorder_id := p_Workorder_Id;
140: END IF;
141:
142: x_msg_count := FND_MSG_PUB.count_msg;
143: IF x_msg_count > 0 THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146:
147: IF(p_WoOperationId IS NULL AND p_OperationSequence IS NULL)THEN
148: l_workorder_operation_id := NULL;
153: END IF;
154: --l_workorder_operation_id := NULL;
155: x_msg_count := FND_MSG_PUB.count_msg;
156: IF x_msg_count > 0 THEN
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159:
160: IF(l_workorder_operation_id IS NOT NULL)THEN
161: OPEN get_op_plan_csr(l_workorder_operation_id);
295: -- Check Error Message stack.
296: x_msg_count := FND_MSG_PUB.count_msg;
297:
298: EXCEPTION
299: WHEN FND_API.G_EXC_ERROR THEN
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
302: p_data => x_msg_data,
303: p_encoded => fnd_api.g_false);
296: x_msg_count := FND_MSG_PUB.count_msg;
297:
298: EXCEPTION
299: WHEN FND_API.G_EXC_ERROR THEN
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
302: p_data => x_msg_data,
303: p_encoded => fnd_api.g_false);
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
299: WHEN FND_API.G_EXC_ERROR THEN
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
302: p_data => x_msg_data,
303: p_encoded => fnd_api.g_false);
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
307: p_data => x_msg_data,
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
302: p_data => x_msg_data,
303: p_encoded => fnd_api.g_false);
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
307: p_data => x_msg_data,
308: p_encoded => fnd_api.g_false);
301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
302: p_data => x_msg_data,
303: p_encoded => fnd_api.g_false);
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
307: p_data => x_msg_data,
308: p_encoded => fnd_api.g_false);
309: WHEN OTHERS THEN
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
307: p_data => x_msg_data,
308: p_encoded => fnd_api.g_false);
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311:
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
306: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
307: p_data => x_msg_data,
308: p_encoded => fnd_api.g_false);
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311:
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
313: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
314: p_procedure_name => l_api_name,
315: p_error_text => SUBSTR(SQLERRM,1,500));
316: END IF;
317: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
318: p_data => x_msg_data,
319: p_encoded => fnd_api.g_false);
320: END get_qa_plan_results;
321:
322: FUNCTION get_workorder_id(p_Workorder_Number IN VARCHAR2) RETURN NUMBER
323: IS
334: IF(get_workorder_id_csr%NOTFOUND)THEN
335: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
336: FND_MSG_PUB.ADD;
337: CLOSE get_workorder_id_csr;
338: RAISE FND_API.G_EXC_ERROR;
339: END IF;
340: CLOSE get_workorder_id_csr;
341: RETURN l_workorder_id;
342: END get_workorder_id;
357: IF(get_workorder_operation_id_csr%NOTFOUND)THEN
358: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
359: FND_MSG_PUB.ADD;
360: CLOSE get_workorder_operation_id_csr;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363: CLOSE get_workorder_operation_id_csr;
364: RETURN l_workorder_operation_id;
365: END get_workorder_operation_id;
452: AND CURRENT_STATUS_CODE = c_status_old
453: AND NEXT_STATUS_CODE = c_status_new;
454:
455: BEGIN
456: x_return_status := FND_API.G_RET_STS_SUCCESS;
457:
458: IF p_x_workorder_rec.status_code IS NULL AND p_x_workorder_rec.status IS NOT NULL THEN
459: OPEN get_status_csr(p_x_workorder_rec.status);
460: FETCH get_status_csr INTO p_x_workorder_rec.status_code;
461: IF get_status_csr%NOTFOUND THEN
462: FND_MESSAGE.SET_NAME('AHL','AHL_PP_JOB_INV_STATUS_JSP');
463: FND_MSG_PUB.ADD;
464: CLOSE get_status_csr;
465: RAISE FND_API.G_EXC_ERROR;
466: ELSE
467: CLOSE get_status_csr;
468: END IF;
469: END IF;
477: FND_MESSAGE.SET_TOKEN('FROM_STATUS',p_curr_workorder_rec.status_code);
478: FND_MESSAGE.SET_TOKEN('TO_STATUS', p_x_workorder_rec.status_code);
479: FND_MSG_PUB.ADD;
480: CLOSE validate_status_csr;
481: RAISE FND_API.G_EXC_ERROR;
482: ELSE
483: CLOSE validate_status_csr;
484: END IF;
485: END IF;
502: l_prd_workorder_rec.DEPARTMENT_ID := p_x_workorder_rec.Department_Id;
503: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
504: l_prd_workorder_rec.STATUS_CODE := p_curr_workorder_rec.Status_Code;
505: l_prd_workorder_rec.STATUS_MEANING := NULL;
506: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
507: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
508: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
509: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
510: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
503: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
504: l_prd_workorder_rec.STATUS_CODE := p_curr_workorder_rec.Status_Code;
505: l_prd_workorder_rec.STATUS_MEANING := NULL;
506: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
507: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
508: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
509: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
510: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
511: l_prd_workorder_rec.SCHEDULED_END_DATE := p_x_workorder_rec.Scheduled_End_Date;
566:
567: AHL_PRD_WORKORDER_PVT.update_job
568: (
569: p_api_version => 1.0 ,
570: p_init_msg_list => FND_API.G_TRUE,
571: p_commit => FND_API.G_FALSE,
572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
573: p_default => FND_API.G_TRUE,
574: p_module_type => 'API',
567: AHL_PRD_WORKORDER_PVT.update_job
568: (
569: p_api_version => 1.0 ,
570: p_init_msg_list => FND_API.G_TRUE,
571: p_commit => FND_API.G_FALSE,
572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
573: p_default => FND_API.G_TRUE,
574: p_module_type => 'API',
575: x_return_status => x_return_status,
568: (
569: p_api_version => 1.0 ,
570: p_init_msg_list => FND_API.G_TRUE,
571: p_commit => FND_API.G_FALSE,
572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
573: p_default => FND_API.G_TRUE,
574: p_module_type => 'API',
575: x_return_status => x_return_status,
576: x_msg_count => x_msg_count,
569: p_api_version => 1.0 ,
570: p_init_msg_list => FND_API.G_TRUE,
571: p_commit => FND_API.G_FALSE,
572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
573: p_default => FND_API.G_TRUE,
574: p_module_type => 'API',
575: x_return_status => x_return_status,
576: x_msg_count => x_msg_count,
577: x_msg_data => x_msg_data,
578: p_wip_load_flag => 'Y',
579: p_x_prd_workorder_rec => l_prd_workorder_rec,
580: p_x_prd_workoper_tbl => l_prd_workoper_tbl
581: );
582: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
579: p_x_prd_workorder_rec => l_prd_workorder_rec,
580: p_x_prd_workoper_tbl => l_prd_workoper_tbl
581: );
582: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
587: p_x_workorder_rec.Header_Id := l_prd_workorder_rec.HEADER_ID;
653: --release Job
654: AHL_PRD_WORKORDER_PVT.release_visit_jobs
655: (
656: p_api_version => 1.0 ,
657: p_init_msg_list => FND_API.G_TRUE,
658: p_commit => FND_API.G_FALSE,
659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
660: p_default => FND_API.G_TRUE,
661: p_module_type => 'API',
654: AHL_PRD_WORKORDER_PVT.release_visit_jobs
655: (
656: p_api_version => 1.0 ,
657: p_init_msg_list => FND_API.G_TRUE,
658: p_commit => FND_API.G_FALSE,
659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
660: p_default => FND_API.G_TRUE,
661: p_module_type => 'API',
662: x_return_status => x_return_status,
655: (
656: p_api_version => 1.0 ,
657: p_init_msg_list => FND_API.G_TRUE,
658: p_commit => FND_API.G_FALSE,
659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
660: p_default => FND_API.G_TRUE,
661: p_module_type => 'API',
662: x_return_status => x_return_status,
663: x_msg_count => x_msg_count,
656: p_api_version => 1.0 ,
657: p_init_msg_list => FND_API.G_TRUE,
658: p_commit => FND_API.G_FALSE,
659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
660: p_default => FND_API.G_TRUE,
661: p_module_type => 'API',
662: x_return_status => x_return_status,
663: x_msg_count => x_msg_count,
664: x_msg_data => x_msg_data,
665: p_visit_id => NULL,
666: p_unit_effectivity_id => NULL,
667: p_workorder_id => p_curr_workorder_rec.Workorder_Id
668: );
669: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
670: RAISE FND_API.G_EXC_ERROR;
671: END IF;
672: ELSIF(p_x_workorder_rec.Status_Code IS NOT NULL AND p_x_workorder_rec.Status_Code = '7' AND p_curr_workorder_rec.Status_Code <> '7')THEN
673: -- update work order
666: p_unit_effectivity_id => NULL,
667: p_workorder_id => p_curr_workorder_rec.Workorder_Id
668: );
669: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
670: RAISE FND_API.G_EXC_ERROR;
671: END IF;
672: ELSIF(p_x_workorder_rec.Status_Code IS NOT NULL AND p_x_workorder_rec.Status_Code = '7' AND p_curr_workorder_rec.Status_Code <> '7')THEN
673: -- update work order
674: l_prd_workorder_rec.dml_operation := 'U';
686: l_prd_workorder_rec.DEPARTMENT_ID := p_x_workorder_rec.Department_Id;
687: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
688: l_prd_workorder_rec.STATUS_CODE := p_curr_workorder_rec.Status_Code;
689: l_prd_workorder_rec.STATUS_MEANING := NULL;
690: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
691: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
692: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
693: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
694: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
687: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
688: l_prd_workorder_rec.STATUS_CODE := p_curr_workorder_rec.Status_Code;
689: l_prd_workorder_rec.STATUS_MEANING := NULL;
690: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
691: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
692: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
693: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
694: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
695: l_prd_workorder_rec.SCHEDULED_END_DATE := p_x_workorder_rec.Scheduled_End_Date;
750:
751: AHL_PRD_WORKORDER_PVT.update_job
752: (
753: p_api_version => 1.0 ,
754: p_init_msg_list => FND_API.G_TRUE,
755: p_commit => FND_API.G_FALSE,
756: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
757: p_default => FND_API.G_TRUE,
758: p_module_type => 'API',
751: AHL_PRD_WORKORDER_PVT.update_job
752: (
753: p_api_version => 1.0 ,
754: p_init_msg_list => FND_API.G_TRUE,
755: p_commit => FND_API.G_FALSE,
756: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
757: p_default => FND_API.G_TRUE,
758: p_module_type => 'API',
759: x_return_status => x_return_status,
752: (
753: p_api_version => 1.0 ,
754: p_init_msg_list => FND_API.G_TRUE,
755: p_commit => FND_API.G_FALSE,
756: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
757: p_default => FND_API.G_TRUE,
758: p_module_type => 'API',
759: x_return_status => x_return_status,
760: x_msg_count => x_msg_count,
753: p_api_version => 1.0 ,
754: p_init_msg_list => FND_API.G_TRUE,
755: p_commit => FND_API.G_FALSE,
756: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
757: p_default => FND_API.G_TRUE,
758: p_module_type => 'API',
759: x_return_status => x_return_status,
760: x_msg_count => x_msg_count,
761: x_msg_data => x_msg_data,
762: p_wip_load_flag => 'Y',
763: p_x_prd_workorder_rec => l_prd_workorder_rec,
764: p_x_prd_workoper_tbl => l_prd_workoper_tbl
765: );
766: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
767: RAISE FND_API.G_EXC_ERROR;
768: END IF;
769:
770: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
763: p_x_prd_workorder_rec => l_prd_workorder_rec,
764: p_x_prd_workoper_tbl => l_prd_workoper_tbl
765: );
766: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
767: RAISE FND_API.G_EXC_ERROR;
768: END IF;
769:
770: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
771: p_x_workorder_rec.Header_Id := l_prd_workorder_rec.HEADER_ID;
837: --cancel job
838: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
839: (
840: p_api_version => 1.0 ,
841: p_init_msg_list => FND_API.G_TRUE,
842: p_commit => FND_API.G_FALSE,
843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
844: p_default => FND_API.G_TRUE,
845: p_module_type => 'API',
838: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
839: (
840: p_api_version => 1.0 ,
841: p_init_msg_list => FND_API.G_TRUE,
842: p_commit => FND_API.G_FALSE,
843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
844: p_default => FND_API.G_TRUE,
845: p_module_type => 'API',
846: x_return_status => x_return_status,
839: (
840: p_api_version => 1.0 ,
841: p_init_msg_list => FND_API.G_TRUE,
842: p_commit => FND_API.G_FALSE,
843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
844: p_default => FND_API.G_TRUE,
845: p_module_type => 'API',
846: x_return_status => x_return_status,
847: x_msg_count => x_msg_count,
840: p_api_version => 1.0 ,
841: p_init_msg_list => FND_API.G_TRUE,
842: p_commit => FND_API.G_FALSE,
843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
844: p_default => FND_API.G_TRUE,
845: p_module_type => 'API',
846: x_return_status => x_return_status,
847: x_msg_count => x_msg_count,
848: x_msg_data => x_msg_data,
849: p_visit_id => NULL,
850: p_unit_effectivity_id => NULL,
851: p_workorder_id => p_curr_workorder_rec.Workorder_Id
852: );
853: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: ELSIF(p_x_workorder_rec.Status_Code IS NOT NULL AND p_x_workorder_rec.Status_Code = '4' AND p_curr_workorder_rec.Status_Code <> 4)THEN
857:
850: p_unit_effectivity_id => NULL,
851: p_workorder_id => p_curr_workorder_rec.Workorder_Id
852: );
853: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: ELSIF(p_x_workorder_rec.Status_Code IS NOT NULL AND p_x_workorder_rec.Status_Code = '4' AND p_curr_workorder_rec.Status_Code <> 4)THEN
857:
858: -- update work order
871: l_prd_workorder_rec.DEPARTMENT_ID := p_x_workorder_rec.Department_Id;
872: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
873: l_prd_workorder_rec.STATUS_CODE := p_curr_workorder_rec.Status_Code;
874: l_prd_workorder_rec.STATUS_MEANING := NULL;
875: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
876: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
877: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
878: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
879: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
872: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
873: l_prd_workorder_rec.STATUS_CODE := p_curr_workorder_rec.Status_Code;
874: l_prd_workorder_rec.STATUS_MEANING := NULL;
875: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
876: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
877: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
878: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
879: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
880: l_prd_workorder_rec.SCHEDULED_END_DATE := p_x_workorder_rec.Scheduled_End_Date;
935:
936: AHL_PRD_WORKORDER_PVT.update_job
937: (
938: p_api_version => 1.0 ,
939: p_init_msg_list => FND_API.G_TRUE,
940: p_commit => FND_API.G_FALSE,
941: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
942: p_default => FND_API.G_TRUE,
943: p_module_type => 'API',
936: AHL_PRD_WORKORDER_PVT.update_job
937: (
938: p_api_version => 1.0 ,
939: p_init_msg_list => FND_API.G_TRUE,
940: p_commit => FND_API.G_FALSE,
941: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
942: p_default => FND_API.G_TRUE,
943: p_module_type => 'API',
944: x_return_status => x_return_status,
937: (
938: p_api_version => 1.0 ,
939: p_init_msg_list => FND_API.G_TRUE,
940: p_commit => FND_API.G_FALSE,
941: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
942: p_default => FND_API.G_TRUE,
943: p_module_type => 'API',
944: x_return_status => x_return_status,
945: x_msg_count => x_msg_count,
938: p_api_version => 1.0 ,
939: p_init_msg_list => FND_API.G_TRUE,
940: p_commit => FND_API.G_FALSE,
941: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
942: p_default => FND_API.G_TRUE,
943: p_module_type => 'API',
944: x_return_status => x_return_status,
945: x_msg_count => x_msg_count,
946: x_msg_data => x_msg_data,
947: p_wip_load_flag => 'Y',
948: p_x_prd_workorder_rec => l_prd_workorder_rec,
949: p_x_prd_workoper_tbl => l_prd_workoper_tbl
950: );
951: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
948: p_x_prd_workorder_rec => l_prd_workorder_rec,
949: p_x_prd_workoper_tbl => l_prd_workoper_tbl
950: );
951: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
956: p_x_workorder_rec.Header_Id := l_prd_workorder_rec.HEADER_ID;
1023: -- complete job
1024: AHL_COMPLETIONS_PVT.complete_workorder
1025: (
1026: p_api_version => 1.0 ,
1027: p_init_msg_list => FND_API.G_TRUE,
1028: p_commit => FND_API.G_FALSE,
1029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1030: p_default => FND_API.G_TRUE,
1031: p_module_type => 'API',
1024: AHL_COMPLETIONS_PVT.complete_workorder
1025: (
1026: p_api_version => 1.0 ,
1027: p_init_msg_list => FND_API.G_TRUE,
1028: p_commit => FND_API.G_FALSE,
1029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1030: p_default => FND_API.G_TRUE,
1031: p_module_type => 'API',
1032: x_return_status => x_return_status,
1025: (
1026: p_api_version => 1.0 ,
1027: p_init_msg_list => FND_API.G_TRUE,
1028: p_commit => FND_API.G_FALSE,
1029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1030: p_default => FND_API.G_TRUE,
1031: p_module_type => 'API',
1032: x_return_status => x_return_status,
1033: x_msg_count => x_msg_count,
1026: p_api_version => 1.0 ,
1027: p_init_msg_list => FND_API.G_TRUE,
1028: p_commit => FND_API.G_FALSE,
1029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1030: p_default => FND_API.G_TRUE,
1031: p_module_type => 'API',
1032: x_return_status => x_return_status,
1033: x_msg_count => x_msg_count,
1034: x_msg_data => x_msg_data,
1034: x_msg_data => x_msg_data,
1035: p_workorder_id => p_x_workorder_rec.Workorder_Id,
1036: p_object_version_no => p_x_workorder_rec.Object_Version_Number
1037: );
1038: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1041: ELSE
1042: -- update work order
1035: p_workorder_id => p_x_workorder_rec.Workorder_Id,
1036: p_object_version_no => p_x_workorder_rec.Object_Version_Number
1037: );
1038: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1041: ELSE
1042: -- update work order
1043: l_prd_workorder_rec.dml_operation := 'U';
1060: (p_x_workorder_rec.Status_Code IS NULL AND p_curr_workorder_rec.Status_Code IN ('6','19')) THEN
1061: l_prd_workorder_rec.HOLD_REASON_CODE := p_x_workorder_rec.HOLD_REASON_CODE;
1062: l_prd_workorder_rec.HOLD_REASON := p_x_workorder_rec.HOLD_REASON;
1063: ELSE
1064: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
1065: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
1066: END IF;
1067: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
1068: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
1061: l_prd_workorder_rec.HOLD_REASON_CODE := p_x_workorder_rec.HOLD_REASON_CODE;
1062: l_prd_workorder_rec.HOLD_REASON := p_x_workorder_rec.HOLD_REASON;
1063: ELSE
1064: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
1065: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
1066: END IF;
1067: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
1068: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
1069: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
1125:
1126: AHL_PRD_WORKORDER_PVT.update_job
1127: (
1128: p_api_version => 1.0 ,
1129: p_init_msg_list => FND_API.G_TRUE,
1130: p_commit => FND_API.G_FALSE,
1131: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1132: p_default => FND_API.G_TRUE,
1133: p_module_type => 'API',
1126: AHL_PRD_WORKORDER_PVT.update_job
1127: (
1128: p_api_version => 1.0 ,
1129: p_init_msg_list => FND_API.G_TRUE,
1130: p_commit => FND_API.G_FALSE,
1131: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1132: p_default => FND_API.G_TRUE,
1133: p_module_type => 'API',
1134: x_return_status => x_return_status,
1127: (
1128: p_api_version => 1.0 ,
1129: p_init_msg_list => FND_API.G_TRUE,
1130: p_commit => FND_API.G_FALSE,
1131: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1132: p_default => FND_API.G_TRUE,
1133: p_module_type => 'API',
1134: x_return_status => x_return_status,
1135: x_msg_count => x_msg_count,
1128: p_api_version => 1.0 ,
1129: p_init_msg_list => FND_API.G_TRUE,
1130: p_commit => FND_API.G_FALSE,
1131: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1132: p_default => FND_API.G_TRUE,
1133: p_module_type => 'API',
1134: x_return_status => x_return_status,
1135: x_msg_count => x_msg_count,
1136: x_msg_data => x_msg_data,
1137: p_wip_load_flag => 'Y',
1138: p_x_prd_workorder_rec => l_prd_workorder_rec,
1139: p_x_prd_workoper_tbl => l_prd_workoper_tbl
1140: );
1141: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
1138: p_x_prd_workorder_rec => l_prd_workorder_rec,
1139: p_x_prd_workoper_tbl => l_prd_workoper_tbl
1140: );
1141: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1142: RAISE FND_API.G_EXC_ERROR;
1143: END IF;
1144:
1145: p_x_workorder_rec.Batch_Id := l_prd_workorder_rec.BATCH_ID;
1146: p_x_workorder_rec.Header_Id := l_prd_workorder_rec.HEADER_ID;
1235: occurrence_tbl_index integer;
1236: l_rowElementCount integer;
1237:
1238: BEGIN
1239: x_return_status := FND_API.G_RET_STS_SUCCESS;
1240: IF(p_x_OP_QaResults.QA_RESULT_TBL IS NULL OR p_x_OP_QaResults.QA_RESULT_TBL.COUNT < 1)THEN
1241: RETURN;
1242: END IF;
1243:
1288:
1289: AHL_QA_RESULTS_PVT.submit_qa_results
1290: (
1291: p_api_version => 1.0,
1292: p_init_msg_list => FND_API.G_TRUE,
1293: p_commit => FND_API.G_FALSE,
1294: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1295: p_default => FND_API.G_FALSE,
1296: p_module_type => 'API',
1289: AHL_QA_RESULTS_PVT.submit_qa_results
1290: (
1291: p_api_version => 1.0,
1292: p_init_msg_list => FND_API.G_TRUE,
1293: p_commit => FND_API.G_FALSE,
1294: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1295: p_default => FND_API.G_FALSE,
1296: p_module_type => 'API',
1297: x_return_status => x_return_status,
1290: (
1291: p_api_version => 1.0,
1292: p_init_msg_list => FND_API.G_TRUE,
1293: p_commit => FND_API.G_FALSE,
1294: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1295: p_default => FND_API.G_FALSE,
1296: p_module_type => 'API',
1297: x_return_status => x_return_status,
1298: x_msg_count => x_msg_count,
1291: p_api_version => 1.0,
1292: p_init_msg_list => FND_API.G_TRUE,
1293: p_commit => FND_API.G_FALSE,
1294: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1295: p_default => FND_API.G_FALSE,
1296: p_module_type => 'API',
1297: x_return_status => x_return_status,
1298: x_msg_count => x_msg_count,
1299: x_msg_data => x_msg_data,
1308: p_id_or_value => 'VALUE',
1309: p_x_collection_id => l_QA_RESULTS.Collection_Id,
1310: p_x_occurrence_tbl => l_occurrence_tbl
1311: );
1312: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: END IF;
1315: p_x_OP_QaResults.Collection_Id := l_QA_RESULTS.Collection_Id;
1316: p_x_OP_QaResults.Plan_Id := l_QA_PLAN.Plan_Id;
1309: p_x_collection_id => l_QA_RESULTS.Collection_Id,
1310: p_x_occurrence_tbl => l_occurrence_tbl
1311: );
1312: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1313: RAISE FND_API.G_EXC_ERROR;
1314: END IF;
1315: p_x_OP_QaResults.Collection_Id := l_QA_RESULTS.Collection_Id;
1316: p_x_OP_QaResults.Plan_Id := l_QA_PLAN.Plan_Id;
1317: END process_op_quality;
1354:
1355:
1356:
1357: BEGIN
1358: x_return_status := FND_API.G_RET_STS_SUCCESS;
1359: IF(p_x_Operations IS NULL OR p_x_Operations.COUNT < 1)THEN
1360: RETURN;
1361: END IF;
1362: j :=1;--keep this as 1 as thats how called package recognize things..
1375: x_msg_count => x_msg_count,
1376: x_msg_data => x_msg_data
1377: );
1378: --DBMS_OUTPUT.put_line('x_return_status :i: ' || x_return_status);
1379: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382: -- Quality update bumps up the obj version number
1383: OPEN get_current_obj_ver_csr(p_x_Operations(i).Workorder_Operation_Id);
1376: x_msg_data => x_msg_data
1377: );
1378: --DBMS_OUTPUT.put_line('x_return_status :i: ' || x_return_status);
1379: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382: -- Quality update bumps up the obj version number
1383: OPEN get_current_obj_ver_csr(p_x_Operations(i).Workorder_Operation_Id);
1384: FETCH get_current_obj_ver_csr INTO p_x_Operations(i).Object_Version_Number,l_curr_status;
1405: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_OPER_INV_CR');
1406: FND_MESSAGE.SET_TOKEN('RECORD',l_prd_operation_tbl(j).operation_sequence_num,false);
1407: FND_MSG_PUB.ADD;
1408: CLOSE get_route_id_validation_csr;
1409: RAISE FND_API.G_EXC_ERROR;
1410: END IF;
1411: CLOSE get_route_id_validation_csr;
1412: END IF;
1413: l_prd_operation_tbl(j).OPERATION_DESCRIPTION := p_x_Operations(i).Description;
1420: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_UPDOP_INV_OP_STATUS');
1421: FND_MESSAGE.SET_TOKEN('OP_SEQ', p_x_Operations(i).Operation_Sequence_Number);
1422: FND_MSG_PUB.ADD;
1423: CLOSE get_operation_status;
1424: RAISE FND_API.G_EXC_ERROR;
1425: END IF;
1426: CLOSE get_operation_status;
1427: END IF;
1428: --l_prd_operation_tbl(j).status_meaning := p_x_Operations(i).Status;
1465: ----DBMS_OUTPUT.put_line('op :i:statusCode: processing operations : ' || l_prd_operation_tbl.COUNT);
1466: AHL_PRD_OPERATIONS_PVT.PROCESS_OPERATIONS
1467: (
1468: p_api_version => 1.0 ,
1469: p_init_msg_list => FND_API.G_TRUE,
1470: p_commit => FND_API.G_FALSE,
1471: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1472: p_default => FND_API.G_TRUE,
1473: p_module_type => 'API',
1466: AHL_PRD_OPERATIONS_PVT.PROCESS_OPERATIONS
1467: (
1468: p_api_version => 1.0 ,
1469: p_init_msg_list => FND_API.G_TRUE,
1470: p_commit => FND_API.G_FALSE,
1471: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1472: p_default => FND_API.G_TRUE,
1473: p_module_type => 'API',
1474: p_wip_mass_load_flag => 'Y',
1467: (
1468: p_api_version => 1.0 ,
1469: p_init_msg_list => FND_API.G_TRUE,
1470: p_commit => FND_API.G_FALSE,
1471: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1472: p_default => FND_API.G_TRUE,
1473: p_module_type => 'API',
1474: p_wip_mass_load_flag => 'Y',
1475: x_return_status => x_return_status,
1468: p_api_version => 1.0 ,
1469: p_init_msg_list => FND_API.G_TRUE,
1470: p_commit => FND_API.G_FALSE,
1471: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1472: p_default => FND_API.G_TRUE,
1473: p_module_type => 'API',
1474: p_wip_mass_load_flag => 'Y',
1475: x_return_status => x_return_status,
1476: x_msg_count => x_msg_count,
1476: x_msg_count => x_msg_count,
1477: x_msg_data => x_msg_data,
1478: p_x_prd_operation_tbl => l_prd_operation_tbl
1479: );
1480: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1481: RAISE FND_API.G_EXC_ERROR;
1482: END IF;
1483: j:= 1;
1484: FOR i IN l_prd_operation_tbl.FIRST..l_prd_operation_tbl.LAST LOOP
1477: x_msg_data => x_msg_data,
1478: p_x_prd_operation_tbl => l_prd_operation_tbl
1479: );
1480: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1481: RAISE FND_API.G_EXC_ERROR;
1482: END IF;
1483: j:= 1;
1484: FOR i IN l_prd_operation_tbl.FIRST..l_prd_operation_tbl.LAST LOOP
1485: l_out_Operations(j).Workorder_Operation_Id := l_prd_operation_tbl(i).workorder_operation_id;
1532: CLOSE get_current_obj_ver_csr;
1533: AHL_COMPLETIONS_PVT.complete_operation
1534: (
1535: p_api_version => 1.0,
1536: p_init_msg_list => FND_API.G_TRUE,
1537: p_commit => FND_API.G_FALSE,
1538: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1539: p_default => FND_API.G_FALSE,
1540: p_module_type => 'API',
1533: AHL_COMPLETIONS_PVT.complete_operation
1534: (
1535: p_api_version => 1.0,
1536: p_init_msg_list => FND_API.G_TRUE,
1537: p_commit => FND_API.G_FALSE,
1538: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1539: p_default => FND_API.G_FALSE,
1540: p_module_type => 'API',
1541: x_return_status => x_return_status,
1534: (
1535: p_api_version => 1.0,
1536: p_init_msg_list => FND_API.G_TRUE,
1537: p_commit => FND_API.G_FALSE,
1538: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1539: p_default => FND_API.G_FALSE,
1540: p_module_type => 'API',
1541: x_return_status => x_return_status,
1542: x_msg_count => x_msg_count,
1535: p_api_version => 1.0,
1536: p_init_msg_list => FND_API.G_TRUE,
1537: p_commit => FND_API.G_FALSE,
1538: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1539: p_default => FND_API.G_FALSE,
1540: p_module_type => 'API',
1541: x_return_status => x_return_status,
1542: x_msg_count => x_msg_count,
1543: x_msg_data => x_msg_data,
1543: x_msg_data => x_msg_data,
1544: p_workorder_operation_id => l_out_Operations(j).Workorder_Operation_Id,
1545: p_object_version_no => l_out_Operations(j).Object_Version_Number
1546: );
1547: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: END IF;
1551: OPEN get_current_obj_ver_csr(l_out_Operations(j).Workorder_Operation_Id);
1544: p_workorder_operation_id => l_out_Operations(j).Workorder_Operation_Id,
1545: p_object_version_no => l_out_Operations(j).Object_Version_Number
1546: );
1547: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550: END IF;
1551: OPEN get_current_obj_ver_csr(l_out_Operations(j).Workorder_Operation_Id);
1552: FETCH get_current_obj_ver_csr INTO l_out_Operations(j).Object_Version_Number,l_out_Operations(j).Status_Code;
1570: ) IS
1571: l_req_material_tbl AHL_PP_MATERIALS_PVT.Req_Material_Tbl_Type;
1572: j INTEGER;
1573: BEGIN
1574: x_return_status := FND_API.G_RET_STS_SUCCESS;
1575: IF(p_x_MaterialRequirements IS NULL OR p_x_MaterialRequirements.COUNT < 1)THEN
1576: RETURN;
1577: END IF;
1578: j := 1;
1623: j := j+1;
1624: END LOOP;
1625: AHL_PP_MATERIALS_PVT.Process_Material_Request (
1626: p_api_version => 1.0 ,
1627: p_init_msg_list => FND_API.G_TRUE,
1628: p_commit => FND_API.G_FALSE,
1629: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1630: p_module_type => 'API',
1631: p_x_req_material_tbl => l_req_material_tbl,
1624: END LOOP;
1625: AHL_PP_MATERIALS_PVT.Process_Material_Request (
1626: p_api_version => 1.0 ,
1627: p_init_msg_list => FND_API.G_TRUE,
1628: p_commit => FND_API.G_FALSE,
1629: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1630: p_module_type => 'API',
1631: p_x_req_material_tbl => l_req_material_tbl,
1632: x_return_status => x_return_status,
1625: AHL_PP_MATERIALS_PVT.Process_Material_Request (
1626: p_api_version => 1.0 ,
1627: p_init_msg_list => FND_API.G_TRUE,
1628: p_commit => FND_API.G_FALSE,
1629: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1630: p_module_type => 'API',
1631: p_x_req_material_tbl => l_req_material_tbl,
1632: x_return_status => x_return_status,
1633: x_msg_count => x_msg_count,
1632: x_return_status => x_return_status,
1633: x_msg_count => x_msg_count,
1634: x_msg_data => x_msg_data
1635: );
1636: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1637: RAISE FND_API.G_EXC_ERROR;
1638: END IF;
1639: j := 1;
1640: FOR i IN l_req_material_tbl.FIRST..l_req_material_tbl.LAST LOOP
1633: x_msg_count => x_msg_count,
1634: x_msg_data => x_msg_data
1635: );
1636: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1637: RAISE FND_API.G_EXC_ERROR;
1638: END IF;
1639: j := 1;
1640: FOR i IN l_req_material_tbl.FIRST..l_req_material_tbl.LAST LOOP
1641: p_x_MaterialRequirements(j).Scheduled_Material_Id := l_req_material_tbl(i).SCHEDULE_MATERIAL_ID;
1705: l_rowElementCount integer;
1706:
1707:
1708: BEGIN
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710: IF(p_x_WO_QaResults.QA_RESULT_TBL IS NULL OR p_x_WO_QaResults.QA_RESULT_TBL.COUNT < 1)THEN
1711: RETURN;
1712: END IF;
1713:
1757:
1758: AHL_QA_RESULTS_PVT.submit_qa_results
1759: (
1760: p_api_version => 1.0,
1761: p_init_msg_list => FND_API.G_TRUE,
1762: p_commit => FND_API.G_FALSE,
1763: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1764: p_default => FND_API.G_FALSE,
1765: p_module_type => 'API',
1758: AHL_QA_RESULTS_PVT.submit_qa_results
1759: (
1760: p_api_version => 1.0,
1761: p_init_msg_list => FND_API.G_TRUE,
1762: p_commit => FND_API.G_FALSE,
1763: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1764: p_default => FND_API.G_FALSE,
1765: p_module_type => 'API',
1766: x_return_status => x_return_status,
1759: (
1760: p_api_version => 1.0,
1761: p_init_msg_list => FND_API.G_TRUE,
1762: p_commit => FND_API.G_FALSE,
1763: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1764: p_default => FND_API.G_FALSE,
1765: p_module_type => 'API',
1766: x_return_status => x_return_status,
1767: x_msg_count => x_msg_count,
1760: p_api_version => 1.0,
1761: p_init_msg_list => FND_API.G_TRUE,
1762: p_commit => FND_API.G_FALSE,
1763: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1764: p_default => FND_API.G_FALSE,
1765: p_module_type => 'API',
1766: x_return_status => x_return_status,
1767: x_msg_count => x_msg_count,
1768: x_msg_data => x_msg_data,
1777: p_id_or_value => 'VALUE',
1778: p_x_collection_id => l_QA_RESULTS.Collection_Id,
1779: p_x_occurrence_tbl => l_occurrence_tbl
1780: );
1781: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1782: RAISE FND_API.G_EXC_ERROR;
1783: END IF;
1784: p_x_WO_QaResults.Collection_Id := l_QA_RESULTS.Collection_Id;
1785: p_x_WO_QaResults.Plan_Id := l_QA_PLAN.Plan_Id;
1778: p_x_collection_id => l_QA_RESULTS.Collection_Id,
1779: p_x_occurrence_tbl => l_occurrence_tbl
1780: );
1781: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
1782: RAISE FND_API.G_EXC_ERROR;
1783: END IF;
1784: p_x_WO_QaResults.Collection_Id := l_QA_RESULTS.Collection_Id;
1785: p_x_WO_QaResults.Plan_Id := l_QA_PLAN.Plan_Id;
1786: END process_wo_quality;
1796: l_res_txns_tbl AHL_PRD_RESOURCE_TRANX_PVT.PRD_RESOURCE_TXNS_TBL;
1797: j INTEGER;
1798: l_dummy_ResourceTransactions RES_TXNS_TBL_TYPE;
1799: BEGIN
1800: x_return_status := FND_API.G_RET_STS_SUCCESS;
1801: IF(p_x_ResourceTransactions IS NULL OR p_x_ResourceTransactions.COUNT < 1)THEN
1802: RETURN;
1803: END IF;
1804: x_return_status := FND_API.G_RET_STS_SUCCESS;
1800: x_return_status := FND_API.G_RET_STS_SUCCESS;
1801: IF(p_x_ResourceTransactions IS NULL OR p_x_ResourceTransactions.COUNT < 1)THEN
1802: RETURN;
1803: END IF;
1804: x_return_status := FND_API.G_RET_STS_SUCCESS;
1805: j :=1;
1806: FOR i IN p_x_ResourceTransactions.FIRST..p_x_ResourceTransactions.LAST LOOP
1807: l_res_txns_tbl(j).WORKORDER_ID := p_workorder_rec.Workorder_Id;
1808: l_res_txns_tbl(j).WORKORDER_OPERATION_ID := p_x_ResourceTransactions(i).Workorder_Operation_Id;
1837: END LOOP;
1838: AHL_PRD_RESOURCE_TRANX_PVT.process_resource_txns
1839: (
1840: p_api_version => 1.0 ,
1841: p_init_msg_list => FND_API.G_TRUE,
1842: p_commit => FND_API.G_FALSE,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_default => FND_API.G_TRUE,
1845: p_module_type => 'API',
1838: AHL_PRD_RESOURCE_TRANX_PVT.process_resource_txns
1839: (
1840: p_api_version => 1.0 ,
1841: p_init_msg_list => FND_API.G_TRUE,
1842: p_commit => FND_API.G_FALSE,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_default => FND_API.G_TRUE,
1845: p_module_type => 'API',
1846: x_return_status => x_return_status,
1839: (
1840: p_api_version => 1.0 ,
1841: p_init_msg_list => FND_API.G_TRUE,
1842: p_commit => FND_API.G_FALSE,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_default => FND_API.G_TRUE,
1845: p_module_type => 'API',
1846: x_return_status => x_return_status,
1847: x_msg_count => x_msg_count,
1840: p_api_version => 1.0 ,
1841: p_init_msg_list => FND_API.G_TRUE,
1842: p_commit => FND_API.G_FALSE,
1843: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1844: p_default => FND_API.G_TRUE,
1845: p_module_type => 'API',
1846: x_return_status => x_return_status,
1847: x_msg_count => x_msg_count,
1848: x_msg_data => x_msg_data,
1897:
1898: l_dummy_ResourceRequirements RES_REQUIREMENTS_TBL_TYPE;
1899:
1900: BEGIN
1901: x_return_status := FND_API.G_RET_STS_SUCCESS;
1902: IF(p_x_ResourceRequirements IS NULL OR p_x_ResourceRequirements.COUNT < 1)THEN
1903: RETURN;
1904: END IF;
1905: j :=1;
1927: l_cre_res_reqmts(j).Oper_End_Date := p_x_ResourceRequirements(i).Operation_End_Date;
1928: l_cre_res_reqmts(j).Duration := p_x_ResourceRequirements(i).Duration;
1929: l_cre_res_reqmts(j).Quantity := p_x_ResourceRequirements(i).Quantity;
1930: IF(l_cre_res_reqmts(j).Duration IS NOT NULL AND l_cre_res_reqmts(j).Quantity IS NOT NULL AND
1931: l_cre_res_reqmts(j).Duration <> FND_API.G_MISS_NUM AND l_cre_res_reqmts(j).Quantity <> FND_API.G_MISS_NUM)THEN
1932: l_cre_res_reqmts(j).Duration := l_cre_res_reqmts(j).Duration * l_cre_res_reqmts(j).Quantity;
1933: END IF;
1934: l_cre_res_reqmts(j).Set_Up := p_x_ResourceRequirements(i).Set_Up;
1935: l_cre_res_reqmts(j).UOM_Code := p_x_ResourceRequirements(i).UOM_Code;
1991: l_upd_res_reqmts(k).Oper_End_Date := p_x_ResourceRequirements(i).Operation_End_Date;
1992: l_upd_res_reqmts(k).Duration := p_x_ResourceRequirements(i).Duration;
1993: l_upd_res_reqmts(k).Quantity := p_x_ResourceRequirements(i).Quantity;
1994: IF(l_upd_res_reqmts(k).Duration IS NOT NULL AND l_upd_res_reqmts(k).Quantity IS NOT NULL AND
1995: l_upd_res_reqmts(k).Duration <> FND_API.G_MISS_NUM AND l_upd_res_reqmts(k).Quantity <> FND_API.G_MISS_NUM)THEN
1996: l_upd_res_reqmts(k).Duration := l_upd_res_reqmts(k).Duration * l_upd_res_reqmts(k).Quantity;
1997: END IF;
1998: l_upd_res_reqmts(k).Set_Up := p_x_ResourceRequirements(i).Set_Up;
1999: l_upd_res_reqmts(k).UOM_Code := p_x_ResourceRequirements(i).UOM_Code;
2059: p_x_ResourceRequirements := l_dummy_ResourceRequirements;--initialize
2060: IF(l_del_res_reqmts IS NOT NULL AND l_del_res_reqmts.COUNT > 0)THEN
2061: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2062: p_api_version => 1.0,
2063: p_init_msg_list => FND_API.G_TRUE,
2064: p_commit => FND_API.G_FALSE,
2065: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2066: p_module_type => 'API',
2067: p_operation_flag => 'D',
2060: IF(l_del_res_reqmts IS NOT NULL AND l_del_res_reqmts.COUNT > 0)THEN
2061: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2062: p_api_version => 1.0,
2063: p_init_msg_list => FND_API.G_TRUE,
2064: p_commit => FND_API.G_FALSE,
2065: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2066: p_module_type => 'API',
2067: p_operation_flag => 'D',
2068: p_interface_flag => 'Y',
2061: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2062: p_api_version => 1.0,
2063: p_init_msg_list => FND_API.G_TRUE,
2064: p_commit => FND_API.G_FALSE,
2065: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2066: p_module_type => 'API',
2067: p_operation_flag => 'D',
2068: p_interface_flag => 'Y',
2069: p_x_resrc_require_tbl => l_del_res_reqmts,
2069: p_x_resrc_require_tbl => l_del_res_reqmts,
2070: x_return_status => x_return_status,
2071: x_msg_count => x_msg_count,
2072: x_msg_data => x_msg_data);
2073: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2074: RAISE FND_API.G_EXC_ERROR;
2075: END IF;
2076: END IF;
2077: IF(l_upd_res_reqmts IS NOT NULL AND l_upd_res_reqmts.COUNT > 0)THEN
2070: x_return_status => x_return_status,
2071: x_msg_count => x_msg_count,
2072: x_msg_data => x_msg_data);
2073: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2074: RAISE FND_API.G_EXC_ERROR;
2075: END IF;
2076: END IF;
2077: IF(l_upd_res_reqmts IS NOT NULL AND l_upd_res_reqmts.COUNT > 0)THEN
2078: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2076: END IF;
2077: IF(l_upd_res_reqmts IS NOT NULL AND l_upd_res_reqmts.COUNT > 0)THEN
2078: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2079: p_api_version => 1.0,
2080: p_init_msg_list => FND_API.G_TRUE,
2081: p_commit => FND_API.G_FALSE,
2082: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2083: p_module_type => 'API',
2084: p_operation_flag => 'U',
2077: IF(l_upd_res_reqmts IS NOT NULL AND l_upd_res_reqmts.COUNT > 0)THEN
2078: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2079: p_api_version => 1.0,
2080: p_init_msg_list => FND_API.G_TRUE,
2081: p_commit => FND_API.G_FALSE,
2082: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2083: p_module_type => 'API',
2084: p_operation_flag => 'U',
2085: p_interface_flag => 'Y',
2078: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2079: p_api_version => 1.0,
2080: p_init_msg_list => FND_API.G_TRUE,
2081: p_commit => FND_API.G_FALSE,
2082: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2083: p_module_type => 'API',
2084: p_operation_flag => 'U',
2085: p_interface_flag => 'Y',
2086: p_x_resrc_require_tbl => l_upd_res_reqmts,
2086: p_x_resrc_require_tbl => l_upd_res_reqmts,
2087: x_return_status => x_return_status,
2088: x_msg_count => x_msg_count,
2089: x_msg_data => x_msg_data);
2090: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2091: RAISE FND_API.G_EXC_ERROR;
2092: END IF;
2093: FOR i IN l_upd_res_reqmts.FIRST..l_upd_res_reqmts.LAST LOOP
2094: p_x_ResourceRequirements(j).Operation_Resource_Id := l_upd_res_reqmts(i).Operation_Resource_Id;
2087: x_return_status => x_return_status,
2088: x_msg_count => x_msg_count,
2089: x_msg_data => x_msg_data);
2090: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2091: RAISE FND_API.G_EXC_ERROR;
2092: END IF;
2093: FOR i IN l_upd_res_reqmts.FIRST..l_upd_res_reqmts.LAST LOOP
2094: p_x_ResourceRequirements(j).Operation_Resource_Id := l_upd_res_reqmts(i).Operation_Resource_Id;
2095: p_x_ResourceRequirements(j).Object_Version_Number := l_upd_res_reqmts(i).Object_Version_Number;
2154: END IF;
2155: IF(l_cre_res_reqmts IS NOT NULL AND l_cre_res_reqmts.COUNT >0)THEN
2156: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2157: p_api_version => 1.0,
2158: p_init_msg_list => FND_API.G_TRUE,
2159: p_commit => FND_API.G_FALSE,
2160: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2161: p_module_type => 'API',
2162: p_operation_flag => 'C',
2155: IF(l_cre_res_reqmts IS NOT NULL AND l_cre_res_reqmts.COUNT >0)THEN
2156: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2157: p_api_version => 1.0,
2158: p_init_msg_list => FND_API.G_TRUE,
2159: p_commit => FND_API.G_FALSE,
2160: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2161: p_module_type => 'API',
2162: p_operation_flag => 'C',
2163: p_interface_flag => 'Y',
2156: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require(
2157: p_api_version => 1.0,
2158: p_init_msg_list => FND_API.G_TRUE,
2159: p_commit => FND_API.G_FALSE,
2160: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2161: p_module_type => 'API',
2162: p_operation_flag => 'C',
2163: p_interface_flag => 'Y',
2164: p_x_resrc_require_tbl => l_cre_res_reqmts,
2164: p_x_resrc_require_tbl => l_cre_res_reqmts,
2165: x_return_status => x_return_status,
2166: x_msg_count => x_msg_count,
2167: x_msg_data => x_msg_data);
2168: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2171: FOR i IN l_cre_res_reqmts.FIRST..l_cre_res_reqmts.LAST LOOP
2172: p_x_ResourceRequirements(j).Operation_Resource_Id := l_cre_res_reqmts(i).Operation_Resource_Id;
2165: x_return_status => x_return_status,
2166: x_msg_count => x_msg_count,
2167: x_msg_data => x_msg_data);
2168: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2171: FOR i IN l_cre_res_reqmts.FIRST..l_cre_res_reqmts.LAST LOOP
2172: p_x_ResourceRequirements(j).Operation_Resource_Id := l_cre_res_reqmts(i).Operation_Resource_Id;
2173: p_x_ResourceRequirements(j).Object_Version_Number := l_cre_res_reqmts(i).Object_Version_Number;
2250:
2251: l_dummy_ResourceAssignments RES_ASSIGNMENTS_TBL_TYPE;
2252:
2253: BEGIN
2254: x_return_status := FND_API.G_RET_STS_SUCCESS;
2255: IF(p_x_ResourceAssignments IS NULL OR p_x_ResourceAssignments.COUNT < 1)THEN
2256: RETURN;
2257: END IF;
2258: j :=1;
2369: p_x_ResourceAssignments := l_dummy_ResourceAssignments;--initialize;
2370: IF(l_del_res_assmts IS NOT NULL AND l_del_res_assmts.COUNT >0)THEN
2371: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2372: p_api_version => 1.0 ,
2373: p_init_msg_list => FND_API.G_TRUE,
2374: p_commit => FND_API.G_FALSE,
2375: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2376: p_module_type => 'API',
2377: p_operation_flag => 'D',
2370: IF(l_del_res_assmts IS NOT NULL AND l_del_res_assmts.COUNT >0)THEN
2371: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2372: p_api_version => 1.0 ,
2373: p_init_msg_list => FND_API.G_TRUE,
2374: p_commit => FND_API.G_FALSE,
2375: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2376: p_module_type => 'API',
2377: p_operation_flag => 'D',
2378: p_x_resrc_assign_tbl => l_del_res_assmts,
2371: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2372: p_api_version => 1.0 ,
2373: p_init_msg_list => FND_API.G_TRUE,
2374: p_commit => FND_API.G_FALSE,
2375: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2376: p_module_type => 'API',
2377: p_operation_flag => 'D',
2378: p_x_resrc_assign_tbl => l_del_res_assmts,
2379: x_return_status => x_return_status,
2379: x_return_status => x_return_status,
2380: x_msg_count => x_msg_count,
2381: x_msg_data => x_msg_data
2382: );
2383: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: END IF;
2386: END IF;
2387: IF(l_upd_res_assmts IS NOT NULL AND l_upd_res_assmts.COUNT >0)THEN
2380: x_msg_count => x_msg_count,
2381: x_msg_data => x_msg_data
2382: );
2383: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: END IF;
2386: END IF;
2387: IF(l_upd_res_assmts IS NOT NULL AND l_upd_res_assmts.COUNT >0)THEN
2388: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2386: END IF;
2387: IF(l_upd_res_assmts IS NOT NULL AND l_upd_res_assmts.COUNT >0)THEN
2388: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2389: p_api_version => 1.0 ,
2390: p_init_msg_list => FND_API.G_TRUE,
2391: p_commit => FND_API.G_FALSE,
2392: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2393: p_module_type => 'API',
2394: p_operation_flag => 'U',
2387: IF(l_upd_res_assmts IS NOT NULL AND l_upd_res_assmts.COUNT >0)THEN
2388: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2389: p_api_version => 1.0 ,
2390: p_init_msg_list => FND_API.G_TRUE,
2391: p_commit => FND_API.G_FALSE,
2392: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2393: p_module_type => 'API',
2394: p_operation_flag => 'U',
2395: p_x_resrc_assign_tbl => l_upd_res_assmts,
2388: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2389: p_api_version => 1.0 ,
2390: p_init_msg_list => FND_API.G_TRUE,
2391: p_commit => FND_API.G_FALSE,
2392: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2393: p_module_type => 'API',
2394: p_operation_flag => 'U',
2395: p_x_resrc_assign_tbl => l_upd_res_assmts,
2396: x_return_status => x_return_status,
2396: x_return_status => x_return_status,
2397: x_msg_count => x_msg_count,
2398: x_msg_data => x_msg_data
2399: );
2400: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: FOR i IN l_upd_res_assmts.FIRST..l_upd_res_assmts.LAST LOOP
2404: p_x_ResourceAssignments(j).Assignment_Id := l_upd_res_assmts(i).ASSIGNMENT_ID;
2397: x_msg_count => x_msg_count,
2398: x_msg_data => x_msg_data
2399: );
2400: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2401: RAISE FND_API.G_EXC_ERROR;
2402: END IF;
2403: FOR i IN l_upd_res_assmts.FIRST..l_upd_res_assmts.LAST LOOP
2404: p_x_ResourceAssignments(j).Assignment_Id := l_upd_res_assmts(i).ASSIGNMENT_ID;
2405: p_x_ResourceAssignments(j).Object_Version_Number := l_upd_res_assmts(i).OBJECT_VERSION_NUMBER;
2449: END IF;
2450: IF(l_cre_res_assmts IS NOT NULL AND l_cre_res_assmts.COUNT >0)THEN
2451: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2452: p_api_version => 1.0 ,
2453: p_init_msg_list => FND_API.G_TRUE,
2454: p_commit => FND_API.G_FALSE,
2455: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2456: p_module_type => 'API',
2457: p_operation_flag => 'C',
2450: IF(l_cre_res_assmts IS NOT NULL AND l_cre_res_assmts.COUNT >0)THEN
2451: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2452: p_api_version => 1.0 ,
2453: p_init_msg_list => FND_API.G_TRUE,
2454: p_commit => FND_API.G_FALSE,
2455: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2456: p_module_type => 'API',
2457: p_operation_flag => 'C',
2458: p_x_resrc_assign_tbl => l_cre_res_assmts,
2451: AHL_PP_RESRC_ASSIGN_PVT.Process_Resrc_Assign (
2452: p_api_version => 1.0 ,
2453: p_init_msg_list => FND_API.G_TRUE,
2454: p_commit => FND_API.G_FALSE,
2455: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2456: p_module_type => 'API',
2457: p_operation_flag => 'C',
2458: p_x_resrc_assign_tbl => l_cre_res_assmts,
2459: x_return_status => x_return_status,
2459: x_return_status => x_return_status,
2460: x_msg_count => x_msg_count,
2461: x_msg_data => x_msg_data
2462: );
2463: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2464: RAISE FND_API.G_EXC_ERROR;
2465: END IF;
2466: FOR i IN l_cre_res_assmts.FIRST..l_cre_res_assmts.LAST LOOP
2467: p_x_ResourceAssignments(j).Assignment_Id := l_cre_res_assmts(i).ASSIGNMENT_ID;
2460: x_msg_count => x_msg_count,
2461: x_msg_data => x_msg_data
2462: );
2463: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2464: RAISE FND_API.G_EXC_ERROR;
2465: END IF;
2466: FOR i IN l_cre_res_assmts.FIRST..l_cre_res_assmts.LAST LOOP
2467: p_x_ResourceAssignments(j).Assignment_Id := l_cre_res_assmts(i).ASSIGNMENT_ID;
2468: p_x_ResourceAssignments(j).Object_Version_Number := l_cre_res_assmts(i).OBJECT_VERSION_NUMBER;
2514:
2515: PROCEDURE process_Unclose_Workorder
2516: (
2517: p_api_version IN NUMBER := 1.0,
2518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2521: p_default IN VARCHAR2 := FND_API.G_FALSE,
2522: p_module_type IN VARCHAR2 := NULL,
2515: PROCEDURE process_Unclose_Workorder
2516: (
2517: p_api_version IN NUMBER := 1.0,
2518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2521: p_default IN VARCHAR2 := FND_API.G_FALSE,
2522: p_module_type IN VARCHAR2 := NULL,
2523: x_return_status OUT NOCOPY VARCHAR2,
2516: (
2517: p_api_version IN NUMBER := 1.0,
2518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2521: p_default IN VARCHAR2 := FND_API.G_FALSE,
2522: p_module_type IN VARCHAR2 := NULL,
2523: x_return_status OUT NOCOPY VARCHAR2,
2524: x_msg_count OUT NOCOPY NUMBER,
2517: p_api_version IN NUMBER := 1.0,
2518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2521: p_default IN VARCHAR2 := FND_API.G_FALSE,
2522: p_module_type IN VARCHAR2 := NULL,
2523: x_return_status OUT NOCOPY VARCHAR2,
2524: x_msg_count OUT NOCOPY NUMBER,
2525: x_msg_data OUT NOCOPY VARCHAR2,
2537: l_prd_workorder_rec AHL_PRD_WORKORDER_PVT.prd_workorder_rec;
2538:
2539: BEGIN
2540:
2541: x_return_status := FND_API.G_RET_STS_SUCCESS;
2542:
2543: IF p_x_workorder_rec.status_code IS NULL AND p_x_workorder_rec.status IS NOT NULL THEN
2544: OPEN get_status_csr(p_x_workorder_rec.status);
2545: FETCH get_status_csr INTO p_x_workorder_rec.status_code;
2546: IF get_status_csr%NOTFOUND THEN
2547: FND_MESSAGE.SET_NAME('AHL','AHL_PP_JOB_INV_STATUS_JSP');
2548: FND_MSG_PUB.ADD;
2549: CLOSE get_status_csr;
2550: RAISE FND_API.G_EXC_ERROR;
2551: ELSE
2552: CLOSE get_status_csr;
2553: END IF;
2554: END IF;
2570: l_prd_workorder_rec.DEPARTMENT_ID := p_x_workorder_rec.Department_Id;
2571: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
2572: l_prd_workorder_rec.STATUS_CODE := p_x_workorder_rec.Status_Code;
2573: l_prd_workorder_rec.STATUS_MEANING := NULL;
2574: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
2575: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
2576: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
2577: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
2578: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
2571: l_prd_workorder_rec.DEPARTMENT_CLASS_CODE := p_x_workorder_rec.Department_Class_Code;
2572: l_prd_workorder_rec.STATUS_CODE := p_x_workorder_rec.Status_Code;
2573: l_prd_workorder_rec.STATUS_MEANING := NULL;
2574: l_prd_workorder_rec.HOLD_REASON_CODE := FND_API.G_MISS_CHAR;
2575: l_prd_workorder_rec.HOLD_REASON := FND_API.G_MISS_CHAR;
2576: l_prd_workorder_rec.SCHEDULED_START_DATE := p_x_workorder_rec.Scheduled_Start_Date;
2577: l_prd_workorder_rec.SCHEDULED_START_HR := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'hh24');
2578: l_prd_workorder_rec.SCHEDULED_START_MI := TO_CHAR(l_prd_workorder_rec.SCHEDULED_START_DATE, 'mi');
2579: l_prd_workorder_rec.SCHEDULED_END_DATE := p_x_workorder_rec.Scheduled_End_Date;
2644: x_msg_data => x_msg_data,
2645: p_x_prd_workorder_rec => l_prd_workorder_rec
2646: );
2647:
2648: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF;
2651:
2652: END process_Unclose_Workorder;
2645: p_x_prd_workorder_rec => l_prd_workorder_rec
2646: );
2647:
2648: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF;
2651:
2652: END process_Unclose_Workorder;
2653:
2653:
2654: PROCEDURE process_workorder
2655: (
2656: p_api_version IN NUMBER := 1.0,
2657: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2658: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2659: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2660: p_default IN VARCHAR2 := FND_API.G_FALSE,
2661: p_module_type IN VARCHAR2,
2654: PROCEDURE process_workorder
2655: (
2656: p_api_version IN NUMBER := 1.0,
2657: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2658: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2659: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2660: p_default IN VARCHAR2 := FND_API.G_FALSE,
2661: p_module_type IN VARCHAR2,
2662: p_x_workorder_rec IN OUT NOCOPY WORKORDER_REC_TYPE,
2655: (
2656: p_api_version IN NUMBER := 1.0,
2657: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2658: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2659: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2660: p_default IN VARCHAR2 := FND_API.G_FALSE,
2661: p_module_type IN VARCHAR2,
2662: p_x_workorder_rec IN OUT NOCOPY WORKORDER_REC_TYPE,
2663: p_x_Operations IN OUT NOCOPY OPERATIONS_TBL_TYPE,
2656: p_api_version IN NUMBER := 1.0,
2657: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2658: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2659: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2660: p_default IN VARCHAR2 := FND_API.G_FALSE,
2661: p_module_type IN VARCHAR2,
2662: p_x_workorder_rec IN OUT NOCOPY WORKORDER_REC_TYPE,
2663: p_x_Operations IN OUT NOCOPY OPERATIONS_TBL_TYPE,
2664: p_x_MaterialRequirements IN OUT NOCOPY MTL_REQMTS_TBL_TYPE,
2681: WHERE WORKORDER_ID = p_workorder_id;
2682:
2683: BEGIN
2684: -- Standard call to check for call compatibility
2685: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2687: END IF;
2688:
2689: SAVEPOINT PROCESS_WORKORDER;
2682:
2683: BEGIN
2684: -- Standard call to check for call compatibility
2685: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
2686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2687: END IF;
2688:
2689: SAVEPOINT PROCESS_WORKORDER;
2690:
2687: END IF;
2688:
2689: SAVEPOINT PROCESS_WORKORDER;
2690:
2691: IF FND_API.To_Boolean(p_init_msg_list) THEN
2692: FND_MSG_PUB.Initialize;
2693: END IF;
2694: -- Initialize API return status to success
2695: x_return_status := FND_API.G_RET_STS_SUCCESS;
2691: IF FND_API.To_Boolean(p_init_msg_list) THEN
2692: FND_MSG_PUB.Initialize;
2693: END IF;
2694: -- Initialize API return status to success
2695: x_return_status := FND_API.G_RET_STS_SUCCESS;
2696: --AHL_DEBUG_PUB.debug( 'p_x_workorder_rec.Workorder_Id : '||p_x_workorder_rec.Workorder_Id);
2697: --AHL_DEBUG_PUB.debug( 'p_x_workorder_rec.Workorder_Number : '||p_x_workorder_rec.Workorder_Number);
2698:
2699: IF(p_x_workorder_rec.Workorder_Id IS NULL)THEN
2698:
2699: IF(p_x_workorder_rec.Workorder_Id IS NULL)THEN
2700: p_x_workorder_rec.Workorder_Id := get_workorder_id(p_x_workorder_rec.Workorder_Number);
2701: END IF;
2702: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2703: RAISE FND_API.G_EXC_ERROR;
2704: END IF;
2705: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2706: FETCH get_workorder_csr INTO l_workorder_rec.Workorder_Id,
2699: IF(p_x_workorder_rec.Workorder_Id IS NULL)THEN
2700: p_x_workorder_rec.Workorder_Id := get_workorder_id(p_x_workorder_rec.Workorder_Number);
2701: END IF;
2702: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2703: RAISE FND_API.G_EXC_ERROR;
2704: END IF;
2705: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2706: FETCH get_workorder_csr INTO l_workorder_rec.Workorder_Id,
2707: l_workorder_rec.Wip_Entity_Id,
2718: p_x_workorder_rec.Object_Version_Number <> l_workorder_rec.Object_Version_Number)THEN
2719: --AHL_DEBUG_PUB.debug( 'Object Version Numbers are not same');
2720: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2721: FND_MSG_PUB.ADD;
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724:
2725: --JKJain, ER 9283136 (Unclosing a WorkOrder)
2726: --AHL_DEBUG_PUB.debug( 'processing Unclosing of a WorkOrder');
2729:
2730: IF (l_workorder_rec.Status_Code <> '12') THEN
2731: FND_MESSAGE.SET_NAME('AHL','AHL_PP_UNCLOSE_ONLY_CLOSED');
2732: FND_MSG_PUB.ADD;
2733: RAISE FND_API.G_EXC_ERROR;
2734: END IF;
2735:
2736: process_Unclose_Workorder(
2737: p_api_version => p_api_version,
2744: x_msg_count => x_msg_count,
2745: x_msg_data => x_msg_data,
2746: p_x_workorder_rec => p_x_workorder_rec
2747: );
2748: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2749: RAISE FND_API.G_EXC_ERROR;
2750: ELSE
2751: -- fresh fetch as object version number might change
2752: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2745: x_msg_data => x_msg_data,
2746: p_x_workorder_rec => p_x_workorder_rec
2747: );
2748: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2749: RAISE FND_API.G_EXC_ERROR;
2750: ELSE
2751: -- fresh fetch as object version number might change
2752: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2753: FETCH get_workorder_csr INTO l_workorder_rec.Workorder_Id,
2770: x_return_status => x_return_status,
2771: x_msg_count => x_msg_count,
2772: x_msg_data => x_msg_data
2773: );
2774: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2775: RAISE FND_API.G_EXC_ERROR;
2776: END IF;
2777: --AHL_DEBUG_PUB.debug( 'Done processing resource requirement');
2778: process_res_assignments(
2771: x_msg_count => x_msg_count,
2772: x_msg_data => x_msg_data
2773: );
2774: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2775: RAISE FND_API.G_EXC_ERROR;
2776: END IF;
2777: --AHL_DEBUG_PUB.debug( 'Done processing resource requirement');
2778: process_res_assignments(
2779: p_workorder_rec => l_workorder_rec,
2781: x_return_status => x_return_status,
2782: x_msg_count => x_msg_count,
2783: x_msg_data => x_msg_data
2784: );
2785: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2786: RAISE FND_API.G_EXC_ERROR;
2787: END IF;
2788: --AHL_DEBUG_PUB.debug( 'Done processing res_assignments');
2789: process_res_txns(
2782: x_msg_count => x_msg_count,
2783: x_msg_data => x_msg_data
2784: );
2785: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2786: RAISE FND_API.G_EXC_ERROR;
2787: END IF;
2788: --AHL_DEBUG_PUB.debug( 'Done processing res_assignments');
2789: process_res_txns(
2790: p_workorder_rec => l_workorder_rec,
2792: x_return_status => x_return_status,
2793: x_msg_count => x_msg_count,
2794: x_msg_data => x_msg_data
2795: );
2796: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2797: RAISE FND_API.G_EXC_ERROR;
2798: END IF;
2799: --AHL_DEBUG_PUB.debug( 'Done processing resource transactions');
2800:
2793: x_msg_count => x_msg_count,
2794: x_msg_data => x_msg_data
2795: );
2796: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2797: RAISE FND_API.G_EXC_ERROR;
2798: END IF;
2799: --AHL_DEBUG_PUB.debug( 'Done processing resource transactions');
2800:
2801: process_mtl_requirements(
2804: x_return_status => x_return_status,
2805: x_msg_count => x_msg_count,
2806: x_msg_data => x_msg_data
2807: );
2808: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2809: RAISE FND_API.G_EXC_ERROR;
2810: END IF;
2811: --AHL_DEBUG_PUB.debug( 'Done processing mtl_requirements');
2812: process_op_details(
2805: x_msg_count => x_msg_count,
2806: x_msg_data => x_msg_data
2807: );
2808: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2809: RAISE FND_API.G_EXC_ERROR;
2810: END IF;
2811: --AHL_DEBUG_PUB.debug( 'Done processing mtl_requirements');
2812: process_op_details(
2813: p_workorder_rec => l_workorder_rec,
2815: x_return_status => x_return_status,
2816: x_msg_count => x_msg_count,
2817: x_msg_data => x_msg_data
2818: );
2819: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF;
2822:
2823: --AHL_DEBUG_PUB.debug( 'Done processing op_details');
2816: x_msg_count => x_msg_count,
2817: x_msg_data => x_msg_data
2818: );
2819: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF;
2822:
2823: --AHL_DEBUG_PUB.debug( 'Done processing op_details');
2824:
2828: x_return_status => x_return_status,
2829: x_msg_count => x_msg_count,
2830: x_msg_data => x_msg_data
2831: );
2832: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2833: RAISE FND_API.G_EXC_ERROR;
2834: ELSE
2835: -- fresh fetch as object version number might change
2836: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2829: x_msg_count => x_msg_count,
2830: x_msg_data => x_msg_data
2831: );
2832: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2833: RAISE FND_API.G_EXC_ERROR;
2834: ELSE
2835: -- fresh fetch as object version number might change
2836: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2837: FETCH get_workorder_csr INTO l_workorder_rec.Workorder_Id,
2852: x_return_status => x_return_status,
2853: x_msg_count => x_msg_count,
2854: x_msg_data => x_msg_data
2855: );
2856: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2857: RAISE FND_API.G_EXC_ERROR;
2858: ELSE
2859: -- fresh fetch as object version number might change
2860: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2853: x_msg_count => x_msg_count,
2854: x_msg_data => x_msg_data
2855: );
2856: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2857: RAISE FND_API.G_EXC_ERROR;
2858: ELSE
2859: -- fresh fetch as object version number might change
2860: OPEN get_workorder_csr(p_x_workorder_rec.Workorder_Id);
2861: FETCH get_workorder_csr INTO p_x_workorder_rec.Workorder_Id,
2869: p_x_workorder_rec.Collection_Id;
2870: CLOSE get_workorder_csr;--No chance of a non-fetch
2871: END IF;
2872: --AHL_DEBUG_PUB.debug( 'done processing WORKORDER details');
2873: IF FND_API.to_boolean(p_commit) THEN
2874: COMMIT;
2875: END IF;
2876: -- Standard call to get message count and if count is 1, get message
2877: FND_MSG_PUB.Count_And_Get
2876: -- Standard call to get message count and if count is 1, get message
2877: FND_MSG_PUB.Count_And_Get
2878: ( p_count => x_msg_count,
2879: p_data => x_msg_data,
2880: p_encoded => fnd_api.g_false);
2881:
2882: EXCEPTION
2883: WHEN FND_API.G_EXC_ERROR THEN
2884: ROLLBACK TO PROCESS_WORKORDER;
2879: p_data => x_msg_data,
2880: p_encoded => fnd_api.g_false);
2881:
2882: EXCEPTION
2883: WHEN FND_API.G_EXC_ERROR THEN
2884: ROLLBACK TO PROCESS_WORKORDER;
2885: x_return_status := FND_API.G_RET_STS_ERROR;
2886: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2887: p_data => x_msg_data,
2881:
2882: EXCEPTION
2883: WHEN FND_API.G_EXC_ERROR THEN
2884: ROLLBACK TO PROCESS_WORKORDER;
2885: x_return_status := FND_API.G_RET_STS_ERROR;
2886: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2887: p_data => x_msg_data,
2888: p_encoded => fnd_api.g_false);
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2884: ROLLBACK TO PROCESS_WORKORDER;
2885: x_return_status := FND_API.G_RET_STS_ERROR;
2886: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2887: p_data => x_msg_data,
2888: p_encoded => fnd_api.g_false);
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: ROLLBACK TO PROCESS_WORKORDER;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2885: x_return_status := FND_API.G_RET_STS_ERROR;
2886: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2887: p_data => x_msg_data,
2888: p_encoded => fnd_api.g_false);
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: ROLLBACK TO PROCESS_WORKORDER;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2893: p_data => x_msg_data,
2887: p_data => x_msg_data,
2888: p_encoded => fnd_api.g_false);
2889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2890: ROLLBACK TO PROCESS_WORKORDER;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2893: p_data => x_msg_data,
2894: p_encoded => fnd_api.g_false);
2895: WHEN OTHERS THEN
2890: ROLLBACK TO PROCESS_WORKORDER;
2891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2892: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2893: p_data => x_msg_data,
2894: p_encoded => fnd_api.g_false);
2895: WHEN OTHERS THEN
2896: ROLLBACK TO PROCESS_WORKORDER;
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2898:
2893: p_data => x_msg_data,
2894: p_encoded => fnd_api.g_false);
2895: WHEN OTHERS THEN
2896: ROLLBACK TO PROCESS_WORKORDER;
2897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2898:
2899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2900: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2901: p_procedure_name => l_api_name,
2902: p_error_text => SUBSTR(SQLERRM,1,500));
2903: END IF;
2904: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2905: p_data => x_msg_data,
2906: p_encoded => fnd_api.g_false);
2907: END process_workorder;
2908:
2909: FUNCTION is_valid_result_attribute(p_Char_Id IN NUMBER, p_QA_PLAN IN QA_PLAN_REC_TYPE) RETURN VARCHAR2
2910: IS