108:
109: l_progress := '010';
110: GMS_PO_API2_GRP.CREATE_ADLS (
111: p_api_version => p_api_version,
112: p_commit => FND_API.G_FALSE,
113: p_init_msg_list => FND_API.G_TRUE,
114: p_validation_level => 100,
115: x_msg_count => x_msg_count,
116: x_msg_data => x_msg_data,
109: l_progress := '010';
110: GMS_PO_API2_GRP.CREATE_ADLS (
111: p_api_version => p_api_version,
112: p_commit => FND_API.G_FALSE,
113: p_init_msg_list => FND_API.G_TRUE,
114: p_validation_level => 100,
115: x_msg_count => x_msg_count,
116: x_msg_data => x_msg_data,
117: x_return_status => x_return_status,
118: p_calling_module => p_caller,
119: p_interface_obj => x_po_gms_interface_obj);
120:
121: l_progress := '020';
122: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: l_progress := '030';
119: p_interface_obj => x_po_gms_interface_obj);
120:
121: l_progress := '020';
122: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: l_progress := '030';
127: IF g_fnd_debug = 'Y' THEN
156: END LOOP;
157: END IF;
158:
159: EXCEPTION
160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161: ROLLBACK TO maintain_adl_savepoint;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163:
164: IF (g_fnd_debug = 'Y') THEN
158:
159: EXCEPTION
160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161: ROLLBACK TO maintain_adl_savepoint;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163:
164: IF (g_fnd_debug = 'Y') THEN
165: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
166: FND_LOG.string(
172: END IF;
173:
174: WHEN OTHERS THEN
175: ROLLBACK TO maintain_adl_savepoint;
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177:
178: IF FND_MSG_PUB.check_msg_level(p_message_level =>
179: FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
180: FND_MSG_PUB.add_exc_msg(p_pkg_name => g_pkg_name,
334: -- Bug# 4779101: Doing this validation only if project is entered.
335: IF(p_project_id_tbl(i) IS NOT NULL) THEN
336: GMS_PO_API_GRP.validate_transaction(
337: p_api_version => 1.0
338: , p_commit => FND_API.G_FALSE
339: , p_init_msg_list => FND_API.G_TRUE
340: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
341: , x_msg_count => l_msg_count
342: , x_msg_data => l_msg_data
335: IF(p_project_id_tbl(i) IS NOT NULL) THEN
336: GMS_PO_API_GRP.validate_transaction(
337: p_api_version => 1.0
338: , p_commit => FND_API.G_FALSE
339: , p_init_msg_list => FND_API.G_TRUE
340: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
341: , x_msg_count => l_msg_count
342: , x_msg_data => l_msg_data
343: , x_return_status => l_return_status
336: GMS_PO_API_GRP.validate_transaction(
337: p_api_version => 1.0
338: , p_commit => FND_API.G_FALSE
339: , p_init_msg_list => FND_API.G_TRUE
340: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
341: , x_msg_count => l_msg_count
342: , x_msg_data => l_msg_data
343: , x_return_status => l_return_status
344: , p_project_id => p_project_id_tbl(i)
348: , p_expenditure_item_date => p_expenditure_item_date_tbl(i)
349: , p_calling_module => D_validate_award_data
350: );
351:
352: IF (NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
353:
354: FND_MSG_PUB.reset();
355: x_failure_dist_id_tbl.extend(l_msg_count);
356: x_failure_message_tbl.extend(l_msg_count);
357:
358: FOR j in 1..l_msg_count LOOP
359: FND_MSG_PUB.get(
360: p_msg_index => FND_MSG_PUB.G_NEXT
361: , p_encoded => FND_API.G_FALSE
362: , p_data => l_localized_message
363: , p_msg_index_out => l_fnd_index
364: );
365:
411: IF(p_award_number_tbl(i) IS NOT NULL) THEN
412: x_award_id_tbl(i) :=
413: GMS_PO_API_GRP.get_award_id(
414: p_api_version => 1.0
415: , p_commit => FND_API.G_FALSE
416: , p_init_msg_list => FND_API.G_TRUE
417: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
418: , x_msg_count => l_msg_count
419: , x_msg_data => l_msg_data
412: x_award_id_tbl(i) :=
413: GMS_PO_API_GRP.get_award_id(
414: p_api_version => 1.0
415: , p_commit => FND_API.G_FALSE
416: , p_init_msg_list => FND_API.G_TRUE
417: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
418: , x_msg_count => l_msg_count
419: , x_msg_data => l_msg_data
420: , x_return_status => l_return_status
413: GMS_PO_API_GRP.get_award_id(
414: p_api_version => 1.0
415: , p_commit => FND_API.G_FALSE
416: , p_init_msg_list => FND_API.G_TRUE
417: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
418: , x_msg_count => l_msg_count
419: , x_msg_data => l_msg_data
420: , x_return_status => l_return_status
421: , p_award_number => p_award_number_tbl(i)
420: , x_return_status => l_return_status
421: , p_award_number => p_award_number_tbl(i)
422: );
423:
424: IF (NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427: END IF; -- end p_award_number_tbl(i) IS NOT NULL
428:
421: , p_award_number => p_award_number_tbl(i)
422: );
423:
424: IF (NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END IF;
427: END IF; -- end p_award_number_tbl(i) IS NOT NULL
428:
429: END LOOP; -- end for i in 1 .. p_award_number_tbl.COUNT
495: END IF;
496:
497: GMS_PO_API_GRP.maintain_po_adl(
498: p_api_version => 1.0
499: , p_commit => FND_API.G_FALSE
500: , p_init_msg_list => FND_API.G_TRUE
501: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
502: , x_msg_count => l_msg_count
503: , x_msg_data => l_msg_data
496:
497: GMS_PO_API_GRP.maintain_po_adl(
498: p_api_version => 1.0
499: , p_commit => FND_API.G_FALSE
500: , p_init_msg_list => FND_API.G_TRUE
501: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
502: , x_msg_count => l_msg_count
503: , x_msg_data => l_msg_data
504: , x_return_status => l_return_status
497: GMS_PO_API_GRP.maintain_po_adl(
498: p_api_version => 1.0
499: , p_commit => FND_API.G_FALSE
500: , p_init_msg_list => FND_API.G_TRUE
501: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
502: , x_msg_count => l_msg_count
503: , x_msg_data => l_msg_data
504: , x_return_status => l_return_status
505: , p_award_set_id_in => l_old_award_set_id
509: , p_po_distribution_id => p_dist_id
510: , x_award_set_id_out => x_award_set_id
511: );
512:
513: IF(NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: END IF;
516:
517: EXCEPTION
510: , x_award_set_id_out => x_award_set_id
511: );
512:
513: IF(NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: END IF;
516:
517: EXCEPTION
518: WHEN OTHERS THEN
515: END IF;
516:
517: EXCEPTION
518: WHEN OTHERS THEN
519: FND_MSG_PUB.count_and_get ( p_encoded => fnd_api.g_false,
520: p_count => l_msg_count ,
521: p_data => l_msg_data ) ;
522:
523: END maintain_po_adl;
551: IF (p_award_set_id IS NOT NULL) THEN
552: x_award_number :=
553: GMS_PO_API_GRP.get_award_number(
554: p_api_version => 1.0
555: , p_commit => FND_API.G_FALSE
556: , p_init_msg_list => FND_API.G_TRUE
557: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
558: , x_msg_count => l_msg_count
559: , x_msg_data => l_msg_data
552: x_award_number :=
553: GMS_PO_API_GRP.get_award_number(
554: p_api_version => 1.0
555: , p_commit => FND_API.G_FALSE
556: , p_init_msg_list => FND_API.G_TRUE
557: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
558: , x_msg_count => l_msg_count
559: , x_msg_data => l_msg_data
560: , x_return_status => l_return_status
553: GMS_PO_API_GRP.get_award_number(
554: p_api_version => 1.0
555: , p_commit => FND_API.G_FALSE
556: , p_init_msg_list => FND_API.G_TRUE
557: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
558: , x_msg_count => l_msg_count
559: , x_msg_data => l_msg_data
560: , x_return_status => l_return_status
561: , p_award_set_id => p_award_set_id
561: , p_award_set_id => p_award_set_id
562: );
563: END IF;
564:
565: IF (NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567: END IF;
568:
569: RETURN(x_award_number);
562: );
563: END IF;
564:
565: IF (NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS) THEN
566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567: END IF;
568:
569: RETURN(x_award_number);
570: