64: -- 04-DEC-96 Update jwhite Applied latest standards.
65: --
66:
67: PROCEDURE Create_Resource_List
68: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
69: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
70: p_api_version_number IN NUMBER,
71: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
72: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
65: --
66:
67: PROCEDURE Create_Resource_List
68: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
69: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
70: p_api_version_number IN NUMBER,
71: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
72: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
73: p_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
98: BEGIN
99:
100: SAVEPOINT Create_Resource_List_Pub;
101:
102: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
103: p_api_version_number ,
104: l_api_name ,
105: G_PKG_NAME )
106: THEN
103: p_api_version_number ,
104: l_api_name ,
105: G_PKG_NAME )
106: THEN
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108: END IF;
109:
110: p_return_status := FND_API.g_ret_sts_success;
111:
106: THEN
107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
108: END IF;
109:
110: p_return_status := FND_API.g_ret_sts_success;
111:
112: l_resp_id := FND_GLOBAL.Resp_id;
113:
114: -- Actions performed using the APIs would be subject to
125: p_msg_data => l_msg_data,
126: p_return_status => l_return_status,
127: p_function_allowed => l_function_allowed );
128:
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132:
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
127: p_function_allowed => l_function_allowed );
128:
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132:
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
134: THEN
135: RAISE FND_API.G_EXC_ERROR;
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132:
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
134: THEN
135: RAISE FND_API.G_EXC_ERROR;
136: END IF;
137: IF l_function_allowed = 'N' THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132:
133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
134: THEN
135: RAISE FND_API.G_EXC_ERROR;
136: END IF;
137: IF l_function_allowed = 'N' THEN
138: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
139: FND_MSG_PUB.ADD;
136: END IF;
137: IF l_function_allowed = 'N' THEN
138: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
139: FND_MSG_PUB.ADD;
140: p_resource_list_out_rec.return_status:= FND_API.G_RET_STS_ERROR;
141: p_return_status := FND_API.g_ret_sts_error;
142: RAISE FND_API.G_EXC_ERROR;
143: END IF;
144:
137: IF l_function_allowed = 'N' THEN
138: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
139: FND_MSG_PUB.ADD;
140: p_resource_list_out_rec.return_status:= FND_API.G_RET_STS_ERROR;
141: p_return_status := FND_API.g_ret_sts_error;
142: RAISE FND_API.G_EXC_ERROR;
143: END IF;
144:
145: -- l_resource_list_rec.return_status := FND_API.g_ret_sts_success;
138: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
139: FND_MSG_PUB.ADD;
140: p_resource_list_out_rec.return_status:= FND_API.G_RET_STS_ERROR;
141: p_return_status := FND_API.g_ret_sts_error;
142: RAISE FND_API.G_EXC_ERROR;
143: END IF;
144:
145: -- l_resource_list_rec.return_status := FND_API.g_ret_sts_success;
146: IF p_resource_list_rec.end_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
141: p_return_status := FND_API.g_ret_sts_error;
142: RAISE FND_API.G_EXC_ERROR;
143: END IF;
144:
145: -- l_resource_list_rec.return_status := FND_API.g_ret_sts_success;
146: IF p_resource_list_rec.end_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
147: l_end_date := NULL;
148: ELSE
149: l_end_date := p_resource_list_rec.end_date;
172: FND_MESSAGE.SET_NAME('PA',l_err_stage);
173: END IF;
174: FND_MSG_PUB.ADD;
175: END IF;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178: IF l_err_code < 0 THEN
179: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
180: THEN
184: , p_error_text => 'ORA-'||LPAD(SUBSTR(l_err_code, 2), 5, '0')
185: );
186:
187: END IF;
188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
189: END IF;
190:
191: Process_Members
192: (p_return_status => l_return_status,
198: p_msg_data => p_msg_data,
199: p_member_out_tbl => p_member_out_tbl
200: );
201:
202: IF l_return_status = FND_API.g_ret_sts_success THEN
203: p_resource_list_out_rec.return_status := FND_API.g_ret_sts_success;
204: p_resource_list_out_rec.resource_list_id := l_resource_list_id;
205: ELSE
206: p_resource_list_out_rec.return_status := l_return_status;
199: p_member_out_tbl => p_member_out_tbl
200: );
201:
202: IF l_return_status = FND_API.g_ret_sts_success THEN
203: p_resource_list_out_rec.return_status := FND_API.g_ret_sts_success;
204: p_resource_list_out_rec.resource_list_id := l_resource_list_id;
205: ELSE
206: p_resource_list_out_rec.return_status := l_return_status;
207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
203: p_resource_list_out_rec.return_status := FND_API.g_ret_sts_success;
204: p_resource_list_out_rec.resource_list_id := l_resource_list_id;
205: ELSE
206: p_resource_list_out_rec.return_status := l_return_status;
207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
204: p_resource_list_out_rec.resource_list_id := l_resource_list_id;
205: ELSE
206: p_resource_list_out_rec.return_status := l_return_status;
207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212: END IF;
205: ELSE
206: p_resource_list_out_rec.return_status := l_return_status;
207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212: END IF;
213:
206: p_resource_list_out_rec.return_status := l_return_status;
207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212: END IF;
213:
214: IF FND_API.to_boolean( p_commit )
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212: END IF;
213:
214: IF FND_API.to_boolean( p_commit )
215: THEN
216: COMMIT;
217: END IF;
218:
216: COMMIT;
217: END IF;
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: p_return_status := FND_API.G_RET_STS_ERROR ;
222: ROLLBACK TO Create_Resource_List_Pub;
223:
224: FND_MSG_PUB.Count_And_Get
217: END IF;
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: p_return_status := FND_API.G_RET_STS_ERROR ;
222: ROLLBACK TO Create_Resource_List_Pub;
223:
224: FND_MSG_PUB.Count_And_Get
225: ( p_count => p_msg_count ,
224: FND_MSG_PUB.Count_And_Get
225: ( p_count => p_msg_count ,
226: p_data => p_msg_data );
227:
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
230: ROLLBACK TO Create_Resource_List_Pub;
231:
232: FND_MSG_PUB.Count_And_Get
225: ( p_count => p_msg_count ,
226: p_data => p_msg_data );
227:
228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
229: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
230: ROLLBACK TO Create_Resource_List_Pub;
231:
232: FND_MSG_PUB.Count_And_Get
233: ( p_count => p_msg_count ,
233: ( p_count => p_msg_count ,
234: p_data => p_msg_data );
235:
236: WHEN OTHERS THEN
237: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: ROLLBACK TO Create_Resource_List_Pub;
239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
240:
241: FND_MSG_PUB.Add_Exc_Msg
300: BEGIN
301:
302: SAVEPOINT Process_Members_Pub;
303:
304: p_return_status := FND_API.g_ret_sts_success;
305:
306: --IF p_group_resource_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR or
307: -- p_group_resource_type IS NULL THEN
308: -- NULL;
313: --END IF;
314:
315:
316: FOR i IN 1..p_member_tbl.COUNT LOOP
317: p_member_out_tbl(i).return_status := FND_API.g_ret_sts_success;
318: l_parent_member_id := NULL;
319: l_resource_list_member_id := NULL;
320: l_track_as_labor_flag := NULL;
321: l_err_code := NULL;
354: FND_MESSAGE.SET_NAME('PA',l_err_stage);
355: END IF;
356: FND_MSG_PUB.ADD;
357: END IF;
358: RAISE FND_API.G_EXC_ERROR;
359:
360: ELSIF
361: l_err_code < 0 THEN
362: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
367: , p_error_text => 'ORA-'||LPAD(SUBSTR(l_err_code, 2), 5, '0')
368: );
369: END IF;
370: p_member_out_tbl(i).return_status
371: := FND_API.g_ret_sts_unexp_error;
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF
374: l_err_code = 0 THEN
375: p_member_out_tbl(i).return_status :=
368: );
369: END IF;
370: p_member_out_tbl(i).return_status
371: := FND_API.g_ret_sts_unexp_error;
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF
374: l_err_code = 0 THEN
375: p_member_out_tbl(i).return_status :=
376: FND_API.g_ret_sts_success;
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF
374: l_err_code = 0 THEN
375: p_member_out_tbl(i).return_status :=
376: FND_API.g_ret_sts_success;
377: p_member_out_tbl(i).resource_list_member_id :=
378: l_resource_list_member_id;
379: END IF;
380: END LOOP;
379: END IF;
380: END LOOP;
381:
382: EXCEPTION
383: WHEN FND_API.G_EXC_ERROR THEN
384:
385: p_return_status := FND_API.G_RET_STS_ERROR ;
386: ROLLBACK TO Process_Members_Pub;
387:
381:
382: EXCEPTION
383: WHEN FND_API.G_EXC_ERROR THEN
384:
385: p_return_status := FND_API.G_RET_STS_ERROR ;
386: ROLLBACK TO Process_Members_Pub;
387:
388: FND_MSG_PUB.Count_And_Get
389: ( p_count => p_msg_count ,
388: FND_MSG_PUB.Count_And_Get
389: ( p_count => p_msg_count ,
390: p_data => p_msg_data );
391:
392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
393:
394: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
395: ROLLBACK TO Process_Members_Pub;
396:
390: p_data => p_msg_data );
391:
392: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
393:
394: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
395: ROLLBACK TO Process_Members_Pub;
396:
397: FND_MSG_PUB.Count_And_Get
398: ( p_count => p_msg_count ,
399: p_data => p_msg_data );
400:
401: WHEN OTHERS THEN
402:
403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
404: ROLLBACK TO Process_Members_Pub;
405:
406: IF FND_MSG_PUB.Check_Msg_Level
407: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
479: WHERE organization_name = l_resource_group_name;
480:
481:
482: BEGIN
483: p_return_status := FND_API.g_ret_sts_success;
484:
485: IF ((p_resource_alias IS NULL ) OR
486: (p_resource_alias = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
487: FND_MESSAGE.SET_NAME('PA','PA_NEW_ALIAS_IS_INVALID ');
485: IF ((p_resource_alias IS NULL ) OR
486: (p_resource_alias = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) THEN
487: FND_MESSAGE.SET_NAME('PA','PA_NEW_ALIAS_IS_INVALID ');
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
492: l_person_id := NULL;
493: l_job_id := NULL;
549: FND_MESSAGE.SET_NAME('PA','PA_INVALID_ORGANIZATION');
550: FND_MSG_PUB.ADD;
551: END IF;
552: CLOSE l_org_csr;
553: RAISE FND_API.G_EXC_ERROR;
554: ELSE
555: CLOSE l_org_csr;
556: END IF;
557: END IF;
600: p_err_stack := l_err_stack;
601:
602:
603: EXCEPTION
604: WHEN FND_API.G_EXC_ERROR THEN
605: p_return_status := FND_API.G_RET_STS_ERROR ;
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
601:
602:
603: EXCEPTION
604: WHEN FND_API.G_EXC_ERROR THEN
605: p_return_status := FND_API.G_RET_STS_ERROR ;
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609:
603: EXCEPTION
604: WHEN FND_API.G_EXC_ERROR THEN
605: p_return_status := FND_API.G_RET_STS_ERROR ;
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609:
610:
611: WHEN OTHERS THEN
604: WHEN FND_API.G_EXC_ERROR THEN
605: p_return_status := FND_API.G_RET_STS_ERROR ;
606:
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609:
610:
611: WHEN OTHERS THEN
612: /* Added the if condition block for bug 2259703 */
613: IF NVL(p_err_code,0) = 0 THEN
614: p_err_code := SQLCODE;
615: END IF;
616:
617: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
618:
619: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
620: FND_MSG_PUB.Add_Exc_Msg
621: ( p_pkg_name => G_PKG_NAME ,
709: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
710: l_api_name CONSTANT VARCHAR2(30) := 'Load_Resource_List';
711:
712: BEGIN
713: p_return_status := FND_API.g_ret_sts_success;
714:
715: -- Standard Api compatibility call
716: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
717: p_api_version_number ,
712: BEGIN
713: p_return_status := FND_API.g_ret_sts_success;
714:
715: -- Standard Api compatibility call
716: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
717: p_api_version_number ,
718: l_api_name ,
719: G_PKG_NAME )
720: THEN
717: p_api_version_number ,
718: l_api_name ,
719: G_PKG_NAME )
720: THEN
721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
722: END IF;
723:
724: g_resource_list_rec.resource_list_name := p_resource_list_name;
725: g_resource_list_rec.description := p_description;
731: g_resource_list_rec.job_group_id := p_job_group_id; --Added for bug 2486405.
732:
733: EXCEPTION
734:
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
736: THEN
737:
738: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
739:
734:
735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
736: THEN
737:
738: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
739:
740:
741: WHEN OTHERS THEN
742:
739:
740:
741: WHEN OTHERS THEN
742:
743: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
744:
745: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
746: FND_MSG_PUB.Add_Exc_Msg
747: ( p_pkg_name => G_PKG_NAME ,
787: l_enabled_flag pa_resource_list_members.enabled_flag%TYPE;
788: l_sort_order pa_resource_list_members.sort_order%TYPE;
789:
790: BEGIN
791: p_return_status := FND_API.g_ret_sts_success;
792:
793: -- Standard Api compatibility call
794:
795: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
791: p_return_status := FND_API.g_ret_sts_success;
792:
793: -- Standard Api compatibility call
794:
795: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
796: p_api_version_number ,
797: l_api_name ,
798: G_PKG_NAME )
799: THEN
796: p_api_version_number ,
797: l_api_name ,
798: G_PKG_NAME )
799: THEN
800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
801: END IF;
802:
803: -- VALUE LAYER ---------------------------------------------------------------
804:
841: := p_resource_list_member_id;
842:
843: EXCEPTION
844:
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
846: THEN
847:
848: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
849:
844:
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
846: THEN
847:
848: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
849:
850:
851: WHEN OTHERS THEN
852:
849:
850:
851: WHEN OTHERS THEN
852:
853: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854:
855: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
856: FND_MSG_PUB.Add_Exc_Msg
857: ( p_pkg_name => G_PKG_NAME ,
878: --
879:
880:
881: PROCEDURE Exec_Create_Resource_List
882: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
883: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
884: p_api_version_number IN NUMBER,
885: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
886: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
879:
880:
881: PROCEDURE Exec_Create_Resource_List
882: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
883: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
884: p_api_version_number IN NUMBER,
885: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
886: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
887: p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
892: l_api_name CONSTANT VARCHAR2(30) := 'Exec_Create_Resource_List';
893: l_message_count NUMBER;
894:
895: BEGIN
896: p_return_status := FND_API.g_ret_sts_success;
897:
898: -- Standard Api compatibility call
899:
900: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
896: p_return_status := FND_API.g_ret_sts_success;
897:
898: -- Standard Api compatibility call
899:
900: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
901: p_api_version_number ,
902: l_api_name ,
903: G_PKG_NAME )
904: THEN
901: p_api_version_number ,
902: l_api_name ,
903: G_PKG_NAME )
904: THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: Create_Resource_List
909: (p_commit => p_commit,
918: p_member_out_tbl => g_member_out_tbl);
919:
920: EXCEPTION
921:
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
923: THEN
924:
925: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
926:
921:
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
923: THEN
924:
925: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
926:
927: WHEN OTHERS THEN
928:
929: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
925: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
926:
927: WHEN OTHERS THEN
928:
929: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
930:
931: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
932: FND_MSG_PUB.Add_Exc_Msg
933: ( p_pkg_name => G_PKG_NAME ,
972: l_msg_count INTEGER :=0;
973:
974: BEGIN
975:
976: p_return_status := FND_API.G_RET_STS_SUCCESS;
977:
978: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
979: p_api_version_number ,
980: l_api_name ,
974: BEGIN
975:
976: p_return_status := FND_API.G_RET_STS_SUCCESS;
977:
978: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
979: p_api_version_number ,
980: l_api_name ,
981: G_PKG_NAME )
982: THEN
979: p_api_version_number ,
980: l_api_name ,
981: G_PKG_NAME )
982: THEN
983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984: END IF;
985:
986: -- Get Resource List Out Values
987:
990:
991:
992: EXCEPTION
993:
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995:
996: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
997:
998: WHEN OTHERS THEN
992: EXCEPTION
993:
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995:
996: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
997:
998: WHEN OTHERS THEN
999:
1000: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
996: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
997:
998: WHEN OTHERS THEN
999:
1000: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1001:
1002: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1003: FND_MSG_PUB.Add_Exc_Msg
1004: ( p_pkg_name => G_PKG_NAME ,
1039: l_index NUMBER;
1040:
1041: BEGIN
1042:
1043: p_return_status := FND_API.G_RET_STS_SUCCESS;
1044:
1045: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
1046: p_api_version_number ,
1047: l_api_name ,
1041: BEGIN
1042:
1043: p_return_status := FND_API.G_RET_STS_SUCCESS;
1044:
1045: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
1046: p_api_version_number ,
1047: l_api_name ,
1048: G_PKG_NAME )
1049: THEN
1046: p_api_version_number ,
1047: l_api_name ,
1048: G_PKG_NAME )
1049: THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052: -- Check Line index value
1053:
1054: IF p_member_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
1072:
1073:
1074: EXCEPTION
1075:
1076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1077:
1078: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1079:
1080: WHEN OTHERS THEN
1074: EXCEPTION
1075:
1076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1077:
1078: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1079:
1080: WHEN OTHERS THEN
1081:
1082: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1078: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1079:
1080: WHEN OTHERS THEN
1081:
1082: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1083:
1084: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1085: FND_MSG_PUB.Add_Exc_Msg
1086: ( p_pkg_name => G_PKG_NAME ,
1128: -- 08-DEC-96 Update jwhite Applied latest standards
1129: --
1130:
1131: PROCEDURE Update_Resource_List
1132: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
1133: p_api_version_number IN NUMBER,
1134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1135: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1136: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1130:
1131: PROCEDURE Update_Resource_List
1132: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
1133: p_api_version_number IN NUMBER,
1134: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1135: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1136: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1137: p_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1138: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1240:
1241: -- Standard Api compatibility call
1242: SAVEPOINT Update_Resource_List_Pub;
1243:
1244: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
1245: p_api_version_number ,
1246: l_api_name ,
1247: G_PKG_NAME )
1248: THEN
1245: p_api_version_number ,
1246: l_api_name ,
1247: G_PKG_NAME )
1248: THEN
1249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1250: END IF;
1251: l_resp_id := FND_GLOBAL.Resp_id;
1252:
1253: -- Actions performed using the APIs would be subject to
1264: p_msg_data => l_msg_data,
1265: p_return_status => l_return_status,
1266: p_function_allowed => l_function_allowed );
1267:
1268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1269: THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271:
1272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1266: p_function_allowed => l_function_allowed );
1267:
1268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1269: THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271:
1272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1273: THEN
1274: RAISE FND_API.G_EXC_ERROR;
1268: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1269: THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271:
1272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1273: THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276: IF l_function_allowed = 'N' THEN
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271:
1272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1273: THEN
1274: RAISE FND_API.G_EXC_ERROR;
1275: END IF;
1276: IF l_function_allowed = 'N' THEN
1277: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1278: FND_MSG_PUB.ADD;
1275: END IF;
1276: IF l_function_allowed = 'N' THEN
1277: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1278: FND_MSG_PUB.ADD;
1279: p_return_status := FND_API.g_ret_sts_error;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282:
1283: IF FND_API.to_boolean( p_init_msg_list )
1276: IF l_function_allowed = 'N' THEN
1277: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1278: FND_MSG_PUB.ADD;
1279: p_return_status := FND_API.g_ret_sts_error;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282:
1283: IF FND_API.to_boolean( p_init_msg_list )
1284: THEN
1279: p_return_status := FND_API.g_ret_sts_error;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282:
1283: IF FND_API.to_boolean( p_init_msg_list )
1284: THEN
1285: FND_MSG_PUB.initialize;
1286: END IF;
1287:
1288: -- -----------------------------------------------------------------------
1289: -- Resource List HEADER
1290: -- -----------------------------------------------------------------------
1291:
1292: p_return_status := FND_API.G_RET_STS_SUCCESS;
1293:
1294:
1295: -- VALUE LAYER ----------------------------------------------------------------
1296:
1300: p_out_resource_list_id => l_resource_list_id,
1301: p_return_status => l_return_status
1302: );
1303:
1304: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1301: p_return_status => l_return_status
1302: );
1303:
1304: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309:
1302: );
1303:
1304: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309:
1310:
1303:
1304: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309:
1310:
1311: -- Validate Date IN Parameters
1320: THEN
1321: FND_MESSAGE.SET_NAME('PA','PA_INVALID_START_DATE');
1322: FND_MSG_PUB.ADD;
1323: END IF;
1324: RAISE FND_API.G_EXC_ERROR;
1325: ELSIF ((p_end_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1326: AND (p_end_date IS NOT NULL)) THEN
1327: IF (p_start_date > p_end_date)
1328: THEN
1330: THEN
1331: FND_MESSAGE.SET_NAME('PA','PA_INVALID_START_DATE');
1332: FND_MSG_PUB.ADD;
1333: END IF;
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: END IF;
1337: END IF;
1338:
1346: THEN
1347: FND_MESSAGE.SET_NAME('PA', 'PA_NEW_RES_LIST_NO_NULL');
1348: FND_MSG_PUB.ADD;
1349: END IF;
1350: RAISE FND_API.G_EXC_ERROR;
1351: END IF;
1352:
1353: -- New List Name Must NOT Already Exist
1354:
1361: FND_MESSAGE.SET_NAME('PA', 'PA_RE_RL_UNIQUE');
1362: FND_MSG_PUB.ADD;
1363: END IF;
1364: CLOSE l_new_list_name_csr;
1365: RAISE FND_API.G_EXC_ERROR;
1366: ELSE
1367: CLOSE l_new_list_name_csr;
1368: END IF;
1369: END IF;
1379: FND_MESSAGE.SET_NAME('PA', 'PA_NO_CHANGE_GROUP_BY_TYPE');
1380: FND_MSG_PUB.ADD;
1381: END IF;
1382: CLOSE l_grouped_by_type_csr;
1383: RAISE FND_API.G_EXC_ERROR;
1384: ELSE
1385: CLOSE l_grouped_by_type_csr;
1386: END IF;
1387: END IF;
1401: FND_MESSAGE.SET_NAME('PA', 'PA_GROUPED_RT_INVALID');
1402: FND_MSG_PUB.ADD;
1403: END IF;
1404: CLOSE l_resource_type_csr;
1405: RAISE FND_API.G_EXC_ERROR;
1406: ELSE
1407: CLOSE l_resource_type_csr;
1408: END IF;
1409: END IF;
1432: THEN
1433: FND_MESSAGE.SET_NAME('PA','PA_INVALID_START_DATE');
1434: FND_MSG_PUB.ADD;
1435: END IF;
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438: END IF;
1439:
1440: IF (p_start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1448: THEN
1449: FND_MESSAGE.SET_NAME('PA','PA_INVALID_END_DATE');
1450: FND_MSG_PUB.ADD;
1451: END IF;
1452: RAISE FND_API.G_EXC_ERROR;
1453: END IF;
1454: END IF;
1455: END IF;
1456: END IF;
1557:
1558:
1559: FOR I IN 1..p_member_tbl.COUNT LOOP
1560:
1561: p_member_out_tbl(i).return_status := FND_API.G_RET_STS_SUCCESS;
1562:
1563: IF (p_member_tbl(i).resource_list_member_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1564: AND (p_member_tbl(i).resource_list_member_id IS NOT NULL) THEN
1565:
1581:
1582: END IF;
1583:
1584:
1585: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1586: p_member_out_tbl(i).return_status := l_return_status;
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1589: p_member_out_tbl(i).return_status := l_return_status;
1583:
1584:
1585: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1586: p_member_out_tbl(i).return_status := l_return_status;
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1589: p_member_out_tbl(i).return_status := l_return_status;
1590: RAISE FND_API.G_EXC_ERROR;
1591: END IF;
1584:
1585: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1586: p_member_out_tbl(i).return_status := l_return_status;
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1589: p_member_out_tbl(i).return_status := l_return_status;
1590: RAISE FND_API.G_EXC_ERROR;
1591: END IF;
1592:
1586: p_member_out_tbl(i).return_status := l_return_status;
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1589: p_member_out_tbl(i).return_status := l_return_status;
1590: RAISE FND_API.G_EXC_ERROR;
1591: END IF;
1592:
1593:
1594: IF (l_resource_list_member_id IS NULL) THEN
1595:
1596: -- ADD NEW Resource List Member
1597:
1598: Add_Resource_List_Member
1599: ( p_commit => FND_API.G_FALSE
1600: ,p_init_msg_list => FND_API.G_FALSE
1601: , p_api_version_number => l_version_add_member
1602: , p_resource_list_id => l_resource_list_id
1603: , p_resource_group_alias => p_member_tbl(i).resource_group_alias
1596: -- ADD NEW Resource List Member
1597:
1598: Add_Resource_List_Member
1599: ( p_commit => FND_API.G_FALSE
1600: ,p_init_msg_list => FND_API.G_FALSE
1601: , p_api_version_number => l_version_add_member
1602: , p_resource_list_id => l_resource_list_id
1603: , p_resource_group_alias => p_member_tbl(i).resource_group_alias
1604: , p_resource_group_name => p_member_tbl(i).resource_group_name
1613: , p_msg_data => p_msg_data
1614: , p_return_status => p_member_out_tbl(i).return_status
1615: );
1616:
1617: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1619: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1620:
1621: RAISE FND_API.G_EXC_ERROR;
1614: , p_return_status => p_member_out_tbl(i).return_status
1615: );
1616:
1617: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1619: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1620:
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1615: );
1616:
1617: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1619: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1620:
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1617: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1619: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1620:
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624:
1625: ELSE
1627:
1628: p_member_out_tbl(i). resource_list_member_id := l_resource_list_member_id;
1629:
1630: Update_Resource_List_Member
1631: ( p_commit => FND_API.G_FALSE
1632: , p_init_msg_list => FND_API.G_FALSE
1633: , p_api_version_number => l_version_update_member
1634: , p_resource_list_id => l_resource_list_id
1635: , p_resource_list_member_id => l_resource_list_member_id
1628: p_member_out_tbl(i). resource_list_member_id := l_resource_list_member_id;
1629:
1630: Update_Resource_List_Member
1631: ( p_commit => FND_API.G_FALSE
1632: , p_init_msg_list => FND_API.G_FALSE
1633: , p_api_version_number => l_version_update_member
1634: , p_resource_list_id => l_resource_list_id
1635: , p_resource_list_member_id => l_resource_list_member_id
1636: , p_new_alias => p_member_tbl(i).new_alias
1641: , p_msg_data => p_msg_data
1642: );
1643:
1644:
1645: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1647: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1648:
1649: RAISE FND_API.G_EXC_ERROR;
1642: );
1643:
1644:
1645: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1647: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1648:
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1643:
1644:
1645: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1647: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1648:
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1645: IF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1647: ELSIF (p_member_out_tbl(i).return_status = FND_API.G_RET_STS_ERROR) THEN
1648:
1649: RAISE FND_API.G_EXC_ERROR;
1650: END IF;
1651:
1652:
1653: END IF;
1654: END LOOP;
1655:
1656:
1657:
1658: IF FND_API.to_boolean( p_commit )
1659: THEN
1660: COMMIT;
1661: END IF;
1662:
1661: END IF;
1662:
1663: EXCEPTION
1664:
1665: WHEN FND_API.G_EXC_ERROR THEN
1666:
1667: p_return_status := FND_API.G_RET_STS_ERROR ;
1668: ROLLBACK TO Update_Resource_List_Pub;
1669:
1663: EXCEPTION
1664:
1665: WHEN FND_API.G_EXC_ERROR THEN
1666:
1667: p_return_status := FND_API.G_RET_STS_ERROR ;
1668: ROLLBACK TO Update_Resource_List_Pub;
1669:
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_count => p_msg_count ,
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_count => p_msg_count ,
1672: p_data => p_msg_data );
1673:
1674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1675:
1676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1677: ROLLBACK TO Update_Resource_List_Pub;
1678:
1672: p_data => p_msg_data );
1673:
1674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1675:
1676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1677: ROLLBACK TO Update_Resource_List_Pub;
1678:
1679: FND_MSG_PUB.Count_And_Get
1680: ( p_count => p_msg_count ,
1681: p_data => p_msg_data );
1682:
1683: WHEN ROW_ALREADY_LOCKED THEN
1684:
1685: p_return_status := FND_API.G_RET_STS_ERROR ;
1686: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1687: THEN
1688: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
1689: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST');
1698:
1699:
1700: WHEN OTHERS THEN
1701:
1702: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1703: ROLLBACK TO Update_Resource_List_Pub;
1704:
1705: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1706:
1768: --
1769:
1770:
1771: PROCEDURE Exec_Update_Resource_List
1772: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
1773: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1774: p_api_version_number IN NUMBER,
1775: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1776: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1769:
1770:
1771: PROCEDURE Exec_Update_Resource_List
1772: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
1773: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1774: p_api_version_number IN NUMBER,
1775: p_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1776: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1777: p_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1783: l_message_count NUMBER;
1784:
1785: BEGIN
1786:
1787: p_return_status := FND_API.g_ret_sts_success;
1788:
1789: -- Standard Api compatibility call
1790:
1791: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
1787: p_return_status := FND_API.g_ret_sts_success;
1788:
1789: -- Standard Api compatibility call
1790:
1791: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
1792: p_api_version_number ,
1793: l_api_name ,
1794: G_PKG_NAME )
1795: THEN
1792: p_api_version_number ,
1793: l_api_name ,
1794: G_PKG_NAME )
1795: THEN
1796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1797: END IF;
1798:
1799:
1800:
1816: p_member_out_tbl => g_member_out_tbl);
1817:
1818: EXCEPTION
1819:
1820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1821: THEN
1822:
1823: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1824:
1819:
1820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1821: THEN
1822:
1823: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1824:
1825: WHEN OTHERS THEN
1826:
1827: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1823: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1824:
1825: WHEN OTHERS THEN
1826:
1827: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1828:
1829: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1830: FND_MSG_PUB.Add_Exc_Msg
1831: ( p_pkg_name => G_PKG_NAME ,
1872: -- 02-OCT-98 Updated jxnaraya validations for deletion modified
1873:
1874:
1875: PROCEDURE Delete_Resource_list
1876: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
1877: p_api_version_number IN NUMBER,
1878: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1879: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1880: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1874:
1875: PROCEDURE Delete_Resource_list
1876: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
1877: p_api_version_number IN NUMBER,
1878: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1879: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
1880: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
1881: p_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
1882: p_msg_data OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
1913: SAVEPOINT Delete_Resource_List_Pub;
1914:
1915: -- Standard Api compatibility call
1916:
1917: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
1918: p_api_version_number ,
1919: l_api_name ,
1920: G_PKG_NAME )
1921: THEN
1918: p_api_version_number ,
1919: l_api_name ,
1920: G_PKG_NAME )
1921: THEN
1922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1923: END IF;
1924: l_resp_id := FND_GLOBAL.Resp_id;
1925:
1926: -- Actions performed using the APIs would be subject to
1937: p_msg_data => l_msg_data,
1938: p_return_status => l_return_status,
1939: p_function_allowed => l_function_allowed );
1940:
1941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1942: THEN
1943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1944:
1945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1939: p_function_allowed => l_function_allowed );
1940:
1941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1942: THEN
1943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1944:
1945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1946: THEN
1947: RAISE FND_API.G_EXC_ERROR;
1941: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1942: THEN
1943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1944:
1945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1946: THEN
1947: RAISE FND_API.G_EXC_ERROR;
1948: END IF;
1949: IF l_function_allowed = 'N' THEN
1943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1944:
1945: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1946: THEN
1947: RAISE FND_API.G_EXC_ERROR;
1948: END IF;
1949: IF l_function_allowed = 'N' THEN
1950: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1951: FND_MSG_PUB.ADD;
1948: END IF;
1949: IF l_function_allowed = 'N' THEN
1950: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1951: FND_MSG_PUB.ADD;
1952: p_return_status := FND_API.g_ret_sts_error;
1953: RAISE FND_API.G_EXC_ERROR;
1954: END IF;
1955:
1956: IF FND_API.to_boolean( p_init_msg_list )
1949: IF l_function_allowed = 'N' THEN
1950: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
1951: FND_MSG_PUB.ADD;
1952: p_return_status := FND_API.g_ret_sts_error;
1953: RAISE FND_API.G_EXC_ERROR;
1954: END IF;
1955:
1956: IF FND_API.to_boolean( p_init_msg_list )
1957: THEN
1952: p_return_status := FND_API.g_ret_sts_error;
1953: RAISE FND_API.G_EXC_ERROR;
1954: END IF;
1955:
1956: IF FND_API.to_boolean( p_init_msg_list )
1957: THEN
1958: FND_MSG_PUB.initialize;
1959: END IF;
1960:
1957: THEN
1958: FND_MSG_PUB.initialize;
1959: END IF;
1960:
1961: p_return_status := FND_API.G_RET_STS_SUCCESS;
1962:
1963:
1964: -- VALUE LAYER ---------------------------------------------------------------
1965:
1969: p_out_resource_list_id => l_resource_list_id,
1970: p_return_status => l_return_status
1971: );
1972:
1973: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1970: p_return_status => l_return_status
1971: );
1972:
1973: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978:
1971: );
1972:
1973: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978:
1979: -- VALIDATION LAYER ---------------------------------------------------------
1972:
1973: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1976: RAISE FND_API.G_EXC_ERROR;
1977: END IF;
1978:
1979: -- VALIDATION LAYER ---------------------------------------------------------
1980:
1988: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1989: FND_MESSAGE.SET_NAME('PA', x_err_stage);
1990: FND_MSG_PUB.ADD;
1991: END IF;
1992: RAISE FND_API.G_EXC_ERROR;
1993: END IF;
1994:
1995:
1996: -- D E L E T E Resource List MEMBERS --------------------------------------------------------------
2009: EXCEPTION
2010:
2011: WHEN OTHERS THEN
2012:
2013: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2014: ROLLBACK TO Delete_Resource_List_Pub;
2015:
2016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2017: THEN
2041: EXCEPTION
2042:
2043: WHEN ROW_ALREADY_LOCKED THEN
2044:
2045: p_return_status := FND_API.G_RET_STS_ERROR ;
2046: ROLLBACK TO Delete_Resource_List_Pub;
2047:
2048: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2049: THEN
2057: p_data => p_msg_data );
2058:
2059: WHEN OTHERS THEN
2060:
2061: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2062: ROLLBACK TO Delete_Resource_List_Pub;
2063:
2064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2065: THEN
2073:
2074: END;
2075:
2076:
2077: IF FND_API.to_boolean( p_commit )
2078: THEN
2079: COMMIT;
2080: END IF;
2081:
2085:
2086:
2087: EXCEPTION
2088:
2089: WHEN FND_API.G_EXC_ERROR THEN
2090:
2091: p_return_status := FND_API.G_RET_STS_ERROR ;
2092: ROLLBACK TO Delete_Resource_List_Pub;
2093:
2087: EXCEPTION
2088:
2089: WHEN FND_API.G_EXC_ERROR THEN
2090:
2091: p_return_status := FND_API.G_RET_STS_ERROR ;
2092: ROLLBACK TO Delete_Resource_List_Pub;
2093:
2094: FND_MSG_PUB.Count_And_Get
2095: ( p_count => p_msg_count ,
2094: FND_MSG_PUB.Count_And_Get
2095: ( p_count => p_msg_count ,
2096: p_data => p_msg_data );
2097:
2098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2099:
2100: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2101: ROLLBACK TO Delete_Resource_List_Pub;
2102:
2096: p_data => p_msg_data );
2097:
2098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2099:
2100: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2101: ROLLBACK TO Delete_Resource_List_Pub;
2102:
2103: FND_MSG_PUB.Count_And_Get
2104: ( p_count => p_msg_count ,
2105: p_data => p_msg_data );
2106:
2107: WHEN OTHERS THEN
2108:
2109: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2110: ROLLBACK TO Delete_Resource_List_Pub;
2111:
2112: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2113: FND_MSG_PUB.Add_Exc_Msg
2138: -- 04-DEC-96 Update jwhite Applied latest standards.
2139: --
2140:
2141: PROCEDURE Add_Resource_List_Member
2142: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
2143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2144: p_api_version_number IN NUMBER,
2145: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2146: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2139: --
2140:
2141: PROCEDURE Add_Resource_List_Member
2142: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
2143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2144: p_api_version_number IN NUMBER,
2145: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2146: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2147: p_resource_group_alias IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2206:
2207:
2208: SAVEPOINT Add_Resource_List_Member_Pub;
2209:
2210: p_return_status := FND_API.G_RET_STS_SUCCESS;
2211:
2212: IF FND_API.to_boolean( p_init_msg_list)
2213: THEN
2214: FND_MSG_PUB.initialize;
2208: SAVEPOINT Add_Resource_List_Member_Pub;
2209:
2210: p_return_status := FND_API.G_RET_STS_SUCCESS;
2211:
2212: IF FND_API.to_boolean( p_init_msg_list)
2213: THEN
2214: FND_MSG_PUB.initialize;
2215: END IF;
2216:
2230: p_msg_data => l_msg_data,
2231: p_return_status => l_return_status,
2232: p_function_allowed => l_function_allowed );
2233:
2234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2235: THEN
2236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2237:
2238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2232: p_function_allowed => l_function_allowed );
2233:
2234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2235: THEN
2236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2237:
2238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2239: THEN
2240: RAISE FND_API.G_EXC_ERROR;
2234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2235: THEN
2236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2237:
2238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2239: THEN
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242: IF l_function_allowed = 'N' THEN
2236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2237:
2238: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2239: THEN
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242: IF l_function_allowed = 'N' THEN
2243: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2244: FND_MSG_PUB.ADD;
2241: END IF;
2242: IF l_function_allowed = 'N' THEN
2243: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2244: FND_MSG_PUB.ADD;
2245: p_return_status := FND_API.g_ret_sts_error;
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF;
2248:
2249: -- Standard call to check for call compatibility.
2242: IF l_function_allowed = 'N' THEN
2243: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2244: FND_MSG_PUB.ADD;
2245: p_return_status := FND_API.g_ret_sts_error;
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF;
2248:
2249: -- Standard call to check for call compatibility.
2250: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
2246: RAISE FND_API.G_EXC_ERROR;
2247: END IF;
2248:
2249: -- Standard call to check for call compatibility.
2250: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
2251: p_api_version_number ,
2252: l_api_name ,
2253: G_PKG_NAME )
2254: THEN
2251: p_api_version_number ,
2252: l_api_name ,
2253: G_PKG_NAME )
2254: THEN
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257:
2258:
2259: IF p_resource_type_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2262: THEN
2263: FND_MESSAGE.SET_NAME('PA','PA_RL_RES_TYPE_CODE_REQD');
2264: FND_MSG_PUB.ADD;
2265: END IF;
2266: RAISE FND_API.G_EXC_ERROR;
2267: END IF;
2268:
2269: IF p_resource_attr_value = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2270: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2288: END IF;
2289: p_resource_list_member_id := NULL;
2290: FND_MSG_PUB.ADD;
2291: END IF;
2292: RAISE FND_API.G_EXC_ERROR;
2293: END IF;
2294:
2295: -- Convert the resource list name to resource list id
2296:
2301: p_out_resource_list_id => l_resource_list_id,
2302: p_return_status => l_return_status
2303: );
2304:
2305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2308: RAISE FND_API.G_EXC_ERROR;
2309: END IF;
2302: p_return_status => l_return_status
2303: );
2304:
2305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2308: RAISE FND_API.G_EXC_ERROR;
2309: END IF;
2310:
2303: );
2304:
2305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2308: RAISE FND_API.G_EXC_ERROR;
2309: END IF;
2310:
2311:
2304:
2305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2307: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2308: RAISE FND_API.G_EXC_ERROR;
2309: END IF;
2310:
2311:
2312: -- Get the grouped by resource type of the Resource list
2321: THEN
2322: FND_MESSAGE.SET_NAME('PA', 'PA_RL_INVALID');
2323: FND_MSG_PUB.ADD;
2324: END IF;
2325: RAISE FND_API.G_EXC_ERROR;
2326: ELSE
2327: CLOSE l_resource_list_csr;
2328: END IF;
2329:
2334: THEN
2335: FND_MESSAGE.SET_NAME('PA', 'PA_RL_GROUPED');
2336: FND_MSG_PUB.ADD;
2337: END IF;
2338: RAISE FND_API.G_EXC_ERROR;
2339: END IF;
2340:
2341: IF (p_sort_order = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
2342: l_sort_order := NULL;
2402: FND_MESSAGE.SET_NAME ('PA',l_err_stage);
2403: END IF;
2404: FND_MSG_PUB.ADD;
2405: END IF;
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408:
2409: IF l_err_code < 0 THEN
2410: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2415: , p_error_text => 'ORA-'||LPAD(SUBSTR(l_err_code, 2), 5, '0')
2416: );
2417:
2418: END IF;
2419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2420: END IF;
2421:
2422: IF l_err_code = 0 THEN
2423: p_return_status := FND_API.g_ret_sts_success;
2419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2420: END IF;
2421:
2422: IF l_err_code = 0 THEN
2423: p_return_status := FND_API.g_ret_sts_success;
2424: p_resource_list_member_id := l_resource_list_member_id;
2425: END IF;
2426:
2427: IF FND_API.to_boolean( p_commit )
2423: p_return_status := FND_API.g_ret_sts_success;
2424: p_resource_list_member_id := l_resource_list_member_id;
2425: END IF;
2426:
2427: IF FND_API.to_boolean( p_commit )
2428: THEN
2429: COMMIT;
2430: END IF;
2431:
2430: END IF;
2431:
2432: EXCEPTION
2433:
2434: WHEN FND_API.G_EXC_ERROR THEN
2435:
2436: p_return_status := FND_API.G_RET_STS_ERROR ;
2437: ROLLBACK TO Add_Resource_List_Member_Pub;
2438:
2432: EXCEPTION
2433:
2434: WHEN FND_API.G_EXC_ERROR THEN
2435:
2436: p_return_status := FND_API.G_RET_STS_ERROR ;
2437: ROLLBACK TO Add_Resource_List_Member_Pub;
2438:
2439: FND_MSG_PUB.Count_And_Get
2440: ( p_count => p_msg_count ,
2439: FND_MSG_PUB.Count_And_Get
2440: ( p_count => p_msg_count ,
2441: p_data => p_msg_data );
2442:
2443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2444:
2445: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2446: ROLLBACK TO Add_Resource_List_Member_Pub;
2447:
2441: p_data => p_msg_data );
2442:
2443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2444:
2445: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2446: ROLLBACK TO Add_Resource_List_Member_Pub;
2447:
2448: FND_MSG_PUB.Count_And_Get
2449: ( p_count => p_msg_count ,
2450: p_data => p_msg_data );
2451:
2452: WHEN OTHERS THEN
2453:
2454: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2455: ROLLBACK TO Add_Resource_List_Member_Pub;
2456:
2457: IF FND_MSG_PUB.Check_Msg_Level
2458: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2486: -- 04-DEC-96 Update jwhite Applied latest standards.
2487: --
2488:
2489: PROCEDURE Update_Resource_List_Member
2490: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
2491: p_api_version_number IN NUMBER,
2492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2493: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2494: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2488:
2489: PROCEDURE Update_Resource_List_Member
2490: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
2491: p_api_version_number IN NUMBER,
2492: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2493: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2494: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2495: p_resource_alias IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2496: p_resource_list_member_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2589: -- Standard Api compatibility call
2590:
2591: SAVEPOINT Update_Resource_List_Mbr_Pub;
2592:
2593: p_return_status := FND_API.G_RET_STS_SUCCESS;
2594:
2595: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
2596: p_api_version_number ,
2597: l_api_name ,
2591: SAVEPOINT Update_Resource_List_Mbr_Pub;
2592:
2593: p_return_status := FND_API.G_RET_STS_SUCCESS;
2594:
2595: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
2596: p_api_version_number ,
2597: l_api_name ,
2598: G_PKG_NAME )
2599: THEN
2596: p_api_version_number ,
2597: l_api_name ,
2598: G_PKG_NAME )
2599: THEN
2600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2601: END IF;
2602:
2603: l_resp_id := FND_GLOBAL.Resp_id;
2604:
2616: p_msg_data => l_msg_data,
2617: p_return_status => l_return_status,
2618: p_function_allowed => l_function_allowed );
2619:
2620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2621: THEN
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623:
2624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2618: p_function_allowed => l_function_allowed );
2619:
2620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2621: THEN
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623:
2624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2625: THEN
2626: RAISE FND_API.G_EXC_ERROR;
2620: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2621: THEN
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623:
2624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2625: THEN
2626: RAISE FND_API.G_EXC_ERROR;
2627: END IF;
2628: IF l_function_allowed = 'N' THEN
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623:
2624: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2625: THEN
2626: RAISE FND_API.G_EXC_ERROR;
2627: END IF;
2628: IF l_function_allowed = 'N' THEN
2629: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2630: FND_MSG_PUB.ADD;
2627: END IF;
2628: IF l_function_allowed = 'N' THEN
2629: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2630: FND_MSG_PUB.ADD;
2631: p_return_status := FND_API.g_ret_sts_error;
2632: RAISE FND_API.G_EXC_ERROR;
2633: END IF;
2634:
2635: IF FND_API.to_boolean( p_init_msg_list )
2628: IF l_function_allowed = 'N' THEN
2629: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2630: FND_MSG_PUB.ADD;
2631: p_return_status := FND_API.g_ret_sts_error;
2632: RAISE FND_API.G_EXC_ERROR;
2633: END IF;
2634:
2635: IF FND_API.to_boolean( p_init_msg_list )
2636: THEN
2631: p_return_status := FND_API.g_ret_sts_error;
2632: RAISE FND_API.G_EXC_ERROR;
2633: END IF;
2634:
2635: IF FND_API.to_boolean( p_init_msg_list )
2636: THEN
2637: FND_MSG_PUB.initialize;
2638: END IF;
2639:
2645: p_out_resource_list_id => l_resource_list_id,
2646: p_return_status => l_return_status
2647: );
2648:
2649: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2651: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2652: RAISE FND_API.G_EXC_ERROR;
2653: END IF;
2646: p_return_status => l_return_status
2647: );
2648:
2649: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2651: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2652: RAISE FND_API.G_EXC_ERROR;
2653: END IF;
2654:
2647: );
2648:
2649: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2651: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2652: RAISE FND_API.G_EXC_ERROR;
2653: END IF;
2654:
2655: Convert_alias_to_id
2648:
2649: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2651: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2652: RAISE FND_API.G_EXC_ERROR;
2653: END IF;
2654:
2655: Convert_alias_to_id
2656: ( p_resource_list_id => l_resource_list_id
2659: , p_out_resource_list_member_id => l_resource_list_member_id
2660: , p_return_status => l_return_status
2661: );
2662:
2663: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: END IF;
2660: , p_return_status => l_return_status
2661: );
2662:
2663: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: END IF;
2668:
2661: );
2662:
2663: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: END IF;
2668:
2669: -- VALIDATE LAYER ------------------------------------------------------------------------
2662:
2663: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: END IF;
2668:
2669: -- VALIDATE LAYER ------------------------------------------------------------------------
2670:
2675: THEN
2676: FND_MESSAGE.SET_NAME('PA','PA_P_NEW_ALIAS_NO_NULL');
2677: FND_MSG_PUB.ADD;
2678: END IF;
2679: RAISE FND_API.G_EXC_ERROR;
2680: END IF;
2681:
2682: IF (p_sort_order IS NULL) THEN
2683: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2684: THEN
2685: FND_MESSAGE.SET_NAME('PA','PA_P_SORT_ORDER_NO_NULL');
2686: FND_MSG_PUB.ADD;
2687: END IF;
2688: RAISE FND_API.G_EXC_ERROR;
2689: END IF;
2690:
2691: IF (p_enabled_flag IS NULL) THEN
2692: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2693: THEN
2694: FND_MESSAGE.SET_NAME('PA','PA_P_ENABLED_FLAG_NO_NULL');
2695: FND_MSG_PUB.ADD;
2696: END IF;
2697: RAISE FND_API.G_EXC_ERROR;
2698: END IF;
2699:
2700: -- Check Proper Values Passed for P_ENABLED_FLAG.
2701: -- Default Value to 'Y' if NOT Passed at All.
2710: THEN
2711: FND_MESSAGE.SET_NAME('PA','PA_ENABLED_FLAG_YES_NO');
2712: FND_MSG_PUB.ADD;
2713: END IF;
2714: RAISE FND_API.G_EXC_ERROR;
2715: END IF;
2716: END IF;
2717:
2718: -- Check Uniqueness of New Alias
2737: FND_MESSAGE.SET_NAME('PA','PA_P_NEW_ALIAS_NOT_UNIQUE ');
2738: FND_MSG_PUB.ADD;
2739: END IF;
2740: CLOSE l_new_alias_none_csr;
2741: RAISE FND_API.G_EXC_ERROR;
2742: ELSE
2743: CLOSE l_new_alias_none_csr;
2744: END IF;
2745:
2763: FND_MESSAGE.SET_NAME('PA','PA_P_NEW_ALIAS_NOT_UNIQUE ');
2764: FND_MSG_PUB.ADD;
2765: END IF;
2766: CLOSE l_new_alias_grouped_csr;
2767: RAISE FND_API.G_EXC_ERROR;
2768: ELSE
2769: CLOSE l_new_alias_grouped_csr;
2770: END IF;
2771: END IF;
2828: dbms_sql.close_cursor(l_cursor);
2829: END IF;
2830: END IF;
2831:
2832: IF FND_API.to_boolean( p_commit )
2833: THEN
2834: COMMIT;
2835: END IF;
2836:
2835: END IF;
2836:
2837: EXCEPTION
2838:
2839: WHEN FND_API.G_EXC_ERROR THEN
2840:
2841: p_return_status := FND_API.G_RET_STS_ERROR ;
2842: ROLLBACK TO Update_Resource_List_Mbr_Pub;
2843:
2837: EXCEPTION
2838:
2839: WHEN FND_API.G_EXC_ERROR THEN
2840:
2841: p_return_status := FND_API.G_RET_STS_ERROR ;
2842: ROLLBACK TO Update_Resource_List_Mbr_Pub;
2843:
2844: FND_MSG_PUB.Count_And_Get
2845: ( p_count => p_msg_count ,
2844: FND_MSG_PUB.Count_And_Get
2845: ( p_count => p_msg_count ,
2846: p_data => p_msg_data );
2847:
2848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2849:
2850: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2851: ROLLBACK TO Update_Resource_List_Mbr_Pub;
2852:
2846: p_data => p_msg_data );
2847:
2848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2849:
2850: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2851: ROLLBACK TO Update_Resource_List_Mbr_Pub;
2852:
2853: FND_MSG_PUB.Count_And_Get
2854: ( p_count => p_msg_count ,
2855: p_data => p_msg_data );
2856:
2857: WHEN ROW_ALREADY_LOCKED THEN
2858:
2859: p_return_status := FND_API.G_RET_STS_ERROR ;
2860: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2861: THEN
2862: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED');
2863: FND_MESSAGE.SET_TOKEN('ENTITY', 'RESOURCE_LIST_MEMBER');
2872:
2873:
2874: WHEN OTHERS THEN
2875:
2876: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2877: ROLLBACK TO Update_Resource_List_Mbr_Pub;
2878:
2879: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2880: FND_MSG_PUB.Add_Exc_Msg
2902: -- 04-DEC-96 Update jwhite Applied latest standards.
2903: -- 02-OCT-98 Update jxnaraya validations for deletion modified
2904:
2905: PROCEDURE Delete_Resource_list_Member
2906: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
2907: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2908: p_api_version_number IN NUMBER,
2909: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2910: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2903: -- 02-OCT-98 Update jxnaraya validations for deletion modified
2904:
2905: PROCEDURE Delete_Resource_list_Member
2906: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
2907: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2908: p_api_version_number IN NUMBER,
2909: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2910: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2911: p_resource_alias IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
2960: SAVEPOINT Delete_Resource_List_Mbr_Pub;
2961:
2962: -- Standard Api compatibility call
2963:
2964: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
2965: p_api_version_number ,
2966: l_api_name ,
2967: G_PKG_NAME )
2968: THEN
2965: p_api_version_number ,
2966: l_api_name ,
2967: G_PKG_NAME )
2968: THEN
2969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2970: END IF;
2971:
2972: l_resp_id := FND_GLOBAL.Resp_id;
2973:
2985: p_msg_data => l_msg_data,
2986: p_return_status => l_return_status,
2987: p_function_allowed => l_function_allowed );
2988:
2989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2990: THEN
2991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2992:
2993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2987: p_function_allowed => l_function_allowed );
2988:
2989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2990: THEN
2991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2992:
2993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2994: THEN
2995: RAISE FND_API.G_EXC_ERROR;
2989: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2990: THEN
2991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2992:
2993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2994: THEN
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2997: IF l_function_allowed = 'N' THEN
2991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2992:
2993: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2994: THEN
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2997: IF l_function_allowed = 'N' THEN
2998: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2999: FND_MSG_PUB.ADD;
2996: END IF;
2997: IF l_function_allowed = 'N' THEN
2998: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2999: FND_MSG_PUB.ADD;
3000: p_return_status := FND_API.g_ret_sts_error;
3001: RAISE FND_API.G_EXC_ERROR;
3002: END IF;
3003: IF FND_API.to_boolean( p_init_msg_list )
3004: THEN
2997: IF l_function_allowed = 'N' THEN
2998: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
2999: FND_MSG_PUB.ADD;
3000: p_return_status := FND_API.g_ret_sts_error;
3001: RAISE FND_API.G_EXC_ERROR;
3002: END IF;
3003: IF FND_API.to_boolean( p_init_msg_list )
3004: THEN
3005: FND_MSG_PUB.initialize;
2999: FND_MSG_PUB.ADD;
3000: p_return_status := FND_API.g_ret_sts_error;
3001: RAISE FND_API.G_EXC_ERROR;
3002: END IF;
3003: IF FND_API.to_boolean( p_init_msg_list )
3004: THEN
3005: FND_MSG_PUB.initialize;
3006: END IF;
3007:
3004: THEN
3005: FND_MSG_PUB.initialize;
3006: END IF;
3007:
3008: p_return_status := FND_API.G_RET_STS_SUCCESS;
3009:
3010:
3011: -- VALUE LAYER:
3012:
3016: p_out_resource_list_id => l_resource_list_id,
3017: p_return_status => l_return_status
3018: );
3019:
3020: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3017: p_return_status => l_return_status
3018: );
3019:
3020: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025:
3018: );
3019:
3020: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025:
3026: Convert_alias_to_id
3019:
3020: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025:
3026: Convert_alias_to_id
3027: ( p_resource_list_id => l_resource_list_id
3030: ,p_out_resource_list_member_id => l_resource_list_member_id
3031: ,p_return_status => l_return_status
3032: );
3033:
3034: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: END IF;
3031: ,p_return_status => l_return_status
3032: );
3033:
3034: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: END IF;
3039:
3032: );
3033:
3034: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: END IF;
3039:
3040:
3033:
3034: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: END IF;
3039:
3040:
3041: -- VALIDATION LAYER ----------------------------------------------------------------
3047: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3048: FND_MESSAGE.SET_NAME('PA',x_err_stage);
3049: FND_MSG_PUB.ADD;
3050: END IF;
3051: RAISE FND_API.G_EXC_ERROR;
3052: END IF;
3053:
3054:
3055: /*Changes starts for Resource Mapping Enhancements-- Bug 1889671 */
3106: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3107: FND_MESSAGE.SET_NAME('PA',x_err_stage);
3108: FND_MSG_PUB.ADD;
3109: END IF;
3110: RAISE FND_API.G_EXC_ERROR;
3111: END IF;
3112: END IF;
3113: END IF;
3114: END IF;
3112: END IF;
3113: END IF;
3114: END IF;
3115:
3116: IF FND_API.to_boolean( p_commit )
3117: THEN
3118: COMMIT;
3119: END IF;
3120:
3119: END IF;
3120:
3121: EXCEPTION
3122:
3123: WHEN FND_API.G_EXC_ERROR THEN
3124:
3125: p_return_status := FND_API.G_RET_STS_ERROR ;
3126: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3127:
3121: EXCEPTION
3122:
3123: WHEN FND_API.G_EXC_ERROR THEN
3124:
3125: p_return_status := FND_API.G_RET_STS_ERROR ;
3126: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3127:
3128: FND_MSG_PUB.Count_And_Get
3129: ( p_count => p_msg_count ,
3128: FND_MSG_PUB.Count_And_Get
3129: ( p_count => p_msg_count ,
3130: p_data => p_msg_data );
3131:
3132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3133:
3134: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3135: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3136:
3130: p_data => p_msg_data );
3131:
3132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3133:
3134: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3135: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3136:
3137: FND_MSG_PUB.Count_And_Get
3138: ( p_count => p_msg_count ,
3139: p_data => p_msg_data );
3140:
3141: WHEN ROW_ALREADY_LOCKED THEN
3142:
3143: p_return_status := FND_API.G_RET_STS_ERROR ;
3144: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3145:
3146: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3147: THEN
3155: p_data => p_msg_data );
3156:
3157: WHEN OTHERS THEN
3158:
3159: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3160: ROLLBACK TO Delete_Resource_List_Mbr_Pub;
3161:
3162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3163: THEN
3193: -- 04-DEC-96 Update jwhite Applied latest standards.
3194: --
3195:
3196: PROCEDURE Sort_Resource_List_Members
3197: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
3198: p_api_version_number IN NUMBER,
3199: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3200: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
3201: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3195:
3196: PROCEDURE Sort_Resource_List_Members
3197: ( p_commit IN VARCHAR2 := FND_API.G_FALSE,
3198: p_api_version_number IN NUMBER,
3199: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3200: p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
3201: p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
3202: p_resource_group_alias IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
3203: p_sort_by IN VARCHAR2,
3294: SAVEPOINT Sort_Resource_List_Mbr_Pub;
3295:
3296: -- Standard Api compatibility call
3297:
3298: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3299: p_api_version_number ,
3300: l_api_name ,
3301: G_PKG_NAME )
3302: THEN
3299: p_api_version_number ,
3300: l_api_name ,
3301: G_PKG_NAME )
3302: THEN
3303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3304: END IF;
3305: l_resp_id := FND_GLOBAL.Resp_id;
3306:
3307: -- Actions performed using the APIs would be subject to
3318: p_msg_data => l_msg_data,
3319: p_return_status => l_return_status,
3320: p_function_allowed => l_function_allowed );
3321:
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3323: THEN
3324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3325:
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3320: p_function_allowed => l_function_allowed );
3321:
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3323: THEN
3324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3325:
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3327: THEN
3328: RAISE FND_API.G_EXC_ERROR;
3322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3323: THEN
3324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3325:
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3327: THEN
3328: RAISE FND_API.G_EXC_ERROR;
3329: END IF;
3330: IF l_function_allowed = 'N' THEN
3324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3325:
3326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3327: THEN
3328: RAISE FND_API.G_EXC_ERROR;
3329: END IF;
3330: IF l_function_allowed = 'N' THEN
3331: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
3332: FND_MSG_PUB.ADD;
3329: END IF;
3330: IF l_function_allowed = 'N' THEN
3331: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
3332: FND_MSG_PUB.ADD;
3333: p_return_status := FND_API.g_ret_sts_error;
3334: RAISE FND_API.G_EXC_ERROR;
3335: END IF;
3336:
3337: IF FND_API.to_boolean( p_init_msg_list )
3330: IF l_function_allowed = 'N' THEN
3331: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
3332: FND_MSG_PUB.ADD;
3333: p_return_status := FND_API.g_ret_sts_error;
3334: RAISE FND_API.G_EXC_ERROR;
3335: END IF;
3336:
3337: IF FND_API.to_boolean( p_init_msg_list )
3338: THEN
3333: p_return_status := FND_API.g_ret_sts_error;
3334: RAISE FND_API.G_EXC_ERROR;
3335: END IF;
3336:
3337: IF FND_API.to_boolean( p_init_msg_list )
3338: THEN
3339: FND_MSG_PUB.initialize;
3340: END IF;
3341:
3338: THEN
3339: FND_MSG_PUB.initialize;
3340: END IF;
3341:
3342: p_return_status := FND_API.G_RET_STS_SUCCESS;
3343:
3344:
3345: -- VALUE LAYER --------------------------------------------------------------
3346:
3350: p_out_resource_list_id => l_resource_list_id,
3351: p_return_status => l_return_status
3352: );
3353:
3354: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3357: RAISE FND_API.G_EXC_ERROR;
3358: END IF;
3351: p_return_status => l_return_status
3352: );
3353:
3354: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3357: RAISE FND_API.G_EXC_ERROR;
3358: END IF;
3359:
3352: );
3353:
3354: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3357: RAISE FND_API.G_EXC_ERROR;
3358: END IF;
3359:
3360: -- Default Group Alias to Local Variable
3353:
3354: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3356: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3357: RAISE FND_API.G_EXC_ERROR;
3358: END IF;
3359:
3360: -- Default Group Alias to Local Variable
3361: IF (p_resource_group_alias = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
3376: THEN
3377: FND_MESSAGE.SET_NAME('PA','PA_INVALID_SORT_BY');
3378: FND_MSG_PUB.ADD;
3379: END IF;
3380: RAISE FND_API.G_EXC_ERROR;
3381: END IF;
3382:
3383: -- -----------------------------------------------------------------------------------------
3384:
3392: THEN
3393: FND_MESSAGE.SET_NAME('PA','PA_INVALID_RSRC_GROUP_ALIAS');
3394: FND_MSG_PUB.ADD;
3395: END IF;
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3398: CLOSE l_rsrc_grp_csr ;
3399: END IF;
3400:
3459: CLOSE l_rsrc_list_csr;
3460:
3461:
3462:
3463: IF FND_API.to_boolean( p_commit )
3464: THEN
3465: COMMIT;
3466: END IF;
3467:
3466: END IF;
3467:
3468: EXCEPTION
3469:
3470: WHEN FND_API.G_EXC_ERROR THEN
3471:
3472: p_return_status := FND_API.G_RET_STS_ERROR ;
3473: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3474:
3468: EXCEPTION
3469:
3470: WHEN FND_API.G_EXC_ERROR THEN
3471:
3472: p_return_status := FND_API.G_RET_STS_ERROR ;
3473: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3474:
3475: FND_MSG_PUB.Count_And_Get
3476: ( p_count => p_msg_count ,
3475: FND_MSG_PUB.Count_And_Get
3476: ( p_count => p_msg_count ,
3477: p_data => p_msg_data );
3478:
3479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3480:
3481: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3482: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3483:
3477: p_data => p_msg_data );
3478:
3479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3480:
3481: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3482: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3483:
3484: FND_MSG_PUB.Count_And_Get
3485: ( p_count => p_msg_count ,
3486: p_data => p_msg_data );
3487:
3488: WHEN ROW_ALREADY_LOCKED THEN
3489:
3490: p_return_status := FND_API.G_RET_STS_ERROR ;
3491: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3492:
3493: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3494: THEN
3502: p_data => p_msg_data );
3503:
3504: WHEN OTHERS THEN
3505:
3506: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3507: ROLLBACK TO Sort_Resource_List_Mbr_Pub;
3508:
3509: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3510: FND_MSG_PUB.Add_Exc_Msg
3613: WHERE resource_list_id = p_resource_list_id;
3614:
3615:
3616: BEGIN
3617: p_return_status := FND_API.G_RET_STS_SUCCESS;
3618:
3619: IF p_resource_list_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
3620: -- Validate Passed Resource_List_Id
3621:
3629: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_id);
3630: FND_MSG_PUB.ADD;
3631: END IF;
3632: CLOSE l_resource_list_csr;
3633: RAISE FND_API.G_EXC_ERROR;
3634: ELSE
3635: CLOSE l_resource_list_csr;
3636: p_out_resource_list_id := p_resource_list_id;
3637: END IF;
3649: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
3650: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Resource List Name');
3651: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_resource_list_name);
3652: FND_MSG_PUB.ADD;
3653: RAISE FND_API.G_EXC_ERROR;
3654: END IF;
3655: ELSE
3656: p_out_resource_list_id := l_resource_list_id;
3657: END IF;
3659: END IF; -- If p_resource_list_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3660:
3661: EXCEPTION
3662:
3663: WHEN FND_API.G_EXC_ERROR THEN
3664:
3665: p_return_status := FND_API.G_RET_STS_ERROR ;
3666:
3667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3661: EXCEPTION
3662:
3663: WHEN FND_API.G_EXC_ERROR THEN
3664:
3665: p_return_status := FND_API.G_RET_STS_ERROR ;
3666:
3667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3668:
3669: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3663: WHEN FND_API.G_EXC_ERROR THEN
3664:
3665: p_return_status := FND_API.G_RET_STS_ERROR ;
3666:
3667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3668:
3669: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3670:
3671:
3665: p_return_status := FND_API.G_RET_STS_ERROR ;
3666:
3667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3668:
3669: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3670:
3671:
3672: WHEN OTHERS THEN
3673:
3670:
3671:
3672: WHEN OTHERS THEN
3673:
3674: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3675: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3676:
3677: FND_MSG_PUB.Add_Exc_Msg
3678: ( p_pkg_name => G_PKG_NAME ,
3787: AND nvl(object_id, -99) = nvl(p_object_id, -99)
3788: AND nvl(object_type, 'D') = nvl(p_object_type, 'D');
3789:
3790: BEGIN
3791: p_return_status := FND_API.G_RET_STS_SUCCESS;
3792:
3793: SELECT migration_code, control_flag
3794: INTO l_migration_code, l_control_flag
3795: FROM pa_resource_lists_all_bg
3800: l_object_type := 'RESOURCE_LIST';
3801: l_object_id := p_resource_list_id;
3802: ELSE
3803: IF p_project_id IS NULL THEN
3804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3805: END IF;
3806: l_object_type := 'PROJECT';
3807: l_object_id := p_project_id;
3808: END IF;
3825: FND_MESSAGE.SET_TOKEN('ATTR_VALUE', p_resource_list_member_id);
3826: FND_MSG_PUB.ADD;
3827: END IF;
3828: CLOSE l_resource_list_members_csr;
3829: RAISE FND_API.G_EXC_ERROR;
3830: ELSE
3831: CLOSE l_resource_list_members_csr;
3832: p_out_resource_list_member_id := p_resource_list_member_id;
3833: END IF;
3862: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Alias');
3863: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_alias);
3864: FND_MSG_PUB.ADD;
3865: END IF;
3866: RAISE FND_API.G_EXC_ERROR;
3867:
3868: ELSE
3869: p_out_resource_list_member_id := l_resource_list_member_id;
3870: END IF;
3872: END IF; -- IF p_resource_list_member_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3873:
3874: EXCEPTION
3875:
3876: WHEN FND_API.G_EXC_ERROR THEN
3877:
3878: p_return_status := FND_API.G_RET_STS_ERROR ;
3879:
3880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3874: EXCEPTION
3875:
3876: WHEN FND_API.G_EXC_ERROR THEN
3877:
3878: p_return_status := FND_API.G_RET_STS_ERROR ;
3879:
3880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3881:
3882: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3876: WHEN FND_API.G_EXC_ERROR THEN
3877:
3878: p_return_status := FND_API.G_RET_STS_ERROR ;
3879:
3880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3881:
3882: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3883:
3884: WHEN OTHERS THEN
3878: p_return_status := FND_API.G_RET_STS_ERROR ;
3879:
3880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3881:
3882: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3883:
3884: WHEN OTHERS THEN
3885:
3886: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3882: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3883:
3884: WHEN OTHERS THEN
3885:
3886: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3887:
3888: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3889:
3890: FND_MSG_PUB.Add_Exc_Msg
3959:
3960:
3961: BEGIN
3962:
3963: p_return_status := FND_API.G_RET_STS_SUCCESS;
3964:
3965: IF (p_resource_type_code = 'EMPLOYEE') THEN
3966: -- Validate Passed person_id
3967:
3973: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EMPLOYEE');
3974: FND_MSG_PUB.ADD;
3975: END IF;
3976: CLOSE l_emp_csr;
3977: RAISE FND_API.G_EXC_ERROR;
3978: ELSE
3979: CLOSE l_emp_csr;
3980: END IF;
3981:
3990: FND_MESSAGE.SET_NAME('PA','PA_INVALID_JOB');
3991: FND_MSG_PUB.ADD;
3992: END IF;
3993: CLOSE l_job_csr;
3994: RAISE FND_API.G_EXC_ERROR;
3995: ELSE
3996: CLOSE l_job_csr;
3997: END IF;
3998:
4007: FND_MESSAGE.SET_NAME('PA','PA_INVALID_ORGANIZATION');
4008: FND_MSG_PUB.ADD;
4009: END IF;
4010: CLOSE l_org_csr;
4011: RAISE FND_API.G_EXC_ERROR;
4012: ELSE
4013: CLOSE l_org_csr;
4014: END IF;
4015:
4024: FND_MESSAGE.SET_NAME('PA','PA_INVALID_VENDOR');
4025: FND_MSG_PUB.ADD;
4026: END IF;
4027: CLOSE l_vendor_csr;
4028: RAISE FND_API.G_EXC_ERROR;
4029: ELSE
4030: CLOSE l_vendor_csr;
4031: END IF;
4032:
4041: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EXPENDITURE_TYPE');
4042: FND_MSG_PUB.ADD;
4043: END IF;
4044: CLOSE l_exp_type_csr;
4045: RAISE FND_API.G_EXC_ERROR;
4046: ELSE
4047: CLOSE l_exp_type_csr;
4048: END IF;
4049:
4058: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EXP_CATEGORY');
4059: FND_MSG_PUB.ADD;
4060: END IF;
4061: CLOSE l_exp_category_csr;
4062: RAISE FND_API.G_EXC_ERROR;
4063: ELSE
4064: CLOSE l_exp_category_csr;
4065: END IF;
4066:
4075: FND_MESSAGE.SET_NAME('PA','PA_INVALID_EVENT_TYPE');
4076: FND_MSG_PUB.ADD;
4077: END IF;
4078: CLOSE l_exp_type_csr;
4079: RAISE FND_API.G_EXC_ERROR;
4080: ELSE
4081: CLOSE l_event_type_csr;
4082: END IF;
4083:
4092: FND_MESSAGE.SET_NAME('PA','PA_INVALID_REV_CATEG');
4093: FND_MSG_PUB.ADD;
4094: END IF;
4095: CLOSE l_rev_category_csr;
4096: RAISE FND_API.G_EXC_ERROR;
4097: ELSE
4098: CLOSE l_rev_category_csr;
4099: END IF;
4100: END IF;
4100: END IF;
4101:
4102: EXCEPTION
4103:
4104: WHEN FND_API.G_EXC_ERROR THEN
4105:
4106: p_return_status := FND_API.G_RET_STS_ERROR ;
4107:
4108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: EXCEPTION
4103:
4104: WHEN FND_API.G_EXC_ERROR THEN
4105:
4106: p_return_status := FND_API.G_RET_STS_ERROR ;
4107:
4108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4109:
4110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4104: WHEN FND_API.G_EXC_ERROR THEN
4105:
4106: p_return_status := FND_API.G_RET_STS_ERROR ;
4107:
4108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4109:
4110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4111:
4112: WHEN OTHERS THEN
4106: p_return_status := FND_API.G_RET_STS_ERROR ;
4107:
4108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4109:
4110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4111:
4112: WHEN OTHERS THEN
4113:
4114: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4111:
4112: WHEN OTHERS THEN
4113:
4114: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4115:
4116: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4117:
4118: FND_MSG_PUB.Add_Exc_Msg