96: -- Standard Start of API savepoint
97:
98: fnd_file.put_line(fnd_file.log, 'Check and Restart Worker Program Started 1');
99: p_api_version := 1.0;
100: p_init_msg_list := FND_API.G_FALSE;
101: p_commit := FND_API.G_TRUE;
102:
103:
104: SAVEPOINT IEO_CHECK_RESTART_SERVERS_PUB;
97:
98: fnd_file.put_line(fnd_file.log, 'Check and Restart Worker Program Started 1');
99: p_api_version := 1.0;
100: p_init_msg_list := FND_API.G_FALSE;
101: p_commit := FND_API.G_TRUE;
102:
103:
104: SAVEPOINT IEO_CHECK_RESTART_SERVERS_PUB;
105: -- Standard call to check for call compatibility.
102:
103:
104: SAVEPOINT IEO_CHECK_RESTART_SERVERS_PUB;
105: -- Standard call to check for call compatibility.
106: IF NOT FND_API.Compatible_API_Call (l_api_version,
107: p_api_version,
108: l_api_name,
109: G_PKG_NAME)
110:
108: l_api_name,
109: G_PKG_NAME)
110:
111: THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114: -- Initialize message list if p_init_msg_list is set to TRUE.
115: IF FND_API.To_Boolean( p_init_msg_list ) THEN
116: FND_MSG_PUB.initialize;
111: THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114: -- Initialize message list if p_init_msg_list is set to TRUE.
115: IF FND_API.To_Boolean( p_init_msg_list ) THEN
116: FND_MSG_PUB.initialize;
117: END IF;
118: -- Initialize API return status to success
119: RETCODE := FND_API.G_RET_STS_SUCCESS;
115: IF FND_API.To_Boolean( p_init_msg_list ) THEN
116: FND_MSG_PUB.initialize;
117: END IF;
118: -- Initialize API return status to success
119: RETCODE := FND_API.G_RET_STS_SUCCESS;
120: -- API body
121:
122:
123: fnd_file.put_line(fnd_file.log, 'Worker Program Started 2');
168:
169: fnd_file.put_line(fnd_file.log, 'Worker Program Ended ');
170: -- End of API body.
171: -- Standard check of p_commit.
172: IF FND_API.To_Boolean( p_commit ) THEN
173: COMMIT WORK;
174: END IF;
175: -- Standard call to get message count and if count is 1, get message info.
176: FND_MSG_PUB.Count_And_Get
178: p_data => ERRBUF
179: );
180: EXCEPTION
181:
182: WHEN FND_API.G_EXC_ERROR THEN
183: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
184: RETCODE := FND_API.G_RET_STS_ERROR ;
185: FND_MSG_PUB.Count_And_Get
186: ( p_count => l_msg_count ,
180: EXCEPTION
181:
182: WHEN FND_API.G_EXC_ERROR THEN
183: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
184: RETCODE := FND_API.G_RET_STS_ERROR ;
185: FND_MSG_PUB.Count_And_Get
186: ( p_count => l_msg_count ,
187: p_data => ERRBUF
188: );
185: FND_MSG_PUB.Count_And_Get
186: ( p_count => l_msg_count ,
187: p_data => ERRBUF
188: );
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
191: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
192: FND_MSG_PUB.Count_And_Get
193: ( p_count => l_msg_count ,
187: p_data => ERRBUF
188: );
189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
191: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
192: FND_MSG_PUB.Count_And_Get
193: ( p_count => l_msg_count ,
194: p_data => ERRBUF
195: );
198: error_msg := FND_MESSAGE.GET;
199: fnd_file.put_line(fnd_file.log, error_msg);
200: WHEN OTHERS THEN
201: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
202: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
203: IF FND_MSG_PUB.Check_Msg_Level
204: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
205: THEN
206: FND_MSG_PUB.Add_Exc_Msg
247: -- Standard Start of API savepoint
248:
249: fnd_file.put_line(fnd_file.log, 'PING and Restart Worker Program Started 1');
250: p_api_version := 1.0;
251: p_init_msg_list := FND_API.G_FALSE;
252: p_commit := FND_API.G_TRUE;
253:
254:
255: SAVEPOINT IEO_PING_RESTART_SVR_PUB;
248:
249: fnd_file.put_line(fnd_file.log, 'PING and Restart Worker Program Started 1');
250: p_api_version := 1.0;
251: p_init_msg_list := FND_API.G_FALSE;
252: p_commit := FND_API.G_TRUE;
253:
254:
255: SAVEPOINT IEO_PING_RESTART_SVR_PUB;
256: -- Standard call to check for call compatibility.
253:
254:
255: SAVEPOINT IEO_PING_RESTART_SVR_PUB;
256: -- Standard call to check for call compatibility.
257: IF NOT FND_API.Compatible_API_Call (l_api_version,
258: p_api_version,
259: l_api_name,
260: G_PKG_NAME)
261:
259: l_api_name,
260: G_PKG_NAME)
261:
262: THEN
263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
264: END IF;
265: -- Initialize message list if p_init_msg_list is set to TRUE.
266: IF FND_API.To_Boolean( p_init_msg_list ) THEN
267: FND_MSG_PUB.initialize;
262: THEN
263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
264: END IF;
265: -- Initialize message list if p_init_msg_list is set to TRUE.
266: IF FND_API.To_Boolean( p_init_msg_list ) THEN
267: FND_MSG_PUB.initialize;
268: END IF;
269: -- Initialize API return status to success
270: RETCODE := FND_API.G_RET_STS_SUCCESS;
266: IF FND_API.To_Boolean( p_init_msg_list ) THEN
267: FND_MSG_PUB.initialize;
268: END IF;
269: -- Initialize API return status to success
270: RETCODE := FND_API.G_RET_STS_SUCCESS;
271: -- API body
272:
273: -- heartbeat time is not updated
274: -- send one command through AQ
358:
359: fnd_file.put_line(fnd_file.log, 'Worker Program Ended ');
360: -- End of API body.
361: -- Standard check of p_commit.
362: IF FND_API.To_Boolean( p_commit ) THEN
363: COMMIT WORK;
364: END IF;
365: -- Standard call to get message count and if count is 1, get message info.
366: FND_MSG_PUB.Count_And_Get
368: p_data => ERRBUF
369: );
370: EXCEPTION
371:
372: WHEN FND_API.G_EXC_ERROR THEN
373: ROLLBACK TO IEO_PING_RESTART_SVR_PUB;
374: RETCODE := FND_API.G_RET_STS_ERROR ;
375: FND_MSG_PUB.Count_And_Get
376: ( p_count => l_msg_count ,
370: EXCEPTION
371:
372: WHEN FND_API.G_EXC_ERROR THEN
373: ROLLBACK TO IEO_PING_RESTART_SVR_PUB;
374: RETCODE := FND_API.G_RET_STS_ERROR ;
375: FND_MSG_PUB.Count_And_Get
376: ( p_count => l_msg_count ,
377: p_data => ERRBUF
378: );
375: FND_MSG_PUB.Count_And_Get
376: ( p_count => l_msg_count ,
377: p_data => ERRBUF
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
381: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
382: FND_MSG_PUB.Count_And_Get
383: ( p_count => l_msg_count ,
377: p_data => ERRBUF
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
381: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
382: FND_MSG_PUB.Count_And_Get
383: ( p_count => l_msg_count ,
384: p_data => ERRBUF
385: );
384: p_data => ERRBUF
385: );
386: WHEN OTHERS THEN
387: ROLLBACK TO IEO_CHECK_RESTART_SERVERS_PUB;
388: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
389: IF FND_MSG_PUB.Check_Msg_Level
390: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
391: THEN
392: FND_MSG_PUB.Add_Exc_Msg