[Home] [Help]
51: );
52:
53: PROCEDURE Launch_NR_Notification (
54: p_sr_incident_id IN NUMBER,
55: p_commit IN VARCHAR2 := FND_API.G_FALSE,
56: x_item_key OUT NOCOPY VARCHAR2,
57: x_return_status OUT NOCOPY VARCHAR2
58: );
59:
74: PROCEDURE Create_SR
75: (
76: -- Standard IN params
77: p_api_version IN NUMBER,
78: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
79: p_commit IN VARCHAR2 := FND_API.G_FALSE,
80: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
81: p_default IN VARCHAR2 := FND_API.G_FALSE,
82: p_module_type IN VARCHAR2 := NULL,
75: (
76: -- Standard IN params
77: p_api_version IN NUMBER,
78: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
79: p_commit IN VARCHAR2 := FND_API.G_FALSE,
80: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
81: p_default IN VARCHAR2 := FND_API.G_FALSE,
82: p_module_type IN VARCHAR2 := NULL,
83: -- Standard OUT params
76: -- Standard IN params
77: p_api_version IN NUMBER,
78: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
79: p_commit IN VARCHAR2 := FND_API.G_FALSE,
80: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
81: p_default IN VARCHAR2 := FND_API.G_FALSE,
82: p_module_type IN VARCHAR2 := NULL,
83: -- Standard OUT params
84: x_return_status OUT NOCOPY VARCHAR2,
77: p_api_version IN NUMBER,
78: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
79: p_commit IN VARCHAR2 := FND_API.G_FALSE,
80: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
81: p_default IN VARCHAR2 := FND_API.G_FALSE,
82: p_module_type IN VARCHAR2 := NULL,
83: -- Standard OUT params
84: x_return_status OUT NOCOPY VARCHAR2,
85: x_msg_count OUT NOCOPY NUMBER,
126: -- Standard start of API savepoint
127: SAVEPOINT Create_SR_SP;
128:
129: -- Initialize return status to success before any code logic/validation
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132: -- Standard call to check for call compatibility
133: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
134: THEN
129: -- Initialize return status to success before any code logic/validation
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132: -- Standard call to check for call compatibility
133: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
134: THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
131:
132: -- Standard call to check for call compatibility
133: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
134: THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
139: IF FND_API.TO_BOOLEAN(p_init_msg_list)
134: THEN
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
139: IF FND_API.TO_BOOLEAN(p_init_msg_list)
140: THEN
141: FND_MSG_PUB.INITIALIZE;
142: END IF;
135: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
136: END IF;
137:
138: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
139: IF FND_API.TO_BOOLEAN(p_init_msg_list)
140: THEN
141: FND_MSG_PUB.INITIALIZE;
142: END IF;
143:
162: -- Check Error Message stack.
163: x_msg_count := FND_MSG_PUB.count_msg;
164: IF (x_msg_count > 0)
165: THEN
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
168:
169: -- Initialize the SR record.
170: CS_SERVICEREQUEST_PUB.initialize_rec(l_service_request_rec);
170: CS_SERVICEREQUEST_PUB.initialize_rec(l_service_request_rec);
171:
172: -- Assign the SR rec values
173: l_service_request_rec.request_date := sysdate;
174: IF (p_x_nonroutine_rec.incident_date IS NULL OR p_x_nonroutine_rec.incident_date = FND_API.G_MISS_DATE)
175: THEN
176: l_service_request_rec.incident_occurred_date := l_service_request_rec.request_date;
177: ELSE
178: l_service_request_rec.incident_occurred_date := p_x_nonroutine_rec.incident_date;
222:
223: -- Handle the contact if any
224: IF
225: (
226: p_x_nonroutine_rec.contact_type IS NOT NULL AND p_x_nonroutine_rec.contact_type <> FND_API.G_MISS_CHAR
227: AND
228: p_x_nonroutine_rec.contact_id IS NOT NULL AND p_x_nonroutine_rec.contact_id <> FND_API.G_MISS_NUM
229: )
230: THEN
224: IF
225: (
226: p_x_nonroutine_rec.contact_type IS NOT NULL AND p_x_nonroutine_rec.contact_type <> FND_API.G_MISS_CHAR
227: AND
228: p_x_nonroutine_rec.contact_id IS NOT NULL AND p_x_nonroutine_rec.contact_id <> FND_API.G_MISS_NUM
229: )
230: THEN
231: l_contacts_table(1).contact_type := p_x_nonroutine_rec.contact_type;
232: l_contacts_table(1).party_id := p_x_nonroutine_rec.contact_id;
240: -- Call to Service Request API
241: CS_SERVICEREQUEST_PUB.Create_ServiceRequest
242: (
243: p_api_version => 3.0,
244: p_init_msg_list => FND_API.G_FALSE,
245: p_commit => FND_API.G_FALSE,
246: x_return_status => l_return_status,
247: x_msg_count => l_msg_count,
248: x_msg_data => l_msg_data,
241: CS_SERVICEREQUEST_PUB.Create_ServiceRequest
242: (
243: p_api_version => 3.0,
244: p_init_msg_list => FND_API.G_FALSE,
245: p_commit => FND_API.G_FALSE,
246: x_return_status => l_return_status,
247: x_msg_count => l_msg_count,
248: x_msg_data => l_msg_data,
249: p_resp_appl_id => fnd_global.resp_appl_id,
264: x_individual_owner => l_individual_owner,
265: x_group_owner => l_group_owner,
266: x_individual_type => l_individual_type
267: );
268: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
269: THEN
270: IF (G_DEBUG_UEXP >= G_DEBUG_LEVEL)
271: THEN
272: fnd_log.string
276: 'Call to CS_SERVICEREQUEST_PUB.Create_ServiceRequest failed...'
277: );
278: END IF;
279:
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281: END IF;
282:
283: -- l_cs_incident_id is anyway expected to be the same as p_x_nonroutine_rec.incident_id, still to be extra sure...
284: p_x_nonroutine_rec.incident_id := l_cs_incident_id;
315: -- Check Error Message stack.
316: x_msg_count := FND_MSG_PUB.count_msg;
317: IF (x_msg_count > 0)
318: THEN
319: RAISE FND_API.G_EXC_ERROR;
320: END IF;
321:
322: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
323: THEN
370: * validate unit is availale and active
371: * Behavior of Log Series and Number in "Unit / Component Details" sub-header
372: * validate log_series is not null
373: */
374: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
375: THEN
376: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_UNIT_MAND');
377: -- Unit is mandatory for associating MEL/CDL instructions
378: FND_MSG_PUB.ADD;
378: FND_MSG_PUB.ADD;
379: END IF;
380:
381: IF (
382: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
383: AND
384: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
385: )
386: THEN
380:
381: IF (
382: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
383: AND
384: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
385: )
386: THEN
387: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
388: -- Log Series and Number are mandatory for associating MEL/CDL instructions
395: -- Check Error Message stack.
396: x_msg_count := FND_MSG_PUB.count_msg;
397: IF (x_msg_count > 0)
398: THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401:
402: IF (l_ata_sequence_id IS NOT NULL)
403: THEN
411: THEN
412: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
413: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
414: FND_MSG_PUB.ADD;
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
417:
418: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
419: THEN
490: END IF;
491:
492: Launch_NR_Notification (
493: p_sr_incident_id => p_x_nonroutine_rec.incident_id,
494: p_commit => FND_API.G_FALSE,
495: x_item_key => l_item_key,
496: x_return_status => l_return_status);
497:
498: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
519: -- Check Error Message stack.
520: x_msg_count := FND_MSG_PUB.count_msg;
521: IF (x_msg_count > 0)
522: THEN
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525:
526: -- Commit if p_commit = FND_API.G_TRUE
527: IF FND_API.TO_BOOLEAN(p_commit)
522: THEN
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525:
526: -- Commit if p_commit = FND_API.G_TRUE
527: IF FND_API.TO_BOOLEAN(p_commit)
528: THEN
529: COMMIT WORK;
530: END IF;
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525:
526: -- Commit if p_commit = FND_API.G_TRUE
527: IF FND_API.TO_BOOLEAN(p_commit)
528: THEN
529: COMMIT WORK;
530: END IF;
531:
533: FND_MSG_PUB.count_and_get
534: (
535: p_count => x_msg_count,
536: p_data => x_msg_data,
537: p_encoded => FND_API.G_FALSE
538: );
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
537: p_encoded => FND_API.G_FALSE
538: );
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: Rollback to Create_SR_SP;
544: FND_MSG_PUB.count_and_get
545: (
538: );
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: Rollback to Create_SR_SP;
544: FND_MSG_PUB.count_and_get
545: (
546: p_count => x_msg_count,
544: FND_MSG_PUB.count_and_get
545: (
546: p_count => x_msg_count,
547: p_data => x_msg_data,
548: p_encoded => FND_API.G_FALSE
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: p_data => x_msg_data,
548: p_encoded => FND_API.G_FALSE
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: Rollback to Create_SR_SP;
554: FND_MSG_PUB.count_and_get
555: (
548: p_encoded => FND_API.G_FALSE
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: Rollback to Create_SR_SP;
554: FND_MSG_PUB.count_and_get
555: (
556: p_count => x_msg_count,
554: FND_MSG_PUB.count_and_get
555: (
556: p_count => x_msg_count,
557: p_data => x_msg_data,
558: p_encoded => FND_API.G_FALSE
559: );
560:
561: WHEN OTHERS THEN
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558: p_encoded => FND_API.G_FALSE
559: );
560:
561: WHEN OTHERS THEN
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: Rollback to Create_SR_SP;
564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
565: THEN
566: FND_MSG_PUB.add_exc_msg
573: FND_MSG_PUB.count_and_get
574: (
575: p_count => x_msg_count,
576: p_data => x_msg_data,
577: p_encoded => FND_API.G_FALSE
578: );
579: END Create_SR;
580:
581: ------------------------------
584: PROCEDURE Update_SR
585: (
586: -- Standard IN params
587: p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
589: p_commit IN VARCHAR2 := FND_API.G_FALSE,
590: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
591: p_default IN VARCHAR2 := FND_API.G_FALSE,
592: p_module_type IN VARCHAR2 := NULL,
585: (
586: -- Standard IN params
587: p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
589: p_commit IN VARCHAR2 := FND_API.G_FALSE,
590: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
591: p_default IN VARCHAR2 := FND_API.G_FALSE,
592: p_module_type IN VARCHAR2 := NULL,
593: -- Standard OUT params
586: -- Standard IN params
587: p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
589: p_commit IN VARCHAR2 := FND_API.G_FALSE,
590: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
591: p_default IN VARCHAR2 := FND_API.G_FALSE,
592: p_module_type IN VARCHAR2 := NULL,
593: -- Standard OUT params
594: x_return_status OUT NOCOPY VARCHAR2,
587: p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
589: p_commit IN VARCHAR2 := FND_API.G_FALSE,
590: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
591: p_default IN VARCHAR2 := FND_API.G_FALSE,
592: p_module_type IN VARCHAR2 := NULL,
593: -- Standard OUT params
594: x_return_status OUT NOCOPY VARCHAR2,
595: x_msg_count OUT NOCOPY NUMBER,
674: -- Standard start of API savepoint
675: SAVEPOINT Update_SR_SP;
676:
677: -- Initialize return status to success before any code logic/validation
678: x_return_status := FND_API.G_RET_STS_SUCCESS;
679:
680: -- Standard call to check for call compatibility
681: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
682: THEN
677: -- Initialize return status to success before any code logic/validation
678: x_return_status := FND_API.G_RET_STS_SUCCESS;
679:
680: -- Standard call to check for call compatibility
681: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
682: THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: END IF;
685:
679:
680: -- Standard call to check for call compatibility
681: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
682: THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: END IF;
685:
686: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
687: IF FND_API.TO_BOOLEAN(p_init_msg_list)
682: THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: END IF;
685:
686: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
687: IF FND_API.TO_BOOLEAN(p_init_msg_list)
688: THEN
689: FND_MSG_PUB.INITIALIZE;
690: END IF;
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: END IF;
685:
686: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
687: IF FND_API.TO_BOOLEAN(p_init_msg_list)
688: THEN
689: FND_MSG_PUB.INITIALIZE;
690: END IF;
691:
710: -- Check Error Message stack.
711: x_msg_count := FND_MSG_PUB.count_msg;
712: IF (x_msg_count > 0)
713: THEN
714: RAISE FND_API.G_EXC_ERROR;
715: END IF;
716:
717: -- Initialize the SR record.
718: CS_SERVICEREQUEST_PUB.initialize_rec(l_service_request_rec);
765:
766: -- Handle the contact if any (code below changed per new R12 CS package's CS_SRCONTACT_PKG.check_duplicates() method)
767: IF
768: (
769: p_x_nonroutine_rec.contact_type IS NOT NULL AND p_x_nonroutine_rec.contact_type <> FND_API.G_MISS_CHAR
770: AND
771: p_x_nonroutine_rec.contact_id IS NOT NULL AND p_x_nonroutine_rec.contact_id <> FND_API.G_MISS_NUM
772: )
773: THEN
767: IF
768: (
769: p_x_nonroutine_rec.contact_type IS NOT NULL AND p_x_nonroutine_rec.contact_type <> FND_API.G_MISS_CHAR
770: AND
771: p_x_nonroutine_rec.contact_id IS NOT NULL AND p_x_nonroutine_rec.contact_id <> FND_API.G_MISS_NUM
772: )
773: THEN
774: OPEN get_contact_details(p_x_nonroutine_rec.incident_id);
775: FETCH get_contact_details INTO l_contact_rec;
789: -- Call to Service Request API
790: CS_SERVICEREQUEST_PUB.Update_ServiceRequest
791: (
792: p_api_version => 3.0,
793: p_init_msg_list => FND_API.G_FALSE,
794: p_commit => FND_API.G_FALSE,
795: x_return_status => l_return_status,
796: x_msg_count => l_msg_count,
797: x_msg_data => l_msg_data,
790: CS_SERVICEREQUEST_PUB.Update_ServiceRequest
791: (
792: p_api_version => 3.0,
793: p_init_msg_list => FND_API.G_FALSE,
794: p_commit => FND_API.G_FALSE,
795: x_return_status => l_return_status,
796: x_msg_count => l_msg_count,
797: x_msg_data => l_msg_data,
798: p_request_id => p_x_nonroutine_rec.incident_id,
811: p_workflow_process_id => NULL,
812: x_workflow_process_id => l_workflow_process_id,
813: x_interaction_id => l_interaction_id
814: );
815: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
816: THEN
817: IF (G_DEBUG_UEXP >= G_DEBUG_LEVEL)
818: THEN
819: fnd_log.string
823: 'Call to CS_SERVICEREQUEST_PUB.Update_ServiceRequest failed...'
824: );
825: END IF;
826:
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: ELSE
829:
830: IF (G_DEBUG_UEXP >= G_DEBUG_LEVEL)
831: THEN
846: FND_MSG_PUB.INITIALIZE;
847: END IF;
848:
849: -- Retrieve ue_id and ovn accordingly...
850: IF (p_x_nonroutine_rec.unit_effectivity_id IS NOT NULL AND p_x_nonroutine_rec.unit_effectivity_id <> FND_API.G_MISS_NUM)
851: THEN
852: SELECT object_version_number
853: INTO p_x_nonroutine_rec.ue_object_version_number
854: FROM ahl_unit_effectivities_b
877: -- Check Error Message stack.
878: x_msg_count := FND_MSG_PUB.count_msg;
879: IF (x_msg_count > 0)
880: THEN
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883:
884: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
885: THEN
949: * validate unit is availale and active
950: * Behavior of Log Series and Number in "Unit / Component Details" sub-header
951: * validate log_series is not null
952: */
953: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
954: THEN
955: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_UNIT_MAND');
956: -- Unit is mandatory for associating MEL/CDL instructions
957: FND_MSG_PUB.ADD;
957: FND_MSG_PUB.ADD;
958: END IF;
959:
960: IF (
961: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
962: AND
963: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
964: )
965: THEN
959:
960: IF (
961: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
962: AND
963: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
964: )
965: THEN
966: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
967: -- Log Series and Number are mandatory for associating MEL/CDL instructions
974: -- Check Error Message stack.
975: x_msg_count := FND_MSG_PUB.count_msg;
976: IF (x_msg_count > 0)
977: THEN
978: RAISE FND_API.G_EXC_ERROR;
979: END IF;
980:
981: IF (l_ata_sequence_id IS NOT NULL)
982: THEN
990: THEN
991: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
992: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
993: FND_MSG_PUB.ADD;
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996:
997: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
998: THEN
1168: -- Check Error Message stack.
1169: x_msg_count := FND_MSG_PUB.count_msg;
1170: IF (x_msg_count > 0)
1171: THEN
1172: RAISE FND_API.G_EXC_ERROR;
1173: END IF;
1174:
1175: -- Commit if p_commit = FND_API.G_TRUE
1176: IF FND_API.TO_BOOLEAN(p_commit)
1171: THEN
1172: RAISE FND_API.G_EXC_ERROR;
1173: END IF;
1174:
1175: -- Commit if p_commit = FND_API.G_TRUE
1176: IF FND_API.TO_BOOLEAN(p_commit)
1177: THEN
1178: COMMIT WORK;
1179: END IF;
1172: RAISE FND_API.G_EXC_ERROR;
1173: END IF;
1174:
1175: -- Commit if p_commit = FND_API.G_TRUE
1176: IF FND_API.TO_BOOLEAN(p_commit)
1177: THEN
1178: COMMIT WORK;
1179: END IF;
1180:
1182: FND_MSG_PUB.count_and_get
1183: (
1184: p_count => x_msg_count,
1185: p_data => x_msg_data,
1186: p_encoded => FND_API.G_FALSE
1187: );
1188:
1189: EXCEPTION
1190: WHEN FND_API.G_EXC_ERROR THEN
1186: p_encoded => FND_API.G_FALSE
1187: );
1188:
1189: EXCEPTION
1190: WHEN FND_API.G_EXC_ERROR THEN
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: Rollback to Update_SR_SP;
1193: FND_MSG_PUB.count_and_get
1194: (
1187: );
1188:
1189: EXCEPTION
1190: WHEN FND_API.G_EXC_ERROR THEN
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: Rollback to Update_SR_SP;
1193: FND_MSG_PUB.count_and_get
1194: (
1195: p_count => x_msg_count,
1193: FND_MSG_PUB.count_and_get
1194: (
1195: p_count => x_msg_count,
1196: p_data => x_msg_data,
1197: p_encoded => FND_API.G_FALSE
1198: );
1199:
1200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1196: p_data => x_msg_data,
1197: p_encoded => FND_API.G_FALSE
1198: );
1199:
1200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: Rollback to Update_SR_SP;
1203: FND_MSG_PUB.count_and_get
1204: (
1197: p_encoded => FND_API.G_FALSE
1198: );
1199:
1200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: Rollback to Update_SR_SP;
1203: FND_MSG_PUB.count_and_get
1204: (
1205: p_count => x_msg_count,
1203: FND_MSG_PUB.count_and_get
1204: (
1205: p_count => x_msg_count,
1206: p_data => x_msg_data,
1207: p_encoded => FND_API.G_FALSE
1208: );
1209:
1210: WHEN OTHERS THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1207: p_encoded => FND_API.G_FALSE
1208: );
1209:
1210: WHEN OTHERS THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: Rollback to Update_SR_SP;
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1214: THEN
1215: FND_MSG_PUB.add_exc_msg
1222: FND_MSG_PUB.count_and_get
1223: (
1224: p_count => x_msg_count,
1225: p_data => x_msg_data,
1226: p_encoded => FND_API.G_FALSE
1227: );
1228: END Update_SR;
1229:
1230: ----------------------------------------------
1233: PROCEDURE Initiate_Mel_Cdl_Approval
1234: (
1235: -- Standard IN params
1236: p_api_version IN NUMBER,
1237: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1238: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1239: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1240: p_default IN VARCHAR2 := FND_API.G_FALSE,
1241: p_module_type IN VARCHAR2 := NULL,
1234: (
1235: -- Standard IN params
1236: p_api_version IN NUMBER,
1237: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1238: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1239: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1240: p_default IN VARCHAR2 := FND_API.G_FALSE,
1241: p_module_type IN VARCHAR2 := NULL,
1242: -- Standard OUT params
1235: -- Standard IN params
1236: p_api_version IN NUMBER,
1237: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1238: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1239: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1240: p_default IN VARCHAR2 := FND_API.G_FALSE,
1241: p_module_type IN VARCHAR2 := NULL,
1242: -- Standard OUT params
1243: x_return_status OUT NOCOPY VARCHAR2,
1236: p_api_version IN NUMBER,
1237: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1238: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1239: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1240: p_default IN VARCHAR2 := FND_API.G_FALSE,
1241: p_module_type IN VARCHAR2 := NULL,
1242: -- Standard OUT params
1243: x_return_status OUT NOCOPY VARCHAR2,
1244: x_msg_count OUT NOCOPY NUMBER,
1386: -- Standard start of API savepoint
1387: SAVEPOINT Initiate_Mel_Cdl_Approval_SP;
1388:
1389: -- Initialize return status to success before any code logic/validation
1390: x_return_status := FND_API.G_RET_STS_SUCCESS;
1391:
1392: -- Standard call to check for call compatibility
1393: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1394: THEN
1389: -- Initialize return status to success before any code logic/validation
1390: x_return_status := FND_API.G_RET_STS_SUCCESS;
1391:
1392: -- Standard call to check for call compatibility
1393: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1394: THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: END IF;
1397:
1391:
1392: -- Standard call to check for call compatibility
1393: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1394: THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: END IF;
1397:
1398: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1399: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1394: THEN
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: END IF;
1397:
1398: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1399: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1400: THEN
1401: FND_MSG_PUB.INITIALIZE;
1402: END IF;
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1396: END IF;
1397:
1398: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1399: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1400: THEN
1401: FND_MSG_PUB.INITIALIZE;
1402: END IF;
1403:
1422: CLOSE unit_effect_csr;
1423: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_UE_INVALID');
1424: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1425: FND_MSG_PUB.ADD;
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (l_ue_rec.object_version_number <> p_ue_object_version) THEN
1428: CLOSE unit_effect_csr;
1429: FND_MESSAGE.Set_Name('AHL','AHL_COM_CHANGED');
1430: FND_MSG_PUB.ADD;
1427: ELSIF (l_ue_rec.object_version_number <> p_ue_object_version) THEN
1428: CLOSE unit_effect_csr;
1429: FND_MESSAGE.Set_Name('AHL','AHL_COM_CHANGED');
1430: FND_MSG_PUB.ADD;
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433: CLOSE unit_effect_csr;
1434:
1435: -- Check Unit locked.
1435: -- Check Unit locked.
1436: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => null,
1437: p_ue_id => p_ue_id,
1438: p_visit_id => null,
1439: p_item_instance_id => null) = FND_API.g_true THEN
1440: -- Unit is locked, therefore cannot proceed for approval.
1441: -- and cannot login to the workorder
1442: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UNITLCKED');
1443: FND_MESSAGE.set_token('UE_ID', p_ue_id);
1441: -- and cannot login to the workorder
1442: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UNITLCKED');
1443: FND_MESSAGE.set_token('UE_ID', p_ue_id);
1444: FND_MSG_PUB.ADD;
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: -- check UE status.
1449: OPEN visit_det_csr(p_ue_id);
1452: CLOSE visit_det_csr;
1453: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NOT_PRD');
1454: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1455: FND_MSG_PUB.ADD;
1456: RAISE FND_API.G_EXC_ERROR;
1457: END IF;
1458: CLOSE visit_det_csr;
1459:
1460: -- Validate UE is already not pending for MEL/CDL approval / already not approved
1464: CLOSE ue_deferral_csr;
1465: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NOT_DEFER');
1466: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1467: FND_MSG_PUB.ADD;
1468: RAISE FND_API.G_EXC_ERROR;
1469: END IF;
1470: CLOSE ue_deferral_csr;
1471:
1472: IF (l_deferral_rec.approval_status_code IN ('DEFERRED','DEFERRAL_PENDING')) THEN
1471:
1472: IF (l_deferral_rec.approval_status_code IN ('DEFERRED','DEFERRAL_PENDING')) THEN
1473: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_APPR_STATUS_INVALID');
1474: FND_MSG_PUB.ADD;
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1477:
1478: IF (l_deferral_rec.ata_sequence_id IS NULL) THEN
1479: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NO_SYS_SEQ_ASSOC');
1477:
1478: IF (l_deferral_rec.ata_sequence_id IS NULL) THEN
1479: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NO_SYS_SEQ_ASSOC');
1480: FND_MSG_PUB.ADD;
1481: RAISE FND_API.G_EXC_ERROR;
1482: END IF;
1483:
1484: -- validate ue is not being deferred.
1485: OPEN ue_defer_csr(p_ue_id);
1487: IF (ue_defer_csr%FOUND) THEN
1488: CLOSE ue_defer_csr;
1489: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_IN_DEFER');
1490: FND_MSG_PUB.ADD;
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493: CLOSE ue_defer_csr;
1494:
1495: -- validate there are no child UEs being deferred.
1498: IF (ue_defer_child_csr%FOUND) THEN
1499: CLOSE ue_defer_child_csr;
1500: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_CHILD_UE_DEFER');
1501: FND_MSG_PUB.ADD;
1502: RAISE FND_API.G_EXC_ERROR;
1503: END IF;
1504: CLOSE ue_defer_child_csr;
1505:
1506: -- Perform pre-MEL/CDL approval validations
1510: IF (mel_cdl_header_csr%NOTFOUND) THEN
1511: CLOSE mel_cdl_header_csr;
1512: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_MEL_CDL_INVALID');
1513: FND_MSG_PUB.ADD;
1514: RAISE FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1517: -- validate repair category.
1518: OPEN get_exp_resolution_csr(l_ue_rec.cs_incident_id);
1520: IF (get_exp_resolution_csr%NOTFOUND) THEN
1521: CLOSE get_exp_resolution_csr;
1522: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_CS_INC_MISSING');
1523: FND_MSG_PUB.ADD;
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF (nvl(l_repair_time, 0) = 0) AND (l_expected_resolu_date IS NULL) THEN
1526: CLOSE get_exp_resolution_csr;
1527: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_RESOLUTION_MAND');
1528: FND_MSG_PUB.ADD;
1525: ELSIF (nvl(l_repair_time, 0) = 0) AND (l_expected_resolu_date IS NULL) THEN
1526: CLOSE get_exp_resolution_csr;
1527: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_RESOLUTION_MAND');
1528: FND_MSG_PUB.ADD;
1529: RAISE FND_API.G_EXC_ERROR;
1530: END IF;
1531: CLOSE get_exp_resolution_csr;
1532:
1533: /* Commented this validation to fix second issue reported in bug#7697685
1536: THEN
1537: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
1538: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
1539: FND_MSG_PUB.ADD;
1540: RAISE FND_API.G_EXC_ERROR;
1541: END IF;
1542: */
1543:
1544: -- Validate log_series, number + unit_config are not null for NR that is being submitted for MEL/CDL deferral
1546: THEN
1547: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_APPR_MAND_INV');
1548: -- Unit, Log Series and Number are mandatory for submitting for MEL/CDL approval
1549: FND_MSG_PUB.ADD;
1550: RAISE FND_API.G_EXC_ERROR;
1551: END IF;
1552:
1553: --amsriniv. Bug 6659422. Adding condition below only when dispatch_number and installed_number
1554: --are both NOT NULL and dispatch_number is > 0.
1568:
1569: IF ((l_installed_number - l_NR_count) <= l_dispatch_number) THEN
1570: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPEN_NR_EXCEEDS');
1571: FND_MSG_PUB.ADD;
1572: RAISE FND_API.G_EXC_ERROR;
1573: END IF;
1574: END IF;
1575:
1576: -- validate workorder dependency.
1576: -- validate workorder dependency.
1577: AHL_PRD_WORKORDER_PVT.validate_dependencies
1578: (
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_TRUE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => FND_API.G_FALSE,
1584: p_module_type => NULL,
1577: AHL_PRD_WORKORDER_PVT.validate_dependencies
1578: (
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_TRUE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => FND_API.G_FALSE,
1584: p_module_type => NULL,
1585: x_return_status => l_return_status,
1578: (
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_TRUE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => FND_API.G_FALSE,
1584: p_module_type => NULL,
1585: x_return_status => l_return_status,
1586: x_msg_count => l_msg_count,
1579: p_api_version => 1.0,
1580: p_init_msg_list => FND_API.G_TRUE,
1581: p_commit => FND_API.G_FALSE,
1582: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1583: p_default => FND_API.G_FALSE,
1584: p_module_type => NULL,
1585: x_return_status => l_return_status,
1586: x_msg_count => l_msg_count,
1587: x_msg_data => l_msg_data,
1590: p_workorder_id => NULL
1591: );
1592:
1593: -- if workorders under UE has external dependencies, dont submit for approval, raise error.
1594: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1595: IF (fnd_log.level_error >= G_DEBUG_LEVEL)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_error,
1599: 'ahl.plsql.AHL_UMP_NONROUTINES_PVT.Initiate_Mel_Cdl_Approval',
1600: 'Can not go ahead with submission of approval because Workorder dependencies exists'
1601: );
1602: END IF;
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605:
1606: -- Kick off approval process if active, else complete approval process (post-MEL/CDL approval updations)
1607: ahl_utility_pvt.get_wf_process_name(
1633: );
1634:
1635: END IF;
1636:
1637: IF((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
1638: ( l_active <> G_YES_FLAG))THEN
1639: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)THEN
1640: fnd_log.string
1641: (
1653: p_object_version_number => l_deferral_rec.object_version_number,
1654: p_new_status => 'DEFERRAL_PENDING',
1655: x_return_status => l_return_status);
1656:
1657: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1658: IF (fnd_log.level_error >= G_DEBUG_LEVEL)THEN
1659: fnd_log.string
1660: (
1661: fnd_log.level_error,
1662: 'ahl.plsql.AHL_UMP_NONROUTINES_PVT.submit_for_approval',
1663: 'Can not go ahead with approval because AHL_UMP_NONROUTINES_PVT.Initiate_Mel_Cdl_Approval threw error'
1664: );
1665: END IF;
1666: RAISE FND_API.G_EXC_ERROR;
1667: END IF;
1668:
1669: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)THEN
1670: fnd_log.string
1748: 'At the end of PLSQL procedure'
1749: );
1750: END IF;
1751:
1752: -- Commit if p_commit = FND_API.G_TRUE
1753: IF FND_API.TO_BOOLEAN(p_commit)
1754: THEN
1755: COMMIT WORK;
1756: END IF;
1749: );
1750: END IF;
1751:
1752: -- Commit if p_commit = FND_API.G_TRUE
1753: IF FND_API.TO_BOOLEAN(p_commit)
1754: THEN
1755: COMMIT WORK;
1756: END IF;
1757:
1759: FND_MSG_PUB.count_and_get
1760: (
1761: p_count => x_msg_count,
1762: p_data => x_msg_data,
1763: p_encoded => FND_API.G_FALSE
1764: );
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1763: p_encoded => FND_API.G_FALSE
1764: );
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: Rollback to Initiate_Mel_Cdl_Approval_SP;
1770: FND_MSG_PUB.count_and_get
1771: (
1764: );
1765:
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: Rollback to Initiate_Mel_Cdl_Approval_SP;
1770: FND_MSG_PUB.count_and_get
1771: (
1772: p_count => x_msg_count,
1770: FND_MSG_PUB.count_and_get
1771: (
1772: p_count => x_msg_count,
1773: p_data => x_msg_data,
1774: p_encoded => FND_API.G_FALSE
1775: );
1776:
1777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: p_data => x_msg_data,
1774: p_encoded => FND_API.G_FALSE
1775: );
1776:
1777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1779: Rollback to Initiate_Mel_Cdl_Approval_SP;
1780: FND_MSG_PUB.count_and_get
1781: (
1774: p_encoded => FND_API.G_FALSE
1775: );
1776:
1777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1779: Rollback to Initiate_Mel_Cdl_Approval_SP;
1780: FND_MSG_PUB.count_and_get
1781: (
1782: p_count => x_msg_count,
1780: FND_MSG_PUB.count_and_get
1781: (
1782: p_count => x_msg_count,
1783: p_data => x_msg_data,
1784: p_encoded => FND_API.G_FALSE
1785: );
1786:
1787: WHEN OTHERS THEN
1788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1784: p_encoded => FND_API.G_FALSE
1785: );
1786:
1787: WHEN OTHERS THEN
1788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: Rollback to Initiate_Mel_Cdl_Approval_SP;
1790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1791: THEN
1792: FND_MSG_PUB.add_exc_msg
1799: FND_MSG_PUB.count_and_get
1800: (
1801: p_count => x_msg_count,
1802: p_data => x_msg_data,
1803: p_encoded => FND_API.G_FALSE
1804: );
1805: END Initiate_Mel_Cdl_Approval;
1806:
1807: ----------------------------------------------
1876: )
1877: AND ROWNUM = 1;
1878: BEGIN
1879: -- Initialize return status to success before any code logic/validation
1880: x_return_status := FND_API.G_RET_STS_SUCCESS;
1881:
1882: -- Log API entry point
1883: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
1884: THEN
1896: THEN
1897: -- return error.
1898: FND_MESSAGE.Set_Name('AHL', 'AHL_UMP_NR_MULTI_PARAM');
1899: FND_MSG_PUB.ADD;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: END IF;
1902:
1903: -- if p_mel_cdl_header_id is not null
1904: IF (p_mel_cdl_header_id IS NOT NULL)
1906: OPEN nr_mel_cdl_csr(p_mel_cdl_header_id);
1907: FETCH nr_mel_cdl_csr INTO l_junk;
1908: IF (nr_mel_cdl_csr%FOUND)
1909: THEN
1910: x_return_status := FND_API.G_RET_STS_ERROR;
1911: END IF;
1912: CLOSE nr_mel_cdl_csr;
1913: END IF; -- p_mel_cdl_header_id IS NOT NULL
1914:
1918: OPEN nr_pc_node_csr(p_pc_node_id);
1919: FETCH nr_pc_node_csr INTO l_junk;
1920: IF (nr_pc_node_csr%FOUND)
1921: THEN
1922: x_return_status := FND_API.G_RET_STS_ERROR;
1923: END IF;
1924: CLOSE nr_pc_node_csr;
1925: END IF; -- p_pc_node_id IS NOT NULL
1926:
1936: );
1937: END IF;
1938:
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942:
1943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1937: END IF;
1938:
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942:
1943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1939: EXCEPTION
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942:
1943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1946: WHEN OTHERS THEN
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1940: WHEN FND_API.G_EXC_ERROR THEN
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942:
1943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1946: WHEN OTHERS THEN
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1948: END Check_Open_NRs;
1943: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945:
1946: WHEN OTHERS THEN
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1948: END Check_Open_NRs;
1949:
1950: -----------------------------------------
1951: -- Spec Function Get_Mel_Cdl_Header_Id --
2009: l_mel_version_number NUMBER;
2010:
2011: BEGIN
2012:
2013: IF (p_unit_effectivity_id IS NOT NULL AND p_unit_effectivity_id <> FND_API.G_MISS_NUM)
2014: THEN
2015: OPEN get_ue_details;
2016: FETCH get_ue_details INTO l_unit_config_id, l_mel_cdl_type_code;
2017: CLOSE get_ue_details;
2015: OPEN get_ue_details;
2016: FETCH get_ue_details INTO l_unit_config_id, l_mel_cdl_type_code;
2017: CLOSE get_ue_details;
2018: ELSIF (
2019: p_csi_instance_id IS NOT NULL AND p_csi_instance_id <> FND_API.G_MISS_NUM AND
2020: p_mel_cdl_type_code IS NOT NULL AND p_mel_cdl_type_code <> FND_API.G_MISS_CHAR
2021: )
2022: THEN
2023: --SELECT ahl_util_uc_pkg.get_uc_header_id(p_csi_instance_id) INTO l_unit_config_id FROM DUAL;
2016: FETCH get_ue_details INTO l_unit_config_id, l_mel_cdl_type_code;
2017: CLOSE get_ue_details;
2018: ELSIF (
2019: p_csi_instance_id IS NOT NULL AND p_csi_instance_id <> FND_API.G_MISS_NUM AND
2020: p_mel_cdl_type_code IS NOT NULL AND p_mel_cdl_type_code <> FND_API.G_MISS_CHAR
2021: )
2022: THEN
2023: --SELECT ahl_util_uc_pkg.get_uc_header_id(p_csi_instance_id) INTO l_unit_config_id FROM DUAL;
2024: l_unit_config_id := ahl_util_uc_pkg.get_uc_header_id(p_csi_instance_id);
2050: --------------------------------------
2051: FUNCTION Get_Mel_Cdl_Status
2052: (
2053: p_unit_effectivity_id NUMBER,
2054: p_get_code VARCHAR2 := FND_API.G_FALSE
2055: )
2056: RETURN VARCHAR2
2057: IS
2058: l_mel_cdl_status VARCHAR2(30) := 'OPEN';
2071: l_ret_val BOOLEAN;
2072:
2073: BEGIN
2074:
2075: IF (p_unit_effectivity_id IS NOT NULL AND p_unit_effectivity_id <> FND_API.G_MISS_NUM)
2076: THEN
2077: OPEN get_ue_details;
2078: FETCH get_ue_details INTO l_deferral_type, l_approval_code;
2079: IF (get_ue_details%FOUND)
2086: END IF;
2087: END IF;
2088: END IF;
2089:
2090: IF (p_get_code = FND_API.G_TRUE)
2091: THEN
2092: RETURN l_mel_cdl_status;
2093: ELSE
2094: AHL_UTIL_MC_PKG.Convert_To_LookupMeaning
2284: END IF;
2285:
2286: /*
2287: -- Validate unit_config_header_id NOT NULL
2288: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
2289: THEN
2290: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NULL');
2291: FND_MSG_PUB.ADD;
2292: RAISE FND_API.G_EXC_ERROR;
2288: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
2289: THEN
2290: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NULL');
2291: FND_MSG_PUB.ADD;
2292: RAISE FND_API.G_EXC_ERROR;
2293: */
2294:
2295: /* Behavior of Unit, Item, Serial and Instance LOVs in "Unit / Component Details" sub-header
2296: * if unit_config_header_id is not null, then it needs to be an active unit and instance should exist on the unit
2297: * if unit_config_header_id is null, try to derive an active unit from the instance
2298: * if unit_config_header_id is still not null, consider this a case of logging NR for IB component only
2299: * if either UI unit/derived unit is in quarantine/deactive_quarantine, throw error
2300: */
2301: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
2302: THEN
2303: l_uc_header_id := ahl_util_uc_pkg.get_uc_header_id(p_x_nonroutine_rec.instance_id);
2304: l_uc_status_code := ahl_util_uc_pkg.get_uc_status_code(l_uc_header_id);
2305: IF (l_uc_status_code IN ('COMPLETE', 'INCOMPLETE'))
2308: ELSIF (l_uc_status_code IN ('QUARANTINE', 'DEACTIVATE_QUARANTINE'))
2309: THEN
2310: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_QUAR_INV');
2311: FND_MSG_PUB.ADD;
2312: RAISE FND_API.G_EXC_ERROR;
2313: END IF;
2314: ELSE
2315: l_uc_status_code := ahl_util_uc_pkg.get_uc_status_code(p_x_nonroutine_rec.unit_config_header_id);
2316: -- Check for not active and/or quarantined unit
2317: IF (l_uc_status_code IN ('QUARANTINE', 'DEACTIVATE_QUARANTINE'))
2318: THEN
2319: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_QUAR_INV');
2320: FND_MSG_PUB.ADD;
2321: RAISE FND_API.G_EXC_ERROR;
2322: ELSIF (l_uc_status_code IN ('COMPLETE', 'INCOMPLETE'))
2323: THEN
2324: -- Validate instance exists on the unit specified... Assume instance is validated before this is called...
2325: l_uc_header_id := ahl_util_uc_pkg.get_uc_header_id(p_x_nonroutine_rec.instance_id);
2326: IF (NVL(l_uc_header_id, -1 ) <> p_x_nonroutine_rec.unit_config_header_id)
2327: THEN
2328: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NOMATCH');
2329: FND_MSG_PUB.ADD;
2330: RAISE FND_API.G_EXC_ERROR;
2331: END IF;
2332: ELSE
2333: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_ACTV_INV');
2334: FND_MSG_PUB.ADD;
2331: END IF;
2332: ELSE
2333: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_ACTV_INV');
2334: FND_MSG_PUB.ADD;
2335: RAISE FND_API.G_EXC_ERROR;
2336: END IF;
2337: END IF;
2338:
2339: /* Behavior of Log Series and Number in "Unit / Component Details" sub-header
2341: * log_series and log_number exist in combination
2342: * log_series and log_number are always user-editable, but the combination is unique
2343: * post association of MEL/CDL instr, log_series and log_number cannot be NULL
2344: */
2345: IF (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2346: THEN
2347: IF (p_x_nonroutine_rec.log_series_meaning IS NOT NULL AND p_x_nonroutine_rec.log_series_meaning <> FND_API.G_MISS_CHAR)
2348: THEN
2349: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2343: * post association of MEL/CDL instr, log_series and log_number cannot be NULL
2344: */
2345: IF (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2346: THEN
2347: IF (p_x_nonroutine_rec.log_series_meaning IS NOT NULL AND p_x_nonroutine_rec.log_series_meaning <> FND_API.G_MISS_CHAR)
2348: THEN
2349: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2350: (
2351: p_lookup_type => 'AHL_LOG_SERIES_CODE',
2368: FND_MSG_PUB.ADD;
2369: END IF;
2370: END IF;
2371:
2372: IF (p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM AND p_x_nonroutine_rec.log_series_number < 0)
2373: THEN
2374: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_LOGNUM_INV');
2375: -- Non-routine Log Number must be a positive integer
2376: FND_MSG_PUB.ADD;
2376: FND_MSG_PUB.ADD;
2377: END IF;
2378:
2379: IF (
2380: (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2381: AND
2382: (p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM)
2383: )
2384: OR
2378:
2379: IF (
2380: (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2381: AND
2382: (p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM)
2383: )
2384: OR
2385: (
2386: (p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR)
2382: (p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM)
2383: )
2384: OR
2385: (
2386: (p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR)
2387: AND
2388: (p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM)
2389: )
2390: THEN
2384: OR
2385: (
2386: (p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR)
2387: AND
2388: (p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM)
2389: )
2390: THEN
2391: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_COMB');
2392: -- If Log Series is selected, Log Number is mandatory and vice-versa.
2393: FND_MSG_PUB.ADD;
2394: END IF;
2395:
2396: IF (
2397: p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR
2398: AND
2399: p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM
2400: )
2401: THEN
2395:
2396: IF (
2397: p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR
2398: AND
2399: p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM
2400: )
2401: THEN
2402: OPEN check_lognum_unique;
2403: FETCH check_lognum_unique INTO l_dummy_varchar;
2419: FETCH is_ue_mel_cdl_qual INTO l_dummy_varchar;
2420: IF (is_ue_mel_cdl_qual%FOUND
2421: AND
2422: (
2423: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
2424: OR
2425: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
2426: )
2427: )
2421: AND
2422: (
2423: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
2424: OR
2425: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
2426: )
2427: )
2428: THEN
2429: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_NOCHG');
2436: /*
2437: -- Validate log series code
2438: IF (p_dml_operation = 'C')
2439: THEN
2440: IF (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2441: THEN
2442: IF (p_x_nonroutine_rec.log_series_meaning IS NULL OR p_x_nonroutine_rec.log_series_meaning = FND_API.G_MISS_CHAR)
2443: THEN
2444: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
2438: IF (p_dml_operation = 'C')
2439: THEN
2440: IF (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2441: THEN
2442: IF (p_x_nonroutine_rec.log_series_meaning IS NULL OR p_x_nonroutine_rec.log_series_meaning = FND_API.G_MISS_CHAR)
2443: THEN
2444: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
2445: -- Log Series is mandatory
2446: FND_MSG_PUB.ADD;
2479:
2480: -- Validate log series number
2481: IF (p_dml_operation = 'C')
2482: THEN
2483: IF (p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM)
2484: THEN
2485: SELECT ahl_log_series_s.NEXTVAL INTO p_x_nonroutine_rec.log_series_number FROM DUAL;
2486: ELSE
2487: OPEN check_lognum_unique;
2505: END IF;
2506: */
2507:
2508: -- Validate MEL/CDL type
2509: IF (p_x_nonroutine_rec.mel_cdl_type_code IS NULL OR p_x_nonroutine_rec.mel_cdl_type_code = FND_API.G_MISS_CHAR)
2510: THEN
2511: IF (p_x_nonroutine_rec.mel_cdl_type_meaning IS NOT NULL AND p_x_nonroutine_rec.mel_cdl_type_meaning <> FND_API.G_MISS_CHAR)
2512: THEN
2513: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2507:
2508: -- Validate MEL/CDL type
2509: IF (p_x_nonroutine_rec.mel_cdl_type_code IS NULL OR p_x_nonroutine_rec.mel_cdl_type_code = FND_API.G_MISS_CHAR)
2510: THEN
2511: IF (p_x_nonroutine_rec.mel_cdl_type_meaning IS NOT NULL AND p_x_nonroutine_rec.mel_cdl_type_meaning <> FND_API.G_MISS_CHAR)
2512: THEN
2513: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2514: (
2515: p_lookup_type => 'AHL_MEL_CDL_TYPE',
2533: END IF;
2534: END IF;
2535:
2536: -- Validate ata code
2537: IF (p_x_nonroutine_rec.ata_code IS NULL OR p_x_nonroutine_rec.ata_code = FND_API.G_MISS_CHAR)
2538: THEN
2539: IF (p_x_nonroutine_rec.ata_meaning IS NOT NULL AND p_x_nonroutine_rec.ata_meaning <> FND_API.G_MISS_CHAR)
2540: THEN
2541: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2535:
2536: -- Validate ata code
2537: IF (p_x_nonroutine_rec.ata_code IS NULL OR p_x_nonroutine_rec.ata_code = FND_API.G_MISS_CHAR)
2538: THEN
2539: IF (p_x_nonroutine_rec.ata_meaning IS NOT NULL AND p_x_nonroutine_rec.ata_meaning <> FND_API.G_MISS_CHAR)
2540: THEN
2541: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2542: (
2543: p_lookup_type => 'AHL_ATA_CODE',
2561: END IF;
2562: END IF;
2563:
2564: -- Validate position path exists on the unit
2565: IF (p_x_nonroutine_rec.position_path_id IS NOT NULL AND p_x_nonroutine_rec.position_path_id <> FND_API.G_MISS_NUM)
2566: THEN
2567: AHL_MC_PATH_POSITION_PVT.Map_Position_To_Instances
2568: (
2569: p_api_version => 1.0,
2566: THEN
2567: AHL_MC_PATH_POSITION_PVT.Map_Position_To_Instances
2568: (
2569: p_api_version => 1.0,
2570: p_init_msg_list => FND_API.G_FALSE,
2571: p_commit => FND_API.G_FALSE,
2572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2573: x_return_status => l_return_status,
2574: x_msg_count => l_msg_count,
2567: AHL_MC_PATH_POSITION_PVT.Map_Position_To_Instances
2568: (
2569: p_api_version => 1.0,
2570: p_init_msg_list => FND_API.G_FALSE,
2571: p_commit => FND_API.G_FALSE,
2572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2573: x_return_status => l_return_status,
2574: x_msg_count => l_msg_count,
2575: x_msg_data => l_msg_data,
2568: (
2569: p_api_version => 1.0,
2570: p_init_msg_list => FND_API.G_FALSE,
2571: p_commit => FND_API.G_FALSE,
2572: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2573: x_return_status => l_return_status,
2574: x_msg_count => l_msg_count,
2575: x_msg_data => l_msg_data,
2576: p_position_id => p_x_nonroutine_rec.position_path_id
2575: x_msg_data => l_msg_data,
2576: p_position_id => p_x_nonroutine_rec.position_path_id
2577: );
2578:
2579: IF (l_return_status = FND_API.G_RET_STS_SUCCESS)
2580: THEN
2581: OPEN check_pos_path_exists;
2582: FETCH check_pos_path_exists INTO l_dummy_varchar;
2583: IF (check_pos_path_exists%NOTFOUND)
2621: END IF;
2622:
2623: /*
2624: -- Validate clear station org
2625: IF (p_x_nonroutine_rec.clear_station_org_id IS NULL OR p_x_nonroutine_rec.clear_station_org_id = FND_API.G_MISS_NUM)
2626: THEN
2627: IF (p_x_nonroutine_rec.clear_station_org IS NOT NULL AND p_x_nonroutine_rec.clear_station_org <> FND_API.G_MISS_CHAR)
2628: THEN
2629: OPEN get_org_id_from_name(p_x_nonroutine_rec.clear_station_org);
2623: /*
2624: -- Validate clear station org
2625: IF (p_x_nonroutine_rec.clear_station_org_id IS NULL OR p_x_nonroutine_rec.clear_station_org_id = FND_API.G_MISS_NUM)
2626: THEN
2627: IF (p_x_nonroutine_rec.clear_station_org IS NOT NULL AND p_x_nonroutine_rec.clear_station_org <> FND_API.G_MISS_CHAR)
2628: THEN
2629: OPEN get_org_id_from_name(p_x_nonroutine_rec.clear_station_org);
2630: FETCH get_org_id_from_name INTO p_x_nonroutine_rec.clear_station_org_id;
2631: IF (get_org_id_from_name%NOTFOUND)
2648: CLOSE check_org_id;
2649: END IF;
2650:
2651: -- Validate clear station dept
2652: IF (p_x_nonroutine_rec.clear_station_dept_id IS NULL OR p_x_nonroutine_rec.clear_station_dept_id = FND_API.G_MISS_NUM)
2653: THEN
2654: IF (p_x_nonroutine_rec.clear_station_dept IS NOT NULL AND p_x_nonroutine_rec.clear_station_dept <> FND_API.G_MISS_CHAR)
2655: THEN
2656: OPEN get_dept_id_from_name(p_x_nonroutine_rec.clear_station_dept, p_x_nonroutine_rec.clear_station_org_id);
2650:
2651: -- Validate clear station dept
2652: IF (p_x_nonroutine_rec.clear_station_dept_id IS NULL OR p_x_nonroutine_rec.clear_station_dept_id = FND_API.G_MISS_NUM)
2653: THEN
2654: IF (p_x_nonroutine_rec.clear_station_dept IS NOT NULL AND p_x_nonroutine_rec.clear_station_dept <> FND_API.G_MISS_CHAR)
2655: THEN
2656: OPEN get_dept_id_from_name(p_x_nonroutine_rec.clear_station_dept, p_x_nonroutine_rec.clear_station_org_id);
2657: FETCH get_dept_id_from_name INTO p_x_nonroutine_rec.clear_station_dept_id;
2658: IF (get_dept_id_from_name%NOTFOUND)
2748: l_ata_for_position varchar2(30);
2749:
2750: BEGIN
2751:
2752: IF (p_unit_effectivity_id IS NOT NULL AND p_unit_effectivity_id <> FND_API.G_MISS_NUM)
2753: THEN
2754: OPEN get_ue_details;
2755: FETCH get_ue_details INTO l_ue_details_rec;
2756: CLOSE get_ue_details;
2767: [ata_code='||l_ue_details_rec.ata_code||']'
2768: );
2769: END IF;
2770:
2771: IF (l_ue_details_rec.mel_cdl_type_code IS NULL OR l_ue_details_rec.mel_cdl_type_code = FND_API.G_MISS_CHAR)
2772: THEN
2773: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_TYPE_MAND');
2774: -- MEL/CDL Type is mandatory, hence cannot qualify for MEL/CDL
2775: FND_MSG_PUB.ADD;
2793: -- No MEL/CDL has been setup for the unit "UCNAME", hence cannot qualify for MEL/CDL
2794: FND_MSG_PUB.ADD;
2795: ELSE
2796: IF (
2797: (l_ue_details_rec.ata_code IS NULL OR l_ue_details_rec.ata_code = FND_API.G_MISS_CHAR)
2798: AND
2799: (l_ue_details_rec.position_path_id IS NULL OR l_ue_details_rec.position_path_id = FND_API.G_MISS_NUM)
2800: )
2801: THEN
2795: ELSE
2796: IF (
2797: (l_ue_details_rec.ata_code IS NULL OR l_ue_details_rec.ata_code = FND_API.G_MISS_CHAR)
2798: AND
2799: (l_ue_details_rec.position_path_id IS NULL OR l_ue_details_rec.position_path_id = FND_API.G_MISS_NUM)
2800: )
2801: THEN
2802: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_ALL_NULL');
2803: -- One of Position ATA and Position is mandatory, hence cannot qualify for MEL/CDL
2803: -- One of Position ATA and Position is mandatory, hence cannot qualify for MEL/CDL
2804: FND_MSG_PUB.ADD;
2805: END IF;
2806:
2807: IF (l_ue_details_rec.position_path_id IS NOT NULL AND l_ue_details_rec.position_path_id <> FND_API.G_MISS_NUM)
2808: THEN
2809: AHL_MC_PATH_POSITION_PVT.Map_Position_To_Instances
2810: (
2811: p_api_version => 1.0,
2808: THEN
2809: AHL_MC_PATH_POSITION_PVT.Map_Position_To_Instances
2810: (
2811: p_api_version => 1.0,
2812: p_init_msg_list => FND_API.G_FALSE,
2813: p_commit => FND_API.G_FALSE,
2814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2815: x_return_status => l_return_status,
2816: x_msg_count => l_msg_count,
2809: AHL_MC_PATH_POSITION_PVT.Map_Position_To_Instances
2810: (
2811: p_api_version => 1.0,
2812: p_init_msg_list => FND_API.G_FALSE,
2813: p_commit => FND_API.G_FALSE,
2814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2815: x_return_status => l_return_status,
2816: x_msg_count => l_msg_count,
2817: x_msg_data => l_msg_data,
2810: (
2811: p_api_version => 1.0,
2812: p_init_msg_list => FND_API.G_FALSE,
2813: p_commit => FND_API.G_FALSE,
2814: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2815: x_return_status => l_return_status,
2816: x_msg_count => l_msg_count,
2817: x_msg_data => l_msg_data,
2818: p_position_id => l_ue_details_rec.position_path_id
2818: p_position_id => l_ue_details_rec.position_path_id
2819: );
2820:
2821:
2822: IF (l_return_status = FND_API.G_RET_STS_SUCCESS)
2823: THEN
2824: OPEN get_ata_for_position(l_ue_details_rec.position_path_id, l_ue_details_rec.unit_config_id);
2825: FETCH get_ata_for_position INTO l_ata_for_position;
2826: CLOSE get_ata_for_position;
2856: THEN
2857: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_POS_ATA_NO_MATCH');
2858: -- ATA code of the Position ATA and MC Position does not match .
2859: FND_MSG_PUB.ADD;
2860: RAISE FND_API.G_EXC_ERROR;
2861: END IF;
2862: --End of changes by Priyan
2863:
2864: OPEN check_ata_exists(l_mel_cdl_header_id, l_ata_for_position);
2894: END IF;
2895: END IF;
2896: END IF;
2897:
2898: IF (x_ata_sequence_id IS NULL AND l_ue_details_rec.ata_code IS NOT NULL AND l_ue_details_rec.ata_code <> FND_API.G_MISS_CHAR)
2899: THEN
2900: OPEN check_ata_exists(l_mel_cdl_header_id, l_ue_details_rec.ata_code);
2901: FETCH check_ata_exists INTO x_ata_sequence_id;
2902: CLOSE check_ata_exists;
2981:
2982: BEGIN
2983:
2984: -- Validate instance_number and instance_id
2985: IF (p_x_nonroutine_rec.instance_number IS NULL OR p_x_nonroutine_rec.instance_number = FND_API.G_MISS_CHAR)
2986: THEN
2987: IF (p_x_nonroutine_rec.instance_id is null or p_x_nonroutine_rec.instance_id = FND_API.G_MISS_NUM)
2988: THEN
2989: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_NULL');
2983:
2984: -- Validate instance_number and instance_id
2985: IF (p_x_nonroutine_rec.instance_number IS NULL OR p_x_nonroutine_rec.instance_number = FND_API.G_MISS_CHAR)
2986: THEN
2987: IF (p_x_nonroutine_rec.instance_id is null or p_x_nonroutine_rec.instance_id = FND_API.G_MISS_NUM)
2988: THEN
2989: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_NULL');
2990: FND_MSG_PUB.ADD;
2991: RAISE FND_API.G_EXC_ERROR;
2987: IF (p_x_nonroutine_rec.instance_id is null or p_x_nonroutine_rec.instance_id = FND_API.G_MISS_NUM)
2988: THEN
2989: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_NULL');
2990: FND_MSG_PUB.ADD;
2991: RAISE FND_API.G_EXC_ERROR;
2992: END IF;
2993: ELSE
2994: BEGIN
2995: -- Bug #4918818: APPSPERF fix
3015: -- Commenting as the incident date can be any date prior to sysdate.
3016: -- p_x_nonroutine_rec.incident_date := sysdate;
3017:
3018: -- Validate and default SR type
3019: IF (p_x_nonroutine_rec.type_name is not null and p_x_nonroutine_rec.type_name <> FND_API.G_MISS_CHAR)
3020: THEN
3021: BEGIN
3022: SELECT incident_type_id
3023: INTO p_x_nonroutine_rec.type_id
3031: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_TYPE_INV');
3032: FND_MESSAGE.SET_TOKEN('TYPE', p_x_nonroutine_rec.type_name);
3033: FND_MSG_PUB.ADD;
3034: END;
3035: ELSIF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3036: THEN
3037: p_x_nonroutine_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
3038:
3039: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3035: ELSIF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3036: THEN
3037: p_x_nonroutine_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
3038:
3039: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3040: THEN
3041: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_TYPE_NULL');
3042: FND_MSG_PUB.ADD;
3043: END IF;
3043: END IF;
3044: END IF;
3045:
3046: -- Validate and default SR status
3047: IF (p_x_nonroutine_rec.status_name is not null and p_x_nonroutine_rec.status_name <> FND_API.G_MISS_CHAR)
3048: THEN
3049: BEGIN
3050: SELECT incident_status_id
3051: INTO p_x_nonroutine_rec.status_id
3057: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_STATUS_INV');
3058: FND_MESSAGE.SET_TOKEN('STATUS', p_x_nonroutine_rec.status_name);
3059: FND_MSG_PUB.ADD;
3060: END;
3061: ELSIF (p_x_nonroutine_rec.status_id is null or p_x_nonroutine_rec.status_id = FND_API.G_MISS_NUM)
3062: THEN
3063: p_x_nonroutine_rec.status_id := nvl(fnd_profile.value('AHL_PRD_SR_STATUS'), G_SR_OPEN_STATUS_ID);
3064: END IF;
3065:
3063: p_x_nonroutine_rec.status_id := nvl(fnd_profile.value('AHL_PRD_SR_STATUS'), G_SR_OPEN_STATUS_ID);
3064: END IF;
3065:
3066: -- Validate and default SR severity
3067: IF (p_x_nonroutine_rec.severity_name is not null and p_x_nonroutine_rec.severity_name <> FND_API.G_MISS_CHAR)
3068: THEN
3069: BEGIN
3070: SELECT incident_severity_id
3071: INTO p_x_nonroutine_rec.severity_id
3077: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEVERITY_INV');
3078: FND_MESSAGE.SET_TOKEN('SEVERITY', p_x_nonroutine_rec.severity_name);
3079: FND_MSG_PUB.ADD;
3080: END;
3081: ELSIF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
3082: THEN
3083: p_x_nonroutine_rec.severity_id := fnd_profile.value('AHL_PRD_SR_SEVERITY');
3084:
3085: IF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
3081: ELSIF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
3082: THEN
3083: p_x_nonroutine_rec.severity_id := fnd_profile.value('AHL_PRD_SR_SEVERITY');
3084:
3085: IF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
3086: THEN
3087: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEVERITY_NULL');
3088: FND_MSG_PUB.ADD;
3089: END IF;
3089: END IF;
3090: END IF;
3091:
3092: -- Validate severity against WIP_EAM_ACTIVITY_PRIORITY
3093: /*IF (p_x_nonroutine_rec.severity_id is not null and p_x_nonroutine_rec.severity_id <> FND_API.G_MISS_NUM)
3094: THEN
3095: OPEN cs_severity_in_eam_priority;
3096: FETCH cs_severity_in_eam_priority INTO l_dummy_varchar;
3097: IF (cs_severity_in_eam_priority%NOTFOUND) THEN
3107: FROM csi_item_instances
3108: WHERE instance_id = p_x_nonroutine_rec.instance_id;
3109:
3110: -- Validate and default customer...
3111: IF (p_x_nonroutine_rec.customer_name IS NOT NULL AND p_x_nonroutine_rec.customer_name <> FND_API.G_MISS_CHAR)
3112: THEN
3113: BEGIN
3114: SELECT party_id, party_type
3115: INTO p_x_nonroutine_rec.customer_id, p_x_nonroutine_rec.customer_type
3135: THEN
3136: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_CUSTOMER_NOMATCH');
3137: FND_MSG_PUB.ADD;
3138: END IF;
3139: ELSIF (p_x_nonroutine_rec.customer_id IS NULL or p_x_nonroutine_rec.customer_id = FND_API.G_MISS_NUM)
3140: THEN
3141: p_x_nonroutine_rec.customer_id := l_instance_owner_id;
3142:
3143: -- Default customer_type if customer_id is read from profile
3140: THEN
3141: p_x_nonroutine_rec.customer_id := l_instance_owner_id;
3142:
3143: -- Default customer_type if customer_id is read from profile
3144: IF (p_x_nonroutine_rec.customer_id IS NOT NULL AND p_x_nonroutine_rec.customer_id <> FND_API.G_MISS_NUM)
3145: THEN
3146: SELECT party_name, party_type
3147: INTO p_x_nonroutine_rec.customer_name, p_x_nonroutine_rec.customer_type
3148: FROM hz_parties
3154:
3155: -- Error if customer_type is NULL and customer_id NOT NULL
3156: IF
3157: (
3158: p_x_nonroutine_rec.customer_id is not null AND p_x_nonroutine_rec.customer_id <> FND_API.G_MISS_NUM
3159: AND
3160: (p_x_nonroutine_rec.customer_type is null or p_x_nonroutine_rec.customer_type = FND_API.G_MISS_CHAR)
3161: )
3162: THEN
3156: IF
3157: (
3158: p_x_nonroutine_rec.customer_id is not null AND p_x_nonroutine_rec.customer_id <> FND_API.G_MISS_NUM
3159: AND
3160: (p_x_nonroutine_rec.customer_type is null or p_x_nonroutine_rec.customer_type = FND_API.G_MISS_CHAR)
3161: )
3162: THEN
3163: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_CUST_TYPE_NULL');
3164: FND_MSG_PUB.ADD;
3164: FND_MSG_PUB.ADD;
3165: END IF;
3166:
3167: -- Validate and contact name and type... Error if contact_type is NULL and contact_id NOT NULL
3168: IF (p_x_nonroutine_rec.contact_name IS NOT NULL AND p_x_nonroutine_rec.contact_name <> FND_API.G_MISS_CHAR)
3169: THEN
3170: BEGIN
3171: IF (p_x_nonroutine_rec.contact_type in ('PARTY_RELATIONSHIP', 'PERSON'))
3172: THEN
3203: END;
3204: END IF;
3205:
3206: -- Error if problem_summary NULL
3207: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3208: THEN
3209: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SUMMARY_NULL');
3210: FND_MSG_PUB.ADD;
3211: END IF;
3217:
3218: IF ( nvl(fnd_profile.value('AHL_SR_RESL_CODE_COMP'), 'N') = 'Y') THEN
3219:
3220: IF ( p_x_nonroutine_rec.resolution_code IS NULL OR
3221: p_x_nonroutine_rec.resolution_code = FND_API.G_MISS_CHAR) THEN
3222:
3223: Fnd_Message.SET_NAME(G_APP_NAME,'AHL_PRD_RESL_CODE_REQ');
3224: Fnd_Msg_Pub.ADD;
3225: END IF;
3226:
3227: END IF;
3228:
3229: -- Validate if expected resolution date is passed, it is greater than the incident date
3230: IF (p_x_nonroutine_rec.expected_resolution_date is not null and p_x_nonroutine_rec.expected_resolution_date <> FND_API.G_MISS_DATE and trunc(p_x_nonroutine_rec.expected_resolution_date) < trunc(sysdate))
3231: THEN
3232: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_EXP_RES_DATE_INV');
3233: FND_MSG_PUB.ADD;
3234: END IF;
3234: END IF;
3235:
3236: -- Validate if the incident date is greater than the sysdate
3237: -- Changes made for Bug # 5183032
3238: IF (p_x_nonroutine_rec.incident_date is not null and p_x_nonroutine_rec.incident_date <> FND_API.G_MISS_DATE and trunc(p_x_nonroutine_rec.incident_date) > trunc(sysdate))
3239: THEN
3240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INC_DATE_INV');
3241: FND_MSG_PUB.ADD;
3242: END IF;
3250: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_CAM_DUP_REM_NR');
3251: FND_MESSAGE.Set_Token('SR_NUM', l_c_nr_num);
3252: FND_MSG_PUB.ADD;
3253: CLOSE cr_duplicate_removal_nr;
3254: RAISE FND_API.G_EXC_ERROR;
3255: END IF;
3256: CLOSE cr_duplicate_removal_nr;
3257: END IF;
3258: --SALOGAN added the following for Complex Mx - End
3266: THEN
3267: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_INC_INV');
3268: FND_MSG_PUB.ADD;
3269: CLOSE cs_incident_exists;
3270: RAISE FND_API.G_EXC_ERROR;
3271: ELSIF (l_incident_number <> p_x_nonroutine_rec.incident_number)
3272: THEN
3273: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_NUM_INV');
3274: FND_MSG_PUB.ADD;
3272: THEN
3273: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_NUM_INV');
3274: FND_MSG_PUB.ADD;
3275: CLOSE cs_incident_exists;
3276: RAISE FND_API.G_EXC_ERROR;
3277: END IF;
3278: CLOSE cs_incident_exists;
3279:
3280: -- Validate status_id is not null
3277: END IF;
3278: CLOSE cs_incident_exists;
3279:
3280: -- Validate status_id is not null
3281: IF (p_x_nonroutine_rec.status_id is null or p_x_nonroutine_rec.status_id = FND_API.G_MISS_NUM)
3282: THEN
3283: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_STATUS_NULL');
3284: FND_MSG_PUB.ADD;
3285: END IF;
3284: FND_MSG_PUB.ADD;
3285: END IF;
3286:
3287: -- Validate type_id is not null
3288: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3289: THEN
3290: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_TYPE_NULL');
3291: FND_MSG_PUB.ADD;
3292: END IF;
3291: FND_MSG_PUB.ADD;
3292: END IF;
3293:
3294: -- Error if problem_summary NULL
3295: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3296: THEN
3297: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SUMMARY_NULL');
3298: FND_MSG_PUB.ADD;
3299: END IF;
3305:
3306: IF ( nvl(fnd_profile.value('AHL_SR_RESL_CODE_COMP'), 'N') = 'Y') THEN
3307:
3308: IF ( p_x_nonroutine_rec.resolution_code IS NULL OR
3309: p_x_nonroutine_rec.resolution_code = FND_API.G_MISS_CHAR) THEN
3310:
3311: Fnd_Message.SET_NAME(G_APP_NAME,'AHL_PRD_RESL_CODE_REQ');
3312: Fnd_Msg_Pub.ADD;
3313: END IF;
3315: END IF;
3316:
3317: -- Validate if the expected resolution date is not null and that it is not lesser than the Incident Request Date
3318: -- Changes made for Bug # 5183032
3319: IF (p_x_nonroutine_rec.expected_resolution_date is not null and p_x_nonroutine_rec.expected_resolution_date <> FND_API.G_MISS_DATE and trunc(p_x_nonroutine_rec.expected_resolution_date) < trunc(l_incident_date))
3320: THEN
3321: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_EXP_RES_DATE_INV');
3322: FND_MSG_PUB.ADD;
3323: END IF;
3331: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_CAM_DUP_REM_NR');
3332: FND_MESSAGE.Set_Token('SR_NUM', l_c_nr_num);
3333: FND_MSG_PUB.ADD;
3334: CLOSE upd_duplicate_removal_nr;
3335: RAISE FND_API.G_EXC_ERROR;
3336: END IF;
3337: CLOSE upd_duplicate_removal_nr;
3338: END IF;
3339: --SALOGAN added the following for Complex Mx - End
3532: CLOSE cs_inc_csr;
3533: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_INC_ERROR');
3534: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3535: FND_MSG_PUB.ADD;
3536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3537: END IF;
3538:
3539: -- Debug Checkpoint.
3540: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3549: CLOSE get_urgency_details_csr;
3550: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_ATA_ERROR');
3551: FND_MESSAGE.set_token('ATA_ID', p_ata_sequence_id);
3552: FND_MSG_PUB.ADD;
3553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3554: END IF;
3555: CLOSE get_urgency_details_csr;
3556:
3557: -- Update SR for the urgency and exp. resolution date.
3567: -- Call SR API.
3568: CS_SERVICEREQUEST_PUB.Update_ServiceRequest
3569: (
3570: p_api_version => 3.0,
3571: p_init_msg_list => FND_API.G_FALSE,
3572: p_commit => FND_API.G_FALSE,
3573: x_return_status => l_return_status,
3574: x_msg_count => l_msg_count,
3575: x_msg_data => l_msg_data,
3568: CS_SERVICEREQUEST_PUB.Update_ServiceRequest
3569: (
3570: p_api_version => 3.0,
3571: p_init_msg_list => FND_API.G_FALSE,
3572: p_commit => FND_API.G_FALSE,
3573: x_return_status => l_return_status,
3574: x_msg_count => l_msg_count,
3575: x_msg_data => l_msg_data,
3576: p_request_id => p_cs_incident_id,
3597: 'After call to Update Service Request :return_status:' || l_return_status);
3598: END IF;
3599:
3600: -- Raise errors if exceptions occur
3601: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSE
3598: END IF;
3599:
3600: -- Raise errors if exceptions occur
3601: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSE
3606: FND_MSG_PUB.INITIALIZE;
3599:
3600: -- Raise errors if exceptions occur
3601: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSE
3606: FND_MSG_PUB.INITIALIZE;
3607: END IF;
3600: -- Raise errors if exceptions occur
3601: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSE
3606: FND_MSG_PUB.INITIALIZE;
3607: END IF;
3608:
3652: IF ( default_incident_type_csr%NOTFOUND) THEN
3653: CLOSE default_incident_type_csr;
3654: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_INCIDENT_ERROR');
3655: Fnd_Msg_Pub.ADD;
3656: RAISE FND_API.G_EXC_ERROR;
3657: END IF;
3658: CLOSE default_incident_type_csr;
3659:
3660: --Initialize the SR record.
3698: l_service_request_rec.inventory_org_id;
3699: IF (default_item_org_id%NOTFOUND ) THEN
3700: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_ORG_ERROR');
3701: Fnd_Msg_Pub.ADD;
3702: RAISE FND_API.G_EXC_ERROR;
3703: END IF;
3704:
3705: -- Call to Service Request API
3706:
3705: -- Call to Service Request API
3706:
3707: CS_SERVICEREQUEST_PUB.Create_ServiceRequest(
3708: p_api_version => 3.0,
3709: p_init_msg_list => FND_API.G_TRUE,
3710: p_commit => FND_API.G_FALSE,
3711: x_return_status => l_return_status,
3712: x_msg_count => l_msg_count,
3713: x_msg_data => l_msg_data,
3706:
3707: CS_SERVICEREQUEST_PUB.Create_ServiceRequest(
3708: p_api_version => 3.0,
3709: p_init_msg_list => FND_API.G_TRUE,
3710: p_commit => FND_API.G_FALSE,
3711: x_return_status => l_return_status,
3712: x_msg_count => l_msg_count,
3713: x_msg_data => l_msg_data,
3714: p_resp_appl_id => NULL,
3738: 'After call to Create Service Request :return_status:' || l_return_status);
3739: END IF;
3740:
3741: -- Raise errors if exceptions occur
3742: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3744: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3745: RAISE FND_API.G_EXC_ERROR;
3746: ELSE
3739: END IF;
3740:
3741: -- Raise errors if exceptions occur
3742: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3744: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3745: RAISE FND_API.G_EXC_ERROR;
3746: ELSE
3747: FND_MSG_PUB.INITIALIZE;
3740:
3741: -- Raise errors if exceptions occur
3742: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3744: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3745: RAISE FND_API.G_EXC_ERROR;
3746: ELSE
3747: FND_MSG_PUB.INITIALIZE;
3748: END IF;
3741: -- Raise errors if exceptions occur
3742: IF (upper(l_return_status) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3744: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3745: RAISE FND_API.G_EXC_ERROR;
3746: ELSE
3747: FND_MSG_PUB.INITIALIZE;
3748: END IF;
3749:
3754: CLOSE get_ue_detls;
3755: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UE_ERROR');
3756: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3757: FND_MSG_PUB.ADD;
3758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3759: END IF;
3760:
3761:
3762: --apattark start for bug #9253024
3779: IF (l_mr_sr_assoc_tbl.count > 0) THEN
3780: AHL_UMP_SR_PVT.Process_SR_MR_Associations
3781: (
3782: p_api_version => 1.0,
3783: p_init_msg_list => FND_API.G_FALSE,
3784: p_commit => FND_API.G_FALSE,
3785: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3786: --p_module_type => 'MEL_CDL',
3787: x_return_status => l_return_status,
3780: AHL_UMP_SR_PVT.Process_SR_MR_Associations
3781: (
3782: p_api_version => 1.0,
3783: p_init_msg_list => FND_API.G_FALSE,
3784: p_commit => FND_API.G_FALSE,
3785: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3786: --p_module_type => 'MEL_CDL',
3787: x_return_status => l_return_status,
3788: x_msg_count => l_msg_count,
3781: (
3782: p_api_version => 1.0,
3783: p_init_msg_list => FND_API.G_FALSE,
3784: p_commit => FND_API.G_FALSE,
3785: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3786: --p_module_type => 'MEL_CDL',
3787: x_return_status => l_return_status,
3788: x_msg_count => l_msg_count,
3789: x_msg_data => l_msg_data,
3805: || to_char(l_scheduled_start_date, 'DD-MM-YYYY HH24:MI:SS'));
3806: END IF;
3807:
3808: -- Raise errors if exceptions occur
3809: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3812: RAISE FND_API.G_EXC_ERROR;
3813: END IF;
3806: END IF;
3807:
3808: -- Raise errors if exceptions occur
3809: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3812: RAISE FND_API.G_EXC_ERROR;
3813: END IF;
3814:
3807:
3808: -- Raise errors if exceptions occur
3809: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3812: RAISE FND_API.G_EXC_ERROR;
3813: END IF;
3814:
3815: END IF;
3808: -- Raise errors if exceptions occur
3809: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3812: RAISE FND_API.G_EXC_ERROR;
3813: END IF;
3814:
3815: END IF;
3816:
3826:
3827:
3828: AHL_VWP_TASKS_PVT.Create_Task (
3829: p_api_version => 1.0,
3830: p_init_msg_list => Fnd_Api.g_false,
3831: p_commit => Fnd_Api.g_false,
3832: p_validation_level => Fnd_Api.g_valid_level_full,
3833: p_module_type => 'SR',
3834: p_x_task_rec => l_vwp_task_rec,
3827:
3828: AHL_VWP_TASKS_PVT.Create_Task (
3829: p_api_version => 1.0,
3830: p_init_msg_list => Fnd_Api.g_false,
3831: p_commit => Fnd_Api.g_false,
3832: p_validation_level => Fnd_Api.g_valid_level_full,
3833: p_module_type => 'SR',
3834: p_x_task_rec => l_vwp_task_rec,
3835: x_return_status => l_return_status,
3828: AHL_VWP_TASKS_PVT.Create_Task (
3829: p_api_version => 1.0,
3830: p_init_msg_list => Fnd_Api.g_false,
3831: p_commit => Fnd_Api.g_false,
3832: p_validation_level => Fnd_Api.g_valid_level_full,
3833: p_module_type => 'SR',
3834: p_x_task_rec => l_vwp_task_rec,
3835: x_return_status => l_return_status,
3836: x_msg_count => l_msg_count,
3842: 'After call to Create Task API:return_status:' || l_return_status);
3843: END IF;
3844:
3845: -- Raise errors if exceptions occur
3846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3849: RAISE FND_API.G_EXC_ERROR;
3850: END IF;
3843: END IF;
3844:
3845: -- Raise errors if exceptions occur
3846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3849: RAISE FND_API.G_EXC_ERROR;
3850: END IF;
3851:
3844:
3845: -- Raise errors if exceptions occur
3846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3849: RAISE FND_API.G_EXC_ERROR;
3850: END IF;
3851:
3852: IF (l_close_date_time < sysdate) THEN
3845: -- Raise errors if exceptions occur
3846: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3848: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3849: RAISE FND_API.G_EXC_ERROR;
3850: END IF;
3851:
3852: IF (l_close_date_time < sysdate) THEN
3853: -- Release MR.
3852: IF (l_close_date_time < sysdate) THEN
3853: -- Release MR.
3854: AHL_VWP_PROJ_PROD_PVT.Release_MR(
3855: p_api_version => 1.0,
3856: p_init_msg_list => Fnd_Api.G_FALSE,
3857: p_commit => Fnd_Api.G_FALSE,
3858: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3859: p_module_type => 'PROD',
3860: p_visit_id => l_visit_id,
3853: -- Release MR.
3854: AHL_VWP_PROJ_PROD_PVT.Release_MR(
3855: p_api_version => 1.0,
3856: p_init_msg_list => Fnd_Api.G_FALSE,
3857: p_commit => Fnd_Api.G_FALSE,
3858: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3859: p_module_type => 'PROD',
3860: p_visit_id => l_visit_id,
3861: p_unit_effectivity_id => l_new_ue_id,
3854: AHL_VWP_PROJ_PROD_PVT.Release_MR(
3855: p_api_version => 1.0,
3856: p_init_msg_list => Fnd_Api.G_FALSE,
3857: p_commit => Fnd_Api.G_FALSE,
3858: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3859: p_module_type => 'PROD',
3860: p_visit_id => l_visit_id,
3861: p_unit_effectivity_id => l_new_ue_id,
3862: -- added p_recalculate_dates as required by bug# 7701304
3872: ELSE
3873: -- Release MR.
3874: AHL_VWP_PROJ_PROD_PVT.Release_MR(
3875: p_api_version => 1.0,
3876: p_init_msg_list => Fnd_Api.G_FALSE,
3877: p_commit => Fnd_Api.G_FALSE,
3878: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3879: p_module_type => 'PROD',
3880: p_visit_id => l_visit_id,
3873: -- Release MR.
3874: AHL_VWP_PROJ_PROD_PVT.Release_MR(
3875: p_api_version => 1.0,
3876: p_init_msg_list => Fnd_Api.G_FALSE,
3877: p_commit => Fnd_Api.G_FALSE,
3878: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3879: p_module_type => 'PROD',
3880: p_visit_id => l_visit_id,
3881: p_unit_effectivity_id => l_new_ue_id,
3874: AHL_VWP_PROJ_PROD_PVT.Release_MR(
3875: p_api_version => 1.0,
3876: p_init_msg_list => Fnd_Api.G_FALSE,
3877: p_commit => Fnd_Api.G_FALSE,
3878: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3879: p_module_type => 'PROD',
3880: p_visit_id => l_visit_id,
3881: p_unit_effectivity_id => l_new_ue_id,
3882: -- fix for bug# 5498884. Created work orders should be in released status.
3895: 'After call to release workorders:return_status:' || l_return_status);
3896: END IF;
3897:
3898: -- Raise errors if exceptions occur
3899: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3901: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3896: END IF;
3897:
3898: -- Raise errors if exceptions occur
3899: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3901: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3904:
3897:
3898: -- Raise errors if exceptions occur
3899: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3901: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3904:
3905: IF (fnd_msg_pub.count_msg > 0) THEN
3898: -- Raise errors if exceptions occur
3899: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3901: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3904:
3905: IF (fnd_msg_pub.count_msg > 0) THEN
3906: RAISE FND_API.G_EXC_ERROR;
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3904:
3905: IF (fnd_msg_pub.count_msg > 0) THEN
3906: RAISE FND_API.G_EXC_ERROR;
3907: END IF;
3908:
3909: --apattark start for bug #9253024
3910: <
3917: --l_deferral_rec.object_version_number,
3918: p_new_status => 'DEFERRED',
3919: x_return_status => l_return_status);
3920:
3921: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3922: IF (fnd_log.level_error >= G_DEBUG_LEVEL)THEN
3923: fnd_log.string
3924: (
3925: fnd_log.level_error,
3925: fnd_log.level_error,
3926: 'ahl.plsql.AHL_UMP_NONROUTINES_PVT.Initiate_Mel_Cdl_Approval',
3927: 'Can not go ahead with automatic approval because AHL_UMP_NONROUTINES_PVT.Initiate_Mel_Cdl_Approval threw error');
3928: END IF;
3929: RAISE FND_API.G_EXC_ERROR;
3930: END IF;
3931:
3932: -- create a new deferral row for the new ue ID. Copy the attributes from the old deferral record.
3933: OPEN deferral_ue_csr(p_unit_deferral_id);
3936: CLOSE deferral_ue_csr;
3937: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UE_DEF_MISSING');
3938: FND_MESSAGE.set_token('UE_DEF', p_unit_deferral_id);
3939: FND_MSG_PUB.ADD;
3940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3941: END IF;
3942: CLOSE deferral_ue_csr;
3943:
3944: -- find the new ue ID.
3948: CLOSE get_new_ue_csr;
3949: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_NEW_UE_MISSING');
3950: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3951: FND_MSG_PUB.ADD;
3952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3953: END IF;
3954: CLOSE get_new_ue_csr;
3955:
3956: -- Insert row.
4019: --
4020: -- Launch_NR_Notification Parameters:
4021: -- p_sr_incident_id IN SR Inicident Id Required
4022: -- p_commit IN Commit flag. Workflow won't launch if this is Required
4023: -- passed as FND_API.G_FALSE when called as
4024: -- a stand alone procedure.
4025: -- x_item_key OUT Item key of the launched notification Required
4026: -- x_return_status OUT Return status. Item key to be used only if Required
4027: -- this status is FND_API.G_RET_STS_SUCCESS.
4023: -- passed as FND_API.G_FALSE when called as
4024: -- a stand alone procedure.
4025: -- x_item_key OUT Item key of the launched notification Required
4026: -- x_return_status OUT Return status. Item key to be used only if Required
4027: -- this status is FND_API.G_RET_STS_SUCCESS.
4028: --
4029: -- End of Comments
4030:
4031: PROCEDURE Launch_NR_Notification (
4029: -- End of Comments
4030:
4031: PROCEDURE Launch_NR_Notification (
4032: p_sr_incident_id IN NUMBER,
4033: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4034: x_item_key OUT NOCOPY VARCHAR2,
4035: x_return_status OUT NOCOPY VARCHAR2
4036: ) IS
4037:
4061: FND_LOG.string(G_DEBUG_PROC, l_full_name || '.begin', 'At the start of the API');
4062: END IF;
4063:
4064: -- initialize procedure return status to success
4065: x_return_status := FND_API.G_RET_STS_SUCCESS;
4066:
4067: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
4068: FND_LOG.string(G_DEBUG_STMT, l_full_name, 'the arguments: '||
4069: ' p_sr_incident_id > '||p_sr_incident_id||
4071: END IF;
4072:
4073: -- check for the entitlement id
4074: IF (p_sr_incident_id IS NULL) THEN
4075: x_return_status := FND_API.G_RET_STS_ERROR;
4076: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CAM_SR_ID_INVLD'); --AHL_WARRANTY_ENTL_ID_INVLD
4077: FND_MESSAGE.Set_Token('SR_ID', p_sr_incident_id);
4078: FND_MSG_PUB.ADD;
4079: RETURN;
4097: ', x_return_status > '||x_return_status);
4098: END IF;
4099:
4100: -- if returned with error, don't proceed any further
4101: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4102: RETURN;
4103: END IF;
4104:
4105: -- if the mapping is active, call the notification API
4138: ', x_return_status > '||x_return_status);
4139: END IF;
4140:
4141: -- if returned with error, don't proceed any further
4142: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4143: RETURN;
4144: END IF;
4145: END IF;
4146:
4144: END IF;
4145: END IF;
4146:
4147: -- Standard check of p_commit
4148: IF FND_API.TO_BOOLEAN(p_commit) THEN
4149: COMMIT WORK;
4150: END IF;
4151:
4152: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL) THEN