[Home] [Help]
59: IS
60: BEGIN
61:
62: IF ( p_workorder_id IS NULL OR
63: p_workorder_id = FND_API.G_MISS_NUM OR
64: p_object_version_no IS NULL OR
65: p_object_version_no = FND_API.G_MISS_NUM ) THEN
66: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
67: FND_MSG_PUB.add;
61:
62: IF ( p_workorder_id IS NULL OR
63: p_workorder_id = FND_API.G_MISS_NUM OR
64: p_object_version_no IS NULL OR
65: p_object_version_no = FND_API.G_MISS_NUM ) THEN
66: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
67: FND_MSG_PUB.add;
68: RETURN FND_API.G_RET_STS_ERROR;
69: END IF;
64: p_object_version_no IS NULL OR
65: p_object_version_no = FND_API.G_MISS_NUM ) THEN
66: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_INPUTS' );
67: FND_MSG_PUB.add;
68: RETURN FND_API.G_RET_STS_ERROR;
69: END IF;
70:
71: RETURN FND_API.G_RET_STS_SUCCESS;
72: END validate_wo_inputs;
67: FND_MSG_PUB.add;
68: RETURN FND_API.G_RET_STS_ERROR;
69: END IF;
70:
71: RETURN FND_API.G_RET_STS_SUCCESS;
72: END validate_wo_inputs;
73:
74: -- Function to get the Operation Record
75: FUNCTION get_operation_rec
147: IF(get_op_details%NOTFOUND)THEN
148: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
149: FND_MSG_PUB.add;
150: CLOSE get_op_details;
151: RETURN FND_API.G_RET_STS_ERROR;
152: END IF;
153: CLOSE get_op_details;
154:
155:
153: CLOSE get_op_details;
154:
155:
156: IF ( p_object_version_no IS NOT NULL AND
157: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
158: IF ( x_operation_rec.object_version_number <> p_object_version_no ) THEN
159: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
160: FND_MSG_PUB.add;
161: RETURN FND_API.G_RET_STS_ERROR;
157: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
158: IF ( x_operation_rec.object_version_number <> p_object_version_no ) THEN
159: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
160: FND_MSG_PUB.add;
161: RETURN FND_API.G_RET_STS_ERROR;
162: END IF;
163: END IF;
164:
165: RETURN FND_API.G_RET_STS_SUCCESS;
161: RETURN FND_API.G_RET_STS_ERROR;
162: END IF;
163: END IF;
164:
165: RETURN FND_API.G_RET_STS_SUCCESS;
166: END get_operation_rec;
167:
168: -- Function to get the status for
169: -- use in the error messages
358: IF(get_wo_dtls_csr%NOTFOUND)THEN
359: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
360: FND_MSG_PUB.add;
361: CLOSE get_wo_dtls_csr;
362: RETURN FND_API.G_RET_STS_ERROR;
363: END IF;
364: CLOSE get_wo_dtls_csr;
365:
366: IF ( p_object_version_no IS NOT NULL AND
363: END IF;
364: CLOSE get_wo_dtls_csr;
365:
366: IF ( p_object_version_no IS NOT NULL AND
367: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
368: IF ( x_workorder_rec.object_version_number <> p_object_version_no ) THEN
369: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
370: FND_MSG_PUB.add;
371: RETURN FND_API.G_RET_STS_ERROR;
367: p_object_version_no <> FND_API.G_MISS_NUM ) THEN
368: IF ( x_workorder_rec.object_version_number <> p_object_version_no ) THEN
369: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
370: FND_MSG_PUB.add;
371: RETURN FND_API.G_RET_STS_ERROR;
372: END IF;
373: END IF;
374:
375: -- Code for getting auto_signoff_flag from the child workorder if parent workorder doesnt have the information.
407: CLOSE get_inst_dtls_visit;
408: x_workorder_rec.automatic_signoff_flag := 'N';
409: END IF;
410:
411: RETURN FND_API.G_RET_STS_SUCCESS;
412: EXCEPTION
413: WHEN OTHERS THEN
414: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
415: FND_MSG_PUB.add;
412: EXCEPTION
413: WHEN OTHERS THEN
414: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
415: FND_MSG_PUB.add;
416: RETURN FND_API.G_RET_STS_ERROR;
417:
418: END get_workorder_rec;
419:
420: -- Function to validate the given Actual Start and End Dates
429: IF ( p_actual_start_date IS NULL OR
430: p_actual_end_date IS NULL ) THEN
431: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
432: FND_MSG_PUB.add;
433: RETURN FND_API.G_RET_STS_ERROR;
434: END IF;
435:
436: IF ( p_actual_start_date > p_actual_end_date ) THEN
437: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
435:
436: IF ( p_actual_start_date > p_actual_end_date ) THEN
437: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
438: FND_MSG_PUB.add;
439: RETURN FND_API.G_RET_STS_ERROR;
440: END IF;
441:
442: IF ( p_actual_end_date > SYSDATE ) THEN
443: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
441:
442: IF ( p_actual_end_date > SYSDATE ) THEN
443: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
444: FND_MSG_PUB.add;
445: RETURN FND_API.G_RET_STS_ERROR;
446: END IF;
447:
448: RETURN FND_API.G_RET_STS_SUCCESS;
449: END validate_actual_dates;
444: FND_MSG_PUB.add;
445: RETURN FND_API.G_RET_STS_ERROR;
446: END IF;
447:
448: RETURN FND_API.G_RET_STS_SUCCESS;
449: END validate_actual_dates;
450:
451: -- 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.
452: FUNCTION validate_acct_period
484: IF ( get_min_period%NOTFOUND ) THEN
485: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACCT_PERIOD' );
486: FND_MSG_PUB.add;
487: CLOSE get_min_period;
488: RETURN FND_API.G_RET_STS_ERROR;
489: END IF;
490:
491: IF ( l_period_start_date > p_actual_start_date ) THEN
492: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_LESS_ACCT_PERIOD' );
491: IF ( l_period_start_date > p_actual_start_date ) THEN
492: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_LESS_ACCT_PERIOD' );
493: FND_MSG_PUB.add;
494: CLOSE get_min_period;
495: RETURN FND_API.G_RET_STS_ERROR;
496: END IF;
497:
498: CLOSE get_min_period;
499:
504: IF ( get_max_period%NOTFOUND ) THEN
505: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_OPEN_ACT_PERIOD' );
506: FND_MSG_PUB.add;
507: CLOSE get_max_period;
508: RETURN FND_API.G_RET_STS_ERROR;
509: END IF;
510:
511: IF ( l_schedule_close_date < p_actual_end_date ) THEN
512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_LESS_ACT_PERIOD' );
511: IF ( l_schedule_close_date < p_actual_end_date ) THEN
512: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_LESS_ACT_PERIOD' );
513: FND_MSG_PUB.add;
514: CLOSE get_max_period;
515: RETURN FND_API.G_RET_STS_ERROR;
516: END IF;
517:
518: CLOSE get_max_period;
519:
516: END IF;
517:
518: CLOSE get_max_period;
519:
520: RETURN FND_API.G_RET_STS_SUCCESS;
521: END validate_acct_period;
522:
523: -- Function to get the user-enter value 'Operation Status' or 'Workorder Status' QA Plan Element and to check if this value is 'Complete'.
524: FUNCTION validate_qa_status
549: AND char_id = p_char_id;
550:
551: EXCEPTION
552: WHEN NO_DATA_FOUND THEN
553: RETURN FND_API.G_RET_STS_SUCCESS;
554: WHEN OTHERS THEN
555: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
556: END;
557:
551: EXCEPTION
552: WHEN NO_DATA_FOUND THEN
553: RETURN FND_API.G_RET_STS_SUCCESS;
554: WHEN OTHERS THEN
555: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
556: END;
557:
558: IF ( l_result_column_name IS NOT NULL AND
559: l_enabled_flag = 1 AND
565: BEGIN
566: EXECUTE IMMEDIATE l_result_sql_stmt INTO l_result_column_value USING p_collection_id, p_collection_id;
567: EXCEPTION
568: WHEN OTHERS THEN
569: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
570: END;
571:
572: -- Operation status
573: IF ( p_char_id = 125 AND
574: ( l_result_column_value IS NULL OR
575: l_result_column_value <> G_OP_STATUS_COMPLETE ) ) THEN
576: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
577: FND_MSG_PUB.add;
578: RETURN FND_API.G_RET_STS_ERROR;
579:
580: -- Workorder status
581: ELSIF ( p_char_id = 98 AND
582: ( l_result_column_value IS NULL OR
582: ( l_result_column_value IS NULL OR
583: l_result_column_value <> G_JOB_STATUS_COMPLETE ) ) THEN
584: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_STAT_NOT_COMPL' );
585: FND_MSG_PUB.add;
586: RETURN FND_API.G_RET_STS_ERROR;
587: END IF;
588: END IF;
589:
590: RETURN FND_API.G_RET_STS_SUCCESS;
586: RETURN FND_API.G_RET_STS_ERROR;
587: END IF;
588: END IF;
589:
590: RETURN FND_API.G_RET_STS_SUCCESS;
591: END validate_qa_status;
592:
593: -- Function to validate whether the actual end date is later than the
594: -- last workorder transaction date.
618: IF ( l_transaction_date > p_actual_end_date ) THEN
619: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_TXNDT' );
620: FND_MSG_PUB.add;
621: CLOSE get_ahl_txn_rec;
622: RETURN FND_API.G_RET_STS_ERROR;
623: END IF;
624: END IF;
625:
626: CLOSE get_ahl_txn_rec;
624: END IF;
625:
626: CLOSE get_ahl_txn_rec;
627:
628: RETURN FND_API.G_RET_STS_SUCCESS;
629: END validate_ahl_wo_txn_date;
630:
631: -- Function to check whether the last EAM Workorder Transaction is Completion
632: -- and to ensure that the actual end date is greater than the
634: FUNCTION validate_eam_wo_compl_txn
635: (
636: p_wip_entity_id IN NUMBER,
637: p_actual_end_date IN DATE,
638: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE
639: ) RETURN VARCHAR2
640: IS
641:
642: l_transaction_type NUMBER;
664: IF ( l_transaction_type = 1 ) THEN
665: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_COMP_IN_EAM' );
666: FND_MSG_PUB.add;
667: CLOSE get_eam_txn_rec;
668: RETURN FND_API.G_RET_STS_ERROR;
669: END IF;
670:
671: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
672: IF ( l_transaction_date > p_actual_end_date ) THEN
667: CLOSE get_eam_txn_rec;
668: RETURN FND_API.G_RET_STS_ERROR;
669: END IF;
670:
671: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
672: IF ( l_transaction_date > p_actual_end_date ) THEN
673: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_EAM_TXNDT' );
674: FND_MSG_PUB.add;
675: CLOSE get_eam_txn_rec;
672: IF ( l_transaction_date > p_actual_end_date ) THEN
673: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ENDDT_EAM_TXNDT' );
674: FND_MSG_PUB.add;
675: CLOSE get_eam_txn_rec;
676: RETURN FND_API.G_RET_STS_ERROR;
677: END IF;
678: END IF;
679: END IF;
680:
679: END IF;
680:
681: CLOSE get_eam_txn_rec;
682:
683: RETURN FND_API.G_RET_STS_SUCCESS;
684: END validate_eam_wo_compl_txn;
685:
686: -- Function to record the Readings of all the Counters associated to the Item Instance associated to the Workorder.
687: FUNCTION record_wo_ctr_readings
730:
731: END LOOP;
732:
733: IF ( l_occurrence_count = 1 ) THEN
734: RETURN FND_API.G_RET_STS_SUCCESS;
735: END IF;
736:
737: -- Get the Organization ID of the Counter Reading Plan
738: SELECT organization_id
745: -- the Counter Reading Plan
746: AHL_QA_RESULTS_PVT.submit_qa_results
747: (
748: p_api_version => 1.0,
749: p_init_msg_list => FND_API.G_TRUE,
750: p_commit => FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: p_default => FND_API.G_FALSE,
753: p_module_type => NULL,
746: AHL_QA_RESULTS_PVT.submit_qa_results
747: (
748: p_api_version => 1.0,
749: p_init_msg_list => FND_API.G_TRUE,
750: p_commit => FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: p_default => FND_API.G_FALSE,
753: p_module_type => NULL,
754: x_return_status => l_return_status,
747: (
748: p_api_version => 1.0,
749: p_init_msg_list => FND_API.G_TRUE,
750: p_commit => FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: p_default => FND_API.G_FALSE,
753: p_module_type => NULL,
754: x_return_status => l_return_status,
755: x_msg_count => l_msg_count,
748: p_api_version => 1.0,
749: p_init_msg_list => FND_API.G_TRUE,
750: p_commit => FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: p_default => FND_API.G_FALSE,
753: p_module_type => NULL,
754: x_return_status => l_return_status,
755: x_msg_count => l_msg_count,
756: x_msg_data => l_msg_data,
766: p_x_collection_id => l_collection_id,
767: p_x_occurrence_tbl => l_occurrence_tbl
768: );
769:
770: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771: x_msg_data := l_msg_data;
772: x_msg_count := l_msg_count;
773: RETURN FND_API.G_RET_STS_ERROR;
774: END IF;
769:
770: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771: x_msg_data := l_msg_data;
772: x_msg_count := l_msg_count;
773: RETURN FND_API.G_RET_STS_ERROR;
774: END IF;
775:
776: RETURN FND_API.G_RET_STS_SUCCESS;
777:
772: x_msg_count := l_msg_count;
773: RETURN FND_API.G_RET_STS_ERROR;
774: END IF;
775:
776: RETURN FND_API.G_RET_STS_SUCCESS;
777:
778: END record_wo_ctr_readings;
779:
780: -- Function to complete the given Workorder in WIP using EAM API
809: -- Invoke the EAM API. Do not Commit.
810: EAM_WORKORDERTRANSACTIONS_PUB.complete_work_order
811: (
812: p_api_version => 1.0,
813: p_init_msg_list => FND_API.G_TRUE,
814: p_commit => FND_API.G_FALSE,
815: x_return_status => l_return_status,
816: x_msg_count => l_msg_count,
817: x_msg_data => l_msg_data,
810: EAM_WORKORDERTRANSACTIONS_PUB.complete_work_order
811: (
812: p_api_version => 1.0,
813: p_init_msg_list => FND_API.G_TRUE,
814: p_commit => FND_API.G_FALSE,
815: x_return_status => l_return_status,
816: x_msg_count => l_msg_count,
817: x_msg_data => l_msg_data,
818: p_wip_entity_id => p_workorder_rec.wip_entity_id,
835: p_reason => NULL,
836: p_attributes_rec => l_attribute_rec
837: );
838:
839: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
840:
841: IF ( l_msg_data IS NULL ) THEN
842: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
843: FND_MSG_PUB.add;
847: FND_MESSAGE.set_name( l_app_name, l_msg_name );
848: FND_MSG_PUB.add;
849: END IF;
850:
851: RETURN FND_API.G_RET_STS_ERROR;
852:
853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
855: FND_MSG_PUB.add;
849: END IF;
850:
851: RETURN FND_API.G_RET_STS_ERROR;
852:
853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
855: FND_MSG_PUB.add;
856: RETURN FND_API.G_RET_STS_ERROR;
857: END IF;
852:
853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_CMPL_ERROR' );
855: FND_MSG_PUB.add;
856: RETURN FND_API.G_RET_STS_ERROR;
857: END IF;
858:
859: RETURN FND_API.G_RET_STS_SUCCESS;
860:
855: FND_MSG_PUB.add;
856: RETURN FND_API.G_RET_STS_ERROR;
857: END IF;
858:
859: RETURN FND_API.G_RET_STS_SUCCESS;
860:
861: END complete_eam_workorder;
862:
863: -- Function to record a Workorder Transaction ASO Entities
912: p_workorder_rec.completion_subinventory,
913: p_workorder_rec.completion_locator_id
914: );
915:
916: RETURN FND_API.G_RET_STS_SUCCESS;
917:
918: END record_ahl_workorder_txn;
919:
920: -- Function to complete / defer the given Workorder in ASO Entities
939:
940: IF ( SQL%ROWCOUNT = 0 ) THEN
941: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NOT_FOUND' );
942: FND_MSG_PUB.add;
943: RETURN FND_API.G_RET_STS_ERROR;
944: END IF;
945:
946: -- Set the Transaction Type
947: -- CHECK THIS
962: p_workorder_rec => p_workorder_rec,
963: p_transaction_type_code => l_transaction_type_code
964: );
965:
966: RETURN FND_API.G_RET_STS_SUCCESS;
967:
968: END update_ahl_workorder;
969:
970: -- Function for Validating Complete Operation Inputs
976: IS
977: BEGIN
978:
979: IF ( p_workorder_operation_id IS NULL OR
980: p_workorder_operation_id = FND_API.G_MISS_NUM OR
981: p_object_version_no IS NULL OR
982: p_object_version_no = FND_API.G_MISS_NUM ) THEN
983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
984: FND_MSG_PUB.add;
978:
979: IF ( p_workorder_operation_id IS NULL OR
980: p_workorder_operation_id = FND_API.G_MISS_NUM OR
981: p_object_version_no IS NULL OR
982: p_object_version_no = FND_API.G_MISS_NUM ) THEN
983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
984: FND_MSG_PUB.add;
985: RETURN FND_API.G_RET_STS_ERROR;
986: END IF;
981: p_object_version_no IS NULL OR
982: p_object_version_no = FND_API.G_MISS_NUM ) THEN
983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_COP_INPUTS' );
984: FND_MSG_PUB.add;
985: RETURN FND_API.G_RET_STS_ERROR;
986: END IF;
987:
988: RETURN FND_API.G_RET_STS_SUCCESS;
989: END validate_cop_inputs;
984: FND_MSG_PUB.add;
985: RETURN FND_API.G_RET_STS_ERROR;
986: END IF;
987:
988: RETURN FND_API.G_RET_STS_SUCCESS;
989: END validate_cop_inputs;
990:
991: -- Function to validate whether the Actual End Date is later than the last Transaction date for the Workorder Operation.
992: FUNCTION validate_ahl_op_txn_date
1015: IF ( l_transaction_date > p_actual_end_date ) THEN
1016: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_TXNDT' );
1017: FND_MSG_PUB.add;
1018: CLOSE get_ahl_txn_rec;
1019: RETURN FND_API.G_RET_STS_ERROR;
1020: END IF;
1021: END IF;
1022:
1023: CLOSE get_ahl_txn_rec;
1021: END IF;
1022:
1023: CLOSE get_ahl_txn_rec;
1024:
1025: RETURN FND_API.G_RET_STS_SUCCESS;
1026: END validate_ahl_op_txn_date;
1027:
1028: -- Function to check whether the last EAM Workorder Transaction is Completion
1029: -- and to ensure that the actual end date is greater than the
1032: (
1033: p_wip_entity_id IN NUMBER,
1034: p_operation_sequence_num IN NUMBER,
1035: p_actual_end_date IN DATE,
1036: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE
1037: ) RETURN VARCHAR2
1038: IS
1039:
1040: l_transaction_type NUMBER;
1063: IF ( l_transaction_type = 1 ) THEN
1064: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_COMP_IN_EAM' );
1065: FND_MSG_PUB.add;
1066: CLOSE get_eam_txn_rec;
1067: RETURN FND_API.G_RET_STS_ERROR;
1068: END IF;
1069:
1070: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1071: IF ( l_transaction_date > p_actual_end_date ) THEN
1066: CLOSE get_eam_txn_rec;
1067: RETURN FND_API.G_RET_STS_ERROR;
1068: END IF;
1069:
1070: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1071: IF ( l_transaction_date > p_actual_end_date ) THEN
1072: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_EAM_TXNDT' );
1073: FND_MSG_PUB.add;
1074: CLOSE get_eam_txn_rec;
1071: IF ( l_transaction_date > p_actual_end_date ) THEN
1072: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_ENDDT_EAM_TXNDT' );
1073: FND_MSG_PUB.add;
1074: CLOSE get_eam_txn_rec;
1075: RETURN FND_API.G_RET_STS_ERROR;
1076: END IF;
1077: END IF;
1078: END IF;
1079:
1076: END IF;
1077: END IF;
1078: END IF;
1079:
1080: RETURN FND_API.G_RET_STS_SUCCESS;
1081: END validate_eam_op_compl_txn;
1082:
1083: -- Function to validate the given Operation.
1084: FUNCTION validate_cop_rec
1084: FUNCTION validate_cop_rec
1085: (
1086: p_operation_rec IN operation_rec_type,
1087: p_workorder_rec IN workorder_rec_type,
1088: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1089: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1090: ) RETURN VARCHAR2
1091: IS
1092: l_return_status VARCHAR2(1);
1085: (
1086: p_operation_rec IN operation_rec_type,
1087: p_workorder_rec IN workorder_rec_type,
1088: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1089: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1090: ) RETURN VARCHAR2
1091: IS
1092: l_return_status VARCHAR2(1);
1093: l_wip_status BOOLEAN;
1098:
1099: IF ( p_operation_rec.description IS NULL ) THEN
1100: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DESC_NULL' );
1101: FND_MSG_PUB.add;
1102: RETURN FND_API.G_RET_STS_ERROR;
1103: END IF;
1104:
1105: -- rroy
1106: -- ACL Changes
1103: END IF;
1104:
1105: -- rroy
1106: -- ACL Changes
1107: IF p_check_unit = FND_API.G_TRUE THEN
1108: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1109: IF l_return_status = FND_API.G_TRUE THEN
1110: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1111: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1105: -- rroy
1106: -- ACL Changes
1107: IF p_check_unit = FND_API.G_TRUE THEN
1108: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_operation_rec.workorder_id, NULL, NULL, NULL);
1109: IF l_return_status = FND_API.G_TRUE THEN
1110: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1111: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1112: FND_MSG_PUB.ADD;
1113: RETURN FND_API.G_RET_STS_ERROR;
1109: IF l_return_status = FND_API.G_TRUE THEN
1110: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_OP_COMP_UNTLCKD');
1111: --FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1112: FND_MSG_PUB.ADD;
1113: RETURN FND_API.G_RET_STS_ERROR;
1114: END IF;
1115: END IF;
1116: -- rroy
1117: -- ACL Changes
1121: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_start_date->'||TO_CHAR(p_operation_rec.actual_start_date,'DD-MON-YYYY HH24:MI:SS'));
1122: AHL_DEBUG_PUB.debug( 'p_operation_rec.actual_end_date->'||TO_CHAR(p_operation_rec.actual_end_date,'DD-MON-YYYY HH24:MI:SS'));
1123: END IF;
1124:
1125: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1126: l_return_status :=
1127: validate_actual_dates
1128: (
1129: p_actual_start_date => p_operation_rec.actual_start_date,
1148: --
1149: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_STATUS' );
1150: FND_MESSAGE.set_token( 'STATUS', l_op_status_meaning );
1151: FND_MSG_PUB.add;
1152: RETURN FND_API.G_RET_STS_ERROR;
1153: END IF;
1154:
1155: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1156: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1151: FND_MSG_PUB.add;
1152: RETURN FND_API.G_RET_STS_ERROR;
1153: END IF;
1154:
1155: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1156: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1157: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_ST_DT' );
1158: FND_MSG_PUB.add;
1159: RETURN FND_API.G_RET_STS_ERROR;
1155: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1156: IF ( p_operation_rec.actual_start_date < p_workorder_rec.actual_start_date ) THEN
1157: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_ST_DT' );
1158: FND_MSG_PUB.add;
1159: RETURN FND_API.G_RET_STS_ERROR;
1160: END IF;
1161:
1162: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1163: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_END_DT' );
1161:
1162: IF ( p_operation_rec.actual_end_date > p_workorder_rec.actual_end_date ) THEN
1163: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_WO_END_DT' );
1164: FND_MSG_PUB.add;
1165: RETURN FND_API.G_RET_STS_ERROR;
1166: END IF;
1167: END IF;
1168:
1169: IF ( p_workorder_rec.status_code = G_JOB_STATUS_UNRELEASED OR -- fix for bug# 7555681
1186:
1187: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_OP_WO_STATUS' );
1188: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1189: FND_MSG_PUB.add;
1190: RETURN FND_API.G_RET_STS_ERROR;
1191: END IF;
1192:
1193: /*
1194: -- Adithya removed below validation for bug # 6326071.
1194: -- Adithya removed below validation for bug # 6326071.
1195: -- Accounting periods are validated against transaction date
1196: -- in EAM. To be inline with EAM validations the check of accouting
1197: -- period against actual start date and end date is removed.
1198: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1199: l_return_status :=
1200: validate_acct_period
1201: (
1202: p_organization_id => p_operation_rec.organization_id,
1209: IF ( p_operation_rec.plan_id IS NOT NULL AND
1210: p_operation_rec.collection_id IS NULL ) THEN
1211: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_NO_QA_RESULTS' );
1212: FND_MSG_PUB.add;
1213: RETURN FND_API.G_RET_STS_ERROR;
1214: END IF;
1215:
1216: IF ( p_operation_rec.plan_id IS NOT NULL ) THEN
1217:
1241: p_actual_end_date => p_operation_rec.actual_end_date,
1242: p_validate_date => p_validate_date
1243: );
1244:
1245: RETURN FND_API.G_RET_STS_SUCCESS;
1246:
1247: END validate_cop_rec;
1248:
1249: FUNCTION complete_eam_wo_operation
1263: BEGIN
1264: EAM_WorkOrderTransactions_PUB.complete_operation
1265: (
1266: p_api_version => 1.0,
1267: p_init_msg_list => FND_API.G_TRUE,
1268: p_commit => FND_API.G_FALSE,
1269: x_return_status => l_return_status,
1270: x_msg_count => l_msg_count,
1271: x_msg_data => l_msg_data,
1264: EAM_WorkOrderTransactions_PUB.complete_operation
1265: (
1266: p_api_version => 1.0,
1267: p_init_msg_list => FND_API.G_TRUE,
1268: p_commit => FND_API.G_FALSE,
1269: x_return_status => l_return_status,
1270: x_msg_count => l_msg_count,
1271: x_msg_data => l_msg_data,
1272: p_wip_entity_id => p_operation_rec.wip_entity_id,
1282: p_reconciliation_code => NULL,
1283: p_attribute_rec => l_attribute_rec
1284: );
1285:
1286: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1287: IF ( l_msg_data IS NOT NULL ) THEN
1288: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1289: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1290: FND_MSG_PUB.add;
1288: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
1289: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1290: FND_MSG_PUB.add;
1291: END IF;
1292: RETURN FND_API.G_RET_STS_ERROR;
1293: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1294: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1295: FND_MSG_PUB.add;
1296: RETURN FND_API.G_RET_STS_ERROR;
1289: FND_MESSAGE.set_name( l_app_name, l_msg_name );
1290: FND_MSG_PUB.add;
1291: END IF;
1292: RETURN FND_API.G_RET_STS_ERROR;
1293: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1294: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1295: FND_MSG_PUB.add;
1296: RETURN FND_API.G_RET_STS_ERROR;
1297: END IF;
1292: RETURN FND_API.G_RET_STS_ERROR;
1293: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1294: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EAM_WO_OP_CMPL_ERROR' );
1295: FND_MSG_PUB.add;
1296: RETURN FND_API.G_RET_STS_ERROR;
1297: END IF;
1298:
1299: RETURN FND_API.G_RET_STS_SUCCESS;
1300: END complete_eam_wo_operation;
1295: FND_MSG_PUB.add;
1296: RETURN FND_API.G_RET_STS_ERROR;
1297: END IF;
1298:
1299: RETURN FND_API.G_RET_STS_SUCCESS;
1300: END complete_eam_wo_operation;
1301:
1302: -- Function to record a Workorder Operation Completion Transaction ASO Entities
1303: FUNCTION record_ahl_wo_operation_txn
1342: p_operation_rec.actual_start_date,
1343: p_operation_rec.actual_end_date
1344: );
1345:
1346: RETURN FND_API.G_RET_STS_SUCCESS;
1347: END record_ahl_wo_operation_txn;
1348:
1349: --Function to complete the given Operation in ASO Entities
1350: FUNCTION complete_ahl_wo_operation
1366:
1367: IF ( SQL%ROWCOUNT = 0 ) THEN
1368: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_NOT_FOUND' );
1369: FND_MSG_PUB.add;
1370: RETURN FND_API.G_RET_STS_ERROR;
1371: END IF;
1372:
1373: -- Insert a record in AHL_WO_OPERATION_TXNS for the Completion Transaction.
1374: l_return_status :=
1376: (
1377: p_operation_rec => p_operation_rec
1378: );
1379:
1380: RETURN FND_API.G_RET_STS_SUCCESS;
1381:
1382: END complete_ahl_wo_operation;
1383:
1384: -- Function to get all the operations for the given Workorder.
1416: /*
1417: IF ( x_operation_tbl.COUNT = 0 ) THEN
1418: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_WO_OPERATIONS' );
1419: FND_MSG_PUB.add;
1420: RETURN FND_API.G_RET_STS_ERROR;
1421: END IF;
1422: */
1423:
1424: RETURN FND_API.G_RET_STS_SUCCESS;
1420: RETURN FND_API.G_RET_STS_ERROR;
1421: END IF;
1422: */
1423:
1424: RETURN FND_API.G_RET_STS_SUCCESS;
1425: END get_workorder_operations;
1426:
1427: -- Function for common record validations for Completion and Deferral.
1428: FUNCTION validate_cwo_dwo_rec
1427: -- Function for common record validations for Completion and Deferral.
1428: FUNCTION validate_cwo_dwo_rec
1429: (
1430: p_workorder_rec IN workorder_rec_type,
1431: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE
1432: ) RETURN VARCHAR2
1433: IS
1434: l_return_status VARCHAR2(1);
1435: l_wip_status BOOLEAN;
1434: l_return_status VARCHAR2(1);
1435: l_wip_status BOOLEAN;
1436: BEGIN
1437:
1438: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1439: l_return_status :=
1440: validate_actual_dates
1441: (
1442: p_actual_start_date => p_workorder_rec.actual_start_date,
1467: /*IF ( p_workorder_rec.plan_id IS NOT NULL AND
1468: p_workorder_rec.collection_id IS NULL ) THEN
1469: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1470: FND_MSG_PUB.add;
1471: RETURN FND_API.G_RET_STS_ERROR;
1472: END IF;
1473: */
1474: /*
1475: l_return_status :=
1487: p_actual_end_date => p_workorder_rec.actual_end_date,
1488: p_validate_date => p_validate_date
1489: );
1490:
1491: RETURN FND_API.G_RET_STS_SUCCESS;
1492: END validate_cwo_dwo_rec;
1493:
1494: FUNCTION validate_cwo_rec
1495: (
1494: FUNCTION validate_cwo_rec
1495: (
1496: p_workorder_rec IN workorder_rec_type,
1497: p_operation_tbl IN operation_tbl_type,
1498: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1499: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1500: ) RETURN VARCHAR2
1501: IS
1502:
1495: (
1496: p_workorder_rec IN workorder_rec_type,
1497: p_operation_tbl IN operation_tbl_type,
1498: p_validate_date IN VARCHAR2 DEFAULT FND_API.G_TRUE,
1499: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
1500: ) RETURN VARCHAR2
1501: IS
1502:
1503: l_return_status VARCHAR2(1);
1522: BEGIN
1523:
1524: -- rroy
1525: -- ACL Changes
1526: IF p_check_unit = FND_API.G_TRUE THEN
1527: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1528: IF l_return_status = FND_API.G_TRUE THEN
1529: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1530: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1524: -- rroy
1525: -- ACL Changes
1526: IF p_check_unit = FND_API.G_TRUE THEN
1527: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1528: IF l_return_status = FND_API.G_TRUE THEN
1529: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1530: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1531: FND_MSG_PUB.ADD;
1532: RETURN FND_API.G_RET_STS_ERROR;
1528: IF l_return_status = FND_API.G_TRUE THEN
1529: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_COMP_UNTLCKD');
1530: FND_MESSAGE.Set_Token('WO_NAME', p_workorder_rec.workorder_name);
1531: FND_MSG_PUB.ADD;
1532: RETURN FND_API.G_RET_STS_ERROR;
1533: END IF;
1534: END IF;
1535: -- rroy
1536: -- ACL Changes
1548: IF ( p_workorder_rec.plan_id IS NOT NULL AND
1549: p_workorder_rec.collection_id IS NULL ) THEN
1550: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_NO_QA_RESULTS' );
1551: FND_MSG_PUB.add;
1552: RETURN FND_API.G_RET_STS_ERROR;
1553: END IF;
1554:
1555:
1556: IF ( p_workorder_rec.status_code <> G_JOB_STATUS_RELEASED AND
1569: */
1570: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1571: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1572: FND_MSG_PUB.add;
1573: RETURN FND_API.G_RET_STS_ERROR;
1574: END IF;
1575:
1576: IF ( p_operation_tbl.COUNT > 0 ) THEN
1577: FOR i IN 1..p_operation_tbl.COUNT LOOP
1574: END IF;
1575:
1576: IF ( p_operation_tbl.COUNT > 0 ) THEN
1577: FOR i IN 1..p_operation_tbl.COUNT LOOP
1578: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1579: IF ( p_workorder_rec.actual_start_date > p_operation_tbl(i).actual_start_date ) THEN
1580: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1581: FND_MSG_PUB.add;
1582: RETURN FND_API.G_RET_STS_ERROR;
1578: IF (NVL(p_validate_date, FND_API.G_TRUE) = FND_API.G_TRUE) THEN
1579: IF ( p_workorder_rec.actual_start_date > p_operation_tbl(i).actual_start_date ) THEN
1580: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1581: FND_MSG_PUB.add;
1582: RETURN FND_API.G_RET_STS_ERROR;
1583: END IF;
1584:
1585: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1586: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1584:
1585: IF ( p_workorder_rec.actual_end_date < p_operation_tbl(i).actual_end_date ) THEN
1586: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1587: FND_MSG_PUB.add;
1588: RETURN FND_API.G_RET_STS_ERROR;
1589: END IF;
1590: END IF;
1591:
1592: IF ( p_operation_tbl(i).status_code <> G_OP_STATUS_COMPLETE ) THEN
1591:
1592: IF ( p_operation_tbl(i).status_code <> G_OP_STATUS_COMPLETE ) THEN
1593: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_OP_STATUS' );
1594: FND_MSG_PUB.add;
1595: RETURN FND_API.G_RET_STS_ERROR;
1596: END IF;
1597:
1598: END LOOP;
1599: END IF;
1616: parent_csr.status_code <> G_JOB_STATUS_CANCELLED ) THEN
1617: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PRIOR_WO_NOT_COMPLETE' );
1618: FND_MESSAGE.set_token( 'WO_NAME', parent_csr.workorder_name );
1619: FND_MSG_PUB.add;
1620: RETURN FND_API.G_RET_STS_ERROR;
1621: END IF;
1622: END LOOP;
1623:
1624: RETURN FND_API.G_RET_STS_SUCCESS;
1620: RETURN FND_API.G_RET_STS_ERROR;
1621: END IF;
1622: END LOOP;
1623:
1624: RETURN FND_API.G_RET_STS_SUCCESS;
1625: END validate_cwo_rec;
1626:
1627: FUNCTION validate_dwo_rec
1628: (
1637:
1638: --rroy
1639: -- ACL Changes
1640: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1641: IF l_return_status = FND_API.G_TRUE THEN
1642: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_DEFF_UNTLCKD');
1643: FND_MSG_PUB.ADD;
1644: RETURN FND_API.G_RET_STS_ERROR;
1645: END IF;
1640: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_rec.workorder_id, NULL, NULL, NULL);
1641: IF l_return_status = FND_API.G_TRUE THEN
1642: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_DEFF_UNTLCKD');
1643: FND_MSG_PUB.ADD;
1644: RETURN FND_API.G_RET_STS_ERROR;
1645: END IF;
1646: --rroy
1647: -- ACL Changes
1648:
1671: */
1672: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_WO_STATUS' );
1673: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
1674: FND_MSG_PUB.add;
1675: RETURN FND_API.G_RET_STS_ERROR;
1676: END IF;
1677:
1678: RETURN FND_API.G_RET_STS_SUCCESS;
1679:
1674: FND_MSG_PUB.add;
1675: RETURN FND_API.G_RET_STS_ERROR;
1676: END IF;
1677:
1678: RETURN FND_API.G_RET_STS_SUCCESS;
1679:
1680: END validate_dwo_rec;
1681:
1682: -- Function to validate the Inputs of the complete_mr_instance API
1693:
1694: -- Balaji - changed the code for 11.5.10
1695: -- API is changed to accept only mr_rec.
1696: IF (
1697: p_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
1698: p_mr_rec.unit_effectivity_id IS NULL OR
1699: p_mr_rec.ue_object_version_no = FND_API.G_MISS_NUM OR
1700: p_mr_rec.ue_object_version_no IS NULL
1701: ) THEN
1695: -- API is changed to accept only mr_rec.
1696: IF (
1697: p_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
1698: p_mr_rec.unit_effectivity_id IS NULL OR
1699: p_mr_rec.ue_object_version_no = FND_API.G_MISS_NUM OR
1700: p_mr_rec.ue_object_version_no IS NULL
1701: ) THEN
1702: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1703: FND_MSG_PUB.add;
1700: p_mr_rec.ue_object_version_no IS NULL
1701: ) THEN
1702: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1703: FND_MSG_PUB.add;
1704: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1705: END IF;
1706: RETURN FND_API.G_RET_STS_SUCCESS;
1707: END validate_cmri_inputs;
1708:
1702: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CMRI_INPUTS' );
1703: FND_MSG_PUB.add;
1704: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
1705: END IF;
1706: RETURN FND_API.G_RET_STS_SUCCESS;
1707: END validate_cmri_inputs;
1708:
1709: -- Function to default missing attributes of the input MR instance record
1710: -- Added in 11.5.10
1758: x_mr_rec => l_mr_rec
1759: );
1760:
1761: -- Convert G_MISS values to NULL and NULL values to Old values
1762: IF ( p_x_mr_rec.item_instance_id = FND_API.G_MISS_NUM ) THEN
1763: p_x_mr_rec.item_instance_id := null;
1764: ELSIF ( p_x_mr_rec.item_instance_id IS NULL ) THEN
1765: p_x_mr_rec.item_instance_id := l_mr_rec.item_instance_id;
1766: END IF;
1764: ELSIF ( p_x_mr_rec.item_instance_id IS NULL ) THEN
1765: p_x_mr_rec.item_instance_id := l_mr_rec.item_instance_id;
1766: END IF;
1767:
1768: IF ( p_x_mr_rec.mr_header_id = FND_API.G_MISS_NUM ) THEN
1769: p_x_mr_rec.mr_header_id := null;
1770: ELSIF ( p_x_mr_rec.mr_header_id IS NULL ) THEN
1771: p_x_mr_rec.mr_header_id := l_mr_rec.mr_header_id;
1772: END IF;
1770: ELSIF ( p_x_mr_rec.mr_header_id IS NULL ) THEN
1771: p_x_mr_rec.mr_header_id := l_mr_rec.mr_header_id;
1772: END IF;
1773:
1774: IF ( p_x_mr_rec.incident_id = FND_API.G_MISS_NUM ) THEN
1775: p_x_mr_rec.incident_id := null;
1776: ELSIF ( p_x_mr_rec.incident_id IS NULL ) THEN
1777: p_x_mr_rec.incident_id := l_mr_rec.incident_id;
1778: END IF;
1776: ELSIF ( p_x_mr_rec.incident_id IS NULL ) THEN
1777: p_x_mr_rec.incident_id := l_mr_rec.incident_id;
1778: END IF;
1779:
1780: IF ( p_x_mr_rec.mr_title = FND_API.G_MISS_CHAR ) THEN
1781: p_x_mr_rec.mr_title := null;
1782: ELSIF ( p_x_mr_rec.mr_title IS NULL ) THEN
1783: p_x_mr_rec.mr_title := l_mr_rec.mr_title;
1784: END IF;
1782: ELSIF ( p_x_mr_rec.mr_title IS NULL ) THEN
1783: p_x_mr_rec.mr_title := l_mr_rec.mr_title;
1784: END IF;
1785:
1786: IF ( p_x_mr_rec.ue_status_code = FND_API.G_MISS_CHAR ) THEN
1787: p_x_mr_rec.ue_status_code := null;
1788: ELSIF ( p_x_mr_rec.ue_status_code IS NULL ) THEN
1789: p_x_mr_rec.ue_status_code := l_mr_rec.ue_status_code;
1790: END IF;
1788: ELSIF ( p_x_mr_rec.ue_status_code IS NULL ) THEN
1789: p_x_mr_rec.ue_status_code := l_mr_rec.ue_status_code;
1790: END IF;
1791:
1792: IF ( p_x_mr_rec.ue_status = FND_API.G_MISS_CHAR ) THEN
1793: p_x_mr_rec.ue_status := null;
1794: ELSIF ( p_x_mr_rec.ue_status IS NULL ) THEN
1795: p_x_mr_rec.ue_status := l_mr_rec.ue_status;
1796: END IF;
1794: ELSIF ( p_x_mr_rec.ue_status IS NULL ) THEN
1795: p_x_mr_rec.ue_status := l_mr_rec.ue_status;
1796: END IF;
1797:
1798: IF ( p_x_mr_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
1799: p_x_mr_rec.qa_inspection_type := null;
1800: ELSIF ( p_x_mr_rec.qa_inspection_type IS NULL ) THEN
1801: p_x_mr_rec.qa_inspection_type := l_mr_rec.qa_inspection_type;
1802: END IF;
1800: ELSIF ( p_x_mr_rec.qa_inspection_type IS NULL ) THEN
1801: p_x_mr_rec.qa_inspection_type := l_mr_rec.qa_inspection_type;
1802: END IF;
1803:
1804: IF ( p_x_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) THEN
1805: p_x_mr_rec.actual_end_date := null;
1806: ELSIF ( p_x_mr_rec.actual_end_date IS NULL ) THEN
1807: p_x_mr_rec.actual_end_date := l_mr_rec.actual_end_date;
1808: END IF;
1806: ELSIF ( p_x_mr_rec.actual_end_date IS NULL ) THEN
1807: p_x_mr_rec.actual_end_date := l_mr_rec.actual_end_date;
1808: END IF;
1809:
1810: IF ( p_x_mr_rec.qa_plan_id = FND_API.G_MISS_NUM ) THEN
1811: p_x_mr_rec.qa_plan_id := null;
1812: ELSIF ( p_x_mr_rec.qa_plan_id IS NULL ) THEN
1813: p_x_mr_rec.qa_plan_id := l_mr_rec.qa_plan_id;
1814: END IF;
1812: ELSIF ( p_x_mr_rec.qa_plan_id IS NULL ) THEN
1813: p_x_mr_rec.qa_plan_id := l_mr_rec.qa_plan_id;
1814: END IF;
1815:
1816: IF ( p_x_mr_rec.qa_collection_id = FND_API.G_MISS_NUM ) THEN
1817: p_x_mr_rec.qa_collection_id := null;
1818: ELSIF ( p_x_mr_rec.qa_collection_id IS NULL ) THEN
1819: p_x_mr_rec.qa_collection_id := l_mr_rec.qa_collection_id;
1820: END IF;
1818: ELSIF ( p_x_mr_rec.qa_collection_id IS NULL ) THEN
1819: p_x_mr_rec.qa_collection_id := l_mr_rec.qa_collection_id;
1820: END IF;
1821:
1822: RETURN FND_API.G_RET_STS_SUCCESS;
1823:
1824: END default_mr_rec;
1825:
1826: -- Function to check whether the MR/SR is in a status that it can be signed off.
1839: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INV_SIGNOFF_STATUS');
1840: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1841: FND_MESSAGE.set_token( 'STATUS', p_mr_status);
1842: FND_MSG_PUB.add;
1843: RETURN FND_API.G_RET_STS_ERROR;
1844: END IF;
1845:
1846: RETURN FND_API.G_RET_STS_SUCCESS;
1847:
1842: FND_MSG_PUB.add;
1843: RETURN FND_API.G_RET_STS_ERROR;
1844: END IF;
1845:
1846: RETURN FND_API.G_RET_STS_SUCCESS;
1847:
1848: END validate_mr_status;
1849:
1850: -- Function to check whether a MR Instance is Complete
1885: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_PLAN_ID_NULL' );
1886: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1887: FND_MESSAGE.set_token( 'INSP_TYPE', p_qa_inspection_type );
1888: FND_MSG_PUB.add;
1889: RETURN FND_API.G_RET_STS_ERROR;
1890: END IF;
1891: END IF;
1892:
1893: -- Check if inspection type is not null then collection id is also not null
1901: IF (p_qa_collection_id IS NULL) THEN
1902: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_QA_COL_ID_NULL' );
1903: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_title);
1904: FND_MSG_PUB.add;
1905: RETURN FND_API.G_RET_STS_ERROR;
1906: END IF;
1907: END IF;
1908: -- Bug # 6436307 - end
1909: RETURN FND_API.G_RET_STS_SUCCESS;
1905: RETURN FND_API.G_RET_STS_ERROR;
1906: END IF;
1907: END IF;
1908: -- Bug # 6436307 - end
1909: RETURN FND_API.G_RET_STS_SUCCESS;
1910: END is_mr_complete;
1911:
1912: -- Function to Check whether all Child MR Instances for a MR Instance
1913: -- are Complete
1965: ) THEN
1966: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
1967: FND_MESSAGE.set_token( 'MAINT_REQ', p_mr_rec.mr_title);
1968: FND_MSG_PUB.add;
1969: RETURN FND_API.G_RET_STS_ERROR;
1970: END IF;
1971:
1972: END LOOP;
1973:
1970: END IF;
1971:
1972: END LOOP;
1973:
1974: RETURN FND_API.G_RET_STS_SUCCESS;
1975: END are_child_mrs_complete;
1976:
1977: -- Function to get the Counter Readings for an Item Instance
1978: -- Balaji added the parameter p_acccomplish_date for Bug # 6784053 (FP for Bug # 6750836).
2113: /* Removed for Bug 3310304
2114: IF ( x_counter_tbl.COUNT < 1 ) THEN
2115: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NO_CTRS_FOR_MR' );
2116: FND_MSG_PUB.add;
2117: RETURN FND_API.G_RET_STS_ERROR;
2118: END IF;
2119: */
2120:
2121: RETURN FND_API.G_RET_STS_SUCCESS;
2117: RETURN FND_API.G_RET_STS_ERROR;
2118: END IF;
2119: */
2120:
2121: RETURN FND_API.G_RET_STS_SUCCESS;
2122: END get_cp_counters;
2123:
2124: -- Function to get the Reset Counter Readings for an Item Instance for a MR
2125: -- Function to get the Reset Counter Readings for an Item Instance for a MR
2247: p_components_flag => 'N',
2248: x_applicable_mr_tbl => l_appl_mrs_tbl) ;
2249:
2250: -- Raise errors if exceptions occur
2251: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2252: RAISE FND_API.G_EXC_ERROR;
2253: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2248: x_applicable_mr_tbl => l_appl_mrs_tbl) ;
2249:
2250: -- Raise errors if exceptions occur
2251: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2252: RAISE FND_API.G_EXC_ERROR;
2253: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2249:
2250: -- Raise errors if exceptions occur
2251: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2252: RAISE FND_API.G_EXC_ERROR;
2253: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: -- Get counters for effectivity.
2250: -- Raise errors if exceptions occur
2251: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2252: RAISE FND_API.G_EXC_ERROR;
2253: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2255: END IF;
2256:
2257: -- Get counters for effectivity.
2258: IF (l_appl_mrs_tbl.COUNT > 0) THEN
2311: -- Bug # 6750836 -- start
2312: --x_counter_tbl( l_ctr_count ).counter_reading := 0;
2313: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CN_RESET_ERROR' );
2314: FND_MSG_PUB.add;
2315: RETURN FND_API.G_RET_STS_ERROR;
2316: -- Bug # 6750836 -- end
2317:
2318: END IF;
2319: */
2331: END LOOP;
2332: END LOOP;
2333: END IF;
2334:
2335: RETURN FND_API.G_RET_STS_SUCCESS;
2336: END get_reset_counters;
2337:
2338: -- Function to Reset the Counter Readings
2339: FUNCTION reset_counters
2409: BEGIN
2410: CS_CTR_CAPTURE_READING_PUB.capture_counter_reading
2411: (
2412: p_api_version_number => 1.0,
2413: p_init_msg_list => FND_API.G_TRUE,
2414: p_commit => FND_API.G_FALSE,
2415: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2416: p_ctr_grp_log_rec => l_ctr_grp_log_rec,
2417: p_ctr_rdg_tbl => l_ctr_rdg_tbl,
2410: CS_CTR_CAPTURE_READING_PUB.capture_counter_reading
2411: (
2412: p_api_version_number => 1.0,
2413: p_init_msg_list => FND_API.G_TRUE,
2414: p_commit => FND_API.G_FALSE,
2415: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2416: p_ctr_grp_log_rec => l_ctr_grp_log_rec,
2417: p_ctr_rdg_tbl => l_ctr_rdg_tbl,
2418: p_prop_rdg_tbl => l_prop_rdg_tbl,
2411: (
2412: p_api_version_number => 1.0,
2413: p_init_msg_list => FND_API.G_TRUE,
2414: p_commit => FND_API.G_FALSE,
2415: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2416: p_ctr_grp_log_rec => l_ctr_grp_log_rec,
2417: p_ctr_rdg_tbl => l_ctr_rdg_tbl,
2418: p_prop_rdg_tbl => l_prop_rdg_tbl,
2419: x_return_status => l_return_status,
2423: EXCEPTION
2424: WHEN OTHERS THEN
2425: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2426: FND_MSG_PUB.add;
2427: RETURN FND_API.G_RET_STS_ERROR;
2428: END;
2429:
2430: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2431: IF ( l_msg_data IS NULL ) THEN
2426: FND_MSG_PUB.add;
2427: RETURN FND_API.G_RET_STS_ERROR;
2428: END;
2429:
2430: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2431: IF ( l_msg_data IS NULL ) THEN
2432: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2433: FND_MSG_PUB.add;
2434: ELSE
2435: FND_MESSAGE.parse_encoded( l_msg_data, l_app_name, l_msg_name );
2436: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2437: FND_MSG_PUB.add;
2438: END IF;
2439: RETURN FND_API.G_RET_STS_ERROR;
2440: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2441: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2442: FND_MSG_PUB.add;
2443: RETURN FND_API.G_RET_STS_ERROR;
2436: FND_MESSAGE.set_name( l_app_name, l_msg_name );
2437: FND_MSG_PUB.add;
2438: END IF;
2439: RETURN FND_API.G_RET_STS_ERROR;
2440: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2441: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2442: FND_MSG_PUB.add;
2443: RETURN FND_API.G_RET_STS_ERROR;
2444: END IF;
2439: RETURN FND_API.G_RET_STS_ERROR;
2440: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2441: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CTR_RESET_API_ERROR' );
2442: FND_MSG_PUB.add;
2443: RETURN FND_API.G_RET_STS_ERROR;
2444: END IF;
2445:
2446: END IF;
2447:
2444: END IF;
2445:
2446: END IF;
2447:
2448: RETURN FND_API.G_RET_STS_SUCCESS;
2449: END reset_counters;
2450:
2451: -- Function to Record Accomplishments in UMP
2452: FUNCTION update_ump
2489:
2490: AHL_UMP_UNITMAINT_PVT.capture_mr_updates
2491: (
2492: p_api_version => 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_default => FND_API.G_TRUE,
2497: p_module_type => NULL,
2490: AHL_UMP_UNITMAINT_PVT.capture_mr_updates
2491: (
2492: p_api_version => 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_default => FND_API.G_TRUE,
2497: p_module_type => NULL,
2498: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
2491: (
2492: p_api_version => 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_default => FND_API.G_TRUE,
2497: p_module_type => NULL,
2498: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
2499: p_x_unit_threshold_tbl => l_unit_threshold_tbl,
2492: p_api_version => 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_default => FND_API.G_TRUE,
2497: p_module_type => NULL,
2498: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
2499: p_x_unit_threshold_tbl => l_unit_threshold_tbl,
2500: p_x_unit_accomplish_tbl => l_unit_accomplish_tbl,
2502: x_msg_count => l_msg_count,
2503: x_msg_data => l_msg_data
2504: );
2505:
2506: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2507: IF ( l_msg_data IS NULL ) THEN
2508: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2509: FND_MSG_PUB.add;
2510: ELSE
2510: ELSE
2511: x_msg_count := l_msg_count;
2512: x_msg_data := l_msg_data;
2513: END IF;
2514: RETURN FND_API.G_RET_STS_ERROR;
2515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: IF ( l_msg_data IS NULL ) THEN
2517: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2518: FND_MSG_PUB.add;
2511: x_msg_count := l_msg_count;
2512: x_msg_data := l_msg_data;
2513: END IF;
2514: RETURN FND_API.G_RET_STS_ERROR;
2515: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2516: IF ( l_msg_data IS NULL ) THEN
2517: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_UMP_API_ERROR' );
2518: FND_MSG_PUB.add;
2519: ELSE
2519: ELSE
2520: x_msg_count := l_msg_count;
2521: x_msg_data := l_msg_data;
2522: END IF;
2523: RETURN FND_API.G_RET_STS_ERROR;
2524: END IF;
2525:
2526: RETURN FND_API.G_RET_STS_SUCCESS;
2527: END update_ump;
2522: END IF;
2523: RETURN FND_API.G_RET_STS_ERROR;
2524: END IF;
2525:
2526: RETURN FND_API.G_RET_STS_SUCCESS;
2527: END update_ump;
2528:
2529: -- Added for R12-Serial Reservation enhancements.
2530: -- We need to delete any reserved serial numbers when a workorder is completed.
2553: 'At the start of procedure for workorder_id:' || p_workorder_id);
2554: END IF;
2555:
2556: -- Initialize return status.
2557: x_return_status := FND_API.G_RET_STS_SUCCESS;
2558:
2559: FOR get_scheduled_mater_rec IN get_scheduled_mater_csr(p_workorder_id)
2560: LOOP
2561: -- Call delete reservation API.
2560: LOOP
2561: -- Call delete reservation API.
2562: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
2563: p_api_version => 1.0,
2564: p_init_msg_list => FND_API.G_TRUE ,
2565: p_commit => FND_API.G_FALSE ,
2566: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
2567: p_module_type => NULL,
2568: x_return_status => x_return_status ,
2561: -- Call delete reservation API.
2562: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
2563: p_api_version => 1.0,
2564: p_init_msg_list => FND_API.G_TRUE ,
2565: p_commit => FND_API.G_FALSE ,
2566: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
2567: p_module_type => NULL,
2568: x_return_status => x_return_status ,
2569: x_msg_count => l_msg_count ,
2562: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
2563: p_api_version => 1.0,
2564: p_init_msg_list => FND_API.G_TRUE ,
2565: p_commit => FND_API.G_FALSE ,
2566: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
2567: p_module_type => NULL,
2568: x_return_status => x_return_status ,
2569: x_msg_count => l_msg_count ,
2570: x_msg_data => l_msg_data ,
2569: x_msg_count => l_msg_count ,
2570: x_msg_data => l_msg_data ,
2571: p_scheduled_material_id => get_scheduled_mater_rec.scheduled_material_id );
2572:
2573: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2574: IF (l_DEBUG_STMT >= l_DEBUG_LEVEL) THEN
2575: fnd_log.string(l_DEBUG_STMT, 'ahl.plsql.AHL_PRD_WORKORDER_PVT.delete_serial_reservations',
2576: 'AHL_RSV_RESERVATIONS_PVT.Delete_Reservation failed for schedule material ID: '
2577: || get_scheduled_mater_rec.scheduled_material_id);
2685: -- Procedure to Complete an Operation
2686: PROCEDURE complete_operation
2687: (
2688: p_api_version IN NUMBER := 1.0,
2689: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2690: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2691: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2692: p_default IN VARCHAR2 := FND_API.G_FALSE,
2693: p_module_type IN VARCHAR2 := NULL,
2686: PROCEDURE complete_operation
2687: (
2688: p_api_version IN NUMBER := 1.0,
2689: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2690: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2691: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2692: p_default IN VARCHAR2 := FND_API.G_FALSE,
2693: p_module_type IN VARCHAR2 := NULL,
2694: x_return_status OUT NOCOPY VARCHAR2,
2687: (
2688: p_api_version IN NUMBER := 1.0,
2689: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2690: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2691: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2692: p_default IN VARCHAR2 := FND_API.G_FALSE,
2693: p_module_type IN VARCHAR2 := NULL,
2694: x_return_status OUT NOCOPY VARCHAR2,
2695: x_msg_count OUT NOCOPY NUMBER,
2688: p_api_version IN NUMBER := 1.0,
2689: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2690: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2691: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2692: p_default IN VARCHAR2 := FND_API.G_FALSE,
2693: p_module_type IN VARCHAR2 := NULL,
2694: x_return_status OUT NOCOPY VARCHAR2,
2695: x_msg_count OUT NOCOPY NUMBER,
2696: x_msg_data OUT NOCOPY VARCHAR2,
2751: AHL_DEBUG_PUB.enable_debug;
2752: END IF;
2753:
2754: -- Initialize API return status to success
2755: x_return_status := FND_API.G_RET_STS_SUCCESS;
2756:
2757: -- Standard Start of API savepoint
2758: SAVEPOINT complete_operation_PVT;
2759:
2757: -- Standard Start of API savepoint
2758: SAVEPOINT complete_operation_PVT;
2759:
2760: -- Initialize message list if p_init_msg_list is set to TRUE.
2761: IF FND_API.to_boolean( p_init_msg_list ) THEN
2762: FND_MSG_PUB.initialize;
2763: END IF;
2764:
2765: -- Validate all the inputs of the API
2769: p_workorder_operation_id => p_workorder_operation_id,
2770: p_object_version_no => p_object_version_no
2771: );
2772:
2773: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2774: RAISE FND_API.G_EXC_ERROR;
2775: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2777: END IF;
2770: p_object_version_no => p_object_version_no
2771: );
2772:
2773: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2774: RAISE FND_API.G_EXC_ERROR;
2775: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2777: END IF;
2778:
2771: );
2772:
2773: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2774: RAISE FND_API.G_EXC_ERROR;
2775: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2777: END IF;
2778:
2779: -- rroy
2772:
2773: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2774: RAISE FND_API.G_EXC_ERROR;
2775: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2777: END IF;
2778:
2779: -- rroy
2780: -- R12 Tech UIs
2777: END IF;
2778:
2779: -- rroy
2780: -- R12 Tech UIs
2781: IF p_default = FND_API.G_TRUE THEN
2782: -- retrieve the workorder id and the operation sequence number
2783: OPEN get_op_details(p_workorder_operation_id);
2784: FETCH get_op_details INTO l_workorder_id, l_operation_seq_num, l_actual_start_date, l_actual_end_date;
2785: IF get_op_details%NOTFOUND THEN
2785: IF get_op_details%NOTFOUND THEN
2786: CLOSE get_op_details;
2787: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2788: FND_MSG_PUB.add;
2789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2790: END IF;
2791: CLOSE get_op_details;
2792:
2793: l_operation_tbl(1).workorder_id := l_workorder_id;
2796: Get_default_op_actual_dates(x_return_status => l_return_status,
2797: x_msg_count => l_msg_count,
2798: x_msg_data => l_msg_data,
2799: p_x_operation_tbl => l_operation_tbl);
2800: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2801: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2802: FND_MSG_PUB.add;
2803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2804: END IF;
2799: p_x_operation_tbl => l_operation_tbl);
2800: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2801: FND_MESSAGE.set_name('AHL', 'AHL_PRD_OP_DEF_ERROR');
2802: FND_MSG_PUB.add;
2803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2804: END IF;
2805:
2806: -- update the actual dates in the table
2807: IF l_actual_start_date IS NULL THEN
2813: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2814: IF SQL%ROWCOUNT = 0 THEN
2815: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2816: FND_MSG_PUB.add;
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: END IF;
2819: END IF; -- IF l_actual_start_date IS NULL THEN
2820: IF l_actual_end_date IS NULL THEN
2821: UPDATE AHL_WORKORDER_OPERATIONS
2826: WHERE WORKORDER_OPERATION_ID = p_workorder_operation_id;
2827: IF SQL%ROWCOUNT = 0 THEN
2828: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_DEF_ERROR' );
2829: FND_MSG_PUB.add;
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2832: END IF; -- IF l_actual_end_date IS NULL THEN
2833: END IF; -- IF p_default = FND_API.G_TRUE THEN
2834: -- rroy
2829: FND_MSG_PUB.add;
2830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2831: END IF;
2832: END IF; -- IF l_actual_end_date IS NULL THEN
2833: END IF; -- IF p_default = FND_API.G_TRUE THEN
2834: -- rroy
2835: -- R12 Tech UIs
2836:
2837: --Get the Operation Details
2842: p_object_version_no => p_object_version_no,
2843: x_operation_rec => l_operation_rec
2844: );
2845:
2846: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2847: RAISE FND_API.G_EXC_ERROR;
2848: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2843: x_operation_rec => l_operation_rec
2844: );
2845:
2846: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2847: RAISE FND_API.G_EXC_ERROR;
2848: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2844: );
2845:
2846: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2847: RAISE FND_API.G_EXC_ERROR;
2848: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2852: --Get the Associated Workorder Details
2845:
2846: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2847: RAISE FND_API.G_EXC_ERROR;
2848: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851:
2852: --Get the Associated Workorder Details
2853: l_return_status :=
2856: p_workorder_id => l_operation_rec.workorder_id,
2857: x_workorder_rec => l_workorder_rec
2858: );
2859:
2860: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2861: RAISE FND_API.G_EXC_ERROR;
2862: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2864: END IF;
2857: x_workorder_rec => l_workorder_rec
2858: );
2859:
2860: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2861: RAISE FND_API.G_EXC_ERROR;
2862: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2864: END IF;
2865:
2858: );
2859:
2860: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2861: RAISE FND_API.G_EXC_ERROR;
2862: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2864: END IF;
2865:
2866: --Validate the Operation
2859:
2860: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2861: RAISE FND_API.G_EXC_ERROR;
2862: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2864: END IF;
2865:
2866: --Validate the Operation
2867: l_return_status :=
2870: p_operation_rec => l_operation_rec,
2871: p_workorder_rec => l_workorder_rec
2872: );
2873:
2874: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2875: RAISE FND_API.G_EXC_ERROR;
2876: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2878: END IF;
2871: p_workorder_rec => l_workorder_rec
2872: );
2873:
2874: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2875: RAISE FND_API.G_EXC_ERROR;
2876: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2878: END IF;
2879:
2872: );
2873:
2874: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2875: RAISE FND_API.G_EXC_ERROR;
2876: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2878: END IF;
2879:
2880: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2873:
2874: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2875: RAISE FND_API.G_EXC_ERROR;
2876: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2878: END IF;
2879:
2880: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2881: l_msg_count := FND_MSG_PUB.count_msg;
2880: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2881: l_msg_count := FND_MSG_PUB.count_msg;
2882: IF l_msg_count > 0 THEN
2883: x_msg_count := l_msg_count;
2884: RAISE FND_API.G_EXC_ERROR;
2885: END IF;
2886:
2887: -- rroy
2888: -- R12 Tech UIs
2896: -- if login at workorder, then logout these users when workorder is completed/cancelled.
2897: -- resource txns will post at the time user logs out of the workorder.
2898: AHL_PRD_WO_LOGIN_PVT.Workorder_Logout(p_api_version => 1.0,
2899: p_init_msg_list => p_init_msg_list,
2900: p_commit => FND_API.G_FALSE,
2901: p_validation_level => p_validation_level,
2902: p_module_type => p_module_type,
2903: x_return_status => l_return_status,
2904: x_msg_count => l_msg_count,
2908: p_operation_seq_num => l_operation_rec.operation_sequence_num,
2909: --p_resource_id => l_resource_id,
2910: p_resource_seq_num => l_resource_seq_num
2911: );
2912: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2913: EXIT;
2914: END IF;
2915:
2916: END LOOP;
2915:
2916: END LOOP;
2917: CLOSE c_get_login_recs;
2918:
2919: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2920: RAISE FND_API.G_EXC_ERROR;
2921: END IF;
2922:
2923: --Complete the EAM Workorder Operation
2916: END LOOP;
2917: CLOSE c_get_login_recs;
2918:
2919: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2920: RAISE FND_API.G_EXC_ERROR;
2921: END IF;
2922:
2923: --Complete the EAM Workorder Operation
2924: l_return_status :=
2926: (
2927: p_operation_rec => l_operation_rec
2928: );
2929:
2930: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2934: END IF;
2927: p_operation_rec => l_operation_rec
2928: );
2929:
2930: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2934: END IF;
2935:
2928: );
2929:
2930: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2934: END IF;
2935:
2936: --Complete the AHL Workorder Operation
2929:
2930: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2931: RAISE FND_API.G_EXC_ERROR;
2932: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2934: END IF;
2935:
2936: --Complete the AHL Workorder Operation
2937: l_return_status :=
2939: (
2940: p_operation_rec => l_operation_rec
2941: );
2942:
2943: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: END IF;
2940: p_operation_rec => l_operation_rec
2941: );
2942:
2943: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: END IF;
2948:
2941: );
2942:
2943: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: END IF;
2948:
2949: --If collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
2942:
2943: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2944: RAISE FND_API.G_EXC_ERROR;
2945: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: END IF;
2948:
2949: --If collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
2950: IF ( l_operation_rec.collection_id IS NOT NULL AND
2947: END IF;
2948:
2949: --If collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
2950: IF ( l_operation_rec.collection_id IS NOT NULL AND
2951: FND_API.to_boolean( p_commit ) ) THEN
2952:
2953: QA_SS_RESULTS.wrapper_fire_action
2954: (
2955: q_collection_id => l_operation_rec.collection_id,
2957: q_msg_count => l_msg_count,
2958: q_msg_data => l_msg_data
2959: );
2960:
2961: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2962: x_msg_data := l_msg_data;
2963: x_msg_count := l_msg_count;
2964: x_return_status := FND_API.G_RET_STS_ERROR;
2965: RETURN;
2960:
2961: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2962: x_msg_data := l_msg_data;
2963: x_msg_count := l_msg_count;
2964: x_return_status := FND_API.G_RET_STS_ERROR;
2965: RETURN;
2966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2962: x_msg_data := l_msg_data;
2963: x_msg_count := l_msg_count;
2964: x_return_status := FND_API.G_RET_STS_ERROR;
2965: RETURN;
2966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2969:
2970: -- Re-set the API savepoint because, the wrapper_fire_action commits.
2963: x_msg_count := l_msg_count;
2964: x_return_status := FND_API.G_RET_STS_ERROR;
2965: RETURN;
2966: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2968: END IF;
2969:
2970: -- Re-set the API savepoint because, the wrapper_fire_action commits.
2971: SAVEPOINT complete_operation_PVT;
2972:
2973: END IF;
2974:
2975: -- Perform the Commit (if requested)
2976: IF FND_API.to_boolean( p_commit ) THEN
2977: COMMIT WORK;
2978: END IF;
2979:
2980: -- Disable debug (if enabled)
2983: END IF;
2984:
2985: EXCEPTION
2986:
2987: WHEN FND_API.G_EXC_ERROR THEN
2988: ROLLBACK TO complete_operation_PVT;
2989: x_return_status := FND_API.G_RET_STS_ERROR;
2990: FND_MSG_PUB.count_and_get
2991: (
2985: EXCEPTION
2986:
2987: WHEN FND_API.G_EXC_ERROR THEN
2988: ROLLBACK TO complete_operation_PVT;
2989: x_return_status := FND_API.G_RET_STS_ERROR;
2990: FND_MSG_PUB.count_and_get
2991: (
2992: p_encoded => FND_API.G_FALSE,
2993: p_count => x_msg_count,
2988: ROLLBACK TO complete_operation_PVT;
2989: x_return_status := FND_API.G_RET_STS_ERROR;
2990: FND_MSG_PUB.count_and_get
2991: (
2992: p_encoded => FND_API.G_FALSE,
2993: p_count => x_msg_count,
2994: p_data => x_msg_data
2995: );
2996:
2997: IF ( G_DEBUG = 'Y' ) THEN
2998: AHL_DEBUG_PUB.disable_debug;
2999: END IF;
3000:
3001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3002: ROLLBACK TO complete_operation_PVT;
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3004: FND_MSG_PUB.count_and_get
3005: (
2999: END IF;
3000:
3001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3002: ROLLBACK TO complete_operation_PVT;
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3004: FND_MSG_PUB.count_and_get
3005: (
3006: p_encoded => FND_API.G_FALSE,
3007: p_count => x_msg_count,
3002: ROLLBACK TO complete_operation_PVT;
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3004: FND_MSG_PUB.count_and_get
3005: (
3006: p_encoded => FND_API.G_FALSE,
3007: p_count => x_msg_count,
3008: p_data => x_msg_data
3009: );
3010:
3013: END IF;
3014:
3015: WHEN OTHERS THEN
3016: ROLLBACK TO complete_operation_PVT;
3017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3018: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3019: THEN
3020: FND_MSG_PUB.add_exc_msg
3021: (
3025: );
3026: END IF;
3027: FND_MSG_PUB.count_and_get
3028: (
3029: p_encoded => FND_API.G_FALSE,
3030: p_count => x_msg_count,
3031: p_data => x_msg_data
3032: );
3033:
3038:
3039: PROCEDURE complete_workorder
3040: (
3041: p_api_version IN NUMBER := 1.0,
3042: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3043: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3044: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3045: p_default IN VARCHAR2 := FND_API.G_FALSE,
3046: p_module_type IN VARCHAR2 := NULL,
3039: PROCEDURE complete_workorder
3040: (
3041: p_api_version IN NUMBER := 1.0,
3042: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3043: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3044: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3045: p_default IN VARCHAR2 := FND_API.G_FALSE,
3046: p_module_type IN VARCHAR2 := NULL,
3047: x_return_status OUT NOCOPY VARCHAR2,
3040: (
3041: p_api_version IN NUMBER := 1.0,
3042: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3043: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3044: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3045: p_default IN VARCHAR2 := FND_API.G_FALSE,
3046: p_module_type IN VARCHAR2 := NULL,
3047: x_return_status OUT NOCOPY VARCHAR2,
3048: x_msg_count OUT NOCOPY NUMBER,
3041: p_api_version IN NUMBER := 1.0,
3042: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3043: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3044: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3045: p_default IN VARCHAR2 := FND_API.G_FALSE,
3046: p_module_type IN VARCHAR2 := NULL,
3047: x_return_status OUT NOCOPY VARCHAR2,
3048: x_msg_count OUT NOCOPY NUMBER,
3049: x_msg_data OUT NOCOPY VARCHAR2,
3171: AHL_DEBUG_PUB.enable_debug;
3172: END IF;
3173:
3174: -- Initialize API return status to success
3175: x_return_status := FND_API.G_RET_STS_SUCCESS;
3176:
3177: -- Standard Start of API savepoint
3178: SAVEPOINT complete_workorder_PVT;
3179:
3177: -- Standard Start of API savepoint
3178: SAVEPOINT complete_workorder_PVT;
3179:
3180: -- Initialize message list if p_init_msg_list is set to TRUE.
3181: IF FND_API.to_boolean( p_init_msg_list ) THEN
3182: FND_MSG_PUB.initialize;
3183: END IF;
3184:
3185: l_object_version_number := p_object_version_no;
3191: p_workorder_id => p_workorder_id,
3192: p_object_version_no => l_object_version_number
3193: );
3194:
3195: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3196: RAISE FND_API.G_EXC_ERROR;
3197: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3199: END IF;
3192: p_object_version_no => l_object_version_number
3193: );
3194:
3195: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3196: RAISE FND_API.G_EXC_ERROR;
3197: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3199: END IF;
3200:
3193: );
3194:
3195: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3196: RAISE FND_API.G_EXC_ERROR;
3197: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3199: END IF;
3200:
3201: -- R12
3194:
3195: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3196: RAISE FND_API.G_EXC_ERROR;
3197: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3199: END IF;
3200:
3201: -- R12
3202: -- Tech UIs
3200:
3201: -- R12
3202: -- Tech UIs
3203: -- default the workorder actual dates
3204: IF p_default = FND_API.G_TRUE THEN
3205: -- retrieve the workorder actual dates
3206: OPEN get_wo_dates(p_workorder_id);
3207: FETCH get_wo_dates INTO l_actual_start_date, l_actual_end_date, l_wo_name;
3208: IF get_wo_dates%NOTFOUND THEN
3211: -- Error defaulting the actual dates for workorder WO_NAME before completion.
3212: -- Do we raise an error for this or just ignore the error since this is defaulting code?
3213: -- Check during UTs
3214: FND_MSG_PUB.add;
3215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3216: END IF; -- IF get_wo_dates%NOTFOUND THEN
3217: CLOSE get_wo_dates;
3218:
3219: Get_default_wo_actual_dates(p_workorder_id => p_workorder_id,
3219: Get_default_wo_actual_dates(p_workorder_id => p_workorder_id,
3220: x_return_status => l_return_status,
3221: x_actual_start_date => l_def_actual_start_date,
3222: x_actual_end_date => l_def_actual_end_date);
3223: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
3224: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3225: FND_MSG_PUB.add;
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3222: x_actual_end_date => l_def_actual_end_date);
3223: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
3224: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3225: FND_MSG_PUB.add;
3226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3227: END IF;
3228: /* Start ER # 4757222 */
3229: l_up_workorder_rec.WORKORDER_ID := p_workorder_id;
3230: l_up_workorder_rec.ACTUAL_START_DATE := nvl(l_actual_start_date, l_def_actual_start_date);
3242:
3243: AHL_PRD_WORKORDER_PVT.update_job
3244: (
3245: p_api_version => 1.0 ,
3246: p_init_msg_list => FND_API.G_TRUE ,
3247: p_commit => FND_API.G_FALSE ,
3248: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3249: p_default => FND_API.G_TRUE ,
3250: p_module_type => NULL ,
3243: AHL_PRD_WORKORDER_PVT.update_job
3244: (
3245: p_api_version => 1.0 ,
3246: p_init_msg_list => FND_API.G_TRUE ,
3247: p_commit => FND_API.G_FALSE ,
3248: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3249: p_default => FND_API.G_TRUE ,
3250: p_module_type => NULL ,
3251: x_return_status => l_return_status ,
3244: (
3245: p_api_version => 1.0 ,
3246: p_init_msg_list => FND_API.G_TRUE ,
3247: p_commit => FND_API.G_FALSE ,
3248: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3249: p_default => FND_API.G_TRUE ,
3250: p_module_type => NULL ,
3251: x_return_status => l_return_status ,
3252: x_msg_count => l_msg_count ,
3245: p_api_version => 1.0 ,
3246: p_init_msg_list => FND_API.G_TRUE ,
3247: p_commit => FND_API.G_FALSE ,
3248: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
3249: p_default => FND_API.G_TRUE ,
3250: p_module_type => NULL ,
3251: x_return_status => l_return_status ,
3252: x_msg_count => l_msg_count ,
3253: x_msg_data => l_msg_data ,
3255: p_x_prd_workorder_rec => l_up_workorder_rec ,
3256: p_x_prd_workoper_tbl => l_up_workoper_tbl
3257: );
3258:
3259: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3260: RAISE FND_API.G_EXC_ERROR;
3261: END IF;
3262:
3263: l_object_version_number := l_up_workorder_rec.object_version_number;
3256: p_x_prd_workoper_tbl => l_up_workoper_tbl
3257: );
3258:
3259: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3260: RAISE FND_API.G_EXC_ERROR;
3261: END IF;
3262:
3263: l_object_version_number := l_up_workorder_rec.object_version_number;
3264:
3273: WHERE WORKORDER_ID = p_workorder_id;
3274: IF SQL%ROWCOUNT = 0 THEN
3275: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3276: FND_MSG_PUB.add;
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: END IF;
3279: END IF;-- IF l_actual_start_date IS NULL THEN
3280:
3281: -- update the actual dates in the table
3288: WHERE WORKORDER_ID = p_workorder_id;
3289: IF SQL%ROWCOUNT = 0 THEN
3290: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
3291: FND_MSG_PUB.add;
3292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3293: END IF;
3294: END IF; -- IF l_actual_end_date IS NULL THEN
3295: */
3296: /* End ER # 4757222 */
3293: END IF;
3294: END IF; -- IF l_actual_end_date IS NULL THEN
3295: */
3296: /* End ER # 4757222 */
3297: END IF; -- IF p_default = FND_API.G_TRUE THEN
3298:
3299:
3300: --Get the Workorder Details
3301: l_return_status :=
3305: p_object_version_no => l_object_version_number,
3306: x_workorder_rec => l_workorder_rec
3307: );
3308:
3309: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3306: x_workorder_rec => l_workorder_rec
3307: );
3308:
3309: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3314:
3307: );
3308:
3309: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3314:
3315: --Get the Associated Operations
3308:
3309: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3314:
3315: --Get the Associated Operations
3316: l_return_status :=
3320: p_object_version_no => l_object_version_number,
3321: x_operation_tbl => l_operation_tbl
3322: );
3323:
3324: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3328: END IF;
3321: x_operation_tbl => l_operation_tbl
3322: );
3323:
3324: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3328: END IF;
3329:
3322: );
3323:
3324: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3328: END IF;
3329:
3330: --Validate the Workorder
3323:
3324: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3325: RAISE FND_API.G_EXC_ERROR;
3326: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3328: END IF;
3329:
3330: --Validate the Workorder
3331: l_return_status :=
3334: p_workorder_rec => l_workorder_rec,
3335: p_operation_tbl => l_operation_tbl
3336: );
3337:
3338: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3339: RAISE FND_API.G_EXC_ERROR;
3340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3342: END IF;
3335: p_operation_tbl => l_operation_tbl
3336: );
3337:
3338: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3339: RAISE FND_API.G_EXC_ERROR;
3340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3342: END IF;
3343:
3336: );
3337:
3338: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3339: RAISE FND_API.G_EXC_ERROR;
3340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3342: END IF;
3343:
3344: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3337:
3338: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3339: RAISE FND_API.G_EXC_ERROR;
3340: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3342: END IF;
3343:
3344: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3345: l_msg_count := FND_MSG_PUB.count_msg;
3344: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3345: l_msg_count := FND_MSG_PUB.count_msg;
3346: IF l_msg_count > 0 THEN
3347: x_msg_count := l_msg_count;
3348: RAISE FND_API.G_EXC_ERROR;
3349: END IF;
3350:
3351: -- R12: Tech UIs
3352: -- Log all technicians out of the workorder being completed
3355: FETCH c_get_login_recs INTO l_employee_id, l_operation_seq_num, l_resource_seq_num;
3356: EXIT WHEN c_get_login_recs%NOTFOUND;
3357: AHL_PRD_WO_LOGIN_PVT.Workorder_Logout(p_api_version => 1.0,
3358: p_init_msg_list => p_init_msg_list,
3359: p_commit => FND_API.G_FALSE,
3360: p_validation_level => p_validation_level,
3361: x_return_status => l_return_status,
3362: x_msg_count => l_msg_count,
3363: x_msg_data => l_msg_data,
3365: p_workorder_id => l_workorder_rec.workorder_id,
3366: p_operation_seq_num => l_operation_seq_num,
3367: p_resource_seq_num => l_resource_seq_num
3368: );
3369: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3370: EXIT;
3371: END IF;
3372: END LOOP;
3373: CLOSE c_get_login_recs;
3371: END IF;
3372: END LOOP;
3373: CLOSE c_get_login_recs;
3374:
3375: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3376: RAISE FND_API.G_EXC_ERROR;
3377: END IF;
3378:
3379: --Complete the EAM Workorder
3372: END LOOP;
3373: CLOSE c_get_login_recs;
3374:
3375: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3376: RAISE FND_API.G_EXC_ERROR;
3377: END IF;
3378:
3379: --Complete the EAM Workorder
3380: l_return_status :=
3382: (
3383: p_workorder_rec => l_workorder_rec
3384: );
3385:
3386: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3387: RAISE FND_API.G_EXC_ERROR;
3388: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3390: END IF;
3383: p_workorder_rec => l_workorder_rec
3384: );
3385:
3386: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3387: RAISE FND_API.G_EXC_ERROR;
3388: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3390: END IF;
3391:
3384: );
3385:
3386: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3387: RAISE FND_API.G_EXC_ERROR;
3388: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3390: END IF;
3391:
3392: --Complete the AHL Workorder
3385:
3386: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3387: RAISE FND_API.G_EXC_ERROR;
3388: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3390: END IF;
3391:
3392: --Complete the AHL Workorder
3393: l_return_status :=
3396: p_workorder_rec => l_workorder_rec,
3397: p_status_code => G_JOB_STATUS_COMPLETE
3398: );
3399:
3400: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3397: p_status_code => G_JOB_STATUS_COMPLETE
3398: );
3399:
3400: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3405:
3398: );
3399:
3400: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3405:
3406: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3399:
3400: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3401: RAISE FND_API.G_EXC_ERROR;
3402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3404: END IF;
3405:
3406: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3407:
3406: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3407:
3408: --If l_workorder_rec.collection_id is not null, then, Enable and Fire QA Actions if Commit Flag is true
3409: IF ( l_workorder_rec.collection_id IS NOT NULL AND
3410: FND_API.to_boolean( p_commit ) ) THEN
3411: QA_SS_RESULTS.wrapper_fire_action
3412: (
3413: q_collection_id => l_workorder_rec.collection_id,
3414: q_return_status => l_return_status,
3415: q_msg_count => l_msg_count,
3416: q_msg_data => l_msg_data
3417: );
3418:
3419: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3420: x_msg_data := l_msg_data;
3421: x_msg_count := l_msg_count;
3422: x_return_status := FND_API.G_RET_STS_ERROR;
3423: RETURN;
3418:
3419: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3420: x_msg_data := l_msg_data;
3421: x_msg_count := l_msg_count;
3422: x_return_status := FND_API.G_RET_STS_ERROR;
3423: RETURN;
3424: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3426: END IF;
3420: x_msg_data := l_msg_data;
3421: x_msg_count := l_msg_count;
3422: x_return_status := FND_API.G_RET_STS_ERROR;
3423: RETURN;
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: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3421: x_msg_count := l_msg_count;
3422: x_return_status := FND_API.G_RET_STS_ERROR;
3423: RETURN;
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: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3429: SAVEPOINT complete_workorder_PVT;
3431: END IF;
3432:
3433: IF ( G_CTR_READING_PLAN_ID IS NOT NULL AND
3434: l_workorder_rec.item_instance_id IS NOT NULL AND
3435: FND_API.to_boolean( p_commit ) ) THEN
3436:
3437: -- Get the Current Counter Readings for all Counters associted with
3438: -- the Item Instance.
3439: -- Bug # 6784053 (FP for Bug # 6750836) -- start
3446: x_counter_tbl => l_counter_tbl
3447: );
3448: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3449:
3450: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3451: RAISE FND_API.G_EXC_ERROR;
3452: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3454: END IF;
3447: );
3448: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3449:
3450: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3451: RAISE FND_API.G_EXC_ERROR;
3452: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3454: END IF;
3455:
3448: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3449:
3450: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3451: RAISE FND_API.G_EXC_ERROR;
3452: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3454: END IF;
3455:
3456: IF ( l_counter_tbl.COUNT > 0 ) THEN
3449:
3450: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3451: RAISE FND_API.G_EXC_ERROR;
3452: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3454: END IF;
3455:
3456: IF ( l_counter_tbl.COUNT > 0 ) THEN
3457: l_return_status :=
3462: p_wip_entity_id => l_workorder_rec.wip_entity_id,
3463: p_counter_tbl => l_counter_tbl
3464: );
3465:
3466: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3463: p_counter_tbl => l_counter_tbl
3464: );
3465:
3466: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3471:
3464: );
3465:
3466: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3471:
3472: -- Re-set the API savepoint because, Quality Results submission commits
3465:
3466: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3471:
3472: -- Re-set the API savepoint because, Quality Results submission commits
3473: IF FND_API.to_boolean( p_commit ) THEN
3469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3470: END IF;
3471:
3472: -- Re-set the API savepoint because, Quality Results submission commits
3473: IF FND_API.to_boolean( p_commit ) THEN
3474: SAVEPOINT complete_workorder_PVT;
3475: END IF;
3476: END IF;
3477:
3481: -- Delete remaining reservations.
3482: Delete_Serial_Reservations (p_workorder_id => p_workorder_id,
3483: x_return_status => l_return_status);
3484:
3485: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3486: RAISE FND_API.G_EXC_ERROR;
3487: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3482: Delete_Serial_Reservations (p_workorder_id => p_workorder_id,
3483: x_return_status => l_return_status);
3484:
3485: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3486: RAISE FND_API.G_EXC_ERROR;
3487: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3490:
3483: x_return_status => l_return_status);
3484:
3485: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3486: RAISE FND_API.G_EXC_ERROR;
3487: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3490:
3491: /* Commenting out as part of fix for bug 4626717 Issue 5
3484:
3485: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3486: RAISE FND_API.G_EXC_ERROR;
3487: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3490:
3491: /* Commenting out as part of fix for bug 4626717 Issue 5
3492: FOR parent_csr IN get_parent_master_wos( l_workorder_rec.wip_entity_id ) LOOP
3509:
3510: complete_workorder
3511: (
3512: p_api_version => 1.0,
3513: p_init_msg_list => FND_API.G_TRUE,
3514: p_commit => p_commit,
3515: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3516: p_default => FND_API.G_FALSE,
3517: p_module_type => NULL,
3511: (
3512: p_api_version => 1.0,
3513: p_init_msg_list => FND_API.G_TRUE,
3514: p_commit => p_commit,
3515: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3516: p_default => FND_API.G_FALSE,
3517: p_module_type => NULL,
3518: x_return_status => l_return_status,
3519: x_msg_count => l_msg_count,
3512: p_api_version => 1.0,
3513: p_init_msg_list => FND_API.G_TRUE,
3514: p_commit => p_commit,
3515: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3516: p_default => FND_API.G_FALSE,
3517: p_module_type => NULL,
3518: x_return_status => l_return_status,
3519: x_msg_count => l_msg_count,
3520: x_msg_data => l_msg_data,
3521: p_workorder_id => parent_csr.workorder_id,
3522: p_object_version_no => parent_csr.object_version_number
3523: );
3524:
3525: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3526: RAISE FND_API.G_EXC_ERROR;
3527: END IF;
3528:
3529: -- Re-set the API savepoint because, complete_workorder commits
3522: p_object_version_no => parent_csr.object_version_number
3523: );
3524:
3525: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3526: RAISE FND_API.G_EXC_ERROR;
3527: END IF;
3528:
3529: -- Re-set the API savepoint because, complete_workorder commits
3530: IF FND_API.to_boolean( p_commit ) THEN
3526: RAISE FND_API.G_EXC_ERROR;
3527: END IF;
3528:
3529: -- Re-set the API savepoint because, complete_workorder commits
3530: IF FND_API.to_boolean( p_commit ) THEN
3531: SAVEPOINT complete_workorder_PVT;
3532: END IF;
3533:
3534: ELSE
3556:
3557: complete_mr_instance
3558: (
3559: p_api_version => 1.0,
3560: p_init_msg_list => FND_API.G_TRUE,
3561: p_commit => p_commit,
3562: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3563: p_default => FND_API.G_FALSE,
3564: p_module_type => NULL,
3558: (
3559: p_api_version => 1.0,
3560: p_init_msg_list => FND_API.G_TRUE,
3561: p_commit => p_commit,
3562: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3563: p_default => FND_API.G_FALSE,
3564: p_module_type => NULL,
3565: x_return_status => l_return_status,
3566: x_msg_count => l_msg_count,
3559: p_api_version => 1.0,
3560: p_init_msg_list => FND_API.G_TRUE,
3561: p_commit => p_commit,
3562: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3563: p_default => FND_API.G_FALSE,
3564: p_module_type => NULL,
3565: x_return_status => l_return_status,
3566: x_msg_count => l_msg_count,
3567: x_msg_data => l_msg_data,
3568: p_x_mr_rec => l_mr_rec
3569: );
3570:
3571: -- Abort for Unexpected errors, but, continue for other errors.
3572: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3573: IF ( G_DEBUG = 'Y' ) THEN
3574: 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...' );
3575: FOR I IN 1..l_msg_count LOOP
3576: FND_MSG_PUB.get
3575: FOR I IN 1..l_msg_count LOOP
3576: FND_MSG_PUB.get
3577: (
3578: p_msg_index => i,
3579: p_encoded => FND_API.G_FALSE,
3580: p_data => l_msg_data,
3581: p_msg_index_out => l_msg_index_out
3582: );
3583:
3585: END LOOP;
3586: END IF;
3587:
3588: -- Initialize message list since errors are not reported
3589: IF FND_API.to_boolean( p_init_msg_list ) THEN
3590: FND_MSG_PUB.initialize;
3591: END IF;
3592:
3593: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3589: IF FND_API.to_boolean( p_init_msg_list ) THEN
3590: FND_MSG_PUB.initialize;
3591: END IF;
3592:
3593: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3594: x_return_status := l_return_status;
3595: x_msg_data := l_msg_data;
3596: x_msg_count := l_msg_count;
3597: RETURN;
3600: 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...' );
3601: END IF;
3602:
3603: -- Re-set the API savepoint because, complete_mr_instance commits
3604: IF FND_API.to_boolean( p_commit ) THEN
3605: SAVEPOINT complete_workorder_PVT;
3606: END IF;
3607: END IF;
3608: END IF; --Child checks
3610: END IF;
3611: END IF;
3612:
3613: -- Perform the Commit (if requested)
3614: IF FND_API.to_boolean( p_commit ) THEN
3615: COMMIT WORK;
3616: END IF;
3617:
3618: -- Disable debug (if enabled)
3621: END IF;
3622:
3623: EXCEPTION
3624:
3625: WHEN FND_API.G_EXC_ERROR THEN
3626: ROLLBACK TO complete_workorder_PVT;
3627: x_return_status := FND_API.G_RET_STS_ERROR;
3628: FND_MSG_PUB.count_and_get
3629: (
3623: EXCEPTION
3624:
3625: WHEN FND_API.G_EXC_ERROR THEN
3626: ROLLBACK TO complete_workorder_PVT;
3627: x_return_status := FND_API.G_RET_STS_ERROR;
3628: FND_MSG_PUB.count_and_get
3629: (
3630: p_encoded => FND_API.G_FALSE,
3631: p_count => x_msg_count,
3626: ROLLBACK TO complete_workorder_PVT;
3627: x_return_status := FND_API.G_RET_STS_ERROR;
3628: FND_MSG_PUB.count_and_get
3629: (
3630: p_encoded => FND_API.G_FALSE,
3631: p_count => x_msg_count,
3632: p_data => x_msg_data
3633: );
3634:
3635: IF ( G_DEBUG = 'Y' ) THEN
3636: AHL_DEBUG_PUB.disable_debug;
3637: END IF;
3638:
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: ROLLBACK TO complete_workorder_PVT;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3642: FND_MSG_PUB.count_and_get
3643: (
3637: END IF;
3638:
3639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3640: ROLLBACK TO complete_workorder_PVT;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3642: FND_MSG_PUB.count_and_get
3643: (
3644: p_encoded => FND_API.G_FALSE,
3645: p_count => x_msg_count,
3640: ROLLBACK TO complete_workorder_PVT;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3642: FND_MSG_PUB.count_and_get
3643: (
3644: p_encoded => FND_API.G_FALSE,
3645: p_count => x_msg_count,
3646: p_data => x_msg_data
3647: );
3648:
3651: END IF;
3652:
3653: WHEN OTHERS THEN
3654: ROLLBACK TO complete_workorder_PVT;
3655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3656: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3657: THEN
3658: FND_MSG_PUB.add_exc_msg
3659: (
3663: );
3664: END IF;
3665: FND_MSG_PUB.count_and_get
3666: (
3667: p_encoded => FND_API.G_FALSE,
3668: p_count => x_msg_count,
3669: p_data => x_msg_data
3670: );
3671:
3676:
3677: PROCEDURE defer_workorder
3678: (
3679: p_api_version IN NUMBER := 1.0,
3680: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3683: p_default IN VARCHAR2 := FND_API.G_FALSE,
3684: p_module_type IN VARCHAR2 := NULL,
3677: PROCEDURE defer_workorder
3678: (
3679: p_api_version IN NUMBER := 1.0,
3680: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3683: p_default IN VARCHAR2 := FND_API.G_FALSE,
3684: p_module_type IN VARCHAR2 := NULL,
3685: x_return_status OUT NOCOPY VARCHAR2,
3678: (
3679: p_api_version IN NUMBER := 1.0,
3680: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3683: p_default IN VARCHAR2 := FND_API.G_FALSE,
3684: p_module_type IN VARCHAR2 := NULL,
3685: x_return_status OUT NOCOPY VARCHAR2,
3686: x_msg_count OUT NOCOPY NUMBER,
3679: p_api_version IN NUMBER := 1.0,
3680: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3683: p_default IN VARCHAR2 := FND_API.G_FALSE,
3684: p_module_type IN VARCHAR2 := NULL,
3685: x_return_status OUT NOCOPY VARCHAR2,
3686: x_msg_count OUT NOCOPY NUMBER,
3687: x_msg_data OUT NOCOPY VARCHAR2,
3704: AHL_DEBUG_PUB.enable_debug;
3705: END IF;
3706:
3707: -- Initialize API return status to success
3708: x_return_status := FND_API.G_RET_STS_SUCCESS;
3709:
3710: -- Standard Start of API savepoint
3711: SAVEPOINT defer_workorder_PVT;
3712:
3710: -- Standard Start of API savepoint
3711: SAVEPOINT defer_workorder_PVT;
3712:
3713: -- Initialize message list if p_init_msg_list is set to TRUE.
3714: IF FND_API.to_boolean( p_init_msg_list ) THEN
3715: FND_MSG_PUB.initialize;
3716: END IF;
3717:
3718: -- Validate all the inputs of the API
3722: p_workorder_id => p_workorder_id,
3723: p_object_version_no => p_object_version_no
3724: );
3725:
3726: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3727: RAISE FND_API.G_EXC_ERROR;
3728: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3730: END IF;
3723: p_object_version_no => p_object_version_no
3724: );
3725:
3726: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3727: RAISE FND_API.G_EXC_ERROR;
3728: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3730: END IF;
3731:
3724: );
3725:
3726: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3727: RAISE FND_API.G_EXC_ERROR;
3728: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3730: END IF;
3731:
3732: --Get the Workorder Details
3725:
3726: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3727: RAISE FND_API.G_EXC_ERROR;
3728: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3730: END IF;
3731:
3732: --Get the Workorder Details
3733: l_return_status :=
3737: p_object_version_no => p_object_version_no,
3738: x_workorder_rec => l_workorder_rec
3739: );
3740:
3741: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3742: RAISE FND_API.G_EXC_ERROR;
3743: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3745: END IF;
3738: x_workorder_rec => l_workorder_rec
3739: );
3740:
3741: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3742: RAISE FND_API.G_EXC_ERROR;
3743: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3745: END IF;
3746:
3739: );
3740:
3741: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3742: RAISE FND_API.G_EXC_ERROR;
3743: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3745: END IF;
3746:
3747: --Validate the Workorder
3740:
3741: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3742: RAISE FND_API.G_EXC_ERROR;
3743: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3745: END IF;
3746:
3747: --Validate the Workorder
3748: l_return_status :=
3750: (
3751: p_workorder_rec => l_workorder_rec
3752: );
3753:
3754: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3758: END IF;
3751: p_workorder_rec => l_workorder_rec
3752: );
3753:
3754: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3758: END IF;
3759:
3752: );
3753:
3754: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3758: END IF;
3759:
3760: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3753:
3754: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3755: RAISE FND_API.G_EXC_ERROR;
3756: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3758: END IF;
3759:
3760: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3761: l_msg_count := FND_MSG_PUB.count_msg;
3760: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3761: l_msg_count := FND_MSG_PUB.count_msg;
3762: IF l_msg_count > 0 THEN
3763: x_msg_count := l_msg_count;
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3766:
3767: --Complete the EAM Workorder
3768: l_return_status :=
3770: (
3771: p_workorder_rec => l_workorder_rec
3772: );
3773:
3774: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3775: RAISE FND_API.G_EXC_ERROR;
3776: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3771: p_workorder_rec => l_workorder_rec
3772: );
3773:
3774: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3775: RAISE FND_API.G_EXC_ERROR;
3776: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3779:
3772: );
3773:
3774: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3775: RAISE FND_API.G_EXC_ERROR;
3776: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3779:
3780: --Defer the AHL Workorder
3773:
3774: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3775: RAISE FND_API.G_EXC_ERROR;
3776: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3778: END IF;
3779:
3780: --Defer the AHL Workorder
3781: l_return_status :=
3784: p_workorder_rec => l_workorder_rec,
3785: p_status_code => G_JOB_STATUS_COMPLETE
3786: );
3787:
3788: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3789: RAISE FND_API.G_EXC_ERROR;
3790: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3785: p_status_code => G_JOB_STATUS_COMPLETE
3786: );
3787:
3788: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3789: RAISE FND_API.G_EXC_ERROR;
3790: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3793:
3786: );
3787:
3788: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3789: RAISE FND_API.G_EXC_ERROR;
3790: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3793:
3794: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3787:
3788: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3789: RAISE FND_API.G_EXC_ERROR;
3790: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3793:
3794: l_workorder_rec.object_version_number := l_workorder_rec.object_version_number +1;
3795:
3802: q_msg_count => l_msg_count,
3803: q_msg_data => l_msg_data
3804: );
3805:
3806: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3807: x_msg_data := l_msg_data;
3808: x_msg_count := l_msg_count;
3809: x_return_status := FND_API.G_RET_STS_ERROR;
3810: RETURN;
3805:
3806: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3807: x_msg_data := l_msg_data;
3808: x_msg_count := l_msg_count;
3809: x_return_status := FND_API.G_RET_STS_ERROR;
3810: RETURN;
3811: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF;
3807: x_msg_data := l_msg_data;
3808: x_msg_count := l_msg_count;
3809: x_return_status := FND_API.G_RET_STS_ERROR;
3810: RETURN;
3811: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF;
3814:
3815: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3808: x_msg_count := l_msg_count;
3809: x_return_status := FND_API.G_RET_STS_ERROR;
3810: RETURN;
3811: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF;
3814:
3815: -- Re-set the API savepoint because, the wrapper_fire_action commits.
3816: SAVEPOINT defer_workorder_PVT;
3831: p_actual_date => l_workorder_rec.actual_end_date,
3832: x_counter_tbl => l_counter_tbl
3833: );
3834: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3835: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3836: RAISE FND_API.G_EXC_ERROR;
3837: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3839: END IF;
3832: x_counter_tbl => l_counter_tbl
3833: );
3834: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3835: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3836: RAISE FND_API.G_EXC_ERROR;
3837: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3839: END IF;
3840:
3833: );
3834: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3835: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3836: RAISE FND_API.G_EXC_ERROR;
3837: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3839: END IF;
3840:
3841: IF ( l_counter_tbl.COUNT > 0 ) THEN
3834: -- Bug # 6784053 (FP for Bug # 6750836) -- end
3835: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3836: RAISE FND_API.G_EXC_ERROR;
3837: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3839: END IF;
3840:
3841: IF ( l_counter_tbl.COUNT > 0 ) THEN
3842: l_return_status :=
3847: p_wip_entity_id => l_workorder_rec.wip_entity_id,
3848: p_counter_tbl => l_counter_tbl
3849: );
3850:
3851: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3852: RAISE FND_API.G_EXC_ERROR;
3853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: END IF;
3848: p_counter_tbl => l_counter_tbl
3849: );
3850:
3851: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3852: RAISE FND_API.G_EXC_ERROR;
3853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: END IF;
3856:
3849: );
3850:
3851: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3852: RAISE FND_API.G_EXC_ERROR;
3853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: END IF;
3856:
3857: -- Re-set the API savepoint because, Quality Results submission commits
3850:
3851: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3852: RAISE FND_API.G_EXC_ERROR;
3853: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3854: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3855: END IF;
3856:
3857: -- Re-set the API savepoint because, Quality Results submission commits
3858: SAVEPOINT defer_workorder_PVT;
3859: END IF;
3860: END IF;
3861:
3862: -- Perform the Commit (if requested)
3863: IF FND_API.to_boolean( p_commit ) THEN
3864: COMMIT WORK;
3865: END IF;
3866:
3867: -- Disable debug (if enabled)
3870: END IF;
3871:
3872: EXCEPTION
3873:
3874: WHEN FND_API.G_EXC_ERROR THEN
3875: ROLLBACK TO defer_workorder_PVT;
3876: x_return_status := FND_API.G_RET_STS_ERROR;
3877: FND_MSG_PUB.count_and_get
3878: (
3872: EXCEPTION
3873:
3874: WHEN FND_API.G_EXC_ERROR THEN
3875: ROLLBACK TO defer_workorder_PVT;
3876: x_return_status := FND_API.G_RET_STS_ERROR;
3877: FND_MSG_PUB.count_and_get
3878: (
3879: p_encoded => FND_API.G_FALSE,
3880: p_count => x_msg_count,
3875: ROLLBACK TO defer_workorder_PVT;
3876: x_return_status := FND_API.G_RET_STS_ERROR;
3877: FND_MSG_PUB.count_and_get
3878: (
3879: p_encoded => FND_API.G_FALSE,
3880: p_count => x_msg_count,
3881: p_data => x_msg_data
3882: );
3883:
3884: IF ( G_DEBUG = 'Y' ) THEN
3885: AHL_DEBUG_PUB.disable_debug;
3886: END IF;
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3889: ROLLBACK TO defer_workorder_PVT;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3891: FND_MSG_PUB.count_and_get
3892: (
3886: END IF;
3887:
3888: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3889: ROLLBACK TO defer_workorder_PVT;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3891: FND_MSG_PUB.count_and_get
3892: (
3893: p_encoded => FND_API.G_FALSE,
3894: p_count => x_msg_count,
3889: ROLLBACK TO defer_workorder_PVT;
3890: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3891: FND_MSG_PUB.count_and_get
3892: (
3893: p_encoded => FND_API.G_FALSE,
3894: p_count => x_msg_count,
3895: p_data => x_msg_data
3896: );
3897:
3900: END IF;
3901:
3902: WHEN OTHERS THEN
3903: ROLLBACK TO defer_workorder_PVT;
3904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3905: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3906: THEN
3907: FND_MSG_PUB.add_exc_msg
3908: (
3912: );
3913: END IF;
3914: FND_MSG_PUB.count_and_get
3915: (
3916: p_encoded => FND_API.G_FALSE,
3917: p_count => x_msg_count,
3918: p_data => x_msg_data
3919: );
3920:
3927: -- Procedure to Complete a FMP / UMP MR Instance
3928: PROCEDURE complete_mr_instance
3929: (
3930: p_api_version IN NUMBER := 1.0,
3931: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3932: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3933: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3934: p_default IN VARCHAR2 := FND_API.G_FALSE,
3935: p_module_type IN VARCHAR2 := NULL,
3928: PROCEDURE complete_mr_instance
3929: (
3930: p_api_version IN NUMBER := 1.0,
3931: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3932: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3933: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3934: p_default IN VARCHAR2 := FND_API.G_FALSE,
3935: p_module_type IN VARCHAR2 := NULL,
3936: x_return_status OUT NOCOPY VARCHAR2,
3929: (
3930: p_api_version IN NUMBER := 1.0,
3931: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3932: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3933: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3934: p_default IN VARCHAR2 := FND_API.G_FALSE,
3935: p_module_type IN VARCHAR2 := NULL,
3936: x_return_status OUT NOCOPY VARCHAR2,
3937: x_msg_count OUT NOCOPY NUMBER,
3930: p_api_version IN NUMBER := 1.0,
3931: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3932: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3933: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3934: p_default IN VARCHAR2 := FND_API.G_FALSE,
3935: p_module_type IN VARCHAR2 := NULL,
3936: x_return_status OUT NOCOPY VARCHAR2,
3937: x_msg_count OUT NOCOPY NUMBER,
3938: x_msg_data OUT NOCOPY VARCHAR2,
3970: AHL_DEBUG_PUB.enable_debug;
3971: END IF;
3972:
3973: -- Initialize API return status to success
3974: x_return_status := FND_API.G_RET_STS_SUCCESS;
3975:
3976: -- Standard Start of API savepoint
3977: SAVEPOINT complete_mr_instance_PVT;
3978:
3976: -- Standard Start of API savepoint
3977: SAVEPOINT complete_mr_instance_PVT;
3978:
3979: -- Initialize message list if p_init_msg_list is set to TRUE.
3980: IF FND_API.to_boolean( p_init_msg_list ) THEN
3981: FND_MSG_PUB.initialize;
3982: END IF;
3983:
3984: -- Validate all the inputs of the API
3987: (
3988: p_mr_rec => p_x_mr_rec
3989: );
3990:
3991: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3988: p_mr_rec => p_x_mr_rec
3989: );
3990:
3991: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3996:
3989: );
3990:
3991: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3996:
3997: -- default missing attributes of the input MR Instance Record
3990:
3991: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
3992: RAISE FND_API.G_EXC_ERROR;
3993: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3995: END IF;
3996:
3997: -- default missing attributes of the input MR Instance Record
3998: l_return_status :=
4000: (
4001: p_x_mr_rec => p_x_mr_rec
4002: );
4003:
4004: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4005: RAISE FND_API.G_EXC_ERROR;
4006: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: END IF;
4001: p_x_mr_rec => p_x_mr_rec
4002: );
4003:
4004: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4005: RAISE FND_API.G_EXC_ERROR;
4006: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: END IF;
4009:
4002: );
4003:
4004: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4005: RAISE FND_API.G_EXC_ERROR;
4006: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: END IF;
4009:
4010: IF ( G_DEBUG = 'Y' ) THEN
4003:
4004: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4005: RAISE FND_API.G_EXC_ERROR;
4006: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4008: END IF;
4009:
4010: IF ( G_DEBUG = 'Y' ) THEN
4011: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' Inputs:' );
4030: p_mr_status => p_x_mr_rec.ue_status,
4031: p_mr_title => p_x_mr_rec.mr_title
4032: );
4033:
4034: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4035: RAISE FND_API.G_EXC_ERROR;
4036: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END IF;
4031: p_mr_title => p_x_mr_rec.mr_title
4032: );
4033:
4034: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4035: RAISE FND_API.G_EXC_ERROR;
4036: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END IF;
4039:
4032: );
4033:
4034: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4035: RAISE FND_API.G_EXC_ERROR;
4036: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END IF;
4039:
4040: -- Check if the MR/SR Instance is complete
4033:
4034: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4035: RAISE FND_API.G_EXC_ERROR;
4036: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END IF;
4039:
4040: -- Check if the MR/SR Instance is complete
4041: l_return_status:=
4048: p_qa_plan_id => p_x_mr_rec.qa_plan_id,
4049: p_qa_collection_id => p_x_mr_rec.qa_collection_id
4050: );
4051:
4052: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4053: RAISE FND_API.G_EXC_ERROR;
4054: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4056: END IF;
4049: p_qa_collection_id => p_x_mr_rec.qa_collection_id
4050: );
4051:
4052: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4053: RAISE FND_API.G_EXC_ERROR;
4054: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4056: END IF;
4057:
4050: );
4051:
4052: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4053: RAISE FND_API.G_EXC_ERROR;
4054: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4056: END IF;
4057:
4058: -- Check if all Child MR Instances are complete
4051:
4052: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4053: RAISE FND_API.G_EXC_ERROR;
4054: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4056: END IF;
4057:
4058: -- Check if all Child MR Instances are complete
4059: l_return_status :=
4061: (
4062: p_mr_rec => p_x_mr_rec
4063: );
4064:
4065: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4066: RAISE FND_API.G_EXC_ERROR;
4067: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4069: END IF;
4062: p_mr_rec => p_x_mr_rec
4063: );
4064:
4065: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4066: RAISE FND_API.G_EXC_ERROR;
4067: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4069: END IF;
4070:
4063: );
4064:
4065: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4066: RAISE FND_API.G_EXC_ERROR;
4067: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4069: END IF;
4070:
4071: IF ( G_DEBUG = 'Y' ) THEN
4064:
4065: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4066: RAISE FND_API.G_EXC_ERROR;
4067: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4069: END IF;
4070:
4071: IF ( G_DEBUG = 'Y' ) THEN
4072: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || 'Getting Reset Counters' );
4084: x_counter_tbl => l_reset_counter_tbl
4085: );
4086: END IF;
4087:
4088: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4089: RAISE FND_API.G_EXC_ERROR;
4090: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4092: END IF;
4085: );
4086: END IF;
4087:
4088: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4089: RAISE FND_API.G_EXC_ERROR;
4090: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4092: END IF;
4093:
4086: END IF;
4087:
4088: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4089: RAISE FND_API.G_EXC_ERROR;
4090: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4092: END IF;
4093:
4094: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
4087:
4088: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4089: RAISE FND_API.G_EXC_ERROR;
4090: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4092: END IF;
4093:
4094: IF ( l_reset_counter_tbl IS NOT NULL AND l_reset_counter_tbl.COUNT > 0 ) THEN
4095:
4107: x_msg_count => l_msg_count,
4108: x_msg_data => l_msg_data
4109: );
4110:
4111: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4112: IF ( l_msg_data IS NOT NULL ) THEN
4113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4114: x_msg_count := l_msg_count;
4115: x_msg_data := l_msg_data;
4109: );
4110:
4111: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4112: IF ( l_msg_data IS NOT NULL ) THEN
4113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4114: x_msg_count := l_msg_count;
4115: x_msg_data := l_msg_data;
4116: RETURN;
4117: END IF;
4114: x_msg_count := l_msg_count;
4115: x_msg_data := l_msg_data;
4116: RETURN;
4117: END IF;
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: x_msg_data := l_msg_data;
4116: RETURN;
4117: END IF;
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: END IF;
4116: RETURN;
4117: END IF;
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: END IF;
4124:
4137: p_actual_date => p_x_mr_rec.actual_end_date,
4138: x_counter_tbl => l_counter_tbl
4139: );
4140: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4142: RAISE FND_API.G_EXC_ERROR;
4143: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4145: END IF;
4138: x_counter_tbl => l_counter_tbl
4139: );
4140: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4142: RAISE FND_API.G_EXC_ERROR;
4143: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4145: END IF;
4146:
4139: );
4140: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4142: RAISE FND_API.G_EXC_ERROR;
4143: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4145: END IF;
4146:
4147: /* Removed for Bug 3310304
4140: -- Bug # 6784053 (FP for Bug # 6750836) -- end
4141: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4142: RAISE FND_API.G_EXC_ERROR;
4143: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4145: END IF;
4146:
4147: /* Removed for Bug 3310304
4148: IF ( l_counter_tbl.COUNT > 0 ) THEN
4163: x_msg_count => l_msg_count,
4164: x_msg_data => l_msg_data
4165: );
4166:
4167: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4168: IF ( l_msg_data IS NOT NULL ) THEN
4169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4170: x_msg_count := l_msg_count;
4171: x_msg_data := l_msg_data;
4165: );
4166:
4167: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4168: IF ( l_msg_data IS NOT NULL ) THEN
4169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4170: x_msg_count := l_msg_count;
4171: x_msg_data := l_msg_data;
4172: RETURN;
4173: END IF;
4170: x_msg_count := l_msg_count;
4171: x_msg_data := l_msg_data;
4172: RETURN;
4173: END IF;
4174: RAISE FND_API.G_EXC_ERROR;
4175: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4177: END IF;
4178:
4171: x_msg_data := l_msg_data;
4172: RETURN;
4173: END IF;
4174: RAISE FND_API.G_EXC_ERROR;
4175: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4177: END IF;
4178:
4179: /* Removed for Bug 3310304
4172: RETURN;
4173: END IF;
4174: RAISE FND_API.G_EXC_ERROR;
4175: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4177: END IF;
4178:
4179: /* Removed for Bug 3310304
4180: END IF;
4212: 'return status after calling complete_master_wo: ' || l_mwo_return_status
4213: );
4214: END IF;
4215:
4216: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4217: RAISE FND_API.G_EXC_ERROR;
4218: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220: END IF;
4213: );
4214: END IF;
4215:
4216: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4217: RAISE FND_API.G_EXC_ERROR;
4218: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220: END IF;
4221:
4214: END IF;
4215:
4216: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4217: RAISE FND_API.G_EXC_ERROR;
4218: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220: END IF;
4221:
4222: -- Additional logic added in 11.5.10 for QA Collection
4215:
4216: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
4217: RAISE FND_API.G_EXC_ERROR;
4218: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220: END IF;
4221:
4222: -- Additional logic added in 11.5.10 for QA Collection
4223: IF ( p_x_mr_rec.qa_collection_id IS NOT NULL AND
4220: END IF;
4221:
4222: -- Additional logic added in 11.5.10 for QA Collection
4223: IF ( p_x_mr_rec.qa_collection_id IS NOT NULL AND
4224: FND_API.to_boolean( p_commit ) ) THEN
4225:
4226: QA_SS_RESULTS.wrapper_fire_action
4227: (
4228: q_collection_id => p_x_mr_rec.qa_collection_id,
4230: q_msg_count => l_msg_count,
4231: q_msg_data => l_msg_data
4232: );
4233:
4234: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4236: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4237: FND_MSG_PUB.add;
4238: RAISE FND_API.G_EXC_ERROR;
4234: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4236: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4237: FND_MSG_PUB.add;
4238: RAISE FND_API.G_EXC_ERROR;
4239: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4242:
4235: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_ERROR' );
4236: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4237: FND_MSG_PUB.add;
4238: RAISE FND_API.G_EXC_ERROR;
4239: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4242:
4243: -- Re-establish the save point because the QA API Commits
4236: FND_MESSAGE.set_token( 'MAINT_REQ', p_x_mr_rec.mr_title);
4237: FND_MSG_PUB.add;
4238: RAISE FND_API.G_EXC_ERROR;
4239: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4242:
4243: -- Re-establish the save point because the QA API Commits
4244: IF FND_API.to_boolean( p_commit ) THEN
4240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4241: END IF;
4242:
4243: -- Re-establish the save point because the QA API Commits
4244: IF FND_API.to_boolean( p_commit ) THEN
4245: SAVEPOINT complete_mr_instance_PVT;
4246: END IF;
4247:
4248: END IF;
4256:
4257: complete_mr_instance
4258: (
4259: p_api_version => 1.0,
4260: p_init_msg_list => FND_API.G_TRUE,
4261: p_commit => p_commit,
4262: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4263: p_default => FND_API.G_FALSE,
4264: p_module_type => NULL,
4258: (
4259: p_api_version => 1.0,
4260: p_init_msg_list => FND_API.G_TRUE,
4261: p_commit => p_commit,
4262: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4263: p_default => FND_API.G_FALSE,
4264: p_module_type => NULL,
4265: x_return_status => l_return_status,
4266: x_msg_count => l_msg_count,
4259: p_api_version => 1.0,
4260: p_init_msg_list => FND_API.G_TRUE,
4261: p_commit => p_commit,
4262: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4263: p_default => FND_API.G_FALSE,
4264: p_module_type => NULL,
4265: x_return_status => l_return_status,
4266: x_msg_count => l_msg_count,
4267: x_msg_data => l_msg_data,
4268: p_x_mr_rec => l_parent_mr_rec
4269: );
4270:
4271: -- Abort for Unexpected errors, but, continue for other errors.
4272: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4273: IF ( G_DEBUG = 'Y' ) THEN
4274: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
4275: ||' : Could Not Complete Parent MR Instance with UE : '
4276: ||TO_CHAR( parent_csr.unit_effectivity_id )
4279: FOR I IN 1..l_msg_count LOOP
4280: FND_MSG_PUB.get
4281: (
4282: p_msg_index => i,
4283: p_encoded => FND_API.G_FALSE,
4284: p_data => l_msg_data,
4285: p_msg_index_out => l_msg_index_out
4286: );
4287:
4289: END LOOP;
4290: END IF;
4291:
4292: -- Initialize message list since errors are not reported
4293: IF FND_API.to_boolean( p_init_msg_list ) THEN
4294: FND_MSG_PUB.initialize;
4295: END IF;
4296:
4297: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4293: IF FND_API.to_boolean( p_init_msg_list ) THEN
4294: FND_MSG_PUB.initialize;
4295: END IF;
4296:
4297: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4298: x_return_status := l_return_status;
4299: x_msg_data := l_msg_data;
4300: x_msg_count := l_msg_count;
4301: RETURN;
4304: 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...' );
4305: END IF;
4306:
4307: -- Re-establish the save point because the complete_mr_instance Commits
4308: IF FND_API.to_boolean( p_commit ) THEN
4309: SAVEPOINT complete_mr_instance_PVT;
4310: END IF;
4311:
4312: END IF;
4312: END IF;
4313: END LOOP;
4314:
4315: -- Perform the Commit (if requested)
4316: IF FND_API.to_boolean( p_commit ) THEN
4317: COMMIT WORK;
4318: END IF;
4319:
4320: -- Disable debug (if enabled)
4323: END IF;
4324:
4325: EXCEPTION
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: ROLLBACK TO complete_mr_instance_PVT;
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330: FND_MSG_PUB.count_and_get
4331: (
4325: EXCEPTION
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: ROLLBACK TO complete_mr_instance_PVT;
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330: FND_MSG_PUB.count_and_get
4331: (
4332: p_encoded => FND_API.G_FALSE,
4333: p_count => x_msg_count,
4328: ROLLBACK TO complete_mr_instance_PVT;
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330: FND_MSG_PUB.count_and_get
4331: (
4332: p_encoded => FND_API.G_FALSE,
4333: p_count => x_msg_count,
4334: p_data => x_msg_data
4335: );
4336:
4337: IF ( G_DEBUG = 'Y' ) THEN
4338: AHL_DEBUG_PUB.disable_debug;
4339: END IF;
4340:
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4342: ROLLBACK TO complete_mr_instance_PVT;
4343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4344: FND_MSG_PUB.count_and_get
4345: (
4339: END IF;
4340:
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4342: ROLLBACK TO complete_mr_instance_PVT;
4343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4344: FND_MSG_PUB.count_and_get
4345: (
4346: p_encoded => FND_API.G_FALSE,
4347: p_count => x_msg_count,
4342: ROLLBACK TO complete_mr_instance_PVT;
4343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4344: FND_MSG_PUB.count_and_get
4345: (
4346: p_encoded => FND_API.G_FALSE,
4347: p_count => x_msg_count,
4348: p_data => x_msg_data
4349: );
4350:
4353: END IF;
4354:
4355: WHEN OTHERS THEN
4356: ROLLBACK TO complete_mr_instance_PVT;
4357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4358: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4359: THEN
4360: FND_MSG_PUB.add_exc_msg
4361: (
4365: );
4366: END IF;
4367: FND_MSG_PUB.count_and_get
4368: (
4369: p_encoded => FND_API.G_FALSE,
4370: p_count => x_msg_count,
4371: p_data => x_msg_data
4372: );
4373:
4599:
4600: BEGIN
4601:
4602: IF ( p_unit_effectivity_id IS NULL OR
4603: p_unit_effectivity_id = FND_API.G_MISS_NUM ) THEN
4604: RETURN NULL;
4605: END IF;
4606:
4607: -- check unit effectivity status first
4809: IS
4810:
4811: BEGIN
4812:
4813: IF ( p_signoff_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
4814: p_signoff_mr_rec.unit_effectivity_id IS NULL OR
4815: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4816: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4817: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4811: BEGIN
4812:
4813: IF ( p_signoff_mr_rec.unit_effectivity_id = FND_API.G_MISS_NUM OR
4814: p_signoff_mr_rec.unit_effectivity_id IS NULL OR
4815: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4816: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4817: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4818: FND_MSG_PUB.add;
4819: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4815: p_signoff_mr_rec.object_version_number = FND_API.G_MISS_NUM OR
4816: p_signoff_mr_rec.object_version_number IS NULL ) THEN
4817: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SMRI_INPUTS' );
4818: FND_MSG_PUB.add;
4819: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4820: END IF;
4821:
4822: IF ( p_signoff_mr_rec.signoff_child_mrs_flag IS NULL OR
4823: p_signoff_mr_rec.signoff_child_mrs_flag = FND_API.G_MISS_CHAR OR
4819: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4820: END IF;
4821:
4822: IF ( p_signoff_mr_rec.signoff_child_mrs_flag IS NULL OR
4823: p_signoff_mr_rec.signoff_child_mrs_flag = FND_API.G_MISS_CHAR OR
4824: ( p_signoff_mr_rec.signoff_child_mrs_flag <> 'Y' AND
4825: p_signoff_mr_rec.signoff_child_mrs_flag <> 'N' ) ) THEN
4826: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4827: FND_MSG_PUB.add;
4824: ( p_signoff_mr_rec.signoff_child_mrs_flag <> 'Y' AND
4825: p_signoff_mr_rec.signoff_child_mrs_flag <> 'N' ) ) THEN
4826: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4827: FND_MSG_PUB.add;
4828: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4829: END IF;
4830:
4831: IF ( p_signoff_mr_rec.complete_job_ops_flag IS NULL OR
4832: p_signoff_mr_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4828: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4829: END IF;
4830:
4831: IF ( p_signoff_mr_rec.complete_job_ops_flag IS NULL OR
4832: p_signoff_mr_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4833: ( p_signoff_mr_rec.complete_job_ops_flag <> 'Y' AND
4834: p_signoff_mr_rec.complete_job_ops_flag <> 'N' ) ) THEN
4835: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4836: FND_MSG_PUB.add;
4833: ( p_signoff_mr_rec.complete_job_ops_flag <> 'Y' AND
4834: p_signoff_mr_rec.complete_job_ops_flag <> 'N' ) ) THEN
4835: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4836: FND_MSG_PUB.add;
4837: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4838: END IF;
4839:
4840: IF ( p_signoff_mr_rec.transact_resource_flag IS NULL OR
4841: p_signoff_mr_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4837: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4838: END IF;
4839:
4840: IF ( p_signoff_mr_rec.transact_resource_flag IS NULL OR
4841: p_signoff_mr_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4842: ( p_signoff_mr_rec.transact_resource_flag <> 'Y' AND
4843: p_signoff_mr_rec.transact_resource_flag <> 'N' ) ) THEN
4844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4845: FND_MSG_PUB.add;
4842: ( p_signoff_mr_rec.transact_resource_flag <> 'Y' AND
4843: p_signoff_mr_rec.transact_resource_flag <> 'N' ) ) THEN
4844: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4845: FND_MSG_PUB.add;
4846: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4847: END IF;
4848:
4849: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4850: ( p_signoff_mr_rec.default_actual_dates_flag IS NULL OR
4847: END IF;
4848:
4849: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4850: ( p_signoff_mr_rec.default_actual_dates_flag IS NULL OR
4851: p_signoff_mr_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
4852: ( p_signoff_mr_rec.default_actual_dates_flag <> 'Y' AND
4853: p_signoff_mr_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
4854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
4855: FND_MSG_PUB.add;
4852: ( p_signoff_mr_rec.default_actual_dates_flag <> 'Y' AND
4853: p_signoff_mr_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
4854: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
4855: FND_MSG_PUB.add;
4856: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4857: END IF;
4858:
4859: IF ( p_signoff_mr_rec.transact_resource_flag = 'Y' AND
4860: ( p_signoff_mr_rec.employee_number IS NULL OR
4857: END IF;
4858:
4859: IF ( p_signoff_mr_rec.transact_resource_flag = 'Y' AND
4860: ( p_signoff_mr_rec.employee_number IS NULL OR
4861: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) AND
4862: ( p_signoff_mr_rec.serial_number IS NULL OR
4863: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
4864: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
4865: FND_MSG_PUB.add;
4859: IF ( p_signoff_mr_rec.transact_resource_flag = 'Y' AND
4860: ( p_signoff_mr_rec.employee_number IS NULL OR
4861: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) AND
4862: ( p_signoff_mr_rec.serial_number IS NULL OR
4863: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
4864: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
4865: FND_MSG_PUB.add;
4866: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4867: END IF;
4862: ( p_signoff_mr_rec.serial_number IS NULL OR
4863: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
4864: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
4865: FND_MSG_PUB.add;
4866: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4867: END IF;
4868:
4869: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4870: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4868:
4869: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4870: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4871: ( p_signoff_mr_rec.actual_start_date IS NULL OR
4872: p_signoff_mr_rec.actual_start_date = FND_API.G_MISS_DATE OR
4873: p_signoff_mr_rec.actual_end_date IS NULL OR
4874: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
4875: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
4876: FND_MSG_PUB.add;
4870: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4871: ( p_signoff_mr_rec.actual_start_date IS NULL OR
4872: p_signoff_mr_rec.actual_start_date = FND_API.G_MISS_DATE OR
4873: p_signoff_mr_rec.actual_end_date IS NULL OR
4874: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
4875: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
4876: FND_MSG_PUB.add;
4877: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4878: END IF;
4873: p_signoff_mr_rec.actual_end_date IS NULL OR
4874: p_signoff_mr_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
4875: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
4876: FND_MSG_PUB.add;
4877: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4878: END IF;
4879:
4880: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4881: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4881: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4882: p_signoff_mr_rec.actual_end_date < p_signoff_mr_rec.actual_start_date ) THEN
4883: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
4884: FND_MSG_PUB.add;
4885: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4886: END IF;
4887:
4888: IF ( p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND
4889: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4889: p_signoff_mr_rec.default_actual_dates_flag = 'N' AND
4890: p_signoff_mr_rec.actual_end_date > SYSDATE ) THEN
4891: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
4892: FND_MSG_PUB.add;
4893: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4894: END IF;
4895:
4896: RETURN FND_API.G_RET_STS_SUCCESS;
4897: END validate_smri_inputs;
4892: FND_MSG_PUB.add;
4893: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4894: END IF;
4895:
4896: RETURN FND_API.G_RET_STS_SUCCESS;
4897: END validate_smri_inputs;
4898:
4899: -- Function to validate the Inputs of the close_visit API
4900: FUNCTION validate_cv_inputs
4930: -- ACL Changes
4931:
4932: BEGIN
4933:
4934: IF ( p_close_visit_rec.visit_id = FND_API.G_MISS_NUM OR
4935: p_close_visit_rec.visit_id IS NULL OR
4936: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
4937: p_close_visit_rec.object_version_number IS NULL ) THEN
4938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
4932: BEGIN
4933:
4934: IF ( p_close_visit_rec.visit_id = FND_API.G_MISS_NUM OR
4935: p_close_visit_rec.visit_id IS NULL OR
4936: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
4937: p_close_visit_rec.object_version_number IS NULL ) THEN
4938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
4939: FND_MSG_PUB.add;
4940: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4936: p_close_visit_rec.object_version_number = FND_API.G_MISS_NUM OR
4937: p_close_visit_rec.object_version_number IS NULL ) THEN
4938: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_CV_INPUTS' );
4939: FND_MSG_PUB.add;
4940: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4941: END IF;
4942:
4943: -- rroy
4944: -- ACL Changes
4943: -- rroy
4944: -- ACL Changes
4945: FOR wo_details IN get_wo_Details(p_close_visit_rec.visit_id) LOOP
4946: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_details.workorder_id, NULL, NULL, NULL);
4947: IF l_return_status = FND_API.G_TRUE THEN
4948: OPEN get_ue_title(wo_details.workorder_id);
4949: FETCH get_ue_title INTO l_ue_title;
4950: CLOSE get_ue_title;
4951: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
4950: CLOSE get_ue_title;
4951: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CV_UNTLCKD');
4952: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
4953: FND_MSG_PUB.ADD;
4954: RETURN FND_API.G_RET_STS_ERROR;
4955: END IF;
4956: END LOOP;
4957: -- rroy
4958: -- ACL Changes
4958: -- ACL Changes
4959:
4960:
4961: IF ( p_close_visit_rec.signoff_mrs_flag IS NULL OR
4962: p_close_visit_rec.signoff_mrs_flag = FND_API.G_MISS_CHAR OR
4963: ( p_close_visit_rec.signoff_mrs_flag <> 'Y' AND
4964: p_close_visit_rec.signoff_mrs_flag <> 'N' ) ) THEN
4965: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4966: FND_MSG_PUB.add;
4963: ( p_close_visit_rec.signoff_mrs_flag <> 'Y' AND
4964: p_close_visit_rec.signoff_mrs_flag <> 'N' ) ) THEN
4965: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_SIGNOFF_CHILD_MR_FLAG' );
4966: FND_MSG_PUB.add;
4967: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4968: END IF;
4969:
4970: IF ( p_close_visit_rec.complete_job_ops_flag IS NULL OR
4971: p_close_visit_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4967: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4968: END IF;
4969:
4970: IF ( p_close_visit_rec.complete_job_ops_flag IS NULL OR
4971: p_close_visit_rec.complete_job_ops_flag = FND_API.G_MISS_CHAR OR
4972: ( p_close_visit_rec.complete_job_ops_flag <> 'Y' AND
4973: p_close_visit_rec.complete_job_ops_flag <> 'N' ) ) THEN
4974: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4975: FND_MSG_PUB.add;
4972: ( p_close_visit_rec.complete_job_ops_flag <> 'Y' AND
4973: p_close_visit_rec.complete_job_ops_flag <> 'N' ) ) THEN
4974: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CMPL_JOB_OPS_FLAG' );
4975: FND_MSG_PUB.add;
4976: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4977: END IF;
4978:
4979: IF ( p_close_visit_rec.transact_resource_flag IS NULL OR
4980: p_close_visit_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4976: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4977: END IF;
4978:
4979: IF ( p_close_visit_rec.transact_resource_flag IS NULL OR
4980: p_close_visit_rec.transact_resource_flag = FND_API.G_MISS_CHAR OR
4981: ( p_close_visit_rec.transact_resource_flag <> 'Y' AND
4982: p_close_visit_rec.transact_resource_flag <> 'N' ) ) THEN
4983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4984: FND_MSG_PUB.add;
4981: ( p_close_visit_rec.transact_resource_flag <> 'Y' AND
4982: p_close_visit_rec.transact_resource_flag <> 'N' ) ) THEN
4983: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_FLAG' );
4984: FND_MSG_PUB.add;
4985: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4986: END IF;
4987:
4988: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
4989: ( p_close_visit_rec.default_actual_dates_flag IS NULL OR
4986: END IF;
4987:
4988: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
4989: ( p_close_visit_rec.default_actual_dates_flag IS NULL OR
4990: p_close_visit_rec.default_actual_dates_flag = FND_API.G_MISS_CHAR OR
4991: ( p_close_visit_rec.default_actual_dates_flag <> 'Y' AND
4992: p_close_visit_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
4993: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
4994: FND_MSG_PUB.add;
4991: ( p_close_visit_rec.default_actual_dates_flag <> 'Y' AND
4992: p_close_visit_rec.default_actual_dates_flag <> 'N' ) ) ) THEN
4993: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_DEFAULT_ACT_DTS_FLAG' );
4994: FND_MSG_PUB.add;
4995: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
4996: END IF;
4997:
4998: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
4999: ( p_close_visit_rec.employee_number IS NULL OR
4996: END IF;
4997:
4998: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
4999: ( p_close_visit_rec.employee_number IS NULL OR
5000: p_close_visit_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5001: ( p_close_visit_rec.serial_number IS NULL OR
5002: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5004: FND_MSG_PUB.add;
4998: IF ( p_close_visit_rec.transact_resource_flag = 'Y' AND
4999: ( p_close_visit_rec.employee_number IS NULL OR
5000: p_close_visit_rec.employee_number = FND_API.G_MISS_CHAR ) AND
5001: ( p_close_visit_rec.serial_number IS NULL OR
5002: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5004: FND_MSG_PUB.add;
5005: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5006: END IF;
5001: ( p_close_visit_rec.serial_number IS NULL OR
5002: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
5003: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_TRANSACT_RES_INPUTS' );
5004: FND_MSG_PUB.add;
5005: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5006: END IF;
5007:
5008: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5009: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5007:
5008: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5009: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5010: ( p_close_visit_rec.actual_start_date IS NULL OR
5011: p_close_visit_rec.actual_start_date = FND_API.G_MISS_DATE OR
5012: p_close_visit_rec.actual_end_date IS NULL OR
5013: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5014: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5015: FND_MSG_PUB.add;
5009: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5010: ( p_close_visit_rec.actual_start_date IS NULL OR
5011: p_close_visit_rec.actual_start_date = FND_API.G_MISS_DATE OR
5012: p_close_visit_rec.actual_end_date IS NULL OR
5013: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5014: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5015: FND_MSG_PUB.add;
5016: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5017: END IF;
5012: p_close_visit_rec.actual_end_date IS NULL OR
5013: p_close_visit_rec.actual_end_date = FND_API.G_MISS_DATE ) ) THEN
5014: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ACTUAL_DTS_MISSING' );
5015: FND_MSG_PUB.add;
5016: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5017: END IF;
5018:
5019: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5020: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5020: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5021: p_close_visit_rec.actual_end_date < p_close_visit_rec.actual_start_date ) THEN
5022: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_ST_DT_END_DT' );
5023: FND_MSG_PUB.add;
5024: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5025: END IF;
5026:
5027: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' AND
5028: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5028: p_close_visit_rec.default_actual_dates_flag = 'N' AND
5029: p_close_visit_rec.actual_end_date > SYSDATE ) THEN
5030: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_END_DT_SYSDATE' );
5031: FND_MSG_PUB.add;
5032: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5033: END IF;
5034:
5035: RETURN FND_API.G_RET_STS_SUCCESS;
5036: END validate_cv_inputs;
5031: FND_MSG_PUB.add;
5032: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5033: END IF;
5034:
5035: RETURN FND_API.G_RET_STS_SUCCESS;
5036: END validate_cv_inputs;
5037:
5038: FUNCTION update_mwo_actual_dates
5039: (
5142: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5143: FND_MESSAGE.set_token( 'START_DT',
5144: TO_CHAR( l_workorder_tbl(l_ctr).actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
5145: FND_MSG_PUB.add;
5146: RAISE FND_API.G_EXC_ERROR;
5147: END IF;
5148:
5149: -- Ensure the actual end date entered is greater than the Master Wo
5150: IF ( p_actual_end_date IS NOT NULL AND
5153: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
5154: FND_MESSAGE.set_token( 'END_DT',
5155: TO_CHAR( l_workorder_tbl(l_ctr).actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
5156: FND_MSG_PUB.add;
5157: RAISE FND_API.G_EXC_ERROR;
5158: END IF;
5159: */--End ER # 4757222
5160:
5161: IF ( G_DEBUG = 'Y' ) THEN
5178:
5179: IF ( SQL%ROWCOUNT = 0 ) THEN
5180: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5181: FND_MSG_PUB.add;
5182: RETURN FND_API.G_RET_STS_ERROR;
5183: END IF;
5184: EXCEPTION
5185: WHEN OTHERS THEN
5186: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5184: EXCEPTION
5185: WHEN OTHERS THEN
5186: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
5187: FND_MSG_PUB.add;
5188: RETURN FND_API.G_RET_STS_UNEXP_ERROR;
5189: END;
5190:
5191: ELSE
5192:
5237: actual_end_date = l_max
5238: WHERE wip_entity_id = p_wip_entity_id;
5239:
5240:
5241: RETURN FND_API.G_RET_STS_SUCCESS;
5242:
5243: END update_mwo_actual_dates;
5244:
5245: FUNCTION complete_visit_mr_wos
5336:
5337: complete_workorder
5338: (
5339: p_api_version => 1.0,
5340: p_init_msg_list => FND_API.G_FALSE,
5341: p_commit => FND_API.G_FALSE,
5342: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5343: p_default => FND_API.G_FALSE,
5344: p_module_type => NULL,
5337: complete_workorder
5338: (
5339: p_api_version => 1.0,
5340: p_init_msg_list => FND_API.G_FALSE,
5341: p_commit => FND_API.G_FALSE,
5342: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5343: p_default => FND_API.G_FALSE,
5344: p_module_type => NULL,
5345: x_return_status => l_return_status,
5338: (
5339: p_api_version => 1.0,
5340: p_init_msg_list => FND_API.G_FALSE,
5341: p_commit => FND_API.G_FALSE,
5342: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5343: p_default => FND_API.G_FALSE,
5344: p_module_type => NULL,
5345: x_return_status => l_return_status,
5346: x_msg_count => l_msg_count,
5339: p_api_version => 1.0,
5340: p_init_msg_list => FND_API.G_FALSE,
5341: p_commit => FND_API.G_FALSE,
5342: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5343: p_default => FND_API.G_FALSE,
5344: p_module_type => NULL,
5345: x_return_status => l_return_status,
5346: x_msg_count => l_msg_count,
5347: x_msg_data => l_msg_data,
5348: p_workorder_id => p_x_workorder_tbl(i).workorder_id,
5349: p_object_version_no => p_x_workorder_tbl(i).object_version_number
5350: );
5351:
5352: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5353: RETURN l_return_status;
5354: END IF;
5355:
5356: END IF;
5430: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_PARENT_WO_NOT_CMPL' );
5431: FND_MESSAGE.set_token( 'WO', p_x_workorder_tbl(i).workorder_name );
5432: FND_MESSAGE.set_token( 'PARENT_WO', l_parent_wo_tbl(j).parent_wo_name );
5433: FND_MSG_PUB.add;
5434: RETURN FND_API.G_RET_STS_ERROR;
5435: END IF; -- Hierarchy check
5436: END IF; -- First Iteration
5437: END IF; -- Parent WOs complete check
5438: END IF; -- Match Parent check
5460: -- Complete the Child Workorder
5461: complete_workorder
5462: (
5463: p_api_version => 1.0,
5464: p_init_msg_list => FND_API.G_FALSE,
5465: p_commit => FND_API.G_FALSE,
5466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5467: p_default => FND_API.G_FALSE,
5468: p_module_type => NULL,
5461: complete_workorder
5462: (
5463: p_api_version => 1.0,
5464: p_init_msg_list => FND_API.G_FALSE,
5465: p_commit => FND_API.G_FALSE,
5466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5467: p_default => FND_API.G_FALSE,
5468: p_module_type => NULL,
5469: x_return_status => l_return_status,
5462: (
5463: p_api_version => 1.0,
5464: p_init_msg_list => FND_API.G_FALSE,
5465: p_commit => FND_API.G_FALSE,
5466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5467: p_default => FND_API.G_FALSE,
5468: p_module_type => NULL,
5469: x_return_status => l_return_status,
5470: x_msg_count => l_msg_count,
5463: p_api_version => 1.0,
5464: p_init_msg_list => FND_API.G_FALSE,
5465: p_commit => FND_API.G_FALSE,
5466: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5467: p_default => FND_API.G_FALSE,
5468: p_module_type => NULL,
5469: x_return_status => l_return_status,
5470: x_msg_count => l_msg_count,
5471: x_msg_data => l_msg_data,
5472: p_workorder_id => p_x_workorder_tbl(i).workorder_id,
5473: p_object_version_no => p_x_workorder_tbl(i).object_version_number
5474: );
5475:
5476: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5477: RETURN l_return_status;
5478: END IF;
5479:
5480: -- Set the Workorder status as Complete for next iteration
5507: END LOOP; -- Match While loop of outermost Iteration
5508:
5509: END IF; -- Match Completion dependencies existence check
5510:
5511: RETURN FND_API.G_RET_STS_SUCCESS;
5512:
5513: END complete_visit_mr_wos;
5514:
5515: PROCEDURE signoff_mr_instance
5514:
5515: PROCEDURE signoff_mr_instance
5516: (
5517: p_api_version IN NUMBER := 1.0,
5518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5521: p_default IN VARCHAR2 := FND_API.G_FALSE,
5522: p_module_type IN VARCHAR2 := NULL,
5515: PROCEDURE signoff_mr_instance
5516: (
5517: p_api_version IN NUMBER := 1.0,
5518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5521: p_default IN VARCHAR2 := FND_API.G_FALSE,
5522: p_module_type IN VARCHAR2 := NULL,
5523: x_return_status OUT NOCOPY VARCHAR2,
5516: (
5517: p_api_version IN NUMBER := 1.0,
5518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5521: p_default IN VARCHAR2 := FND_API.G_FALSE,
5522: p_module_type IN VARCHAR2 := NULL,
5523: x_return_status OUT NOCOPY VARCHAR2,
5524: x_msg_count OUT NOCOPY NUMBER,
5517: p_api_version IN NUMBER := 1.0,
5518: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5519: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5520: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5521: p_default IN VARCHAR2 := FND_API.G_FALSE,
5522: p_module_type IN VARCHAR2 := NULL,
5523: x_return_status OUT NOCOPY VARCHAR2,
5524: x_msg_count OUT NOCOPY NUMBER,
5525: x_msg_data OUT NOCOPY VARCHAR2,
5935: AHL_DEBUG_PUB.enable_debug;
5936: END IF;
5937:
5938: -- Initialize API return status to success
5939: x_return_status := FND_API.G_RET_STS_SUCCESS;
5940:
5941: -- Standard Start of API savepoint
5942: SAVEPOINT signoff_mr_instance_PVT;
5943:
5941: -- Standard Start of API savepoint
5942: SAVEPOINT signoff_mr_instance_PVT;
5943:
5944: -- Initialize message list if p_init_msg_list is set to TRUE.
5945: IF FND_API.to_boolean( p_init_msg_list ) THEN
5946: FND_MSG_PUB.initialize;
5947: END IF;
5948:
5949: IF ( G_DEBUG = 'Y' ) THEN
5956: (
5957: p_signoff_mr_rec => p_signoff_mr_rec
5958: );
5959:
5960: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
5961: RAISE FND_API.G_EXC_ERROR;
5962: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5964: END IF;
5957: p_signoff_mr_rec => p_signoff_mr_rec
5958: );
5959:
5960: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
5961: RAISE FND_API.G_EXC_ERROR;
5962: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5964: END IF;
5965:
5958: );
5959:
5960: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
5961: RAISE FND_API.G_EXC_ERROR;
5962: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5964: END IF;
5965:
5966: IF ( G_DEBUG = 'Y' ) THEN
5959:
5960: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
5961: RAISE FND_API.G_EXC_ERROR;
5962: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5964: END IF;
5965:
5966: IF ( G_DEBUG = 'Y' ) THEN
5967: 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 );
5991:
5992: complete_mr_instance
5993: (
5994: p_api_version => 1.0,
5995: p_init_msg_list => FND_API.G_FALSE,
5996: p_commit => FND_API.G_TRUE,
5997: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5998: p_default => FND_API.G_FALSE,
5999: p_module_type => NULL,
5992: complete_mr_instance
5993: (
5994: p_api_version => 1.0,
5995: p_init_msg_list => FND_API.G_FALSE,
5996: p_commit => FND_API.G_TRUE,
5997: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5998: p_default => FND_API.G_FALSE,
5999: p_module_type => NULL,
6000: x_return_status => l_return_status,
5993: (
5994: p_api_version => 1.0,
5995: p_init_msg_list => FND_API.G_FALSE,
5996: p_commit => FND_API.G_TRUE,
5997: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5998: p_default => FND_API.G_FALSE,
5999: p_module_type => NULL,
6000: x_return_status => l_return_status,
6001: x_msg_count => l_msg_count,
5994: p_api_version => 1.0,
5995: p_init_msg_list => FND_API.G_FALSE,
5996: p_commit => FND_API.G_TRUE,
5997: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5998: p_default => FND_API.G_FALSE,
5999: p_module_type => NULL,
6000: x_return_status => l_return_status,
6001: x_msg_count => l_msg_count,
6002: x_msg_data => l_msg_data,
6002: x_msg_data => l_msg_data,
6003: p_x_mr_rec => l_child_mr_tbl(l_ctr)
6004: );
6005:
6006: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6007: RAISE FND_API.G_EXC_ERROR;
6008: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6010: END IF;
6003: p_x_mr_rec => l_child_mr_tbl(l_ctr)
6004: );
6005:
6006: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6007: RAISE FND_API.G_EXC_ERROR;
6008: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6010: END IF;
6011:
6004: );
6005:
6006: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6007: RAISE FND_API.G_EXC_ERROR;
6008: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6010: END IF;
6011:
6012: RETURN;
6005:
6006: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6007: RAISE FND_API.G_EXC_ERROR;
6008: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6010: END IF;
6011:
6012: RETURN;
6013:
6037: IF ( get_ue_details%NOTFOUND ) THEN
6038: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_REC_NOT_FOUND' );
6039: FND_MSG_PUB.add;
6040: CLOSE get_ue_details;
6041: RAISE FND_API.G_EXC_ERROR;
6042: END IF;
6043:
6044: CLOSE get_ue_details;
6045:
6046: -- Validate Object Version Number
6047: IF ( l_mr_rec.ue_object_version_number <> p_signoff_mr_rec.object_version_number ) THEN
6048: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
6049: FND_MSG_PUB.add;
6050: RAISE FND_API.G_EXC_ERROR;
6051: END IF;
6052:
6053: -- Check if this MR is already signed off
6054: IF ( l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF ) THEN
6081: p_qa_plan_id => l_mr_rec.ue_qa_plan_id,
6082: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
6083: );
6084:
6085: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6086: RAISE FND_API.G_EXC_ERROR;
6087: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6089: END IF;
6082: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
6083: );
6084:
6085: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6086: RAISE FND_API.G_EXC_ERROR;
6087: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6089: END IF;
6090:
6083: );
6084:
6085: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6086: RAISE FND_API.G_EXC_ERROR;
6087: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6089: END IF;
6090:
6091: IF ( G_DEBUG = 'Y' ) THEN
6084:
6085: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6086: RAISE FND_API.G_EXC_ERROR;
6087: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6089: END IF;
6090:
6091: IF ( G_DEBUG = 'Y' ) THEN
6092: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Before Processing Child UEs' );
6143: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
6144: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6145: );
6146:
6147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6148: RAISE FND_API.G_EXC_ERROR;
6149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6151: END IF;*/
6144: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6145: );
6146:
6147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6148: RAISE FND_API.G_EXC_ERROR;
6149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6151: END IF;*/
6152:
6145: );
6146:
6147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6148: RAISE FND_API.G_EXC_ERROR;
6149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6151: END IF;*/
6152:
6153: -- Store the Child UEs in a table of records for Signing off
6146:
6147: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6148: RAISE FND_API.G_EXC_ERROR;
6149: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6151: END IF;*/
6152:
6153: -- Store the Child UEs in a table of records for Signing off
6154: IF ( NVL(l_child_ue_tbl(l_ue_count).ump_status_code,'X') <> NVL(G_MR_STATUS_SIGNED_OFF,'Y') ) THEN
6174: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
6175: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6176: );
6177:
6178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6179: RAISE FND_API.G_EXC_ERROR;
6180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6182: END IF;
6175: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
6176: );
6177:
6178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6179: RAISE FND_API.G_EXC_ERROR;
6180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6182: END IF;
6183:
6176: );
6177:
6178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6179: RAISE FND_API.G_EXC_ERROR;
6180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6182: END IF;
6183:
6184: IF ( G_DEBUG = 'Y' ) THEN
6177:
6178: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6179: RAISE FND_API.G_EXC_ERROR;
6180: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6182: END IF;
6183:
6184: IF ( G_DEBUG = 'Y' ) THEN
6185: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
6208: ) THEN
6209: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_CHILD_MRS_NOT_COMPL' );
6210: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6211: FND_MSG_PUB.add;
6212: RAISE FND_API.G_EXC_ERROR;
6213: END IF;
6214: END IF;
6215: END LOOP;
6216: END IF;
6243: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6244: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6245: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6246: FND_MSG_PUB.add;
6247: RAISE FND_API.G_EXC_ERROR;
6248: END IF;
6249:
6250: -- Validate if the actual end dates entered is greater than any WO
6251: IF ( wo_csr.actual_end_date IS NOT NULL AND
6253: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6254: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6255: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6256: FND_MSG_PUB.add;
6257: RAISE FND_API.G_EXC_ERROR;
6258: END IF;
6259:
6260: END IF; -- Check Input Dates are required
6261: */--End ER # 4757222
6267:
6268: -- rroy
6269: -- ACL Changes
6270: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(wo_csr.workorder_id, NULL, NULL, NULL);
6271: IF l_return_status = FND_API.G_TRUE THEN
6272: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6273: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6274: FND_MSG_PUB.ADD;
6275: RAISE FND_API.G_EXC_ERROR;
6271: IF l_return_status = FND_API.G_TRUE THEN
6272: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_SM_UNTLCKD');
6273: FND_MESSAGE.Set_Token('MR_TITLE', l_mr_rec.ue_title);
6274: FND_MSG_PUB.ADD;
6275: RAISE FND_API.G_EXC_ERROR;
6276: END IF;
6277: --nsikka
6278: --Changes made for Bug 5324101 .
6279: --tokens passed changed to MR_TITLE
6300: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
6301: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6302: FND_MESSAGE.set_token( 'STATUS', l_job_status_meaning );
6303: FND_MSG_PUB.add;
6304: RAISE FND_API.G_EXC_ERROR;
6305: END IF;
6306:
6307: -- Validate whether Quality Results are Submitted
6308: IF ( wo_csr.plan_id IS NOT NULL AND
6309: wo_csr.collection_id IS NULL ) THEN
6310: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6311: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6312: FND_MSG_PUB.add;
6313: RAISE FND_API.G_EXC_ERROR;
6314: END IF;
6315:
6316: -- Add the Workorder in the Workorder Records for Completion
6317: l_ctr := l_ctr + 1;
6345: IF ( wo_csr.actual_start_date IS NULL ) THEN
6346: -- R12
6347: -- Actual dates are no longer defaulted from scheduled dates
6348: -- They are defaulted in the Completions API to the res txn dates
6349: -- if p_default flag is passed as FND_API.G_TRUE
6350: /*IF ( p_signoff_mr_rec.default_actual_dates_flag = 'Y' ) THEN
6351: -- Update Actual Date with Scheduled Date
6352: l_workorder_tbl(l_ctr).actual_start_date := wo_csr.scheduled_start_date;
6353: ELSE
6368: IF ( wo_csr.actual_end_date IS NULL ) THEN
6369: -- R12
6370: -- Actual dates are no longer defaulted from scheduled dates
6371: -- They are defaulted in the Completions API to the res txn dates
6372: -- if p_default flag is passed as FND_API.G_TRUE
6373:
6374: /*IF ( p_signoff_mr_rec.default_actual_dates_flag = 'Y' ) THEN
6375: -- Update Actual Date with Scheduled Date
6376: l_workorder_tbl(l_ctr).actual_end_date := LEAST( SYSDATE , wo_csr.scheduled_end_date );
6421: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MR_WO_NOT_CMPL' );
6422: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6423: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
6424: FND_MSG_PUB.add;
6425: RAISE FND_API.G_EXC_ERROR;
6426: END IF;
6427: END IF; -- Check Complete Workorder Flag
6428:
6429: END LOOP; -- Iterate all MR Workorders
6443: l_mr_rec.wo_collection_id IS NULL ) THEN
6444: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
6445: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6446: FND_MSG_PUB.add;
6447: RAISE FND_API.G_EXC_ERROR;
6448: END IF;
6449:
6450: -- Add the UE Master WO to the Workorder Table of Records
6451: l_ctr := l_ctr + 1;
6471: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
6472: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6473: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_mr_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
6474: FND_MSG_PUB.add;
6475: RAISE FND_API.G_EXC_ERROR;
6476: END IF;
6477:
6478: -- Validate if the actual end dates entered is greater than any WO
6479: IF ( l_mr_rec.actual_end_date IS NOT NULL AND
6481: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
6482: FND_MESSAGE.set_token( 'WO_NAME', l_mr_rec.workorder_name );
6483: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_mr_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
6484: FND_MSG_PUB.add;
6485: RAISE FND_API.G_EXC_ERROR;
6486: END IF;
6487:
6488: END IF; -- Check Input Dates are required
6489: */--End ER # 4757222
6495: IF ( l_mr_rec.actual_start_date IS NULL ) THEN
6496: -- R12
6497: -- Actual dates are no longer defaulted from scheduled dates
6498: -- They are defaulted in the Completions API to the res txn dates
6499: -- if p_default flag is passed as FND_API.G_TRUE
6500:
6501: /*IF ( p_signoff_mr_rec.default_actual_dates_flag = 'Y' ) THEN
6502: -- Update Actual Date with Scheduled Date
6503: l_workorder_tbl(l_ctr).actual_start_date := l_mr_rec.scheduled_start_date;
6560:
6561: -- Validate if Equipment is entered for Machine Type Resource
6562: IF ( res_csr.resource_type = 1 AND
6563: ( p_signoff_mr_rec.serial_number IS NULL OR
6564: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6565: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6566: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6567: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6568: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6566: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6567: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6568: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6569: FND_MSG_PUB.add;
6570: RAISE FND_API.G_EXC_ERROR;
6571: END IF;
6572:
6573: -- Validate if Technicain is entered for Person Type Resource
6574: IF ( res_csr.resource_type = 2 AND
6572:
6573: -- Validate if Technicain is entered for Person Type Resource
6574: IF ( res_csr.resource_type = 2 AND
6575: ( p_signoff_mr_rec.employee_number IS NULL OR
6576: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6577: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6578: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6579: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6580: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6578: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
6579: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
6580: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
6581: FND_MSG_PUB.add;
6582: RAISE FND_API.G_EXC_ERROR;
6583: END IF;
6584:
6585: -- Add the Resource Requirement in a Table for processing transactions
6586: l_ctr := l_ctr + 1;
6613:
6614: -- Validate if Equipment is entered for Machine Type Resource
6615: IF ( unass_res_csr.resource_type = 1 AND
6616: ( p_signoff_mr_rec.serial_number IS NULL OR
6617: p_signoff_mr_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
6618: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
6619: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6620: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6621: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6619: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6620: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6621: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6622: FND_MSG_PUB.add;
6623: RAISE FND_API.G_EXC_ERROR;
6624: END IF;
6625:
6626: -- Validate if Technicain is entered for Person Type Resource
6627: IF ( unass_res_csr.resource_type = 2 AND
6625:
6626: -- Validate if Technicain is entered for Person Type Resource
6627: IF ( unass_res_csr.resource_type = 2 AND
6628: ( p_signoff_mr_rec.employee_number IS NULL OR
6629: p_signoff_mr_rec.employee_number = FND_API.G_MISS_CHAR ) ) THEN
6630: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
6631: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6632: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6633: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6631: FND_MESSAGE.set_token( 'WO_NAME', unass_res_csr.workorder_name );
6632: FND_MESSAGE.set_token( 'OP_SEQ', unass_res_csr.operation_seq_num );
6633: FND_MESSAGE.set_token( 'RES_SEQ', unass_res_csr.resource_seq_num );
6634: FND_MSG_PUB.add;
6635: RAISE FND_API.G_EXC_ERROR;
6636: END IF;
6637:
6638: -- Add the Resource Requirement in a Table for processing transactions
6639: l_ctr := l_ctr + 1;
6684: WHEN no_data_found THEN
6685: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
6686: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
6687: FND_MSG_PUB.add;
6688: RAISE FND_API.G_EXC_ERROR;
6689: END;
6690:
6691: /*IF ( SQL%NOTFOUND ) THEN
6692: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
6691: /*IF ( SQL%NOTFOUND ) THEN
6692: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
6693: FND_MESSAGE.set_token( 'EMP_NUM', p_signoff_mr_rec.employee_number );
6694: FND_MSG_PUB.add;
6695: RAISE FND_API.G_EXC_ERROR;
6696: END IF;*/
6697:
6698: -- Process all Resource Requirements
6699: FOR i IN l_resource_req_tbl.FIRST..l_resource_req_tbl.LAST LOOP
6808: /*
6809: AHL_WIP_JOB_PVT.insert_resource_txn
6810: (
6811: p_api_version => 1.0,
6812: p_init_msg_list => FND_API.G_FALSE,
6813: p_commit => FND_API.G_FALSE,
6814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6815: x_return_status => l_return_status,
6816: x_msg_count => l_msg_count,
6809: AHL_WIP_JOB_PVT.insert_resource_txn
6810: (
6811: p_api_version => 1.0,
6812: p_init_msg_list => FND_API.G_FALSE,
6813: p_commit => FND_API.G_FALSE,
6814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6815: x_return_status => l_return_status,
6816: x_msg_count => l_msg_count,
6817: x_msg_data => l_msg_data,
6810: (
6811: p_api_version => 1.0,
6812: p_init_msg_list => FND_API.G_FALSE,
6813: p_commit => FND_API.G_FALSE,
6814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6815: x_return_status => l_return_status,
6816: x_msg_count => l_msg_count,
6817: x_msg_data => l_msg_data,
6818: p_ahl_res_txn_tbl => l_res_txn_tbl
6821:
6822: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
6823: (
6824: p_api_version => 1.0,
6825: p_init_msg_list => FND_API.G_FALSE,
6826: p_commit => FND_API.G_FALSE,
6827: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6828: x_return_status => l_return_status,
6829: x_msg_count => l_msg_count,
6822: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
6823: (
6824: p_api_version => 1.0,
6825: p_init_msg_list => FND_API.G_FALSE,
6826: p_commit => FND_API.G_FALSE,
6827: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6828: x_return_status => l_return_status,
6829: x_msg_count => l_msg_count,
6830: x_msg_data => l_msg_data,
6823: (
6824: p_api_version => 1.0,
6825: p_init_msg_list => FND_API.G_FALSE,
6826: p_commit => FND_API.G_FALSE,
6827: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6828: x_return_status => l_return_status,
6829: x_msg_count => l_msg_count,
6830: x_msg_data => l_msg_data,
6831: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
6830: x_msg_data => l_msg_data,
6831: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
6832: );
6833:
6834: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6835: RAISE FND_API.G_EXC_ERROR;
6836: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6838: END IF;
6831: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
6832: );
6833:
6834: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6835: RAISE FND_API.G_EXC_ERROR;
6836: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6838: END IF;
6839:
6832: );
6833:
6834: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6835: RAISE FND_API.G_EXC_ERROR;
6836: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6838: END IF;
6839:
6840: END IF;
6833:
6834: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
6835: RAISE FND_API.G_EXC_ERROR;
6836: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
6837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6838: END IF;
6839:
6840: END IF;
6841:
6875: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6876: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6877: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
6878: FND_MSG_PUB.add;
6879: RAISE FND_API.G_EXC_ERROR;
6880: END IF;
6881:
6882: -- Validate if the actual end dates entered is greater than any WO Op
6883: IF ( op_csr.actual_end_date IS NOT NULL AND
6886: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6887: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6888: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
6889: FND_MSG_PUB.add;
6890: RAISE FND_API.G_EXC_ERROR;
6891: END IF;
6892:
6893: END IF;
6894: */
6900: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
6901: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6902: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6903: FND_MSG_PUB.add;
6904: RAISE FND_API.G_EXC_ERROR;
6905: END IF;
6906:
6907: -- Add the Wo Operation record in the table of records for Completion
6908: l_ctr := l_ctr + 1;
6930: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
6931: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6932: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6933: FND_MSG_PUB.add;
6934: RAISE FND_API.G_EXC_ERROR;
6935: END IF;
6936: END IF;
6937: /* Bug # 4955278 - end */
6938:
6994: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
6995: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
6996: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
6997: FND_MSG_PUB.add;
6998: RAISE FND_API.G_EXC_ERROR;
6999: END IF;
7000: END IF; -- Check Complete Operations
7001:
7002: END LOOP; -- Iterate Operations
7049: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7050: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7051: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
7052: FND_MSG_PUB.add;
7053: RAISE FND_API.G_EXC_ERROR;
7054: END IF;
7055:
7056: -- Validate if the actual end dates entered is greater than any WO Op
7057: IF ( l_unassoc_ue_op_rec.actual_end_date IS NOT NULL AND
7060: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7061: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7062: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_unassoc_ue_op_rec.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
7063: FND_MSG_PUB.add;
7064: RAISE FND_API.G_EXC_ERROR;
7065: END IF;
7066: END IF; */
7067: /*End ER # 4757222*/
7068:
7073: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
7074: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7075: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7076: FND_MSG_PUB.add;
7077: RAISE FND_API.G_EXC_ERROR;
7078: END IF;
7079:
7080: -- Add the Wo Operation record in the table of records for Completion
7081: l_ctr := l_ctr + 1;
7102: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
7103: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7104: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7105: FND_MSG_PUB.add;
7106: RAISE FND_API.G_EXC_ERROR;
7107: END IF;
7108: END IF;
7109: /* Bug # 4955278 - end */
7110:
7165: FND_MESSAGE.set_token( 'MAINT_REQ', l_mr_rec.ue_title);
7166: FND_MESSAGE.set_token( 'WO_NAME', l_unassoc_ue_op_rec.workorder_name );
7167: FND_MESSAGE.set_token( 'OP_SEQ', l_unassoc_ue_op_rec.operation_seq_num );
7168: FND_MSG_PUB.add;
7169: RAISE FND_API.G_EXC_ERROR;
7170: END IF;
7171: END IF; -- complete_job_ops_flag
7172: END LOOP;
7173: END IF; -- IF l_ctr = 0 THEN
7202:
7203: IF ( SQL%ROWCOUNT = 0 ) THEN
7204: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7205: FND_MSG_PUB.add;
7206: RAISE FND_API.G_EXC_ERROR;
7207: END IF;
7208:
7209: --Balaji-debug
7210: IF ( G_DEBUG = 'Y' ) THEN
7241: -- R12
7242: -- The actual dates are defaulted from the resource txn dates
7243: -- instead of the scheduled dates
7244: -- This is taken care of in the Completions API if the p_default param
7245: -- is passed as FND_API.G_TRUE
7246: l_default := FND_API.G_FALSE;
7247: IF (p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND p_signoff_mr_rec.default_actual_dates_flag = 'Y') THEN
7248: l_default := FND_API.G_TRUE;
7249: END IF;
7242: -- The actual dates are defaulted from the resource txn dates
7243: -- instead of the scheduled dates
7244: -- This is taken care of in the Completions API if the p_default param
7245: -- is passed as FND_API.G_TRUE
7246: l_default := FND_API.G_FALSE;
7247: IF (p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND p_signoff_mr_rec.default_actual_dates_flag = 'Y') THEN
7248: l_default := FND_API.G_TRUE;
7249: END IF;
7250:
7244: -- This is taken care of in the Completions API if the p_default param
7245: -- is passed as FND_API.G_TRUE
7246: l_default := FND_API.G_FALSE;
7247: IF (p_signoff_mr_rec.complete_job_ops_flag = 'Y' AND p_signoff_mr_rec.default_actual_dates_flag = 'Y') THEN
7248: l_default := FND_API.G_TRUE;
7249: END IF;
7250:
7251: complete_operation
7252: (
7250:
7251: complete_operation
7252: (
7253: p_api_version => 1.0,
7254: p_init_msg_list => FND_API.G_FALSE,
7255: p_commit => FND_API.G_FALSE,
7256: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7257: p_default => l_default,
7258: p_module_type => NULL,
7251: complete_operation
7252: (
7253: p_api_version => 1.0,
7254: p_init_msg_list => FND_API.G_FALSE,
7255: p_commit => FND_API.G_FALSE,
7256: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7257: p_default => l_default,
7258: p_module_type => NULL,
7259: x_return_status => l_return_status,
7252: (
7253: p_api_version => 1.0,
7254: p_init_msg_list => FND_API.G_FALSE,
7255: p_commit => FND_API.G_FALSE,
7256: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7257: p_default => l_default,
7258: p_module_type => NULL,
7259: x_return_status => l_return_status,
7260: x_msg_count => l_msg_count,
7262: p_workorder_operation_id => l_operation_tbl(i).workorder_operation_id,
7263: p_object_version_no => l_operation_tbl(i).object_version_number
7264: );
7265:
7266: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7267: RAISE FND_API.G_EXC_ERROR;
7268: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7270: END IF;
7263: p_object_version_no => l_operation_tbl(i).object_version_number
7264: );
7265:
7266: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7267: RAISE FND_API.G_EXC_ERROR;
7268: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7270: END IF;
7271:
7264: );
7265:
7266: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7267: RAISE FND_API.G_EXC_ERROR;
7268: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7270: END IF;
7271:
7272: END LOOP;
7265:
7266: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7267: RAISE FND_API.G_EXC_ERROR;
7268: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7270: END IF;
7271:
7272: END LOOP;
7273: END IF;
7292: -- Error defaulting the actual dates for workorder WO_NAME before completion.
7293: -- Do we raise an error for this or just ignore the error since this is defaulting code?
7294: -- Check during UTs
7295: FND_MSG_PUB.add;
7296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7297: END IF; -- IF get_wo_dates %NOTFOUND THEN
7298: CLOSE get_wo_dates;
7299:
7300: Get_default_wo_actual_dates(x_return_status => l_return_status,
7301: p_workorder_id => l_workorder_tbl(i).workorder_id,
7302: x_actual_start_date => l_def_actual_start_date,
7303: x_actual_end_date => l_def_actual_end_date
7304: );
7305: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
7306: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7307: FND_MSG_PUB.add;
7308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7309: END IF;
7304: );
7305: IF l_return_status <> FND_API. G_RET_STS_SUCCESS THEN
7306: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_DEF_ERROR' );
7307: FND_MSG_PUB.add;
7308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7309: END IF;
7310:
7311: -- update the actual dates in the table
7312: IF l_wo_actual_start_date IS NULL THEN
7321: IF SQL%ROWCOUNT = 0 THEN
7322: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7323: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7324: FND_MSG_PUB.add;
7325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7326: END IF;
7327: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7328: END IF;-- IF l_actual_start_date IS NULL THEN
7329:
7340: IF SQL%ROWCOUNT = 0 THEN
7341: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7342: FND_MESSAGE.set_token('WO_NAME', l_wo_name);
7343: FND_MSG_PUB.add;
7344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7345: END IF;
7346: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
7347: END IF; -- IF l_actual_end_date IS NULL THEN
7348: /*ELSE
7359:
7360: IF ( SQL%ROWCOUNT = 0 ) THEN
7361: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
7362: FND_MSG_PUB.add;
7363: RAISE FND_API.G_EXC_ERROR;
7364: END IF;
7365:
7366: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;*/
7367: END IF; --IF (complete_job_ops_flag = 'Y' AND default_actual_dates_flag = 'Y') THEN
7388: p_actual_start_date => l_actual_start_date,
7389: p_actual_end_date => l_actual_end_date
7390: );
7391:
7392: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7393: RAISE FND_API.G_EXC_ERROR;
7394: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7396: END IF;
7389: p_actual_end_date => l_actual_end_date
7390: );
7391:
7392: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7393: RAISE FND_API.G_EXC_ERROR;
7394: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7396: END IF;
7397:
7390: );
7391:
7392: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7393: RAISE FND_API.G_EXC_ERROR;
7394: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7396: END IF;
7397:
7398: END IF;
7391:
7392: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7393: RAISE FND_API.G_EXC_ERROR;
7394: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7396: END IF;
7397:
7398: END IF;
7399:
7410: p_wip_entity_id => l_mr_rec.visit_wip_entity_id,
7411: p_x_workorder_tbl => l_workorder_tbl
7412: );
7413:
7414: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7415: RAISE FND_API.G_EXC_ERROR;
7416: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7418: END IF;
7411: p_x_workorder_tbl => l_workorder_tbl
7412: );
7413:
7414: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7415: RAISE FND_API.G_EXC_ERROR;
7416: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7418: END IF;
7419:
7412: );
7413:
7414: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7415: RAISE FND_API.G_EXC_ERROR;
7416: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7418: END IF;
7419:
7420: END IF;
7413:
7414: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7415: RAISE FND_API.G_EXC_ERROR;
7416: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7418: END IF;
7419:
7420: END IF;
7421:
7447: AND LOOKUP_CODE = l_ue_status_code;
7448: */
7449: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
7450: FND_MSG_PUB.add;
7451: RAISE FND_API.G_EXC_ERROR;
7452: END IF;
7453:
7454: IF ( G_DEBUG = 'Y' ) THEN
7455: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
7458:
7459: complete_mr_instance
7460: (
7461: p_api_version => 1.0,
7462: p_init_msg_list => FND_API.G_FALSE,
7463: p_commit => FND_API.G_FALSE,
7464: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7465: p_default => FND_API.G_FALSE,
7466: p_module_type => NULL,
7459: complete_mr_instance
7460: (
7461: p_api_version => 1.0,
7462: p_init_msg_list => FND_API.G_FALSE,
7463: p_commit => FND_API.G_FALSE,
7464: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7465: p_default => FND_API.G_FALSE,
7466: p_module_type => NULL,
7467: x_return_status => l_return_status,
7460: (
7461: p_api_version => 1.0,
7462: p_init_msg_list => FND_API.G_FALSE,
7463: p_commit => FND_API.G_FALSE,
7464: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7465: p_default => FND_API.G_FALSE,
7466: p_module_type => NULL,
7467: x_return_status => l_return_status,
7468: x_msg_count => l_msg_count,
7461: p_api_version => 1.0,
7462: p_init_msg_list => FND_API.G_FALSE,
7463: p_commit => FND_API.G_FALSE,
7464: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7465: p_default => FND_API.G_FALSE,
7466: p_module_type => NULL,
7467: x_return_status => l_return_status,
7468: x_msg_count => l_msg_count,
7469: x_msg_data => l_msg_data,
7469: x_msg_data => l_msg_data,
7470: p_x_mr_rec => l_child_mr_tbl(i)
7471: );
7472:
7473: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7474: RAISE FND_API.G_EXC_ERROR;
7475: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7477: END IF;
7470: p_x_mr_rec => l_child_mr_tbl(i)
7471: );
7472:
7473: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7474: RAISE FND_API.G_EXC_ERROR;
7475: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7477: END IF;
7478: END IF;
7471: );
7472:
7473: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7474: RAISE FND_API.G_EXC_ERROR;
7475: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7477: END IF;
7478: END IF;
7479:
7472:
7473: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7474: RAISE FND_API.G_EXC_ERROR;
7475: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7477: END IF;
7478: END IF;
7479:
7480: END LOOP;
7504: p_actual_date => l_workorder_tbl(i).actual_end_date,
7505: x_counter_tbl => l_counter_tbl
7506: );
7507:
7508: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7509: RAISE FND_API.G_EXC_ERROR;
7510: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7512: END IF;
7505: x_counter_tbl => l_counter_tbl
7506: );
7507:
7508: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7509: RAISE FND_API.G_EXC_ERROR;
7510: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7512: END IF;
7513:
7506: );
7507:
7508: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7509: RAISE FND_API.G_EXC_ERROR;
7510: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7512: END IF;
7513:
7514: -- Bug # 6750836 -- end
7507:
7508: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7509: RAISE FND_API.G_EXC_ERROR;
7510: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7512: END IF;
7513:
7514: -- Bug # 6750836 -- end
7515:
7523: p_wip_entity_id => l_workorder_tbl(i).wip_entity_id,
7524: p_counter_tbl => l_counter_tbl
7525: );
7526:
7527: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7528: RAISE FND_API.G_EXC_ERROR;
7529: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7531: END IF;
7524: p_counter_tbl => l_counter_tbl
7525: );
7526:
7527: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7528: RAISE FND_API.G_EXC_ERROR;
7529: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7531: END IF;
7532:
7525: );
7526:
7527: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7528: RAISE FND_API.G_EXC_ERROR;
7529: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7531: END IF;
7532:
7533: -- Re-set the API savepoint because, Quality Results submission commits
7526:
7527: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7528: RAISE FND_API.G_EXC_ERROR;
7529: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7531: END IF;
7532:
7533: -- Re-set the API savepoint because, Quality Results submission commits
7534: SAVEPOINT signoff_mr_instance_PVT;
7557: q_msg_count => l_msg_count,
7558: q_msg_data => l_msg_data
7559: );
7560:
7561: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7562: x_msg_data := l_msg_data;
7563: x_msg_count := l_msg_count;
7564: RETURN;
7565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7561: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7562: x_msg_data := l_msg_data;
7563: x_msg_count := l_msg_count;
7564: RETURN;
7565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7567: END IF;
7568:
7569: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7562: x_msg_data := l_msg_data;
7563: x_msg_count := l_msg_count;
7564: RETURN;
7565: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7567: END IF;
7568:
7569: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7570: SAVEPOINT signoff_mr_instance_PVT;
7585: q_msg_count => l_msg_count,
7586: q_msg_data => l_msg_data
7587: );
7588:
7589: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7590: x_msg_data := l_msg_data;
7591: x_msg_count := l_msg_count;
7592: RETURN;
7593: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7589: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7590: x_msg_data := l_msg_data;
7591: x_msg_count := l_msg_count;
7592: RETURN;
7593: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7595: END IF;
7596:
7597: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7590: x_msg_data := l_msg_data;
7591: x_msg_count := l_msg_count;
7592: RETURN;
7593: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7595: END IF;
7596:
7597: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7598: SAVEPOINT signoff_mr_instance_PVT;
7613: q_msg_count => l_msg_count,
7614: q_msg_data => l_msg_data
7615: );
7616:
7617: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7618: x_msg_data := l_msg_data;
7619: x_msg_count := l_msg_count;
7620: RETURN;
7621: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7617: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7618: x_msg_data := l_msg_data;
7619: x_msg_count := l_msg_count;
7620: RETURN;
7621: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7623: END IF;
7624:
7625: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7618: x_msg_data := l_msg_data;
7619: x_msg_count := l_msg_count;
7620: RETURN;
7621: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
7622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7623: END IF;
7624:
7625: -- Re-set the API savepoint because, the wrapper_fire_action commits.
7626: SAVEPOINT signoff_mr_instance_PVT;
7629: END LOOP;
7630: END IF;
7631:
7632: -- Perform the Commit (if requested)
7633: IF FND_API.to_boolean( p_commit ) THEN
7634: COMMIT WORK;
7635: END IF;
7636:
7637: -- Disable debug (if enabled)
7640: END IF;
7641:
7642: EXCEPTION
7643:
7644: WHEN FND_API.G_EXC_ERROR THEN
7645: ROLLBACK TO signoff_mr_instance_PVT;
7646: x_return_status := FND_API.G_RET_STS_ERROR;
7647: FND_MSG_PUB.count_and_get
7648: (
7642: EXCEPTION
7643:
7644: WHEN FND_API.G_EXC_ERROR THEN
7645: ROLLBACK TO signoff_mr_instance_PVT;
7646: x_return_status := FND_API.G_RET_STS_ERROR;
7647: FND_MSG_PUB.count_and_get
7648: (
7649: p_encoded => FND_API.G_FALSE,
7650: p_count => x_msg_count,
7645: ROLLBACK TO signoff_mr_instance_PVT;
7646: x_return_status := FND_API.G_RET_STS_ERROR;
7647: FND_MSG_PUB.count_and_get
7648: (
7649: p_encoded => FND_API.G_FALSE,
7650: p_count => x_msg_count,
7651: p_data => x_msg_data
7652: );
7653:
7654: IF ( G_DEBUG = 'Y' ) THEN
7655: AHL_DEBUG_PUB.disable_debug;
7656: END IF;
7657:
7658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7659: ROLLBACK TO signoff_mr_instance_PVT;
7660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7661: FND_MSG_PUB.count_and_get
7662: (
7656: END IF;
7657:
7658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7659: ROLLBACK TO signoff_mr_instance_PVT;
7660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7661: FND_MSG_PUB.count_and_get
7662: (
7663: p_encoded => FND_API.G_FALSE,
7664: p_count => x_msg_count,
7659: ROLLBACK TO signoff_mr_instance_PVT;
7660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7661: FND_MSG_PUB.count_and_get
7662: (
7663: p_encoded => FND_API.G_FALSE,
7664: p_count => x_msg_count,
7665: p_data => x_msg_data
7666: );
7667:
7670: END IF;
7671:
7672: WHEN OTHERS THEN
7673: ROLLBACK TO signoff_mr_instance_PVT;
7674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7675: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7676: THEN
7677: FND_MSG_PUB.add_exc_msg
7678: (
7682: );
7683: END IF;
7684: FND_MSG_PUB.count_and_get
7685: (
7686: p_encoded => FND_API.G_FALSE,
7687: p_count => x_msg_count,
7688: p_data => x_msg_data
7689: );
7690:
7695:
7696: PROCEDURE close_visit
7697: (
7698: p_api_version IN NUMBER := 1.0,
7699: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7702: p_default IN VARCHAR2 := FND_API.G_FALSE,
7703: p_module_type IN VARCHAR2 := NULL,
7696: PROCEDURE close_visit
7697: (
7698: p_api_version IN NUMBER := 1.0,
7699: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7702: p_default IN VARCHAR2 := FND_API.G_FALSE,
7703: p_module_type IN VARCHAR2 := NULL,
7704: x_return_status OUT NOCOPY VARCHAR2,
7697: (
7698: p_api_version IN NUMBER := 1.0,
7699: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7702: p_default IN VARCHAR2 := FND_API.G_FALSE,
7703: p_module_type IN VARCHAR2 := NULL,
7704: x_return_status OUT NOCOPY VARCHAR2,
7705: x_msg_count OUT NOCOPY NUMBER,
7698: p_api_version IN NUMBER := 1.0,
7699: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7700: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7702: p_default IN VARCHAR2 := FND_API.G_FALSE,
7703: p_module_type IN VARCHAR2 := NULL,
7704: x_return_status OUT NOCOPY VARCHAR2,
7705: x_msg_count OUT NOCOPY NUMBER,
7706: x_msg_data OUT NOCOPY VARCHAR2,
8041: AHL_DEBUG_PUB.enable_debug;
8042: END IF;
8043:
8044: -- Initialize API return status to success
8045: x_return_status := FND_API.G_RET_STS_SUCCESS;
8046:
8047: -- Standard Start of API savepoint
8048: SAVEPOINT close_visit_PVT;
8049:
8047: -- Standard Start of API savepoint
8048: SAVEPOINT close_visit_PVT;
8049:
8050: -- Initialize message list if p_init_msg_list is set to TRUE.
8051: IF FND_API.to_boolean( p_init_msg_list ) THEN
8052: FND_MSG_PUB.initialize;
8053: END IF;
8054:
8055: IF ( G_DEBUG = 'Y' ) THEN
8062: (
8063: p_close_visit_rec => p_close_visit_rec
8064: );
8065:
8066: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8070: END IF;
8063: p_close_visit_rec => p_close_visit_rec
8064: );
8065:
8066: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8070: END IF;
8071:
8064: );
8065:
8066: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8070: END IF;
8071:
8072: IF ( G_DEBUG = 'Y' ) THEN
8065:
8066: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8070: END IF;
8071:
8072: IF ( G_DEBUG = 'Y' ) THEN
8073: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name
8105:
8106: AHL_VWP_VISITS_PVT.close_visit
8107: (
8108: p_api_version => 1.0,
8109: p_init_msg_list => FND_API.G_FALSE,
8110: p_commit => FND_API.G_TRUE,
8111: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8112: p_module_type => NULL,
8113: p_visit_id => p_close_visit_rec.visit_id,
8106: AHL_VWP_VISITS_PVT.close_visit
8107: (
8108: p_api_version => 1.0,
8109: p_init_msg_list => FND_API.G_FALSE,
8110: p_commit => FND_API.G_TRUE,
8111: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8112: p_module_type => NULL,
8113: p_visit_id => p_close_visit_rec.visit_id,
8114: p_x_cost_session_id => l_cost_session_id,
8107: (
8108: p_api_version => 1.0,
8109: p_init_msg_list => FND_API.G_FALSE,
8110: p_commit => FND_API.G_TRUE,
8111: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8112: p_module_type => NULL,
8113: p_visit_id => p_close_visit_rec.visit_id,
8114: p_x_cost_session_id => l_cost_session_id,
8115: p_x_mr_session_id => l_mr_session_id,
8117: x_msg_count => l_msg_count,
8118: x_msg_data => l_msg_data
8119: );
8120:
8121: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8122: RAISE FND_API.G_EXC_ERROR;
8123: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8125: END IF;
8118: x_msg_data => l_msg_data
8119: );
8120:
8121: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8122: RAISE FND_API.G_EXC_ERROR;
8123: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8125: END IF;
8126:
8119: );
8120:
8121: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8122: RAISE FND_API.G_EXC_ERROR;
8123: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8125: END IF;
8126:
8127: RETURN;
8120:
8121: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8122: RAISE FND_API.G_EXC_ERROR;
8123: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8125: END IF;
8126:
8127: RETURN;
8128:
8140: IF ( get_visit_details%NOTFOUND ) THEN
8141: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_REC_NOT_FOUND' );
8142: FND_MSG_PUB.add;
8143: CLOSE get_visit_details;
8144: RAISE FND_API.G_EXC_ERROR;
8145: END IF;
8146:
8147: CLOSE get_visit_details;
8148:
8149: -- Validate Object Version Number
8150: IF ( l_visit_rec.object_version_number <> p_close_visit_rec.object_version_number ) THEN
8151: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
8152: FND_MSG_PUB.add;
8153: RAISE FND_API.G_EXC_ERROR;
8154: END IF;
8155:
8156: -- Validate the status of the Visit for Top-down Closure
8157: IF ( l_visit_rec.status_code <> G_VISIT_STATUS_RELEASED ) THEN
8197: p_qa_plan_id => mr_csr.qa_plan_id,
8198: p_qa_collection_id => mr_csr.qa_collection_id
8199: );
8200:
8201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8202: RAISE FND_API.G_EXC_ERROR;
8203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8205: END IF;
8198: p_qa_collection_id => mr_csr.qa_collection_id
8199: );
8200:
8201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8202: RAISE FND_API.G_EXC_ERROR;
8203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8205: END IF;
8206:
8199: );
8200:
8201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8202: RAISE FND_API.G_EXC_ERROR;
8203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8205: END IF;
8206:
8207: -- Balaji added the following loop for the BAE bug.
8200:
8201: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8202: RAISE FND_API.G_EXC_ERROR;
8203: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8205: END IF;
8206:
8207: -- Balaji added the following loop for the BAE bug.
8208: -- The cursor get_child_ue_details doesnt UEs at the leaf node first
8249: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
8250: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8251: );
8252:
8253: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8254: RAISE FND_API.G_EXC_ERROR;
8255: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8257: END IF;*/
8250: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8251: );
8252:
8253: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8254: RAISE FND_API.G_EXC_ERROR;
8255: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8257: END IF;*/
8258:
8251: );
8252:
8253: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8254: RAISE FND_API.G_EXC_ERROR;
8255: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8257: END IF;*/
8258:
8259: -- Store the Child UEs in a table of records for Signing off
8252:
8253: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8254: RAISE FND_API.G_EXC_ERROR;
8255: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8257: END IF;*/
8258:
8259: -- Store the Child UEs in a table of records for Signing off
8260: IF ( nvl(l_child_ue_tbl(l_ue_count).ump_status_code,'x') <> nvl(G_MR_STATUS_SIGNED_OFF,'y') ) THEN
8278: p_qa_plan_id => l_child_ue_tbl(l_ue_count).qa_plan_id,
8279: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8280: );
8281:
8282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8283: RAISE FND_API.G_EXC_ERROR;
8284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8286: END IF;
8279: p_qa_collection_id => l_child_ue_tbl(l_ue_count).qa_collection_id
8280: );
8281:
8282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8283: RAISE FND_API.G_EXC_ERROR;
8284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8286: END IF;
8287:
8280: );
8281:
8282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8283: RAISE FND_API.G_EXC_ERROR;
8284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8286: END IF;
8287:
8288: IF ( G_DEBUG = 'Y' ) THEN
8281:
8282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8283: RAISE FND_API.G_EXC_ERROR;
8284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8286: END IF;
8287:
8288: IF ( G_DEBUG = 'Y' ) THEN
8289: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : l_ue_status_code '||l_ue_status_code );
8333: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_MRS_NOT_CMPL' );
8334: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8335: FND_MESSAGE.set_token( 'MAINT_REQ', mr_csr.title );
8336: FND_MSG_PUB.add;
8337: RAISE FND_API.G_EXC_ERROR;
8338: END IF;
8339: END IF;
8340: END LOOP;
8341:
8361: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
8362: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8363: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( wo_csr.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
8364: FND_MSG_PUB.add;
8365: RAISE FND_API.G_EXC_ERROR;
8366: END IF;
8367:
8368: -- Ensure that the actual end date entered is greater than any WO
8369: IF ( wo_csr.actual_end_date IS NOT NULL AND
8372: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8373: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( wo_csr.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
8374: FND_MESSAGE.set_token( 'END_DT', wo_csr.actual_end_date );
8375: FND_MSG_PUB.add;
8376: RAISE FND_API.G_EXC_ERROR;
8377: END IF;
8378: END IF;
8379: */--end ER # 4757222
8380: -- Do not process Workorders which are already Complete
8403: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_NOT_ALL_WOS_OPEN' );
8404: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8405: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
8406: FND_MSG_PUB.add;
8407: RAISE FND_API.G_EXC_ERROR;
8408: END IF;
8409:
8410: -- Validate whether Quality Results are Submitted
8411: IF ( wo_csr.plan_id IS NOT NULL AND
8412: wo_csr.collection_id IS NULL ) THEN
8413: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
8414: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8415: FND_MSG_PUB.add;
8416: RAISE FND_API.G_EXC_ERROR;
8417: END IF;
8418:
8419: -- Add the Workorder for Completion
8420: l_ctr := l_ctr + 1;
8530: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_VST_WO_NOT_CMPL' );
8531: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
8532: FND_MESSAGE.set_token( 'WO_NAME', wo_csr.workorder_name );
8533: FND_MSG_PUB.add;
8534: RAISE FND_API.G_EXC_ERROR;
8535: END IF;
8536: END IF;
8537: END LOOP;
8538:
8554: l_visit_rec.wo_collection_id IS NULL ) THEN
8555: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_QA_PENDING' );
8556: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
8557: FND_MSG_PUB.add;
8558: RAISE FND_API.G_EXC_ERROR;
8559: END IF;
8560:
8561: /*start ER # 4757222
8562: IF ( p_close_visit_rec.default_actual_dates_flag = 'N' ) THEN
8568: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_ST_DATE_LESS' );
8569: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
8570: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( l_visit_rec.actual_start_date , 'DD-MON-YYYY HH24:MI' ) );
8571: FND_MSG_PUB.add;
8572: RAISE FND_API.G_EXC_ERROR;
8573: END IF;
8574:
8575: -- Validate if the actual end dates entered is greater than any WO
8576: IF ( l_visit_rec.actual_end_date IS NOT NULL AND
8578: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_ACT_END_DATE_GT' );
8579: FND_MESSAGE.set_token( 'WO_NAME', l_visit_rec.workorder_name );
8580: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( l_visit_rec.actual_end_date , 'DD-MON-YYYY HH24:MI' ) );
8581: FND_MSG_PUB.add;
8582: RAISE FND_API.G_EXC_ERROR;
8583: END IF;
8584: END IF;
8585: */--End ER # 4757222
8586: -- Add the Visit WO to the Workorder Table of Records
8615:
8616: -- Check if Serial Number is entered for Machine Type Resource
8617: IF ( res_csr.resource_type = 1 AND
8618: ( p_close_visit_rec.serial_number IS NULL OR
8619: p_close_visit_rec.serial_number = FND_API.G_MISS_CHAR ) ) THEN
8620: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_MACH_RES_REQD' );
8621: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
8622: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
8623: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
8621: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
8622: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
8623: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
8624: FND_MSG_PUB.add;
8625: RAISE FND_API.G_EXC_ERROR;
8626: END IF;
8627:
8628: -- Check if Employee Number is entered for Machine Type Resource
8629: IF ( res_csr.resource_type = 2 AND
8627:
8628: -- Check if Employee Number is entered for Machine Type Resource
8629: IF ( res_csr.resource_type = 2 AND
8630: ( p_close_visit_rec.employee_number IS NULL OR
8631: p_close_visit_rec.employee_number = FND_API.G_MISS_NUM ) ) THEN
8632: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMP_RES_REQD' );
8633: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
8634: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
8635: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
8633: FND_MESSAGE.set_token( 'WO_NAME', res_csr.workorder_name );
8634: FND_MESSAGE.set_token( 'OP_SEQ', res_csr.operation_seq_num );
8635: FND_MESSAGE.set_token( 'RES_SEQ', res_csr.resource_seq_num );
8636: FND_MSG_PUB.add;
8637: RAISE FND_API.G_EXC_ERROR;
8638: END IF;
8639:
8640: -- Add the Resource Requirement Record for Transaction Processing
8641: l_ctr := l_ctr + 1;
8671: IF ( SQL%NOTFOUND ) THEN
8672: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
8673: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
8674: FND_MSG_PUB.add;
8675: RAISE FND_API.G_EXC_ERROR;
8676: END IF;
8677: */
8678:
8679: BEGIN
8689: WHEN no_data_found THEN
8690: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_EMPLOYEE_NOT_FOUND' );
8691: FND_MESSAGE.set_token( 'EMP_NUM', p_close_visit_rec.employee_number );
8692: FND_MSG_PUB.add;
8693: RAISE FND_API.G_EXC_ERROR;
8694: END;
8695:
8696: -- Iterate through all the Resource Requirements
8697: FOR i IN l_resource_req_tbl.FIRST..l_resource_req_tbl.LAST LOOP
8786: -- Perform the Resource Txns
8787: AHL_WIP_JOB_PVT.insert_resource_txn
8788: (
8789: p_api_version => 1.0,
8790: p_init_msg_list => FND_API.G_FALSE,
8791: p_commit => FND_API.G_FALSE,
8792: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8793: x_return_status => l_return_status,
8794: x_msg_count => l_msg_count,
8787: AHL_WIP_JOB_PVT.insert_resource_txn
8788: (
8789: p_api_version => 1.0,
8790: p_init_msg_list => FND_API.G_FALSE,
8791: p_commit => FND_API.G_FALSE,
8792: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8793: x_return_status => l_return_status,
8794: x_msg_count => l_msg_count,
8795: x_msg_data => l_msg_data,
8788: (
8789: p_api_version => 1.0,
8790: p_init_msg_list => FND_API.G_FALSE,
8791: p_commit => FND_API.G_FALSE,
8792: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8793: x_return_status => l_return_status,
8794: x_msg_count => l_msg_count,
8795: x_msg_data => l_msg_data,
8796: p_ahl_res_txn_tbl => l_res_txn_tbl
8800:
8801: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
8802: (
8803: p_api_version => 1.0,
8804: p_init_msg_list => FND_API.G_FALSE,
8805: p_commit => FND_API.G_FALSE,
8806: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8807: x_return_status => l_return_status,
8808: x_msg_count => l_msg_count,
8801: AHL_PRD_RESOURCE_TRANX_PVT.PROCESS_RESOURCE_TXNS
8802: (
8803: p_api_version => 1.0,
8804: p_init_msg_list => FND_API.G_FALSE,
8805: p_commit => FND_API.G_FALSE,
8806: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8807: x_return_status => l_return_status,
8808: x_msg_count => l_msg_count,
8809: x_msg_data => l_msg_data,
8802: (
8803: p_api_version => 1.0,
8804: p_init_msg_list => FND_API.G_FALSE,
8805: p_commit => FND_API.G_FALSE,
8806: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8807: x_return_status => l_return_status,
8808: x_msg_count => l_msg_count,
8809: x_msg_data => l_msg_data,
8810: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
8809: x_msg_data => l_msg_data,
8810: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
8811: );
8812:
8813: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8814: RAISE FND_API.G_EXC_ERROR;
8815: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8817: END IF;
8810: p_x_prd_resrc_txn_tbl => l_prd_resrc_txn_tbl
8811: );
8812:
8813: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8814: RAISE FND_API.G_EXC_ERROR;
8815: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8817: END IF;
8818:
8811: );
8812:
8813: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8814: RAISE FND_API.G_EXC_ERROR;
8815: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8817: END IF;
8818:
8819: END IF;
8812:
8813: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
8814: RAISE FND_API.G_EXC_ERROR;
8815: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
8816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8817: END IF;
8818:
8819: END IF;
8820:
8853: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8854: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8855: FND_MESSAGE.set_token( 'START_DT', TO_CHAR( op_csr.actual_start_date, 'DD-MON-YYYY HH24:MI' ) );
8856: FND_MSG_PUB.add;
8857: RAISE FND_API.G_EXC_ERROR;
8858: END IF;
8859:
8860: -- Validate if the actual end dates entered is greater than any WO Op
8861: IF ( op_csr.actual_end_date IS NOT NULL AND
8864: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8865: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8866: FND_MESSAGE.set_token( 'END_DT', TO_CHAR( op_csr.actual_end_date, 'DD-MON-YYYY HH24:MI' ) );
8867: FND_MSG_PUB.add;
8868: RAISE FND_API.G_EXC_ERROR;
8869: END IF;
8870:
8871: END IF;*/
8872:
8877: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_OP_QA_PENDING' );
8878: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8879: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8880: FND_MSG_PUB.add;
8881: RAISE FND_API.G_EXC_ERROR;
8882: END IF;
8883:
8884: l_ctr := l_ctr + 1;
8885: l_operation_tbl(l_ctr).workorder_operation_id := op_csr.workorder_operation_id;
8904: FND_MESSAGE.set_name( 'AHL', 'AHL_OP_DEF_NO_RES_TXN' );
8905: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
8906: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
8907: FND_MSG_PUB.add;
8908: RAISE FND_API.G_EXC_ERROR;
8909: END IF;
8910: END IF;
8911:
8912: /* Start ER # 4757222 */
9018: FND_MESSAGE.set_token( 'VISIT_NUM', l_visit_rec.visit_number );
9019: FND_MESSAGE.set_token( 'WO_NAME', op_csr.workorder_name );
9020: FND_MESSAGE.set_token( 'OP_SEQ', op_csr.operation_seq_num );
9021: FND_MSG_PUB.add;
9022: RAISE FND_API.G_EXC_ERROR;
9023: END IF;
9024: END IF;
9025: END LOOP;
9026:
9030: END IF;
9031:
9032: -- perform the Operation Updates
9033: -- If the dates are to be defaulted then this will be done in the Completions API itself
9034: -- if p_default is passed as FND_API.G_TRUE
9035: --Balaji remvoed p_close_visit_rec.default_actual_dates_flag = 'N' condition for bug # 4955278
9036:
9037: IF ( p_close_visit_rec.complete_job_ops_flag = 'Y' ) THEN
9038: --AND p_close_visit_rec.default_actual_dates_flag = 'N'
9051:
9052: IF ( SQL%ROWCOUNT = 0 ) THEN
9053: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9054: FND_MSG_PUB.add;
9055: RAISE FND_API.G_EXC_ERROR;
9056: END IF;
9057:
9058: l_operation_tbl(i).object_version_number := l_operation_tbl(i).object_version_number + 1;
9059: END LOOP;
9070: FOR i IN l_operation_tbl.FIRST..l_operation_tbl.LAST LOOP
9071: complete_operation
9072: (
9073: p_api_version => 1.0,
9074: p_init_msg_list => FND_API.G_FALSE,
9075: p_commit => FND_API.G_FALSE,
9076: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9077: p_default => FND_API.G_FALSE,
9078: p_module_type => NULL,
9071: complete_operation
9072: (
9073: p_api_version => 1.0,
9074: p_init_msg_list => FND_API.G_FALSE,
9075: p_commit => FND_API.G_FALSE,
9076: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9077: p_default => FND_API.G_FALSE,
9078: p_module_type => NULL,
9079: x_return_status => l_return_status,
9072: (
9073: p_api_version => 1.0,
9074: p_init_msg_list => FND_API.G_FALSE,
9075: p_commit => FND_API.G_FALSE,
9076: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9077: p_default => FND_API.G_FALSE,
9078: p_module_type => NULL,
9079: x_return_status => l_return_status,
9080: x_msg_count => l_msg_count,
9073: p_api_version => 1.0,
9074: p_init_msg_list => FND_API.G_FALSE,
9075: p_commit => FND_API.G_FALSE,
9076: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9077: p_default => FND_API.G_FALSE,
9078: p_module_type => NULL,
9079: x_return_status => l_return_status,
9080: x_msg_count => l_msg_count,
9081: x_msg_data => l_msg_data,
9082: p_workorder_operation_id => l_operation_tbl(i).workorder_operation_id,
9083: p_object_version_no => l_operation_tbl(i).object_version_number
9084: );
9085:
9086: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9087: RAISE FND_API.G_EXC_ERROR;
9088: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9090: END IF;
9083: p_object_version_no => l_operation_tbl(i).object_version_number
9084: );
9085:
9086: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9087: RAISE FND_API.G_EXC_ERROR;
9088: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9090: END IF;
9091:
9084: );
9085:
9086: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9087: RAISE FND_API.G_EXC_ERROR;
9088: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9090: END IF;
9091:
9092: END LOOP;
9085:
9086: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9087: RAISE FND_API.G_EXC_ERROR;
9088: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9090: END IF;
9091:
9092: END LOOP;
9093: END IF;
9125: IF SQL%ROWCOUNT = 0 THEN
9126: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9127: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9128: FND_MSG_PUB.add;
9129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9130: END IF;
9131: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9132: END IF;-- IF l_actual_start_date IS NULL THEN
9133:
9144: IF SQL%ROWCOUNT = 0 THEN
9145: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9146: FND_MESSAGE.set_token('WO_NAME', l_workorder_tbl(i).workorder_name);
9147: FND_MSG_PUB.add;
9148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9149: END IF;
9150: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9151: END IF; -- IF l_actual_end_date IS NULL THEN
9152:
9164:
9165: IF ( SQL%ROWCOUNT = 0 ) THEN
9166: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
9167: FND_MSG_PUB.add;
9168: RAISE FND_API.G_EXC_ERROR;
9169: END IF;
9170:
9171: l_workorder_tbl(i).object_version_number := l_workorder_tbl(i).object_version_number + 1;
9172: END IF;
9194: p_actual_start_date => l_actual_start_date,
9195: p_actual_end_date => l_actual_end_date
9196: );
9197:
9198: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9199: RAISE FND_API.G_EXC_ERROR;
9200: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9202: END IF;
9195: p_actual_end_date => l_actual_end_date
9196: );
9197:
9198: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9199: RAISE FND_API.G_EXC_ERROR;
9200: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9202: END IF;
9203:
9196: );
9197:
9198: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9199: RAISE FND_API.G_EXC_ERROR;
9200: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9202: END IF;
9203:
9204: END IF;
9197:
9198: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9199: RAISE FND_API.G_EXC_ERROR;
9200: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9202: END IF;
9203:
9204: END IF;
9205:
9216: p_wip_entity_id => l_visit_rec.wip_entity_id,
9217: p_x_workorder_tbl => l_workorder_tbl
9218: );
9219:
9220: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9221: RAISE FND_API.G_EXC_ERROR;
9222: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9224: END IF;
9217: p_x_workorder_tbl => l_workorder_tbl
9218: );
9219:
9220: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9221: RAISE FND_API.G_EXC_ERROR;
9222: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9224: END IF;
9225:
9218: );
9219:
9220: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9221: RAISE FND_API.G_EXC_ERROR;
9222: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9224: END IF;
9225:
9226: END IF;
9219:
9220: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9221: RAISE FND_API.G_EXC_ERROR;
9222: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9224: END IF;
9225:
9226: END IF;
9227:
9262: AND LOOKUP_CODE = l_ue_status_code;
9263: */
9264: FND_MESSAGE.set_token( 'STATUS', l_status_meaning );
9265: FND_MSG_PUB.add;
9266: RAISE FND_API.G_EXC_ERROR;
9267: END IF;
9268: complete_mr_instance
9269: (
9270: p_api_version => 1.0,
9267: END IF;
9268: complete_mr_instance
9269: (
9270: p_api_version => 1.0,
9271: p_init_msg_list => FND_API.G_FALSE,
9272: p_commit => FND_API.G_FALSE,
9273: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9274: p_default => FND_API.G_FALSE,
9275: p_module_type => NULL,
9268: complete_mr_instance
9269: (
9270: p_api_version => 1.0,
9271: p_init_msg_list => FND_API.G_FALSE,
9272: p_commit => FND_API.G_FALSE,
9273: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9274: p_default => FND_API.G_FALSE,
9275: p_module_type => NULL,
9276: x_return_status => l_return_status,
9269: (
9270: p_api_version => 1.0,
9271: p_init_msg_list => FND_API.G_FALSE,
9272: p_commit => FND_API.G_FALSE,
9273: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9274: p_default => FND_API.G_FALSE,
9275: p_module_type => NULL,
9276: x_return_status => l_return_status,
9277: x_msg_count => l_msg_count,
9270: p_api_version => 1.0,
9271: p_init_msg_list => FND_API.G_FALSE,
9272: p_commit => FND_API.G_FALSE,
9273: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9274: p_default => FND_API.G_FALSE,
9275: p_module_type => NULL,
9276: x_return_status => l_return_status,
9277: x_msg_count => l_msg_count,
9278: x_msg_data => l_msg_data,
9278: x_msg_data => l_msg_data,
9279: p_x_mr_rec => l_child_mr_tbl(i)
9280: );
9281:
9282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9283: RAISE FND_API.G_EXC_ERROR;
9284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9286: END IF;
9279: p_x_mr_rec => l_child_mr_tbl(i)
9280: );
9281:
9282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9283: RAISE FND_API.G_EXC_ERROR;
9284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9286: END IF;
9287: END IF;
9280: );
9281:
9282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9283: RAISE FND_API.G_EXC_ERROR;
9284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9286: END IF;
9287: END IF;
9288:
9281:
9282: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9283: RAISE FND_API.G_EXC_ERROR;
9284: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9286: END IF;
9287: END IF;
9288:
9289: END LOOP;
9296: -- Invoke close_visit API to close the Visit in VWP and Projects
9297: AHL_VWP_VISITS_PVT.close_visit
9298: (
9299: p_api_version => 1.0,
9300: p_init_msg_list => FND_API.G_FALSE,
9301: p_commit => FND_API.G_FALSE,
9302: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9303: p_module_type => NULL,
9304: p_visit_id => p_close_visit_rec.visit_id,
9297: AHL_VWP_VISITS_PVT.close_visit
9298: (
9299: p_api_version => 1.0,
9300: p_init_msg_list => FND_API.G_FALSE,
9301: p_commit => FND_API.G_FALSE,
9302: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9303: p_module_type => NULL,
9304: p_visit_id => p_close_visit_rec.visit_id,
9305: p_x_cost_session_id => l_cost_session_id,
9298: (
9299: p_api_version => 1.0,
9300: p_init_msg_list => FND_API.G_FALSE,
9301: p_commit => FND_API.G_FALSE,
9302: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9303: p_module_type => NULL,
9304: p_visit_id => p_close_visit_rec.visit_id,
9305: p_x_cost_session_id => l_cost_session_id,
9306: p_x_mr_session_id => l_mr_session_id,
9308: x_msg_count => l_msg_count,
9309: x_msg_data => l_msg_data
9310: );
9311:
9312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9313: RAISE FND_API.G_EXC_ERROR;
9314: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9316: END IF;
9309: x_msg_data => l_msg_data
9310: );
9311:
9312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9313: RAISE FND_API.G_EXC_ERROR;
9314: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9316: END IF;
9317:
9310: );
9311:
9312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9313: RAISE FND_API.G_EXC_ERROR;
9314: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9316: END IF;
9317:
9318: -- Record Counter Readings for all WOs
9311:
9312: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9313: RAISE FND_API.G_EXC_ERROR;
9314: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9316: END IF;
9317:
9318: -- Record Counter Readings for all WOs
9319: IF ( l_workorder_tbl.COUNT > 0 AND
9344: p_actual_date => l_workorder_tbl(i).actual_end_date,
9345: x_counter_tbl => l_counter_tbl
9346: );
9347:
9348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9349: RAISE FND_API.G_EXC_ERROR;
9350: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9352: END IF;
9345: x_counter_tbl => l_counter_tbl
9346: );
9347:
9348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9349: RAISE FND_API.G_EXC_ERROR;
9350: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9352: END IF;
9353:
9346: );
9347:
9348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9349: RAISE FND_API.G_EXC_ERROR;
9350: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9352: END IF;
9353:
9354: IF ( l_counter_tbl.COUNT > 0 ) THEN
9347:
9348: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9349: RAISE FND_API.G_EXC_ERROR;
9350: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9352: END IF;
9353:
9354: IF ( l_counter_tbl.COUNT > 0 ) THEN
9355:
9361: p_wip_entity_id => l_workorder_tbl(i).wip_entity_id,
9362: p_counter_tbl => l_counter_tbl
9363: );
9364:
9365: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9366: RAISE FND_API.G_EXC_ERROR;
9367: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9369: END IF;
9362: p_counter_tbl => l_counter_tbl
9363: );
9364:
9365: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9366: RAISE FND_API.G_EXC_ERROR;
9367: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9369: END IF;
9370:
9363: );
9364:
9365: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9366: RAISE FND_API.G_EXC_ERROR;
9367: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9369: END IF;
9370:
9371: -- Re-set the API savepoint because, Quality Results submission commits
9364:
9365: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9366: RAISE FND_API.G_EXC_ERROR;
9367: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9369: END IF;
9370:
9371: -- Re-set the API savepoint because, Quality Results submission commits
9372: SAVEPOINT close_visit_PVT;
9394: q_msg_count => l_msg_count,
9395: q_msg_data => l_msg_data
9396: );
9397:
9398: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9399: x_msg_data := l_msg_data;
9400: x_msg_count := l_msg_count;
9401: RETURN;
9402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9398: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9399: x_msg_data := l_msg_data;
9400: x_msg_count := l_msg_count;
9401: RETURN;
9402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9404: END IF;
9405:
9406: -- Re-set the API savepoint because, the wrapper_fire_action commits.
9399: x_msg_data := l_msg_data;
9400: x_msg_count := l_msg_count;
9401: RETURN;
9402: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9404: END IF;
9405:
9406: -- Re-set the API savepoint because, the wrapper_fire_action commits.
9407: SAVEPOINT close_visit_PVT;
9422: q_msg_count => l_msg_count,
9423: q_msg_data => l_msg_data
9424: );
9425:
9426: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9427: x_msg_data := l_msg_data;
9428: x_msg_count := l_msg_count;
9429: RETURN;
9430: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9426: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9427: x_msg_data := l_msg_data;
9428: x_msg_count := l_msg_count;
9429: RETURN;
9430: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9432: END IF;
9433:
9434: -- Re-set the API savepoint because, the wrapper_fire_action commits.
9427: x_msg_data := l_msg_data;
9428: x_msg_count := l_msg_count;
9429: RETURN;
9430: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9432: END IF;
9433:
9434: -- Re-set the API savepoint because, the wrapper_fire_action commits.
9435: SAVEPOINT close_visit_PVT;
9450: q_msg_count => l_msg_count,
9451: q_msg_data => l_msg_data
9452: );
9453:
9454: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9455: x_msg_data := l_msg_data;
9456: x_msg_count := l_msg_count;
9457: RETURN;
9458: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9454: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
9455: x_msg_data := l_msg_data;
9456: x_msg_count := l_msg_count;
9457: RETURN;
9458: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9460: END IF;
9461:
9462: -- Re-set the API savepoint because, the wrapper_fire_action commits.
9455: x_msg_data := l_msg_data;
9456: x_msg_count := l_msg_count;
9457: RETURN;
9458: ELSIF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
9459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9460: END IF;
9461:
9462: -- Re-set the API savepoint because, the wrapper_fire_action commits.
9463: SAVEPOINT close_visit_PVT;
9466: END LOOP;
9467: END IF;
9468:
9469: -- Perform the Commit (if requested)
9470: IF FND_API.to_boolean( p_commit ) THEN
9471: COMMIT WORK;
9472: END IF;
9473:
9474: -- Disable debug (if enabled)
9477: END IF;
9478:
9479: EXCEPTION
9480:
9481: WHEN FND_API.G_EXC_ERROR THEN
9482: ROLLBACK TO close_visit_PVT;
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: FND_MSG_PUB.count_and_get
9485: (
9479: EXCEPTION
9480:
9481: WHEN FND_API.G_EXC_ERROR THEN
9482: ROLLBACK TO close_visit_PVT;
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: FND_MSG_PUB.count_and_get
9485: (
9486: p_encoded => FND_API.G_FALSE,
9487: p_count => x_msg_count,
9482: ROLLBACK TO close_visit_PVT;
9483: x_return_status := FND_API.G_RET_STS_ERROR;
9484: FND_MSG_PUB.count_and_get
9485: (
9486: p_encoded => FND_API.G_FALSE,
9487: p_count => x_msg_count,
9488: p_data => x_msg_data
9489: );
9490:
9491: IF ( G_DEBUG = 'Y' ) THEN
9492: AHL_DEBUG_PUB.disable_debug;
9493: END IF;
9494:
9495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9496: ROLLBACK TO close_visit_PVT;
9497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9498: FND_MSG_PUB.count_and_get
9499: (
9493: END IF;
9494:
9495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9496: ROLLBACK TO close_visit_PVT;
9497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9498: FND_MSG_PUB.count_and_get
9499: (
9500: p_encoded => FND_API.G_FALSE,
9501: p_count => x_msg_count,
9496: ROLLBACK TO close_visit_PVT;
9497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9498: FND_MSG_PUB.count_and_get
9499: (
9500: p_encoded => FND_API.G_FALSE,
9501: p_count => x_msg_count,
9502: p_data => x_msg_data
9503: );
9504:
9507: END IF;
9508:
9509: WHEN OTHERS THEN
9510: ROLLBACK TO close_visit_PVT;
9511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9512: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
9513: THEN
9514: FND_MSG_PUB.add_exc_msg
9515: (
9519: );
9520: END IF;
9521: FND_MSG_PUB.count_and_get
9522: (
9523: p_encoded => FND_API.G_FALSE,
9524: p_count => x_msg_count,
9525: p_data => x_msg_data
9526: );
9527:
9543: FUNCTION Is_Complete_Enabled(
9544: p_workorder_id IN NUMBER,
9545: P_operation_seq_num IN NUMBER,
9546: p_ue_id IN NUMBER,
9547: p_check_unit IN VARCHAR2 DEFAULT FND_API.G_TRUE
9548: )
9549: RETURN VARCHAR2
9550: IS
9551:
9660: BEGIN
9661: -- If all inputs to the API are null then dont proceed any further.
9662: IF p_workorder_id IS NULL AND p_operation_seq_num IS NULL AND p_ue_id IS NULL
9663: THEN
9664: RETURN FND_API.G_FALSE;
9665: END IF;
9666:
9667: -- If the unit is locked then workorder or operation cant be completed hence return
9668: -- false.
9676: p_workorder_id => p_workorder_id,
9677: P_ue_id => null,
9678: P_visit_id => null,
9679: P_item_instance_id => null
9680: ) = FND_API.G_TRUE
9681: THEN
9682: RETURN FND_API.G_FALSE;
9683: END IF;
9684: */
9678: P_visit_id => null,
9679: P_item_instance_id => null
9680: ) = FND_API.G_TRUE
9681: THEN
9682: RETURN FND_API.G_FALSE;
9683: END IF;
9684: */
9685:
9686: -- Get workorder record details. This also performs workorder status validation.
9688: l_return_status := get_workorder_rec (p_workorder_id => p_workorder_id,
9689: p_object_version_no => l_object_version_no,
9690: x_workorder_rec => l_workorder_rec
9691: );
9692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9693: THEN
9694: RETURN FND_API.G_FALSE;
9695: END IF;
9696: END IF;
9690: x_workorder_rec => l_workorder_rec
9691: );
9692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9693: THEN
9694: RETURN FND_API.G_FALSE;
9695: END IF;
9696: END IF;
9697:
9698: -- If operation sequence number is passed to this API then the info is for operation completion
9704: CLOSE c_get_wo_op_id;
9705:
9706: IF l_workorder_operation_id IS NULL
9707: THEN
9708: RETURN FND_API.G_FALSE;
9709: END IF;
9710:
9711: -- Get workorder operation details rec.
9712: l_return_status := get_operation_rec(
9714: p_object_version_no => l_object_version_no,
9715: x_operation_rec => l_operation_rec
9716: );
9717:
9718: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9719: THEN
9720: RETURN FND_API.G_FALSE;
9721: END IF;
9722: -- If p_ue_id is not null
9716: );
9717:
9718: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9719: THEN
9720: RETURN FND_API.G_FALSE;
9721: END IF;
9722: -- If p_ue_id is not null
9723: -- then this is a check to see if mr signoff should be enabled
9724: -- in that case operation status validations should be skipped
9734: p_workorder_rec => l_workorder_rec, p_validate_date => l_date_validation,
9735: p_check_unit => p_check_unit
9736: );
9737:
9738: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9739: THEN
9740: RETURN FND_API.G_FALSE;
9741: END IF;
9742:
9736: );
9737:
9738: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9739: THEN
9740: RETURN FND_API.G_FALSE;
9741: END IF;
9742:
9743: ELSIF p_workorder_id IS NOT NULL THEN
9744: -- Get workorder and operation details for the given workorder.
9749: p_workorder_id => p_workorder_id,
9750: p_object_version_no => l_object_version_no,
9751: x_operation_tbl => l_operation_tbl
9752: );
9753: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9754: THEN
9755: RETURN FND_API.G_FALSE;
9756: END IF;
9757: ELSE
9751: x_operation_tbl => l_operation_tbl
9752: );
9753: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9754: THEN
9755: RETURN FND_API.G_FALSE;
9756: END IF;
9757: ELSE
9758: -- If p_ue_id is not null
9759: -- then this is a check to see if mr signoff should be enabled
9770: p_validate_date => l_date_validation,
9771: p_check_unit => p_check_unit
9772: );
9773:
9774: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9775: THEN
9776: RETURN FND_API.G_FALSE;
9777: END IF;
9778: ELSIF p_ue_id IS NOT NULL THEN
9772: );
9773:
9774: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9775: THEN
9776: RETURN FND_API.G_FALSE;
9777: END IF;
9778: ELSIF p_ue_id IS NOT NULL THEN
9779: -- As of now we dont check for mr signoff enabled
9780: -- This code to validate if mr signoff is enabled will be added later
9784: OPEN get_ue_details(p_ue_id);
9785: FETCH get_ue_details INTO l_mr_rec;
9786: IF get_ue_details%NOTFOUND THEN
9787: CLOSE get_ue_details;
9788: RETURN FND_API.G_FALSE;
9789: END IF;
9790: CLOSE get_ue_details;
9791:
9792: IF (l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF) THEN
9789: END IF;
9790: CLOSE get_ue_details;
9791:
9792: IF (l_mr_rec.ue_status_code = G_MR_STATUS_SIGNED_OFF) THEN
9793: RETURN FND_API.G_FALSE;
9794: END IF;
9795:
9796: /*l_return_status := is_mr_complete(p_mr_title => l_mr_rec.ue_title,
9797: p_status_code => l_mr_rec.ue_status_code,
9799: p_qa_inspection_type => l_mr_rec.ue_qa_inspection_type_code,
9800: p_qa_plan_id => l_mr_rec.ue_qa_plan_id,
9801: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
9802: );
9803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9804: RETURN FND_API.G_FALSE;
9805: END IF;
9806:
9807: FOR child_csr IN get_child_ue_details(p_ue_id) LOOP
9800: p_qa_plan_id => l_mr_rec.ue_qa_plan_id,
9801: p_qa_collection_id => l_mr_rec.ue_qa_collection_id
9802: );
9803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9804: RETURN FND_API.G_FALSE;
9805: END IF;
9806:
9807: FOR child_csr IN get_child_ue_details(p_ue_id) LOOP
9808: IF (NVL(child_csr.ump_status_code,'X') <> NVL(G_MR_STATUS_SIGNED_OFF, 'Y')) THEN
9814: p_qa_plan_id => child_csr.qa_plan_id,
9815: p_qa_collection_id => child_csr.qa_collection_id
9816: );
9817:
9818: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9819: RETURN FND_API.G_FALSE;
9820: END IF;
9821: END IF;
9822: END LOOP;
9815: p_qa_collection_id => child_csr.qa_collection_id
9816: );
9817:
9818: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9819: RETURN FND_API.G_FALSE;
9820: END IF;
9821: END IF;
9822: END LOOP;
9823:
9825: FOR wo_csr IN get_ue_workorders(l_mr_rec.wip_entity_id) LOOP
9826: l_return_status := is_complete_enabled(p_workorder_id => wo_csr.workorder_id,
9827: p_operation_seq_num => NULL,
9828: p_ue_id => p_ue_id,
9829: p_check_unit => FND_API.G_FALSE
9830: );
9831: IF l_return_status = FND_API.G_FALSE THEN
9832: RETURN FND_API.G_FALSE;
9833: END IF;
9827: p_operation_seq_num => NULL,
9828: p_ue_id => p_ue_id,
9829: p_check_unit => FND_API.G_FALSE
9830: );
9831: IF l_return_status = FND_API.G_FALSE THEN
9832: RETURN FND_API.G_FALSE;
9833: END IF;
9834: END LOOP;
9835:
9828: p_ue_id => p_ue_id,
9829: p_check_unit => FND_API.G_FALSE
9830: );
9831: IF l_return_status = FND_API.G_FALSE THEN
9832: RETURN FND_API.G_FALSE;
9833: END IF;
9834: END LOOP;
9835:
9836: FOR op_csr IN get_ue_operations(l_mr_rec.wip_entity_id) LOOP
9836: FOR op_csr IN get_ue_operations(l_mr_rec.wip_entity_id) LOOP
9837: l_return_status := is_complete_enabled(p_workorder_id => op_csr.workorder_id,
9838: p_operation_seq_num => op_csr.operation_seq_num,
9839: p_ue_id => p_ue_id,
9840: p_check_unit => FND_API.G_FALSE
9841: );
9842: IF l_return_status = FND_API.G_FALSE THEN
9843: RETURN FND_API.G_FALSE;
9844: END IF;
9838: p_operation_seq_num => op_csr.operation_seq_num,
9839: p_ue_id => p_ue_id,
9840: p_check_unit => FND_API.G_FALSE
9841: );
9842: IF l_return_status = FND_API.G_FALSE THEN
9843: RETURN FND_API.G_FALSE;
9844: END IF;
9845: END LOOP;*/
9846:
9839: p_ue_id => p_ue_id,
9840: p_check_unit => FND_API.G_FALSE
9841: );
9842: IF l_return_status = FND_API.G_FALSE THEN
9843: RETURN FND_API.G_FALSE;
9844: END IF;
9845: END LOOP;*/
9846:
9847: END IF;
9846:
9847: END IF;
9848:
9849: -- When control reaches here, none of the conditions are violated. Hence return true.
9850: RETURN FND_API.G_TRUE;
9851:
9852: END Is_Complete_Enabled;
9853:
9854:
9947: AND WIPT.RESOURCE_TYPE = 2 -- Person
9948: AND WIPT.PROCESS_STATUS = 1; -- Pending
9949:
9950: BEGIN
9951: x_return_status := FND_API.G_RET_STS_SUCCESS;
9952:
9953: IF p_x_operation_tbl.COUNT > 0 THEN
9954: FOR i IN p_x_operation_tbl.FIRST..p_x_operation_tbl.LAST LOOP
9955: -- Get the operation and workorder details
9958: IF c_get_op_details%NOTFOUND THEN
9959: CLOSE c_get_op_details;
9960: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
9961: FND_MSG_PUB.add;
9962: x_return_status := FND_API.G_RET_STS_ERROR;
9963: RETURN;
9964: --RAISE FND_API.G_RET_STS_ERROR;
9965: END IF;
9966: CLOSE c_get_op_details;
9960: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
9961: FND_MSG_PUB.add;
9962: x_return_status := FND_API.G_RET_STS_ERROR;
9963: RETURN;
9964: --RAISE FND_API.G_RET_STS_ERROR;
9965: END IF;
9966: CLOSE c_get_op_details;
9967:
9968: OPEN c_get_wo_details(p_x_operation_tbl (i).workorder_id);
9970: IF c_get_wo_details%NOTFOUND THEN
9971: CLOSE c_get_wo_details;
9972: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FND');
9973: FND_MSG_PUB.add;
9974: X_return_status := FND_API.G_RET_STS_ERROR;
9975: RETURN;
9976: --RAISE FND_API.G_RET_STS_ERROR;
9977: END IF;
9978: CLOSE c_get_wo_details;
9972: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_NOT_FND');
9973: FND_MSG_PUB.add;
9974: X_return_status := FND_API.G_RET_STS_ERROR;
9975: RETURN;
9976: --RAISE FND_API.G_RET_STS_ERROR;
9977: END IF;
9978: CLOSE c_get_wo_details;
9979: -- Get the minimum and maximum transaction dates from the
9980: -- WIP_TRANSACTIONS and WIP_COST_TXN_INTERFACE tables for the
10067: WHERE WORKORDER_ID = x_workorder_id
10068: AND OPERATION_SEQUENCE_NUM = x_operation_seq_num;
10069:
10070: BEGIN
10071: x_return_status := FND_API.G_RET_STS_SUCCESS;
10072: IF p_x_operation_tbl.COUNT > 0 THEN
10073: FOR i IN p_x_operation_tbl.FIRST..p_x_operation_tbl.LAST LOOP
10074: OPEN c_get_op_details(p_x_operation_tbl (i).workorder_id, p_x_operation_tbl (i).operation_sequence_num);
10075: 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;
10076: IF c_get_op_details%NOTFOUND THEN
10077: CLOSE c_get_op_details;
10078: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10079: FND_MSG_PUB.add;
10080: x_return_status := FND_API.G_RET_STS_ERROR;
10081: RETURN;
10082: --RAISE FND_API.G_RET_STS_ERROR;
10083: END IF; --IF c_get_op_details%NOTFOUND THEN
10084: CLOSE c_get_op_details;
10078: FND_MESSAGE.set_name('AHL', 'AHL_PRD_WO_OP_NOT_FND');
10079: FND_MSG_PUB.add;
10080: x_return_status := FND_API.G_RET_STS_ERROR;
10081: RETURN;
10082: --RAISE FND_API.G_RET_STS_ERROR;
10083: END IF; --IF c_get_op_details%NOTFOUND THEN
10084: CLOSE c_get_op_details;
10085: END LOOP;
10086: END IF; -- IF p_x_operation_tbl.COUNT > 0 THEN
10271: OPEN get_ue_master_wo(p_ue_id);
10272: FETCH get_ue_master_wo INTO l_workorder_id, l_ovn, l_task_type_code, l_wip_entity_id;
10273: CLOSE get_ue_master_wo;
10274: IF l_task_type_code = 'UNASSOCIATED' THEN
10275: RETURN FND_API.G_RET_STS_SUCCESS;
10276: END IF;
10277: ELSIF(p_workorder_id IS NOT NULL) THEN
10278: OPEN get_wo_ovn(p_workorder_id);
10279: FETCH get_wo_ovn INTO l_ovn, l_wip_entity_id;
10284: -- throw an error
10285: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
10286: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
10287: FND_MSG_PUB.add;
10288: RETURN FND_API.G_RET_STS_ERROR;
10289: END IF;
10290:
10291: IF ( G_DEBUG = 'Y' ) THEN
10292: AHL_DEBUG_PUB.debug( 'In complete_master_wo: workorder_id:ovn:wip_entity_id:' || l_workorder_id
10307: IF (p_visit_id IS NOT NULL) THEN
10308: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10309: (
10310: p_api_version => 1.0,
10311: p_init_msg_list => FND_API.G_TRUE,
10312: p_commit => FND_API.G_FALSE,
10313: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10314: p_default => FND_API.G_FALSE,
10315: p_module_type => 'API',
10308: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10309: (
10310: p_api_version => 1.0,
10311: p_init_msg_list => FND_API.G_TRUE,
10312: p_commit => FND_API.G_FALSE,
10313: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10314: p_default => FND_API.G_FALSE,
10315: p_module_type => 'API',
10316: x_return_status => l_return_status,
10309: (
10310: p_api_version => 1.0,
10311: p_init_msg_list => FND_API.G_TRUE,
10312: p_commit => FND_API.G_FALSE,
10313: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10314: p_default => FND_API.G_FALSE,
10315: p_module_type => 'API',
10316: x_return_status => l_return_status,
10317: x_msg_count => l_msg_count,
10310: p_api_version => 1.0,
10311: p_init_msg_list => FND_API.G_TRUE,
10312: p_commit => FND_API.G_FALSE,
10313: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10314: p_default => FND_API.G_FALSE,
10315: p_module_type => 'API',
10316: x_return_status => l_return_status,
10317: x_msg_count => l_msg_count,
10318: x_msg_data => l_msg_data,
10323: ELSIF (p_ue_id IS NOT NULL) THEN
10324: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10325: (
10326: p_api_version => 1.0,
10327: p_init_msg_list => FND_API.G_TRUE,
10328: p_commit => FND_API.G_FALSE,
10329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10330: p_default => FND_API.G_FALSE,
10331: p_module_type => 'API',
10324: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10325: (
10326: p_api_version => 1.0,
10327: p_init_msg_list => FND_API.G_TRUE,
10328: p_commit => FND_API.G_FALSE,
10329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10330: p_default => FND_API.G_FALSE,
10331: p_module_type => 'API',
10332: x_return_status => l_return_status,
10325: (
10326: p_api_version => 1.0,
10327: p_init_msg_list => FND_API.G_TRUE,
10328: p_commit => FND_API.G_FALSE,
10329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10330: p_default => FND_API.G_FALSE,
10331: p_module_type => 'API',
10332: x_return_status => l_return_status,
10333: x_msg_count => l_msg_count,
10326: p_api_version => 1.0,
10327: p_init_msg_list => FND_API.G_TRUE,
10328: p_commit => FND_API.G_FALSE,
10329: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10330: p_default => FND_API.G_FALSE,
10331: p_module_type => 'API',
10332: x_return_status => l_return_status,
10333: x_msg_count => l_msg_count,
10334: x_msg_data => l_msg_data,
10339: ELSIF (p_workorder_id IS NOT NULL) THEN
10340: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10341: (
10342: p_api_version => 1.0,
10343: p_init_msg_list => FND_API.G_TRUE,
10344: p_commit => FND_API.G_FALSE,
10345: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10346: p_default => FND_API.G_FALSE,
10347: p_module_type => 'API',
10340: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10341: (
10342: p_api_version => 1.0,
10343: p_init_msg_list => FND_API.G_TRUE,
10344: p_commit => FND_API.G_FALSE,
10345: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10346: p_default => FND_API.G_FALSE,
10347: p_module_type => 'API',
10348: x_return_status => l_return_status,
10341: (
10342: p_api_version => 1.0,
10343: p_init_msg_list => FND_API.G_TRUE,
10344: p_commit => FND_API.G_FALSE,
10345: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10346: p_default => FND_API.G_FALSE,
10347: p_module_type => 'API',
10348: x_return_status => l_return_status,
10349: x_msg_count => l_msg_count,
10342: p_api_version => 1.0,
10343: p_init_msg_list => FND_API.G_TRUE,
10344: p_commit => FND_API.G_FALSE,
10345: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10346: p_default => FND_API.G_FALSE,
10347: p_module_type => 'API',
10348: x_return_status => l_return_status,
10349: x_msg_count => l_msg_count,
10350: x_msg_data => l_msg_data,
10360: IF l_workorder_id IS NOT NULL AND l_ovn IS NOT NULL THEN
10361: AHL_COMPLETIONS_PVT.complete_workorder
10362: (
10363: p_api_version => 1.0,
10364: p_init_msg_list => FND_API.G_TRUE,
10365: p_commit => FND_API.G_FALSE,
10366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10367: p_default => FND_API.G_FALSE,
10368: p_module_type => NULL,
10361: AHL_COMPLETIONS_PVT.complete_workorder
10362: (
10363: p_api_version => 1.0,
10364: p_init_msg_list => FND_API.G_TRUE,
10365: p_commit => FND_API.G_FALSE,
10366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10367: p_default => FND_API.G_FALSE,
10368: p_module_type => NULL,
10369: x_return_status => l_return_status,
10362: (
10363: p_api_version => 1.0,
10364: p_init_msg_list => FND_API.G_TRUE,
10365: p_commit => FND_API.G_FALSE,
10366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10367: p_default => FND_API.G_FALSE,
10368: p_module_type => NULL,
10369: x_return_status => l_return_status,
10370: x_msg_count => l_msg_count,
10363: p_api_version => 1.0,
10364: p_init_msg_list => FND_API.G_TRUE,
10365: p_commit => FND_API.G_FALSE,
10366: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10367: p_default => FND_API.G_FALSE,
10368: p_module_type => NULL,
10369: x_return_status => l_return_status,
10370: x_msg_count => l_msg_count,
10371: x_msg_data => l_msg_data,
10376: --RETURN l_return_status;
10377: ELSE
10378: FND_MESSAGE.SET_NAME('AHL', 'AHL_PP_WORKORDER_NOT_EXISTS');
10379: FND_MSG_PUB.ADD;
10380: --RETURN FND_API.G_RET_STS_ERROR;
10381: l_return_status := FND_API.G_RET_STS_ERROR;
10382:
10383: END IF; -- l_workorder_id IS NOT NULL ..
10384: END IF; -- chk_cmplt_wo_exists%NOTFOUND
10377: ELSE
10378: FND_MESSAGE.SET_NAME('AHL', 'AHL_PP_WORKORDER_NOT_EXISTS');
10379: FND_MSG_PUB.ADD;
10380: --RETURN FND_API.G_RET_STS_ERROR;
10381: l_return_status := FND_API.G_RET_STS_ERROR;
10382:
10383: END IF; -- l_workorder_id IS NOT NULL ..
10384: END IF; -- chk_cmplt_wo_exists%NOTFOUND
10385:
10547: -- Initialize error message stack by default
10548: FND_MSG_PUB.Initialize;
10549:
10550: -- Standard call to check for call compatibility
10551: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
10552: THEN
10553: retcode := 2;
10554: errbuf := FND_MSG_PUB.Get;
10555:
10552: THEN
10553: retcode := 2;
10554: errbuf := FND_MSG_PUB.Get;
10555:
10556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10557: END IF;
10558:
10559: -- perform validations -- start
10560:
10619: p_item_instance_id => NULL
10620: );
10621:
10622:
10623: IF l_return_status = FND_API.G_TRUE THEN
10624:
10625: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_LGN_UNTLCKD');
10626: FND_MESSAGE.set_token('WO_NUM', l_workorder_name_tbl(l_index));
10627: FND_MSG_PUB.ADD;
10629: l_valid_for_close_tbl(l_index) := 'N';
10630:
10631: -- log a warning
10632: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');
10633: fnd_file.put_line(fnd_file.log, FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE));
10634: FND_MSG_PUB.Delete_Msg;
10635:
10636: END IF;
10637:
10661: THEN
10662:
10663: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
10664: p_api_version => 1.0,
10665: p_init_msg_list => FND_API.G_TRUE,
10666: p_commit => FND_API.G_FALSE,
10667: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10668: p_module_type => NULL,
10669: p_visit_task_id => l_visit_task_id_tbl(l_index),
10662:
10663: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
10664: p_api_version => 1.0,
10665: p_init_msg_list => FND_API.G_TRUE,
10666: p_commit => FND_API.G_FALSE,
10667: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10668: p_module_type => NULL,
10669: p_visit_task_id => l_visit_task_id_tbl(l_index),
10670: x_return_status => l_return_status,
10663: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
10664: p_api_version => 1.0,
10665: p_init_msg_list => FND_API.G_TRUE,
10666: p_commit => FND_API.G_FALSE,
10667: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10668: p_module_type => NULL,
10669: p_visit_task_id => l_visit_task_id_tbl(l_index),
10670: x_return_status => l_return_status,
10671: x_msg_count => l_msg_count,
10671: x_msg_count => l_msg_count,
10672: x_msg_data => l_msg_data
10673: );
10674:
10675: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
10676: THEN
10677: l_valid_for_close_tbl(l_index) := 'N';
10678: -- log a warning
10679: fnd_file.put_line(fnd_file.log, 'Work Order -> '||l_workorder_name_tbl(l_index)||' is not closed due to following error(s)');