9: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
10:
11: PROCEDURE INSERT_STATISTICS(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15:
16: p_policy_id IN jtf_prefab_statistics.policy_id%TYPE,
17: p_wsh_po_id IN jtf_prefab_statistics.wsh_po_id%TYPE,
10:
11: PROCEDURE INSERT_STATISTICS(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15:
16: p_policy_id IN jtf_prefab_statistics.policy_id%TYPE,
17: p_wsh_po_id IN jtf_prefab_statistics.wsh_po_id%TYPE,
18: p_start_time IN jtf_prefab_statistics.start_time%TYPE,
46: -- Standard Start of API savepoint
47: SAVEPOINT INSERT_STATISTICS;
48:
49: -- Standard call to check for call compatibility.
50: IF NOT FND_API.Compatible_API_Call (
51: l_api_version,
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.To_Boolean( p_init_msg_list ) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.To_Boolean( p_init_msg_list ) THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: -- Initialize API return status to success
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: -- Initialize API return status to success
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: -- real logic --
68: ----------------
69: -- Use Sequence as the unique key
123: -----------------------
124: -- end of real logic --
125:
126: -- Standard check of p_commit.
127: IF (FND_API.To_Boolean(p_commit)) THEN
128: COMMIT WORK;
129: END IF;
130:
131: -- Standard call to get message count and if count is 1, get message info.
133: p_count => x_msg_count,
134: p_data => x_msg_data );
135:
136: EXCEPTION
137: WHEN FND_API.G_EXC_ERROR THEN
138: ROLLBACK TO INSERT_STATISTICS;
139: x_return_status := FND_API.G_RET_STS_ERROR ;
140:
141: FND_MSG_PUB.Count_And_Get(
135:
136: EXCEPTION
137: WHEN FND_API.G_EXC_ERROR THEN
138: ROLLBACK TO INSERT_STATISTICS;
139: x_return_status := FND_API.G_RET_STS_ERROR ;
140:
141: FND_MSG_PUB.Count_And_Get(
142: p_count => x_msg_count,
143: p_data => x_msg_data );
141: FND_MSG_PUB.Count_And_Get(
142: p_count => x_msg_count,
143: p_data => x_msg_data );
144:
145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
146: ROLLBACK TO INSERT_STATISTICS;
147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
148:
149: FND_MSG_PUB.Count_And_Get(
143: p_data => x_msg_data );
144:
145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
146: ROLLBACK TO INSERT_STATISTICS;
147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
148:
149: FND_MSG_PUB.Count_And_Get(
150: p_count => x_msg_count,
151: p_data => x_msg_data );
151: p_data => x_msg_data );
152:
153: WHEN OTHERS THEN
154: ROLLBACK TO INSERT_STATISTICS;
155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
156:
157: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
158: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
159: END IF;
165: END INSERT_STATISTICS;
166:
167: PROCEDURE UPDATE_STATISTICS(
168: p_api_version IN NUMBER,
169: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
170: p_commit IN VARCHAR2 := FND_API.G_FALSE,
171:
172: p_policy_id IN jtf_prefab_statistics.policy_id%TYPE,
173: p_wsh_po_id IN jtf_prefab_statistics.wsh_po_id%TYPE,
166:
167: PROCEDURE UPDATE_STATISTICS(
168: p_api_version IN NUMBER,
169: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
170: p_commit IN VARCHAR2 := FND_API.G_FALSE,
171:
172: p_policy_id IN jtf_prefab_statistics.policy_id%TYPE,
173: p_wsh_po_id IN jtf_prefab_statistics.wsh_po_id%TYPE,
174: p_start_time IN jtf_prefab_statistics.start_time%TYPE,
201: -- Standard Start of API savepoint
202: SAVEPOINT UPDATE_STATISTICS;
203:
204: -- Standard call to check for call compatibility.
205: IF NOT FND_API.Compatible_API_Call (
206: l_api_version,
207: p_api_version,
208: l_api_name,
209: G_PKG_NAME)
207: p_api_version,
208: l_api_name,
209: G_PKG_NAME)
210: THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: END IF;
213:
214: -- Initialize message list if p_init_msg_list is set to TRUE.
215: IF FND_API.To_Boolean( p_init_msg_list ) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: END IF;
213:
214: -- Initialize message list if p_init_msg_list is set to TRUE.
215: IF FND_API.To_Boolean( p_init_msg_list ) THEN
216: FND_MSG_PUB.initialize;
217: END IF;
218:
219: -- Initialize API return status to success
216: FND_MSG_PUB.initialize;
217: END IF;
218:
219: -- Initialize API return status to success
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221:
222: -- real logic --
223: ----------------
224: /*
227: WHERE application_id = p_application_id;
228:
229: -- checking for object version number
230: if (l_object_version IS NULL OR l_object_version > p_OBJ_VER_NUMBER) THEN
231: RAISE FND_API.G_EXC_ERROR;
232: ELSE
233: p_obj_ver_number := p_obj_ver_number + 1;
234: END IF;
235: */
257: -----------------------
258: -- end of real logic --
259:
260: -- Standard check of p_commit.
261: IF (FND_API.To_Boolean(p_commit)) THEN
262: COMMIT WORK;
263: END IF;
264:
265: -- Standard call to get message count and if count is 1, get message info.
267: p_count => x_msg_count,
268: p_data => x_msg_data );
269:
270: EXCEPTION
271: WHEN FND_API.G_EXC_ERROR THEN
272: ROLLBACK TO UPDATE_STATISTICS;
273: x_return_status := FND_API.G_RET_STS_ERROR ;
274:
275: FND_MSG_PUB.Count_And_Get(
269:
270: EXCEPTION
271: WHEN FND_API.G_EXC_ERROR THEN
272: ROLLBACK TO UPDATE_STATISTICS;
273: x_return_status := FND_API.G_RET_STS_ERROR ;
274:
275: FND_MSG_PUB.Count_And_Get(
276: p_count => x_msg_count,
277: p_data => x_msg_data );
275: FND_MSG_PUB.Count_And_Get(
276: p_count => x_msg_count,
277: p_data => x_msg_data );
278:
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: ROLLBACK TO UPDATE_STATISTICS;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
282:
283: FND_MSG_PUB.Count_And_Get(
277: p_data => x_msg_data );
278:
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: ROLLBACK TO UPDATE_STATISTICS;
281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
282:
283: FND_MSG_PUB.Count_And_Get(
284: p_count => x_msg_count,
285: p_data => x_msg_data );
285: p_data => x_msg_data );
286:
287: WHEN OTHERS THEN
288: ROLLBACK TO UPDATE_STATISTICS;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
290:
291: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
292: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
293: END IF;
299: END UPDATE_STATISTICS;
300:
301: PROCEDURE DELETE_STATISTICS(
302: p_api_version IN NUMBER,
303: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
304: p_commit IN VARCHAR2 := FND_API.G_FALSE,
305:
306: p_policy_id IN NUMBER,
307: p_wsh_po_id IN NUMBER,
300:
301: PROCEDURE DELETE_STATISTICS(
302: p_api_version IN NUMBER,
303: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
304: p_commit IN VARCHAR2 := FND_API.G_FALSE,
305:
306: p_policy_id IN NUMBER,
307: p_wsh_po_id IN NUMBER,
308:
320: -- Standard Start of API savepoint
321: SAVEPOINT DELETE_STATISTICS;
322:
323: -- Standard call to check for call compatibility.
324: IF NOT FND_API.Compatible_API_Call (
325: l_api_version,
326: p_api_version,
327: l_api_name,
328: G_PKG_NAME)
326: p_api_version,
327: l_api_name,
328: G_PKG_NAME)
329: THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: END IF;
332:
333: -- Initialize message list if p_init_msg_list is set to TRUE.
334: IF FND_API.To_Boolean( p_init_msg_list ) THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: END IF;
332:
333: -- Initialize message list if p_init_msg_list is set to TRUE.
334: IF FND_API.To_Boolean( p_init_msg_list ) THEN
335: FND_MSG_PUB.initialize;
336: END IF;
337:
338: -- Initialize API return status to success
335: FND_MSG_PUB.initialize;
336: END IF;
337:
338: -- Initialize API return status to success
339: x_return_status := FND_API.G_RET_STS_SUCCESS;
340:
341: -- real logic --
342: ----------------
343: /*
346: WHERE application_id = p_application_id;
347:
348: -- checking for object version number
349: IF (l_object_version IS NULL OR l_object_version > p_obj_ver_number) THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352: */
353: DELETE FROM jtf_prefab_statistics
354: WHERE policy_id = p_policy_id AND wsh_po_id = p_wsh_po_id;
356: -----------------------
357: -- end of real logic --
358:
359: -- Standard check of p_commit.
360: IF (FND_API.To_Boolean(p_commit)) THEN
361: COMMIT WORK;
362: END IF;
363:
364: -- Standard call to get message count and if count is 1, get message info.
366: p_count => x_msg_count,
367: p_data => x_msg_data );
368:
369: EXCEPTION
370: WHEN FND_API.G_EXC_ERROR THEN
371: ROLLBACK TO DELETE_STATISTICS;
372: x_return_status := FND_API.G_RET_STS_ERROR ;
373:
374: FND_MSG_PUB.Count_And_Get(
368:
369: EXCEPTION
370: WHEN FND_API.G_EXC_ERROR THEN
371: ROLLBACK TO DELETE_STATISTICS;
372: x_return_status := FND_API.G_RET_STS_ERROR ;
373:
374: FND_MSG_PUB.Count_And_Get(
375: p_count => x_msg_count,
376: p_data => x_msg_data );
374: FND_MSG_PUB.Count_And_Get(
375: p_count => x_msg_count,
376: p_data => x_msg_data );
377:
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: ROLLBACK TO DELETE_STATISTICS;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
381:
382: FND_MSG_PUB.Count_And_Get(
376: p_data => x_msg_data );
377:
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: ROLLBACK TO DELETE_STATISTICS;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
381:
382: FND_MSG_PUB.Count_And_Get(
383: p_count => x_msg_count,
384: p_data => x_msg_data );
384: p_data => x_msg_data );
385:
386: WHEN OTHERS THEN
387: ROLLBACK TO DELETE_STATISTICS;
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
389:
390: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
391: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
392: END IF;
398: END DELETE_STATISTICS;
399:
400: PROCEDURE SELECT_STATISTICS(
401: p_api_version IN NUMBER,
402: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
403: p_commit IN VARCHAR2 := FND_API.G_FALSE,
404:
405: p_policy_id IN jtf_prefab_statistics.policy_id%TYPE,
406: p_wsh_po_id IN jtf_prefab_statistics.wsh_po_id%TYPE,
399:
400: PROCEDURE SELECT_STATISTICS(
401: p_api_version IN NUMBER,
402: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
403: p_commit IN VARCHAR2 := FND_API.G_FALSE,
404:
405: p_policy_id IN jtf_prefab_statistics.policy_id%TYPE,
406: p_wsh_po_id IN jtf_prefab_statistics.wsh_po_id%TYPE,
407: p_start_time OUT NOCOPY jtf_prefab_statistics.start_time%TYPE,
432: -- Standard Start of API savepoint
433: SAVEPOINT SELECT_STATISTICS;
434:
435: -- Standard call to check for call compatibility.
436: IF NOT FND_API.Compatible_API_Call (
437: l_api_version,
438: p_api_version,
439: l_api_name,
440: G_PKG_NAME)
438: p_api_version,
439: l_api_name,
440: G_PKG_NAME)
441: THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF FND_API.To_Boolean( p_init_msg_list ) THEN
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: END IF;
444:
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF FND_API.To_Boolean( p_init_msg_list ) THEN
447: FND_MSG_PUB.initialize;
448: END IF;
449:
450: -- Initialize API return status to success
447: FND_MSG_PUB.initialize;
448: END IF;
449:
450: -- Initialize API return status to success
451: x_return_status := FND_API.G_RET_STS_SUCCESS;
452:
453: -- real logic --
454: ----------------
455:
471: -----------------------
472: -- end of real logic --
473:
474: -- Standard check of p_commit.
475: IF (FND_API.To_Boolean(p_commit)) THEN
476: COMMIT WORK;
477: END IF;
478:
479: -- Standard call to get message count and if count is 1, get message info.
481: p_count => x_msg_count,
482: p_data => x_msg_data );
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_ERROR THEN
486: ROLLBACK TO SELECT_STATISTICS;
487: x_return_status := FND_API.G_RET_STS_ERROR ;
488:
489: FND_MSG_PUB.Count_And_Get(
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_ERROR THEN
486: ROLLBACK TO SELECT_STATISTICS;
487: x_return_status := FND_API.G_RET_STS_ERROR ;
488:
489: FND_MSG_PUB.Count_And_Get(
490: p_count => x_msg_count,
491: p_data => x_msg_data );
489: FND_MSG_PUB.Count_And_Get(
490: p_count => x_msg_count,
491: p_data => x_msg_data );
492:
493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
494: ROLLBACK TO SELECT_STATISTICS;
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
496:
497: FND_MSG_PUB.Count_And_Get(
491: p_data => x_msg_data );
492:
493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
494: ROLLBACK TO SELECT_STATISTICS;
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
496:
497: FND_MSG_PUB.Count_And_Get(
498: p_count => x_msg_count,
499: p_data => x_msg_data );
499: p_data => x_msg_data );
500:
501: WHEN OTHERS THEN
502: ROLLBACK TO SELECT_STATISTICS;
503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
504:
505: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
506: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
507: END IF;