[Home] [Help]
PACKAGE BODY: APPS.PA_ROLE_LIST_MEMBERS_PVT
Source
1 package body PA_ROLE_LIST_MEMBERS_PVT AS
2 /* $Header: PARLMPVB.pls 120.1 2005/08/19 16:55:21 mwasowic noship $ */
3 ------------------------------------------------------------------------------
4 procedure INSERT_ROW (
5 P_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 P_ROLE_LIST_ID NUMBER,
7 P_PROJECT_ROLE_ID NUMBER,
8 P_CREATION_DATE DATE,
9 P_CREATED_BY NUMBER,
10 P_LAST_UPDATE_DATE DATE,
11 P_LAST_UPDATED_BY NUMBER,
12 P_LAST_UPDATE_LOGIN NUMBER,
13 X_RETURN_STATUS out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
14 X_MSG_COUNT out NOCOPY NUMBER, --File.Sql.39 bug 4440895
15 X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
16 ) is
17 begin
18 PA_DEBUG.init_err_stack('PA_ROLE_LIST_MEMBERS_PVT.INSERT_ROW');
19 --any validation to be added here ?
20 --call table handler to insert the row
21 PA_ROLE_LIST_MEMBERS_PKG.INSERT_ROW(
22 P_ROWID,
23 P_ROLE_LIST_ID,
24 P_PROJECT_ROLE_ID,
25 P_CREATION_DATE,
26 P_CREATED_BY,
27 P_LAST_UPDATE_DATE,
28 P_LAST_UPDATED_BY,
29 P_LAST_UPDATE_LOGIN);
30
31 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
32 X_MSG_COUNT := 0;
33 X_MSG_DATA := NULL;
34 PA_DEBUG.reset_err_stack;
35
36 exception
37 when others then
38 X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
39 X_MSG_COUNT := 1;
40 X_MSG_DATA := substr(SQLERRM, 1, 240);
41 FND_MSG_PUB.add_exc_msg(
42 p_pkg_name => 'PA_ROLE_LIST_MEMBERS_PVT',
43 p_procedure_name => PA_DEBUG.G_err_stack,
44 p_error_text => X_MSG_DATA);
45 end;
46
47 ------------------------------------------------------------------------------
48 procedure LOCK_ROW (
49 P_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
50 P_RECORD_VERSION_NUMBER NUMBER,
51 X_RETURN_STATUS out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
52 X_MSG_COUNT out NOCOPY NUMBER, --File.Sql.39 bug 4440895
53 X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
54 ) is
55 begin
56 PA_DEBUG.init_err_stack('PA_ROLE_LIST_MEMBERS_PVT.LOCK_ROW');
57 --any validation to be added here ?
58 --call table handler to lock the row
59 PA_ROLE_LIST_MEMBERS_PKG.LOCK_ROW(
60 P_ROWID,
61 P_RECORD_VERSION_NUMBER);
62
63 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
64 X_MSG_COUNT := 0;
65 X_MSG_DATA := NULL;
66 PA_DEBUG.reset_err_stack;
67
68 exception
69 when others then
70 X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
71 X_MSG_COUNT := 1;
72 X_MSG_DATA := substr(SQLERRM, 1, 240);
73 FND_MSG_PUB.add_exc_msg(
74 p_pkg_name => 'PA_ROLE_LIST_MEMBERS_PVT',
75 p_procedure_name => PA_DEBUG.G_err_stack,
76 p_error_text => X_MSG_DATA);
77 end;
78
79 ------------------------------------------------------------------------------
80 procedure UPDATE_ROW (
81 P_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
82 P_ROLE_LIST_ID NUMBER,
83 P_PROJECT_ROLE_ID VARCHAR2,
84 P_CREATION_DATE DATE,
85 P_CREATED_BY NUMBER,
86 P_LAST_UPDATE_DATE DATE,
87 P_LAST_UPDATED_BY NUMBER,
88 P_LAST_UPDATE_LOGIN NUMBER,
89 X_RETURN_STATUS out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
90 X_MSG_COUNT out NOCOPY NUMBER, --File.Sql.39 bug 4440895
91 X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
92 ) is
93 begin
94 PA_DEBUG.init_err_stack('PA_ROLE_LIST_MEMBERS_PVT.UPDATE_ROW');
95 --any validation to be added here ?
96 --call table handler to update the row
97 PA_ROLE_LIST_MEMBERS_PKG.UPDATE_ROW(
98 P_ROWID,
99 P_ROLE_LIST_ID,
100 P_PROJECT_ROLE_ID,
101 P_CREATION_DATE,
102 P_CREATED_BY,
103 P_LAST_UPDATE_DATE,
104 P_LAST_UPDATED_BY,
105 P_LAST_UPDATE_LOGIN);
106
107 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
108 X_MSG_COUNT := 0;
109 X_MSG_DATA := NULL;
110 PA_DEBUG.reset_err_stack;
111
112 exception
113 when others then
114 X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
115 X_MSG_COUNT := 1;
116 X_MSG_DATA := substr(SQLERRM, 1, 240);
117 FND_MSG_PUB.add_exc_msg(
118 p_pkg_name => 'PA_ROLE_LIST_MEMBERS_PVT',
119 p_procedure_name => PA_DEBUG.G_err_stack,
120 p_error_text => X_MSG_DATA);
121 end;
122
123 ------------------------------------------------------------------------------
124 procedure DELETE_ROW (
125 P_ROWID VARCHAR2,
126 X_RETURN_STATUS out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
127 X_MSG_COUNT out NOCOPY NUMBER, --File.Sql.39 bug 4440895
128 X_MSG_DATA out NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
129 ) is
130 v_role_list_id number;
131 begin
132 PA_DEBUG.init_err_stack('PA_ROLE_LIST_MEMBERS_PVT.DELETE_ROW');
133 --any validation to be added here ?
134 --call table handler to delete the row
135 PA_ROLE_LIST_MEMBERS_PKG.DELETE_ROW(P_ROWID);
136
137 X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
138 X_MSG_COUNT := 0;
139 X_MSG_DATA := NULL;
140 PA_DEBUG.reset_err_stack;
141
142 exception
143 when others then
144 X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
145 X_MSG_COUNT := 1;
146 X_MSG_DATA := substr(SQLERRM, 1, 240);
147 FND_MSG_PUB.add_exc_msg(
148 p_pkg_name => 'PA_ROLE_LIST_MEMBERS_PVT',
149 p_procedure_name => PA_DEBUG.G_err_stack,
150 p_error_text => X_MSG_DATA);
151 end;
152
153 end PA_ROLE_LIST_MEMBERS_PVT;