15:
16:
17: PROCEDURE launch_workflow (
18: p_api_version IN NUMBER ,
19: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
20: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
21: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL ,
22: x_return_status OUT NOCOPY VARCHAR2 ,
23: x_msg_count OUT NOCOPY NUMBER ,
16:
17: PROCEDURE launch_workflow (
18: p_api_version IN NUMBER ,
19: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
20: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
21: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL ,
22: x_return_status OUT NOCOPY VARCHAR2 ,
23: x_msg_count OUT NOCOPY NUMBER ,
24: x_msg_data OUT NOCOPY VARCHAR2 ,
17: PROCEDURE launch_workflow (
18: p_api_version IN NUMBER ,
19: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
20: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
21: p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL ,
22: x_return_status OUT NOCOPY VARCHAR2 ,
23: x_msg_count OUT NOCOPY NUMBER ,
24: x_msg_data OUT NOCOPY VARCHAR2 ,
25: p_incident_id IN NUMBER ,
56: -- SAVEPOINT launch_workflow_pvt;
57:
58:
59: -- Standard call to check for call compatibility
60: IF NOT FND_API.Compatible_API_Call(
61: l_api_version ,
62: p_api_version ,
63: l_api_name ,
64: G_PKG_NAME )
62: p_api_version ,
63: l_api_name ,
64: G_PKG_NAME )
65: THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: --Initialize message listif p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
67: END IF;
68:
69: --Initialize message listif p_init_msg_list is set to TRUE.
70: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73:
74: -- Initialize API return status to success
71: FND_MSG_PUB.initialize;
72: END IF;
73:
74: -- Initialize API return status to success
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76:
77: -- API body
78:
79: -- The workflow is to be launched only after the
145: -- Endof API body.
146:
147: -- Standard check for p_commit.
148:
149: IF FND_API.To_Boolean ( p_commit ) THEN
150: COMMIT WORK;
151: END IF;
152:
153:
160:
161:
162: EXCEPTION
163:
164: WHEN FND_API.G_EXC_ERROR THEN
165: IF (l_servereq_csr%ISOPEN) THEN
166: CLOSE l_servereq_csr;
167: END IF;
168: -- ROLLBACK TO launch_workflow_pvt;
165: IF (l_servereq_csr%ISOPEN) THEN
166: CLOSE l_servereq_csr;
167: END IF;
168: -- ROLLBACK TO launch_workflow_pvt;
169: x_return_status := FND_API.G_RET_STS_ERROR;
170: FND_MSG_PUB.Count_And_Get
171: (
172: p_count => x_msg_count,
173: p_data => x_msg_data
172: p_count => x_msg_count,
173: p_data => x_msg_data
174: );
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: IF (l_servereq_csr%ISOPEN) THEN
178: CLOSE l_servereq_csr;
179: END IF;
180: -- ROLLBACK TO launch_workflow_pvt;
177: IF (l_servereq_csr%ISOPEN) THEN
178: CLOSE l_servereq_csr;
179: END IF;
180: -- ROLLBACK TO launch_workflow_pvt;
181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182: FND_MSG_PUB.Count_And_Get
183: (
184: p_count => x_msg_count,
185: p_data => x_msg_data
189: IF (l_servereq_csr%ISOPEN) THEN
190: CLOSE l_servereq_csr;
191: END IF;
192: -- ROLLBACK TO launch_workflow_pvt;
193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194: IF FND_MSG_PUB.Check_Msg_Level
195: ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
196: THEN
197: FND_MSG_PUB.Add_Exc_Msg