7: -- Pre-reqs : None.
8: -- Parameters :
9: -- IN p_api_version IN NUMBER Required
10: -- p_init_msg_list IN VARCHAR2 Optional
11: -- Default = FND_API.G_FALSE
12: -- p_commit IN VARCHAR2 Optional
13: -- Default = FND_API.G_FALSE
14: -- p_validation_level IN NUMBER Optional
15: -- Default = FND_API.G_VALID_LEVEL_FULL
9: -- IN p_api_version IN NUMBER Required
10: -- p_init_msg_list IN VARCHAR2 Optional
11: -- Default = FND_API.G_FALSE
12: -- p_commit IN VARCHAR2 Optional
13: -- Default = FND_API.G_FALSE
14: -- p_validation_level IN NUMBER Optional
15: -- Default = FND_API.G_VALID_LEVEL_FULL
16: -- parameter1
17: -- parameter2
11: -- Default = FND_API.G_FALSE
12: -- p_commit IN VARCHAR2 Optional
13: -- Default = FND_API.G_FALSE
14: -- p_validation_level IN NUMBER Optional
15: -- Default = FND_API.G_VALID_LEVEL_FULL
16: -- parameter1
17: -- parameter2
18: -- .
19: -- .
42:
43:
44: PROCEDURE get_org_code(
45: p_api_version IN NUMBER
46: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
47: ,p_commit IN VARCHAR2 := fnd_api.g_false
48: ,p_validation_level IN NUMBER
49: := fnd_api.g_valid_level_full
50: ,p_organization_id IN NUMBER
43:
44: PROCEDURE get_org_code(
45: p_api_version IN NUMBER
46: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
47: ,p_commit IN VARCHAR2 := fnd_api.g_false
48: ,p_validation_level IN NUMBER
49: := fnd_api.g_valid_level_full
50: ,p_organization_id IN NUMBER
51: ,x_organization_code OUT NOCOPY VARCHAR2
45: p_api_version IN NUMBER
46: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
47: ,p_commit IN VARCHAR2 := fnd_api.g_false
48: ,p_validation_level IN NUMBER
49: := fnd_api.g_valid_level_full
50: ,p_organization_id IN NUMBER
51: ,x_organization_code OUT NOCOPY VARCHAR2
52: ,x_return_status OUT NOCOPY VARCHAR2
53: ,x_msg_count OUT NOCOPY NUMBER
71: SAVEPOINT get_org_code_pvt;
72:
73: l_stmt_num := 20;
74: -- Standard call to check for call compatibility.
75: IF NOT fnd_api.compatible_api_call(
76: l_api_version
77: ,p_api_version
78: ,l_api_name
79: ,g_pkg_name) THEN
76: l_api_version
77: ,p_api_version
78: ,l_api_name
79: ,g_pkg_name) THEN
80: RAISE fnd_api.g_exc_unexpected_error;
81: END IF;
82:
83: l_stmt_num := 30;
84: -- Initialize message list if p_init_msg_list is set to TRUE.
81: END IF;
82:
83: l_stmt_num := 30;
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF fnd_api.to_boolean(p_init_msg_list) THEN
86: fnd_msg_pub.initialize;
87: END IF;
88:
89: l_stmt_num := 40;
87: END IF;
88:
89: l_stmt_num := 40;
90: -- Initialize API return status to success
91: x_return_status := fnd_api.g_ret_sts_success;
92:
93: l_stmt_num := 50;
94: -- API body
95: l_organization_id := 0;
99:
100: fnd_message.set_name('EAM', 'EAM_INPUT_PARAMS_NULL');
101: fnd_message.set_token('EAM_DEBUG',l_full_name||'('||l_stmt_num||')');
102: fnd_msg_pub.add;
103: RAISE fnd_api.g_exc_error;
104: END IF;
105:
106: l_organization_id := p_organization_id;
107:
113:
114: fnd_message.set_name('EAM', 'EAM_ORG_CODE_NULL');
115: fnd_message.set_token('EAM_DEBUG',l_full_name||'('||l_stmt_num||')');
116: fnd_msg_pub.add;
117: RAISE fnd_api.g_exc_error;
118: END IF;
119: CLOSE c_org_code;
120:
121: x_organization_code := l_organization_code;
122:
123: l_stmt_num := 998;
124: -- End of API body.
125: -- Standard check of p_commit.
126: IF fnd_api.to_boolean(p_commit) THEN
127: COMMIT WORK;
128: END IF;
129:
130: l_stmt_num := 999;
132: fnd_msg_pub.count_and_get(
133: p_count => x_msg_count
134: ,p_data => x_msg_data);
135: EXCEPTION
136: WHEN fnd_api.g_exc_error THEN
137: ROLLBACK TO get_org_code_pvt;
138: x_return_status := fnd_api.g_ret_sts_error;
139: fnd_msg_pub.count_and_get(
140: p_count => x_msg_count
134: ,p_data => x_msg_data);
135: EXCEPTION
136: WHEN fnd_api.g_exc_error THEN
137: ROLLBACK TO get_org_code_pvt;
138: x_return_status := fnd_api.g_ret_sts_error;
139: fnd_msg_pub.count_and_get(
140: p_count => x_msg_count
141: ,p_data => x_msg_data);
142: WHEN fnd_api.g_exc_unexpected_error THEN
138: x_return_status := fnd_api.g_ret_sts_error;
139: fnd_msg_pub.count_and_get(
140: p_count => x_msg_count
141: ,p_data => x_msg_data);
142: WHEN fnd_api.g_exc_unexpected_error THEN
143: ROLLBACK TO get_org_code_pvt;
144: x_return_status := fnd_api.g_ret_sts_unexp_error;
145:
146: fnd_msg_pub.count_and_get(
140: p_count => x_msg_count
141: ,p_data => x_msg_data);
142: WHEN fnd_api.g_exc_unexpected_error THEN
143: ROLLBACK TO get_org_code_pvt;
144: x_return_status := fnd_api.g_ret_sts_unexp_error;
145:
146: fnd_msg_pub.count_and_get(
147: p_count => x_msg_count
148: ,p_data => x_msg_data);
147: p_count => x_msg_count
148: ,p_data => x_msg_data);
149: WHEN OTHERS THEN
150: ROLLBACK TO get_org_code_pvt;
151: x_return_status := fnd_api.g_ret_sts_unexp_error;
152: IF fnd_msg_pub.check_msg_level(
153: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
154: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
155: END IF;
160: END get_org_code;
161:
162: PROCEDURE get_item_id(
163: p_api_version IN NUMBER
164: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
165: ,p_commit IN VARCHAR2 := fnd_api.g_false
166: ,p_validation_level IN NUMBER
167: := fnd_api.g_valid_level_full
168: ,p_organization_id IN NUMBER
161:
162: PROCEDURE get_item_id(
163: p_api_version IN NUMBER
164: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
165: ,p_commit IN VARCHAR2 := fnd_api.g_false
166: ,p_validation_level IN NUMBER
167: := fnd_api.g_valid_level_full
168: ,p_organization_id IN NUMBER
169: ,p_concatenated_segments IN VARCHAR2
163: p_api_version IN NUMBER
164: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
165: ,p_commit IN VARCHAR2 := fnd_api.g_false
166: ,p_validation_level IN NUMBER
167: := fnd_api.g_valid_level_full
168: ,p_organization_id IN NUMBER
169: ,p_concatenated_segments IN VARCHAR2
170: ,x_inventory_item_id OUT NOCOPY NUMBER
171: ,x_return_status OUT NOCOPY VARCHAR2
185: SAVEPOINT get_item_id_pvt;
186:
187: l_stmt_num := 20;
188: -- Standard call to check for call compatibility.
189: IF NOT fnd_api.compatible_api_call(
190: l_api_version
191: ,p_api_version
192: ,l_api_name
193: ,g_pkg_name) THEN
190: l_api_version
191: ,p_api_version
192: ,l_api_name
193: ,g_pkg_name) THEN
194: RAISE fnd_api.g_exc_unexpected_error;
195: END IF;
196:
197: l_stmt_num := 30;
198: -- Initialize message list if p_init_msg_list is set to TRUE.
195: END IF;
196:
197: l_stmt_num := 30;
198: -- Initialize message list if p_init_msg_list is set to TRUE.
199: IF fnd_api.to_boolean(p_init_msg_list) THEN
200: fnd_msg_pub.initialize;
201: END IF;
202:
203: l_stmt_num := 40;
201: END IF;
202:
203: l_stmt_num := 40;
204: -- Initialize API return status to success
205: x_return_status := fnd_api.g_ret_sts_success;
206:
207: l_stmt_num := 50;
208: -- API body
209: l_organization_id := NULL;
215:
216: fnd_message.set_name('EAM', 'EAM_INPUT_PARAMS_NULL');
217: fnd_message.set_token('EAM_DEBUG',l_full_name||'('||l_stmt_num||')');
218: fnd_msg_pub.add;
219: RAISE fnd_api.g_exc_error;
220: END IF;
221:
222: l_organization_id := p_organization_id;
223: l_concatenated_segments := p_concatenated_segments;
236:
237: l_stmt_num := 998;
238: -- End of API body.
239: -- Standard check of p_commit.
240: IF fnd_api.to_boolean(p_commit) THEN
241: COMMIT WORK;
242: END IF;
243:
244: l_stmt_num := 999;
246: fnd_msg_pub.count_and_get(
247: p_count => x_msg_count
248: ,p_data => x_msg_data);
249: EXCEPTION
250: WHEN fnd_api.g_exc_error THEN
251: ROLLBACK TO get_org_code_pvt;
252: x_return_status := fnd_api.g_ret_sts_error;
253: fnd_msg_pub.count_and_get(
254: p_count => x_msg_count
248: ,p_data => x_msg_data);
249: EXCEPTION
250: WHEN fnd_api.g_exc_error THEN
251: ROLLBACK TO get_org_code_pvt;
252: x_return_status := fnd_api.g_ret_sts_error;
253: fnd_msg_pub.count_and_get(
254: p_count => x_msg_count
255: ,p_data => x_msg_data);
256: WHEN fnd_api.g_exc_unexpected_error THEN
252: x_return_status := fnd_api.g_ret_sts_error;
253: fnd_msg_pub.count_and_get(
254: p_count => x_msg_count
255: ,p_data => x_msg_data);
256: WHEN fnd_api.g_exc_unexpected_error THEN
257: ROLLBACK TO get_org_code_pvt;
258: x_return_status := fnd_api.g_ret_sts_unexp_error;
259: fnd_msg_pub.count_and_get(
260: p_count => x_msg_count
254: p_count => x_msg_count
255: ,p_data => x_msg_data);
256: WHEN fnd_api.g_exc_unexpected_error THEN
257: ROLLBACK TO get_org_code_pvt;
258: x_return_status := fnd_api.g_ret_sts_unexp_error;
259: fnd_msg_pub.count_and_get(
260: p_count => x_msg_count
261: ,p_data => x_msg_data);
262: WHEN OTHERS THEN
260: p_count => x_msg_count
261: ,p_data => x_msg_data);
262: WHEN OTHERS THEN
263: ROLLBACK TO get_org_code_pvt;
264: x_return_status := fnd_api.g_ret_sts_unexp_error;
265:
266: IF fnd_msg_pub.check_msg_level(
267: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
268: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
279:
280:
281: PROCEDURE get_current_period(
282: p_api_version IN NUMBER
283: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
284: ,p_commit IN VARCHAR2 := fnd_api.g_false
285: ,p_validation_level IN NUMBER
286: := fnd_api.g_valid_level_full
287: ,p_organization_id IN NUMBER
280:
281: PROCEDURE get_current_period(
282: p_api_version IN NUMBER
283: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
284: ,p_commit IN VARCHAR2 := fnd_api.g_false
285: ,p_validation_level IN NUMBER
286: := fnd_api.g_valid_level_full
287: ,p_organization_id IN NUMBER
288: ,x_period_name OUT NOCOPY VARCHAR2
282: p_api_version IN NUMBER
283: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
284: ,p_commit IN VARCHAR2 := fnd_api.g_false
285: ,p_validation_level IN NUMBER
286: := fnd_api.g_valid_level_full
287: ,p_organization_id IN NUMBER
288: ,x_period_name OUT NOCOPY VARCHAR2
289: ,x_return_status OUT NOCOPY VARCHAR2
290: ,x_msg_count OUT NOCOPY NUMBER
305: SAVEPOINT get_current_period_pvt;
306:
307: l_stmt_num := 20;
308: -- Standard call to check for call compatibility.
309: IF NOT fnd_api.compatible_api_call(
310: l_api_version
311: ,p_api_version
312: ,l_api_name
313: ,g_pkg_name) THEN
310: l_api_version
311: ,p_api_version
312: ,l_api_name
313: ,g_pkg_name) THEN
314: RAISE fnd_api.g_exc_unexpected_error;
315: END IF;
316:
317: l_stmt_num := 30;
318: -- Initialize message list if p_init_msg_list is set to TRUE.
315: END IF;
316:
317: l_stmt_num := 30;
318: -- Initialize message list if p_init_msg_list is set to TRUE.
319: IF fnd_api.to_boolean(p_init_msg_list) THEN
320: fnd_msg_pub.initialize;
321: END IF;
322:
323: l_stmt_num := 40;
321: END IF;
322:
323: l_stmt_num := 40;
324: -- Initialize API return status to success
325: x_return_status := fnd_api.g_ret_sts_success;
326:
327: l_stmt_num := 50;
328: -- API body
329: l_organization_id := 0;
334:
335: fnd_message.set_name('EAM', 'EAM_INPUT_PARAMS_NULL');
336: fnd_message.set_token('EAM_DEBUG',l_full_name||'('||l_stmt_num||')');
337: fnd_msg_pub.add;
338: RAISE fnd_api.g_exc_error;
339: END IF;
340:
341: l_organization_id := p_organization_id;
342:
356:
357: l_stmt_num := 998;
358: -- End of API body.
359: -- Standard check of p_commit.
360: IF fnd_api.to_boolean(p_commit) THEN
361: COMMIT WORK;
362: END IF;
363:
364: l_stmt_num := 999;
366: fnd_msg_pub.count_and_get(
367: p_count => x_msg_count
368: ,p_data => x_msg_data);
369: EXCEPTION
370: WHEN fnd_api.g_exc_error THEN
371: ROLLBACK TO get_current_period_pvt;
372: x_return_status := fnd_api.g_ret_sts_error;
373: fnd_msg_pub.count_and_get(
374: p_count => x_msg_count
368: ,p_data => x_msg_data);
369: EXCEPTION
370: WHEN fnd_api.g_exc_error THEN
371: ROLLBACK TO get_current_period_pvt;
372: x_return_status := fnd_api.g_ret_sts_error;
373: fnd_msg_pub.count_and_get(
374: p_count => x_msg_count
375: ,p_data => x_msg_data);
376: WHEN fnd_api.g_exc_unexpected_error THEN
372: x_return_status := fnd_api.g_ret_sts_error;
373: fnd_msg_pub.count_and_get(
374: p_count => x_msg_count
375: ,p_data => x_msg_data);
376: WHEN fnd_api.g_exc_unexpected_error THEN
377: ROLLBACK TO get_current_period_pvt;
378: x_return_status := fnd_api.g_ret_sts_unexp_error;
379: fnd_msg_pub.count_and_get(
380: p_count => x_msg_count
374: p_count => x_msg_count
375: ,p_data => x_msg_data);
376: WHEN fnd_api.g_exc_unexpected_error THEN
377: ROLLBACK TO get_current_period_pvt;
378: x_return_status := fnd_api.g_ret_sts_unexp_error;
379: fnd_msg_pub.count_and_get(
380: p_count => x_msg_count
381: ,p_data => x_msg_data);
382: WHEN OTHERS THEN
380: p_count => x_msg_count
381: ,p_data => x_msg_data);
382: WHEN OTHERS THEN
383: ROLLBACK TO get_current_period_pvt;
384: x_return_status := fnd_api.g_ret_sts_unexp_error;
385:
386: IF fnd_msg_pub.check_msg_level(
387: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
388: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
398:
399:
400: PROCEDURE get_currency(
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: ,p_validation_level IN NUMBER
405: := fnd_api.g_valid_level_full
406: ,p_organization_id IN NUMBER
399:
400: PROCEDURE get_currency(
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: ,p_validation_level IN NUMBER
405: := fnd_api.g_valid_level_full
406: ,p_organization_id IN NUMBER
407: ,x_currency OUT NOCOPY VARCHAR2
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: ,p_validation_level IN NUMBER
405: := fnd_api.g_valid_level_full
406: ,p_organization_id IN NUMBER
407: ,x_currency OUT NOCOPY VARCHAR2
408: ,x_return_status OUT NOCOPY VARCHAR2
409: ,x_msg_count OUT NOCOPY NUMBER
422: SAVEPOINT get_currency_pvt;
423:
424: l_stmt_num := 20;
425: -- Standard call to check for call compatibility.
426: IF NOT fnd_api.compatible_api_call(
427: l_api_version
428: ,p_api_version
429: ,l_api_name
430: ,g_pkg_name) THEN
427: l_api_version
428: ,p_api_version
429: ,l_api_name
430: ,g_pkg_name) THEN
431: RAISE fnd_api.g_exc_unexpected_error;
432: END IF;
433:
434: l_stmt_num := 30;
435: -- Initialize message list if p_init_msg_list is set to TRUE.
432: END IF;
433:
434: l_stmt_num := 30;
435: -- Initialize message list if p_init_msg_list is set to TRUE.
436: IF fnd_api.to_boolean(p_init_msg_list) THEN
437: fnd_msg_pub.initialize;
438: END IF;
439:
440: l_stmt_num := 40;
438: END IF;
439:
440: l_stmt_num := 40;
441: -- Initialize API return status to success
442: x_return_status := fnd_api.g_ret_sts_success;
443:
444: l_stmt_num := 50;
445: -- API body
446: l_organization_id := 0;
451:
452: fnd_message.set_name('EAM', 'EAM_INPUT_PARAMS_NULL');
453: fnd_message.set_token('EAM_DEBUG',l_full_name||'('||l_stmt_num||')');
454: fnd_msg_pub.add;
455: RAISE fnd_api.g_exc_error;
456: END IF;
457:
458: l_organization_id := p_organization_id;
459:
465:
466: l_stmt_num := 998;
467: -- End of API body.
468: -- Standard check of p_commit.
469: IF fnd_api.to_boolean(p_commit) THEN
470: COMMIT WORK;
471: END IF;
472:
473: l_stmt_num := 999;
475: fnd_msg_pub.count_and_get(
476: p_count => x_msg_count
477: ,p_data => x_msg_data);
478: EXCEPTION
479: WHEN fnd_api.g_exc_error THEN
480: ROLLBACK TO get_currency_pvt;
481: x_return_status := fnd_api.g_ret_sts_error;
482: fnd_msg_pub.count_and_get(
483: p_count => x_msg_count
477: ,p_data => x_msg_data);
478: EXCEPTION
479: WHEN fnd_api.g_exc_error THEN
480: ROLLBACK TO get_currency_pvt;
481: x_return_status := fnd_api.g_ret_sts_error;
482: fnd_msg_pub.count_and_get(
483: p_count => x_msg_count
484: ,p_data => x_msg_data);
485: WHEN fnd_api.g_exc_unexpected_error THEN
481: x_return_status := fnd_api.g_ret_sts_error;
482: fnd_msg_pub.count_and_get(
483: p_count => x_msg_count
484: ,p_data => x_msg_data);
485: WHEN fnd_api.g_exc_unexpected_error THEN
486: ROLLBACK TO get_currency_pvt;
487: x_return_status := fnd_api.g_ret_sts_unexp_error;
488: fnd_msg_pub.count_and_get(
489: p_count => x_msg_count
483: p_count => x_msg_count
484: ,p_data => x_msg_data);
485: WHEN fnd_api.g_exc_unexpected_error THEN
486: ROLLBACK TO get_currency_pvt;
487: x_return_status := fnd_api.g_ret_sts_unexp_error;
488: fnd_msg_pub.count_and_get(
489: p_count => x_msg_count
490: ,p_data => x_msg_data);
491: WHEN OTHERS THEN
489: p_count => x_msg_count
490: ,p_data => x_msg_data);
491: WHEN OTHERS THEN
492: ROLLBACK TO get_currency_pvt;
493: x_return_status := fnd_api.g_ret_sts_unexp_error;
494:
495: IF fnd_msg_pub.check_msg_level(
496: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
497: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
506:
507:
508: PROCEDURE get_next_asset_number (
509: p_api_version IN NUMBER
510: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
511: ,p_commit IN VARCHAR2 := fnd_api.g_false
512: ,p_validation_level IN NUMBER
513: := fnd_api.g_valid_level_full
514: ,p_organization_id IN NUMBER
507:
508: PROCEDURE get_next_asset_number (
509: p_api_version IN NUMBER
510: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
511: ,p_commit IN VARCHAR2 := fnd_api.g_false
512: ,p_validation_level IN NUMBER
513: := fnd_api.g_valid_level_full
514: ,p_organization_id IN NUMBER
515: ,p_inventory_item_id IN NUMBER
509: p_api_version IN NUMBER
510: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
511: ,p_commit IN VARCHAR2 := fnd_api.g_false
512: ,p_validation_level IN NUMBER
513: := fnd_api.g_valid_level_full
514: ,p_organization_id IN NUMBER
515: ,p_inventory_item_id IN NUMBER
516: ,x_asset_number OUT NOCOPY VARCHAR2
517: ,x_return_status OUT NOCOPY VARCHAR2
540: SAVEPOINT get_next_asset_number_pvt;
541:
542: l_stmt_num := 20;
543: -- Standard call to check for call compatibility.
544: IF NOT fnd_api.compatible_api_call(
545: l_api_version
546: ,p_api_version
547: ,l_api_name
548: ,g_pkg_name) THEN
545: l_api_version
546: ,p_api_version
547: ,l_api_name
548: ,g_pkg_name) THEN
549: RAISE fnd_api.g_exc_unexpected_error;
550: END IF;
551:
552: l_stmt_num := 30;
553: -- Initialize message list if p_init_msg_list is set to TRUE.
550: END IF;
551:
552: l_stmt_num := 30;
553: -- Initialize message list if p_init_msg_list is set to TRUE.
554: IF fnd_api.to_boolean(p_init_msg_list) THEN
555: fnd_msg_pub.initialize;
556: END IF;
557:
558: l_stmt_num := 40;
556: END IF;
557:
558: l_stmt_num := 40;
559: -- Initialize API return status to success
560: x_return_status := fnd_api.g_ret_sts_success;
561:
562: l_stmt_num := 50;
563: -- API body
564: l_organization_id := 0;
562: l_stmt_num := 50;
563: -- API body
564: l_organization_id := 0;
565:
566: l_disable_allowed := FND_API.G_TRUE;
567:
568: l_stmt_num := 60;
569: SELECT SERIAL_NUMBER_GENERATION
570: INTO l_serial_generation
605: -- FOR UPDATE OF START_AUTO_SERIAL_NUMBER;
606:
607: END IF;
608:
609: l_success := FND_API.G_FALSE;
610:
611: /* Here we use the condition "l_success = FND_API.G_FALSE"
612: * as the loop invariant. The loop will continue unless one
613: * of the validation test fails, when l_success will be assigned
607: END IF;
608:
609: l_success := FND_API.G_FALSE;
610:
611: /* Here we use the condition "l_success = FND_API.G_FALSE"
612: * as the loop invariant. The loop will continue unless one
613: * of the validation test fails, when l_success will be assigned
614: * FND_API.G_TRUE
615: */
610:
611: /* Here we use the condition "l_success = FND_API.G_FALSE"
612: * as the loop invariant. The loop will continue unless one
613: * of the validation test fails, when l_success will be assigned
614: * FND_API.G_TRUE
615: */
616: WHILE (l_success = FND_API.G_FALSE) LOOP
617:
618: l_success := FND_API.G_TRUE;
612: * as the loop invariant. The loop will continue unless one
613: * of the validation test fails, when l_success will be assigned
614: * FND_API.G_TRUE
615: */
616: WHILE (l_success = FND_API.G_FALSE) LOOP
617:
618: l_success := FND_API.G_TRUE;
619:
620: IF (l_asset_number IS NOT NULL) THEN
614: * FND_API.G_TRUE
615: */
616: WHILE (l_success = FND_API.G_FALSE) LOOP
617:
618: l_success := FND_API.G_TRUE;
619:
620: IF (l_asset_number IS NOT NULL) THEN
621: l_concat_asset_number := l_asset_prefix ||l_asset_number;
622: ELSE
621: l_concat_asset_number := l_asset_prefix ||l_asset_number;
622: ELSE
623: l_concat_asset_number := NULL;
624: --commenting due to bug 3718290
625: --RAISE fnd_api.g_exc_error;
626: END IF;
627:
628: if (l_concat_asset_number is not null) then
629: l_stmt_num := 90;
648: /* Fix for bug 3408752. Case 2
649: added inventory_id join. */
650:
651: IF (l_count > 0) THEN
652: l_success := FND_API.G_FALSE;
653: /* Start Fix for bug 3408752. Case 1
654: Check for item start_serial_number in all orgs for that item */
655: ELSE
656: select count(*) into l_count
662: msi.inventory_item_id=p_inventory_item_id and
663: msi.auto_serial_alpha_prefix=l_asset_prefix and
664: msi.start_auto_serial_number-1=l_asset_number ;
665: IF (l_count > 0) THEN
666: l_success := FND_API.G_FALSE;
667: END IF;
668: /* End Fix for bug 3408752. Case 1
669: Check for item start_serial_number in all orgs for that item */
670: END IF;
678: WHERE SERIAL_NUMBER = l_concat_asset_number
679: AND CURRENT_ORGANIZATION_ID = p_organization_id;
680:
681: IF (l_count > 0) THEN
682: l_success := FND_API.G_FALSE;
683: END IF;
684:
685: l_stmt_num := 120;
686: SELECT count(*)
691: AND S.SERIAL_NUMBER = l_concat_asset_number
692: AND P.SERIAL_NUMBER_TYPE = 3;
693:
694:
695: IF (l_count > 0 AND l_success = FND_API.G_TRUE) THEN
696: l_success := FND_API.G_FALSE;
697:
698: /* Start Fix for bug 3408752.
699: Check for item start_serial_number in the same org for all items*/
692: AND P.SERIAL_NUMBER_TYPE = 3;
693:
694:
695: IF (l_count > 0 AND l_success = FND_API.G_TRUE) THEN
696: l_success := FND_API.G_FALSE;
697:
698: /* Start Fix for bug 3408752.
699: Check for item start_serial_number in the same org for all items*/
700: ELSE
713: mp.auto_serial_alpha_prefix=l_asset_prefix and
714: mp.start_auto_serial_number-1=l_asset_number;
715: end if;
716: IF (l_count > 0) THEN
717: l_success := FND_API.G_FALSE;
718: END IF;
719: /* End Fix for bug 3408752.
720: Check for item start_serial_number in the same org for all items*/
721: END IF;
728: FROM MTL_SERIAL_NUMBERS
729: WHERE SERIAL_NUMBER = l_concat_asset_number;
730:
731: IF (l_count > 0 ) THEN
732: l_success := FND_API.G_FALSE;
733: /* Start Fix for bug 3408752.
734: Check for item start_serial_number in all orgs for all items*/
735: ELSE
736: /* Fix Case 5*/
744: msi.inventory_item_id=p_inventory_item_id and
745: msi.auto_serial_alpha_prefix=l_asset_prefix and
746: msi.start_auto_serial_number-1=l_asset_number;
747: IF (l_count > 0) THEN
748: l_success := FND_API.G_FALSE;
749: ELSE
750: /* Fix Case 6*/
751: /* check in orgs with org level serial number generation */
752: select count(*) into l_count
756: mp.serial_number_generation = 1 and
757: mp.auto_serial_alpha_prefix=l_asset_prefix and
758: mp.start_auto_serial_number-1=l_asset_number;
759: IF (l_count > 0) THEN
760: l_success := FND_API.G_FALSE;
761: END IF;
762: END IF;
763: /* End Fix for bug 3408752.
764: Check for item start_serial_number in all orgs for all items*/
781: and msn1.current_organization_id = msi1.organization_id
782: and msi1.base_item_id = l_base_item_id;
783:
784: if l_count > 0 then
785: l_success := FND_API.G_FALSE;
786: end if;
787: end if;
788: --Bug 5188972
789: else
792: FROM MTL_SERIAL_NUMBERS
793: WHERE serial_number = l_concat_asset_number
794: AND inventory_item_id=p_inventory_item_id;
795: IF (l_count > 0) THEN
796: l_success := FND_API.G_FALSE;
797: ELSE
798: SELECT count(*) INTO l_count
799: FROM
800: MTL_SYSTEM_ITEMS msi, MTL_PARAMETERS mp
804: msi.inventory_item_id=p_inventory_item_id AND
805: msi.auto_serial_alpha_prefix=l_asset_prefix AND
806: msi.start_auto_serial_number-1=l_asset_number ;
807: IF (l_count > 0) THEN
808: l_success := FND_API.G_FALSE;
809: END IF;
810: END IF;
811: end if;
812:
814:
815:
816: ELSE
817: l_concat_asset_number := NULL;
818: RAISE fnd_api.g_exc_error;
819:
820: END IF;
821:
822: -- chrng: 2002-07-25: To fix bug 2479889.
871:
872: l_stmt_num := 998;
873: -- End of API body.
874: -- Standard check of p_commit.
875: IF fnd_api.to_boolean(p_commit) THEN
876: COMMIT WORK;
877: END IF;
878:
879: l_stmt_num := 999;
878:
879: l_stmt_num := 999;
880: -- Standard call to get message count and if count is 1, get message info.
881: fnd_msg_pub.count_and_get(
882: p_encoded => fnd_api.g_false
883: ,p_count => x_msg_count
884: ,p_data => x_msg_data);
885:
886: EXCEPTION
883: ,p_count => x_msg_count
884: ,p_data => x_msg_data);
885:
886: EXCEPTION
887: WHEN fnd_api.g_exc_error THEN
888: ROLLBACK TO get_next_asset_number_pvt;
889: x_return_status := fnd_api.g_ret_sts_error;
890: x_asset_number := NULL;
891: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
885:
886: EXCEPTION
887: WHEN fnd_api.g_exc_error THEN
888: ROLLBACK TO get_next_asset_number_pvt;
889: x_return_status := fnd_api.g_ret_sts_error;
890: x_asset_number := NULL;
891: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
892: fnd_msg_pub.count_and_get(
893: p_encoded => fnd_api.g_false
889: x_return_status := fnd_api.g_ret_sts_error;
890: x_asset_number := NULL;
891: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
892: fnd_msg_pub.count_and_get(
893: p_encoded => fnd_api.g_false
894: ,p_count => x_msg_count
895: ,p_data => x_msg_data);
896: WHEN fnd_api.g_exc_unexpected_error THEN
897: ROLLBACK TO get_next_asset_number_pvt;
892: fnd_msg_pub.count_and_get(
893: p_encoded => fnd_api.g_false
894: ,p_count => x_msg_count
895: ,p_data => x_msg_data);
896: WHEN fnd_api.g_exc_unexpected_error THEN
897: ROLLBACK TO get_next_asset_number_pvt;
898: x_return_status := fnd_api.g_ret_sts_unexp_error;
899: x_asset_number := NULL;
900: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
894: ,p_count => x_msg_count
895: ,p_data => x_msg_data);
896: WHEN fnd_api.g_exc_unexpected_error THEN
897: ROLLBACK TO get_next_asset_number_pvt;
898: x_return_status := fnd_api.g_ret_sts_unexp_error;
899: x_asset_number := NULL;
900: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
901: fnd_msg_pub.count_and_get(
902: p_encoded => fnd_api.g_false
898: x_return_status := fnd_api.g_ret_sts_unexp_error;
899: x_asset_number := NULL;
900: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
901: fnd_msg_pub.count_and_get(
902: p_encoded => fnd_api.g_false
903: ,p_count => x_msg_count
904: ,p_data => x_msg_data);
905: WHEN OTHERS THEN
906: ROLLBACK TO get_next_asset_number_pvt;
903: ,p_count => x_msg_count
904: ,p_data => x_msg_data);
905: WHEN OTHERS THEN
906: ROLLBACK TO get_next_asset_number_pvt;
907: x_return_status := fnd_api.g_ret_sts_unexp_error;
908: x_asset_number := NULL;
909: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
910: IF fnd_msg_pub.check_msg_level(
911: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
912: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
913: END IF;
914:
915: fnd_msg_pub.count_and_get(
916: p_encoded => fnd_api.g_false
917: ,p_count => x_msg_count
918: ,p_data => x_msg_data);
919:
920:
930: PROCEDURE verify_org(
931: p_resp_id number,
932: p_resp_app_id number,
933: p_org_id number,
934: p_init_msg_list in VARCHAR2 := FND_API.G_FALSE,
935: x_boolean out NOCOPY number,
936: x_return_status out NOCOPY VARCHAR2,
937: x_msg_count out NOCOPY NUMBER,
938: x_msg_data out NOCOPY VARCHAR2)
979: from wip_eam_parameters wep
980: where wep.organization_id = p_org_id;
981: END IF;
982:
983: x_return_status := fnd_api.g_ret_sts_success;
984:
985: EXCEPTION
986: WHEN OTHERS THEN
987: rollback;
984:
985: EXCEPTION
986: WHEN OTHERS THEN
987: rollback;
988: x_return_status := fnd_api.g_ret_sts_unexp_error;
989: IF fnd_msg_pub.check_msg_level(
990: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
991: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
992: END IF;
1542:
1543:
1544: PROCEDURE get_work_order_count (
1545: p_api_version IN NUMBER
1546: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1547: ,p_commit IN VARCHAR2 := fnd_api.g_false
1548: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1549: ,p_organization_id IN VARCHAR2
1550: ,p_employee_id IN VARCHAR2
1543:
1544: PROCEDURE get_work_order_count (
1545: p_api_version IN NUMBER
1546: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1547: ,p_commit IN VARCHAR2 := fnd_api.g_false
1548: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1549: ,p_organization_id IN VARCHAR2
1550: ,p_employee_id IN VARCHAR2
1551: ,p_instance_id IN NUMBER
1544: PROCEDURE get_work_order_count (
1545: p_api_version IN NUMBER
1546: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1547: ,p_commit IN VARCHAR2 := fnd_api.g_false
1548: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1549: ,p_organization_id IN VARCHAR2
1550: ,p_employee_id IN VARCHAR2
1551: ,p_instance_id IN NUMBER
1552: ,p_asset_group_id IN NUMBER
1590: SAVEPOINT get_work_order_count_pvt;
1591:
1592: l_stmt_num := 20;
1593: -- Standard call to check for call compatibility.
1594: IF NOT fnd_api.compatible_api_call(
1595: l_api_version
1596: ,p_api_version
1597: ,l_api_name
1598: ,g_pkg_name) THEN
1595: l_api_version
1596: ,p_api_version
1597: ,l_api_name
1598: ,g_pkg_name) THEN
1599: RAISE fnd_api.g_exc_unexpected_error;
1600: END IF;
1601:
1602: l_stmt_num := 30;
1603: -- Initialize message list if p_init_msg_list is set to TRUE.
1600: END IF;
1601:
1602: l_stmt_num := 30;
1603: -- Initialize message list if p_init_msg_list is set to TRUE.
1604: IF fnd_api.to_boolean(p_init_msg_list) THEN
1605: fnd_msg_pub.initialize;
1606: END IF;
1607:
1608: l_stmt_num := 40;
1606: END IF;
1607:
1608: l_stmt_num := 40;
1609: -- Initialize API return status to success
1610: x_return_status := fnd_api.g_ret_sts_success;
1611:
1612: l_stmt_num := 50;
1613:
1614: -- API body
2030:
2031: l_stmt_num := 998;
2032: -- End of API body.
2033: -- Standard check of p_commit.
2034: IF fnd_api.to_boolean(p_commit) THEN
2035: COMMIT WORK;
2036: END IF;
2037:
2038: l_stmt_num := 999;
2037:
2038: l_stmt_num := 999;
2039: -- Standard call to get message count and if count is 1, get message info.
2040: fnd_msg_pub.count_and_get(
2041: p_encoded => fnd_api.g_false
2042: ,p_count => x_msg_count
2043: ,p_data => x_msg_data);
2044:
2045: EXCEPTION
2042: ,p_count => x_msg_count
2043: ,p_data => x_msg_data);
2044:
2045: EXCEPTION
2046: WHEN fnd_api.g_exc_error THEN
2047: ROLLBACK TO get_work_order_count_pvt;
2048: x_return_status := fnd_api.g_ret_sts_error;
2049: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2050: fnd_msg_pub.count_and_get(
2044:
2045: EXCEPTION
2046: WHEN fnd_api.g_exc_error THEN
2047: ROLLBACK TO get_work_order_count_pvt;
2048: x_return_status := fnd_api.g_ret_sts_error;
2049: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2050: fnd_msg_pub.count_and_get(
2051: p_encoded => fnd_api.g_false
2052: ,p_count => x_msg_count
2047: ROLLBACK TO get_work_order_count_pvt;
2048: x_return_status := fnd_api.g_ret_sts_error;
2049: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2050: fnd_msg_pub.count_and_get(
2051: p_encoded => fnd_api.g_false
2052: ,p_count => x_msg_count
2053: ,p_data => x_msg_data);
2054: WHEN fnd_api.g_exc_unexpected_error THEN
2055: ROLLBACK TO get_work_order_count_pvt;
2050: fnd_msg_pub.count_and_get(
2051: p_encoded => fnd_api.g_false
2052: ,p_count => x_msg_count
2053: ,p_data => x_msg_data);
2054: WHEN fnd_api.g_exc_unexpected_error THEN
2055: ROLLBACK TO get_work_order_count_pvt;
2056: x_return_status := fnd_api.g_ret_sts_unexp_error;
2057: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2058: fnd_msg_pub.count_and_get(
2052: ,p_count => x_msg_count
2053: ,p_data => x_msg_data);
2054: WHEN fnd_api.g_exc_unexpected_error THEN
2055: ROLLBACK TO get_work_order_count_pvt;
2056: x_return_status := fnd_api.g_ret_sts_unexp_error;
2057: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2058: fnd_msg_pub.count_and_get(
2059: p_encoded => fnd_api.g_false
2060: ,p_count => x_msg_count
2055: ROLLBACK TO get_work_order_count_pvt;
2056: x_return_status := fnd_api.g_ret_sts_unexp_error;
2057: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2058: fnd_msg_pub.count_and_get(
2059: p_encoded => fnd_api.g_false
2060: ,p_count => x_msg_count
2061: ,p_data => x_msg_data);
2062: WHEN OTHERS THEN
2063: ROLLBACK TO get_work_order_count_pvt;
2060: ,p_count => x_msg_count
2061: ,p_data => x_msg_data);
2062: WHEN OTHERS THEN
2063: ROLLBACK TO get_work_order_count_pvt;
2064: x_return_status := fnd_api.g_ret_sts_unexp_error;
2065: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2066: IF fnd_msg_pub.check_msg_level(
2067: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2068: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2068: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2069: END IF;
2070:
2071: fnd_msg_pub.count_and_get(
2072: p_encoded => fnd_api.g_false
2073: ,p_count => x_msg_count
2074: ,p_data => x_msg_data);
2075:
2076:
2078:
2079:
2080: PROCEDURE insert_into_wori (
2081: p_api_version IN NUMBER
2082: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2083: ,p_commit IN VARCHAR2 := fnd_api.g_false
2084: ,p_organization_id IN VARCHAR2
2085: ,p_employee_id IN VARCHAR2
2086: ,p_wip_entity_id IN VARCHAR2
2079:
2080: PROCEDURE insert_into_wori (
2081: p_api_version IN NUMBER
2082: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2083: ,p_commit IN VARCHAR2 := fnd_api.g_false
2084: ,p_organization_id IN VARCHAR2
2085: ,p_employee_id IN VARCHAR2
2086: ,p_wip_entity_id IN VARCHAR2
2087: ,p_operation_seq_num IN VARCHAR2
2158: SAVEPOINT insert_into_wori_pvt;
2159:
2160: l_stmt_num := 20;
2161: -- Standard call to check for call compatibility.
2162: IF NOT fnd_api.compatible_api_call(
2163: l_api_version
2164: ,p_api_version
2165: ,l_api_name
2166: ,g_pkg_name) THEN
2163: l_api_version
2164: ,p_api_version
2165: ,l_api_name
2166: ,g_pkg_name) THEN
2167: RAISE fnd_api.g_exc_unexpected_error;
2168: END IF;
2169:
2170: l_stmt_num := 30;
2171: -- Initialize message list if p_init_msg_list is set to TRUE.
2168: END IF;
2169:
2170: l_stmt_num := 30;
2171: -- Initialize message list if p_init_msg_list is set to TRUE.
2172: IF fnd_api.to_boolean(p_init_msg_list) THEN
2173: fnd_msg_pub.initialize;
2174: END IF;
2175:
2176: l_stmt_num := 40;
2174: END IF;
2175:
2176: l_stmt_num := 40;
2177: -- Initialize API return status to success
2178: x_return_status := fnd_api.g_ret_sts_success;
2179:
2180: l_stmt_num := 50;
2181:
2182: -- API body
2268:
2269:
2270: -- End of API body.
2271: -- Standard check of p_commit.
2272: IF fnd_api.to_boolean(p_commit) THEN
2273: COMMIT WORK;
2274: END IF;
2275:
2276: l_stmt_num := 999;
2275:
2276: l_stmt_num := 999;
2277: -- Standard call to get message count and if count is 1, get message info.
2278: fnd_msg_pub.count_and_get(
2279: p_encoded => fnd_api.g_false
2280: ,p_count => x_msg_count
2281: ,p_data => x_msg_data);
2282:
2283: EXCEPTION
2280: ,p_count => x_msg_count
2281: ,p_data => x_msg_data);
2282:
2283: EXCEPTION
2284: WHEN fnd_api.g_exc_error THEN
2285: ROLLBACK TO insert_into_wori_pvt;
2286: x_return_status := fnd_api.g_ret_sts_error;
2287: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2288: fnd_msg_pub.count_and_get(
2282:
2283: EXCEPTION
2284: WHEN fnd_api.g_exc_error THEN
2285: ROLLBACK TO insert_into_wori_pvt;
2286: x_return_status := fnd_api.g_ret_sts_error;
2287: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2288: fnd_msg_pub.count_and_get(
2289: p_encoded => fnd_api.g_false
2290: ,p_count => x_msg_count
2285: ROLLBACK TO insert_into_wori_pvt;
2286: x_return_status := fnd_api.g_ret_sts_error;
2287: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2288: fnd_msg_pub.count_and_get(
2289: p_encoded => fnd_api.g_false
2290: ,p_count => x_msg_count
2291: ,p_data => x_msg_data);
2292: WHEN fnd_api.g_exc_unexpected_error THEN
2293: ROLLBACK TO insert_into_wori_pvt;
2288: fnd_msg_pub.count_and_get(
2289: p_encoded => fnd_api.g_false
2290: ,p_count => x_msg_count
2291: ,p_data => x_msg_data);
2292: WHEN fnd_api.g_exc_unexpected_error THEN
2293: ROLLBACK TO insert_into_wori_pvt;
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2296: fnd_msg_pub.count_and_get(
2290: ,p_count => x_msg_count
2291: ,p_data => x_msg_data);
2292: WHEN fnd_api.g_exc_unexpected_error THEN
2293: ROLLBACK TO insert_into_wori_pvt;
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2296: fnd_msg_pub.count_and_get(
2297: p_encoded => fnd_api.g_false
2298: ,p_count => x_msg_count
2293: ROLLBACK TO insert_into_wori_pvt;
2294: x_return_status := fnd_api.g_ret_sts_unexp_error;
2295: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2296: fnd_msg_pub.count_and_get(
2297: p_encoded => fnd_api.g_false
2298: ,p_count => x_msg_count
2299: ,p_data => x_msg_data);
2300: WHEN OTHERS THEN
2301: ROLLBACK TO insert_into_wori_pvt;
2298: ,p_count => x_msg_count
2299: ,p_data => x_msg_data);
2300: WHEN OTHERS THEN
2301: ROLLBACK TO insert_into_wori_pvt;
2302: x_return_status := fnd_api.g_ret_sts_unexp_error;
2303: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name, SQLERRM);
2304: IF fnd_msg_pub.check_msg_level(
2305: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2306: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2306: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2307: END IF;
2308:
2309: fnd_msg_pub.count_and_get(
2310: p_encoded => fnd_api.g_false
2311: ,p_count => x_msg_count
2312: ,p_data => x_msg_data);
2313:
2314:
2371: --This procedure validates and deactivates the asset
2372:
2373: PROCEDURE deactivate_assets(
2374: P_API_VERSION IN NUMBER,
2375: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
2376: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
2377: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2378: P_INVENTORY_ITEM_ID IN NUMBER,
2379: P_SERIAL_NUMBER IN VARCHAR2,
2372:
2373: PROCEDURE deactivate_assets(
2374: P_API_VERSION IN NUMBER,
2375: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
2376: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
2377: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2378: P_INVENTORY_ITEM_ID IN NUMBER,
2379: P_SERIAL_NUMBER IN VARCHAR2,
2380: P_ORGANIZATION_ID IN NUMBER,
2373: PROCEDURE deactivate_assets(
2374: P_API_VERSION IN NUMBER,
2375: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
2376: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
2377: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2378: P_INVENTORY_ITEM_ID IN NUMBER,
2379: P_SERIAL_NUMBER IN VARCHAR2,
2380: P_ORGANIZATION_ID IN NUMBER,
2381: P_GEN_OBJECT_ID IN NUMBER,
2404: SAVEPOINT asset_util_pvt;
2405:
2406: l_stmt_num := 20;
2407: -- Standard call to check for call compatibility.
2408: IF NOT fnd_api.compatible_api_call(
2409: l_api_version
2410: ,p_api_version
2411: ,l_api_name
2412: ,g_pkg_name) THEN
2409: l_api_version
2410: ,p_api_version
2411: ,l_api_name
2412: ,g_pkg_name) THEN
2413: RAISE fnd_api.g_exc_unexpected_error;
2414: END IF;
2415:
2416: l_stmt_num := 30;
2417: -- Initialize message list if p_init_msg_list is set to TRUE.
2414: END IF;
2415:
2416: l_stmt_num := 30;
2417: -- Initialize message list if p_init_msg_list is set to TRUE.
2418: IF fnd_api.to_boolean(p_init_msg_list) THEN
2419: fnd_msg_pub.initialize;
2420: END IF;
2421:
2422: l_stmt_num := 40;
2420: END IF;
2421:
2422: l_stmt_num := 40;
2423: -- Initialize API return status to success
2424: x_return_status := fnd_api.g_ret_sts_success;
2425:
2426: if P_INSTANCE_ID is null then
2427: l_organization_id := p_organization_id;
2428: select instance_id into l_instance_id
2476:
2477: if (l_hr_exists = 'Y') then
2478: fnd_message.set_name('EAM','EAM_HIERARCHY_EXISTS');
2479: fnd_msg_pub.add;
2480: RAISE fnd_api.g_exc_error;
2481: end if;
2482:
2483: -- ROUTES CHECK
2484:
2501:
2502: if (nvl(l_routes_exists,'N') = 'Y') then
2503: fnd_message.set_name('EAM','EAM_ROUTE_EXISTS');
2504: fnd_msg_pub.add;
2505: RAISE fnd_api.g_exc_error;
2506: end if;
2507:
2508: -- WORK REQUEST AND WORK ORDER CHECK
2509: begin
2531:
2532: if (nvl(l_wo_exists,'N') = 'Y') then
2533: fnd_message.set_name('EAM','EAM_WO_EXISTS');
2534: fnd_msg_pub.add;
2535: RAISE fnd_api.g_exc_error;
2536: end if;
2537:
2538: -- check open Service Reqests
2539: begin
2556:
2557: if (nvl(l_sr_exists,'N') = 'Y') then
2558: fnd_message.set_name('EAM','EAM_SR_EXISTS');
2559: fnd_msg_pub.add;
2560: RAISE fnd_api.g_exc_error;
2561: end if;
2562: eam_asset_number_pvt.update_asset(
2563: P_API_VERSION => 1.0
2564: ,p_commit => p_commit
2572: ,X_MSG_DATA => x_msg_data
2573: );
2574:
2575: EXCEPTION
2576: WHEN fnd_api.g_exc_error THEN
2577: ROLLBACK TO asset_util_pvt;
2578: x_return_status := fnd_api.g_ret_sts_error;
2579: fnd_msg_pub.count_and_get(
2580: p_encoded => fnd_api.g_false
2574:
2575: EXCEPTION
2576: WHEN fnd_api.g_exc_error THEN
2577: ROLLBACK TO asset_util_pvt;
2578: x_return_status := fnd_api.g_ret_sts_error;
2579: fnd_msg_pub.count_and_get(
2580: p_encoded => fnd_api.g_false
2581: ,p_count => x_msg_count
2582: ,p_data => x_msg_data);
2576: WHEN fnd_api.g_exc_error THEN
2577: ROLLBACK TO asset_util_pvt;
2578: x_return_status := fnd_api.g_ret_sts_error;
2579: fnd_msg_pub.count_and_get(
2580: p_encoded => fnd_api.g_false
2581: ,p_count => x_msg_count
2582: ,p_data => x_msg_data);
2583: WHEN fnd_api.g_exc_unexpected_error THEN
2584: ROLLBACK TO asset_util_pvt;
2579: fnd_msg_pub.count_and_get(
2580: p_encoded => fnd_api.g_false
2581: ,p_count => x_msg_count
2582: ,p_data => x_msg_data);
2583: WHEN fnd_api.g_exc_unexpected_error THEN
2584: ROLLBACK TO asset_util_pvt;
2585: x_return_status := fnd_api.g_ret_sts_unexp_error;
2586: fnd_msg_pub.count_and_get(
2587: p_encoded => fnd_api.g_false
2581: ,p_count => x_msg_count
2582: ,p_data => x_msg_data);
2583: WHEN fnd_api.g_exc_unexpected_error THEN
2584: ROLLBACK TO asset_util_pvt;
2585: x_return_status := fnd_api.g_ret_sts_unexp_error;
2586: fnd_msg_pub.count_and_get(
2587: p_encoded => fnd_api.g_false
2588: ,p_count => x_msg_count
2589: ,p_data => x_msg_data);
2583: WHEN fnd_api.g_exc_unexpected_error THEN
2584: ROLLBACK TO asset_util_pvt;
2585: x_return_status := fnd_api.g_ret_sts_unexp_error;
2586: fnd_msg_pub.count_and_get(
2587: p_encoded => fnd_api.g_false
2588: ,p_count => x_msg_count
2589: ,p_data => x_msg_data);
2590:
2591: WHEN OTHERS THEN
2589: ,p_data => x_msg_data);
2590:
2591: WHEN OTHERS THEN
2592: ROLLBACK TO asset_util_pvt;
2593: x_return_status := fnd_api.g_ret_sts_unexp_error;
2594:
2595: IF fnd_msg_pub.check_msg_level(
2596: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2597: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name||'('||l_stmt_num||')');
2597: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name||'('||l_stmt_num||')');
2598: END IF;
2599:
2600: fnd_msg_pub.count_and_get(
2601: p_encoded => fnd_api.g_false
2602: ,p_count => x_msg_count
2603: ,p_data => x_msg_data);
2604:
2605: end deactivate_assets;
2639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, p_module,
2640: 'Message Count (from message Stack)= ' || l_msg_count_1);
2641: end if;
2642: end if;
2643: l_msg_data_1 := fnd_msg_pub.get(fnd_msg_pub.G_FIRST, FND_API.G_FALSE); --set encoded to true
2644: if (l_msg_count_1 is not null and l_msg_count_1 > 0) then
2645: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2646: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, p_module,
2647: 'Message #1 (from message stack) =' || l_msg_data_1);
2646: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, p_module,
2647: 'Message #1 (from message stack) =' || l_msg_data_1);
2648: end if;
2649: for i in 2..l_msg_count_1 LOOP
2650: l_msg_data_1 := fnd_msg_pub.get(fnd_msg_pub.G_NEXT, FND_API.G_FALSE); --set encoded to true
2651: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2652: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, p_module,
2653: 'Message #' || to_char(i) || ' (from message stack) =' || l_msg_data_1);
2654: end if;
2717: END LOOP;
2718: inv_quantity_tree_pub.clear_quantity_cache;
2719: INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES
2720: ( p_api_version_number => 1.0
2721: , p_init_msg_lst => FND_API.G_TRUE
2722: , x_return_status => l_return_status
2723: , x_msg_count => l_msg_count
2724: , x_msg_data => l_msg_data
2725: , p_organization_id => p_org_id
2826:
2827: IF X_QOH_PROFILE_VALUE = 1 THEN
2828: INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES
2829: ( p_api_version_number => 1.0
2830: , p_init_msg_lst => FND_API.G_TRUE
2831: , x_return_status => l_return_status
2832: , x_msg_count => l_msg_count
2833: , x_msg_data => l_msg_data
2834: , p_organization_id => p_organization_id
2851: );
2852: ELSE
2853: INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES
2854: ( p_api_version_number => 1.0
2855: , p_init_msg_lst => FND_API.G_TRUE
2856: , x_return_status => l_return_status
2857: , x_msg_count => l_msg_count
2858: , x_msg_data => l_msg_data
2859: , p_organization_id => p_organization_id
2931: ----------------------------------------------------------------------------
2932:
2933: PROCEDURE CREATE_ASSET(
2934: P_API_VERSION IN NUMBER
2935: ,P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE
2936: ,P_COMMIT IN VARCHAR2 := FND_API.G_FALSE
2937: ,P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2938: ,X_EAM_WO_REC IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
2939: ,X_RETURN_STATUS OUT NOCOPY VARCHAR2
2932:
2933: PROCEDURE CREATE_ASSET(
2934: P_API_VERSION IN NUMBER
2935: ,P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE
2936: ,P_COMMIT IN VARCHAR2 := FND_API.G_FALSE
2937: ,P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2938: ,X_EAM_WO_REC IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
2939: ,X_RETURN_STATUS OUT NOCOPY VARCHAR2
2940: ,X_MSG_COUNT OUT NOCOPY NUMBER
2933: PROCEDURE CREATE_ASSET(
2934: P_API_VERSION IN NUMBER
2935: ,P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE
2936: ,P_COMMIT IN VARCHAR2 := FND_API.G_FALSE
2937: ,P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2938: ,X_EAM_WO_REC IN OUT NOCOPY EAM_PROCESS_WO_PUB.eam_wo_rec_type
2939: ,X_RETURN_STATUS OUT NOCOPY VARCHAR2
2940: ,X_MSG_COUNT OUT NOCOPY NUMBER
2941: ,X_MSG_DATA OUT NOCOPY VARCHAR2
2958: -- Standard Start of API savepoint
2959: SAVEPOINT create_asset;
2960:
2961: -- Standard call to check for call compatibility.
2962: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2963: RAISE fnd_api.g_exc_unexpected_error;
2964: END IF;
2965:
2966: -- Initialize message list if p_init_msg_list is set to TRUE.
2959: SAVEPOINT create_asset;
2960:
2961: -- Standard call to check for call compatibility.
2962: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2963: RAISE fnd_api.g_exc_unexpected_error;
2964: END IF;
2965:
2966: -- Initialize message list if p_init_msg_list is set to TRUE.
2967: IF fnd_api.to_boolean(p_init_msg_list) THEN
2963: RAISE fnd_api.g_exc_unexpected_error;
2964: END IF;
2965:
2966: -- Initialize message list if p_init_msg_list is set to TRUE.
2967: IF fnd_api.to_boolean(p_init_msg_list) THEN
2968: fnd_msg_pub.initialize;
2969: END IF;
2970:
2971: -- Initialize API return status to success
2969: END IF;
2970:
2971: -- Initialize API return status to success
2972: l_stmt_num := 10;
2973: x_return_status := fnd_api.g_ret_sts_success;
2974:
2975: l_eam_wo_rec := x_eam_wo_rec;
2976:
2977:
2995: ( 'EAM_COMMON_UTILITIES_PVT'
2996: , '.Create_Asset : Statement -'||to_char(l_stmt_num)
2997: );
2998: END IF;
2999: RAISE fnd_api.g_exc_unexpected_error;
3000:
3001: END;
3002:
3003: --This is a predefined rebuild on which a work order is being defined -
3026: ,X_MSG_COUNT => l_x_asset_msg_count
3027: ,X_MSG_DATA => l_x_asset_msg_data
3028: );
3029:
3030: if (l_x_asset_return_status <> FND_API.G_RET_STS_SUCCESS) then
3031: l_stmt_num := 40;
3032: RAISE FND_API.G_EXC_ERROR ;
3033: end if;
3034:
3028: );
3029:
3030: if (l_x_asset_return_status <> FND_API.G_RET_STS_SUCCESS) then
3031: l_stmt_num := 40;
3032: RAISE FND_API.G_EXC_ERROR ;
3033: end if;
3034:
3035: else
3036:
3054: ( 'EAM_COMMON_UTILITIES_PVT'
3055: , '.Create_Asset : Statement -'||to_char(l_stmt_num)
3056: );
3057: END IF;
3058: RAISE fnd_api.g_exc_unexpected_error;
3059:
3060: END;
3061: end if;
3062:
3071: x_eam_wo_rec := l_eam_wo_rec;
3072:
3073: -- End of API body.
3074: -- Standard check of p_commit.
3075: IF fnd_api.to_boolean(p_commit) THEN
3076: COMMIT WORK;
3077: END IF;
3078:
3079: -- Standard call to get message count and if count is 1, get message info.
3082: ,p_data => x_msg_data);
3083:
3084:
3085: EXCEPTION
3086: WHEN fnd_api.g_exc_error THEN
3087: ROLLBACK TO create_asset;
3088: x_return_status := fnd_api.g_ret_sts_error;
3089: fnd_msg_pub.count_and_get(
3090: p_count => x_msg_count
3084:
3085: EXCEPTION
3086: WHEN fnd_api.g_exc_error THEN
3087: ROLLBACK TO create_asset;
3088: x_return_status := fnd_api.g_ret_sts_error;
3089: fnd_msg_pub.count_and_get(
3090: p_count => x_msg_count
3091: ,p_data => x_msg_data);
3092: WHEN fnd_api.g_exc_unexpected_error THEN
3088: x_return_status := fnd_api.g_ret_sts_error;
3089: fnd_msg_pub.count_and_get(
3090: p_count => x_msg_count
3091: ,p_data => x_msg_data);
3092: WHEN fnd_api.g_exc_unexpected_error THEN
3093: ROLLBACK TO create_asset;
3094: x_return_status := fnd_api.g_ret_sts_unexp_error;
3095: fnd_msg_pub.count_and_get(
3096: p_count => x_msg_count
3090: p_count => x_msg_count
3091: ,p_data => x_msg_data);
3092: WHEN fnd_api.g_exc_unexpected_error THEN
3093: ROLLBACK TO create_asset;
3094: x_return_status := fnd_api.g_ret_sts_unexp_error;
3095: fnd_msg_pub.count_and_get(
3096: p_count => x_msg_count
3097: ,p_data => x_msg_data);
3098: WHEN OTHERS THEN
3096: p_count => x_msg_count
3097: ,p_data => x_msg_data);
3098: WHEN OTHERS THEN
3099: ROLLBACK TO create_asset;
3100: x_return_status := fnd_api.g_ret_sts_unexp_error;
3101:
3102: IF fnd_msg_pub.check_msg_level(
3103: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3104: fnd_msg_pub.add_exc_msg(G_PKG_NAME, l_api_name);
3336: SAVEPOINT write_woru;
3337:
3338: -- Initialize API return status to success
3339: l_stmt_num := 10;
3340: x_return_status := fnd_api.g_ret_sts_success;
3341:
3342: -- API body
3343:
3344: l_stmt_num := 20;
3417:
3418:
3419: EXCEPTION
3420:
3421: WHEN fnd_api.g_exc_error THEN
3422: ROLLBACK TO adjust_woru;
3423: x_return_status := fnd_api.g_ret_sts_error;
3424:
3425: WHEN fnd_api.g_exc_unexpected_error THEN
3419: EXCEPTION
3420:
3421: WHEN fnd_api.g_exc_error THEN
3422: ROLLBACK TO adjust_woru;
3423: x_return_status := fnd_api.g_ret_sts_error;
3424:
3425: WHEN fnd_api.g_exc_unexpected_error THEN
3426: ROLLBACK TO adjust_woru;
3427: x_return_status := fnd_api.g_ret_sts_unexp_error;
3421: WHEN fnd_api.g_exc_error THEN
3422: ROLLBACK TO adjust_woru;
3423: x_return_status := fnd_api.g_ret_sts_error;
3424:
3425: WHEN fnd_api.g_exc_unexpected_error THEN
3426: ROLLBACK TO adjust_woru;
3427: x_return_status := fnd_api.g_ret_sts_unexp_error;
3428:
3429: WHEN OTHERS THEN
3423: x_return_status := fnd_api.g_ret_sts_error;
3424:
3425: WHEN fnd_api.g_exc_unexpected_error THEN
3426: ROLLBACK TO adjust_woru;
3427: x_return_status := fnd_api.g_ret_sts_unexp_error;
3428:
3429: WHEN OTHERS THEN
3430: ROLLBACK TO adjust_woru;
3431: x_return_status := fnd_api.g_ret_sts_unexp_error;
3427: x_return_status := fnd_api.g_ret_sts_unexp_error;
3428:
3429: WHEN OTHERS THEN
3430: ROLLBACK TO adjust_woru;
3431: x_return_status := fnd_api.g_ret_sts_unexp_error;
3432:
3433:
3434:
3435:
3438:
3439:
3440: PROCEDURE Adjust_WORU (
3441: P_API_VERSION IN NUMBER
3442: ,P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE
3443: ,P_COMMIT IN VARCHAR2 := FND_API.G_FALSE
3444: ,P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3445: ,P_WIP_ENTITY_ID IN NUMBER
3446: ,P_ORGANIZATION_ID IN NUMBER
3439:
3440: PROCEDURE Adjust_WORU (
3441: P_API_VERSION IN NUMBER
3442: ,P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE
3443: ,P_COMMIT IN VARCHAR2 := FND_API.G_FALSE
3444: ,P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3445: ,P_WIP_ENTITY_ID IN NUMBER
3446: ,P_ORGANIZATION_ID IN NUMBER
3447: ,P_OPERATION_SEQ_NUM IN NUMBER
3440: PROCEDURE Adjust_WORU (
3441: P_API_VERSION IN NUMBER
3442: ,P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE
3443: ,P_COMMIT IN VARCHAR2 := FND_API.G_FALSE
3444: ,P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3445: ,P_WIP_ENTITY_ID IN NUMBER
3446: ,P_ORGANIZATION_ID IN NUMBER
3447: ,P_OPERATION_SEQ_NUM IN NUMBER
3448: ,P_RESOURCE_SEQ_NUM IN NUMBER
3488: -- Standard Start of API savepoint
3489: SAVEPOINT adjust_woru;
3490:
3491: -- Standard call to check for call compatibility.
3492: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3493: RAISE fnd_api.g_exc_unexpected_error;
3494: END IF;
3495:
3496: -- Initialize message list if p_init_msg_list is set to TRUE.
3489: SAVEPOINT adjust_woru;
3490:
3491: -- Standard call to check for call compatibility.
3492: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3493: RAISE fnd_api.g_exc_unexpected_error;
3494: END IF;
3495:
3496: -- Initialize message list if p_init_msg_list is set to TRUE.
3497: IF fnd_api.to_boolean(p_init_msg_list) THEN
3493: RAISE fnd_api.g_exc_unexpected_error;
3494: END IF;
3495:
3496: -- Initialize message list if p_init_msg_list is set to TRUE.
3497: IF fnd_api.to_boolean(p_init_msg_list) THEN
3498: fnd_msg_pub.initialize;
3499: END IF;
3500:
3501: -- Initialize API return status to success
3499: END IF;
3500:
3501: -- Initialize API return status to success
3502: l_stmt_num := 10;
3503: x_return_status := fnd_api.g_ret_sts_success;
3504:
3505: -- API body
3506: -- Figure out if it is a move or resize
3507:
3519: X_RETURN_STATUS => l_return_status,
3520: X_MSG_COUNT => l_msg_count,
3521: X_MSG_DATA => l_msg_data);
3522:
3523: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3524: RAISE FND_API.G_EXC_ERROR ;
3525: end if;
3526:
3527: else
3520: X_MSG_COUNT => l_msg_count,
3521: X_MSG_DATA => l_msg_data);
3522:
3523: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3524: RAISE FND_API.G_EXC_ERROR ;
3525: end if;
3526:
3527: else
3528: l_stmt_num := 30;
3560: ( 'EAM_COMMON_UTILITIES_PVT'
3561: , '.Adjust_WORU : Statement -'||to_char(l_stmt_num)
3562: );
3563: END IF;
3564: RAISE fnd_api.g_exc_unexpected_error;
3565:
3566: END;
3567:
3568: l_stmt_num := 50;
3681: X_RETURN_STATUS => l_return_status,
3682: X_MSG_COUNT => l_msg_count,
3683: X_MSG_DATA => l_msg_data);
3684:
3685: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3686: RAISE FND_API.G_EXC_ERROR ;
3687: end if;
3688:
3689: END LOOP;
3682: X_MSG_COUNT => l_msg_count,
3683: X_MSG_DATA => l_msg_data);
3684:
3685: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3686: RAISE FND_API.G_EXC_ERROR ;
3687: end if;
3688:
3689: END LOOP;
3690:
3693:
3694:
3695: -- End of API body.
3696: -- Standard check of p_commit.
3697: IF fnd_api.to_boolean(p_commit) THEN
3698: COMMIT WORK;
3699: END IF;
3700:
3701: -- Standard call to get message count and if count is 1, get message info.
3706:
3707: EXCEPTION
3708: WHEN SHRINK_WITH_ASSIGNMENTS THEN
3709: rollback to adjust_woru;
3710: x_return_status := fnd_api.g_ret_sts_error;
3711: fnd_msg_pub.count_and_get(
3712: p_count => x_msg_count
3713: ,p_data => x_msg_data);
3714:
3711: fnd_msg_pub.count_and_get(
3712: p_count => x_msg_count
3713: ,p_data => x_msg_data);
3714:
3715: WHEN fnd_api.g_exc_error THEN
3716: ROLLBACK TO adjust_woru;
3717: x_return_status := fnd_api.g_ret_sts_error;
3718: fnd_msg_pub.count_and_get(
3719: p_count => x_msg_count
3713: ,p_data => x_msg_data);
3714:
3715: WHEN fnd_api.g_exc_error THEN
3716: ROLLBACK TO adjust_woru;
3717: x_return_status := fnd_api.g_ret_sts_error;
3718: fnd_msg_pub.count_and_get(
3719: p_count => x_msg_count
3720: ,p_data => x_msg_data);
3721: WHEN fnd_api.g_exc_unexpected_error THEN
3717: x_return_status := fnd_api.g_ret_sts_error;
3718: fnd_msg_pub.count_and_get(
3719: p_count => x_msg_count
3720: ,p_data => x_msg_data);
3721: WHEN fnd_api.g_exc_unexpected_error THEN
3722: ROLLBACK TO adjust_woru;
3723: x_return_status := fnd_api.g_ret_sts_unexp_error;
3724: fnd_msg_pub.count_and_get(
3725: p_count => x_msg_count
3719: p_count => x_msg_count
3720: ,p_data => x_msg_data);
3721: WHEN fnd_api.g_exc_unexpected_error THEN
3722: ROLLBACK TO adjust_woru;
3723: x_return_status := fnd_api.g_ret_sts_unexp_error;
3724: fnd_msg_pub.count_and_get(
3725: p_count => x_msg_count
3726: ,p_data => x_msg_data);
3727: WHEN OTHERS THEN
3725: p_count => x_msg_count
3726: ,p_data => x_msg_data);
3727: WHEN OTHERS THEN
3728: ROLLBACK TO adjust_woru;
3729: x_return_status := fnd_api.g_ret_sts_unexp_error;
3730:
3731: IF fnd_msg_pub.check_msg_level(
3732: fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3733: fnd_msg_pub.add_exc_msg(G_PKG_NAME, l_api_name);
3869: l_return_value boolean;
3870:
3871: begin
3872: l_return_value := FALSE;
3873: x_return_status := fnd_api.g_ret_sts_success;
3874: l_equipment_gen_object_id := p_equipment_gen_object_id;
3875:
3876: if (p_pn_location_id is not null AND p_pn_location_id <> FND_API.G_MISS_NUM) then
3877: l_return_value := TRUE;
3872: l_return_value := FALSE;
3873: x_return_status := fnd_api.g_ret_sts_success;
3874: l_equipment_gen_object_id := p_equipment_gen_object_id;
3875:
3876: if (p_pn_location_id is not null AND p_pn_location_id <> FND_API.G_MISS_NUM) then
3877: l_return_value := TRUE;
3878: end if;
3879:
3880: if (p_network_asset_flag is not null AND p_network_asset_flag <> FND_API.G_MISS_CHAR AND p_network_asset_flag = 'Y' AND l_return_value <> TRUE) then
3876: if (p_pn_location_id is not null AND p_pn_location_id <> FND_API.G_MISS_NUM) then
3877: l_return_value := TRUE;
3878: end if;
3879:
3880: if (p_network_asset_flag is not null AND p_network_asset_flag <> FND_API.G_MISS_CHAR AND p_network_asset_flag = 'Y' AND l_return_value <> TRUE) then
3881: l_return_value := TRUE;
3882: end if;
3883:
3884:
3882: end if;
3883:
3884:
3885: if (l_return_value <> TRUE AND l_equipment_gen_object_id IS NOT NULL
3886: AND l_equipment_gen_object_id <> FND_API.G_MISS_NUM) then
3887: begin
3888: select msn.gen_object_id
3889: into l_gen_object_id
3890: from mtl_serial_numbers msn
3896: l_return_value := TRUE;
3897: end if;
3898: exception
3899: when others then
3900: x_return_status := fnd_api.g_ret_sts_unexp_error;
3901: end;
3902: end if;
3903:
3904: if (l_return_value = TRUE) then
3909: where serial_number = p_serial_number
3910: and inventory_item_id = p_inventory_item_id;
3911: exception
3912: when others then
3913: x_return_status := fnd_api.g_ret_sts_unexp_error;
3914: end;
3915: end if;
3916:
3917: begin
3921: and inventory_item_id = p_inventory_item_id;
3922:
3923: exception
3924: when others then
3925: x_return_status := fnd_api.g_ret_sts_unexp_error;
3926: end;
3927:
3928:
3929: end update_logical_asset;