17: -- Enter procedure, function bodies as shown below
18:
19: PROCEDURE Prevent_Update_ServiceRequest
20: ( p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
22: p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
23: p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full,
24: x_return_status OUT NOCOPY VARCHAR2,
25: x_msg_count OUT NOCOPY NUMBER,
18:
19: PROCEDURE Prevent_Update_ServiceRequest
20: ( p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
22: p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
23: p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full,
24: x_return_status OUT NOCOPY VARCHAR2,
25: x_msg_count OUT NOCOPY NUMBER,
26: x_msg_data OUT NOCOPY VARCHAR2,
19: PROCEDURE Prevent_Update_ServiceRequest
20: ( p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
22: p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
23: p_validation_level IN NUMBER DEFAULT fnd_api.g_valid_level_full,
24: x_return_status OUT NOCOPY VARCHAR2,
25: x_msg_count OUT NOCOPY NUMBER,
26: x_msg_data OUT NOCOPY VARCHAR2,
27: p_request_id IN NUMBER,
31: p_last_updated_by IN NUMBER,
32: p_last_update_login IN NUMBER DEFAULT NULL,
33: p_last_update_date IN DATE,
34: p_service_request_rec IN CS_ServiceRequest_PVT.service_request_rec_type,
35: p_update_desc_flex IN VARCHAR2 DEFAULT fnd_api.g_false,
36: p_notes IN CS_ServiceRequest_PVT.notes_table,
37: p_contacts IN CS_ServiceRequest_PVT.contacts_table,
38: p_audit_comments IN VARCHAR2 DEFAULT NULL,
39: p_called_by_workflow IN VARCHAR2 DEFAULT fnd_api.g_false,
35: p_update_desc_flex IN VARCHAR2 DEFAULT fnd_api.g_false,
36: p_notes IN CS_ServiceRequest_PVT.notes_table,
37: p_contacts IN CS_ServiceRequest_PVT.contacts_table,
38: p_audit_comments IN VARCHAR2 DEFAULT NULL,
39: p_called_by_workflow IN VARCHAR2 DEFAULT fnd_api.g_false,
40: p_workflow_process_id IN NUMBER DEFAULT NULL,
41: x_workflow_process_id OUT NOCOPY NUMBER,
42: x_interaction_id OUT NOCOPY NUMBER
43: )
84: OPEN l_CurrentServiceRequest_csr;
85: FETCH l_CurrentServiceRequest_csr INTO l_CurrentServiceRequest_rec;
86:
87: IF (l_CurrentServiceRequest_csr%NOTFOUND) THEN
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90:
91:
92: IF (l_type_id <> l_CurrentServiceRequest_rec.incident_type_id OR
95: l_urgency_id <> l_CurrentServiceRequest_rec.incident_urgency_id OR
96: l_owner_id <> l_CurrentServiceRequest_rec.incident_owner_id
97: )
98: THEN
99: RAISE FND_API.G_EXC_ERROR;
100: ELSIF (l_install_site_id <> l_CurrentServiceRequest_rec.install_site_id) THEN
101: OPEN l_CurrentServiceRequest_csr;
102: FETCH l_CurrentServiceRequest_csr INTO l_CurrentServiceRequest_rec;
103:
101: OPEN l_CurrentServiceRequest_csr;
102: FETCH l_CurrentServiceRequest_csr INTO l_CurrentServiceRequest_rec;
103:
104: IF (l_CurrentServiceRequest_csr%NOTFOUND) THEN
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
106: ELSE
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
103:
104: IF (l_CurrentServiceRequest_csr%NOTFOUND) THEN
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
106: ELSE
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110:
111: END IF;
104: IF (l_CurrentServiceRequest_csr%NOTFOUND) THEN
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
106: ELSE
107: x_return_status := FND_API.G_RET_STS_ERROR;
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110:
111: END IF;
112:
110:
111: END IF;
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
115: x_return_status := FND_API.G_RET_STS_ERROR;
116: FND_MSG_PUB.Count_And_Get
117: ( p_count => x_msg_count,
118: p_data => x_msg_data
111: END IF;
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
115: x_return_status := FND_API.G_RET_STS_ERROR;
116: FND_MSG_PUB.Count_And_Get
117: ( p_count => x_msg_count,
118: p_data => x_msg_data
119: );
116: FND_MSG_PUB.Count_And_Get
117: ( p_count => x_msg_count,
118: p_data => x_msg_data
119: );
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: FND_MSG_PUB.Count_And_Get
123: ( p_count => x_msg_count,
124: p_data => x_msg_data
117: ( p_count => x_msg_count,
118: p_data => x_msg_data
119: );
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: FND_MSG_PUB.Count_And_Get
123: ( p_count => x_msg_count,
124: p_data => x_msg_data
125: );