[Home] [Help]
64: --Pekambar Added the Procedure for ERs 9274897 and 9504544
65: PROCEDURE update_signoff_dates
66: (
67: p_api_version IN NUMBER := 1.0,
68: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
69: p_commit IN VARCHAR2 := FND_API.G_FALSE,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_default IN VARCHAR2 := FND_API.G_FALSE,
72: p_module_type IN VARCHAR2 := NULL,
65: PROCEDURE update_signoff_dates
66: (
67: p_api_version IN NUMBER := 1.0,
68: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
69: p_commit IN VARCHAR2 := FND_API.G_FALSE,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_default IN VARCHAR2 := FND_API.G_FALSE,
72: p_module_type IN VARCHAR2 := NULL,
73: x_return_status OUT NOCOPY VARCHAR2,
66: (
67: p_api_version IN NUMBER := 1.0,
68: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
69: p_commit IN VARCHAR2 := FND_API.G_FALSE,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_default IN VARCHAR2 := FND_API.G_FALSE,
72: p_module_type IN VARCHAR2 := NULL,
73: x_return_status OUT NOCOPY VARCHAR2,
74: x_msg_count OUT NOCOPY NUMBER,
67: p_api_version IN NUMBER := 1.0,
68: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
69: p_commit IN VARCHAR2 := FND_API.G_FALSE,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_default IN VARCHAR2 := FND_API.G_FALSE,
72: p_module_type IN VARCHAR2 := NULL,
73: x_return_status OUT NOCOPY VARCHAR2,
74: x_msg_count OUT NOCOPY NUMBER,
75: x_msg_data OUT NOCOPY VARCHAR2,
85: IS
86: BEGIN
87:
88: IF ( p_workorder_id IS NULL OR
89: p_workorder_id = FND_API.G_MISS_NUM OR
90: p_object_version_no IS NULL OR
91: p_object_version_no = FND_API.G_MISS_NUM ) THEN
92: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
93: FND_MSG_PUB.add;
87:
88: IF ( p_workorder_id IS NULL OR
89: p_workorder_id = FND_API.G_MISS_NUM OR
90: p_object_version_no IS NULL OR
91: p_object_version_no = FND_API.G_MISS_NUM ) THEN
92: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
93: FND_MSG_PUB.add;
94: RETURN FND_API.G_RET_STS_ERROR;
95: END IF;
90: p_object_version_no IS NULL OR
91: p_object_version_no = FND_API.G_MISS_NUM ) THEN
92: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
93: FND_MSG_PUB.add;
94: RETURN FND_API.G_RET_STS_ERROR;
95: END IF;
96:
97: RETURN FND_API.G_RET_STS_SUCCESS;
98: END validate_wo_inputs;
93: FND_MSG_PUB.add;
94: RETURN FND_API.G_RET_STS_ERROR;
95: END IF;
96:
97: RETURN FND_API.G_RET_STS_SUCCESS;
98: END validate_wo_inputs;
99:
100: -- Function to get the Operation Record
101: FUNCTION get_operation_rec
173: IF(get_op_details%NOTFOUND)THEN
174: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
175: FND_MSG_PUB.add;
176: CLOSE get_op_details;
177: RETURN FND_API.G_RET_STS_ERROR;
178: END IF;
179: CLOSE get_op_details;
180:
181:
179: CLOSE get_op_details;
180:
181:
182: IF ( p_object_version_no IS NOT NULL AND
183: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
184: IF ( x_operation_rec.object_version_number <> p_object_version_no ) THEN
185: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
186: FND_MSG_PUB.add;
187: RETURN FND_API.G_RET_STS_ERROR;
183: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
184: IF ( x_operation_rec.object_version_number <> p_object_version_no ) THEN
185: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
186: FND_MSG_PUB.add;
187: RETURN FND_API.G_RET_STS_ERROR;
188: END IF;
189: END IF;
190:
191: RETURN FND_API.G_RET_STS_SUCCESS;
187: RETURN FND_API.G_RET_STS_ERROR;
188: END IF;
189: END IF;
190:
191: RETURN FND_API.G_RET_STS_SUCCESS;
192: END get_operation_rec;
193:
194: -- Function to get the status for
195: -- use in the error messages
384: IF(get_wo_dtls_csr%NOTFOUND)THEN
385: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
386: FND_MSG_PUB.add;
387: CLOSE get_wo_dtls_csr;
388: RETURN FND_API.G_RET_STS_ERROR;
389: END IF;
390: CLOSE get_wo_dtls_csr;
391:
392: IF ( p_object_version_no IS NOT NULL AND
389: END IF;
390: CLOSE get_wo_dtls_csr;
391:
392: IF ( p_object_version_no IS NOT NULL AND
393: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
394: IF ( x_workorder_rec.object_version_number <> p_object_version_no ) THEN
395: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
396: FND_MSG_PUB.add;
397: RETURN FND_API.G_RET_STS_ERROR;
393: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
394: IF ( x_workorder_rec.object_version_number <> p_object_version_no ) THEN
395: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
396: FND_MSG_PUB.add;
397: RETURN FND_API.G_RET_STS_ERROR;
398: END IF;
399: END IF;
400:
401: -- Code for getting auto_signoff_flag from the child workorder if parent workorder doesnt have the information.
433: CLOSE get_inst_dtls_visit;
434: x_workorder_rec.automatic_signoff_flag := 'N';
435: END IF;
436:
437: RETURN FND_API.G_RET_STS_SUCCESS;
438: EXCEPTION
439: WHEN OTHERS THEN
440: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
441: FND_MSG_PUB.add;
438: EXCEPTION
439: WHEN OTHERS THEN
440: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
441: FND_MSG_PUB.add;
442: RETURN FND_API.G_RET_STS_ERROR;
443:
444: END get_workorder_rec;
445:
446: -- Function to validate the given Actual Start and End Dates
455: IF ( p_actual_start_date IS NULL OR
456: p_actual_end_date IS NULL ) THEN
457: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
458: FND_MSG_PUB.add;
459: RETURN FND_API.G_RET_STS_ERROR;
460: END IF;
461:
462: IF ( p_actual_start_date > p_actual_end_date ) THEN
463: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
461:
462: IF ( p_actual_start_date > p_actual_end_date ) THEN
463: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
464: FND_MSG_PUB.add;
465: RETURN FND_API.G_RET_STS_ERROR;
466: END IF;
467:
468: IF ( p_actual_end_date > SYSDATE ) THEN
469: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
467:
468: IF ( p_actual_end_date > SYSDATE ) THEN
469: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
470: FND_MSG_PUB.add;
471: RETURN FND_API.G_RET_STS_ERROR;
472: END IF;
473:
474: RETURN FND_API.G_RET_STS_SUCCESS;
475: END validate_actual_dates;
470: FND_MSG_PUB.add;
471: RETURN FND_API.G_RET_STS_ERROR;
472: END IF;
473:
474: RETURN FND_API.G_RET_STS_SUCCESS;
475: END validate_actual_dates;
476:
477: -- Function to validate the given Actual Start and End Dates do not overlap with any of the Open Accounting Period Start Date and Scheduled Close Date.
478: FUNCTION validate_acct_period
510: IF ( get_min_period%NOTFOUND ) THEN
511: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACCT_PERIOD' );
512: FND_MSG_PUB.add;
513: CLOSE get_min_period;
514: RETURN FND_API.G_RET_STS_ERROR;
515: END IF;
516:
517: IF ( l_period_start_date > p_actual_start_date ) THEN
518: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_LESS_ACCT_PERIOD' );
517: IF ( l_period_start_date > p_actual_start_date ) THEN
518: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_LESS_ACCT_PERIOD' );
519: FND_MSG_PUB.add;
520: CLOSE get_min_period;
521: RETURN FND_API.G_RET_STS_ERROR;
522: END IF;
523:
524: CLOSE get_min_period;
525:
530: IF ( get_max_period%NOTFOUND ) THEN
531: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACT_PERIOD' );
532: FND_MSG_PUB.add;
533: CLOSE get_max_period;
534: RETURN FND_API.G_RET_STS_ERROR;
535: END IF;
536:
537: IF ( l_schedule_close_date < p_actual_end_date ) THEN
538: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_LESS_ACT_PERIOD' );
537: IF ( l_schedule_close_date < p_actual_end_date ) THEN
538: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_LESS_ACT_PERIOD' );
539: FND_MSG_PUB.add;
540: CLOSE get_max_period;
541: RETURN FND_API.G_RET_STS_ERROR;
542: END IF;
543:
544: CLOSE get_max_period;
545:
542: END IF;
543:
544: CLOSE get_max_period;
545:
546: RETURN FND_API.G_RET_STS_SUCCESS;
547: END validate_acct_period;
548:
549: -- Function to get the user-enter value 'Operation Status' or 'Workorder Status' QA Plan Element and to check if this value is 'Complete'.
550: FUNCTION validate_qa_status
575: AND char_id = p_char_id;
576:
577: EXCEPTION
578: WHEN NO_DATA_FOUND THEN
579: RETURN FND_API.G_RET_STS_SUCCESS;
580: WHEN OTHERS THEN
581: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
582: END;
583:
577: EXCEPTION
578: WHEN NO_DATA_FOUND THEN
579: RETURN FND_API.G_RET_STS_SUCCESS;
580: WHEN OTHERS THEN
581: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
582: END;
583:
584: IF ( l_result_column_name IS NOT NULL AND
585: l_enabled_flag = 1 AND
591: BEGIN
592: EXECUTE IMMEDIATE l_result_sql_stmt INTO l_result_column_value USING p_collection_id, p_collection_id;
593: EXCEPTION
594: WHEN OTHERS THEN
595: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
596: END;
597:
598: -- Operation status
599: IF ( p_char_id = 125 AND
600: ( l_result_column_value IS NULL OR
601: l_result_column_value <> G_OP_STATUS_COMPLETE ) ) THEN
602: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
603: FND_MSG_PUB.add;
604: RETURN FND_API.G_RET_STS_ERROR;
605:
606: -- Workorder status
607: ELSIF ( p_char_id = 98 AND
608: ( l_result_column_value IS NULL OR
608: ( l_result_column_value IS NULL OR
609: l_result_column_value <> G_JOB_STATUS_COMPLETE ) ) THEN
610: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
611: FND_MSG_PUB.add;
612: RETURN FND_API.G_RET_STS_ERROR;
613: END IF;
614: END IF;
615:
616: RETURN FND_API.G_RET_STS_SUCCESS;
612: RETURN FND_API.G_RET_STS_ERROR;
613: END IF;
614: END IF;
615:
616: RETURN FND_API.G_RET_STS_SUCCESS;
617: END validate_qa_status;
618:
619: -- Function to validate whether the actual end date is later than the
620: -- last workorder transaction date.
644: IF ( l_transaction_date > p_actual_end_date ) THEN
645: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_TXNDT' );
646: FND_MSG_PUB.add;
647: CLOSE get_ahl_txn_rec;
648: RETURN FND_API.G_RET_STS_ERROR;
649: END IF;
650: END IF;
651:
652: CLOSE get_ahl_txn_rec;
650: END IF;
651:
652: CLOSE get_ahl_txn_rec;
653:
654: RETURN FND_API.G_RET_STS_SUCCESS;
655: END validate_ahl_wo_txn_date;
656:
657: -- Function to check whether the last EAM Workorder Transaction is Completion
658: -- and to ensure that the actual end date is greater than the
660: FUNCTION validate_eam_wo_compl_txn
661: (
662: p_wip_entity_id IN NUMBER,
663: p_actual_end_date IN DATE,
664: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE
665: ) RETURN VARCHAR2
666: IS
667:
668: l_transaction_type NUMBER;
690: IF ( l_transaction_type = 1 ) THEN
691: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_COMP_IN_EAM' );
692: FND_MSG_PUB.add;
693: CLOSE get_eam_txn_rec;
694: RETURN FND_API.G_RET_STS_ERROR;
695: END IF;
696:
697: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
698: IF ( l_transaction_date > p_actual_end_date ) THEN
693: CLOSE get_eam_txn_rec;
694: RETURN FND_API.G_RET_STS_ERROR;
695: END IF;
696:
697: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
698: IF ( l_transaction_date > p_actual_end_date ) THEN
699: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_EAM_TXNDT' );
700: FND_MSG_PUB.add;
701: CLOSE get_eam_txn_rec;
698: IF ( l_transaction_date > p_actual_end_date ) THEN
699: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_EAM_TXNDT' );
700: FND_MSG_PUB.add;
701: CLOSE get_eam_txn_rec;
702: RETURN FND_API.G_RET_STS_ERROR;
703: END IF;
704: END IF;
705: END IF;
706:
705: END IF;
706:
707: CLOSE get_eam_txn_rec;
708:
709: RETURN FND_API.G_RET_STS_SUCCESS;
710: END validate_eam_wo_compl_txn;
711:
712: -- Function to record the Readings of all the Counters associated to the Item Instance associated to the Workorder.
713: FUNCTION record_wo_ctr_readings
756:
757: END LOOP;
758:
759: IF ( l_occurrence_count = 1 ) THEN
760: RETURN FND_API.G_RET_STS_SUCCESS;
761: END IF;
762:
763: -- Get the Organization ID of the Counter Reading Plan
764: SELECT organization_id
771: -- the Counter Reading Plan
772: AHL_QA_RESULTS_PVT.submit_qa_results
773: (
774: p_api_version => 1.0,
775: p_init_msg_list => FND_API.G_TRUE,
776: p_commit => FND_API.G_TRUE,
777: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
778: p_default => FND_API.G_FALSE,
779: p_module_type => NULL,
772: AHL_QA_RESULTS_PVT.submit_qa_results
773: (
774: p_api_version => 1.0,
775: p_init_msg_list => FND_API.G_TRUE,
776: p_commit => FND_API.G_TRUE,
777: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
778: p_default => FND_API.G_FALSE,
779: p_module_type => NULL,
780: x_return_status => l_return_status,
773: (
774: p_api_version => 1.0,
775: p_init_msg_list => FND_API.G_TRUE,
776: p_commit => FND_API.G_TRUE,
777: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
778: p_default => FND_API.G_FALSE,
779: p_module_type => NULL,
780: x_return_status => l_return_status,
781: x_msg_count => l_msg_count,
774: p_api_version => 1.0,
775: p_init_msg_list => FND_API.G_TRUE,
776: p_commit => FND_API.G_TRUE,
777: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
778: p_default => FND_API.G_FALSE,
779: p_module_type => NULL,
780: x_return_status => l_return_status,
781: x_msg_count => l_msg_count,
782: x_msg_data => l_msg_data,
792: p_x_collection_id => l_collection_id,
793: p_x_occurrence_tbl => l_occurrence_tbl
794: );
795:
796: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
797: x_msg_data := l_msg_data;
798: x_msg_count := l_msg_count;
799: RETURN FND_API.G_RET_STS_ERROR;
800: END IF;
795:
796: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
797: x_msg_data := l_msg_data;
798: x_msg_count := l_msg_count;
799: RETURN FND_API.G_RET_STS_ERROR;
800: END IF;
801:
802: RETURN FND_API.G_RET_STS_SUCCESS;
803:
798: x_msg_count := l_msg_count;
799: RETURN FND_API.G_RET_STS_ERROR;
800: END IF;
801:
802: RETURN FND_API.G_RET_STS_SUCCESS;
803:
804: END record_wo_ctr_readings;
805:
806: -- Function to complete the given Workorder in WIP using EAM API
835: -- Invoke the EAM API. Do not Commit.
836: EAM_WORKORDERTRANSACTIONS_PUB.complete_work_order
837: (
838: p_api_version => 1.0,
839: p_init_msg_list => FND_API.G_TRUE,
840: p_commit => FND_API.G_FALSE,
841: x_return_status => l_return_status,
842: x_msg_count => l_msg_count,
843: x_msg_data => l_msg_data,
836: EAM_WORKORDERTRANSACTIONS_PUB.complete_work_order
837: (
838: p_api_version => 1.0,
839: p_init_msg_list => FND_API.G_TRUE,
840: p_commit => FND_API.G_FALSE,
841: x_return_status => l_return_status,
842: x_msg_count => l_msg_count,
843: x_msg_data => l_msg_data,
844: p_wip_entity_id => p_workorder_rec.wip_entity_id,
861: p_reason => NULL,
862: p_attributes_rec => l_attribute_rec
863: );
864:
865: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
866:
867: IF ( l_msg_data IS NULL ) THEN
868: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
869: FND_MSG_PUB.add;
873: FND_MESSAGE.set_name( l_app_name, l_msg_name );
874: FND_MSG_PUB.add;
875: END IF;
876:
877: RETURN FND_API.G_RET_STS_ERROR;
878:
879: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
880: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
881: FND_MSG_PUB.add;
875: END IF;
876:
877: RETURN FND_API.G_RET_STS_ERROR;
878:
879: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
880: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
881: FND_MSG_PUB.add;
882: RETURN FND_API.G_RET_STS_ERROR;
883: END IF;
878:
879: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
880: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
881: FND_MSG_PUB.add;
882: RETURN FND_API.G_RET_STS_ERROR;
883: END IF;
884:
885: RETURN FND_API.G_RET_STS_SUCCESS;
886:
881: FND_MSG_PUB.add;
882: RETURN FND_API.G_RET_STS_ERROR;
883: END IF;
884:
885: RETURN FND_API.G_RET_STS_SUCCESS;
886:
887: END complete_eam_workorder;
888:
889: -- Function to record a Workorder Transaction ASO Entities
938: p_workorder_rec.completion_subinventory,
939: p_workorder_rec.completion_locator_id
940: );
941:
942: RETURN FND_API.G_RET_STS_SUCCESS;
943:
944: END record_ahl_workorder_txn;
945:
946: -- Function to complete / defer the given Workorder in ASO Entities
957: AHL_PRD_WORKORDER_PVT.ADD_WO_OPER_TURNOVER_NOTES
958: (
959: p_workorder_id => p_workorder_rec.workorder_id,
960: p_new_status_code => p_status_code,
961: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
962: p_default => FND_API.G_TRUE,
963: p_module_type => Null,
964: x_return_status => l_return_status
965: );
958: (
959: p_workorder_id => p_workorder_rec.workorder_id,
960: p_new_status_code => p_status_code,
961: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
962: p_default => FND_API.G_TRUE,
963: p_module_type => Null,
964: x_return_status => l_return_status
965: );
966: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
962: p_default => FND_API.G_TRUE,
963: p_module_type => Null,
964: x_return_status => l_return_status
965: );
966: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
967: RETURN FND_API.G_RET_STS_ERROR;
968: END IF;
969: --sukhwsin::VEE Code Changes - end
970: UPDATE AHL_WORKORDERS
963: p_module_type => Null,
964: x_return_status => l_return_status
965: );
966: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
967: RETURN FND_API.G_RET_STS_ERROR;
968: END IF;
969: --sukhwsin::VEE Code Changes - end
970: UPDATE AHL_WORKORDERS
971: SET status_code = p_status_code,
978:
979: IF ( SQL%ROWCOUNT = 0 ) THEN
980: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
981: FND_MSG_PUB.add;
982: RETURN FND_API.G_RET_STS_ERROR;
983: END IF;
984:
985: -- Set the Transaction Type
986: -- CHECK THIS
1001: p_workorder_rec => p_workorder_rec,
1002: p_transaction_type_code => l_transaction_type_code
1003: );
1004:
1005: RETURN FND_API.G_RET_STS_SUCCESS;
1006:
1007: END update_ahl_workorder;
1008:
1009: -- Function for Validating Complete Operation Inputs
1015: IS
1016: BEGIN
1017:
1018: IF ( p_workorder_operation_id IS NULL OR
1019: p_workorder_operation_id = FND_API.G_MISS_NUM OR
1020: p_object_version_no IS NULL OR
1021: p_object_version_no = FND_API.G_MISS_NUM ) THEN
1022: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
1023: FND_MSG_PUB.add;
1017:
1018: IF ( p_workorder_operation_id IS NULL OR
1019: p_workorder_operation_id = FND_API.G_MISS_NUM OR
1020: p_object_version_no IS NULL OR
1021: p_object_version_no = FND_API.G_MISS_NUM ) THEN
1022: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
1023: FND_MSG_PUB.add;
1024: RETURN FND_API.G_RET_STS_ERROR;
1025: END IF;
1020: p_object_version_no IS NULL OR
1021: p_object_version_no = FND_API.G_MISS_NUM ) THEN
1022: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
1023: FND_MSG_PUB.add;
1024: RETURN FND_API.G_RET_STS_ERROR;
1025: END IF;
1026:
1027: RETURN FND_API.G_RET_STS_SUCCESS;
1028: END validate_cop_inputs;
1023: FND_MSG_PUB.add;
1024: RETURN FND_API.G_RET_STS_ERROR;
1025: END IF;
1026:
1027: RETURN FND_API.G_RET_STS_SUCCESS;
1028: END validate_cop_inputs;
1029:
1030: -- Function to validate whether the Actual End Date is later than the last Transaction date for the Workorder Operation.
1031: FUNCTION validate_ahl_op_txn_date
1054: IF ( l_transaction_date > p_actual_end_date ) THEN
1055: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_TXNDT' );
1056: FND_MSG_PUB.add;
1057: CLOSE get_ahl_txn_rec;
1058: RETURN FND_API.G_RET_STS_ERROR;
1059: END IF;
1060: END IF;
1061:
1062: CLOSE get_ahl_txn_rec;
1060: END IF;
1061:
1062: CLOSE get_ahl_txn_rec;
1063:
1064: RETURN FND_API.G_RET_STS_SUCCESS;
1065: END validate_ahl_op_txn_date;
1066:
1067: -- Function to check whether the last EAM Workorder Transaction is Completion
1068: -- and to ensure that the actual end date is greater than the
1071: (
1072: p_wip_entity_id IN NUMBER,
1073: p_operation_sequence_num IN NUMBER,
1074: p_actual_end_date IN DATE,
1075: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE
1076: ) RETURN VARCHAR2
1077: IS
1078:
1079: l_transaction_type NUMBER;
1102: IF ( l_transaction_type = 1 ) THEN
1103: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_COMP_IN_EAM' );
1104: FND_MSG_PUB.add;
1105: CLOSE get_eam_txn_rec;
1106: RETURN FND_API.G_RET_STS_ERROR;
1107: END IF;
1108:
1109: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1110: IF ( l_transaction_date > p_actual_end_date ) THEN
1105: CLOSE get_eam_txn_rec;
1106: RETURN FND_API.G_RET_STS_ERROR;
1107: END IF;
1108:
1109: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1110: IF ( l_transaction_date > p_actual_end_date ) THEN
1111: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_EAM_TXNDT' );
1112: FND_MSG_PUB.add;
1113: CLOSE get_eam_txn_rec;
1110: IF ( l_transaction_date > p_actual_end_date ) THEN
1111: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_EAM_TXNDT' );
1112: FND_MSG_PUB.add;
1113: CLOSE get_eam_txn_rec;
1114: RETURN FND_API.G_RET_STS_ERROR;
1115: END IF;
1116: END IF;
1117: END IF;
1118:
1115: END IF;
1116: END IF;
1117: END IF;
1118:
1119: RETURN FND_API.G_RET_STS_SUCCESS;
1120: END validate_eam_op_compl_txn;
1121:
1122: -- Function to validate the given Operation.
1123: FUNCTION validate_cop_rec
1123: FUNCTION validate_cop_rec
1124: (
1125: p_operation_rec IN operation_rec_type,
1126: p_workorder_rec IN workorder_rec_type,
1127: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1128: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1129: ) RETURN VARCHAR2
1130: IS
1131: l_return_status VARCHAR2(1);
1124: (
1125: p_operation_rec IN operation_rec_type,
1126: p_workorder_rec IN workorder_rec_type,
1127: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1128: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1129: ) RETURN VARCHAR2
1130: IS
1131: l_return_status VARCHAR2(1);
1132: l_wip_status BOOLEAN;
1139:
1140: IF ( p_operation_rec.description IS NULL ) THEN
1141: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DESC_NULL' );
1142: FND_MSG_PUB.add;
1143: RETURN FND_API.G_RET_STS_ERROR;
1144: END IF;
1145:
1146: -- rroy
1147: -- ACL Changes
1144: END IF;
1145:
1146: -- rroy
1147: -- ACL Changes
1148: IF p_check_unit = FND_API.G_TRUE THEN
1149: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1150: IF l_return_status = FND_API.G_TRUE THEN
1151: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1152: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1146: -- rroy
1147: -- ACL Changes
1148: IF p_check_unit = FND_API.G_TRUE THEN
1149: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1150: IF l_return_status = FND_API.G_TRUE THEN
1151: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1152: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1153: FND_MSG_PUB.ADD;
1154: RETURN FND_API.G_RET_STS_ERROR;
1150: IF l_return_status = FND_API.G_TRUE THEN
1151: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1152: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1153: FND_MSG_PUB.ADD;
1154: RETURN FND_API.G_RET_STS_ERROR;
1155: END IF;
1156: END IF;
1157: -- rroy
1158: -- ACL Changes
1162: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_start_date->'||TO_CHAR(p_operation_rec.actual_start_date,'DD-MON-YYYY HH24:MI:SS'));
1163: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_end_date->'||TO_CHAR(p_operation_rec.actual_end_date,'DD-MON-YYYY HH24:MI:SS'));
1164: END IF;
1165:
1166: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1167: l_return_status :=
1168: validate_actual_dates
1169: (
1170: p_actual_start_date => p_operation_rec.actual_start_date,
1189: --
1190: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_STATUS' );
1191: FND_MESSAGE.set_token( 'STATUS', l_op_status_meaning );
1192: FND_MSG_PUB.add;
1193: RETURN FND_API.G_RET_STS_ERROR;
1194: END IF;
1195:
1196: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1197: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1192: FND_MSG_PUB.add;
1193: RETURN FND_API.G_RET_STS_ERROR;
1194: END IF;
1195:
1196: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1197: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1198: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_ST_DT' );
1199: FND_MSG_PUB.add;
1200: RETURN FND_API.G_RET_STS_ERROR;
1196: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1197: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1198: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_ST_DT' );
1199: FND_MSG_PUB.add;
1200: RETURN FND_API.G_RET_STS_ERROR;
1201: END IF;
1202:
1203: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1204: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_END_DT' );
1202:
1203: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1204: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_END_DT' );
1205: FND_MSG_PUB.add;
1206: RETURN FND_API.G_RET_STS_ERROR;
1207: END IF;
1208: END IF;
1209:
1210: IF ( p_workorder_rec.status_code = G_JOB_STATUS_UNRELEASED OR -- fix for bug# 7555681
1227:
1228: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_WO_STATUS' );
1229: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1230: FND_MSG_PUB.add;
1231: RETURN FND_API.G_RET_STS_ERROR;
1232: END IF;
1233:
1234: /*
1235: -- Adithya removed below validation for bug # 6326071.
1235: -- Adithya removed below validation for bug # 6326071.
1236: -- Accounting periods are validated against transaction date
1237: -- in EAM. To be inline with EAM validations the check of accouting
1238: -- period against actual start date and end date is removed.
1239: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1240: l_return_status :=
1241: validate_acct_period
1242: (
1243: p_organization_id => p_operation_rec.organization_id,
1254: IF(is_qa_coll_reqd%FOUND) THEN
1255: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_NO_QA_RESULTS' );
1256: FND_MSG_PUB.add;
1257: CLOSE is_qa_coll_reqd;
1258: RETURN FND_API.G_RET_STS_ERROR;
1259: END IF;
1260: CLOSE is_qa_coll_reqd;
1261: END IF;
1262:
1288: p_actual_end_date => p_operation_rec.actual_end_date,
1289: p_validate_date => p_validate_date
1290: );
1291:
1292: RETURN FND_API.G_RET_STS_SUCCESS;
1293:
1294: END validate_cop_rec;
1295:
1296: FUNCTION complete_eam_wo_operation
1310: BEGIN
1311: EAM_WorkOrderTransactions_PUB.complete_operation
1312: (
1313: p_api_version => 1.0,
1314: p_init_msg_list => FND_API.G_TRUE,
1315: p_commit => FND_API.G_FALSE,
1316: x_return_status => l_return_status,
1317: x_msg_count => l_msg_count,
1318: x_msg_data => l_msg_data,
1311: EAM_WorkOrderTransactions_PUB.complete_operation
1312: (
1313: p_api_version => 1.0,
1314: p_init_msg_list => FND_API.G_TRUE,
1315: p_commit => FND_API.G_FALSE,
1316: x_return_status => l_return_status,
1317: x_msg_count => l_msg_count,
1318: x_msg_data => l_msg_data,
1319: p_wip_entity_id => p_operation_rec.wip_entity_id,
1329: p_reconciliation_code => NULL,
1330: p_attribute_rec => l_attribute_rec
1331: );
1332:
1333: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1334: IF ( l_msg_data IS NOT NULL ) THEN
1335: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1336: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1337: FND_MSG_PUB.add;
1335: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1336: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1337: FND_MSG_PUB.add;
1338: END IF;
1339: RETURN FND_API.G_RET_STS_ERROR;
1340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1341: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1342: FND_MSG_PUB.add;
1343: RETURN FND_API.G_RET_STS_ERROR;
1336: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1337: FND_MSG_PUB.add;
1338: END IF;
1339: RETURN FND_API.G_RET_STS_ERROR;
1340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1341: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1342: FND_MSG_PUB.add;
1343: RETURN FND_API.G_RET_STS_ERROR;
1344: END IF;
1339: RETURN FND_API.G_RET_STS_ERROR;
1340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1341: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1342: FND_MSG_PUB.add;
1343: RETURN FND_API.G_RET_STS_ERROR;
1344: END IF;
1345:
1346: RETURN FND_API.G_RET_STS_SUCCESS;
1347: END complete_eam_wo_operation;
1342: FND_MSG_PUB.add;
1343: RETURN FND_API.G_RET_STS_ERROR;
1344: END IF;
1345:
1346: RETURN FND_API.G_RET_STS_SUCCESS;
1347: END complete_eam_wo_operation;
1348:
1349: -- Function to record a Workorder Operation Completion Transaction ASO Entities
1350: FUNCTION record_ahl_wo_operation_txn
1389: p_operation_rec.actual_start_date,
1390: p_operation_rec.actual_end_date
1391: );
1392:
1393: RETURN FND_API.G_RET_STS_SUCCESS;
1394: END record_ahl_wo_operation_txn;
1395:
1396: --Function to complete the given Operation in ASO Entities
1397: FUNCTION complete_ahl_wo_operation
1406: (
1407: p_workorder_id => p_operation_rec.workorder_id,
1408: p_workorder_op_id => p_operation_rec.workorder_operation_id,
1409: p_new_status_code => G_OP_STATUS_COMPLETE,
1410: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1411: p_default => FND_API.G_TRUE,
1412: p_module_type => Null,
1413: x_return_status => l_return_status
1414: );
1407: p_workorder_id => p_operation_rec.workorder_id,
1408: p_workorder_op_id => p_operation_rec.workorder_operation_id,
1409: p_new_status_code => G_OP_STATUS_COMPLETE,
1410: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1411: p_default => FND_API.G_TRUE,
1412: p_module_type => Null,
1413: x_return_status => l_return_status
1414: );
1415: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1411: p_default => FND_API.G_TRUE,
1412: p_module_type => Null,
1413: x_return_status => l_return_status
1414: );
1415: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1416: RETURN FND_API.G_RET_STS_ERROR;
1417: END IF;
1418: --sukhwsin::VEE Code Changes - end
1419: UPDATE AHL_WORKORDER_OPERATIONS
1412: p_module_type => Null,
1413: x_return_status => l_return_status
1414: );
1415: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1416: RETURN FND_API.G_RET_STS_ERROR;
1417: END IF;
1418: --sukhwsin::VEE Code Changes - end
1419: UPDATE AHL_WORKORDER_OPERATIONS
1420: SET status_code = G_OP_STATUS_COMPLETE,
1427:
1428: IF ( SQL%ROWCOUNT = 0 ) THEN
1429: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
1430: FND_MSG_PUB.add;
1431: RETURN FND_API.G_RET_STS_ERROR;
1432: END IF;
1433:
1434: -- Insert a record in AHL_WO_OPERATION_TXNS for the Completion Transaction.
1435: l_return_status :=
1437: (
1438: p_operation_rec => p_operation_rec
1439: );
1440:
1441: RETURN FND_API.G_RET_STS_SUCCESS;
1442:
1443: END complete_ahl_wo_operation;
1444:
1445: -- Function to get all the operations for the given Workorder.
1477: /*
1478: IF ( x_operation_tbl.COUNT = 0 ) THEN
1479: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_WO_OPERATIONS' );
1480: FND_MSG_PUB.add;
1481: RETURN FND_API.G_RET_STS_ERROR;
1482: END IF;
1483: */
1484:
1485: RETURN FND_API.G_RET_STS_SUCCESS;
1481: RETURN FND_API.G_RET_STS_ERROR;
1482: END IF;
1483: */
1484:
1485: RETURN FND_API.G_RET_STS_SUCCESS;
1486: END get_workorder_operations;
1487:
1488: -- Function for common record validations for Completion and Deferral.
1489: FUNCTION validate_cwo_dwo_rec
1488: -- Function for common record validations for Completion and Deferral.
1489: FUNCTION validate_cwo_dwo_rec
1490: (
1491: p_workorder_rec IN workorder_rec_type,
1492: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE
1493: ) RETURN VARCHAR2
1494: IS
1495: l_return_status VARCHAR2(1);
1496: l_wip_status BOOLEAN;
1495: l_return_status VARCHAR2(1);
1496: l_wip_status BOOLEAN;
1497: BEGIN
1498:
1499: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1500: l_return_status :=
1501: validate_actual_dates
1502: (
1503: p_actual_start_date => p_workorder_rec.actual_start_date,
1528: /*IF ( p_workorder_rec.plan_id IS NOT NULL AND
1529: p_workorder_rec.collection_id IS NULL ) THEN
1530: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1531: FND_MSG_PUB.add;
1532: RETURN FND_API.G_RET_STS_ERROR;
1533: END IF;
1534: */
1535: /*
1536: l_return_status :=
1548: p_actual_end_date => p_workorder_rec.actual_end_date,
1549: p_validate_date => p_validate_date
1550: );
1551:
1552: RETURN FND_API.G_RET_STS_SUCCESS;
1553: END validate_cwo_dwo_rec;
1554:
1555: FUNCTION validate_cwo_rec
1556: (
1555: FUNCTION validate_cwo_rec
1556: (
1557: p_workorder_rec IN workorder_rec_type,
1558: p_operation_tbl IN operation_tbl_type,
1559: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1560: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1561: ) RETURN VARCHAR2
1562: IS
1563:
1556: (
1557: p_workorder_rec IN workorder_rec_type,
1558: p_operation_tbl IN operation_tbl_type,
1559: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1560: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1561: ) RETURN VARCHAR2
1562: IS
1563:
1564: l_return_status VARCHAR2(1);
1584: BEGIN
1585:
1586: -- rroy
1587: -- ACL Changes
1588: IF p_check_unit = FND_API.G_TRUE THEN
1589: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1590: IF l_return_status = FND_API.G_TRUE THEN
1591: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1592: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1586: -- rroy
1587: -- ACL Changes
1588: IF p_check_unit = FND_API.G_TRUE THEN
1589: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1590: IF l_return_status = FND_API.G_TRUE THEN
1591: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1592: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1593: FND_MSG_PUB.ADD;
1594: RETURN FND_API.G_RET_STS_ERROR;
1590: IF l_return_status = FND_API.G_TRUE THEN
1591: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1592: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1593: FND_MSG_PUB.ADD;
1594: RETURN FND_API.G_RET_STS_ERROR;
1595: END IF;
1596: END IF;
1597: -- rroy
1598: -- ACL Changes
1614: IF(is_qa_coll_reqd%FOUND) THEN
1615: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1616: FND_MSG_PUB.add;
1617: CLOSE is_qa_coll_reqd;
1618: RETURN FND_API.G_RET_STS_ERROR;
1619: END IF;
1620: CLOSE is_qa_coll_reqd;
1621: END IF;
1622:
1637: */
1638: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1639: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1640: FND_MSG_PUB.add;
1641: RETURN FND_API.G_RET_STS_ERROR;
1642: END IF;
1643:
1644: IF ( p_operation_tbl.COUNT > 0 ) THEN
1645: FOR i IN 1..p_operation_tbl.COUNT LOOP
1642: END IF;
1643:
1644: IF ( p_operation_tbl.COUNT > 0 ) THEN
1645: FOR i IN 1..p_operation_tbl.COUNT LOOP
1646: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1647: IF ( p_workorder_rec.actual_start_date > p_operation_tbl(i).actual_start_date ) THEN
1648: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1649: FND_MSG_PUB.add;
1650: RETURN FND_API.G_RET_STS_ERROR;
1646: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1647: IF ( p_workorder_rec.actual_start_date > p_operation_tbl(i).actual_start_date ) THEN
1648: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1649: FND_MSG_PUB.add;
1650: RETURN FND_API.G_RET_STS_ERROR;
1651: END IF;
1652:
1653: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1654: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1652:
1653: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1654: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1655: FND_MSG_PUB.add;
1656: RETURN FND_API.G_RET_STS_ERROR;
1657: END IF;
1658: END IF;
1659:
1660: IF ( p_operation_tbl(i).status_code <> G_OP_STATUS_COMPLETE ) THEN
1659:
1660: IF ( p_operation_tbl(i).status_code <> G_OP_STATUS_COMPLETE ) THEN
1661: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_OP_STATUS' );
1662: FND_MSG_PUB.add;
1663: RETURN FND_API.G_RET_STS_ERROR;
1664: END IF;
1665:
1666: END LOOP;
1667: END IF;
1684: parent_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
1685: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PRIOR_WO_NOT_COMPLETE' );
1686: FND_MESSAGE.set_token( 'WO_NAME', parent_csr.workorder_name );
1687: FND_MSG_PUB.add;
1688: RETURN FND_API.G_RET_STS_ERROR;
1689: END IF;
1690: END LOOP;
1691:
1692: RETURN FND_API.G_RET_STS_SUCCESS;
1688: RETURN FND_API.G_RET_STS_ERROR;
1689: END IF;
1690: END LOOP;
1691:
1692: RETURN FND_API.G_RET_STS_SUCCESS;
1693: END validate_cwo_rec;
1694:
1695: FUNCTION validate_dwo_rec
1696: (
1705:
1706: --rroy
1707: -- ACL Changes
1708: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1709: IF l_return_status = FND_API.G_TRUE THEN
1710: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_DEFF_UNTLCKD');
1711: FND_MSG_PUB.ADD;
1712: RETURN FND_API.G_RET_STS_ERROR;
1713: END IF;
1708: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1709: IF l_return_status = FND_API.G_TRUE THEN
1710: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_DEFF_UNTLCKD');
1711: FND_MSG_PUB.ADD;
1712: RETURN FND_API.G_RET_STS_ERROR;
1713: END IF;
1714: --rroy
1715: -- ACL Changes
1716:
1739: */
1740: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1741: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1742: FND_MSG_PUB.add;
1743: RETURN FND_API.G_RET_STS_ERROR;
1744: END IF;
1745:
1746: RETURN FND_API.G_RET_STS_SUCCESS;
1747:
1742: FND_MSG_PUB.add;
1743: RETURN FND_API.G_RET_STS_ERROR;
1744: END IF;
1745:
1746: RETURN FND_API.G_RET_STS_SUCCESS;
1747:
1748: END validate_dwo_rec;
1749:
1750: -- Function to validate the Inputs of the complete_mr_instance API
1761:
1762: -- Balaji - changed the code for 11.5.10
1763: -- API is changed to accept only mr_rec.
1764: IF (
1765: p_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
1766: p_mr_rec.unit_effectivity_id IS NULL OR
1767: p_mr_rec.ue_object_version_no = FND_API.G_MISS_NUM OR
1768: p_mr_rec.ue_object_version_no IS NULL
1769: ) THEN
1763: -- API is changed to accept only mr_rec.
1764: IF (
1765: p_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
1766: p_mr_rec.unit_effectivity_id IS NULL OR
1767: p_mr_rec.ue_object_version_no = FND_API.G_MISS_NUM OR
1768: p_mr_rec.ue_object_version_no IS NULL
1769: ) THEN
1770: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1771: FND_MSG_PUB.add;
1768: p_mr_rec.ue_object_version_no IS NULL
1769: ) THEN
1770: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1771: FND_MSG_PUB.add;
1772: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1773: END IF;
1774: RETURN FND_API.G_RET_STS_SUCCESS;
1775: END validate_cmri_inputs;
1776:
1770: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1771: FND_MSG_PUB.add;
1772: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1773: END IF;
1774: RETURN FND_API.G_RET_STS_SUCCESS;
1775: END validate_cmri_inputs;
1776:
1777: -- Function to default missing attributes of the input MR instance record
1778: -- Added in 11.5.10
1826: x_mr_rec => l_mr_rec
1827: );
1828:
1829: -- Convert G_MISS values to NULL and NULL values to Old values
1830: IF ( p_x_mr_rec.item_instance_id = FND_API.G_MISS_NUM ) THEN
1831: p_x_mr_rec.item_instance_id := null;
1832: ELSIF ( p_x_mr_rec.item_instance_id IS NULL ) THEN
1833: p_x_mr_rec.item_instance_id := l_mr_rec.item_instance_id;
1834: END IF;
1832: ELSIF ( p_x_mr_rec.item_instance_id IS NULL ) THEN
1833: p_x_mr_rec.item_instance_id := l_mr_rec.item_instance_id;
1834: END IF;
1835:
1836: IF ( p_x_mr_rec.mr_header_id = FND_API.G_MISS_NUM ) THEN
1837: p_x_mr_rec.mr_header_id := null;
1838: ELSIF ( p_x_mr_rec.mr_header_id IS NULL ) THEN
1839: p_x_mr_rec.mr_header_id := l_mr_rec.mr_header_id;
1840: END IF;
1838: ELSIF ( p_x_mr_rec.mr_header_id IS NULL ) THEN
1839: p_x_mr_rec.mr_header_id := l_mr_rec.mr_header_id;
1840: END IF;
1841:
1842: IF ( p_x_mr_rec.incident_id = FND_API.G_MISS_NUM ) THEN
1843: p_x_mr_rec.incident_id := null;
1844: ELSIF ( p_x_mr_rec.incident_id IS NULL ) THEN
1845: p_x_mr_rec.incident_id := l_mr_rec.incident_id;
1846: END IF;
1844: ELSIF ( p_x_mr_rec.incident_id IS NULL ) THEN
1845: p_x_mr_rec.incident_id := l_mr_rec.incident_id;
1846: END IF;
1847:
1848: IF ( p_x_mr_rec.mr_title = FND_API.G_MISS_CHAR ) THEN
1849: p_x_mr_rec.mr_title := null;
1850: ELSIF ( p_x_mr_rec.mr_title IS NULL ) THEN
1851: p_x_mr_rec.mr_title := l_mr_rec.mr_title;
1852: END IF;
1850: ELSIF ( p_x_mr_rec.mr_title IS NULL ) THEN
1851: p_x_mr_rec.mr_title := l_mr_rec.mr_title;
1852: END IF;
1853:
1854: IF ( p_x_mr_rec.ue_status_code = FND_API.G_MISS_CHAR ) THEN
1855: p_x_mr_rec.ue_status_code := null;
1856: ELSIF ( p_x_mr_rec.ue_status_code IS NULL ) THEN
1857: p_x_mr_rec.ue_status_code := l_mr_rec.ue_status_code;
1858: END IF;
1856: ELSIF ( p_x_mr_rec.ue_status_code IS NULL ) THEN
1857: p_x_mr_rec.ue_status_code := l_mr_rec.ue_status_code;
1858: END IF;
1859:
1860: IF ( p_x_mr_rec.ue_status = FND_API.G_MISS_CHAR ) THEN
1861: p_x_mr_rec.ue_status := null;
1862: ELSIF ( p_x_mr_rec.ue_status IS NULL ) THEN
1863: p_x_mr_rec.ue_status := l_mr_rec.ue_status;
1864: END IF;
1862: ELSIF ( p_x_mr_rec.ue_status IS NULL ) THEN
1863: p_x_mr_rec.ue_status := l_mr_rec.ue_status;
1864: END IF;
1865:
1866: IF ( p_x_mr_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
1867: p_x_mr_rec.qa_inspection_type := null;
1868: ELSIF ( p_x_mr_rec.qa_inspection_type IS NULL ) THEN
1869: p_x_mr_rec.qa_inspection_type := l_mr_rec.qa_inspection_type;
1870: END IF;
1868: ELSIF ( p_x_mr_rec.qa_inspection_type IS NULL ) THEN
1869: p_x_mr_rec.qa_inspection_type := l_mr_rec.qa_inspection_type;
1870: END IF;
1871:
1872: IF ( p_x_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) THEN
1873: p_x_mr_rec.actual_end_date := null;
1874: ELSIF ( p_x_mr_rec.actual_end_date IS NULL ) THEN
1875: p_x_mr_rec.actual_end_date := l_mr_rec.actual_end_date;
1876: END IF;
1874: ELSIF ( p_x_mr_rec.actual_end_date IS NULL ) THEN
1875: p_x_mr_rec.actual_end_date := l_mr_rec.actual_end_date;
1876: END IF;
1877:
1878: IF ( p_x_mr_rec.qa_plan_id = FND_API.G_MISS_NUM ) THEN
1879: p_x_mr_rec.qa_plan_id := null;
1880: ELSIF ( p_x_mr_rec.qa_plan_id IS NULL ) THEN
1881: p_x_mr_rec.qa_plan_id := l_mr_rec.qa_plan_id;
1882: END IF;
1880: ELSIF ( p_x_mr_rec.qa_plan_id IS NULL ) THEN
1881: p_x_mr_rec.qa_plan_id := l_mr_rec.qa_plan_id;
1882: END IF;
1883:
1884: IF ( p_x_mr_rec.qa_collection_id = FND_API.G_MISS_NUM ) THEN
1885: p_x_mr_rec.qa_collection_id := null;
1886: ELSIF ( p_x_mr_rec.qa_collection_id IS NULL ) THEN
1887: p_x_mr_rec.qa_collection_id := l_mr_rec.qa_collection_id;
1888: END IF;
1886: ELSIF ( p_x_mr_rec.qa_collection_id IS NULL ) THEN
1887: p_x_mr_rec.qa_collection_id := l_mr_rec.qa_collection_id;
1888: END IF;
1889:
1890: RETURN FND_API.G_RET_STS_SUCCESS;
1891:
1892: END default_mr_rec;
1893:
1894: -- Function to check whether the MR/SR is in a status that it can be signed off.
1907: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1908: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1909: FND_MESSAGE.set_token( 'STATUS', p_mr_status);
1910: FND_MSG_PUB.add;
1911: RETURN FND_API.G_RET_STS_ERROR;
1912: END IF;
1913:
1914: RETURN FND_API.G_RET_STS_SUCCESS;
1915:
1910: FND_MSG_PUB.add;
1911: RETURN FND_API.G_RET_STS_ERROR;
1912: END IF;
1913:
1914: RETURN FND_API.G_RET_STS_SUCCESS;
1915:
1916: END validate_mr_status;
1917:
1918: -- Function to check whether a MR Instance is Complete
1955: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_PLAN_ID_NULL' );
1956: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1957: FND_MESSAGE.set_token( 'INSP_TYPE', p_qa_inspection_type );
1958: FND_MSG_PUB.add;
1959: RETURN FND_API.G_RET_STS_ERROR;
1960: END IF;
1961: END IF;
1962:
1963: -- Check if inspection type is not null then collection id is also not null
1976: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_COL_ID_NULL' );
1977: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1978: FND_MSG_PUB.add;
1979: CLOSE is_qa_coll_reqd;
1980: RETURN FND_API.G_RET_STS_ERROR;
1981: END IF;
1982: CLOSE is_qa_coll_reqd;
1983: END IF;
1984: END IF;
1982: CLOSE is_qa_coll_reqd;
1983: END IF;
1984: END IF;
1985: -- Bug # 6436307 - end
1986: RETURN FND_API.G_RET_STS_SUCCESS;
1987: END is_mr_complete;
1988:
1989: -- Function to Check whether all Child MR Instances for a MR Instance
1990: -- are Complete
2043: ) THEN
2044: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
2045: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_rec.mr_title);
2046: FND_MSG_PUB.add;
2047: RETURN FND_API.G_RET_STS_ERROR;
2048: END IF;
2049:
2050: END LOOP;
2051:
2048: END IF;
2049:
2050: END LOOP;
2051:
2052: RETURN FND_API.G_RET_STS_SUCCESS;
2053: END are_child_mrs_complete;
2054:
2055: -- Function to get the Counter Readings for an Item Instance
2056: -- Balaji added the parameter p_acccomplish_date for Bug # 6784053 (FP for Bug # 6750836).
2191: /* Removed for Bug 3310304
2192: IF ( x_counter_tbl.COUNT < 1 ) THEN
2193: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_CTRS_FOR_MR' );
2194: FND_MSG_PUB.add;
2195: RETURN FND_API.G_RET_STS_ERROR;
2196: END IF;
2197: */
2198:
2199: RETURN FND_API.G_RET_STS_SUCCESS;
2195: RETURN FND_API.G_RET_STS_ERROR;
2196: END IF;
2197: */
2198:
2199: RETURN FND_API.G_RET_STS_SUCCESS;
2200: END get_cp_counters;
2201:
2202: -- Function to get the Reset Counter Readings for an Item Instance for a MR
2203: -- Function to get the Reset Counter Readings for an Item Instance for a MR
2327: p_components_flag => 'N',
2328: x_applicable_mr_tbl => l_appl_mrs_tbl) ;
2329:
2330: -- Raise errors if exceptions occur
2331: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2332: RAISE FND_API.G_EXC_ERROR;
2333: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2328: x_applicable_mr_tbl => l_appl_mrs_tbl) ;
2329:
2330: -- Raise errors if exceptions occur
2331: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2332: RAISE FND_API.G_EXC_ERROR;
2333: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2329:
2330: -- Raise errors if exceptions occur
2331: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2332: RAISE FND_API.G_EXC_ERROR;
2333: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: -- Get counters for effectivity.
2330: -- Raise errors if exceptions occur
2331: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2332: RAISE FND_API.G_EXC_ERROR;
2333: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: -- Get counters for effectivity.
2338: IF (l_appl_mrs_tbl.COUNT > 0) THEN
2391: -- Bug # 6750836 -- start
2392: --x_counter_tbl( l_ctr_count ).counter_reading := 0;
2393: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CN_RESET_ERROR' );
2394: FND_MSG_PUB.add;
2395: RETURN FND_API.G_RET_STS_ERROR;
2396: -- Bug # 6750836 -- end
2397:
2398: END IF;
2399: */
2411: END LOOP;
2412: END LOOP;
2413: END IF;
2414:
2415: RETURN FND_API.G_RET_STS_SUCCESS;
2416: END get_reset_counters;
2417:
2418: -- Function to Reset the Counter Readings
2419: FUNCTION reset_counters
2489: BEGIN
2490: CS_CTR_CAPTURE_READING_PUB.capture_counter_reading
2491: (
2492: p_api_version_number => 1.0,
2493: p_init_msg_list => FND_API.G_TRUE,
2494: p_commit => FND_API.G_FALSE,
2495: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2496: p_ctr_grp_log_rec => l_ctr_grp_log_rec,
2497: p_ctr_rdg_tbl => l_ctr_rdg_tbl,
2490: CS_CTR_CAPTURE_READING_PUB.capture_counter_reading
2491: (
2492: p_api_version_number => 1.0,
2493: p_init_msg_list => FND_API.G_TRUE,
2494: p_commit => FND_API.G_FALSE,
2495: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2496: p_ctr_grp_log_rec => l_ctr_grp_log_rec,
2497: p_ctr_rdg_tbl => l_ctr_rdg_tbl,
2498: p_prop_rdg_tbl => l_prop_rdg_tbl,
2491: (
2492: p_api_version_number => 1.0,
2493: p_init_msg_list => FND_API.G_TRUE,
2494: p_commit => FND_API.G_FALSE,
2495: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2496: p_ctr_grp_log_rec => l_ctr_grp_log_rec,
2497: p_ctr_rdg_tbl => l_ctr_rdg_tbl,
2498: p_prop_rdg_tbl => l_prop_rdg_tbl,
2499: x_return_status => l_return_status,
2503: EXCEPTION
2504: WHEN OTHERS THEN
2505: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2506: FND_MSG_PUB.add;
2507: RETURN FND_API.G_RET_STS_ERROR;
2508: END;
2509:
2510: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2511: IF ( l_msg_data IS NULL ) THEN
2506: FND_MSG_PUB.add;
2507: RETURN FND_API.G_RET_STS_ERROR;
2508: END;
2509:
2510: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2511: IF ( l_msg_data IS NULL ) THEN
2512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2513: FND_MSG_PUB.add;
2514: ELSE
2515: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2516: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2517: FND_MSG_PUB.add;
2518: END IF;
2519: RETURN FND_API.G_RET_STS_ERROR;
2520: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2521: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2522: FND_MSG_PUB.add;
2523: RETURN FND_API.G_RET_STS_ERROR;
2516: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2517: FND_MSG_PUB.add;
2518: END IF;
2519: RETURN FND_API.G_RET_STS_ERROR;
2520: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2521: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2522: FND_MSG_PUB.add;
2523: RETURN FND_API.G_RET_STS_ERROR;
2524: END IF;
2519: RETURN FND_API.G_RET_STS_ERROR;
2520: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2521: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2522: FND_MSG_PUB.add;
2523: RETURN FND_API.G_RET_STS_ERROR;
2524: END IF;
2525:
2526: END IF;
2527:
2524: END IF;
2525:
2526: END IF;
2527:
2528: RETURN FND_API.G_RET_STS_SUCCESS;
2529: END reset_counters;
2530:
2531: -- Function to Record Accomplishments in UMP
2532: FUNCTION update_ump
2602:
2603: AHL_UMP_UNITMAINT_PVT.capture_mr_updates
2604: (
2605: p_api_version => 1.0,
2606: p_init_msg_list => FND_API.G_TRUE,
2607: p_commit => FND_API.G_FALSE,
2608: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2609: p_default => FND_API.G_TRUE,
2610: p_module_type => NULL,
2603: AHL_UMP_UNITMAINT_PVT.capture_mr_updates
2604: (
2605: p_api_version => 1.0,
2606: p_init_msg_list => FND_API.G_TRUE,
2607: p_commit => FND_API.G_FALSE,
2608: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2609: p_default => FND_API.G_TRUE,
2610: p_module_type => NULL,
2611: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
2604: (
2605: p_api_version => 1.0,
2606: p_init_msg_list => FND_API.G_TRUE,
2607: p_commit => FND_API.G_FALSE,
2608: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2609: p_default => FND_API.G_TRUE,
2610: p_module_type => NULL,
2611: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
2612: p_x_unit_threshold_tbl => l_unit_threshold_tbl,
2605: p_api_version => 1.0,
2606: p_init_msg_list => FND_API.G_TRUE,
2607: p_commit => FND_API.G_FALSE,
2608: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2609: p_default => FND_API.G_TRUE,
2610: p_module_type => NULL,
2611: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
2612: p_x_unit_threshold_tbl => l_unit_threshold_tbl,
2613: p_x_unit_accomplish_tbl => l_unit_accomplish_tbl,
2615: x_msg_count => l_msg_count,
2616: x_msg_data => l_msg_data
2617: );
2618:
2619: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2620: IF ( l_msg_data IS NULL ) THEN
2621: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2622: FND_MSG_PUB.add;
2623: ELSE
2623: ELSE
2624: x_msg_count := l_msg_count;
2625: x_msg_data := l_msg_data;
2626: END IF;
2627: RETURN FND_API.G_RET_STS_ERROR;
2628: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2629: IF ( l_msg_data IS NULL ) THEN
2630: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2631: FND_MSG_PUB.add;
2624: x_msg_count := l_msg_count;
2625: x_msg_data := l_msg_data;
2626: END IF;
2627: RETURN FND_API.G_RET_STS_ERROR;
2628: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2629: IF ( l_msg_data IS NULL ) THEN
2630: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2631: FND_MSG_PUB.add;
2632: ELSE
2632: ELSE
2633: x_msg_count := l_msg_count;
2634: x_msg_data := l_msg_data;
2635: END IF;
2636: RETURN FND_API.G_RET_STS_ERROR;
2637: END IF;
2638:
2639: RETURN FND_API.G_RET_STS_SUCCESS;
2640: END update_ump;
2635: END IF;
2636: RETURN FND_API.G_RET_STS_ERROR;
2637: END IF;
2638:
2639: RETURN FND_API.G_RET_STS_SUCCESS;
2640: END update_ump;
2641:
2642: -- Added for R12-Serial Reservation enhancements.
2643: -- We need to delete any reserved serial numbers when a workorder is completed.
2666: 'At the start of procedure for workorder_id:' || p_workorder_id);
2667: END IF;
2668:
2669: -- Initialize return status.
2670: x_return_status := FND_API.G_RET_STS_SUCCESS;
2671:
2672: FOR get_scheduled_mater_rec IN get_scheduled_mater_csr(p_workorder_id)
2673: LOOP
2674: -- Call delete reservation API.
2673: LOOP
2674: -- Call delete reservation API.
2675: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
2676: p_api_version => 1.0,
2677: p_init_msg_list => FND_API.G_TRUE ,
2678: p_commit => FND_API.G_FALSE ,
2679: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
2680: p_module_type => NULL,
2681: x_return_status => x_return_status ,
2674: -- Call delete reservation API.
2675: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
2676: p_api_version => 1.0,
2677: p_init_msg_list => FND_API.G_TRUE ,
2678: p_commit => FND_API.G_FALSE ,
2679: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
2680: p_module_type => NULL,
2681: x_return_status => x_return_status ,
2682: x_msg_count => l_msg_count ,
2675: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
2676: p_api_version => 1.0,
2677: p_init_msg_list => FND_API.G_TRUE ,
2678: p_commit => FND_API.G_FALSE ,
2679: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
2680: p_module_type => NULL,
2681: x_return_status => x_return_status ,
2682: x_msg_count => l_msg_count ,
2683: x_msg_data => l_msg_data ,
2682: x_msg_count => l_msg_count ,
2683: x_msg_data => l_msg_data ,
2684: p_scheduled_material_id => get_scheduled_mater_rec.scheduled_material_id );
2685:
2686: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2687: IF (l_DEBUG_STMT >= l_DEBUG_LEVEL) THEN
2688: fnd_log.string(l_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WORKORDER_PVT.delete_serial_reservations',
2689: 'AHL_RSV_RESERVATIONS_PVT.Delete_Reservation failed for schedule material ID: '
2690: || get_scheduled_mater_rec.scheduled_material_id);
2798: -- Procedure to Complete an Operation
2799: PROCEDURE complete_operation
2800: (
2801: p_api_version IN NUMBER := 1.0,
2802: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2805: p_default IN VARCHAR2 := FND_API.G_FALSE,
2806: p_module_type IN VARCHAR2 := NULL,
2799: PROCEDURE complete_operation
2800: (
2801: p_api_version IN NUMBER := 1.0,
2802: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2805: p_default IN VARCHAR2 := FND_API.G_FALSE,
2806: p_module_type IN VARCHAR2 := NULL,
2807: x_return_status OUT NOCOPY VARCHAR2,
2800: (
2801: p_api_version IN NUMBER := 1.0,
2802: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2805: p_default IN VARCHAR2 := FND_API.G_FALSE,
2806: p_module_type IN VARCHAR2 := NULL,
2807: x_return_status OUT NOCOPY VARCHAR2,
2808: x_msg_count OUT NOCOPY NUMBER,
2801: p_api_version IN NUMBER := 1.0,
2802: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2803: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2804: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2805: p_default IN VARCHAR2 := FND_API.G_FALSE,
2806: p_module_type IN VARCHAR2 := NULL,
2807: x_return_status OUT NOCOPY VARCHAR2,
2808: x_msg_count OUT NOCOPY NUMBER,
2809: x_msg_data OUT NOCOPY VARCHAR2,
2864: AHL_DEBUG_PUB.enable_debug;
2865: END IF;
2866:
2867: -- Initialize API return status to success
2868: x_return_status := FND_API.G_RET_STS_SUCCESS;
2869:
2870: -- Standard Start of API savepoint
2871: SAVEPOINT complete_operation_PVT;
2872:
2870: -- Standard Start of API savepoint
2871: SAVEPOINT complete_operation_PVT;
2872:
2873: -- Initialize message list if p_init_msg_list is set to TRUE.
2874: IF FND_API.to_boolean( p_init_msg_list ) THEN
2875: FND_MSG_PUB.initialize;
2876: END IF;
2877:
2878: -- Validate all the inputs of the API
2882: p_workorder_operation_id => p_workorder_operation_id,
2883: p_object_version_no => p_object_version_no
2884: );
2885:
2886: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2887: RAISE FND_API.G_EXC_ERROR;
2888: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2890: END IF;
2883: p_object_version_no => p_object_version_no
2884: );
2885:
2886: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2887: RAISE FND_API.G_EXC_ERROR;
2888: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2890: END IF;
2891:
2884: );
2885:
2886: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2887: RAISE FND_API.G_EXC_ERROR;
2888: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2890: END IF;
2891:
2892: -- rroy
2885:
2886: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2887: RAISE FND_API.G_EXC_ERROR;
2888: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2889: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2890: END IF;
2891:
2892: -- rroy
2893: -- R12 Tech UIs
2890: END IF;
2891:
2892: -- rroy
2893: -- R12 Tech UIs
2894: IF p_default = FND_API.G_TRUE THEN
2895: -- retrieve the workorder id and the operation sequence number
2896: OPEN get_op_details(p_workorder_operation_id);
2897: FETCH get_op_details INTO l_workorder_id, l_operation_seq_num, l_actual_start_date, l_actual_end_date;
2898: IF get_op_details%NOTFOUND THEN
2898: IF get_op_details%NOTFOUND THEN
2899: CLOSE get_op_details;
2900: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2901: FND_MSG_PUB.add;
2902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2903: END IF;
2904: CLOSE get_op_details;
2905:
2906: l_operation_tbl(1).workorder_id := l_workorder_id;
2909: Get_default_op_actual_dates(x_return_status => l_return_status,
2910: x_msg_count => l_msg_count,
2911: x_msg_data => l_msg_data,
2912: p_x_operation_tbl => l_operation_tbl);
2913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2914: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2915: FND_MSG_PUB.add;
2916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2917: END IF;
2912: p_x_operation_tbl => l_operation_tbl);
2913: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2914: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2915: FND_MSG_PUB.add;
2916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2917: END IF;
2918:
2919: -- update the actual dates in the table
2920: IF l_actual_start_date IS NULL THEN
2926: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2927: IF SQL%ROWCOUNT = 0 THEN
2928: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2929: FND_MSG_PUB.add;
2930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2931: END IF;
2932: END IF; -- IF l_actual_start_date IS NULL THEN
2933: IF l_actual_end_date IS NULL THEN
2934: UPDATE AHL_WORKORDER_OPERATIONS
2939: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2940: IF SQL%ROWCOUNT = 0 THEN
2941: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2942: FND_MSG_PUB.add;
2943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2944: END IF;
2945: END IF; -- IF l_actual_end_date IS NULL THEN
2946: END IF; -- IF p_default = FND_API.G_TRUE THEN
2947: -- rroy
2942: FND_MSG_PUB.add;
2943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2944: END IF;
2945: END IF; -- IF l_actual_end_date IS NULL THEN
2946: END IF; -- IF p_default = FND_API.G_TRUE THEN
2947: -- rroy
2948: -- R12 Tech UIs
2949:
2950: --Get the Operation Details
2955: p_object_version_no => p_object_version_no,
2956: x_operation_rec => l_operation_rec
2957: );
2958:
2959: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2960: RAISE FND_API.G_EXC_ERROR;
2961: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2963: END IF;
2956: x_operation_rec => l_operation_rec
2957: );
2958:
2959: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2960: RAISE FND_API.G_EXC_ERROR;
2961: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2963: END IF;
2964:
2957: );
2958:
2959: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2960: RAISE FND_API.G_EXC_ERROR;
2961: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2963: END IF;
2964:
2965: --Get the Associated Workorder Details
2958:
2959: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2960: RAISE FND_API.G_EXC_ERROR;
2961: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2963: END IF;
2964:
2965: --Get the Associated Workorder Details
2966: l_return_status :=
2969: p_workorder_id => l_operation_rec.workorder_id,
2970: x_workorder_rec => l_workorder_rec
2971: );
2972:
2973: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2970: x_workorder_rec => l_workorder_rec
2971: );
2972:
2973: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2978:
2971: );
2972:
2973: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2978:
2979: --Validate the Operation
2972:
2973: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2974: RAISE FND_API.G_EXC_ERROR;
2975: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2977: END IF;
2978:
2979: --Validate the Operation
2980: l_return_status :=
2983: p_operation_rec => l_operation_rec,
2984: p_workorder_rec => l_workorder_rec
2985: );
2986:
2987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2988: RAISE FND_API.G_EXC_ERROR;
2989: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2991: END IF;
2984: p_workorder_rec => l_workorder_rec
2985: );
2986:
2987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2988: RAISE FND_API.G_EXC_ERROR;
2989: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2991: END IF;
2992:
2985: );
2986:
2987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2988: RAISE FND_API.G_EXC_ERROR;
2989: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2991: END IF;
2992:
2993: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2986:
2987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2988: RAISE FND_API.G_EXC_ERROR;
2989: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2991: END IF;
2992:
2993: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2994: l_msg_count := FND_MSG_PUB.count_msg;
2993: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2994: l_msg_count := FND_MSG_PUB.count_msg;
2995: IF l_msg_count > 0 THEN
2996: x_msg_count := l_msg_count;
2997: RAISE FND_API.G_EXC_ERROR;
2998: END IF;
2999:
3000: -- rroy
3001: -- R12 Tech UIs
3009: -- if login at workorder, then logout these users when workorder is completed/cancelled.
3010: -- resource txns will post at the time user logs out of the workorder.
3011: AHL_PRD_WO_LOGIN_PVT.Workorder_Logout(p_api_version => 1.0,
3012: p_init_msg_list => p_init_msg_list,
3013: p_commit => FND_API.G_FALSE,
3014: p_validation_level => p_validation_level,
3015: p_module_type => p_module_type,
3016: x_return_status => l_return_status,
3017: x_msg_count => l_msg_count,
3021: p_operation_seq_num => l_operation_rec.operation_sequence_num,
3022: --p_resource_id => l_resource_id,
3023: p_resource_seq_num => l_resource_seq_num
3024: );
3025: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3026: EXIT;
3027: END IF;
3028:
3029: END LOOP;
3028:
3029: END LOOP;
3030: CLOSE c_get_login_recs;
3031:
3032: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3033: RAISE FND_API.G_EXC_ERROR;
3034: END IF;
3035:
3036: --Complete the EAM Workorder Operation
3029: END LOOP;
3030: CLOSE c_get_login_recs;
3031:
3032: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3033: RAISE FND_API.G_EXC_ERROR;
3034: END IF;
3035:
3036: --Complete the EAM Workorder Operation
3037: l_return_status :=
3039: (
3040: p_operation_rec => l_operation_rec
3041: );
3042:
3043: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3044: RAISE FND_API.G_EXC_ERROR;
3045: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3047: END IF;
3040: p_operation_rec => l_operation_rec
3041: );
3042:
3043: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3044: RAISE FND_API.G_EXC_ERROR;
3045: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3047: END IF;
3048:
3041: );
3042:
3043: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3044: RAISE FND_API.G_EXC_ERROR;
3045: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3047: END IF;
3048:
3049: --Complete the AHL Workorder Operation
3042:
3043: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3044: RAISE FND_API.G_EXC_ERROR;
3045: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3047: END IF;
3048:
3049: --Complete the AHL Workorder Operation
3050: l_return_status :=
3052: (
3053: p_operation_rec => l_operation_rec
3054: );
3055:
3056: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3057: RAISE FND_API.G_EXC_ERROR;
3058: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3060: END IF;
3053: p_operation_rec => l_operation_rec
3054: );
3055:
3056: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3057: RAISE FND_API.G_EXC_ERROR;
3058: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3060: END IF;
3061:
3054: );
3055:
3056: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3057: RAISE FND_API.G_EXC_ERROR;
3058: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3060: END IF;
3061:
3062: --If collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
3055:
3056: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3057: RAISE FND_API.G_EXC_ERROR;
3058: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3060: END IF;
3061:
3062: --If collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
3063: IF ( l_operation_rec.collection_id IS NOT NULL AND
3060: END IF;
3061:
3062: --If collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
3063: IF ( l_operation_rec.collection_id IS NOT NULL AND
3064: FND_API.to_boolean( p_commit ) ) THEN
3065:
3066: QA_SS_RESULTS.wrapper_fire_action
3067: (
3068: q_collection_id => l_operation_rec.collection_id,
3070: q_msg_count => l_msg_count,
3071: q_msg_data => l_msg_data
3072: );
3073:
3074: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3075: x_msg_data := l_msg_data;
3076: x_msg_count := l_msg_count;
3077: x_return_status := FND_API.G_RET_STS_ERROR;
3078: RETURN;
3073:
3074: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3075: x_msg_data := l_msg_data;
3076: x_msg_count := l_msg_count;
3077: x_return_status := FND_API.G_RET_STS_ERROR;
3078: RETURN;
3079: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3081: END IF;
3075: x_msg_data := l_msg_data;
3076: x_msg_count := l_msg_count;
3077: x_return_status := FND_API.G_RET_STS_ERROR;
3078: RETURN;
3079: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3081: END IF;
3082:
3083: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3076: x_msg_count := l_msg_count;
3077: x_return_status := FND_API.G_RET_STS_ERROR;
3078: RETURN;
3079: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3081: END IF;
3082:
3083: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3084: SAVEPOINT complete_operation_PVT;
3085:
3086: END IF;
3087:
3088: -- Perform the Commit (if requested)
3089: IF FND_API.to_boolean( p_commit ) THEN
3090: COMMIT WORK;
3091: END IF;
3092:
3093: -- Disable debug (if enabled)
3096: END IF;
3097:
3098: EXCEPTION
3099:
3100: WHEN FND_API.G_EXC_ERROR THEN
3101: ROLLBACK TO complete_operation_PVT;
3102: x_return_status := FND_API.G_RET_STS_ERROR;
3103: FND_MSG_PUB.count_and_get
3104: (
3098: EXCEPTION
3099:
3100: WHEN FND_API.G_EXC_ERROR THEN
3101: ROLLBACK TO complete_operation_PVT;
3102: x_return_status := FND_API.G_RET_STS_ERROR;
3103: FND_MSG_PUB.count_and_get
3104: (
3105: p_encoded => FND_API.G_FALSE,
3106: p_count => x_msg_count,
3101: ROLLBACK TO complete_operation_PVT;
3102: x_return_status := FND_API.G_RET_STS_ERROR;
3103: FND_MSG_PUB.count_and_get
3104: (
3105: p_encoded => FND_API.G_FALSE,
3106: p_count => x_msg_count,
3107: p_data => x_msg_data
3108: );
3109:
3110: IF ( G_DEBUG = 'Y' ) THEN
3111: AHL_DEBUG_PUB.disable_debug;
3112: END IF;
3113:
3114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3115: ROLLBACK TO complete_operation_PVT;
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3117: FND_MSG_PUB.count_and_get
3118: (
3112: END IF;
3113:
3114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3115: ROLLBACK TO complete_operation_PVT;
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3117: FND_MSG_PUB.count_and_get
3118: (
3119: p_encoded => FND_API.G_FALSE,
3120: p_count => x_msg_count,
3115: ROLLBACK TO complete_operation_PVT;
3116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3117: FND_MSG_PUB.count_and_get
3118: (
3119: p_encoded => FND_API.G_FALSE,
3120: p_count => x_msg_count,
3121: p_data => x_msg_data
3122: );
3123:
3126: END IF;
3127:
3128: WHEN OTHERS THEN
3129: ROLLBACK TO complete_operation_PVT;
3130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3131: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3132: THEN
3133: FND_MSG_PUB.add_exc_msg
3134: (
3138: );
3139: END IF;
3140: FND_MSG_PUB.count_and_get
3141: (
3142: p_encoded => FND_API.G_FALSE,
3143: p_count => x_msg_count,
3144: p_data => x_msg_data
3145: );
3146:
3151:
3152: PROCEDURE complete_workorder
3153: (
3154: p_api_version IN NUMBER := 1.0,
3155: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3158: p_default IN VARCHAR2 := FND_API.G_FALSE,
3159: p_module_type IN VARCHAR2 := NULL,
3152: PROCEDURE complete_workorder
3153: (
3154: p_api_version IN NUMBER := 1.0,
3155: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3158: p_default IN VARCHAR2 := FND_API.G_FALSE,
3159: p_module_type IN VARCHAR2 := NULL,
3160: x_return_status OUT NOCOPY VARCHAR2,
3153: (
3154: p_api_version IN NUMBER := 1.0,
3155: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3158: p_default IN VARCHAR2 := FND_API.G_FALSE,
3159: p_module_type IN VARCHAR2 := NULL,
3160: x_return_status OUT NOCOPY VARCHAR2,
3161: x_msg_count OUT NOCOPY NUMBER,
3154: p_api_version IN NUMBER := 1.0,
3155: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3158: p_default IN VARCHAR2 := FND_API.G_FALSE,
3159: p_module_type IN VARCHAR2 := NULL,
3160: x_return_status OUT NOCOPY VARCHAR2,
3161: x_msg_count OUT NOCOPY NUMBER,
3162: x_msg_data OUT NOCOPY VARCHAR2,
3284: AHL_DEBUG_PUB.enable_debug;
3285: END IF;
3286:
3287: -- Initialize API return status to success
3288: x_return_status := FND_API.G_RET_STS_SUCCESS;
3289:
3290: -- Standard Start of API savepoint
3291: SAVEPOINT complete_workorder_PVT;
3292:
3290: -- Standard Start of API savepoint
3291: SAVEPOINT complete_workorder_PVT;
3292:
3293: -- Initialize message list if p_init_msg_list is set to TRUE.
3294: IF FND_API.to_boolean( p_init_msg_list ) THEN
3295: FND_MSG_PUB.initialize;
3296: END IF;
3297:
3298: l_object_version_number := p_object_version_no;
3304: p_workorder_id => p_workorder_id,
3305: p_object_version_no => l_object_version_number
3306: );
3307:
3308: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3312: END IF;
3305: p_object_version_no => l_object_version_number
3306: );
3307:
3308: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3312: END IF;
3313:
3306: );
3307:
3308: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3312: END IF;
3313:
3314: -- R12
3307:
3308: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3312: END IF;
3313:
3314: -- R12
3315: -- Tech UIs
3313:
3314: -- R12
3315: -- Tech UIs
3316: -- default the workorder actual dates
3317: IF p_default = FND_API.G_TRUE THEN
3318: -- retrieve the workorder actual dates
3319: OPEN get_wo_dates(p_workorder_id);
3320: FETCH get_wo_dates INTO l_actual_start_date, l_actual_end_date, l_wo_name;
3321: IF get_wo_dates%NOTFOUND THEN
3324: -- Error defaulting the actual dates for workorder WO_NAME before completion.
3325: -- Do we raise an error for this or just ignore the error since this is defaulting code?
3326: -- Check during UTs
3327: FND_MSG_PUB.add;
3328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3329: END IF; -- IF get_wo_dates%NOTFOUND THEN
3330: CLOSE get_wo_dates;
3331:
3332: Get_default_wo_actual_dates(p_workorder_id => p_workorder_id,
3332: Get_default_wo_actual_dates(p_workorder_id => p_workorder_id,
3333: x_return_status => l_return_status,
3334: x_actual_start_date => l_def_actual_start_date,
3335: x_actual_end_date => l_def_actual_end_date);
3336: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
3337: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3338: FND_MSG_PUB.add;
3339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3340: END IF;
3335: x_actual_end_date => l_def_actual_end_date);
3336: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
3337: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3338: FND_MSG_PUB.add;
3339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3340: END IF;
3341: /* Start ER # 4757222 */
3342: l_up_workorder_rec.WORKORDER_ID := p_workorder_id;
3343: l_up_workorder_rec.ACTUAL_START_DATE := nvl(l_actual_start_date, l_def_actual_start_date);
3355:
3356: AHL_PRD_WORKORDER_PVT.update_job
3357: (
3358: p_api_version => 1.0 ,
3359: p_init_msg_list => FND_API.G_TRUE ,
3360: p_commit => FND_API.G_FALSE ,
3361: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3362: p_default => FND_API.G_TRUE ,
3363: p_module_type => NULL ,
3356: AHL_PRD_WORKORDER_PVT.update_job
3357: (
3358: p_api_version => 1.0 ,
3359: p_init_msg_list => FND_API.G_TRUE ,
3360: p_commit => FND_API.G_FALSE ,
3361: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3362: p_default => FND_API.G_TRUE ,
3363: p_module_type => NULL ,
3364: x_return_status => l_return_status ,
3357: (
3358: p_api_version => 1.0 ,
3359: p_init_msg_list => FND_API.G_TRUE ,
3360: p_commit => FND_API.G_FALSE ,
3361: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3362: p_default => FND_API.G_TRUE ,
3363: p_module_type => NULL ,
3364: x_return_status => l_return_status ,
3365: x_msg_count => l_msg_count ,
3358: p_api_version => 1.0 ,
3359: p_init_msg_list => FND_API.G_TRUE ,
3360: p_commit => FND_API.G_FALSE ,
3361: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3362: p_default => FND_API.G_TRUE ,
3363: p_module_type => NULL ,
3364: x_return_status => l_return_status ,
3365: x_msg_count => l_msg_count ,
3366: x_msg_data => l_msg_data ,
3368: p_x_prd_workorder_rec => l_up_workorder_rec ,
3369: p_x_prd_workoper_tbl => l_up_workoper_tbl
3370: );
3371:
3372: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3375:
3376: l_object_version_number := l_up_workorder_rec.object_version_number;
3369: p_x_prd_workoper_tbl => l_up_workoper_tbl
3370: );
3371:
3372: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3375:
3376: l_object_version_number := l_up_workorder_rec.object_version_number;
3377:
3386: WHERE WORKORDER_ID = p_workorder_id;
3387: IF SQL%ROWCOUNT = 0 THEN
3388: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3389: FND_MSG_PUB.add;
3390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3391: END IF;
3392: END IF;-- IF l_actual_start_date IS NULL THEN
3393:
3394: -- update the actual dates in the table
3401: WHERE WORKORDER_ID = p_workorder_id;
3402: IF SQL%ROWCOUNT = 0 THEN
3403: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3404: FND_MSG_PUB.add;
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: END IF;
3407: END IF; -- IF l_actual_end_date IS NULL THEN
3408: */
3409: /* End ER # 4757222 */
3406: END IF;
3407: END IF; -- IF l_actual_end_date IS NULL THEN
3408: */
3409: /* End ER # 4757222 */
3410: END IF; -- IF p_default = FND_API.G_TRUE THEN
3411:
3412:
3413: --Get the Workorder Details
3414: l_return_status :=
3418: p_object_version_no => l_object_version_number,
3419: x_workorder_rec => l_workorder_rec
3420: );
3421:
3422: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3426: END IF;
3419: x_workorder_rec => l_workorder_rec
3420: );
3421:
3422: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3426: END IF;
3427:
3420: );
3421:
3422: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3426: END IF;
3427:
3428: --Get the Associated Operations
3421:
3422: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3426: END IF;
3427:
3428: --Get the Associated Operations
3429: l_return_status :=
3433: p_object_version_no => l_object_version_number,
3434: x_operation_tbl => l_operation_tbl
3435: );
3436:
3437: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3438: RAISE FND_API.G_EXC_ERROR;
3439: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3434: x_operation_tbl => l_operation_tbl
3435: );
3436:
3437: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3438: RAISE FND_API.G_EXC_ERROR;
3439: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3442:
3435: );
3436:
3437: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3438: RAISE FND_API.G_EXC_ERROR;
3439: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3442:
3443: --Validate the Workorder
3436:
3437: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3438: RAISE FND_API.G_EXC_ERROR;
3439: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3441: END IF;
3442:
3443: --Validate the Workorder
3444: l_return_status :=
3447: p_workorder_rec => l_workorder_rec,
3448: p_operation_tbl => l_operation_tbl
3449: );
3450:
3451: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3452: RAISE FND_API.G_EXC_ERROR;
3453: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: END IF;
3448: p_operation_tbl => l_operation_tbl
3449: );
3450:
3451: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3452: RAISE FND_API.G_EXC_ERROR;
3453: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: END IF;
3456:
3449: );
3450:
3451: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3452: RAISE FND_API.G_EXC_ERROR;
3453: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: END IF;
3456:
3457: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3450:
3451: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3452: RAISE FND_API.G_EXC_ERROR;
3453: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: END IF;
3456:
3457: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3458: l_msg_count := FND_MSG_PUB.count_msg;
3457: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3458: l_msg_count := FND_MSG_PUB.count_msg;
3459: IF l_msg_count > 0 THEN
3460: x_msg_count := l_msg_count;
3461: RAISE FND_API.G_EXC_ERROR;
3462: END IF;
3463:
3464: -- R12: Tech UIs
3465: -- Log all technicians out of the workorder being completed
3468: FETCH c_get_login_recs INTO l_employee_id, l_operation_seq_num, l_resource_seq_num;
3469: EXIT WHEN c_get_login_recs%NOTFOUND;
3470: AHL_PRD_WO_LOGIN_PVT.Workorder_Logout(p_api_version => 1.0,
3471: p_init_msg_list => p_init_msg_list,
3472: p_commit => FND_API.G_FALSE,
3473: p_validation_level => p_validation_level,
3474: x_return_status => l_return_status,
3475: x_msg_count => l_msg_count,
3476: x_msg_data => l_msg_data,
3478: p_workorder_id => l_workorder_rec.workorder_id,
3479: p_operation_seq_num => l_operation_seq_num,
3480: p_resource_seq_num => l_resource_seq_num
3481: );
3482: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3483: EXIT;
3484: END IF;
3485: END LOOP;
3486: CLOSE c_get_login_recs;
3484: END IF;
3485: END LOOP;
3486: CLOSE c_get_login_recs;
3487:
3488: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491:
3492: --Complete the EAM Workorder
3485: END LOOP;
3486: CLOSE c_get_login_recs;
3487:
3488: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491:
3492: --Complete the EAM Workorder
3493: l_return_status :=
3495: (
3496: p_workorder_rec => l_workorder_rec
3497: );
3498:
3499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3500: RAISE FND_API.G_EXC_ERROR;
3501: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3503: END IF;
3496: p_workorder_rec => l_workorder_rec
3497: );
3498:
3499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3500: RAISE FND_API.G_EXC_ERROR;
3501: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3503: END IF;
3504:
3497: );
3498:
3499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3500: RAISE FND_API.G_EXC_ERROR;
3501: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3503: END IF;
3504:
3505: --Complete the AHL Workorder
3498:
3499: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3500: RAISE FND_API.G_EXC_ERROR;
3501: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3503: END IF;
3504:
3505: --Complete the AHL Workorder
3506: l_return_status :=
3509: p_workorder_rec => l_workorder_rec,
3510: p_status_code => G_JOB_STATUS_COMPLETE
3511: );
3512:
3513: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3514: RAISE FND_API.G_EXC_ERROR;
3515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3517: END IF;
3510: p_status_code => G_JOB_STATUS_COMPLETE
3511: );
3512:
3513: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3514: RAISE FND_API.G_EXC_ERROR;
3515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3517: END IF;
3518:
3511: );
3512:
3513: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3514: RAISE FND_API.G_EXC_ERROR;
3515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3517: END IF;
3518:
3519: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3512:
3513: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3514: RAISE FND_API.G_EXC_ERROR;
3515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3517: END IF;
3518:
3519: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3520:
3519: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3520:
3521: --If l_workorder_rec.collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
3522: IF ( l_workorder_rec.collection_id IS NOT NULL AND
3523: FND_API.to_boolean( p_commit ) ) THEN
3524: QA_SS_RESULTS.wrapper_fire_action
3525: (
3526: q_collection_id => l_workorder_rec.collection_id,
3527: q_return_status => l_return_status,
3528: q_msg_count => l_msg_count,
3529: q_msg_data => l_msg_data
3530: );
3531:
3532: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3533: x_msg_data := l_msg_data;
3534: x_msg_count := l_msg_count;
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: RETURN;
3531:
3532: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3533: x_msg_data := l_msg_data;
3534: x_msg_count := l_msg_count;
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: RETURN;
3537: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3533: x_msg_data := l_msg_data;
3534: x_msg_count := l_msg_count;
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: RETURN;
3537: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540:
3541: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3534: x_msg_count := l_msg_count;
3535: x_return_status := FND_API.G_RET_STS_ERROR;
3536: RETURN;
3537: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3539: END IF;
3540:
3541: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3542: SAVEPOINT complete_workorder_PVT;
3544: END IF;
3545:
3546: IF ( G_CTR_READING_PLAN_ID IS NOT NULL AND
3547: l_workorder_rec.item_instance_id IS NOT NULL AND
3548: FND_API.to_boolean( p_commit ) ) THEN
3549:
3550: -- Get the Current Counter Readings for all Counters associted with
3551: -- the Item Instance.
3552: -- Bug # 6784053 (FP for Bug # 6750836) -- start
3559: x_counter_tbl => l_counter_tbl
3560: );
3561: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3562:
3563: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3564: RAISE FND_API.G_EXC_ERROR;
3565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3567: END IF;
3560: );
3561: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3562:
3563: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3564: RAISE FND_API.G_EXC_ERROR;
3565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3567: END IF;
3568:
3561: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3562:
3563: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3564: RAISE FND_API.G_EXC_ERROR;
3565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3567: END IF;
3568:
3569: IF ( l_counter_tbl.COUNT > 0 ) THEN
3562:
3563: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3564: RAISE FND_API.G_EXC_ERROR;
3565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3567: END IF;
3568:
3569: IF ( l_counter_tbl.COUNT > 0 ) THEN
3570: l_return_status :=
3575: p_wip_entity_id => l_workorder_rec.wip_entity_id,
3576: p_counter_tbl => l_counter_tbl
3577: );
3578:
3579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3580: RAISE FND_API.G_EXC_ERROR;
3581: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3576: p_counter_tbl => l_counter_tbl
3577: );
3578:
3579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3580: RAISE FND_API.G_EXC_ERROR;
3581: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584:
3577: );
3578:
3579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3580: RAISE FND_API.G_EXC_ERROR;
3581: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584:
3585: -- Re-set the API savepoint because, Quality Results submission commits
3578:
3579: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3580: RAISE FND_API.G_EXC_ERROR;
3581: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584:
3585: -- Re-set the API savepoint because, Quality Results submission commits
3586: IF FND_API.to_boolean( p_commit ) THEN
3582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584:
3585: -- Re-set the API savepoint because, Quality Results submission commits
3586: IF FND_API.to_boolean( p_commit ) THEN
3587: SAVEPOINT complete_workorder_PVT;
3588: END IF;
3589: END IF;
3590:
3594: -- Delete remaining reservations.
3595: Delete_Serial_Reservations (p_workorder_id => p_workorder_id,
3596: x_return_status => l_return_status);
3597:
3598: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3599: RAISE FND_API.G_EXC_ERROR;
3600: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3602: END IF;
3595: Delete_Serial_Reservations (p_workorder_id => p_workorder_id,
3596: x_return_status => l_return_status);
3597:
3598: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3599: RAISE FND_API.G_EXC_ERROR;
3600: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3602: END IF;
3603:
3596: x_return_status => l_return_status);
3597:
3598: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3599: RAISE FND_API.G_EXC_ERROR;
3600: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3602: END IF;
3603:
3604: /* Commenting out as part of fix for bug 4626717 Issue 5
3597:
3598: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3599: RAISE FND_API.G_EXC_ERROR;
3600: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3602: END IF;
3603:
3604: /* Commenting out as part of fix for bug 4626717 Issue 5
3605: FOR parent_csr IN get_parent_master_wos( l_workorder_rec.wip_entity_id ) LOOP
3622:
3623: complete_workorder
3624: (
3625: p_api_version => 1.0,
3626: p_init_msg_list => FND_API.G_TRUE,
3627: p_commit => p_commit,
3628: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3629: p_default => FND_API.G_FALSE,
3630: p_module_type => NULL,
3624: (
3625: p_api_version => 1.0,
3626: p_init_msg_list => FND_API.G_TRUE,
3627: p_commit => p_commit,
3628: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3629: p_default => FND_API.G_FALSE,
3630: p_module_type => NULL,
3631: x_return_status => l_return_status,
3632: x_msg_count => l_msg_count,
3625: p_api_version => 1.0,
3626: p_init_msg_list => FND_API.G_TRUE,
3627: p_commit => p_commit,
3628: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3629: p_default => FND_API.G_FALSE,
3630: p_module_type => NULL,
3631: x_return_status => l_return_status,
3632: x_msg_count => l_msg_count,
3633: x_msg_data => l_msg_data,
3634: p_workorder_id => parent_csr.workorder_id,
3635: p_object_version_no => parent_csr.object_version_number
3636: );
3637:
3638: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3639: RAISE FND_API.G_EXC_ERROR;
3640: END IF;
3641:
3642: -- Re-set the API savepoint because, complete_workorder commits
3635: p_object_version_no => parent_csr.object_version_number
3636: );
3637:
3638: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3639: RAISE FND_API.G_EXC_ERROR;
3640: END IF;
3641:
3642: -- Re-set the API savepoint because, complete_workorder commits
3643: IF FND_API.to_boolean( p_commit ) THEN
3639: RAISE FND_API.G_EXC_ERROR;
3640: END IF;
3641:
3642: -- Re-set the API savepoint because, complete_workorder commits
3643: IF FND_API.to_boolean( p_commit ) THEN
3644: SAVEPOINT complete_workorder_PVT;
3645: END IF;
3646:
3647: ELSE
3669:
3670: complete_mr_instance
3671: (
3672: p_api_version => 1.0,
3673: p_init_msg_list => FND_API.G_TRUE,
3674: p_commit => p_commit,
3675: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3676: p_default => FND_API.G_FALSE,
3677: p_module_type => NULL,
3671: (
3672: p_api_version => 1.0,
3673: p_init_msg_list => FND_API.G_TRUE,
3674: p_commit => p_commit,
3675: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3676: p_default => FND_API.G_FALSE,
3677: p_module_type => NULL,
3678: x_return_status => l_return_status,
3679: x_msg_count => l_msg_count,
3672: p_api_version => 1.0,
3673: p_init_msg_list => FND_API.G_TRUE,
3674: p_commit => p_commit,
3675: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3676: p_default => FND_API.G_FALSE,
3677: p_module_type => NULL,
3678: x_return_status => l_return_status,
3679: x_msg_count => l_msg_count,
3680: x_msg_data => l_msg_data,
3681: p_x_mr_rec => l_mr_rec
3682: );
3683:
3684: -- Abort for Unexpected errors, but, continue for other errors.
3685: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3686: IF ( G_DEBUG = 'Y' ) THEN
3687: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Could Not Complete MR Instance with UE : ' || TO_CHAR( l_workorder_rec.unit_effectivity_id ) || ' associated to Workorder : ' || TO_CHAR( p_workorder_id ) || ' because of...' );
3688: FOR I IN 1..l_msg_count LOOP
3689: FND_MSG_PUB.get
3688: FOR I IN 1..l_msg_count LOOP
3689: FND_MSG_PUB.get
3690: (
3691: p_msg_index => i,
3692: p_encoded => FND_API.G_FALSE,
3693: p_data => l_msg_data,
3694: p_msg_index_out => l_msg_index_out
3695: );
3696:
3698: END LOOP;
3699: END IF;
3700:
3701: -- Initialize message list since errors are not reported
3702: IF FND_API.to_boolean( p_init_msg_list ) THEN
3703: FND_MSG_PUB.initialize;
3704: END IF;
3705:
3706: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3702: IF FND_API.to_boolean( p_init_msg_list ) THEN
3703: FND_MSG_PUB.initialize;
3704: END IF;
3705:
3706: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3707: x_return_status := l_return_status;
3708: x_msg_data := l_msg_data;
3709: x_msg_count := l_msg_count;
3710: RETURN;
3713: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completed MR Instance with UE : ' || TO_CHAR( l_workorder_rec.unit_effectivity_id ) || ' associated to Workorder : ' || TO_CHAR( p_workorder_id ) || ' Successfuly...' );
3714: END IF;
3715:
3716: -- Re-set the API savepoint because, complete_mr_instance commits
3717: IF FND_API.to_boolean( p_commit ) THEN
3718: SAVEPOINT complete_workorder_PVT;
3719: END IF;
3720: END IF;
3721: END IF; --Child checks
3723: END IF;
3724: END IF;
3725:
3726: -- Perform the Commit (if requested)
3727: IF FND_API.to_boolean( p_commit ) THEN
3728: COMMIT WORK;
3729: END IF;
3730:
3731: -- Disable debug (if enabled)
3734: END IF;
3735:
3736: EXCEPTION
3737:
3738: WHEN FND_API.G_EXC_ERROR THEN
3739: ROLLBACK TO complete_workorder_PVT;
3740: x_return_status := FND_API.G_RET_STS_ERROR;
3741: FND_MSG_PUB.count_and_get
3742: (
3736: EXCEPTION
3737:
3738: WHEN FND_API.G_EXC_ERROR THEN
3739: ROLLBACK TO complete_workorder_PVT;
3740: x_return_status := FND_API.G_RET_STS_ERROR;
3741: FND_MSG_PUB.count_and_get
3742: (
3743: p_encoded => FND_API.G_FALSE,
3744: p_count => x_msg_count,
3739: ROLLBACK TO complete_workorder_PVT;
3740: x_return_status := FND_API.G_RET_STS_ERROR;
3741: FND_MSG_PUB.count_and_get
3742: (
3743: p_encoded => FND_API.G_FALSE,
3744: p_count => x_msg_count,
3745: p_data => x_msg_data
3746: );
3747:
3748: IF ( G_DEBUG = 'Y' ) THEN
3749: AHL_DEBUG_PUB.disable_debug;
3750: END IF;
3751:
3752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3753: ROLLBACK TO complete_workorder_PVT;
3754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3755: FND_MSG_PUB.count_and_get
3756: (
3750: END IF;
3751:
3752: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3753: ROLLBACK TO complete_workorder_PVT;
3754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3755: FND_MSG_PUB.count_and_get
3756: (
3757: p_encoded => FND_API.G_FALSE,
3758: p_count => x_msg_count,
3753: ROLLBACK TO complete_workorder_PVT;
3754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3755: FND_MSG_PUB.count_and_get
3756: (
3757: p_encoded => FND_API.G_FALSE,
3758: p_count => x_msg_count,
3759: p_data => x_msg_data
3760: );
3761:
3764: END IF;
3765:
3766: WHEN OTHERS THEN
3767: ROLLBACK TO complete_workorder_PVT;
3768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3769: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3770: THEN
3771: FND_MSG_PUB.add_exc_msg
3772: (
3776: );
3777: END IF;
3778: FND_MSG_PUB.count_and_get
3779: (
3780: p_encoded => FND_API.G_FALSE,
3781: p_count => x_msg_count,
3782: p_data => x_msg_data
3783: );
3784:
3789:
3790: PROCEDURE defer_workorder
3791: (
3792: p_api_version IN NUMBER := 1.0,
3793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3796: p_default IN VARCHAR2 := FND_API.G_FALSE,
3797: p_module_type IN VARCHAR2 := NULL,
3790: PROCEDURE defer_workorder
3791: (
3792: p_api_version IN NUMBER := 1.0,
3793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3796: p_default IN VARCHAR2 := FND_API.G_FALSE,
3797: p_module_type IN VARCHAR2 := NULL,
3798: x_return_status OUT NOCOPY VARCHAR2,
3791: (
3792: p_api_version IN NUMBER := 1.0,
3793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3796: p_default IN VARCHAR2 := FND_API.G_FALSE,
3797: p_module_type IN VARCHAR2 := NULL,
3798: x_return_status OUT NOCOPY VARCHAR2,
3799: x_msg_count OUT NOCOPY NUMBER,
3792: p_api_version IN NUMBER := 1.0,
3793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3794: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3795: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3796: p_default IN VARCHAR2 := FND_API.G_FALSE,
3797: p_module_type IN VARCHAR2 := NULL,
3798: x_return_status OUT NOCOPY VARCHAR2,
3799: x_msg_count OUT NOCOPY NUMBER,
3800: x_msg_data OUT NOCOPY VARCHAR2,
3817: AHL_DEBUG_PUB.enable_debug;
3818: END IF;
3819:
3820: -- Initialize API return status to success
3821: x_return_status := FND_API.G_RET_STS_SUCCESS;
3822:
3823: -- Standard Start of API savepoint
3824: SAVEPOINT defer_workorder_PVT;
3825:
3823: -- Standard Start of API savepoint
3824: SAVEPOINT defer_workorder_PVT;
3825:
3826: -- Initialize message list if p_init_msg_list is set to TRUE.
3827: IF FND_API.to_boolean( p_init_msg_list ) THEN
3828: FND_MSG_PUB.initialize;
3829: END IF;
3830:
3831: -- Validate all the inputs of the API
3835: p_workorder_id => p_workorder_id,
3836: p_object_version_no => p_object_version_no
3837: );
3838:
3839: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3840: RAISE FND_API.G_EXC_ERROR;
3841: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3843: END IF;
3836: p_object_version_no => p_object_version_no
3837: );
3838:
3839: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3840: RAISE FND_API.G_EXC_ERROR;
3841: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3843: END IF;
3844:
3837: );
3838:
3839: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3840: RAISE FND_API.G_EXC_ERROR;
3841: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3843: END IF;
3844:
3845: --Get the Workorder Details
3838:
3839: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3840: RAISE FND_API.G_EXC_ERROR;
3841: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3843: END IF;
3844:
3845: --Get the Workorder Details
3846: l_return_status :=
3850: p_object_version_no => p_object_version_no,
3851: x_workorder_rec => l_workorder_rec
3852: );
3853:
3854: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3855: RAISE FND_API.G_EXC_ERROR;
3856: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858: END IF;
3851: x_workorder_rec => l_workorder_rec
3852: );
3853:
3854: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3855: RAISE FND_API.G_EXC_ERROR;
3856: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858: END IF;
3859:
3852: );
3853:
3854: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3855: RAISE FND_API.G_EXC_ERROR;
3856: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858: END IF;
3859:
3860: --Validate the Workorder
3853:
3854: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3855: RAISE FND_API.G_EXC_ERROR;
3856: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858: END IF;
3859:
3860: --Validate the Workorder
3861: l_return_status :=
3863: (
3864: p_workorder_rec => l_workorder_rec
3865: );
3866:
3867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3868: RAISE FND_API.G_EXC_ERROR;
3869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3871: END IF;
3864: p_workorder_rec => l_workorder_rec
3865: );
3866:
3867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3868: RAISE FND_API.G_EXC_ERROR;
3869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3871: END IF;
3872:
3865: );
3866:
3867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3868: RAISE FND_API.G_EXC_ERROR;
3869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3871: END IF;
3872:
3873: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3866:
3867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3868: RAISE FND_API.G_EXC_ERROR;
3869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3871: END IF;
3872:
3873: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3874: l_msg_count := FND_MSG_PUB.count_msg;
3873: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3874: l_msg_count := FND_MSG_PUB.count_msg;
3875: IF l_msg_count > 0 THEN
3876: x_msg_count := l_msg_count;
3877: RAISE FND_API.G_EXC_ERROR;
3878: END IF;
3879:
3880: --Complete the EAM Workorder
3881: l_return_status :=
3883: (
3884: p_workorder_rec => l_workorder_rec
3885: );
3886:
3887: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3888: RAISE FND_API.G_EXC_ERROR;
3889: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3891: END IF;
3884: p_workorder_rec => l_workorder_rec
3885: );
3886:
3887: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3888: RAISE FND_API.G_EXC_ERROR;
3889: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3891: END IF;
3892:
3885: );
3886:
3887: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3888: RAISE FND_API.G_EXC_ERROR;
3889: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3891: END IF;
3892:
3893: --Defer the AHL Workorder
3886:
3887: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3888: RAISE FND_API.G_EXC_ERROR;
3889: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3891: END IF;
3892:
3893: --Defer the AHL Workorder
3894: l_return_status :=
3897: p_workorder_rec => l_workorder_rec,
3898: p_status_code => G_JOB_STATUS_COMPLETE
3899: );
3900:
3901: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3905: END IF;
3898: p_status_code => G_JOB_STATUS_COMPLETE
3899: );
3900:
3901: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3905: END IF;
3906:
3899: );
3900:
3901: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3905: END IF;
3906:
3907: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3900:
3901: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3905: END IF;
3906:
3907: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3908:
3915: q_msg_count => l_msg_count,
3916: q_msg_data => l_msg_data
3917: );
3918:
3919: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3920: x_msg_data := l_msg_data;
3921: x_msg_count := l_msg_count;
3922: x_return_status := FND_API.G_RET_STS_ERROR;
3923: RETURN;
3918:
3919: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3920: x_msg_data := l_msg_data;
3921: x_msg_count := l_msg_count;
3922: x_return_status := FND_API.G_RET_STS_ERROR;
3923: RETURN;
3924: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3926: END IF;
3920: x_msg_data := l_msg_data;
3921: x_msg_count := l_msg_count;
3922: x_return_status := FND_API.G_RET_STS_ERROR;
3923: RETURN;
3924: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3926: END IF;
3927:
3928: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3921: x_msg_count := l_msg_count;
3922: x_return_status := FND_API.G_RET_STS_ERROR;
3923: RETURN;
3924: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3926: END IF;
3927:
3928: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3929: SAVEPOINT defer_workorder_PVT;
3944: p_actual_date => l_workorder_rec.actual_end_date,
3945: x_counter_tbl => l_counter_tbl
3946: );
3947: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3948: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3945: x_counter_tbl => l_counter_tbl
3946: );
3947: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3948: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953:
3946: );
3947: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3948: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953:
3954: IF ( l_counter_tbl.COUNT > 0 ) THEN
3947: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3948: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3949: RAISE FND_API.G_EXC_ERROR;
3950: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953:
3954: IF ( l_counter_tbl.COUNT > 0 ) THEN
3955: l_return_status :=
3960: p_wip_entity_id => l_workorder_rec.wip_entity_id,
3961: p_counter_tbl => l_counter_tbl
3962: );
3963:
3964: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3968: END IF;
3961: p_counter_tbl => l_counter_tbl
3962: );
3963:
3964: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3968: END IF;
3969:
3962: );
3963:
3964: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3968: END IF;
3969:
3970: -- Re-set the API savepoint because, Quality Results submission commits
3963:
3964: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3968: END IF;
3969:
3970: -- Re-set the API savepoint because, Quality Results submission commits
3971: SAVEPOINT defer_workorder_PVT;
3972: END IF;
3973: END IF;
3974:
3975: -- Perform the Commit (if requested)
3976: IF FND_API.to_boolean( p_commit ) THEN
3977: COMMIT WORK;
3978: END IF;
3979:
3980: -- Disable debug (if enabled)
3983: END IF;
3984:
3985: EXCEPTION
3986:
3987: WHEN FND_API.G_EXC_ERROR THEN
3988: ROLLBACK TO defer_workorder_PVT;
3989: x_return_status := FND_API.G_RET_STS_ERROR;
3990: FND_MSG_PUB.count_and_get
3991: (
3985: EXCEPTION
3986:
3987: WHEN FND_API.G_EXC_ERROR THEN
3988: ROLLBACK TO defer_workorder_PVT;
3989: x_return_status := FND_API.G_RET_STS_ERROR;
3990: FND_MSG_PUB.count_and_get
3991: (
3992: p_encoded => FND_API.G_FALSE,
3993: p_count => x_msg_count,
3988: ROLLBACK TO defer_workorder_PVT;
3989: x_return_status := FND_API.G_RET_STS_ERROR;
3990: FND_MSG_PUB.count_and_get
3991: (
3992: p_encoded => FND_API.G_FALSE,
3993: p_count => x_msg_count,
3994: p_data => x_msg_data
3995: );
3996:
3997: IF ( G_DEBUG = 'Y' ) THEN
3998: AHL_DEBUG_PUB.disable_debug;
3999: END IF;
4000:
4001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4002: ROLLBACK TO defer_workorder_PVT;
4003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4004: FND_MSG_PUB.count_and_get
4005: (
3999: END IF;
4000:
4001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4002: ROLLBACK TO defer_workorder_PVT;
4003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4004: FND_MSG_PUB.count_and_get
4005: (
4006: p_encoded => FND_API.G_FALSE,
4007: p_count => x_msg_count,
4002: ROLLBACK TO defer_workorder_PVT;
4003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4004: FND_MSG_PUB.count_and_get
4005: (
4006: p_encoded => FND_API.G_FALSE,
4007: p_count => x_msg_count,
4008: p_data => x_msg_data
4009: );
4010:
4013: END IF;
4014:
4015: WHEN OTHERS THEN
4016: ROLLBACK TO defer_workorder_PVT;
4017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4018: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4019: THEN
4020: FND_MSG_PUB.add_exc_msg
4021: (
4025: );
4026: END IF;
4027: FND_MSG_PUB.count_and_get
4028: (
4029: p_encoded => FND_API.G_FALSE,
4030: p_count => x_msg_count,
4031: p_data => x_msg_data
4032: );
4033:
4040: -- Procedure to Complete a FMP / UMP MR Instance
4041: PROCEDURE complete_mr_instance
4042: (
4043: p_api_version IN NUMBER := 1.0,
4044: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4045: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4046: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4047: p_default IN VARCHAR2 := FND_API.G_FALSE,
4048: p_module_type IN VARCHAR2 := NULL,
4041: PROCEDURE complete_mr_instance
4042: (
4043: p_api_version IN NUMBER := 1.0,
4044: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4045: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4046: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4047: p_default IN VARCHAR2 := FND_API.G_FALSE,
4048: p_module_type IN VARCHAR2 := NULL,
4049: x_return_status OUT NOCOPY VARCHAR2,
4042: (
4043: p_api_version IN NUMBER := 1.0,
4044: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4045: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4046: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4047: p_default IN VARCHAR2 := FND_API.G_FALSE,
4048: p_module_type IN VARCHAR2 := NULL,
4049: x_return_status OUT NOCOPY VARCHAR2,
4050: x_msg_count OUT NOCOPY NUMBER,
4043: p_api_version IN NUMBER := 1.0,
4044: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4045: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4046: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4047: p_default IN VARCHAR2 := FND_API.G_FALSE,
4048: p_module_type IN VARCHAR2 := NULL,
4049: x_return_status OUT NOCOPY VARCHAR2,
4050: x_msg_count OUT NOCOPY NUMBER,
4051: x_msg_data OUT NOCOPY VARCHAR2,
4083: AHL_DEBUG_PUB.enable_debug;
4084: END IF;
4085:
4086: -- Initialize API return status to success
4087: x_return_status := FND_API.G_RET_STS_SUCCESS;
4088:
4089: -- Standard Start of API savepoint
4090: SAVEPOINT complete_mr_instance_PVT;
4091:
4089: -- Standard Start of API savepoint
4090: SAVEPOINT complete_mr_instance_PVT;
4091:
4092: -- Initialize message list if p_init_msg_list is set to TRUE.
4093: IF FND_API.to_boolean( p_init_msg_list ) THEN
4094: FND_MSG_PUB.initialize;
4095: END IF;
4096:
4097: -- Validate all the inputs of the API
4100: (
4101: p_mr_rec => p_x_mr_rec
4102: );
4103:
4104: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4105: RAISE FND_API.G_EXC_ERROR;
4106: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4101: p_mr_rec => p_x_mr_rec
4102: );
4103:
4104: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4105: RAISE FND_API.G_EXC_ERROR;
4106: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4102: );
4103:
4104: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4105: RAISE FND_API.G_EXC_ERROR;
4106: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4110: -- default missing attributes of the input MR Instance Record
4103:
4104: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4105: RAISE FND_API.G_EXC_ERROR;
4106: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4110: -- default missing attributes of the input MR Instance Record
4111: l_return_status :=
4113: (
4114: p_x_mr_rec => p_x_mr_rec
4115: );
4116:
4117: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4121: END IF;
4114: p_x_mr_rec => p_x_mr_rec
4115: );
4116:
4117: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4121: END IF;
4122:
4115: );
4116:
4117: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4121: END IF;
4122:
4123: IF ( G_DEBUG = 'Y' ) THEN
4116:
4117: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4118: RAISE FND_API.G_EXC_ERROR;
4119: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4121: END IF;
4122:
4123: IF ( G_DEBUG = 'Y' ) THEN
4124: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4143: p_mr_status => p_x_mr_rec.ue_status,
4144: p_mr_title => p_x_mr_rec.mr_title
4145: );
4146:
4147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4151: END IF;
4144: p_mr_title => p_x_mr_rec.mr_title
4145: );
4146:
4147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4151: END IF;
4152:
4145: );
4146:
4147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4151: END IF;
4152:
4153: -- Check if the MR/SR Instance is complete
4146:
4147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4148: RAISE FND_API.G_EXC_ERROR;
4149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4151: END IF;
4152:
4153: -- Check if the MR/SR Instance is complete
4154: l_return_status:=
4161: p_qa_plan_id => p_x_mr_rec.qa_plan_id,
4162: p_qa_collection_id => p_x_mr_rec.qa_collection_id
4163: );
4164:
4165: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4166: RAISE FND_API.G_EXC_ERROR;
4167: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4169: END IF;
4162: p_qa_collection_id => p_x_mr_rec.qa_collection_id
4163: );
4164:
4165: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4166: RAISE FND_API.G_EXC_ERROR;
4167: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4169: END IF;
4170:
4163: );
4164:
4165: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4166: RAISE FND_API.G_EXC_ERROR;
4167: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4169: END IF;
4170:
4171: -- Check if all Child MR Instances are complete
4164:
4165: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4166: RAISE FND_API.G_EXC_ERROR;
4167: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4169: END IF;
4170:
4171: -- Check if all Child MR Instances are complete
4172: l_return_status :=
4174: (
4175: p_mr_rec => p_x_mr_rec
4176: );
4177:
4178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4179: RAISE FND_API.G_EXC_ERROR;
4180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4182: END IF;
4175: p_mr_rec => p_x_mr_rec
4176: );
4177:
4178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4179: RAISE FND_API.G_EXC_ERROR;
4180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4182: END IF;
4183:
4176: );
4177:
4178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4179: RAISE FND_API.G_EXC_ERROR;
4180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4182: END IF;
4183:
4184: IF ( G_DEBUG = 'Y' ) THEN
4177:
4178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4179: RAISE FND_API.G_EXC_ERROR;
4180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4182: END IF;
4183:
4184: IF ( G_DEBUG = 'Y' ) THEN
4185: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Getting Reset Counters' );
4197: x_counter_tbl => l_reset_counter_tbl
4198: );
4199: END IF;
4200:
4201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4202: RAISE FND_API.G_EXC_ERROR;
4203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4205: END IF;
4198: );
4199: END IF;
4200:
4201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4202: RAISE FND_API.G_EXC_ERROR;
4203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4205: END IF;
4206:
4199: END IF;
4200:
4201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4202: RAISE FND_API.G_EXC_ERROR;
4203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4205: END IF;
4206:
4207: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
4200:
4201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4202: RAISE FND_API.G_EXC_ERROR;
4203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4205: END IF;
4206:
4207: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
4208:
4220: x_msg_count => l_msg_count,
4221: x_msg_data => l_msg_data
4222: );
4223:
4224: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4225: IF ( l_msg_data IS NOT NULL ) THEN
4226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4227: x_msg_count := l_msg_count;
4228: x_msg_data := l_msg_data;
4222: );
4223:
4224: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4225: IF ( l_msg_data IS NOT NULL ) THEN
4226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4227: x_msg_count := l_msg_count;
4228: x_msg_data := l_msg_data;
4229: RETURN;
4230: END IF;
4227: x_msg_count := l_msg_count;
4228: x_msg_data := l_msg_data;
4229: RETURN;
4230: END IF;
4231: RAISE FND_API.G_EXC_ERROR;
4232: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4234: END IF;
4235:
4228: x_msg_data := l_msg_data;
4229: RETURN;
4230: END IF;
4231: RAISE FND_API.G_EXC_ERROR;
4232: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4234: END IF;
4235:
4236: END IF;
4229: RETURN;
4230: END IF;
4231: RAISE FND_API.G_EXC_ERROR;
4232: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4234: END IF;
4235:
4236: END IF;
4237:
4250: p_actual_date => p_x_mr_rec.actual_end_date,
4251: x_counter_tbl => l_counter_tbl
4252: );
4253: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4254: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4255: RAISE FND_API.G_EXC_ERROR;
4256: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4258: END IF;
4251: x_counter_tbl => l_counter_tbl
4252: );
4253: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4254: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4255: RAISE FND_API.G_EXC_ERROR;
4256: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4258: END IF;
4259:
4252: );
4253: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4254: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4255: RAISE FND_API.G_EXC_ERROR;
4256: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4258: END IF;
4259:
4260: /* Removed for Bug 3310304
4253: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4254: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4255: RAISE FND_API.G_EXC_ERROR;
4256: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4258: END IF;
4259:
4260: /* Removed for Bug 3310304
4261: IF ( l_counter_tbl.COUNT > 0 ) THEN
4277: x_msg_count => l_msg_count,
4278: x_msg_data => l_msg_data
4279: );
4280:
4281: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4282: IF ( l_msg_data IS NOT NULL ) THEN
4283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4284: x_msg_count := l_msg_count;
4285: x_msg_data := l_msg_data;
4279: );
4280:
4281: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4282: IF ( l_msg_data IS NOT NULL ) THEN
4283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4284: x_msg_count := l_msg_count;
4285: x_msg_data := l_msg_data;
4286: RETURN;
4287: END IF;
4284: x_msg_count := l_msg_count;
4285: x_msg_data := l_msg_data;
4286: RETURN;
4287: END IF;
4288: RAISE FND_API.G_EXC_ERROR;
4289: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4291: END IF;
4292:
4285: x_msg_data := l_msg_data;
4286: RETURN;
4287: END IF;
4288: RAISE FND_API.G_EXC_ERROR;
4289: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4291: END IF;
4292:
4293: /* Removed for Bug 3310304
4286: RETURN;
4287: END IF;
4288: RAISE FND_API.G_EXC_ERROR;
4289: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4291: END IF;
4292:
4293: /* Removed for Bug 3310304
4294: END IF;
4326: 'return status after calling complete_master_wo: ' || l_mwo_return_status
4327: );
4328: END IF;
4329:
4330: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4331: RAISE FND_API.G_EXC_ERROR;
4332: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334: END IF;
4327: );
4328: END IF;
4329:
4330: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4331: RAISE FND_API.G_EXC_ERROR;
4332: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334: END IF;
4335:
4328: END IF;
4329:
4330: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4331: RAISE FND_API.G_EXC_ERROR;
4332: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334: END IF;
4335:
4336: -- Additional logic added in 11.5.10 for QA Collection
4329:
4330: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4331: RAISE FND_API.G_EXC_ERROR;
4332: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334: END IF;
4335:
4336: -- Additional logic added in 11.5.10 for QA Collection
4337: IF ( p_x_mr_rec.qa_collection_id IS NOT NULL AND
4334: END IF;
4335:
4336: -- Additional logic added in 11.5.10 for QA Collection
4337: IF ( p_x_mr_rec.qa_collection_id IS NOT NULL AND
4338: FND_API.to_boolean( p_commit ) ) THEN
4339:
4340: QA_SS_RESULTS.wrapper_fire_action
4341: (
4342: q_collection_id => p_x_mr_rec.qa_collection_id,
4344: q_msg_count => l_msg_count,
4345: q_msg_data => l_msg_data
4346: );
4347:
4348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4349: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4350: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4351: FND_MSG_PUB.add;
4352: RAISE FND_API.G_EXC_ERROR;
4348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4349: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4350: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4351: FND_MSG_PUB.add;
4352: RAISE FND_API.G_EXC_ERROR;
4353: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4355: END IF;
4356:
4349: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4350: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4351: FND_MSG_PUB.add;
4352: RAISE FND_API.G_EXC_ERROR;
4353: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4355: END IF;
4356:
4357: -- Re-establish the save point because the QA API Commits
4350: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4351: FND_MSG_PUB.add;
4352: RAISE FND_API.G_EXC_ERROR;
4353: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4355: END IF;
4356:
4357: -- Re-establish the save point because the QA API Commits
4358: IF FND_API.to_boolean( p_commit ) THEN
4354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4355: END IF;
4356:
4357: -- Re-establish the save point because the QA API Commits
4358: IF FND_API.to_boolean( p_commit ) THEN
4359: SAVEPOINT complete_mr_instance_PVT;
4360: END IF;
4361:
4362: END IF;
4370:
4371: complete_mr_instance
4372: (
4373: p_api_version => 1.0,
4374: p_init_msg_list => FND_API.G_TRUE,
4375: p_commit => p_commit,
4376: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4377: p_default => FND_API.G_FALSE,
4378: p_module_type => NULL,
4372: (
4373: p_api_version => 1.0,
4374: p_init_msg_list => FND_API.G_TRUE,
4375: p_commit => p_commit,
4376: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4377: p_default => FND_API.G_FALSE,
4378: p_module_type => NULL,
4379: x_return_status => l_return_status,
4380: x_msg_count => l_msg_count,
4373: p_api_version => 1.0,
4374: p_init_msg_list => FND_API.G_TRUE,
4375: p_commit => p_commit,
4376: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4377: p_default => FND_API.G_FALSE,
4378: p_module_type => NULL,
4379: x_return_status => l_return_status,
4380: x_msg_count => l_msg_count,
4381: x_msg_data => l_msg_data,
4382: p_x_mr_rec => l_parent_mr_rec
4383: );
4384:
4385: -- Abort for Unexpected errors, but, continue for other errors.
4386: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4387: IF ( G_DEBUG = 'Y' ) THEN
4388: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
4389: ||' : Could Not Complete Parent MR Instance with UE : '
4390: ||TO_CHAR( parent_csr.unit_effectivity_id )
4393: FOR I IN 1..l_msg_count LOOP
4394: FND_MSG_PUB.get
4395: (
4396: p_msg_index => i,
4397: p_encoded => FND_API.G_FALSE,
4398: p_data => l_msg_data,
4399: p_msg_index_out => l_msg_index_out
4400: );
4401:
4403: END LOOP;
4404: END IF;
4405:
4406: -- Initialize message list since errors are not reported
4407: IF FND_API.to_boolean( p_init_msg_list ) THEN
4408: FND_MSG_PUB.initialize;
4409: END IF;
4410:
4411: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4407: IF FND_API.to_boolean( p_init_msg_list ) THEN
4408: FND_MSG_PUB.initialize;
4409: END IF;
4410:
4411: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4412: x_return_status := l_return_status;
4413: x_msg_data := l_msg_data;
4414: x_msg_count := l_msg_count;
4415: RETURN;
4418: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Completed MR Instance with UE : ' || TO_CHAR( parent_csr.unit_effectivity_id ) || ' associated to UE : ' || TO_CHAR( p_x_mr_rec.unit_effectivity_id ) || ' Successfuly...' );
4419: END IF;
4420:
4421: -- Re-establish the save point because the complete_mr_instance Commits
4422: IF FND_API.to_boolean( p_commit ) THEN
4423: SAVEPOINT complete_mr_instance_PVT;
4424: END IF;
4425:
4426: END IF;
4426: END IF;
4427: END LOOP;
4428:
4429: -- Perform the Commit (if requested)
4430: IF FND_API.to_boolean( p_commit ) THEN
4431: COMMIT WORK;
4432: END IF;
4433:
4434: -- Disable debug (if enabled)
4437: END IF;
4438:
4439: EXCEPTION
4440:
4441: WHEN FND_API.G_EXC_ERROR THEN
4442: ROLLBACK TO complete_mr_instance_PVT;
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: FND_MSG_PUB.count_and_get
4445: (
4439: EXCEPTION
4440:
4441: WHEN FND_API.G_EXC_ERROR THEN
4442: ROLLBACK TO complete_mr_instance_PVT;
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: FND_MSG_PUB.count_and_get
4445: (
4446: p_encoded => FND_API.G_FALSE,
4447: p_count => x_msg_count,
4442: ROLLBACK TO complete_mr_instance_PVT;
4443: x_return_status := FND_API.G_RET_STS_ERROR;
4444: FND_MSG_PUB.count_and_get
4445: (
4446: p_encoded => FND_API.G_FALSE,
4447: p_count => x_msg_count,
4448: p_data => x_msg_data
4449: );
4450:
4451: IF ( G_DEBUG = 'Y' ) THEN
4452: AHL_DEBUG_PUB.disable_debug;
4453: END IF;
4454:
4455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4456: ROLLBACK TO complete_mr_instance_PVT;
4457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4458: FND_MSG_PUB.count_and_get
4459: (
4453: END IF;
4454:
4455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4456: ROLLBACK TO complete_mr_instance_PVT;
4457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4458: FND_MSG_PUB.count_and_get
4459: (
4460: p_encoded => FND_API.G_FALSE,
4461: p_count => x_msg_count,
4456: ROLLBACK TO complete_mr_instance_PVT;
4457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4458: FND_MSG_PUB.count_and_get
4459: (
4460: p_encoded => FND_API.G_FALSE,
4461: p_count => x_msg_count,
4462: p_data => x_msg_data
4463: );
4464:
4467: END IF;
4468:
4469: WHEN OTHERS THEN
4470: ROLLBACK TO complete_mr_instance_PVT;
4471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4472: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4473: THEN
4474: FND_MSG_PUB.add_exc_msg
4475: (
4479: );
4480: END IF;
4481: FND_MSG_PUB.count_and_get
4482: (
4483: p_encoded => FND_API.G_FALSE,
4484: p_count => x_msg_count,
4485: p_data => x_msg_data
4486: );
4487:
4715:
4716: BEGIN
4717:
4718: IF ( p_unit_effectivity_id IS NULL OR
4719: p_unit_effectivity_id = FND_API.G_MISS_NUM ) THEN
4720: RETURN NULL;
4721: END IF;
4722:
4723: -- check unit effectivity status first
4961: IS
4962:
4963: BEGIN
4964:
4965: IF ( p_signoff_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
4966: p_signoff_mr_rec.unit_effectivity_id IS NULL OR
4967: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4968: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4969: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4963: BEGIN
4964:
4965: IF ( p_signoff_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
4966: p_signoff_mr_rec.unit_effectivity_id IS NULL OR
4967: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4968: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4969: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4970: FND_MSG_PUB.add;
4971: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4967: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4968: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4969: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4970: FND_MSG_PUB.add;
4971: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4972: END IF;
4973:
4974: IF ( p_signoff_mr_rec.signoff_child_mrs_flag IS NULL OR
4975: p_signoff_mr_rec.signoff_child_mrs_flag = FND_API.G_MISS_CHAR OR
4971: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4972: END IF;
4973:
4974: IF ( p_signoff_mr_rec.signoff_child_mrs_flag IS NULL OR
4975: p_signoff_mr_rec.signoff_child_mrs_flag = FND_API.G_MISS_CHAR OR
4976: ( p_signoff_mr_rec.signoff_child_mrs_flag <> 'Y' AND
4977: p_signoff_mr_rec.signoff_child_mrs_flag <> 'N' ) ) THEN
4978: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4979: FND_MSG_PUB.add;
4976: ( p_signoff_mr_rec.signoff_child_mrs_flag <> 'Y' AND
4977: p_signoff_mr_rec.signoff_child_mrs_flag <> 'N' ) ) THEN
4978: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4979: FND_MSG_PUB.add;
4980: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4981: END IF;
4982:
4983: IF ( p_signoff_mr_rec.complete_job_ops_flag IS NULL OR
4984: p_signoff_mr_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4980: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4981: END IF;
4982:
4983: IF ( p_signoff_mr_rec.complete_job_ops_flag IS NULL OR
4984: p_signoff_mr_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4985: ( p_signoff_mr_rec.complete_job_ops_flag <> 'Y' AND
4986: p_signoff_mr_rec.complete_job_ops_flag <> 'N' ) ) THEN
4987: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4988: FND_MSG_PUB.add;
4985: ( p_signoff_mr_rec.complete_job_ops_flag <> 'Y' AND
4986: p_signoff_mr_rec.complete_job_ops_flag <> 'N' ) ) THEN
4987: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4988: FND_MSG_PUB.add;
4989: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4990: END IF;
4991:
4992: IF ( p_signoff_mr_rec.transact_resource_flag IS NULL OR
4993: p_signoff_mr_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4989: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4990: END IF;
4991:
4992: IF ( p_signoff_mr_rec.transact_resource_flag IS NULL OR
4993: p_signoff_mr_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4994: ( p_signoff_mr_rec.transact_resource_flag <> 'Y' AND
4995: p_signoff_mr_rec.transact_resource_flag <> 'N' ) ) THEN
4996: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4997: FND_MSG_PUB.add;
4994: ( p_signoff_mr_rec.transact_resource_flag <> 'Y' AND
4995: p_signoff_mr_rec.transact_resource_flag <> 'N' ) ) THEN
4996: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4997: FND_MSG_PUB.add;
4998: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4999: END IF;
5000:
5001: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5002: ( p_signoff_mr_rec.default_actual_dates_flag IS NULL OR
4999: END IF;
5000:
5001: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5002: ( p_signoff_mr_rec.default_actual_dates_flag IS NULL OR
5003: p_signoff_mr_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
5004: ( p_signoff_mr_rec.default_actual_dates_flag <> 'Y' AND
5005: p_signoff_mr_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
5006: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
5007: FND_MSG_PUB.add;
5004: ( p_signoff_mr_rec.default_actual_dates_flag <> 'Y' AND
5005: p_signoff_mr_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
5006: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
5007: FND_MSG_PUB.add;
5008: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5009: END IF;
5010:
5011: --pekambar added validation for ERs 9274897 and 9504544
5012:
5010:
5011: --pekambar added validation for ERs 9274897 and 9504544
5012:
5013: IF ( p_signoff_mr_rec.wo_comp_dates_flag IS NULL OR
5014: p_signoff_mr_rec.wo_comp_dates_flag = FND_API.G_MISS_CHAR OR
5015: ( p_signoff_mr_rec.wo_comp_dates_flag <> 'Y' AND
5016: p_signoff_mr_rec.wo_comp_dates_flag <> 'N' ) ) THEN
5017: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OVER_WRIT_DTS_FLAG' );
5018: FND_MSG_PUB.add;
5015: ( p_signoff_mr_rec.wo_comp_dates_flag <> 'Y' AND
5016: p_signoff_mr_rec.wo_comp_dates_flag <> 'N' ) ) THEN
5017: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OVER_WRIT_DTS_FLAG' );
5018: FND_MSG_PUB.add;
5019: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5020: END IF;
5021:
5022: IF ( p_signoff_mr_rec.wo_childmr_dates_flag IS NULL OR
5023: p_signoff_mr_rec.wo_childmr_dates_flag = FND_API.G_MISS_CHAR OR
5019: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5020: END IF;
5021:
5022: IF ( p_signoff_mr_rec.wo_childmr_dates_flag IS NULL OR
5023: p_signoff_mr_rec.wo_childmr_dates_flag = FND_API.G_MISS_CHAR OR
5024: ( p_signoff_mr_rec.wo_childmr_dates_flag <> 'Y' AND
5025: p_signoff_mr_rec.wo_childmr_dates_flag <> 'N' ) ) THEN
5026: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UPD_CLD_MR_DTS_FLAG' );
5027: FND_MSG_PUB.add;
5024: ( p_signoff_mr_rec.wo_childmr_dates_flag <> 'Y' AND
5025: p_signoff_mr_rec.wo_childmr_dates_flag <> 'N' ) ) THEN
5026: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UPD_CLD_MR_DTS_FLAG' );
5027: FND_MSG_PUB.add;
5028: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5029: END IF;
5030:
5031: --pekambar added validation for ERs 9274897 and 9504544 End
5032:
5031: --pekambar added validation for ERs 9274897 and 9504544 End
5032:
5033: IF ( p_signoff_mr_rec.transact_resource_flag = 'Y' AND
5034: ( p_signoff_mr_rec.employee_number IS NULL OR
5035: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5036: ( p_signoff_mr_rec.serial_number IS NULL OR
5037: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5038: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5039: FND_MSG_PUB.add;
5033: IF ( p_signoff_mr_rec.transact_resource_flag = 'Y' AND
5034: ( p_signoff_mr_rec.employee_number IS NULL OR
5035: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5036: ( p_signoff_mr_rec.serial_number IS NULL OR
5037: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5038: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5039: FND_MSG_PUB.add;
5040: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5041: END IF;
5036: ( p_signoff_mr_rec.serial_number IS NULL OR
5037: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5038: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5039: FND_MSG_PUB.add;
5040: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5041: END IF;
5042:
5043: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5044: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5042:
5043: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5044: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5045: ( p_signoff_mr_rec.actual_start_date IS NULL OR
5046: p_signoff_mr_rec.actual_start_date = FND_API.G_MISS_DATE OR
5047: p_signoff_mr_rec.actual_end_date IS NULL OR
5048: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5049: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5050: FND_MSG_PUB.add;
5044: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5045: ( p_signoff_mr_rec.actual_start_date IS NULL OR
5046: p_signoff_mr_rec.actual_start_date = FND_API.G_MISS_DATE OR
5047: p_signoff_mr_rec.actual_end_date IS NULL OR
5048: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5049: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5050: FND_MSG_PUB.add;
5051: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5052: END IF;
5047: p_signoff_mr_rec.actual_end_date IS NULL OR
5048: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5049: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5050: FND_MSG_PUB.add;
5051: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5052: END IF;
5053:
5054: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5055: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5055: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5056: p_signoff_mr_rec.actual_end_date < p_signoff_mr_rec.actual_start_date ) THEN
5057: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
5058: FND_MSG_PUB.add;
5059: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5060: END IF;
5061:
5062: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
5063: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5063: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
5064: p_signoff_mr_rec.actual_end_date > SYSDATE ) THEN
5065: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
5066: FND_MSG_PUB.add;
5067: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5068: END IF;
5069:
5070: RETURN FND_API.G_RET_STS_SUCCESS;
5071: END validate_smri_inputs;
5066: FND_MSG_PUB.add;
5067: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5068: END IF;
5069:
5070: RETURN FND_API.G_RET_STS_SUCCESS;
5071: END validate_smri_inputs;
5072:
5073: -- Function to validate the Inputs of the close_visit API
5074: FUNCTION validate_cv_inputs
5104: -- ACL Changes
5105:
5106: BEGIN
5107:
5108: IF ( p_close_visit_rec.visit_id = FND_API.G_MISS_NUM OR
5109: p_close_visit_rec.visit_id IS NULL OR
5110: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
5111: p_close_visit_rec.object_version_number IS NULL ) THEN
5112: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
5106: BEGIN
5107:
5108: IF ( p_close_visit_rec.visit_id = FND_API.G_MISS_NUM OR
5109: p_close_visit_rec.visit_id IS NULL OR
5110: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
5111: p_close_visit_rec.object_version_number IS NULL ) THEN
5112: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
5113: FND_MSG_PUB.add;
5114: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5110: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
5111: p_close_visit_rec.object_version_number IS NULL ) THEN
5112: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
5113: FND_MSG_PUB.add;
5114: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5115: END IF;
5116:
5117: -- rroy
5118: -- ACL Changes
5117: -- rroy
5118: -- ACL Changes
5119: FOR wo_details IN get_wo_Details(p_close_visit_rec.visit_id) LOOP
5120: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_details.workorder_id, NULL, NULL, NULL);
5121: IF l_return_status = FND_API.G_TRUE THEN
5122: OPEN get_ue_title(wo_details.workorder_id);
5123: FETCH get_ue_title INTO l_ue_title;
5124: CLOSE get_ue_title;
5125: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
5124: CLOSE get_ue_title;
5125: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
5126: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
5127: FND_MSG_PUB.ADD;
5128: RETURN FND_API.G_RET_STS_ERROR;
5129: END IF;
5130: END LOOP;
5131: -- rroy
5132: -- ACL Changes
5132: -- ACL Changes
5133:
5134:
5135: IF ( p_close_visit_rec.signoff_mrs_flag IS NULL OR
5136: p_close_visit_rec.signoff_mrs_flag = FND_API.G_MISS_CHAR OR
5137: ( p_close_visit_rec.signoff_mrs_flag <> 'Y' AND
5138: p_close_visit_rec.signoff_mrs_flag <> 'N' ) ) THEN
5139: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
5140: FND_MSG_PUB.add;
5137: ( p_close_visit_rec.signoff_mrs_flag <> 'Y' AND
5138: p_close_visit_rec.signoff_mrs_flag <> 'N' ) ) THEN
5139: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
5140: FND_MSG_PUB.add;
5141: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5142: END IF;
5143:
5144: IF ( p_close_visit_rec.complete_job_ops_flag IS NULL OR
5145: p_close_visit_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
5141: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5142: END IF;
5143:
5144: IF ( p_close_visit_rec.complete_job_ops_flag IS NULL OR
5145: p_close_visit_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
5146: ( p_close_visit_rec.complete_job_ops_flag <> 'Y' AND
5147: p_close_visit_rec.complete_job_ops_flag <> 'N' ) ) THEN
5148: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
5149: FND_MSG_PUB.add;
5146: ( p_close_visit_rec.complete_job_ops_flag <> 'Y' AND
5147: p_close_visit_rec.complete_job_ops_flag <> 'N' ) ) THEN
5148: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
5149: FND_MSG_PUB.add;
5150: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5151: END IF;
5152:
5153: IF ( p_close_visit_rec.transact_resource_flag IS NULL OR
5154: p_close_visit_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
5150: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5151: END IF;
5152:
5153: IF ( p_close_visit_rec.transact_resource_flag IS NULL OR
5154: p_close_visit_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
5155: ( p_close_visit_rec.transact_resource_flag <> 'Y' AND
5156: p_close_visit_rec.transact_resource_flag <> 'N' ) ) THEN
5157: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
5158: FND_MSG_PUB.add;
5155: ( p_close_visit_rec.transact_resource_flag <> 'Y' AND
5156: p_close_visit_rec.transact_resource_flag <> 'N' ) ) THEN
5157: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
5158: FND_MSG_PUB.add;
5159: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5160: END IF;
5161:
5162: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5163: ( p_close_visit_rec.default_actual_dates_flag IS NULL OR
5160: END IF;
5161:
5162: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5163: ( p_close_visit_rec.default_actual_dates_flag IS NULL OR
5164: p_close_visit_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
5165: ( p_close_visit_rec.default_actual_dates_flag <> 'Y' AND
5166: p_close_visit_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
5167: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
5168: FND_MSG_PUB.add;
5165: ( p_close_visit_rec.default_actual_dates_flag <> 'Y' AND
5166: p_close_visit_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
5167: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
5168: FND_MSG_PUB.add;
5169: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5170: END IF;
5171:
5172: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
5173: ( p_close_visit_rec.employee_number IS NULL OR
5170: END IF;
5171:
5172: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
5173: ( p_close_visit_rec.employee_number IS NULL OR
5174: p_close_visit_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5175: ( p_close_visit_rec.serial_number IS NULL OR
5176: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5177: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5178: FND_MSG_PUB.add;
5172: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
5173: ( p_close_visit_rec.employee_number IS NULL OR
5174: p_close_visit_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5175: ( p_close_visit_rec.serial_number IS NULL OR
5176: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5177: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5178: FND_MSG_PUB.add;
5179: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5180: END IF;
5175: ( p_close_visit_rec.serial_number IS NULL OR
5176: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5177: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5178: FND_MSG_PUB.add;
5179: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5180: END IF;
5181:
5182: --pekambar added validation for ERs 9274897 and 9504544
5183:
5181:
5182: --pekambar added validation for ERs 9274897 and 9504544
5183:
5184: IF ( p_close_visit_rec.wo_comp_dates_flag IS NULL OR
5185: p_close_visit_rec.wo_comp_dates_flag = FND_API.G_MISS_CHAR OR
5186: ( p_close_visit_rec.wo_comp_dates_flag <> 'Y' AND
5187: p_close_visit_rec.wo_comp_dates_flag <> 'N' ) ) THEN
5188: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OVER_WRIT_DTS_FLAG' );
5189: FND_MSG_PUB.add;
5186: ( p_close_visit_rec.wo_comp_dates_flag <> 'Y' AND
5187: p_close_visit_rec.wo_comp_dates_flag <> 'N' ) ) THEN
5188: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OVER_WRIT_DTS_FLAG' );
5189: FND_MSG_PUB.add;
5190: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5191: END IF;
5192:
5193: IF ( p_close_visit_rec.wo_childmr_dates_flag IS NULL OR
5194: p_close_visit_rec.wo_childmr_dates_flag = FND_API.G_MISS_CHAR OR
5190: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5191: END IF;
5192:
5193: IF ( p_close_visit_rec.wo_childmr_dates_flag IS NULL OR
5194: p_close_visit_rec.wo_childmr_dates_flag = FND_API.G_MISS_CHAR OR
5195: ( p_close_visit_rec.wo_childmr_dates_flag <> 'Y' AND
5196: p_close_visit_rec.wo_childmr_dates_flag <> 'N' ) ) THEN
5197: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UPD_CLD_MR_DTS_FLAG' );
5198: FND_MSG_PUB.add;
5195: ( p_close_visit_rec.wo_childmr_dates_flag <> 'Y' AND
5196: p_close_visit_rec.wo_childmr_dates_flag <> 'N' ) ) THEN
5197: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UPD_CLD_MR_DTS_FLAG' );
5198: FND_MSG_PUB.add;
5199: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5200: END IF;
5201:
5202: --pekambar added validation for ERs 9274897 and 9504544 End
5203:
5203:
5204: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5205: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5206: ( p_close_visit_rec.actual_start_date IS NULL OR
5207: p_close_visit_rec.actual_start_date = FND_API.G_MISS_DATE OR
5208: p_close_visit_rec.actual_end_date IS NULL OR
5209: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5210: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5211: FND_MSG_PUB.add;
5205: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5206: ( p_close_visit_rec.actual_start_date IS NULL OR
5207: p_close_visit_rec.actual_start_date = FND_API.G_MISS_DATE OR
5208: p_close_visit_rec.actual_end_date IS NULL OR
5209: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5210: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5211: FND_MSG_PUB.add;
5212: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5213: END IF;
5208: p_close_visit_rec.actual_end_date IS NULL OR
5209: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5210: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5211: FND_MSG_PUB.add;
5212: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5213: END IF;
5214:
5215: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5216: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5216: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5217: p_close_visit_rec.actual_end_date < p_close_visit_rec.actual_start_date ) THEN
5218: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
5219: FND_MSG_PUB.add;
5220: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5221: END IF;
5222:
5223: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5224: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5224: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5225: p_close_visit_rec.actual_end_date > SYSDATE ) THEN
5226: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
5227: FND_MSG_PUB.add;
5228: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5229: END IF;
5230:
5231: RETURN FND_API.G_RET_STS_SUCCESS;
5232: END validate_cv_inputs;
5227: FND_MSG_PUB.add;
5228: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5229: END IF;
5230:
5231: RETURN FND_API.G_RET_STS_SUCCESS;
5232: END validate_cv_inputs;
5233:
5234: FUNCTION update_mwo_actual_dates
5235: (
5341: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5342: FND_MESSAGE.set_token( 'START_DT',
5343: TO_CHAR( l_workorder_tbl(l_ctr).actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5344: FND_MSG_PUB.add;
5345: RAISE FND_API.G_EXC_ERROR;
5346: END IF;
5347:
5348: -- Ensure the actual end date entered is greater than the Master Wo
5349: IF ( p_actual_end_date IS NOT NULL AND
5352: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5353: FND_MESSAGE.set_token( 'END_DT',
5354: TO_CHAR( l_workorder_tbl(l_ctr).actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5355: FND_MSG_PUB.add;
5356: RAISE FND_API.G_EXC_ERROR;
5357: END IF;
5358: */--End ER # 4757222
5359:
5360: IF ( G_DEBUG = 'Y' ) THEN
5372: THEN
5373: IF( l_workorder_tbl(l_ctr).actual_start_date < p_actual_start_date ) THEN
5374: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5375: FND_MSG_PUB.add;
5376: RETURN FND_API.G_RET_STS_ERROR;
5377: ELSE
5378: l_workorder_tbl(l_ctr).actual_start_date := p_actual_start_date ;
5379: END IF;
5380: END IF;
5383: THEN
5384: IF( l_workorder_tbl(l_ctr).actual_end_date > p_actual_end_date ) THEN
5385: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5386: FND_MSG_PUB.add;
5387: RETURN FND_API.G_RET_STS_ERROR;
5388: ELSE
5389: l_workorder_tbl(l_ctr).actual_end_date := p_actual_end_date ;
5390: END IF;
5391: END IF;
5409:
5410: IF ( SQL%ROWCOUNT = 0 ) THEN
5411: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5412: FND_MSG_PUB.add;
5413: RETURN FND_API.G_RET_STS_ERROR;
5414: END IF;
5415: EXCEPTION
5416: WHEN OTHERS THEN
5417: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5415: EXCEPTION
5416: WHEN OTHERS THEN
5417: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5418: FND_MSG_PUB.add;
5419: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5420: END;
5421:
5422: ELSE
5423:
5472: THEN
5473: IF( l_min < p_actual_start_date ) THEN
5474: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5475: FND_MSG_PUB.add;
5476: RETURN FND_API.G_RET_STS_ERROR;
5477: ELSE
5478: l_min := p_actual_start_date ;
5479: END IF;
5480: END IF;
5483: THEN
5484: IF(l_max > p_actual_end_date ) THEN
5485: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
5486: FND_MSG_PUB.add;
5487: RETURN FND_API.G_RET_STS_ERROR;
5488: ELSE
5489: l_max := p_actual_end_date ;
5490: END IF;
5491: END IF;
5507: actual_end_date = l_max
5508: WHERE wip_entity_id = p_wip_entity_id;
5509:
5510:
5511: RETURN FND_API.G_RET_STS_SUCCESS;
5512:
5513: END update_mwo_actual_dates;
5514:
5515: FUNCTION complete_visit_mr_wos
5612:
5613: complete_workorder
5614: (
5615: p_api_version => 1.0,
5616: p_init_msg_list => FND_API.G_FALSE,
5617: p_commit => FND_API.G_FALSE,
5618: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5619: p_default => FND_API.G_FALSE,
5620: p_module_type => NULL,
5613: complete_workorder
5614: (
5615: p_api_version => 1.0,
5616: p_init_msg_list => FND_API.G_FALSE,
5617: p_commit => FND_API.G_FALSE,
5618: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5619: p_default => FND_API.G_FALSE,
5620: p_module_type => NULL,
5621: x_return_status => l_return_status,
5614: (
5615: p_api_version => 1.0,
5616: p_init_msg_list => FND_API.G_FALSE,
5617: p_commit => FND_API.G_FALSE,
5618: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5619: p_default => FND_API.G_FALSE,
5620: p_module_type => NULL,
5621: x_return_status => l_return_status,
5622: x_msg_count => l_msg_count,
5615: p_api_version => 1.0,
5616: p_init_msg_list => FND_API.G_FALSE,
5617: p_commit => FND_API.G_FALSE,
5618: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5619: p_default => FND_API.G_FALSE,
5620: p_module_type => NULL,
5621: x_return_status => l_return_status,
5622: x_msg_count => l_msg_count,
5623: x_msg_data => l_msg_data,
5624: p_workorder_id => p_x_workorder_tbl(indx).workorder_id,
5625: p_object_version_no => p_x_workorder_tbl(indx).object_version_number
5626: );
5627:
5628: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5629: RETURN l_return_status;
5630: END IF;
5631:
5632: END IF;
5711: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PARENT_WO_NOT_CMPL' );
5712: FND_MESSAGE.set_token( 'WO', p_x_workorder_tbl(indx).workorder_name );
5713: FND_MESSAGE.set_token( 'PARENT_WO', l_parent_wo_tbl(j).parent_wo_name );
5714: FND_MSG_PUB.add;
5715: RETURN FND_API.G_RET_STS_ERROR;
5716: END IF; -- Hierarchy check
5717: END IF; -- First Iteration
5718: END IF; -- Parent WOs complete check
5719: END IF; -- Match Parent check
5741: -- Complete the Child Workorder
5742: complete_workorder
5743: (
5744: p_api_version => 1.0,
5745: p_init_msg_list => FND_API.G_FALSE,
5746: p_commit => FND_API.G_FALSE,
5747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5748: p_default => FND_API.G_FALSE,
5749: p_module_type => NULL,
5742: complete_workorder
5743: (
5744: p_api_version => 1.0,
5745: p_init_msg_list => FND_API.G_FALSE,
5746: p_commit => FND_API.G_FALSE,
5747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5748: p_default => FND_API.G_FALSE,
5749: p_module_type => NULL,
5750: x_return_status => l_return_status,
5743: (
5744: p_api_version => 1.0,
5745: p_init_msg_list => FND_API.G_FALSE,
5746: p_commit => FND_API.G_FALSE,
5747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5748: p_default => FND_API.G_FALSE,
5749: p_module_type => NULL,
5750: x_return_status => l_return_status,
5751: x_msg_count => l_msg_count,
5744: p_api_version => 1.0,
5745: p_init_msg_list => FND_API.G_FALSE,
5746: p_commit => FND_API.G_FALSE,
5747: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5748: p_default => FND_API.G_FALSE,
5749: p_module_type => NULL,
5750: x_return_status => l_return_status,
5751: x_msg_count => l_msg_count,
5752: x_msg_data => l_msg_data,
5753: p_workorder_id => p_x_workorder_tbl(indx).workorder_id,
5754: p_object_version_no => p_x_workorder_tbl(indx).object_version_number
5755: );
5756:
5757: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5758: RETURN l_return_status;
5759: END IF;
5760:
5761: -- Set the Workorder status as Complete for next iteration
5789: END LOOP; -- Match While loop of outermost Iteration
5790:
5791: END IF; -- Match Completion dependencies existence check
5792:
5793: RETURN FND_API.G_RET_STS_SUCCESS;
5794:
5795: END complete_visit_mr_wos;
5796:
5797: PROCEDURE signoff_mr_instance
5796:
5797: PROCEDURE signoff_mr_instance
5798: (
5799: p_api_version IN NUMBER := 1.0,
5800: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5801: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5803: p_default IN VARCHAR2 := FND_API.G_FALSE,
5804: p_module_type IN VARCHAR2 := NULL,
5797: PROCEDURE signoff_mr_instance
5798: (
5799: p_api_version IN NUMBER := 1.0,
5800: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5801: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5803: p_default IN VARCHAR2 := FND_API.G_FALSE,
5804: p_module_type IN VARCHAR2 := NULL,
5805: x_return_status OUT NOCOPY VARCHAR2,
5798: (
5799: p_api_version IN NUMBER := 1.0,
5800: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5801: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5803: p_default IN VARCHAR2 := FND_API.G_FALSE,
5804: p_module_type IN VARCHAR2 := NULL,
5805: x_return_status OUT NOCOPY VARCHAR2,
5806: x_msg_count OUT NOCOPY NUMBER,
5799: p_api_version IN NUMBER := 1.0,
5800: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5801: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5803: p_default IN VARCHAR2 := FND_API.G_FALSE,
5804: p_module_type IN VARCHAR2 := NULL,
5805: x_return_status OUT NOCOPY VARCHAR2,
5806: x_msg_count OUT NOCOPY NUMBER,
5807: x_msg_data OUT NOCOPY VARCHAR2,
6217: AHL_DEBUG_PUB.enable_debug;
6218: END IF;
6219:
6220: -- Initialize API return status to success
6221: x_return_status := FND_API.G_RET_STS_SUCCESS;
6222:
6223: -- Standard Start of API savepoint
6224: SAVEPOINT signoff_mr_instance_PVT;
6225:
6223: -- Standard Start of API savepoint
6224: SAVEPOINT signoff_mr_instance_PVT;
6225:
6226: -- Initialize message list if p_init_msg_list is set to TRUE.
6227: IF FND_API.to_boolean( p_init_msg_list ) THEN
6228: FND_MSG_PUB.initialize;
6229: END IF;
6230:
6231: IF ( G_DEBUG = 'Y' ) THEN
6238: (
6239: p_signoff_mr_rec => p_signoff_mr_rec
6240: );
6241:
6242: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6243: RAISE FND_API.G_EXC_ERROR;
6244: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6239: p_signoff_mr_rec => p_signoff_mr_rec
6240: );
6241:
6242: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6243: RAISE FND_API.G_EXC_ERROR;
6244: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6247:
6240: );
6241:
6242: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6243: RAISE FND_API.G_EXC_ERROR;
6244: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6247:
6248: IF ( G_DEBUG = 'Y' ) THEN
6241:
6242: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6243: RAISE FND_API.G_EXC_ERROR;
6244: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6247:
6248: IF ( G_DEBUG = 'Y' ) THEN
6249: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Inputs - p_signoff_mr_rec.unit_effectivity_id - ' || p_signoff_mr_rec.unit_effectivity_id );
6266: END IF;
6267:
6268: IF ( l_ue_status_code = G_MR_STATUS_SIGNED_OFF )
6269: THEN
6270: IF Is_Signoff_Update_User = FND_API.G_TRUE
6271: THEN
6272: IF ( p_signoff_mr_rec.wo_comp_dates_flag = 'Y' or ( p_signoff_mr_rec.wo_comp_dates_flag = 'Y' and p_signoff_mr_rec.wo_childmr_dates_flag = 'Y') )
6273: THEN
6274: update_signoff_dates
6273: THEN
6274: update_signoff_dates
6275: (
6276: p_api_version => 1.0,
6277: p_init_msg_list => FND_API.G_TRUE,
6278: p_commit => FND_API.G_FALSE,
6279: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6280: p_default => FND_API.G_FALSE,
6281: p_module_type => NULL,
6274: update_signoff_dates
6275: (
6276: p_api_version => 1.0,
6277: p_init_msg_list => FND_API.G_TRUE,
6278: p_commit => FND_API.G_FALSE,
6279: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6280: p_default => FND_API.G_FALSE,
6281: p_module_type => NULL,
6282: x_return_status => l_return_status,
6275: (
6276: p_api_version => 1.0,
6277: p_init_msg_list => FND_API.G_TRUE,
6278: p_commit => FND_API.G_FALSE,
6279: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6280: p_default => FND_API.G_FALSE,
6281: p_module_type => NULL,
6282: x_return_status => l_return_status,
6283: x_msg_count => l_msg_count ,
6276: p_api_version => 1.0,
6277: p_init_msg_list => FND_API.G_TRUE,
6278: p_commit => FND_API.G_FALSE,
6279: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6280: p_default => FND_API.G_FALSE,
6281: p_module_type => NULL,
6282: x_return_status => l_return_status,
6283: x_msg_count => l_msg_count ,
6284: x_msg_data => l_msg_data,
6288: IF ( G_DEBUG = 'Y' ) THEN
6289: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling update_signoff_dates, Status = '||l_return_status );
6290: END IF;
6291:
6292: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6293: RAISE FND_API.G_EXC_ERROR;
6294: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6296: END IF;
6289: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling update_signoff_dates, Status = '||l_return_status );
6290: END IF;
6291:
6292: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6293: RAISE FND_API.G_EXC_ERROR;
6294: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6296: END IF;
6297: END IF;
6290: END IF;
6291:
6292: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6293: RAISE FND_API.G_EXC_ERROR;
6294: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6296: END IF;
6297: END IF;
6298: ELSE
6291:
6292: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6293: RAISE FND_API.G_EXC_ERROR;
6294: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6295: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6296: END IF;
6297: END IF;
6298: ELSE
6299: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_SUPER_USER' );
6297: END IF;
6298: ELSE
6299: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_SUPER_USER' );
6300: FND_MSG_PUB.add;
6301: RAISE FND_API.G_EXC_ERROR;
6302: END IF;
6303:
6304: ELSE
6305: -- Invoke Complete MR Instance API if this is not a top-down signoff
6317:
6318: complete_mr_instance
6319: (
6320: p_api_version => 1.0,
6321: p_init_msg_list => FND_API.G_FALSE,
6322: p_commit => FND_API.G_TRUE,
6323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6324: p_default => FND_API.G_FALSE,
6325: p_module_type => NULL,
6318: complete_mr_instance
6319: (
6320: p_api_version => 1.0,
6321: p_init_msg_list => FND_API.G_FALSE,
6322: p_commit => FND_API.G_TRUE,
6323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6324: p_default => FND_API.G_FALSE,
6325: p_module_type => NULL,
6326: x_return_status => l_return_status,
6319: (
6320: p_api_version => 1.0,
6321: p_init_msg_list => FND_API.G_FALSE,
6322: p_commit => FND_API.G_TRUE,
6323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6324: p_default => FND_API.G_FALSE,
6325: p_module_type => NULL,
6326: x_return_status => l_return_status,
6327: x_msg_count => l_msg_count,
6320: p_api_version => 1.0,
6321: p_init_msg_list => FND_API.G_FALSE,
6322: p_commit => FND_API.G_TRUE,
6323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6324: p_default => FND_API.G_FALSE,
6325: p_module_type => NULL,
6326: x_return_status => l_return_status,
6327: x_msg_count => l_msg_count,
6328: x_msg_data => l_msg_data,
6332: IF ( G_DEBUG = 'Y' ) THEN
6333: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling complete_mr_instance, Status = '||l_return_status );
6334: END IF;
6335:
6336: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6337: RAISE FND_API.G_EXC_ERROR;
6338: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6340: END IF;
6333: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling complete_mr_instance, Status = '||l_return_status );
6334: END IF;
6335:
6336: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6337: RAISE FND_API.G_EXC_ERROR;
6338: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6340: END IF;
6341:
6334: END IF;
6335:
6336: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6337: RAISE FND_API.G_EXC_ERROR;
6338: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6340: END IF;
6341:
6342: --JKJain, Bug 9250614
6335:
6336: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6337: RAISE FND_API.G_EXC_ERROR;
6338: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6340: END IF;
6341:
6342: --JKJain, Bug 9250614
6343: -- RETURN;
6349: IF ( get_ue_details%NOTFOUND ) THEN
6350: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
6351: FND_MSG_PUB.add;
6352: CLOSE get_ue_details;
6353: RAISE FND_API.G_EXC_ERROR;
6354: END IF;
6355: CLOSE get_ue_details;
6356:
6357: -- Add the UE Master WO to the Workorder Table of Records for QCP.
6395: IF ( get_ue_details%NOTFOUND ) THEN
6396: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
6397: FND_MSG_PUB.add;
6398: CLOSE get_ue_details;
6399: RAISE FND_API.G_EXC_ERROR;
6400: END IF;
6401:
6402: CLOSE get_ue_details;
6403:
6404: -- Validate Object Version Number
6405: IF ( l_mr_rec.ue_object_version_number <> p_signoff_mr_rec.object_version_number ) THEN
6406: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
6407: FND_MSG_PUB.add;
6408: RAISE FND_API.G_EXC_ERROR;
6409: END IF;
6410:
6411: -- Check if this MR is already signed off
6412: IF ( l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF ) THEN
6439: p_qa_plan_id => l_mr_rec.ue_qa_plan_id,
6440: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
6441: );
6442:
6443: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6440: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
6441: );
6442:
6443: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6448:
6441: );
6442:
6443: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6448:
6449: IF ( G_DEBUG = 'Y' ) THEN
6442:
6443: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6444: RAISE FND_API.G_EXC_ERROR;
6445: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END IF;
6448:
6449: IF ( G_DEBUG = 'Y' ) THEN
6450: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Child UEs' );
6501: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
6502: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6503: );
6504:
6505: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6506: RAISE FND_API.G_EXC_ERROR;
6507: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6509: END IF;*/
6502: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6503: );
6504:
6505: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6506: RAISE FND_API.G_EXC_ERROR;
6507: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6509: END IF;*/
6510:
6503: );
6504:
6505: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6506: RAISE FND_API.G_EXC_ERROR;
6507: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6509: END IF;*/
6510:
6511: -- Store the Child UEs in a table of records for Signing off
6504:
6505: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6506: RAISE FND_API.G_EXC_ERROR;
6507: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6509: END IF;*/
6510:
6511: -- Store the Child UEs in a table of records for Signing off
6512: IF ( NVL(l_child_ue_tbl(l_ue_count).ump_status_code,'X') <> NVL(G_MR_STATUS_SIGNED_OFF,'Y') ) THEN
6533: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
6534: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6535: );
6536:
6537: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6538: RAISE FND_API.G_EXC_ERROR;
6539: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6541: END IF;
6534: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6535: );
6536:
6537: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6538: RAISE FND_API.G_EXC_ERROR;
6539: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6541: END IF;
6542:
6535: );
6536:
6537: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6538: RAISE FND_API.G_EXC_ERROR;
6539: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6541: END IF;
6542:
6543: IF ( G_DEBUG = 'Y' ) THEN
6536:
6537: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6538: RAISE FND_API.G_EXC_ERROR;
6539: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6541: END IF;
6542:
6543: IF ( G_DEBUG = 'Y' ) THEN
6544: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
6568: ) THEN
6569: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
6570: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END IF;
6574: END IF;
6575: END LOOP;
6576: END IF;
6603: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6604: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6605: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6606: FND_MSG_PUB.add;
6607: RAISE FND_API.G_EXC_ERROR;
6608: END IF;
6609:
6610: -- Validate if the actual end dates entered is greater than any WO
6611: IF ( wo_csr.actual_end_date IS NOT NULL AND
6613: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6614: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6615: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6616: FND_MSG_PUB.add;
6617: RAISE FND_API.G_EXC_ERROR;
6618: END IF;
6619:
6620: END IF; -- Check Input Dates are required
6621: */--End ER # 4757222
6627:
6628: -- rroy
6629: -- ACL Changes
6630: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_csr.workorder_id, NULL, NULL, NULL);
6631: IF l_return_status = FND_API.G_TRUE THEN
6632: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6633: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6634: FND_MSG_PUB.ADD;
6635: RAISE FND_API.G_EXC_ERROR;
6631: IF l_return_status = FND_API.G_TRUE THEN
6632: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6633: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6634: FND_MSG_PUB.ADD;
6635: RAISE FND_API.G_EXC_ERROR;
6636: END IF;
6637: --nsikka
6638: --Changes made for Bug 5324101 .
6639: --tokens passed changed to MR_TITLE
6660: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
6661: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6662: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
6663: FND_MSG_PUB.add;
6664: RAISE FND_API.G_EXC_ERROR;
6665: END IF;
6666:
6667: -- Validate whether Quality Results are Submitted
6668: IF ( wo_csr.plan_id IS NOT NULL AND
6673: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6674: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6675: FND_MSG_PUB.add;
6676: CLOSE is_qa_coll_reqd;
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6679: CLOSE is_qa_coll_reqd;
6680: END IF;
6681:
6711: IF ( wo_csr.actual_start_date IS NULL ) THEN
6712: -- R12
6713: -- Actual dates are no longer defaulted from scheduled dates
6714: -- They are defaulted in the Completions API to the res txn dates
6715: -- if p_default flag is passed as FND_API.G_TRUE
6716: /*IF ( p_signoff_mr_rec.default_actual_dates_flag = 'Y' ) THEN
6717: -- Update Actual Date with Scheduled Date
6718: l_workorder_tbl(l_ctr).actual_start_date := wo_csr.scheduled_start_date;
6719: ELSE
6734: IF ( wo_csr.actual_end_date IS NULL ) THEN
6735: -- R12
6736: -- Actual dates are no longer defaulted from scheduled dates
6737: -- They are defaulted in the Completions API to the res txn dates
6738: -- if p_default flag is passed as FND_API.G_TRUE
6739:
6740: /*IF ( p_signoff_mr_rec.default_actual_dates_flag = 'Y' ) THEN
6741: -- Update Actual Date with Scheduled Date
6742: l_workorder_tbl(l_ctr).actual_end_date := LEAST( SYSDATE , wo_csr.scheduled_end_date );
6787: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_NOT_CMPL' );
6788: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6789: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6790: FND_MSG_PUB.add;
6791: RAISE FND_API.G_EXC_ERROR;
6792: END IF;
6793: END IF; -- Check Complete Workorder Flag
6794:
6795: END LOOP; -- Iterate all MR Workorders
6814: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6815: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6816: FND_MSG_PUB.add;
6817: CLOSE is_qa_coll_reqd;
6818: RAISE FND_API.G_EXC_ERROR;
6819: END IF;
6820: CLOSE is_qa_coll_reqd;
6821: END IF;
6822:
6844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6845: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6846: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_mr_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6847: FND_MSG_PUB.add;
6848: RAISE FND_API.G_EXC_ERROR;
6849: END IF;
6850:
6851: -- Validate if the actual end dates entered is greater than any WO
6852: IF ( l_mr_rec.actual_end_date IS NOT NULL AND
6854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6855: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6856: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_mr_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6857: FND_MSG_PUB.add;
6858: RAISE FND_API.G_EXC_ERROR;
6859: END IF;
6860:
6861: END IF; -- Check Input Dates are required
6862: */--End ER # 4757222
6868: IF ( l_mr_rec.actual_start_date IS NULL ) THEN
6869: -- R12
6870: -- Actual dates are no longer defaulted from scheduled dates
6871: -- They are defaulted in the Completions API to the res txn dates
6872: -- if p_default flag is passed as FND_API.G_TRUE
6873:
6874: /*IF ( p_signoff_mr_rec.default_actual_dates_flag = 'Y' ) THEN
6875: -- Update Actual Date with Scheduled Date
6876: l_workorder_tbl(l_ctr).actual_start_date := l_mr_rec.scheduled_start_date;
6933:
6934: -- Validate if Equipment is entered for Machine Type Resource
6935: IF ( res_csr.resource_type = 1 AND
6936: ( p_signoff_mr_rec.serial_number IS NULL OR
6937: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6939: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6940: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6941: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6939: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6940: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6941: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6942: FND_MSG_PUB.add;
6943: RAISE FND_API.G_EXC_ERROR;
6944: END IF;
6945:
6946: -- Validate if Technicain is entered for Person Type Resource
6947: IF ( res_csr.resource_type = 2 AND
6945:
6946: -- Validate if Technicain is entered for Person Type Resource
6947: IF ( res_csr.resource_type = 2 AND
6948: ( p_signoff_mr_rec.employee_number IS NULL OR
6949: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6950: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6951: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6952: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6953: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6951: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6952: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6953: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6954: FND_MSG_PUB.add;
6955: RAISE FND_API.G_EXC_ERROR;
6956: END IF;
6957:
6958: -- Add the Resource Requirement in a Table for processing transactions
6959: l_ctr := l_ctr + 1;
6986:
6987: -- Validate if Equipment is entered for Machine Type Resource
6988: IF ( unass_res_csr.resource_type = 1 AND
6989: ( p_signoff_mr_rec.serial_number IS NULL OR
6990: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6991: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6992: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6993: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6994: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6992: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6993: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6994: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6995: FND_MSG_PUB.add;
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6998:
6999: -- Validate if Technicain is entered for Person Type Resource
7000: IF ( unass_res_csr.resource_type = 2 AND
6998:
6999: -- Validate if Technicain is entered for Person Type Resource
7000: IF ( unass_res_csr.resource_type = 2 AND
7001: ( p_signoff_mr_rec.employee_number IS NULL OR
7002: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
7003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
7004: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
7005: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
7006: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
7004: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
7005: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
7006: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
7007: FND_MSG_PUB.add;
7008: RAISE FND_API.G_EXC_ERROR;
7009: END IF;
7010:
7011: -- Add the Resource Requirement in a Table for processing transactions
7012: l_ctr := l_ctr + 1;
7057: WHEN no_data_found THEN
7058: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7059: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
7060: FND_MSG_PUB.add;
7061: RAISE FND_API.G_EXC_ERROR;
7062: END;
7063:
7064: /*IF ( SQL%NOTFOUND ) THEN
7065: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7064: /*IF ( SQL%NOTFOUND ) THEN
7065: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
7066: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
7067: FND_MSG_PUB.add;
7068: RAISE FND_API.G_EXC_ERROR;
7069: END IF;*/
7070:
7071: -- Process all Resource Requirements
7072: FOR i IN l_resource_req_tbl.FIRST..l_resource_req_tbl.LAST LOOP
7181: /*
7182: AHL_WIP_JOB_PVT.insert_resource_txn
7183: (
7184: p_api_version => 1.0,
7185: p_init_msg_list => FND_API.G_FALSE,
7186: p_commit => FND_API.G_FALSE,
7187: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7188: x_return_status => l_return_status,
7189: x_msg_count => l_msg_count,
7182: AHL_WIP_JOB_PVT.insert_resource_txn
7183: (
7184: p_api_version => 1.0,
7185: p_init_msg_list => FND_API.G_FALSE,
7186: p_commit => FND_API.G_FALSE,
7187: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7188: x_return_status => l_return_status,
7189: x_msg_count => l_msg_count,
7190: x_msg_data => l_msg_data,
7183: (
7184: p_api_version => 1.0,
7185: p_init_msg_list => FND_API.G_FALSE,
7186: p_commit => FND_API.G_FALSE,
7187: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7188: x_return_status => l_return_status,
7189: x_msg_count => l_msg_count,
7190: x_msg_data => l_msg_data,
7191: p_ahl_res_txn_tbl => l_res_txn_tbl
7194:
7195: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
7196: (
7197: p_api_version => 1.0,
7198: p_init_msg_list => FND_API.G_FALSE,
7199: p_commit => FND_API.G_FALSE,
7200: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7201: x_return_status => l_return_status,
7202: x_msg_count => l_msg_count,
7195: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
7196: (
7197: p_api_version => 1.0,
7198: p_init_msg_list => FND_API.G_FALSE,
7199: p_commit => FND_API.G_FALSE,
7200: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7201: x_return_status => l_return_status,
7202: x_msg_count => l_msg_count,
7203: x_msg_data => l_msg_data,
7196: (
7197: p_api_version => 1.0,
7198: p_init_msg_list => FND_API.G_FALSE,
7199: p_commit => FND_API.G_FALSE,
7200: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7201: x_return_status => l_return_status,
7202: x_msg_count => l_msg_count,
7203: x_msg_data => l_msg_data,
7204: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
7203: x_msg_data => l_msg_data,
7204: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
7205: );
7206:
7207: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7208: RAISE FND_API.G_EXC_ERROR;
7209: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: END IF;
7204: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
7205: );
7206:
7207: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7208: RAISE FND_API.G_EXC_ERROR;
7209: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: END IF;
7212:
7205: );
7206:
7207: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7208: RAISE FND_API.G_EXC_ERROR;
7209: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: END IF;
7212:
7213: END IF;
7206:
7207: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7208: RAISE FND_API.G_EXC_ERROR;
7209: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: END IF;
7212:
7213: END IF;
7214:
7248: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7249: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7250: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7251: FND_MSG_PUB.add;
7252: RAISE FND_API.G_EXC_ERROR;
7253: END IF;
7254:
7255: -- Validate if the actual end dates entered is greater than any WO Op
7256: IF ( op_csr.actual_end_date IS NOT NULL AND
7259: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7260: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7261: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7262: FND_MSG_PUB.add;
7263: RAISE FND_API.G_EXC_ERROR;
7264: END IF;
7265:
7266: END IF;
7267: */
7277: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7278: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7279: FND_MSG_PUB.add;
7280: CLOSE is_qa_coll_reqd;
7281: RAISE FND_API.G_EXC_ERROR;
7282: END IF;
7283: CLOSE is_qa_coll_reqd;
7284: END IF;
7285:
7309: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7310: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7311: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7312: FND_MSG_PUB.add;
7313: RAISE FND_API.G_EXC_ERROR;
7314: END IF;
7315: END IF;
7316: /* Bug # 4955278 - end */
7317:
7373: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7374: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
7375: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
7376: FND_MSG_PUB.add;
7377: RAISE FND_API.G_EXC_ERROR;
7378: END IF;
7379: END IF; -- Check Complete Operations
7380:
7381: END LOOP; -- Iterate Operations
7428: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7429: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7430: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7431: FND_MSG_PUB.add;
7432: RAISE FND_API.G_EXC_ERROR;
7433: END IF;
7434:
7435: -- Validate if the actual end dates entered is greater than any WO Op
7436: IF ( l_unassoc_ue_op_rec.actual_end_date IS NOT NULL AND
7439: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7440: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7441: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7442: FND_MSG_PUB.add;
7443: RAISE FND_API.G_EXC_ERROR;
7444: END IF;
7445: END IF; */
7446: /*End ER # 4757222*/
7447:
7456: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7457: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7458: FND_MSG_PUB.add;
7459: CLOSE is_qa_coll_reqd;
7460: RAISE FND_API.G_EXC_ERROR;
7461: END IF;
7462: CLOSE is_qa_coll_reqd;
7463: END IF;
7464:
7487: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7488: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7489: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7490: FND_MSG_PUB.add;
7491: RAISE FND_API.G_EXC_ERROR;
7492: END IF;
7493: END IF;
7494: /* Bug # 4955278 - end */
7495:
7550: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7551: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7552: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7553: FND_MSG_PUB.add;
7554: RAISE FND_API.G_EXC_ERROR;
7555: END IF;
7556: END IF; -- complete_job_ops_flag
7557: END LOOP;
7558: END IF; -- IF l_ctr = 0 THEN
7587:
7588: IF ( SQL%ROWCOUNT = 0 ) THEN
7589: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7590: FND_MSG_PUB.add;
7591: RAISE FND_API.G_EXC_ERROR;
7592: END IF;
7593:
7594: --Balaji-debug
7595: IF ( G_DEBUG = 'Y' ) THEN
7626: -- R12
7627: -- The actual dates are defaulted from the resource txn dates
7628: -- instead of the scheduled dates
7629: -- This is taken care of in the Completions API if the p_default param
7630: -- is passed as FND_API.G_TRUE
7631: l_default := FND_API.G_FALSE;
7632: IF (p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND p_signoff_mr_rec.default_actual_dates_flag = 'Y') THEN
7633: l_default := FND_API.G_TRUE;
7634: END IF;
7627: -- The actual dates are defaulted from the resource txn dates
7628: -- instead of the scheduled dates
7629: -- This is taken care of in the Completions API if the p_default param
7630: -- is passed as FND_API.G_TRUE
7631: l_default := FND_API.G_FALSE;
7632: IF (p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND p_signoff_mr_rec.default_actual_dates_flag = 'Y') THEN
7633: l_default := FND_API.G_TRUE;
7634: END IF;
7635:
7629: -- This is taken care of in the Completions API if the p_default param
7630: -- is passed as FND_API.G_TRUE
7631: l_default := FND_API.G_FALSE;
7632: IF (p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND p_signoff_mr_rec.default_actual_dates_flag = 'Y') THEN
7633: l_default := FND_API.G_TRUE;
7634: END IF;
7635:
7636: complete_operation
7637: (
7635:
7636: complete_operation
7637: (
7638: p_api_version => 1.0,
7639: p_init_msg_list => FND_API.G_FALSE,
7640: p_commit => FND_API.G_FALSE,
7641: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7642: p_default => l_default,
7643: p_module_type => NULL,
7636: complete_operation
7637: (
7638: p_api_version => 1.0,
7639: p_init_msg_list => FND_API.G_FALSE,
7640: p_commit => FND_API.G_FALSE,
7641: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7642: p_default => l_default,
7643: p_module_type => NULL,
7644: x_return_status => l_return_status,
7637: (
7638: p_api_version => 1.0,
7639: p_init_msg_list => FND_API.G_FALSE,
7640: p_commit => FND_API.G_FALSE,
7641: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7642: p_default => l_default,
7643: p_module_type => NULL,
7644: x_return_status => l_return_status,
7645: x_msg_count => l_msg_count,
7647: p_workorder_operation_id => l_operation_tbl(i).workorder_operation_id,
7648: p_object_version_no => l_operation_tbl(i).object_version_number
7649: );
7650:
7651: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7652: RAISE FND_API.G_EXC_ERROR;
7653: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7655: END IF;
7648: p_object_version_no => l_operation_tbl(i).object_version_number
7649: );
7650:
7651: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7652: RAISE FND_API.G_EXC_ERROR;
7653: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7655: END IF;
7656:
7649: );
7650:
7651: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7652: RAISE FND_API.G_EXC_ERROR;
7653: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7655: END IF;
7656:
7657: END LOOP;
7650:
7651: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7652: RAISE FND_API.G_EXC_ERROR;
7653: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7655: END IF;
7656:
7657: END LOOP;
7658: END IF;
7677: -- Error defaulting the actual dates for workorder WO_NAME before completion.
7678: -- Do we raise an error for this or just ignore the error since this is defaulting code?
7679: -- Check during UTs
7680: FND_MSG_PUB.add;
7681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7682: END IF; -- IF get_wo_dates %NOTFOUND THEN
7683: CLOSE get_wo_dates;
7684:
7685: Get_default_wo_actual_dates(x_return_status => l_return_status,
7686: p_workorder_id => l_workorder_tbl(i).workorder_id,
7687: x_actual_start_date => l_def_actual_start_date,
7688: x_actual_end_date => l_def_actual_end_date
7689: );
7690: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
7691: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7692: FND_MSG_PUB.add;
7693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7694: END IF;
7689: );
7690: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
7691: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7692: FND_MSG_PUB.add;
7693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7694: END IF;
7695:
7696: -- update the actual dates in the table
7697: IF l_wo_actual_start_date IS NULL THEN
7706: IF SQL%ROWCOUNT = 0 THEN
7707: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7708: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7709: FND_MSG_PUB.add;
7710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7711: END IF;
7712: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7713: END IF;-- IF l_actual_start_date IS NULL THEN
7714:
7725: IF SQL%ROWCOUNT = 0 THEN
7726: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7727: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7728: FND_MSG_PUB.add;
7729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7730: END IF;
7731: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7732: END IF; -- IF l_actual_end_date IS NULL THEN
7733: /*ELSE
7744:
7745: IF ( SQL%ROWCOUNT = 0 ) THEN
7746: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7747: FND_MSG_PUB.add;
7748: RAISE FND_API.G_EXC_ERROR;
7749: END IF;
7750:
7751: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;*/
7752: END IF; --IF (complete_job_ops_flag = 'Y' AND default_actual_dates_flag = 'Y') THEN
7782: p_actual_start_date => l_actual_start_date,
7783: p_actual_end_date => l_actual_end_date
7784: );
7785:
7786: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7787: RAISE FND_API.G_EXC_ERROR;
7788: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7790: END IF;
7783: p_actual_end_date => l_actual_end_date
7784: );
7785:
7786: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7787: RAISE FND_API.G_EXC_ERROR;
7788: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7790: END IF;
7791:
7784: );
7785:
7786: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7787: RAISE FND_API.G_EXC_ERROR;
7788: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7790: END IF;
7791:
7792: END IF;
7785:
7786: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7787: RAISE FND_API.G_EXC_ERROR;
7788: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7790: END IF;
7791:
7792: END IF;
7793:
7804: p_wip_entity_id => l_mr_rec.visit_wip_entity_id,
7805: p_x_workorder_tbl => l_workorder_tbl
7806: );
7807:
7808: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7809: RAISE FND_API.G_EXC_ERROR;
7810: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7812: END IF;
7805: p_x_workorder_tbl => l_workorder_tbl
7806: );
7807:
7808: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7809: RAISE FND_API.G_EXC_ERROR;
7810: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7812: END IF;
7813:
7806: );
7807:
7808: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7809: RAISE FND_API.G_EXC_ERROR;
7810: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7812: END IF;
7813:
7814: END IF;
7807:
7808: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7809: RAISE FND_API.G_EXC_ERROR;
7810: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7812: END IF;
7813:
7814: END IF;
7815:
7841: AND LOOKUP_CODE = l_ue_status_code;
7842: */
7843: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
7844: FND_MSG_PUB.add;
7845: RAISE FND_API.G_EXC_ERROR;
7846: END IF;
7847:
7848: IF ( G_DEBUG = 'Y' ) THEN
7849: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7852:
7853: complete_mr_instance
7854: (
7855: p_api_version => 1.0,
7856: p_init_msg_list => FND_API.G_FALSE,
7857: p_commit => FND_API.G_FALSE,
7858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7859: p_default => FND_API.G_FALSE,
7860: p_module_type => NULL,
7853: complete_mr_instance
7854: (
7855: p_api_version => 1.0,
7856: p_init_msg_list => FND_API.G_FALSE,
7857: p_commit => FND_API.G_FALSE,
7858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7859: p_default => FND_API.G_FALSE,
7860: p_module_type => NULL,
7861: x_return_status => l_return_status,
7854: (
7855: p_api_version => 1.0,
7856: p_init_msg_list => FND_API.G_FALSE,
7857: p_commit => FND_API.G_FALSE,
7858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7859: p_default => FND_API.G_FALSE,
7860: p_module_type => NULL,
7861: x_return_status => l_return_status,
7862: x_msg_count => l_msg_count,
7855: p_api_version => 1.0,
7856: p_init_msg_list => FND_API.G_FALSE,
7857: p_commit => FND_API.G_FALSE,
7858: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7859: p_default => FND_API.G_FALSE,
7860: p_module_type => NULL,
7861: x_return_status => l_return_status,
7862: x_msg_count => l_msg_count,
7863: x_msg_data => l_msg_data,
7863: x_msg_data => l_msg_data,
7864: p_x_mr_rec => l_child_mr_tbl(i)
7865: );
7866:
7867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7868: RAISE FND_API.G_EXC_ERROR;
7869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7871: END IF;
7864: p_x_mr_rec => l_child_mr_tbl(i)
7865: );
7866:
7867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7868: RAISE FND_API.G_EXC_ERROR;
7869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7871: END IF;
7872: END IF;
7865: );
7866:
7867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7868: RAISE FND_API.G_EXC_ERROR;
7869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7871: END IF;
7872: END IF;
7873:
7866:
7867: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7868: RAISE FND_API.G_EXC_ERROR;
7869: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7871: END IF;
7872: END IF;
7873:
7874: END LOOP;
7902: p_actual_date => l_workorder_tbl(i).actual_end_date,
7903: x_counter_tbl => l_counter_tbl
7904: );
7905:
7906: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7907: RAISE FND_API.G_EXC_ERROR;
7908: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7910: END IF;
7903: x_counter_tbl => l_counter_tbl
7904: );
7905:
7906: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7907: RAISE FND_API.G_EXC_ERROR;
7908: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7910: END IF;
7911:
7904: );
7905:
7906: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7907: RAISE FND_API.G_EXC_ERROR;
7908: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7910: END IF;
7911:
7912: -- Bug # 6750836 -- end
7905:
7906: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7907: RAISE FND_API.G_EXC_ERROR;
7908: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7910: END IF;
7911:
7912: -- Bug # 6750836 -- end
7913:
7921: p_wip_entity_id => l_workorder_tbl(i).wip_entity_id,
7922: p_counter_tbl => l_counter_tbl
7923: );
7924:
7925: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7926: RAISE FND_API.G_EXC_ERROR;
7927: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7929: END IF;
7922: p_counter_tbl => l_counter_tbl
7923: );
7924:
7925: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7926: RAISE FND_API.G_EXC_ERROR;
7927: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7929: END IF;
7930:
7923: );
7924:
7925: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7926: RAISE FND_API.G_EXC_ERROR;
7927: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7929: END IF;
7930:
7931: -- Re-set the API savepoint because, Quality Results submission commits
7924:
7925: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7926: RAISE FND_API.G_EXC_ERROR;
7927: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7929: END IF;
7930:
7931: -- Re-set the API savepoint because, Quality Results submission commits
7932: SAVEPOINT signoff_mr_instance_PVT;
7955: q_msg_count => l_msg_count,
7956: q_msg_data => l_msg_data
7957: );
7958:
7959: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7960: x_msg_data := l_msg_data;
7961: x_msg_count := l_msg_count;
7962: RETURN;
7963: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7959: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7960: x_msg_data := l_msg_data;
7961: x_msg_count := l_msg_count;
7962: RETURN;
7963: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7965: END IF;
7966:
7967: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7960: x_msg_data := l_msg_data;
7961: x_msg_count := l_msg_count;
7962: RETURN;
7963: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7965: END IF;
7966:
7967: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7968: SAVEPOINT signoff_mr_instance_PVT;
7983: q_msg_count => l_msg_count,
7984: q_msg_data => l_msg_data
7985: );
7986:
7987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7988: x_msg_data := l_msg_data;
7989: x_msg_count := l_msg_count;
7990: RETURN;
7991: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7988: x_msg_data := l_msg_data;
7989: x_msg_count := l_msg_count;
7990: RETURN;
7991: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7993: END IF;
7994:
7995: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7988: x_msg_data := l_msg_data;
7989: x_msg_count := l_msg_count;
7990: RETURN;
7991: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7993: END IF;
7994:
7995: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7996: SAVEPOINT signoff_mr_instance_PVT;
8011: q_msg_count => l_msg_count,
8012: q_msg_data => l_msg_data
8013: );
8014:
8015: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8016: x_msg_data := l_msg_data;
8017: x_msg_count := l_msg_count;
8018: RETURN;
8019: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8015: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8016: x_msg_data := l_msg_data;
8017: x_msg_count := l_msg_count;
8018: RETURN;
8019: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8021: END IF;
8022:
8023: -- Re-set the API savepoint because, the wrapper_fire_action commits.
8016: x_msg_data := l_msg_data;
8017: x_msg_count := l_msg_count;
8018: RETURN;
8019: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8021: END IF;
8022:
8023: -- Re-set the API savepoint because, the wrapper_fire_action commits.
8024: SAVEPOINT signoff_mr_instance_PVT;
8030: END IF;
8031: --Pekambar added for ER 9274897 and 9504544 --END
8032:
8033: -- Perform the Commit (if requested)
8034: IF FND_API.to_boolean( p_commit ) THEN
8035: COMMIT WORK;
8036: END IF;
8037:
8038: -- Disable debug (if enabled)
8041: END IF;
8042:
8043: EXCEPTION
8044:
8045: WHEN FND_API.G_EXC_ERROR THEN
8046: ROLLBACK TO signoff_mr_instance_PVT;
8047: x_return_status := FND_API.G_RET_STS_ERROR;
8048: FND_MSG_PUB.count_and_get
8049: (
8043: EXCEPTION
8044:
8045: WHEN FND_API.G_EXC_ERROR THEN
8046: ROLLBACK TO signoff_mr_instance_PVT;
8047: x_return_status := FND_API.G_RET_STS_ERROR;
8048: FND_MSG_PUB.count_and_get
8049: (
8050: p_encoded => FND_API.G_FALSE,
8051: p_count => x_msg_count,
8046: ROLLBACK TO signoff_mr_instance_PVT;
8047: x_return_status := FND_API.G_RET_STS_ERROR;
8048: FND_MSG_PUB.count_and_get
8049: (
8050: p_encoded => FND_API.G_FALSE,
8051: p_count => x_msg_count,
8052: p_data => x_msg_data
8053: );
8054:
8055: IF ( G_DEBUG = 'Y' ) THEN
8056: AHL_DEBUG_PUB.disable_debug;
8057: END IF;
8058:
8059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8060: ROLLBACK TO signoff_mr_instance_PVT;
8061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8062: FND_MSG_PUB.count_and_get
8063: (
8057: END IF;
8058:
8059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8060: ROLLBACK TO signoff_mr_instance_PVT;
8061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8062: FND_MSG_PUB.count_and_get
8063: (
8064: p_encoded => FND_API.G_FALSE,
8065: p_count => x_msg_count,
8060: ROLLBACK TO signoff_mr_instance_PVT;
8061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8062: FND_MSG_PUB.count_and_get
8063: (
8064: p_encoded => FND_API.G_FALSE,
8065: p_count => x_msg_count,
8066: p_data => x_msg_data
8067: );
8068:
8071: END IF;
8072:
8073: WHEN OTHERS THEN
8074: ROLLBACK TO signoff_mr_instance_PVT;
8075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8076: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8077: THEN
8078: FND_MSG_PUB.add_exc_msg
8079: (
8083: );
8084: END IF;
8085: FND_MSG_PUB.count_and_get
8086: (
8087: p_encoded => FND_API.G_FALSE,
8088: p_count => x_msg_count,
8089: p_data => x_msg_data
8090: );
8091:
8096:
8097: PROCEDURE close_visit
8098: (
8099: p_api_version IN NUMBER := 1.0,
8100: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8103: p_default IN VARCHAR2 := FND_API.G_FALSE,
8104: p_module_type IN VARCHAR2 := NULL,
8097: PROCEDURE close_visit
8098: (
8099: p_api_version IN NUMBER := 1.0,
8100: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8103: p_default IN VARCHAR2 := FND_API.G_FALSE,
8104: p_module_type IN VARCHAR2 := NULL,
8105: x_return_status OUT NOCOPY VARCHAR2,
8098: (
8099: p_api_version IN NUMBER := 1.0,
8100: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8103: p_default IN VARCHAR2 := FND_API.G_FALSE,
8104: p_module_type IN VARCHAR2 := NULL,
8105: x_return_status OUT NOCOPY VARCHAR2,
8106: x_msg_count OUT NOCOPY NUMBER,
8099: p_api_version IN NUMBER := 1.0,
8100: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8101: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8102: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8103: p_default IN VARCHAR2 := FND_API.G_FALSE,
8104: p_module_type IN VARCHAR2 := NULL,
8105: x_return_status OUT NOCOPY VARCHAR2,
8106: x_msg_count OUT NOCOPY NUMBER,
8107: x_msg_data OUT NOCOPY VARCHAR2,
8495: AHL_DEBUG_PUB.enable_debug;
8496: END IF;
8497:
8498: -- Initialize API return status to success
8499: x_return_status := FND_API.G_RET_STS_SUCCESS;
8500:
8501: -- Standard Start of API savepoint
8502: SAVEPOINT close_visit_PVT;
8503:
8501: -- Standard Start of API savepoint
8502: SAVEPOINT close_visit_PVT;
8503:
8504: -- Initialize message list if p_init_msg_list is set to TRUE.
8505: IF FND_API.to_boolean( p_init_msg_list ) THEN
8506: FND_MSG_PUB.initialize;
8507: END IF;
8508:
8509: IF ( G_DEBUG = 'Y' ) THEN
8516: (
8517: p_close_visit_rec => p_close_visit_rec
8518: );
8519:
8520: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8521: RAISE FND_API.G_EXC_ERROR;
8522: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8524: END IF;
8517: p_close_visit_rec => p_close_visit_rec
8518: );
8519:
8520: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8521: RAISE FND_API.G_EXC_ERROR;
8522: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8524: END IF;
8525:
8518: );
8519:
8520: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8521: RAISE FND_API.G_EXC_ERROR;
8522: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8524: END IF;
8525:
8526: IF ( G_DEBUG = 'Y' ) THEN
8519:
8520: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8521: RAISE FND_API.G_EXC_ERROR;
8522: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8524: END IF;
8525:
8526: IF ( G_DEBUG = 'Y' ) THEN
8527: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8565: IF ( get_visit_stat%NOTFOUND ) THEN
8566: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8567: FND_MSG_PUB.add;
8568: CLOSE get_visit_stat;
8569: RAISE FND_API.G_EXC_ERROR;
8570: END IF;
8571:
8572: CLOSE get_visit_stat;
8573: -- End by SOSAHNI on 10/01/2013 for BUG 16089728 :: FP base bug 14258761
8587: /* IF ( get_unit_on_visit%NOTFOUND OR l_visit_uc_header_id = -1 OR l_visit_uc_header_id IS NULL) THEN
8588: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_UNIT_NOT_FOUND' );
8589: FND_MSG_PUB.add;
8590: CLOSE get_unit_on_visit;
8591: RAISE FND_API.G_EXC_ERROR;
8592: END IF; */
8593: CLOSE get_unit_on_visit;
8594: IF ( G_DEBUG = 'Y' ) THEN
8595: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Visit UC Header Id: ' || l_visit_uc_header_id );
8601: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Before Calling AHL_UC_VALIDATION_PUB.Validate_Completeness' );
8602: END IF;
8603: AHL_UC_VALIDATION_PUB.Validate_Completeness (
8604: p_api_version => 1.0,
8605: p_init_msg_list => FND_API.G_FALSE,
8606: p_commit => FND_API.G_FALSE,
8607: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8608: x_return_status => l_return_status,
8609: x_msg_count => l_msg_count,
8602: END IF;
8603: AHL_UC_VALIDATION_PUB.Validate_Completeness (
8604: p_api_version => 1.0,
8605: p_init_msg_list => FND_API.G_FALSE,
8606: p_commit => FND_API.G_FALSE,
8607: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8608: x_return_status => l_return_status,
8609: x_msg_count => l_msg_count,
8610: x_msg_data => l_msg_data,
8603: AHL_UC_VALIDATION_PUB.Validate_Completeness (
8604: p_api_version => 1.0,
8605: p_init_msg_list => FND_API.G_FALSE,
8606: p_commit => FND_API.G_FALSE,
8607: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8608: x_return_status => l_return_status,
8609: x_msg_count => l_msg_count,
8610: x_msg_data => l_msg_data,
8611: p_unit_header_id => l_visit_uc_header_id,
8616: IF ( G_DEBUG = 'Y' ) THEN
8617: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling Check_Unit_Completeness , Status = '|| l_return_status );
8618: END IF;
8619:
8620: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8621: RAISE FND_API.G_EXC_ERROR;
8622: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8624: END IF;
8617: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling Check_Unit_Completeness , Status = '|| l_return_status );
8618: END IF;
8619:
8620: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8621: RAISE FND_API.G_EXC_ERROR;
8622: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8624: END IF;
8625: --If api not returned with return status as success then check the rule violation.
8618: END IF;
8619:
8620: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8621: RAISE FND_API.G_EXC_ERROR;
8622: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8624: END IF;
8625: --If api not returned with return status as success then check the rule violation.
8626: IF (l_erring_rules_tbl.count > 0 ) THEN
8619:
8620: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8621: RAISE FND_API.G_EXC_ERROR;
8622: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8624: END IF;
8625: --If api not returned with return status as success then check the rule violation.
8626: IF (l_erring_rules_tbl.count > 0 ) THEN
8627: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_UNIT_RULE_ERR' );
8625: --If api not returned with return status as success then check the rule violation.
8626: IF (l_erring_rules_tbl.count > 0 ) THEN
8627: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_UNIT_RULE_ERR' );
8628: FND_MSG_PUB.add;
8629: RAISE FND_API.G_EXC_ERROR;
8630: END IF;
8631:
8632: END IF; -- if visit_unit not null
8633:
8643: END IF;
8644:
8645: IF ( l_visit_status_code = 'CLOSED' )
8646: THEN
8647: IF Is_Signoff_Update_User = FND_API.G_TRUE
8648: THEN
8649: IF ( p_close_visit_rec.wo_comp_dates_flag = 'Y' or ( p_close_visit_rec.wo_comp_dates_flag = 'Y' and p_close_visit_rec.wo_childmr_dates_flag = 'Y') )
8650: THEN
8651: l_temp_signoff_mr_rec.wo_comp_dates_flag := p_close_visit_rec.wo_comp_dates_flag;
8662: l_temp_signoff_mr_rec.unit_effectivity_id := umr_csr.unit_effectivity_id;
8663: update_signoff_dates
8664: (
8665: p_api_version => 1.0,
8666: p_init_msg_list => FND_API.G_TRUE,
8667: p_commit => FND_API.G_FALSE,
8668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8669: p_default => FND_API.G_FALSE,
8670: p_module_type => NULL,
8663: update_signoff_dates
8664: (
8665: p_api_version => 1.0,
8666: p_init_msg_list => FND_API.G_TRUE,
8667: p_commit => FND_API.G_FALSE,
8668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8669: p_default => FND_API.G_FALSE,
8670: p_module_type => NULL,
8671: x_return_status => l_return_status,
8664: (
8665: p_api_version => 1.0,
8666: p_init_msg_list => FND_API.G_TRUE,
8667: p_commit => FND_API.G_FALSE,
8668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8669: p_default => FND_API.G_FALSE,
8670: p_module_type => NULL,
8671: x_return_status => l_return_status,
8672: x_msg_count => l_msg_count ,
8665: p_api_version => 1.0,
8666: p_init_msg_list => FND_API.G_TRUE,
8667: p_commit => FND_API.G_FALSE,
8668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8669: p_default => FND_API.G_FALSE,
8670: p_module_type => NULL,
8671: x_return_status => l_return_status,
8672: x_msg_count => l_msg_count ,
8673: x_msg_data => l_msg_data,
8677: IF ( G_DEBUG = 'Y' ) THEN
8678: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling update_signoff_dates, Status = '||l_return_status );
8679: END IF;
8680:
8681: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8682: RAISE FND_API.G_EXC_ERROR;
8683: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8678: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling update_signoff_dates, Status = '||l_return_status );
8679: END IF;
8680:
8681: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8682: RAISE FND_API.G_EXC_ERROR;
8683: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686: END LOOP;
8679: END IF;
8680:
8681: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8682: RAISE FND_API.G_EXC_ERROR;
8683: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686: END LOOP;
8687: END IF;
8680:
8681: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8682: RAISE FND_API.G_EXC_ERROR;
8683: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8685: END IF;
8686: END LOOP;
8687: END IF;
8688: ELSE
8687: END IF;
8688: ELSE
8689: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_SUPER_USER' );
8690: FND_MSG_PUB.add;
8691: RAISE FND_API.G_EXC_ERROR;
8692: END IF;
8693: ELSE
8694:
8695: -- Invoke VWP Close Visit API if this is not a top-down signoff
8703:
8704: AHL_VWP_VISITS_PVT.close_visit
8705: (
8706: p_api_version => 1.0,
8707: p_init_msg_list => FND_API.G_FALSE,
8708: p_commit => FND_API.G_TRUE,
8709: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8710: p_module_type => NULL,
8711: p_visit_id => p_close_visit_rec.visit_id,
8704: AHL_VWP_VISITS_PVT.close_visit
8705: (
8706: p_api_version => 1.0,
8707: p_init_msg_list => FND_API.G_FALSE,
8708: p_commit => FND_API.G_TRUE,
8709: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8710: p_module_type => NULL,
8711: p_visit_id => p_close_visit_rec.visit_id,
8712: p_x_cost_session_id => l_cost_session_id,
8705: (
8706: p_api_version => 1.0,
8707: p_init_msg_list => FND_API.G_FALSE,
8708: p_commit => FND_API.G_TRUE,
8709: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8710: p_module_type => NULL,
8711: p_visit_id => p_close_visit_rec.visit_id,
8712: p_x_cost_session_id => l_cost_session_id,
8713: p_x_mr_session_id => l_mr_session_id,
8719: IF ( G_DEBUG = 'Y' ) THEN
8720: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling AHL_VWP_VISITS_PVT.close_visit, Status = '||l_return_status );
8721: END IF;
8722:
8723: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8724: RAISE FND_API.G_EXC_ERROR;
8725: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8727: END IF;
8720: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' After Calling AHL_VWP_VISITS_PVT.close_visit, Status = '||l_return_status );
8721: END IF;
8722:
8723: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8724: RAISE FND_API.G_EXC_ERROR;
8725: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8727: END IF;
8728:
8721: END IF;
8722:
8723: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8724: RAISE FND_API.G_EXC_ERROR;
8725: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8727: END IF;
8728:
8729: --JKJain, Bug 9250614
8722:
8723: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8724: RAISE FND_API.G_EXC_ERROR;
8725: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8727: END IF;
8728:
8729: --JKJain, Bug 9250614
8730: -- RETURN;
8737: IF ( get_visit_details%NOTFOUND ) THEN
8738: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8739: FND_MSG_PUB.add;
8740: CLOSE get_visit_details;
8741: RAISE FND_API.G_EXC_ERROR;
8742: END IF;
8743:
8744: CLOSE get_visit_details;
8745:
8770: IF ( get_visit_details%NOTFOUND ) THEN
8771: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8772: FND_MSG_PUB.add;
8773: CLOSE get_visit_details;
8774: RAISE FND_API.G_EXC_ERROR;
8775: END IF;
8776:
8777: CLOSE get_visit_details;
8778:
8779: -- Validate Object Version Number
8780: IF ( l_visit_rec.object_version_number <> p_close_visit_rec.object_version_number ) THEN
8781: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
8782: FND_MSG_PUB.add;
8783: RAISE FND_API.G_EXC_ERROR;
8784: END IF;
8785:
8786: -- Validate the status of the Visit for Top-down Closure
8787: IF ( l_visit_rec.status_code <> G_VISIT_STATUS_RELEASED ) THEN
8827: p_qa_plan_id => mr_csr.qa_plan_id,
8828: p_qa_collection_id => mr_csr.qa_collection_id
8829: );
8830:
8831: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8832: RAISE FND_API.G_EXC_ERROR;
8833: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8835: END IF;
8828: p_qa_collection_id => mr_csr.qa_collection_id
8829: );
8830:
8831: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8832: RAISE FND_API.G_EXC_ERROR;
8833: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8835: END IF;
8836:
8829: );
8830:
8831: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8832: RAISE FND_API.G_EXC_ERROR;
8833: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8835: END IF;
8836:
8837: -- Balaji added the following loop for the BAE bug.
8830:
8831: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8832: RAISE FND_API.G_EXC_ERROR;
8833: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8835: END IF;
8836:
8837: -- Balaji added the following loop for the BAE bug.
8838: -- The cursor get_child_ue_details doesnt UEs at the leaf node first
8879: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
8880: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8881: );
8882:
8883: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8884: RAISE FND_API.G_EXC_ERROR;
8885: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8887: END IF;*/
8880: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8881: );
8882:
8883: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8884: RAISE FND_API.G_EXC_ERROR;
8885: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8887: END IF;*/
8888:
8881: );
8882:
8883: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8884: RAISE FND_API.G_EXC_ERROR;
8885: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8887: END IF;*/
8888:
8889: -- Store the Child UEs in a table of records for Signing off
8882:
8883: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8884: RAISE FND_API.G_EXC_ERROR;
8885: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8887: END IF;*/
8888:
8889: -- Store the Child UEs in a table of records for Signing off
8890: -- pekambar :F or ER # 9504544 , Signed MRs also allowed to signed off
8910: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
8911: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8912: );
8913:
8914: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8915: RAISE FND_API.G_EXC_ERROR;
8916: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8918: END IF;
8911: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8912: );
8913:
8914: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8915: RAISE FND_API.G_EXC_ERROR;
8916: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8918: END IF;
8919:
8912: );
8913:
8914: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8915: RAISE FND_API.G_EXC_ERROR;
8916: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8918: END IF;
8919:
8920: IF ( G_DEBUG = 'Y' ) THEN
8913:
8914: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8915: RAISE FND_API.G_EXC_ERROR;
8916: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8918: END IF;
8919:
8920: IF ( G_DEBUG = 'Y' ) THEN
8921: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
8971: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_MRS_NOT_CMPL' );
8972: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8973: FND_MESSAGE.set_token( 'MAINT_REQ', mr_csr.title );
8974: FND_MSG_PUB.add;
8975: RAISE FND_API.G_EXC_ERROR;
8976: END IF;
8977: END IF;
8978: END LOOP;
8979:
8999: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9000: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9001: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9002: FND_MSG_PUB.add;
9003: RAISE FND_API.G_EXC_ERROR;
9004: END IF;
9005:
9006: -- Ensure that the actual end date entered is greater than any WO
9007: IF ( wo_csr.actual_end_date IS NOT NULL AND
9010: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9011: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9012: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
9013: FND_MSG_PUB.add;
9014: RAISE FND_API.G_EXC_ERROR;
9015: END IF;
9016: END IF;
9017: */--end ER # 4757222
9018: -- Do not process Workorders which are already Complete
9040: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
9041: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9042: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9043: FND_MSG_PUB.add;
9044: RAISE FND_API.G_EXC_ERROR;
9045: END IF;
9046:
9047: -- Validate whether Quality Results are Submitted
9048: IF ( wo_csr.plan_id IS NOT NULL AND
9053: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
9054: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9055: FND_MSG_PUB.add;
9056: CLOSE is_qa_coll_reqd;
9057: RAISE FND_API.G_EXC_ERROR;
9058: END IF;
9059: CLOSE is_qa_coll_reqd;
9060: END IF;
9061: --JKJain, Bug 9250614, Master WO is being tackeled in check for Signoff MR.
9181: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_NOT_CMPL' );
9182: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9183: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
9184: FND_MSG_PUB.add;
9185: RAISE FND_API.G_EXC_ERROR;
9186: END IF;
9187: END IF;
9188: END LOOP;
9189:
9209: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
9210: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9211: FND_MSG_PUB.add;
9212: CLOSE is_qa_coll_reqd;
9213: RAISE FND_API.G_EXC_ERROR;
9214: END IF;
9215: CLOSE is_qa_coll_reqd;
9216: END IF;
9217:
9225: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
9226: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9227: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_visit_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
9228: FND_MSG_PUB.add;
9229: RAISE FND_API.G_EXC_ERROR;
9230: END IF;
9231:
9232: -- Validate if the actual end dates entered is greater than any WO
9233: IF ( l_visit_rec.actual_end_date IS NOT NULL AND
9235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
9236: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
9237: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_visit_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
9238: FND_MSG_PUB.add;
9239: RAISE FND_API.G_EXC_ERROR;
9240: END IF;
9241: END IF;
9242: */--End ER # 4757222
9243: -- Add the Visit WO to the Workorder Table of Records
9272:
9273: -- Check if Serial Number is entered for Machine Type Resource
9274: IF ( res_csr.resource_type = 1 AND
9275: ( p_close_visit_rec.serial_number IS NULL OR
9276: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
9277: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
9278: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9279: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9280: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9278: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9279: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9280: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9281: FND_MSG_PUB.add;
9282: RAISE FND_API.G_EXC_ERROR;
9283: END IF;
9284:
9285: -- Check if Employee Number is entered for Machine Type Resource
9286: IF ( res_csr.resource_type = 2 AND
9284:
9285: -- Check if Employee Number is entered for Machine Type Resource
9286: IF ( res_csr.resource_type = 2 AND
9287: ( p_close_visit_rec.employee_number IS NULL OR
9288: p_close_visit_rec.employee_number = FND_API.G_MISS_NUM ) ) THEN
9289: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
9290: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9291: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9292: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9290: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
9291: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
9292: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
9293: FND_MSG_PUB.add;
9294: RAISE FND_API.G_EXC_ERROR;
9295: END IF;
9296:
9297: -- Add the Resource Requirement Record for Transaction Processing
9298: l_ctr := l_ctr + 1;
9328: IF ( SQL%NOTFOUND ) THEN
9329: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
9330: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
9331: FND_MSG_PUB.add;
9332: RAISE FND_API.G_EXC_ERROR;
9333: END IF;
9334: */
9335:
9336: BEGIN
9346: WHEN no_data_found THEN
9347: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
9348: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
9349: FND_MSG_PUB.add;
9350: RAISE FND_API.G_EXC_ERROR;
9351: END;
9352:
9353: -- Iterate through all the Resource Requirements
9354: FOR i IN l_resource_req_tbl.FIRST..l_resource_req_tbl.LAST LOOP
9442: -- Perform the Resource Txns
9443: AHL_WIP_JOB_PVT.insert_resource_txn
9444: (
9445: p_api_version => 1.0,
9446: p_init_msg_list => FND_API.G_FALSE,
9447: p_commit => FND_API.G_FALSE,
9448: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9449: x_return_status => l_return_status,
9450: x_msg_count => l_msg_count,
9443: AHL_WIP_JOB_PVT.insert_resource_txn
9444: (
9445: p_api_version => 1.0,
9446: p_init_msg_list => FND_API.G_FALSE,
9447: p_commit => FND_API.G_FALSE,
9448: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9449: x_return_status => l_return_status,
9450: x_msg_count => l_msg_count,
9451: x_msg_data => l_msg_data,
9444: (
9445: p_api_version => 1.0,
9446: p_init_msg_list => FND_API.G_FALSE,
9447: p_commit => FND_API.G_FALSE,
9448: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9449: x_return_status => l_return_status,
9450: x_msg_count => l_msg_count,
9451: x_msg_data => l_msg_data,
9452: p_ahl_res_txn_tbl => l_res_txn_tbl
9456:
9457: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
9458: (
9459: p_api_version => 1.0,
9460: p_init_msg_list => FND_API.G_FALSE,
9461: p_commit => FND_API.G_FALSE,
9462: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9463: x_return_status => l_return_status,
9464: x_msg_count => l_msg_count,
9457: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
9458: (
9459: p_api_version => 1.0,
9460: p_init_msg_list => FND_API.G_FALSE,
9461: p_commit => FND_API.G_FALSE,
9462: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9463: x_return_status => l_return_status,
9464: x_msg_count => l_msg_count,
9465: x_msg_data => l_msg_data,
9458: (
9459: p_api_version => 1.0,
9460: p_init_msg_list => FND_API.G_FALSE,
9461: p_commit => FND_API.G_FALSE,
9462: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9463: x_return_status => l_return_status,
9464: x_msg_count => l_msg_count,
9465: x_msg_data => l_msg_data,
9466: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
9465: x_msg_data => l_msg_data,
9466: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
9467: );
9468:
9469: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9470: RAISE FND_API.G_EXC_ERROR;
9471: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9473: END IF;
9466: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
9467: );
9468:
9469: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9470: RAISE FND_API.G_EXC_ERROR;
9471: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9473: END IF;
9474:
9467: );
9468:
9469: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9470: RAISE FND_API.G_EXC_ERROR;
9471: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9473: END IF;
9474:
9475: END IF;
9468:
9469: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9470: RAISE FND_API.G_EXC_ERROR;
9471: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9473: END IF;
9474:
9475: END IF;
9476:
9509: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9510: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9511: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
9512: FND_MSG_PUB.add;
9513: RAISE FND_API.G_EXC_ERROR;
9514: END IF;
9515:
9516: -- Validate if the actual end dates entered is greater than any WO Op
9517: IF ( op_csr.actual_end_date IS NOT NULL AND
9520: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9521: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9522: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
9523: FND_MSG_PUB.add;
9524: RAISE FND_API.G_EXC_ERROR;
9525: END IF;
9526:
9527: END IF;*/
9528:
9539: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9540: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9541: FND_MSG_PUB.add;
9542: CLOSE is_qa_coll_reqd;
9543: RAISE FND_API.G_EXC_ERROR;
9544: END IF;
9545: CLOSE is_qa_coll_reqd;
9546: END IF;
9547:
9573: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
9574: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9575: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9576: FND_MSG_PUB.add;
9577: RAISE FND_API.G_EXC_ERROR;
9578: END IF;
9579: END IF;
9580:
9581: /* Start ER # 4757222 */
9687: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9688: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9689: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9690: FND_MSG_PUB.add;
9691: RAISE FND_API.G_EXC_ERROR;
9692: END IF;
9693: END IF;
9694: END LOOP;
9695:
9699: END IF;
9700:
9701: -- perform the Operation Updates
9702: -- If the dates are to be defaulted then this will be done in the Completions API itself
9703: -- if p_default is passed as FND_API.G_TRUE
9704: --Balaji remvoed p_close_visit_rec.default_actual_dates_flag = 'N' condition for bug # 4955278
9705:
9706: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' ) THEN
9707: --AND p_close_visit_rec.default_actual_dates_flag = 'N'
9720:
9721: IF ( SQL%ROWCOUNT = 0 ) THEN
9722: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9723: FND_MSG_PUB.add;
9724: RAISE FND_API.G_EXC_ERROR;
9725: END IF;
9726:
9727: l_operation_tbl(i).object_version_number := l_operation_tbl(i).object_version_number + 1;
9728: END LOOP;
9743: IF (l_operation_tbl(i).workorder_operation_id <> l_default_stage_wo_op_id) THEN
9744: complete_operation
9745: (
9746: p_api_version => 1.0,
9747: p_init_msg_list => FND_API.G_FALSE,
9748: p_commit => FND_API.G_FALSE,
9749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9750: p_default => FND_API.G_FALSE,
9751: p_module_type => NULL,
9744: complete_operation
9745: (
9746: p_api_version => 1.0,
9747: p_init_msg_list => FND_API.G_FALSE,
9748: p_commit => FND_API.G_FALSE,
9749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9750: p_default => FND_API.G_FALSE,
9751: p_module_type => NULL,
9752: x_return_status => l_return_status,
9745: (
9746: p_api_version => 1.0,
9747: p_init_msg_list => FND_API.G_FALSE,
9748: p_commit => FND_API.G_FALSE,
9749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9750: p_default => FND_API.G_FALSE,
9751: p_module_type => NULL,
9752: x_return_status => l_return_status,
9753: x_msg_count => l_msg_count,
9746: p_api_version => 1.0,
9747: p_init_msg_list => FND_API.G_FALSE,
9748: p_commit => FND_API.G_FALSE,
9749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9750: p_default => FND_API.G_FALSE,
9751: p_module_type => NULL,
9752: x_return_status => l_return_status,
9753: x_msg_count => l_msg_count,
9754: x_msg_data => l_msg_data,
9756: p_object_version_no => l_operation_tbl(i).object_version_number
9757: );
9758: END IF;
9759:
9760: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9761: RAISE FND_API.G_EXC_ERROR;
9762: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9764: END IF;
9757: );
9758: END IF;
9759:
9760: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9761: RAISE FND_API.G_EXC_ERROR;
9762: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9764: END IF;
9765:
9758: END IF;
9759:
9760: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9761: RAISE FND_API.G_EXC_ERROR;
9762: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9764: END IF;
9765:
9766: END LOOP;
9759:
9760: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9761: RAISE FND_API.G_EXC_ERROR;
9762: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9764: END IF;
9765:
9766: END LOOP;
9767: END IF;
9799: IF SQL%ROWCOUNT = 0 THEN
9800: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9801: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9802: FND_MSG_PUB.add;
9803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9804: END IF;
9805: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9806: END IF;-- IF l_actual_start_date IS NULL THEN
9807:
9818: IF SQL%ROWCOUNT = 0 THEN
9819: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9820: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9821: FND_MSG_PUB.add;
9822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9823: END IF;
9824: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9825: END IF; -- IF l_actual_end_date IS NULL THEN
9826:
9838:
9839: IF ( SQL%ROWCOUNT = 0 ) THEN
9840: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9841: FND_MSG_PUB.add;
9842: RAISE FND_API.G_EXC_ERROR;
9843: END IF;
9844:
9845: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9846: END IF;
9871: p_actual_start_date => l_actual_start_date,
9872: p_actual_end_date => l_actual_end_date
9873: );
9874:
9875: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9876: RAISE FND_API.G_EXC_ERROR;
9877: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9879: END IF;
9872: p_actual_end_date => l_actual_end_date
9873: );
9874:
9875: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9876: RAISE FND_API.G_EXC_ERROR;
9877: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9879: END IF;
9880:
9873: );
9874:
9875: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9876: RAISE FND_API.G_EXC_ERROR;
9877: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9879: END IF;
9880:
9881: END IF;
9874:
9875: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9876: RAISE FND_API.G_EXC_ERROR;
9877: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9879: END IF;
9880:
9881: END IF;
9882:
9924: IF (l_default_stage_wo_id IS NOT NULL) THEN
9925: l_workorder_tbl(l_missing_rec_no) := l_default_stage_wo_rec;
9926: END IF;
9927:
9928: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9929: RAISE FND_API.G_EXC_ERROR;
9930: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9932: END IF;
9925: l_workorder_tbl(l_missing_rec_no) := l_default_stage_wo_rec;
9926: END IF;
9927:
9928: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9929: RAISE FND_API.G_EXC_ERROR;
9930: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9932: END IF;
9933:
9926: END IF;
9927:
9928: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9929: RAISE FND_API.G_EXC_ERROR;
9930: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9932: END IF;
9933:
9934: END IF;
9927:
9928: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9929: RAISE FND_API.G_EXC_ERROR;
9930: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9932: END IF;
9933:
9934: END IF;
9935:
9973: AND LOOKUP_CODE = l_ue_status_code;
9974: */
9975: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9976: FND_MSG_PUB.add;
9977: RAISE FND_API.G_EXC_ERROR;
9978: END IF;
9979: /* complete_mr_instance
9980: (
9981: p_api_version => 1.0,
9978: END IF;
9979: /* complete_mr_instance
9980: (
9981: p_api_version => 1.0,
9982: p_init_msg_list => FND_API.G_FALSE,
9983: p_commit => FND_API.G_FALSE,
9984: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9985: p_default => FND_API.G_FALSE,
9986: p_module_type => NULL,
9979: /* complete_mr_instance
9980: (
9981: p_api_version => 1.0,
9982: p_init_msg_list => FND_API.G_FALSE,
9983: p_commit => FND_API.G_FALSE,
9984: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9985: p_default => FND_API.G_FALSE,
9986: p_module_type => NULL,
9987: x_return_status => l_return_status,
9980: (
9981: p_api_version => 1.0,
9982: p_init_msg_list => FND_API.G_FALSE,
9983: p_commit => FND_API.G_FALSE,
9984: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9985: p_default => FND_API.G_FALSE,
9986: p_module_type => NULL,
9987: x_return_status => l_return_status,
9988: x_msg_count => l_msg_count,
9981: p_api_version => 1.0,
9982: p_init_msg_list => FND_API.G_FALSE,
9983: p_commit => FND_API.G_FALSE,
9984: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9985: p_default => FND_API.G_FALSE,
9986: p_module_type => NULL,
9987: x_return_status => l_return_status,
9988: x_msg_count => l_msg_count,
9989: x_msg_data => l_msg_data,
10005:
10006: signoff_mr_instance
10007: (
10008: p_api_version => 1.0,
10009: p_init_msg_list => FND_API.G_FALSE,
10010: p_commit => FND_API.G_FALSE,
10011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10012: p_default => FND_API.G_FALSE,
10013: p_module_type => NULL,
10006: signoff_mr_instance
10007: (
10008: p_api_version => 1.0,
10009: p_init_msg_list => FND_API.G_FALSE,
10010: p_commit => FND_API.G_FALSE,
10011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10012: p_default => FND_API.G_FALSE,
10013: p_module_type => NULL,
10014: x_return_status => l_return_status,
10007: (
10008: p_api_version => 1.0,
10009: p_init_msg_list => FND_API.G_FALSE,
10010: p_commit => FND_API.G_FALSE,
10011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10012: p_default => FND_API.G_FALSE,
10013: p_module_type => NULL,
10014: x_return_status => l_return_status,
10015: x_msg_count => l_msg_count,
10008: p_api_version => 1.0,
10009: p_init_msg_list => FND_API.G_FALSE,
10010: p_commit => FND_API.G_FALSE,
10011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10012: p_default => FND_API.G_FALSE,
10013: p_module_type => NULL,
10014: x_return_status => l_return_status,
10015: x_msg_count => l_msg_count,
10016: x_msg_data => l_msg_data,
10016: x_msg_data => l_msg_data,
10017: p_signoff_mr_rec => l_signoff_mr_rec
10018: );
10019:
10020: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10017: p_signoff_mr_rec => l_signoff_mr_rec
10018: );
10019:
10020: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10025:
10018: );
10019:
10020: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10025:
10026: END IF;
10019:
10020: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10025:
10026: END IF;
10027:
10035: -- Invoke close_visit API to close the Visit in VWP and Projects
10036: AHL_VWP_VISITS_PVT.close_visit
10037: (
10038: p_api_version => 1.0,
10039: p_init_msg_list => FND_API.G_FALSE,
10040: p_commit => FND_API.G_FALSE,
10041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10042: p_module_type => NULL,
10043: p_visit_id => p_close_visit_rec.visit_id,
10036: AHL_VWP_VISITS_PVT.close_visit
10037: (
10038: p_api_version => 1.0,
10039: p_init_msg_list => FND_API.G_FALSE,
10040: p_commit => FND_API.G_FALSE,
10041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10042: p_module_type => NULL,
10043: p_visit_id => p_close_visit_rec.visit_id,
10044: p_x_cost_session_id => l_cost_session_id,
10037: (
10038: p_api_version => 1.0,
10039: p_init_msg_list => FND_API.G_FALSE,
10040: p_commit => FND_API.G_FALSE,
10041: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10042: p_module_type => NULL,
10043: p_visit_id => p_close_visit_rec.visit_id,
10044: p_x_cost_session_id => l_cost_session_id,
10045: p_x_mr_session_id => l_mr_session_id,
10047: x_msg_count => l_msg_count,
10048: x_msg_data => l_msg_data
10049: );
10050:
10051: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10052: RAISE FND_API.G_EXC_ERROR;
10053: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10055: END IF;
10048: x_msg_data => l_msg_data
10049: );
10050:
10051: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10052: RAISE FND_API.G_EXC_ERROR;
10053: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10055: END IF;
10056:
10049: );
10050:
10051: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10052: RAISE FND_API.G_EXC_ERROR;
10053: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10055: END IF;
10056:
10057: --JKJain, Bug 9250614, Define label
10050:
10051: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10052: RAISE FND_API.G_EXC_ERROR;
10053: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10055: END IF;
10056:
10057: --JKJain, Bug 9250614, Define label
10058: <
10091: p_actual_date => l_workorder_tbl(i).actual_end_date,
10092: x_counter_tbl => l_counter_tbl
10093: );
10094:
10095: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10096: RAISE FND_API.G_EXC_ERROR;
10097: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10099: END IF;
10092: x_counter_tbl => l_counter_tbl
10093: );
10094:
10095: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10096: RAISE FND_API.G_EXC_ERROR;
10097: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10099: END IF;
10100:
10093: );
10094:
10095: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10096: RAISE FND_API.G_EXC_ERROR;
10097: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10099: END IF;
10100:
10101: IF ( l_counter_tbl.COUNT > 0 ) THEN
10094:
10095: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10096: RAISE FND_API.G_EXC_ERROR;
10097: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10099: END IF;
10100:
10101: IF ( l_counter_tbl.COUNT > 0 ) THEN
10102:
10108: p_wip_entity_id => l_workorder_tbl(i).wip_entity_id,
10109: p_counter_tbl => l_counter_tbl
10110: );
10111:
10112: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10113: RAISE FND_API.G_EXC_ERROR;
10114: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10116: END IF;
10109: p_counter_tbl => l_counter_tbl
10110: );
10111:
10112: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10113: RAISE FND_API.G_EXC_ERROR;
10114: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10116: END IF;
10117:
10110: );
10111:
10112: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10113: RAISE FND_API.G_EXC_ERROR;
10114: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10116: END IF;
10117:
10118: -- Re-set the API savepoint because, Quality Results submission commits
10111:
10112: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10113: RAISE FND_API.G_EXC_ERROR;
10114: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10116: END IF;
10117:
10118: -- Re-set the API savepoint because, Quality Results submission commits
10119: SAVEPOINT close_visit_PVT;
10141: q_msg_count => l_msg_count,
10142: q_msg_data => l_msg_data
10143: );
10144:
10145: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10146: x_msg_data := l_msg_data;
10147: x_msg_count := l_msg_count;
10148: RETURN;
10149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10145: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10146: x_msg_data := l_msg_data;
10147: x_msg_count := l_msg_count;
10148: RETURN;
10149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10151: END IF;
10152:
10153: -- Re-set the API savepoint because, the wrapper_fire_action commits.
10146: x_msg_data := l_msg_data;
10147: x_msg_count := l_msg_count;
10148: RETURN;
10149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10151: END IF;
10152:
10153: -- Re-set the API savepoint because, the wrapper_fire_action commits.
10154: SAVEPOINT close_visit_PVT;
10169: q_msg_count => l_msg_count,
10170: q_msg_data => l_msg_data
10171: );
10172:
10173: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10174: x_msg_data := l_msg_data;
10175: x_msg_count := l_msg_count;
10176: RETURN;
10177: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10173: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10174: x_msg_data := l_msg_data;
10175: x_msg_count := l_msg_count;
10176: RETURN;
10177: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10179: END IF;
10180:
10181: -- Re-set the API savepoint because, the wrapper_fire_action commits.
10174: x_msg_data := l_msg_data;
10175: x_msg_count := l_msg_count;
10176: RETURN;
10177: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10179: END IF;
10180:
10181: -- Re-set the API savepoint because, the wrapper_fire_action commits.
10182: SAVEPOINT close_visit_PVT;
10197: q_msg_count => l_msg_count,
10198: q_msg_data => l_msg_data
10199: );
10200:
10201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10202: x_msg_data := l_msg_data;
10203: x_msg_count := l_msg_count;
10204: RETURN;
10205: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
10202: x_msg_data := l_msg_data;
10203: x_msg_count := l_msg_count;
10204: RETURN;
10205: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10207: END IF;
10208:
10209: -- Re-set the API savepoint because, the wrapper_fire_action commits.
10202: x_msg_data := l_msg_data;
10203: x_msg_count := l_msg_count;
10204: RETURN;
10205: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
10206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10207: END IF;
10208:
10209: -- Re-set the API savepoint because, the wrapper_fire_action commits.
10210: SAVEPOINT close_visit_PVT;
10251: END IF;
10252: -- Project Integration ER - end
10253:
10254: -- Perform the Commit (if requested)
10255: IF FND_API.to_boolean( p_commit ) THEN
10256: COMMIT WORK;
10257: END IF;
10258:
10259: -- Disable debug (if enabled)
10262: END IF;
10263:
10264: EXCEPTION
10265:
10266: WHEN FND_API.G_EXC_ERROR THEN
10267: ROLLBACK TO close_visit_PVT;
10268: x_return_status := FND_API.G_RET_STS_ERROR;
10269: FND_MSG_PUB.count_and_get
10270: (
10264: EXCEPTION
10265:
10266: WHEN FND_API.G_EXC_ERROR THEN
10267: ROLLBACK TO close_visit_PVT;
10268: x_return_status := FND_API.G_RET_STS_ERROR;
10269: FND_MSG_PUB.count_and_get
10270: (
10271: p_encoded => FND_API.G_FALSE,
10272: p_count => x_msg_count,
10267: ROLLBACK TO close_visit_PVT;
10268: x_return_status := FND_API.G_RET_STS_ERROR;
10269: FND_MSG_PUB.count_and_get
10270: (
10271: p_encoded => FND_API.G_FALSE,
10272: p_count => x_msg_count,
10273: p_data => x_msg_data
10274: );
10275:
10276: IF ( G_DEBUG = 'Y' ) THEN
10277: AHL_DEBUG_PUB.disable_debug;
10278: END IF;
10279:
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: ROLLBACK TO close_visit_PVT;
10282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10283: FND_MSG_PUB.count_and_get
10284: (
10278: END IF;
10279:
10280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10281: ROLLBACK TO close_visit_PVT;
10282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10283: FND_MSG_PUB.count_and_get
10284: (
10285: p_encoded => FND_API.G_FALSE,
10286: p_count => x_msg_count,
10281: ROLLBACK TO close_visit_PVT;
10282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10283: FND_MSG_PUB.count_and_get
10284: (
10285: p_encoded => FND_API.G_FALSE,
10286: p_count => x_msg_count,
10287: p_data => x_msg_data
10288: );
10289:
10292: END IF;
10293:
10294: WHEN OTHERS THEN
10295: ROLLBACK TO close_visit_PVT;
10296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10297: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
10298: THEN
10299: FND_MSG_PUB.add_exc_msg
10300: (
10304: );
10305: END IF;
10306: FND_MSG_PUB.count_and_get
10307: (
10308: p_encoded => FND_API.G_FALSE,
10309: p_count => x_msg_count,
10310: p_data => x_msg_data
10311: );
10312:
10328: FUNCTION Is_Complete_Enabled(
10329: p_workorder_id IN NUMBER,
10330: P_operation_seq_num IN NUMBER,
10331: p_ue_id IN NUMBER,
10332: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
10333: )
10334: RETURN VARCHAR2
10335: IS
10336:
10445: BEGIN
10446: -- If all inputs to the API are null then dont proceed any further.
10447: IF p_workorder_id IS NULL AND p_operation_seq_num IS NULL AND p_ue_id IS NULL
10448: THEN
10449: RETURN FND_API.G_FALSE;
10450: END IF;
10451:
10452: -- If the unit is locked then workorder or operation cant be completed hence return
10453: -- false.
10461: p_workorder_id => p_workorder_id,
10462: P_ue_id => null,
10463: P_visit_id => null,
10464: P_item_instance_id => null
10465: ) = FND_API.G_TRUE
10466: THEN
10467: RETURN FND_API.G_FALSE;
10468: END IF;
10469: */
10463: P_visit_id => null,
10464: P_item_instance_id => null
10465: ) = FND_API.G_TRUE
10466: THEN
10467: RETURN FND_API.G_FALSE;
10468: END IF;
10469: */
10470:
10471: -- Get workorder record details. This also performs workorder status validation.
10473: l_return_status := get_workorder_rec (p_workorder_id => p_workorder_id,
10474: p_object_version_no => l_object_version_no,
10475: x_workorder_rec => l_workorder_rec
10476: );
10477: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10478: THEN
10479: RETURN FND_API.G_FALSE;
10480: END IF;
10481: END IF;
10475: x_workorder_rec => l_workorder_rec
10476: );
10477: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10478: THEN
10479: RETURN FND_API.G_FALSE;
10480: END IF;
10481: END IF;
10482:
10483: -- If operation sequence number is passed to this API then the info is for operation completion
10489: CLOSE c_get_wo_op_id;
10490:
10491: IF l_workorder_operation_id IS NULL
10492: THEN
10493: RETURN FND_API.G_FALSE;
10494: END IF;
10495:
10496: -- Get workorder operation details rec.
10497: l_return_status := get_operation_rec(
10499: p_object_version_no => l_object_version_no,
10500: x_operation_rec => l_operation_rec
10501: );
10502:
10503: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10504: THEN
10505: RETURN FND_API.G_FALSE;
10506: END IF;
10507: -- If p_ue_id is not null
10501: );
10502:
10503: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10504: THEN
10505: RETURN FND_API.G_FALSE;
10506: END IF;
10507: -- If p_ue_id is not null
10508: -- then this is a check to see if mr signoff should be enabled
10509: -- in that case operation status validations should be skipped
10519: p_workorder_rec => l_workorder_rec, p_validate_date => l_date_validation,
10520: p_check_unit => p_check_unit
10521: );
10522:
10523: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10524: THEN
10525: RETURN FND_API.G_FALSE;
10526: END IF;
10527:
10521: );
10522:
10523: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10524: THEN
10525: RETURN FND_API.G_FALSE;
10526: END IF;
10527:
10528: ELSIF p_workorder_id IS NOT NULL THEN
10529: -- Get workorder and operation details for the given workorder.
10534: p_workorder_id => p_workorder_id,
10535: p_object_version_no => l_object_version_no,
10536: x_operation_tbl => l_operation_tbl
10537: );
10538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10539: THEN
10540: RETURN FND_API.G_FALSE;
10541: END IF;
10542: ELSE
10536: x_operation_tbl => l_operation_tbl
10537: );
10538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10539: THEN
10540: RETURN FND_API.G_FALSE;
10541: END IF;
10542: ELSE
10543: -- If p_ue_id is not null
10544: -- then this is a check to see if mr signoff should be enabled
10555: p_validate_date => l_date_validation,
10556: p_check_unit => p_check_unit
10557: );
10558:
10559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10560: THEN
10561: RETURN FND_API.G_FALSE;
10562: END IF;
10563: ELSIF p_ue_id IS NOT NULL THEN
10557: );
10558:
10559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10560: THEN
10561: RETURN FND_API.G_FALSE;
10562: END IF;
10563: ELSIF p_ue_id IS NOT NULL THEN
10564: -- As of now we dont check for mr signoff enabled
10565: -- This code to validate if mr signoff is enabled will be added later
10569: OPEN get_ue_details(p_ue_id);
10570: FETCH get_ue_details INTO l_mr_rec;
10571: IF get_ue_details%NOTFOUND THEN
10572: CLOSE get_ue_details;
10573: RETURN FND_API.G_FALSE;
10574: END IF;
10575: CLOSE get_ue_details;
10576:
10577: IF (l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF) THEN
10574: END IF;
10575: CLOSE get_ue_details;
10576:
10577: IF (l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF) THEN
10578: RETURN FND_API.G_FALSE;
10579: END IF;
10580:
10581: /*l_return_status := is_mr_complete(p_mr_title => l_mr_rec.ue_title,
10582: p_status_code => l_mr_rec.ue_status_code,
10584: p_qa_inspection_type => l_mr_rec.ue_qa_inspection_type_code,
10585: p_qa_plan_id => l_mr_rec.ue_qa_plan_id,
10586: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
10587: );
10588: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10589: RETURN FND_API.G_FALSE;
10590: END IF;
10591:
10592: FOR child_csr IN get_child_ue_details(p_ue_id) LOOP
10585: p_qa_plan_id => l_mr_rec.ue_qa_plan_id,
10586: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
10587: );
10588: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10589: RETURN FND_API.G_FALSE;
10590: END IF;
10591:
10592: FOR child_csr IN get_child_ue_details(p_ue_id) LOOP
10593: IF (NVL(child_csr.ump_status_code,'X') <> NVL(G_MR_STATUS_SIGNED_OFF, 'Y')) THEN
10599: p_qa_plan_id => child_csr.qa_plan_id,
10600: p_qa_collection_id => child_csr.qa_collection_id
10601: );
10602:
10603: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10604: RETURN FND_API.G_FALSE;
10605: END IF;
10606: END IF;
10607: END LOOP;
10600: p_qa_collection_id => child_csr.qa_collection_id
10601: );
10602:
10603: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10604: RETURN FND_API.G_FALSE;
10605: END IF;
10606: END IF;
10607: END LOOP;
10608:
10610: FOR wo_csr IN get_ue_workorders(l_mr_rec.wip_entity_id) LOOP
10611: l_return_status := is_complete_enabled(p_workorder_id => wo_csr.workorder_id,
10612: p_operation_seq_num => NULL,
10613: P_ue_id => P_ue_id,
10614: P_check_unit => Fnd_api.G_false
10615: );
10616: IF l_return_status = FND_API.G_FALSE THEN
10617: RETURN FND_API.G_FALSE;
10618: END IF;
10612: p_operation_seq_num => NULL,
10613: P_ue_id => P_ue_id,
10614: P_check_unit => Fnd_api.G_false
10615: );
10616: IF l_return_status = FND_API.G_FALSE THEN
10617: RETURN FND_API.G_FALSE;
10618: END IF;
10619: END LOOP;
10620:
10613: P_ue_id => P_ue_id,
10614: P_check_unit => Fnd_api.G_false
10615: );
10616: IF l_return_status = FND_API.G_FALSE THEN
10617: RETURN FND_API.G_FALSE;
10618: END IF;
10619: END LOOP;
10620:
10621: FOR op_csr IN get_ue_operations(l_mr_rec.wip_entity_id) LOOP
10621: FOR op_csr IN get_ue_operations(l_mr_rec.wip_entity_id) LOOP
10622: l_return_status := is_complete_enabled(p_workorder_id => op_csr.workorder_id,
10623: p_operation_seq_num => op_csr.operation_seq_num,
10624: p_ue_id => p_ue_id,
10625: p_check_unit => FND_API.G_FALSE
10626: );
10627: IF l_return_status = FND_API.G_FALSE THEN
10628: RETURN FND_API.G_FALSE;
10629: END IF;
10623: p_operation_seq_num => op_csr.operation_seq_num,
10624: p_ue_id => p_ue_id,
10625: p_check_unit => FND_API.G_FALSE
10626: );
10627: IF l_return_status = FND_API.G_FALSE THEN
10628: RETURN FND_API.G_FALSE;
10629: END IF;
10630: END LOOP;*/
10631:
10624: p_ue_id => p_ue_id,
10625: p_check_unit => FND_API.G_FALSE
10626: );
10627: IF l_return_status = FND_API.G_FALSE THEN
10628: RETURN FND_API.G_FALSE;
10629: END IF;
10630: END LOOP;*/
10631:
10632: END IF;
10631:
10632: END IF;
10633:
10634: -- When control reaches here, none of the conditions are violated. Hence return true.
10635: RETURN FND_API.G_TRUE;
10636:
10637: END Is_Complete_Enabled;
10638:
10639:
10748: AND BOMR.RESOURCE_TYPE IN (1,2)
10749: AND WIPT.PROCESS_STATUS = 1; -- Pending
10750:
10751: BEGIN
10752: x_return_status := FND_API.G_RET_STS_SUCCESS;
10753:
10754: IF p_x_operation_tbl.COUNT > 0 THEN
10755: FOR i IN p_x_operation_tbl.FIRST..p_x_operation_tbl.LAST LOOP
10756: -- Get the operation and workorder details
10759: IF c_get_op_details%NOTFOUND THEN
10760: CLOSE c_get_op_details;
10761: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10762: FND_MSG_PUB.add;
10763: x_return_status := FND_API.G_RET_STS_ERROR;
10764: RETURN;
10765: --RAISE FND_API.G_RET_STS_ERROR;
10766: END IF;
10767: CLOSE c_get_op_details;
10761: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10762: FND_MSG_PUB.add;
10763: x_return_status := FND_API.G_RET_STS_ERROR;
10764: RETURN;
10765: --RAISE FND_API.G_RET_STS_ERROR;
10766: END IF;
10767: CLOSE c_get_op_details;
10768:
10769: OPEN c_get_wo_details(p_x_operation_tbl (i).workorder_id);
10771: IF c_get_wo_details%NOTFOUND THEN
10772: CLOSE c_get_wo_details;
10773: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FND');
10774: FND_MSG_PUB.add;
10775: X_return_status := FND_API.G_RET_STS_ERROR;
10776: RETURN;
10777: --RAISE FND_API.G_RET_STS_ERROR;
10778: END IF;
10779: CLOSE c_get_wo_details;
10773: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FND');
10774: FND_MSG_PUB.add;
10775: X_return_status := FND_API.G_RET_STS_ERROR;
10776: RETURN;
10777: --RAISE FND_API.G_RET_STS_ERROR;
10778: END IF;
10779: CLOSE c_get_wo_details;
10780: -- Get the minimum and maximum transaction dates from the
10781: -- WIP_TRANSACTIONS and WIP_COST_TXN_INTERFACE tables for the
10870: WHERE WORKORDER_ID = x_workorder_id
10871: AND OPERATION_SEQUENCE_NUM = x_operation_seq_num;
10872:
10873: BEGIN
10874: x_return_status := FND_API.G_RET_STS_SUCCESS;
10875: IF p_x_operation_tbl.COUNT > 0 THEN
10876: FOR i IN p_x_operation_tbl.FIRST..p_x_operation_tbl.LAST LOOP
10877: OPEN c_get_op_details(p_x_operation_tbl (i).workorder_id, p_x_operation_tbl (i).operation_sequence_num);
10878: FETCH c_get_op_details INTO p_x_operation_tbl(i).actual_start_date, p_x_operation_tbl(i).actual_end_date, p_x_operation_tbl(i).WORKORDER_OPERATION_ID;
10879: IF c_get_op_details%NOTFOUND THEN
10880: CLOSE c_get_op_details;
10881: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10882: FND_MSG_PUB.add;
10883: x_return_status := FND_API.G_RET_STS_ERROR;
10884: RETURN;
10885: --RAISE FND_API.G_RET_STS_ERROR;
10886: END IF; --IF c_get_op_details%NOTFOUND THEN
10887: CLOSE c_get_op_details;
10881: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10882: FND_MSG_PUB.add;
10883: x_return_status := FND_API.G_RET_STS_ERROR;
10884: RETURN;
10885: --RAISE FND_API.G_RET_STS_ERROR;
10886: END IF; --IF c_get_op_details%NOTFOUND THEN
10887: CLOSE c_get_op_details;
10888: END LOOP;
10889: END IF; -- IF p_x_operation_tbl.COUNT > 0 THEN
11098: OPEN get_ue_master_wo(p_ue_id);
11099: FETCH get_ue_master_wo INTO l_workorder_id, l_ovn, l_task_type_code, l_wip_entity_id;
11100: CLOSE get_ue_master_wo;
11101: IF l_task_type_code = 'UNASSOCIATED' THEN
11102: RETURN FND_API.G_RET_STS_SUCCESS;
11103: END IF;
11104: ELSIF(p_workorder_id IS NOT NULL) THEN
11105: OPEN get_wo_ovn(p_workorder_id);
11106: FETCH get_wo_ovn INTO l_ovn, l_wip_entity_id;
11111: -- throw an error
11112: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
11113: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
11114: FND_MSG_PUB.add;
11115: RETURN FND_API.G_RET_STS_ERROR;
11116: END IF;
11117:
11118: IF ( G_DEBUG = 'Y' ) THEN
11119: AHL_DEBUG_PUB.debug( 'In complete_master_wo: workorder_id:ovn:wip_entity_id:' || l_workorder_id
11134: IF (p_visit_id IS NOT NULL) THEN
11135: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
11136: (
11137: p_api_version => 1.0,
11138: p_init_msg_list => FND_API.G_TRUE,
11139: p_commit => FND_API.G_FALSE,
11140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11141: p_default => FND_API.G_FALSE,
11142: p_module_type => 'API',
11135: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
11136: (
11137: p_api_version => 1.0,
11138: p_init_msg_list => FND_API.G_TRUE,
11139: p_commit => FND_API.G_FALSE,
11140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11141: p_default => FND_API.G_FALSE,
11142: p_module_type => 'API',
11143: x_return_status => l_return_status,
11136: (
11137: p_api_version => 1.0,
11138: p_init_msg_list => FND_API.G_TRUE,
11139: p_commit => FND_API.G_FALSE,
11140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11141: p_default => FND_API.G_FALSE,
11142: p_module_type => 'API',
11143: x_return_status => l_return_status,
11144: x_msg_count => l_msg_count,
11137: p_api_version => 1.0,
11138: p_init_msg_list => FND_API.G_TRUE,
11139: p_commit => FND_API.G_FALSE,
11140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11141: p_default => FND_API.G_FALSE,
11142: p_module_type => 'API',
11143: x_return_status => l_return_status,
11144: x_msg_count => l_msg_count,
11145: x_msg_data => l_msg_data,
11150: ELSIF (p_ue_id IS NOT NULL) THEN
11151: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
11152: (
11153: p_api_version => 1.0,
11154: p_init_msg_list => FND_API.G_TRUE,
11155: p_commit => FND_API.G_FALSE,
11156: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11157: p_default => FND_API.G_FALSE,
11158: p_module_type => 'API',
11151: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
11152: (
11153: p_api_version => 1.0,
11154: p_init_msg_list => FND_API.G_TRUE,
11155: p_commit => FND_API.G_FALSE,
11156: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11157: p_default => FND_API.G_FALSE,
11158: p_module_type => 'API',
11159: x_return_status => l_return_status,
11152: (
11153: p_api_version => 1.0,
11154: p_init_msg_list => FND_API.G_TRUE,
11155: p_commit => FND_API.G_FALSE,
11156: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11157: p_default => FND_API.G_FALSE,
11158: p_module_type => 'API',
11159: x_return_status => l_return_status,
11160: x_msg_count => l_msg_count,
11153: p_api_version => 1.0,
11154: p_init_msg_list => FND_API.G_TRUE,
11155: p_commit => FND_API.G_FALSE,
11156: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11157: p_default => FND_API.G_FALSE,
11158: p_module_type => 'API',
11159: x_return_status => l_return_status,
11160: x_msg_count => l_msg_count,
11161: x_msg_data => l_msg_data,
11166: ELSIF (p_workorder_id IS NOT NULL) THEN
11167: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
11168: (
11169: p_api_version => 1.0,
11170: p_init_msg_list => FND_API.G_TRUE,
11171: p_commit => FND_API.G_FALSE,
11172: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11173: p_default => FND_API.G_FALSE,
11174: p_module_type => 'API',
11167: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
11168: (
11169: p_api_version => 1.0,
11170: p_init_msg_list => FND_API.G_TRUE,
11171: p_commit => FND_API.G_FALSE,
11172: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11173: p_default => FND_API.G_FALSE,
11174: p_module_type => 'API',
11175: x_return_status => l_return_status,
11168: (
11169: p_api_version => 1.0,
11170: p_init_msg_list => FND_API.G_TRUE,
11171: p_commit => FND_API.G_FALSE,
11172: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11173: p_default => FND_API.G_FALSE,
11174: p_module_type => 'API',
11175: x_return_status => l_return_status,
11176: x_msg_count => l_msg_count,
11169: p_api_version => 1.0,
11170: p_init_msg_list => FND_API.G_TRUE,
11171: p_commit => FND_API.G_FALSE,
11172: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11173: p_default => FND_API.G_FALSE,
11174: p_module_type => 'API',
11175: x_return_status => l_return_status,
11176: x_msg_count => l_msg_count,
11177: x_msg_data => l_msg_data,
11187: IF l_workorder_id IS NOT NULL AND l_ovn IS NOT NULL THEN
11188: AHL_COMPLETIONS_PVT.complete_workorder
11189: (
11190: p_api_version => 1.0,
11191: p_init_msg_list => FND_API.G_TRUE,
11192: p_commit => FND_API.G_FALSE,
11193: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11194: p_default => FND_API.G_FALSE,
11195: p_module_type => NULL,
11188: AHL_COMPLETIONS_PVT.complete_workorder
11189: (
11190: p_api_version => 1.0,
11191: p_init_msg_list => FND_API.G_TRUE,
11192: p_commit => FND_API.G_FALSE,
11193: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11194: p_default => FND_API.G_FALSE,
11195: p_module_type => NULL,
11196: x_return_status => l_return_status,
11189: (
11190: p_api_version => 1.0,
11191: p_init_msg_list => FND_API.G_TRUE,
11192: p_commit => FND_API.G_FALSE,
11193: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11194: p_default => FND_API.G_FALSE,
11195: p_module_type => NULL,
11196: x_return_status => l_return_status,
11197: x_msg_count => l_msg_count,
11190: p_api_version => 1.0,
11191: p_init_msg_list => FND_API.G_TRUE,
11192: p_commit => FND_API.G_FALSE,
11193: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11194: p_default => FND_API.G_FALSE,
11195: p_module_type => NULL,
11196: x_return_status => l_return_status,
11197: x_msg_count => l_msg_count,
11198: x_msg_data => l_msg_data,
11203: --RETURN l_return_status;
11204: ELSE
11205: FND_MESSAGE.SET_NAME('AHL', 'AHL_PP_WORKORDER_NOT_EXISTS');
11206: FND_MSG_PUB.ADD;
11207: --RETURN FND_API.G_RET_STS_ERROR;
11208: l_return_status := FND_API.G_RET_STS_ERROR;
11209:
11210: END IF; -- l_workorder_id IS NOT NULL ..
11211: END IF; -- chk_cmplt_wo_exists%NOTFOUND
11204: ELSE
11205: FND_MESSAGE.SET_NAME('AHL', 'AHL_PP_WORKORDER_NOT_EXISTS');
11206: FND_MSG_PUB.ADD;
11207: --RETURN FND_API.G_RET_STS_ERROR;
11208: l_return_status := FND_API.G_RET_STS_ERROR;
11209:
11210: END IF; -- l_workorder_id IS NOT NULL ..
11211: END IF; -- chk_cmplt_wo_exists%NOTFOUND
11212:
11374: -- Initialize error message stack by default
11375: FND_MSG_PUB.Initialize;
11376:
11377: -- Standard call to check for call compatibility
11378: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
11379: THEN
11380: retcode := 2;
11381: errbuf := FND_MSG_PUB.Get;
11382:
11379: THEN
11380: retcode := 2;
11381: errbuf := FND_MSG_PUB.Get;
11382:
11383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11384: END IF;
11385:
11386: -- perform validations -- start
11387:
11446: p_item_instance_id => NULL
11447: );
11448:
11449:
11450: IF l_return_status = FND_API.G_TRUE THEN
11451:
11452: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_LGN_UNTLCKD');
11453: FND_MESSAGE.set_token('WO_NUM', l_workorder_name_tbl(l_index));
11454: FND_MSG_PUB.ADD;
11456: l_valid_for_close_tbl(l_index) := 'N';
11457:
11458: -- log a warning
11459: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11460: fnd_file.put_line(fnd_file.log, FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE));
11461: FND_MSG_PUB.Delete_Msg;
11462:
11463: END IF;
11464:
11488: THEN
11489:
11490: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
11491: p_api_version => 1.0,
11492: p_init_msg_list => FND_API.G_TRUE,
11493: p_commit => FND_API.G_FALSE,
11494: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11495: p_module_type => NULL,
11496: p_visit_task_id => l_visit_task_id_tbl(l_index),
11489:
11490: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
11491: p_api_version => 1.0,
11492: p_init_msg_list => FND_API.G_TRUE,
11493: p_commit => FND_API.G_FALSE,
11494: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11495: p_module_type => NULL,
11496: p_visit_task_id => l_visit_task_id_tbl(l_index),
11497: x_return_status => l_return_status,
11490: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
11491: p_api_version => 1.0,
11492: p_init_msg_list => FND_API.G_TRUE,
11493: p_commit => FND_API.G_FALSE,
11494: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11495: p_module_type => NULL,
11496: p_visit_task_id => l_visit_task_id_tbl(l_index),
11497: x_return_status => l_return_status,
11498: x_msg_count => l_msg_count,
11498: x_msg_count => l_msg_count,
11499: x_msg_data => l_msg_data
11500: );
11501:
11502: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11503: THEN
11504: l_valid_for_close_tbl(l_index) := 'N';
11505: -- log a warning
11506: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11523: AHL_PRD_WORKORDER_PVT.ADD_WO_OPER_TURNOVER_NOTES
11524: (
11525: p_workorder_id => l_workorder_id_tbl(l_index),
11526: p_new_status_code => '12',
11527: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11528: p_default => FND_API.G_TRUE,
11529: p_module_type => Null,
11530: x_return_status => l_return_status
11531: );
11524: (
11525: p_workorder_id => l_workorder_id_tbl(l_index),
11526: p_new_status_code => '12',
11527: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11528: p_default => FND_API.G_TRUE,
11529: p_module_type => Null,
11530: x_return_status => l_return_status
11531: );
11532: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11528: p_default => FND_API.G_TRUE,
11529: p_module_type => Null,
11530: x_return_status => l_return_status
11531: );
11532: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
11533: THEN
11534: l_valid_for_close_tbl(l_index) := 'N';
11535: -- log a warning
11536: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
11907:
11908: BEGIN
11909:
11910: -- Initialize API return status to success
11911: x_return_status := FND_API.G_RET_STS_SUCCESS;
11912:
11913: -- Standard Start of API savepoint
11914: SAVEPOINT update_accomplishments_PVT;
11915:
11925: x_counter_tbl => l_reset_counter_tbl
11926: );
11927: END IF;
11928:
11929: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11930: RAISE FND_API.G_EXC_ERROR;
11931: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11933: END IF;
11926: );
11927: END IF;
11928:
11929: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11930: RAISE FND_API.G_EXC_ERROR;
11931: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11933: END IF;
11934:
11927: END IF;
11928:
11929: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11930: RAISE FND_API.G_EXC_ERROR;
11931: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11933: END IF;
11934:
11935: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
11928:
11929: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11930: RAISE FND_API.G_EXC_ERROR;
11931: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11933: END IF;
11934:
11935: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
11936:
11948: x_msg_count => l_msg_count,
11949: x_msg_data => l_msg_data
11950: );
11951:
11952: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11953: IF ( l_msg_data IS NOT NULL ) THEN
11954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11955: x_msg_count := l_msg_count;
11956: x_msg_data := l_msg_data;
11950: );
11951:
11952: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11953: IF ( l_msg_data IS NOT NULL ) THEN
11954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11955: x_msg_count := l_msg_count;
11956: x_msg_data := l_msg_data;
11957: END IF;
11958: RAISE FND_API.G_EXC_ERROR;
11954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11955: x_msg_count := l_msg_count;
11956: x_msg_data := l_msg_data;
11957: END IF;
11958: RAISE FND_API.G_EXC_ERROR;
11959: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11961: END IF;
11962:
11955: x_msg_count := l_msg_count;
11956: x_msg_data := l_msg_data;
11957: END IF;
11958: RAISE FND_API.G_EXC_ERROR;
11959: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11961: END IF;
11962:
11963: END IF;
11956: x_msg_data := l_msg_data;
11957: END IF;
11958: RAISE FND_API.G_EXC_ERROR;
11959: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11961: END IF;
11962:
11963: END IF;
11964:
11975: p_actual_date => p_signoff_mr_rec.actual_end_date,
11976: x_counter_tbl => l_counter_tbl
11977: );
11978:
11979: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11980: RAISE FND_API.G_EXC_ERROR;
11981: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11983: END IF;
11976: x_counter_tbl => l_counter_tbl
11977: );
11978:
11979: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11980: RAISE FND_API.G_EXC_ERROR;
11981: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11983: END IF;
11984:
11977: );
11978:
11979: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11980: RAISE FND_API.G_EXC_ERROR;
11981: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11983: END IF;
11984:
11985: IF ( G_DEBUG = 'Y' ) THEN
11978:
11979: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
11980: RAISE FND_API.G_EXC_ERROR;
11981: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
11982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11983: END IF;
11984:
11985: IF ( G_DEBUG = 'Y' ) THEN
11986: AHL_DEBUG_PUB.debug( ' update_accomplishments :: Updating UMP' );
11998: x_msg_count => l_msg_count,
11999: x_msg_data => l_msg_data
12000: );
12001:
12002: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12003: RAISE FND_API.G_EXC_ERROR;
12004: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12006: END IF;
11999: x_msg_data => l_msg_data
12000: );
12001:
12002: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12003: RAISE FND_API.G_EXC_ERROR;
12004: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12006: END IF;
12007:
12000: );
12001:
12002: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12003: RAISE FND_API.G_EXC_ERROR;
12004: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12006: END IF;
12007:
12008: EXCEPTION
12001:
12002: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12003: RAISE FND_API.G_EXC_ERROR;
12004: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12006: END IF;
12007:
12008: EXCEPTION
12009: WHEN FND_API.G_EXC_ERROR THEN
12005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12006: END IF;
12007:
12008: EXCEPTION
12009: WHEN FND_API.G_EXC_ERROR THEN
12010: ROLLBACK TO update_accomplishments_PVT;
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: FND_MSG_PUB.count_and_get
12013: (
12007:
12008: EXCEPTION
12009: WHEN FND_API.G_EXC_ERROR THEN
12010: ROLLBACK TO update_accomplishments_PVT;
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: FND_MSG_PUB.count_and_get
12013: (
12014: p_encoded => FND_API.G_FALSE,
12015: p_count => x_msg_count,
12010: ROLLBACK TO update_accomplishments_PVT;
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: FND_MSG_PUB.count_and_get
12013: (
12014: p_encoded => FND_API.G_FALSE,
12015: p_count => x_msg_count,
12016: p_data => x_msg_data
12017: );
12018:
12019: IF ( G_DEBUG = 'Y' ) THEN
12020: AHL_DEBUG_PUB.disable_debug;
12021: END IF;
12022:
12023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12024: ROLLBACK TO update_accomplishments_PVT;
12025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12026: FND_MSG_PUB.count_and_get
12027: (
12021: END IF;
12022:
12023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12024: ROLLBACK TO update_accomplishments_PVT;
12025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12026: FND_MSG_PUB.count_and_get
12027: (
12028: p_encoded => FND_API.G_FALSE,
12029: p_count => x_msg_count,
12024: ROLLBACK TO update_accomplishments_PVT;
12025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12026: FND_MSG_PUB.count_and_get
12027: (
12028: p_encoded => FND_API.G_FALSE,
12029: p_count => x_msg_count,
12030: p_data => x_msg_data
12031: );
12032:
12031: );
12032:
12033: WHEN OTHERS THEN
12034: ROLLBACK TO update_accomplishments_PVT;
12035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12036: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
12037: THEN
12038: FND_MSG_PUB.add_exc_msg
12039: (
12043: );
12044: END IF;
12045: FND_MSG_PUB.count_and_get
12046: (
12047: p_encoded => FND_API.G_FALSE,
12048: p_count => x_msg_count,
12049: p_data => x_msg_data
12050: );
12051:
12053:
12054: PROCEDURE update_signoff_dates
12055: (
12056: p_api_version IN NUMBER := 1.0,
12057: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
12058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
12060: p_default IN VARCHAR2 := FND_API.G_FALSE,
12061: p_module_type IN VARCHAR2 := NULL,
12054: PROCEDURE update_signoff_dates
12055: (
12056: p_api_version IN NUMBER := 1.0,
12057: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
12058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
12060: p_default IN VARCHAR2 := FND_API.G_FALSE,
12061: p_module_type IN VARCHAR2 := NULL,
12062: x_return_status OUT NOCOPY VARCHAR2,
12055: (
12056: p_api_version IN NUMBER := 1.0,
12057: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
12058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
12060: p_default IN VARCHAR2 := FND_API.G_FALSE,
12061: p_module_type IN VARCHAR2 := NULL,
12062: x_return_status OUT NOCOPY VARCHAR2,
12063: x_msg_count OUT NOCOPY NUMBER,
12056: p_api_version IN NUMBER := 1.0,
12057: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
12058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
12060: p_default IN VARCHAR2 := FND_API.G_FALSE,
12061: p_module_type IN VARCHAR2 := NULL,
12062: x_return_status OUT NOCOPY VARCHAR2,
12063: x_msg_count OUT NOCOPY NUMBER,
12064: x_msg_data OUT NOCOPY VARCHAR2,
12147: AHL_DEBUG_PUB.enable_debug;
12148: END IF;
12149:
12150: -- Initialize API return status to success
12151: x_return_status := FND_API.G_RET_STS_SUCCESS;
12152:
12153: -- Standard Start of API savepoint
12154: SAVEPOINT update_signoff_dates_PVT;
12155:
12153: -- Standard Start of API savepoint
12154: SAVEPOINT update_signoff_dates_PVT;
12155:
12156: -- Initialize message list if p_init_msg_list is set to TRUE.
12157: IF FND_API.to_boolean( p_init_msg_list ) THEN
12158: FND_MSG_PUB.initialize;
12159: END IF;
12160:
12161: IF ( G_DEBUG = 'Y' ) THEN
12170: /*IF ( get_wip_entity_id%NOTFOUND ) THEN
12171: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' ); --Message change
12172: FND_MSG_PUB.add;
12173: CLOSE ;
12174: RAISE FND_API.G_EXC_ERROR;
12175: END IF;*/
12176: CLOSE get_wip_entity_id;
12177:
12178: IF ( G_DEBUG = 'Y' ) THEN
12228: THEN
12229: IF( l_workorder_tbl(l_ctr).actual_start_date < p_signoff_mr_rec.actual_start_date ) THEN
12230: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12231: FND_MSG_PUB.add;
12232: RAISE FND_API.G_EXC_ERROR;
12233: ELSE
12234: l_workorder_tbl(l_ctr).actual_start_date := p_signoff_mr_rec.actual_start_date ;
12235: END IF;
12236: END IF;
12239: THEN
12240: IF( p_signoff_mr_rec.actual_end_date < l_workorder_tbl(l_ctr).actual_end_date) THEN
12241: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12242: FND_MSG_PUB.add;
12243: RAISE FND_API.G_EXC_ERROR;
12244: ELSE
12245: l_workorder_tbl(l_ctr).actual_end_date := p_signoff_mr_rec.actual_end_date ;
12246: END IF;
12247: END IF;
12269:
12270: IF ( SQL%ROWCOUNT = 0 ) THEN
12271: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
12272: FND_MSG_PUB.add;
12273: RAISE FND_API.G_EXC_ERROR;
12274: END IF;
12275: --Get the UE details, ue_id, Object version number
12276: OPEN get_ue_det( wo_csr.workorder_id );
12277: FETCH get_ue_det INTO l_unit_effectivity_id,l_object_version_number;
12279: /*IF ( get_ue_det%NOTFOUND ) THEN
12280: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
12281: FND_MSG_PUB.add;
12282: CLOSE ;
12283: RAISE FND_API.G_EXC_ERROR;
12284: END IF;*/
12285: CLOSE get_ue_det;
12286:
12287: --Get The MR Details
12300: x_msg_count => l_msg_count,
12301: x_msg_data => l_msg_data
12302: );
12303:
12304: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12305: IF ( l_msg_data IS NOT NULL ) THEN
12306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12307: x_msg_count := l_msg_count;
12308: x_msg_data := l_msg_data;
12302: );
12303:
12304: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12305: IF ( l_msg_data IS NOT NULL ) THEN
12306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12307: x_msg_count := l_msg_count;
12308: x_msg_data := l_msg_data;
12309: END IF;
12310: RAISE FND_API.G_EXC_ERROR;
12306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12307: x_msg_count := l_msg_count;
12308: x_msg_data := l_msg_data;
12309: END IF;
12310: RAISE FND_API.G_EXC_ERROR;
12311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12313: END IF;
12314:
12307: x_msg_count := l_msg_count;
12308: x_msg_data := l_msg_data;
12309: END IF;
12310: RAISE FND_API.G_EXC_ERROR;
12311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12313: END IF;
12314:
12315: ELSE
12308: x_msg_data := l_msg_data;
12309: END IF;
12310: RAISE FND_API.G_EXC_ERROR;
12311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12313: END IF;
12314:
12315: ELSE
12316: IF ( G_DEBUG = 'Y' ) THEN
12352: THEN
12353: IF( l_min < p_signoff_mr_rec.actual_start_date ) THEN
12354: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12355: FND_MSG_PUB.add;
12356: RAISE FND_API.G_EXC_ERROR;
12357: ELSE
12358: l_min := p_signoff_mr_rec.actual_start_date ;
12359: END IF;
12360: END IF;
12363: THEN
12364: IF( p_signoff_mr_rec.actual_end_date < l_max) THEN
12365: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CWO_OUTSIDE_DATE' );
12366: FND_MSG_PUB.add;
12367: RAISE FND_API.G_EXC_ERROR;
12368: ELSE
12369: l_max := p_signoff_mr_rec.actual_end_date ;
12370: END IF;
12371: END IF;
12383: /*IF ( get_ue_det%NOTFOUND ) THEN
12384: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
12385: FND_MSG_PUB.add;
12386: CLOSE ;
12387: RAISE FND_API.G_EXC_ERROR;
12388: END IF;*/
12389: CLOSE get_ue_det;
12390:
12391: --Get The MR Details
12404: x_msg_count => l_msg_count,
12405: x_msg_data => l_msg_data
12406: );
12407:
12408: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12409: IF ( l_msg_data IS NOT NULL ) THEN
12410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12411: x_msg_count := l_msg_count;
12412: x_msg_data := l_msg_data;
12406: );
12407:
12408: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
12409: IF ( l_msg_data IS NOT NULL ) THEN
12410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12411: x_msg_count := l_msg_count;
12412: x_msg_data := l_msg_data;
12413: END IF;
12414: RAISE FND_API.G_EXC_ERROR;
12410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12411: x_msg_count := l_msg_count;
12412: x_msg_data := l_msg_data;
12413: END IF;
12414: RAISE FND_API.G_EXC_ERROR;
12415: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12417: END IF;
12418:
12411: x_msg_count := l_msg_count;
12412: x_msg_data := l_msg_data;
12413: END IF;
12414: RAISE FND_API.G_EXC_ERROR;
12415: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12417: END IF;
12418:
12419:
12412: x_msg_data := l_msg_data;
12413: END IF;
12414: RAISE FND_API.G_EXC_ERROR;
12415: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
12416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12417: END IF;
12418:
12419:
12420: IF ( G_DEBUG = 'Y' ) THEN
12422: END IF;
12423:
12424:
12425: -- Perform the Commit (if requested)
12426: IF FND_API.to_boolean( p_commit ) THEN
12427: COMMIT WORK;
12428: END IF;
12429:
12430: -- Disable debug (if enabled)
12433: END IF;
12434:
12435: EXCEPTION
12436:
12437: WHEN FND_API.G_EXC_ERROR THEN
12438: ROLLBACK TO update_signoff_dates_PVT;
12439: x_return_status := FND_API.G_RET_STS_ERROR;
12440: FND_MSG_PUB.count_and_get
12441: (
12435: EXCEPTION
12436:
12437: WHEN FND_API.G_EXC_ERROR THEN
12438: ROLLBACK TO update_signoff_dates_PVT;
12439: x_return_status := FND_API.G_RET_STS_ERROR;
12440: FND_MSG_PUB.count_and_get
12441: (
12442: p_encoded => FND_API.G_FALSE,
12443: p_count => x_msg_count,
12438: ROLLBACK TO update_signoff_dates_PVT;
12439: x_return_status := FND_API.G_RET_STS_ERROR;
12440: FND_MSG_PUB.count_and_get
12441: (
12442: p_encoded => FND_API.G_FALSE,
12443: p_count => x_msg_count,
12444: p_data => x_msg_data
12445: );
12446:
12447: IF ( G_DEBUG = 'Y' ) THEN
12448: AHL_DEBUG_PUB.disable_debug;
12449: END IF;
12450:
12451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12452: ROLLBACK TO update_signoff_dates_PVT;
12453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12454: FND_MSG_PUB.count_and_get
12455: (
12449: END IF;
12450:
12451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12452: ROLLBACK TO update_signoff_dates_PVT;
12453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12454: FND_MSG_PUB.count_and_get
12455: (
12456: p_encoded => FND_API.G_FALSE,
12457: p_count => x_msg_count,
12452: ROLLBACK TO update_signoff_dates_PVT;
12453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12454: FND_MSG_PUB.count_and_get
12455: (
12456: p_encoded => FND_API.G_FALSE,
12457: p_count => x_msg_count,
12458: p_data => x_msg_data
12459: );
12460:
12463: END IF;
12464:
12465: WHEN OTHERS THEN
12466: ROLLBACK TO update_signoff_dates_PVT;
12467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12468: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
12469: THEN
12470: FND_MSG_PUB.add_exc_msg
12471: (
12475: );
12476: END IF;
12477: FND_MSG_PUB.count_and_get
12478: (
12479: p_encoded => FND_API.G_FALSE,
12480: p_count => x_msg_count,
12481: p_data => x_msg_data
12482: );
12483:
12523:
12524:
12525: AHL_UA_FLIGHT_SCHEDULES_PUB.GET_FLIGHT_SCHEDULE_DETAILS(
12526: p_api_version => 1.0,
12527: p_init_msg_list => FND_API.G_FALSE,
12528: p_commit => FND_API.G_FALSE,
12529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
12530: p_default => FND_API.G_TRUE,
12531: p_module_type => 'API',
12524:
12525: AHL_UA_FLIGHT_SCHEDULES_PUB.GET_FLIGHT_SCHEDULE_DETAILS(
12526: p_api_version => 1.0,
12527: p_init_msg_list => FND_API.G_FALSE,
12528: p_commit => FND_API.G_FALSE,
12529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
12530: p_default => FND_API.G_TRUE,
12531: p_module_type => 'API',
12532: x_return_status => l_return_status,
12525: AHL_UA_FLIGHT_SCHEDULES_PUB.GET_FLIGHT_SCHEDULE_DETAILS(
12526: p_api_version => 1.0,
12527: p_init_msg_list => FND_API.G_FALSE,
12528: p_commit => FND_API.G_FALSE,
12529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
12530: p_default => FND_API.G_TRUE,
12531: p_module_type => 'API',
12532: x_return_status => l_return_status,
12533: x_msg_count => l_msg_count,
12526: p_api_version => 1.0,
12527: p_init_msg_list => FND_API.G_FALSE,
12528: p_commit => FND_API.G_FALSE,
12529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
12530: p_default => FND_API.G_TRUE,
12531: p_module_type => 'API',
12532: x_return_status => l_return_status,
12533: x_msg_count => l_msg_count,
12534: x_msg_data => l_msg_data,
12552: );
12553: END IF;
12554:
12555:
12556: IF ( l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
12557: THEN
12558: l_overlap_status := 'E';
12559: END IF;
12560:
12739: BEGIN
12740:
12741: IF (FND_FUNCTION.TEST('AHL_PRD_SINGOFF_UPD_USER'))
12742: THEN
12743: RETURN FND_API.G_TRUE;
12744: --RETURN 'Y';
12745: ELSE
12746: RETURN FND_API.G_FALSE;
12747: --RETURN 'N';
12742: THEN
12743: RETURN FND_API.G_TRUE;
12744: --RETURN 'Y';
12745: ELSE
12746: RETURN FND_API.G_FALSE;
12747: --RETURN 'N';
12748: END IF;
12749:
12750: END Is_Signoff_Update_User;