144: LocalFlex1Record c_get_flex1%ROWTYPE;
145:
146: BEGIN
147: -- Initialize API return status to success
148: x_return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: -- Get ids
151: l_resp_appl_id := FND_GLOBAL.RESP_APPL_ID;
152: l_resp_id := FND_GLOBAL.RESP_ID;
166:
167: --Check the API version passed in matches the
168: --internal API version.
169:
170: IF NOT FND_API.Compatible_API_Call
171: (g_api_version,
172: p_api_version,
173: l_api_name,
174: g_pkg_name) THEN
172: p_api_version,
173: l_api_name,
174: g_pkg_name) THEN
175:
176: RAISE FND_API.G_Exc_Unexpected_Error;
177: END IF;
178:
179: -- Check for required parameters
180: IF p_file_name IS NULL THEN
498:
499: --now raise the eres event
500: EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT
501: ( p_api_version => 1.0 ,
502: p_init_msg_list => FND_API.G_TRUE ,
503: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
504: x_return_status => l_return_status ,
505: x_msg_count => l_msg_count ,
506: x_msg_data => l_msg_data ,
499: --now raise the eres event
500: EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT
501: ( p_api_version => 1.0 ,
502: p_init_msg_list => FND_API.G_TRUE ,
503: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
504: x_return_status => l_return_status ,
505: x_msg_count => l_msg_count ,
506: x_msg_data => l_msg_data ,
507: p_child_erecords => l_children ,
508: x_event => l_event
509: );
510:
511: -- If any errors happen abort API.
512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
509: );
510:
511: -- If any errors happen abort API.
512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
510:
511: -- If any errors happen abort API.
512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518: /*
511: -- If any errors happen abort API.
512: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518: /*
519: wf_event.raise2(p_event_name => 'oracle.apps.edr.file.approve',
598: --send transaction acknowledgement
599: if l_send_ackn = TRUE then
600: EDR_TRANS_ACKN_PUB.SEND_ACKN
601: ( p_api_version => 1.0,
602: p_init_msg_list => FND_API.G_TRUE ,
603: x_return_status => l_return_status,
604: x_msg_count => l_msg_count,
605: x_msg_data => l_msg_data,
606: p_event_name => l_event.event_name,
612: p_autonomous_commit => 'T'
613: );
614:
615: -- If any errors happen abort API.
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
613: );
614:
615: -- If any errors happen abort API.
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621: end if;
614:
615: -- If any errors happen abort API.
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621: end if;
622: end if;
615: -- If any errors happen abort API.
616: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
618: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
619: RAISE FND_API.G_EXC_ERROR;
620: END IF;
621: end if;
622: end if;
623: --Bug 3265035: End
628: COMMIT;
629: END IF;
630:
631: EXCEPTION
632: WHEN FND_API.G_EXC_ERROR THEN
633: x_return_status := FND_API.G_RET_STS_ERROR ;
634: FND_MSG_PUB.Count_And_Get
635: (p_count => l_msg_count ,
636: p_data => x_msg_data
629: END IF;
630:
631: EXCEPTION
632: WHEN FND_API.G_EXC_ERROR THEN
633: x_return_status := FND_API.G_RET_STS_ERROR ;
634: FND_MSG_PUB.Count_And_Get
635: (p_count => l_msg_count ,
636: p_data => x_msg_data
637: );
636: p_data => x_msg_data
637: );
638: APP_EXCEPTION.RAISE_EXCEPTION;
639:
640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: FND_MSG_PUB.Count_And_Get
643: (p_count => l_msg_count ,
644: p_data => x_msg_data
637: );
638: APP_EXCEPTION.RAISE_EXCEPTION;
639:
640: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: FND_MSG_PUB.Count_And_Get
643: (p_count => l_msg_count ,
644: p_data => x_msg_data
645: );
645: );
646: APP_EXCEPTION.RAISE_EXCEPTION;
647:
648: WHEN EDR_FILES_FILE_NAME_NULL THEN
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_FILE_NAME_NULL');
651: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
652: FND_MSG_PUB.ADD;
653: APP_EXCEPTION.RAISE_EXCEPTION;
652: FND_MSG_PUB.ADD;
653: APP_EXCEPTION.RAISE_EXCEPTION;
654:
655: WHEN EDR_FILES_APPL_ID_NULL THEN
656: x_return_status := FND_API.G_RET_STS_ERROR;
657: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_APPL_ID_NULL');
658: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
659: FND_MSG_PUB.ADD;
660: APP_EXCEPTION.RAISE_EXCEPTION;
659: FND_MSG_PUB.ADD;
660: APP_EXCEPTION.RAISE_EXCEPTION;
661:
662: WHEN EDR_FILES_RESP_ID_NULL THEN
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_RESP_ID_NULL');
665: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
666: FND_MSG_PUB.ADD;
667: APP_EXCEPTION.RAISE_EXCEPTION;
666: FND_MSG_PUB.ADD;
667: APP_EXCEPTION.RAISE_EXCEPTION;
668:
669: WHEN EDR_FILES_USER_NULL THEN
670: x_return_status := FND_API.G_RET_STS_ERROR;
671: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_USER_NULL');
672: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
673: FND_MSG_PUB.ADD;
674: APP_EXCEPTION.RAISE_EXCEPTION;
673: FND_MSG_PUB.ADD;
674: APP_EXCEPTION.RAISE_EXCEPTION;
675:
676: WHEN EDR_FILES_CATEGORY_NULL THEN
677: x_return_status := FND_API.G_RET_STS_ERROR;
678: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_CATEGORY_NULL');
679: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
680: FND_MSG_PUB.ADD;
681: APP_EXCEPTION.RAISE_EXCEPTION;
680: FND_MSG_PUB.ADD;
681: APP_EXCEPTION.RAISE_EXCEPTION;
682:
683: WHEN EDR_FILES_FILE_NULL THEN
684: x_return_status := FND_API.G_RET_STS_ERROR;
685: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_FILE_NULL');
686: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
687: FND_MSG_PUB.ADD;
688: APP_EXCEPTION.RAISE_EXCEPTION;
687: FND_MSG_PUB.ADD;
688: APP_EXCEPTION.RAISE_EXCEPTION;
689:
690: WHEN EDR_FILES_FORMAT_NULL THEN
691: x_return_status := FND_API.G_RET_STS_ERROR;
692: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_FORMAT_NULL');
693: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
694: FND_MSG_PUB.ADD;
695: APP_EXCEPTION.RAISE_EXCEPTION;
694: FND_MSG_PUB.ADD;
695: APP_EXCEPTION.RAISE_EXCEPTION;
696:
697: WHEN EDR_FILES_SRC_LANG_NULL THEN
698: x_return_status := FND_API.G_RET_STS_ERROR;
699: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_SRC_LANG_NULL');
700: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
701: FND_MSG_PUB.ADD;
702: APP_EXCEPTION.RAISE_EXCEPTION;
701: FND_MSG_PUB.ADD;
702: APP_EXCEPTION.RAISE_EXCEPTION;
703:
704: WHEN EDR_FILES_EXIST_ACT_NULL THEN
705: x_return_status := FND_API.G_RET_STS_ERROR;
706: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_EXISTS_ACT_NULL');
707: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
708: FND_MSG_PUB.ADD;
709: APP_EXCEPTION.RAISE_EXCEPTION;
708: FND_MSG_PUB.ADD;
709: APP_EXCEPTION.RAISE_EXCEPTION;
710:
711: WHEN EDR_FILES_ERES_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_ERES_ERROR');
714: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
715: FND_MSG_PUB.ADD;
716: APP_EXCEPTION.RAISE_EXCEPTION;
715: FND_MSG_PUB.ADD;
716: APP_EXCEPTION.RAISE_EXCEPTION;
717:
718: WHEN EDR_FILES_INSERT_ERROR THEN
719: x_return_status := FND_API.G_RET_STS_ERROR;
720: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_INSERT_ERROR');
721: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
722: FND_MSG_PUB.ADD;
723: APP_EXCEPTION.RAISE_EXCEPTION;
722: FND_MSG_PUB.ADD;
723: APP_EXCEPTION.RAISE_EXCEPTION;
724:
725: WHEN EDR_FILES_INV_FLEX_VALUE THEN
726: x_return_status := FND_API.G_RET_STS_ERROR;
727: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_INV_FLEX_VALUE');
728: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
729: FND_MSG_PUB.ADD;
730: APP_EXCEPTION.RAISE_EXCEPTION;
729: FND_MSG_PUB.ADD;
730: APP_EXCEPTION.RAISE_EXCEPTION;
731:
732: WHEN EDR_FILES_ALREADY_EXISTS THEN
733: x_return_status := FND_API.G_RET_STS_ERROR;
734: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_ALREADY_EXISTS');
735: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
736: FND_MSG_PUB.ADD;
737: APP_EXCEPTION.RAISE_EXCEPTION;
736: FND_MSG_PUB.ADD;
737: APP_EXCEPTION.RAISE_EXCEPTION;
738:
739: WHEN EDR_FILES_OVERWRITE_ERROR THEN
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_OVERWRITE_ERROR');
742: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
743: FND_MSG_PUB.ADD;
744: APP_EXCEPTION.RAISE_EXCEPTION;
743: FND_MSG_PUB.ADD;
744: APP_EXCEPTION.RAISE_EXCEPTION;
745:
746: WHEN edr_commit_flag_error THEN
747: x_return_status := FND_API.G_RET_STS_ERROR;
748: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_COMMIT_FLAG_ERROR');
749: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
750: FND_MSG_PUB.ADD;
751: APP_EXCEPTION.RAISE_EXCEPTION;
750: FND_MSG_PUB.ADD;
751: APP_EXCEPTION.RAISE_EXCEPTION;
752:
753: WHEN EDR_FILES_INVALID_CATEGORY THEN
754: x_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MESSAGE.SET_NAME('EDR','EDR_FILES_INVALID_CATEGORY');
756: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
757: FND_MSG_PUB.ADD;
758: APP_EXCEPTION.RAISE_EXCEPTION;
757: FND_MSG_PUB.ADD;
758: APP_EXCEPTION.RAISE_EXCEPTION;
759:
760: WHEN OTHERS THEN
761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
762: x_msg_data := 'Error = '||SQLERRM;
763: FND_MSG_PUB.ADD;
764: APP_EXCEPTION.RAISE_EXCEPTION;
765: