30: -- Parameters :
31: --
32: -- Standard IN Parameters :
33: -- p_api_version IN NUMBER Required
34: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
35: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
36: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
37: -- Based on this flag, the API will set the default attributes.
38: -- p_module_type In VARCHAR2 Default NULL
31: --
32: -- Standard IN Parameters :
33: -- p_api_version IN NUMBER Required
34: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
35: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
36: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
37: -- Based on this flag, the API will set the default attributes.
38: -- p_module_type In VARCHAR2 Default NULL
39: -- This will be null.
32: -- Standard IN Parameters :
33: -- p_api_version IN NUMBER Required
34: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
35: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
36: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
37: -- Based on this flag, the API will set the default attributes.
38: -- p_module_type In VARCHAR2 Default NULL
39: -- This will be null.
40: -- Standard OUT Parameters :
47: -- List of item attributes associated to visit task
48: --
49: PROCEDURE Check_Material_Aval (
50: p_api_version IN NUMBER,
51: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
52: p_commit IN VARCHAR2 := FND_API.g_false,
53: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
54: p_module_type IN VARCHAR2 := 'JSP',
55: p_x_material_avl_tbl IN OUT NOCOPY Material_Availability_Tbl,
48: --
49: PROCEDURE Check_Material_Aval (
50: p_api_version IN NUMBER,
51: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
52: p_commit IN VARCHAR2 := FND_API.g_false,
53: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
54: p_module_type IN VARCHAR2 := 'JSP',
55: p_x_material_avl_tbl IN OUT NOCOPY Material_Availability_Tbl,
56: x_return_status OUT NOCOPY VARCHAR2,
49: PROCEDURE Check_Material_Aval (
50: p_api_version IN NUMBER,
51: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
52: p_commit IN VARCHAR2 := FND_API.g_false,
53: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
54: p_module_type IN VARCHAR2 := 'JSP',
55: p_x_material_avl_tbl IN OUT NOCOPY Material_Availability_Tbl,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
62: l_api_version CONSTANT NUMBER := 1.0;
63: l_msg_count NUMBER;
64: l_return_status VARCHAR2(1);
65: l_msg_data VARCHAR2(2000);
66: l_commit VARCHAR2(10) := FND_API.g_false;
67: l_material_avl_tbl Material_Availability_Tbl := p_x_material_avl_tbl;
68: BEGIN
69:
70: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
80: --------------------Initialize ----------------------------------
81: -- Standard Start of API savepoint
82: SAVEPOINT check_material_aval;
83: -- Standard call to check for call compatibility.
84: IF FND_API.to_boolean(p_init_msg_list)
85: THEN
86: FND_MSG_PUB.initialize;
87: END IF;
88: -- Initialize API return status to success
85: THEN
86: FND_MSG_PUB.initialize;
87: END IF;
88: -- Initialize API return status to success
89: x_return_status := FND_API.G_RET_STS_SUCCESS;
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
92: p_api_version,
93: l_api_name,G_PKG_NAME)
87: END IF;
88: -- Initialize API return status to success
89: x_return_status := FND_API.G_RET_STS_SUCCESS;
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
92: p_api_version,
93: l_api_name,G_PKG_NAME)
94: THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
92: p_api_version,
93: l_api_name,G_PKG_NAME)
94: THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: --------------------Start of API Body-----------------------------------
98: IF l_material_avl_tbl.COUNT > 0 THEN
99: --
134: );
135: END IF;
136:
137: -- Check Error Message stack.
138: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
139: l_msg_count := FND_MSG_PUB.count_msg;
140: IF l_msg_count > 0 THEN
141: RAISE FND_API.G_EXC_ERROR;
142: END IF;
137: -- Check Error Message stack.
138: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
139: l_msg_count := FND_MSG_PUB.count_msg;
140: IF l_msg_count > 0 THEN
141: RAISE FND_API.G_EXC_ERROR;
142: END IF;
143: END IF;
144: --Assign derived values
145: IF l_material_avl_tbl.COUNT > 0 THEN
194: END LOOP;
195: END IF;
196: ------------------------End of Body---------------------------------------
197: --Standard check to count messages
198: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
199: l_msg_count := FND_MSG_PUB.count_msg;
200: IF l_msg_count > 0 THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
197: --Standard check to count messages
198: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
199: l_msg_count := FND_MSG_PUB.count_msg;
200: IF l_msg_count > 0 THEN
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203: END IF;
204:
205: --Standard check for commit
202: END IF;
203: END IF;
204:
205: --Standard check for commit
206: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
207: COMMIT;
208: END IF;
209:
210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
216: );
217: END IF;
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
221: ROLLBACK TO check_material_aval;
222: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
224: p_count => x_msg_count,
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
221: ROLLBACK TO check_material_aval;
222: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
224: p_count => x_msg_count,
225: p_data => x_msg_data);
226:
219: EXCEPTION
220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
221: ROLLBACK TO check_material_aval;
222: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
224: p_count => x_msg_count,
225: p_data => x_msg_data);
226:
227: WHEN FND_API.G_EXC_ERROR THEN
223: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
224: p_count => x_msg_count,
225: p_data => x_msg_data);
226:
227: WHEN FND_API.G_EXC_ERROR THEN
228: ROLLBACK TO check_material_aval;
229: X_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
231: p_count => x_msg_count,
225: p_data => x_msg_data);
226:
227: WHEN FND_API.G_EXC_ERROR THEN
228: ROLLBACK TO check_material_aval;
229: X_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
231: p_count => x_msg_count,
232: p_data => X_msg_data);
233:
226:
227: WHEN FND_API.G_EXC_ERROR THEN
228: ROLLBACK TO check_material_aval;
229: X_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
231: p_count => x_msg_count,
232: p_data => X_msg_data);
233:
234: WHEN OTHERS THEN
232: p_data => X_msg_data);
233:
234: WHEN OTHERS THEN
235: ROLLBACK TO check_material_aval;
236: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
238: THEN
239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
240: p_procedure_name => 'CHECK_MATERIAL_AVAL',
239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
240: p_procedure_name => 'CHECK_MATERIAL_AVAL',
241: p_error_text => SUBSTR(SQLERRM,1,240));
242: END IF;
243: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
244: p_count => x_msg_count,
245: p_data => X_msg_data);
246:
247: END Check_Material_Aval;
255: -- Parameters :
256: --
257: -- Standard IN Parameters :
258: -- p_api_version IN NUMBER Required
259: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
260: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
261: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
262: -- Based on this flag, the API will set the default attributes.
263: -- p_module_type In VARCHAR2 Default NULL
256: --
257: -- Standard IN Parameters :
258: -- p_api_version IN NUMBER Required
259: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
260: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
261: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
262: -- Based on this flag, the API will set the default attributes.
263: -- p_module_type In VARCHAR2 Default NULL
264: -- This will be null.
257: -- Standard IN Parameters :
258: -- p_api_version IN NUMBER Required
259: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
260: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
261: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
262: -- Based on this flag, the API will set the default attributes.
263: -- p_module_type In VARCHAR2 Default NULL
264: -- This will be null.
265: -- Standard OUT Parameters :
271: -- p_visit_id IN NUMBER,Required
272: --
273: PROCEDURE Get_Visit_Task_Materials (
274: p_api_version IN NUMBER,
275: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
276: p_commit IN VARCHAR2 := FND_API.g_false,
277: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
278: p_module_type IN VARCHAR2 := 'JSP',
279: p_visit_id IN NUMBER,
272: --
273: PROCEDURE Get_Visit_Task_Materials (
274: p_api_version IN NUMBER,
275: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
276: p_commit IN VARCHAR2 := FND_API.g_false,
277: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
278: p_module_type IN VARCHAR2 := 'JSP',
279: p_visit_id IN NUMBER,
280: x_task_req_matrl_tbl OUT NOCOPY Task_Req_Matrl_Tbl,
273: PROCEDURE Get_Visit_Task_Materials (
274: p_api_version IN NUMBER,
275: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
276: p_commit IN VARCHAR2 := FND_API.g_false,
277: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
278: p_module_type IN VARCHAR2 := 'JSP',
279: p_visit_id IN NUMBER,
280: x_task_req_matrl_tbl OUT NOCOPY Task_Req_Matrl_Tbl,
281: x_return_status OUT NOCOPY VARCHAR2,
303: END IF;
304: -- Standard Start of API savepoint
305: SAVEPOINT get_visit_task_materials;
306: -- Initialize message list if p_init_msg_list is set to TRUE.
307: IF FND_API.to_boolean(p_init_msg_list)
308: THEN
309: FND_MSG_PUB.initialize;
310: END IF;
311: -- Initialize API return status to success
308: THEN
309: FND_MSG_PUB.initialize;
310: END IF;
311: -- Initialize API return status to success
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313: -- Standard call to check for call compatibility.
314: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
315: p_api_version,
316: l_api_name,G_PKG_NAME)
310: END IF;
311: -- Initialize API return status to success
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313: -- Standard call to check for call compatibility.
314: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
315: p_api_version,
316: l_api_name,G_PKG_NAME)
317: THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
314: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
315: p_api_version,
316: l_api_name,G_PKG_NAME)
317: THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: END IF;
320:
321: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
322: fnd_log.string
337: );
338:
339: END IF;
340:
341: IF p_visit_id IS NOT NULL AND p_visit_id <> FND_API.G_MISS_NUM
342: THEN
343:
344: AHL_LTP_MATRL_AVAL_PVT.Get_Visit_Task_Materials
345: (p_api_version => p_api_version,
360: );
361: END IF;
362:
363: -- Check Error Message stack.
364: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
365: l_msg_count := FND_MSG_PUB.count_msg;
366: IF l_msg_count > 0 THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
363: -- Check Error Message stack.
364: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
365: l_msg_count := FND_MSG_PUB.count_msg;
366: IF l_msg_count > 0 THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369: END IF;
370:
371: IF l_task_req_matrl_tbl.COUNT > 0 THEN
454: END IF;
455: END IF;
456:
457: -- Check Error Message stack.
458: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
459: l_msg_count := FND_MSG_PUB.count_msg;
460: IF l_msg_count > 0 THEN
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
457: -- Check Error Message stack.
458: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
459: l_msg_count := FND_MSG_PUB.count_msg;
460: IF l_msg_count > 0 THEN
461: RAISE FND_API.G_EXC_ERROR;
462: END IF;
463: END IF;
464:
465: --Standard check for commit
462: END IF;
463: END IF;
464:
465: --Standard check for commit
466: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
467: COMMIT;
468: END IF;
469:
470: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
476: );
477: END IF;
478:
479: EXCEPTION
480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
481: ROLLBACK TO get_visit_task_materials;
482: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
484: p_count => x_msg_count,
478:
479: EXCEPTION
480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
481: ROLLBACK TO get_visit_task_materials;
482: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
484: p_count => x_msg_count,
485: p_data => x_msg_data);
486:
479: EXCEPTION
480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
481: ROLLBACK TO get_visit_task_materials;
482: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
484: p_count => x_msg_count,
485: p_data => x_msg_data);
486:
487: WHEN FND_API.G_EXC_ERROR THEN
483: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
484: p_count => x_msg_count,
485: p_data => x_msg_data);
486:
487: WHEN FND_API.G_EXC_ERROR THEN
488: ROLLBACK TO get_visit_task_materials;
489: X_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
491: p_count => x_msg_count,
485: p_data => x_msg_data);
486:
487: WHEN FND_API.G_EXC_ERROR THEN
488: ROLLBACK TO get_visit_task_materials;
489: X_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
491: p_count => x_msg_count,
492: p_data => X_msg_data);
493:
486:
487: WHEN FND_API.G_EXC_ERROR THEN
488: ROLLBACK TO get_visit_task_materials;
489: X_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
491: p_count => x_msg_count,
492: p_data => X_msg_data);
493:
494: WHEN OTHERS THEN
492: p_data => X_msg_data);
493:
494: WHEN OTHERS THEN
495: ROLLBACK TO get_visit_task_materials;
496: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
498: THEN
499: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
500: p_procedure_name => 'GET_VISIT_TASK_MATERIALS',
499: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
500: p_procedure_name => 'GET_VISIT_TASK_MATERIALS',
501: p_error_text => SUBSTR(SQLERRM,1,240));
502: END IF;
503: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
504: p_count => x_msg_count,
505: p_data => X_msg_data);
506: END Get_Visit_Task_Materials;
507:
514: -- Parameters :
515: --
516: -- Standard IN Parameters :
517: -- p_api_version IN NUMBER Required
518: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
519: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
520: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
521: -- Based on this flag, the API will set the default attributes.
522: -- p_module_type In VARCHAR2 Default NULL
515: --
516: -- Standard IN Parameters :
517: -- p_api_version IN NUMBER Required
518: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
519: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
520: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
521: -- Based on this flag, the API will set the default attributes.
522: -- p_module_type In VARCHAR2 Default NULL
523: -- This will be null.
516: -- Standard IN Parameters :
517: -- p_api_version IN NUMBER Required
518: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
519: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
520: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
521: -- Based on this flag, the API will set the default attributes.
522: -- p_module_type In VARCHAR2 Default NULL
523: -- This will be null.
524: -- Standard OUT Parameters :
531: -- List of item attributes associated to visit task
532: --
533: PROCEDURE Check_Materials_For_All (
534: p_api_version IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
536: p_commit IN VARCHAR2 := FND_API.g_false,
537: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
538: p_module_type IN VARCHAR2 := 'JSP',
539: p_visit_id IN NUMBER,
532: --
533: PROCEDURE Check_Materials_For_All (
534: p_api_version IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
536: p_commit IN VARCHAR2 := FND_API.g_false,
537: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
538: p_module_type IN VARCHAR2 := 'JSP',
539: p_visit_id IN NUMBER,
540: x_task_matrl_aval_tbl OUT NOCOPY Material_Availability_Tbl,
533: PROCEDURE Check_Materials_For_All (
534: p_api_version IN NUMBER,
535: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
536: p_commit IN VARCHAR2 := FND_API.g_false,
537: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
538: p_module_type IN VARCHAR2 := 'JSP',
539: p_visit_id IN NUMBER,
540: x_task_matrl_aval_tbl OUT NOCOPY Material_Availability_Tbl,
541: x_return_status OUT NOCOPY VARCHAR2,
578: --------------------Initialize ----------------------------------
579: -- Standard Start of API savepoint
580: SAVEPOINT check_materials_for_all;
581: -- Standard call to check for call compatibility.
582: IF FND_API.to_boolean(p_init_msg_list)
583: THEN
584: FND_MSG_PUB.initialize;
585: END IF;
586: -- Initialize API return status to success
583: THEN
584: FND_MSG_PUB.initialize;
585: END IF;
586: -- Initialize API return status to success
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588: -- Initialize message list if p_init_msg_list is set to TRUE.
589: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
590: p_api_version,
591: l_api_name,G_PKG_NAME)
585: END IF;
586: -- Initialize API return status to success
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588: -- Initialize message list if p_init_msg_list is set to TRUE.
589: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
590: p_api_version,
591: l_api_name,G_PKG_NAME)
592: THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
590: p_api_version,
591: l_api_name,G_PKG_NAME)
592: THEN
593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
594: END IF;
595: --------------------Start of API Body-----------------------------------
596: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
597: fnd_log.string
602: );
603:
604: END IF;
605:
606: IF p_visit_id IS NOT NULL AND p_visit_id <> FND_API.G_MISS_NUM
607: THEN
608:
609: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
610: fnd_log.string
622: IF c_any_task_in_planning%NOTFOUND THEN
623: Fnd_Message.SET_NAME('AHL','AHL_LTP_CHK_AVL_ALL_NONE_PLAN');
624: Fnd_Msg_Pub.ADD;
625: CLOSE c_any_task_in_planning;
626: RAISE Fnd_Api.G_EXC_ERROR;
627: END IF;
628: CLOSE c_any_task_in_planning;
629:
630:
647: );
648: END IF;
649:
650: -- Check Error Message stack.
651: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
652: l_msg_count := FND_MSG_PUB.count_msg;
653: IF l_msg_count > 0 THEN
654: RAISE FND_API.G_EXC_ERROR;
655: END IF;
650: -- Check Error Message stack.
651: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
652: l_msg_count := FND_MSG_PUB.count_msg;
653: IF l_msg_count > 0 THEN
654: RAISE FND_API.G_EXC_ERROR;
655: END IF;
656: END IF;
657:
658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
716: );
717: END IF;
718:
719: -- Check Error Message stack.
720: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
721: l_msg_count := FND_MSG_PUB.count_msg;
722: IF l_msg_count > 0 THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
719: -- Check Error Message stack.
720: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
721: l_msg_count := FND_MSG_PUB.count_msg;
722: IF l_msg_count > 0 THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725: END IF;
726:
727: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
785: END IF;
786:
787: ------------------------End of Body---------------------------------------
788: --Standard check to count messages
789: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
790: l_msg_count := FND_MSG_PUB.count_msg;
791: IF l_msg_count > 0 THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
788: --Standard check to count messages
789: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
790: l_msg_count := FND_MSG_PUB.count_msg;
791: IF l_msg_count > 0 THEN
792: RAISE FND_API.G_EXC_ERROR;
793: END IF;
794: END IF;
795:
796: --Standard check for commit
793: END IF;
794: END IF;
795:
796: --Standard check for commit
797: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
798: COMMIT;
799: END IF;
800: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
801: fnd_log.string
806: );
807: END IF;
808:
809: EXCEPTION
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO check_materials_for_all;
812: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
814: p_count => x_msg_count,
808:
809: EXCEPTION
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO check_materials_for_all;
812: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
814: p_count => x_msg_count,
815: p_data => x_msg_data);
816:
809: EXCEPTION
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO check_materials_for_all;
812: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
814: p_count => x_msg_count,
815: p_data => x_msg_data);
816:
817: WHEN FND_API.G_EXC_ERROR THEN
813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
814: p_count => x_msg_count,
815: p_data => x_msg_data);
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: ROLLBACK TO check_materials_for_all;
819: X_return_status := FND_API.G_RET_STS_ERROR;
820: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
821: p_count => x_msg_count,
815: p_data => x_msg_data);
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: ROLLBACK TO check_materials_for_all;
819: X_return_status := FND_API.G_RET_STS_ERROR;
820: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
821: p_count => x_msg_count,
822: p_data => X_msg_data);
823:
816:
817: WHEN FND_API.G_EXC_ERROR THEN
818: ROLLBACK TO check_materials_for_all;
819: X_return_status := FND_API.G_RET_STS_ERROR;
820: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
821: p_count => x_msg_count,
822: p_data => X_msg_data);
823:
824: WHEN OTHERS THEN
822: p_data => X_msg_data);
823:
824: WHEN OTHERS THEN
825: ROLLBACK TO check_materials_for_all;
826: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
828: THEN
829: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
830: p_procedure_name => 'CHECK_MATERIALS_FOR_ALL',
829: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
830: p_procedure_name => 'CHECK_MATERIALS_FOR_ALL',
831: p_error_text => SUBSTR(SQLERRM,1,240));
832: END IF;
833: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
834: p_count => x_msg_count,
835: p_data => X_msg_data);
836:
837: END Check_Materials_For_All;
845: -- Parameters :
846: --
847: -- Standard IN Parameters :
848: -- p_api_version IN NUMBER Required
849: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
850: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
851: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
852: -- Based on this flag, the API will set the default attributes.
853: -- p_module_type In VARCHAR2 Default NULL
846: --
847: -- Standard IN Parameters :
848: -- p_api_version IN NUMBER Required
849: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
850: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
851: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
852: -- Based on this flag, the API will set the default attributes.
853: -- p_module_type In VARCHAR2 Default NULL
854: -- This will be null.
847: -- Standard IN Parameters :
848: -- p_api_version IN NUMBER Required
849: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
850: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
851: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
852: -- Based on this flag, the API will set the default attributes.
853: -- p_module_type In VARCHAR2 Default NULL
854: -- This will be null.
855: -- Standard OUT Parameters :
862: -- List of item attributes associated to visit task
863: --
864: PROCEDURE Schedule_Planned_Matrls (
865: p_api_version IN NUMBER,
866: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
867: p_commit IN VARCHAR2 := FND_API.g_false,
868: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
869: p_module_type IN VARCHAR2 := 'JSP',
870: p_x_planned_matrl_tbl IN OUT NOCOPY Planned_Matrl_Tbl,
863: --
864: PROCEDURE Schedule_Planned_Matrls (
865: p_api_version IN NUMBER,
866: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
867: p_commit IN VARCHAR2 := FND_API.g_false,
868: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
869: p_module_type IN VARCHAR2 := 'JSP',
870: p_x_planned_matrl_tbl IN OUT NOCOPY Planned_Matrl_Tbl,
871: x_return_status OUT NOCOPY VARCHAR2,
864: PROCEDURE Schedule_Planned_Matrls (
865: p_api_version IN NUMBER,
866: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
867: p_commit IN VARCHAR2 := FND_API.g_false,
868: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
869: p_module_type IN VARCHAR2 := 'JSP',
870: p_x_planned_matrl_tbl IN OUT NOCOPY Planned_Matrl_Tbl,
871: x_return_status OUT NOCOPY VARCHAR2,
872: x_msg_count OUT NOCOPY NUMBER,
879: l_msg_count NUMBER;
880: l_return_status VARCHAR2(1);
881: l_mat_return_status VARCHAR2(1);
882: l_msg_data VARCHAR2(2000);
883: l_commit VARCHAR2(10) := FND_API.g_false;
884: --
885: l_planned_matrl_tbl Planned_Matrl_Tbl := p_x_planned_matrl_tbl;
886:
887: BEGIN
897:
898: -- Standard Start of API savepoint
899: SAVEPOINT Schedule_Planned_Matrls;
900: -- Initialize message list if p_init_msg_list is set to TRUE.
901: IF FND_API.to_boolean(p_init_msg_list)
902: THEN
903: FND_MSG_PUB.initialize;
904: END IF;
905: -- Initialize API return status to success
902: THEN
903: FND_MSG_PUB.initialize;
904: END IF;
905: -- Initialize API return status to success
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907: -- Standard call to check for call compatibility.
908: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
909: p_api_version,
910: l_api_name,G_PKG_NAME)
904: END IF;
905: -- Initialize API return status to success
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
907: -- Standard call to check for call compatibility.
908: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
909: p_api_version,
910: l_api_name,G_PKG_NAME)
911: THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
909: p_api_version,
910: l_api_name,G_PKG_NAME)
911: THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
913: END IF;
914:
915: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
916: fnd_log.string
952: );
953: END IF;
954:
955: -- Check Error Message stack.
956: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
957: l_msg_count := FND_MSG_PUB.count_msg;
958: IF l_msg_count > 0 THEN
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
955: -- Check Error Message stack.
956: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
957: l_msg_count := FND_MSG_PUB.count_msg;
958: IF l_msg_count > 0 THEN
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
961: END IF;
962: IF l_planned_matrl_tbl.COUNT > 0 THEN
963: FOR i IN l_planned_matrl_tbl.FIRST..l_planned_matrl_tbl.LAST
996:
997: END LOOP;
998: END IF;
999: --Standard check for commit
1000: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1001: COMMIT;
1002: END IF;
1003:
1004: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1011: END IF;
1012:
1013: EXCEPTION
1014:
1015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1016: ROLLBACK TO Schedule_Planned_Matrls;
1017: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1018: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1019: p_count => x_msg_count,
1013: EXCEPTION
1014:
1015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1016: ROLLBACK TO Schedule_Planned_Matrls;
1017: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1018: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1019: p_count => x_msg_count,
1020: p_data => x_msg_data);
1021:
1014:
1015: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1016: ROLLBACK TO Schedule_Planned_Matrls;
1017: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1018: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1019: p_count => x_msg_count,
1020: p_data => x_msg_data);
1021:
1022: WHEN FND_API.G_EXC_ERROR THEN
1018: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1019: p_count => x_msg_count,
1020: p_data => x_msg_data);
1021:
1022: WHEN FND_API.G_EXC_ERROR THEN
1023: ROLLBACK TO Schedule_Planned_Matrls;
1024: X_return_status := FND_API.G_RET_STS_ERROR;
1025: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1026: p_count => x_msg_count,
1020: p_data => x_msg_data);
1021:
1022: WHEN FND_API.G_EXC_ERROR THEN
1023: ROLLBACK TO Schedule_Planned_Matrls;
1024: X_return_status := FND_API.G_RET_STS_ERROR;
1025: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1026: p_count => x_msg_count,
1027: p_data => X_msg_data);
1028:
1021:
1022: WHEN FND_API.G_EXC_ERROR THEN
1023: ROLLBACK TO Schedule_Planned_Matrls;
1024: X_return_status := FND_API.G_RET_STS_ERROR;
1025: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1026: p_count => x_msg_count,
1027: p_data => X_msg_data);
1028:
1029: WHEN OTHERS THEN
1027: p_data => X_msg_data);
1028:
1029: WHEN OTHERS THEN
1030: ROLLBACK TO Schedule_Planned_Matrls;
1031: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1032: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1033: THEN
1034: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
1035: p_procedure_name => 'SCHEDULE_PLANNED_MATRLS',
1034: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
1035: p_procedure_name => 'SCHEDULE_PLANNED_MATRLS',
1036: p_error_text => SUBSTR(SQLERRM,1,240));
1037: END IF;
1038: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1039: p_count => x_msg_count,
1040: p_data => X_msg_data);
1041:
1042: END Schedule_Planned_Matrls;
1050: -- Parameters :
1051: --
1052: -- Standard IN Parameters :
1053: -- p_api_version IN NUMBER Required
1054: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1055: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1056: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1057: -- Based on this flag, the API will set the default attributes.
1058: -- p_module_type In VARCHAR2 Default NULL
1051: --
1052: -- Standard IN Parameters :
1053: -- p_api_version IN NUMBER Required
1054: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1055: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1056: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1057: -- Based on this flag, the API will set the default attributes.
1058: -- p_module_type In VARCHAR2 Default NULL
1059: -- This will be null.
1052: -- Standard IN Parameters :
1053: -- p_api_version IN NUMBER Required
1054: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1055: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1056: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1057: -- Based on this flag, the API will set the default attributes.
1058: -- p_module_type In VARCHAR2 Default NULL
1059: -- This will be null.
1060: -- Standard OUT Parameters :
1067: -- List of item attributes associated to visit task
1068: --
1069: PROCEDURE Schedule_All_Materials (
1070: p_api_version IN NUMBER,
1071: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1072: p_commit IN VARCHAR2 := FND_API.g_false,
1073: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1074: p_module_type IN VARCHAR2 := 'JSP',
1075: p_visit_id IN NUMBER,
1068: --
1069: PROCEDURE Schedule_All_Materials (
1070: p_api_version IN NUMBER,
1071: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1072: p_commit IN VARCHAR2 := FND_API.g_false,
1073: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1074: p_module_type IN VARCHAR2 := 'JSP',
1075: p_visit_id IN NUMBER,
1076: x_planned_matrl_tbl OUT NOCOPY Planned_Matrl_Tbl,
1069: PROCEDURE Schedule_All_Materials (
1070: p_api_version IN NUMBER,
1071: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1072: p_commit IN VARCHAR2 := FND_API.g_false,
1073: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1074: p_module_type IN VARCHAR2 := 'JSP',
1075: p_visit_id IN NUMBER,
1076: x_planned_matrl_tbl OUT NOCOPY Planned_Matrl_Tbl,
1077: x_return_status OUT NOCOPY VARCHAR2,
1093: l_api_version CONSTANT NUMBER := 1.0;
1094: l_msg_count NUMBER;
1095: l_return_status VARCHAR2(1);
1096: l_msg_data VARCHAR2(2000);
1097: l_commit VARCHAR2(10) := FND_API.g_false;
1098: l_planned_matrl_tbl Planned_Matrl_Tbl;
1099:
1100: BEGIN
1101:
1110:
1111: -- Standard Start of API savepoint
1112: SAVEPOINT Schedule_All_Materials;
1113: -- Initialize message list if p_init_msg_list is set to TRUE.
1114: IF FND_API.to_boolean(p_init_msg_list)
1115: THEN
1116: FND_MSG_PUB.initialize;
1117: END IF;
1118: -- Initialize API return status to success
1115: THEN
1116: FND_MSG_PUB.initialize;
1117: END IF;
1118: -- Initialize API return status to success
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120: -- Standard call to check for call compatibility.
1121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1122: p_api_version,
1123: l_api_name,G_PKG_NAME)
1117: END IF;
1118: -- Initialize API return status to success
1119: x_return_status := FND_API.G_RET_STS_SUCCESS;
1120: -- Standard call to check for call compatibility.
1121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1122: p_api_version,
1123: l_api_name,G_PKG_NAME)
1124: THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1122: p_api_version,
1123: l_api_name,G_PKG_NAME)
1124: THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: END IF;
1127:
1128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1129: fnd_log.string
1151: IF c_any_task_in_planning%NOTFOUND THEN
1152: Fnd_Message.SET_NAME('AHL','AHL_LTP_SCHEDULE_ALL_NONE_PLAN');
1153: Fnd_Msg_Pub.ADD;
1154: CLOSE c_any_task_in_planning;
1155: RAISE Fnd_Api.G_EXC_ERROR;
1156: END IF;
1157: CLOSE c_any_task_in_planning;
1158:
1159:
1179: );
1180: END IF;
1181:
1182: -- Check Error Message stack.
1183: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1184: l_msg_count := FND_MSG_PUB.count_msg;
1185: IF l_msg_count > 0 THEN
1186: RAISE FND_API.G_EXC_ERROR;
1187: END IF;
1182: -- Check Error Message stack.
1183: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1184: l_msg_count := FND_MSG_PUB.count_msg;
1185: IF l_msg_count > 0 THEN
1186: RAISE FND_API.G_EXC_ERROR;
1187: END IF;
1188: END IF;
1189:
1190: IF l_Planned_Matrl_Tbl.COUNT > 0 THEN
1229: END LOOP;
1230: END IF;
1231:
1232: --Standard check for commit
1233: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1234: COMMIT;
1235: END IF;
1236:
1237: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1243: );
1244: END IF;
1245:
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: ROLLBACK TO Schedule_All_Materials;
1249: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1245:
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: ROLLBACK TO Schedule_All_Materials;
1249: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => x_msg_data);
1253:
1246: EXCEPTION
1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: ROLLBACK TO Schedule_All_Materials;
1249: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => x_msg_data);
1253:
1254: WHEN FND_API.G_EXC_ERROR THEN
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => x_msg_data);
1253:
1254: WHEN FND_API.G_EXC_ERROR THEN
1255: ROLLBACK TO Schedule_All_Materials;
1256: X_return_status := FND_API.G_RET_STS_ERROR;
1257: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1258: p_count => x_msg_count,
1252: p_data => x_msg_data);
1253:
1254: WHEN FND_API.G_EXC_ERROR THEN
1255: ROLLBACK TO Schedule_All_Materials;
1256: X_return_status := FND_API.G_RET_STS_ERROR;
1257: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1258: p_count => x_msg_count,
1259: p_data => X_msg_data);
1260:
1253:
1254: WHEN FND_API.G_EXC_ERROR THEN
1255: ROLLBACK TO Schedule_All_Materials;
1256: X_return_status := FND_API.G_RET_STS_ERROR;
1257: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1258: p_count => x_msg_count,
1259: p_data => X_msg_data);
1260:
1261: WHEN OTHERS THEN
1259: p_data => X_msg_data);
1260:
1261: WHEN OTHERS THEN
1262: ROLLBACK TO Schedule_All_Materials;
1263: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1265: THEN
1266: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
1267: p_procedure_name => 'SCHEDULE_ALL_MATERIALS',
1266: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PUB',
1267: p_procedure_name => 'SCHEDULE_ALL_MATERIALS',
1268: p_error_text => SUBSTR(SQLERRM,1,240));
1269: END IF;
1270: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1271: p_count => x_msg_count,
1272: p_data => X_msg_data);
1273:
1274: END Schedule_All_Materials;