[Home] [Help]
PACKAGE BODY: APPS.PA_STATUS_LISTS_PUB
Source
1 PACKAGE BODY pa_status_lists_pub AS
2 /* $Header: PACISLPB.pls 120.1 2005/08/19 16:18:31 mwasowic noship $ */
3
4 -- --------------------------------------------------------------------------
5 -- PROCEDURE
6 -- CreateStatusList
7 -- PURPOSE
8 -- This procedure inserts a row into the pa_role_controls table.
9 --
10 -- HISTORY
11 -- 16-JAN-04 rasinha Created
12 --
13
14 PROCEDURE CreateStatusList (
15 P_RECORD_VERSION_NUMBER IN NUMBER,
16 P_STATUS_LIST_ID IN NUMBER,
17 P_STATUS_TYPE IN VARCHAR2,
18 P_NAME IN VARCHAR2,
19 P_START_DATE_ACTIVE IN DATE,
20 P_END_DATE_ACTIVE IN DATE,
21 P_DESCRIPTION IN VARCHAR2,
22 P_LAST_UPDATE_DATE IN DATE,
23 P_LAST_UPDATED_BY IN NUMBER,
24 P_CREATION_DATE IN DATE,
25 P_CREATED_BY IN NUMBER,
26 P_LAST_UPDATE_LOGIN IN NUMBER,
27 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
28 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
29 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
30 ) IS
31
32 BEGIN
33
34 -- Initialize the Error Stack
35 PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PUB.Insert_Row');
36 x_msg_count := 0;
37 x_msg_data := NULL;
38
39 -- Initialize the return status to success
40 x_return_status := FND_API.G_RET_STS_SUCCESS;
41
42 PA_STATUS_LISTS_PVT.CreateStatusList
43 (
44 P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
45 P_STATUS_LIST_ID => P_STATUS_LIST_ID,
46 P_STATUS_TYPE => P_STATUS_TYPE,
47 P_NAME => P_NAME,
48 P_START_DATE_ACTIVE => P_START_DATE_ACTIVE,
49 P_END_DATE_ACTIVE => P_END_DATE_ACTIVE,
50 P_DESCRIPTION => P_DESCRIPTION,
51 P_CREATION_DATE => P_CREATION_DATE,
52 P_CREATED_BY => P_CREATED_BY,
53 P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
54 P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
55 P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN,
56 X_RETURN_STATUS => X_RETURN_STATUS,
57 X_MSG_COUNT => X_MSG_COUNT,
58 X_MSG_DATA => X_MSG_DATA
59 );
60 -- Reset the Error Stack
61 PA_DEBUG.reset_err_stack;
62
63 EXCEPTION
64 WHEN OTHERS THEN
65 x_msg_count := 1;
66 x_msg_data := substr(SQLERRM,1,240);
67 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
68 FND_MSG_PUB.add_exc_msg
69 (p_pkg_name => 'PA_STATUS_LISTS_PUB'
70 , p_procedure_name => PA_DEBUG.G_Err_Stack
71 , p_error_text => substr(SQLERRM,1,240));
72 RETURN;
73
74 END CreateStatusList;
75
76
77
78 -- -------------------------------------------------------------------------
79 -- PROCEDURE
80 -- UpdateStatusList
81 -- PURPOSE
82 -- This procedure updates a row in the pa_status_lists table.
83 --
84 -- HISTORY
85 -- 16-JAN-04 rasinha Created
86
87 PROCEDURE UpdateStatusList (
88 P_RECORD_VERSION_NUMBER IN NUMBER,
89 P_STATUS_LIST_ID IN NUMBER,
90 P_STATUS_TYPE IN VARCHAR2,
91 P_NAME IN VARCHAR2,
92 P_START_DATE_ACTIVE IN DATE,
93 P_END_DATE_ACTIVE IN DATE,
94 P_DESCRIPTION IN VARCHAR2,
95 P_LAST_UPDATE_DATE IN DATE,
96 P_LAST_UPDATED_BY IN NUMBER,
97 P_LAST_UPDATE_LOGIN IN NUMBER,
98 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
99 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
100 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
101 ) IS
102
103 BEGIN
104
105 -- Initialize the Error Stack
106 PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PUB.Update_Row');
107 x_msg_count := 0;
108 x_msg_data := NULL;
109
110 -- Initialize the return status to success
111 x_return_status := FND_API.G_RET_STS_SUCCESS;
112
113 PA_STATUS_LISTS_PVT.UpdateStatusList
114 (
115 P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
116 P_STATUS_LIST_ID => P_STATUS_LIST_ID,
117 P_STATUS_TYPE => P_STATUS_TYPE,
118 P_NAME => P_NAME,
119 P_START_DATE_ACTIVE => P_START_DATE_ACTIVE,
120 P_END_DATE_ACTIVE => P_END_DATE_ACTIVE,
121 P_DESCRIPTION => P_DESCRIPTION,
122 P_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
123 P_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
124 P_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN,
125 X_RETURN_STATUS => X_RETURN_STATUS,
126 X_MSG_COUNT => X_MSG_COUNT,
127 X_MSG_DATA => X_MSG_DATA
128 );
129
130 -- Reset the Error Stack
131 PA_DEBUG.reset_err_stack;
132
133 EXCEPTION
134 WHEN OTHERS THEN
135 x_msg_count := 1;
136 x_msg_data := substr(SQLERRM,1,240);
137 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138 FND_MSG_PUB.add_exc_msg
139 (p_pkg_name => 'PA_STATUS_LISTS_PUB'
140 , p_procedure_name => PA_DEBUG.G_Err_Stack
141 , p_error_text => substr(SQLERRM,1,240));
142 RETURN;
143
144 END UpdateStatusList;
145
146
147 -- ---------------------------------------------------------------------
148 -- PROCEDURE
149 -- DeleteStatusList
150 -- PURPOSE
151 -- This procedure deletes a row in the pa_status_lists table.
152 --
153 -- If a row is deleted, this API returns (S)uccess for the
154 -- x_return_status.
155 --
156 -- HISTORY
157 -- 16-JAN-04 rasinha Created
158 --
159
160 PROCEDURE DeleteStatusList (
161 P_STATUS_LIST_ID IN NUMBER,
162 P_RECORD_VERSION_NUMBER IN NUMBER,
163 X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
164 X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
165 X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
166 )
167 IS
168 BEGIN
169
170
171 -- Initialize the Error Stack
172 PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PUB.Delete_Row');
173 x_msg_count := 0;
174 x_msg_data := NULL;
175
176 -- Initialize the return status to success
177 x_return_status := FND_API.G_RET_STS_SUCCESS;
178
179
180 -- Delete Role
181 PA_STATUS_LISTS_PVT.DeleteStatusList
182 ( P_STATUS_LIST_ID => P_STATUS_LIST_ID,
183 P_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
184 X_RETURN_STATUS => X_RETURN_STATUS,
185 X_MSG_COUNT => X_MSG_COUNT,
186 X_MSG_DATA => X_MSG_DATA
187 );
188
189 -- Reset the Error Stack
190 PA_DEBUG.reset_err_stack;
191
192 EXCEPTION
193 WHEN OTHERS THEN
194 x_msg_count := 1;
195 x_msg_data := substr(SQLERRM,1,240);
196 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197 FND_MSG_PUB.add_exc_msg
198 (p_pkg_name => 'PA_STATUS_LISTS_PUB'
199 , p_procedure_name => PA_DEBUG.G_Err_Stack
200 , p_error_text => substr(SQLERRM,1,240));
201 RETURN;
202
203 END DeleteStatusList;
204
205
206 END pa_status_lists_pub;