[Home] [Help]
PACKAGE BODY: APPS.CSP_PICKLIST_HEADERS_PKG
Source
1 PACKAGE BODY CSP_PICKLIST_HEADERS_PKG AS
2 /* $Header: cspttphb.pls 115.8 2002/11/26 07:50:49 hhaugeru ship $ */
3 -- Start of Comments
4 -- Package name : CSP_PICKLIST_HEADERS_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_PICKLIST_HEADERS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspttphb.pls';
13
14 PROCEDURE Insert_Row(
15 px_picklist_header_id IN OUT NOCOPY NUMBER,
16 p_CREATED_BY NUMBER,
17 p_CREATION_DATE DATE,
18 p_LAST_UPDATED_BY NUMBER,
19 p_LAST_UPDATE_DATE DATE,
20 p_LAST_UPDATE_LOGIN NUMBER,
21 p_ORGANIZATION_ID NUMBER,
22 p_PICKLIST_NUMBER VARCHAR2,
23 p_PICKLIST_STATUS VARCHAR2,
24 p_DATE_CREATED DATE,
25 p_DATE_CONFIRMED DATE,
26 p_ATTRIBUTE_CATEGORY VARCHAR2,
27 p_ATTRIBUTE1 VARCHAR2,
28 p_ATTRIBUTE2 VARCHAR2,
29 p_ATTRIBUTE3 VARCHAR2,
30 p_ATTRIBUTE4 VARCHAR2,
31 p_ATTRIBUTE5 VARCHAR2,
32 p_ATTRIBUTE6 VARCHAR2,
33 p_ATTRIBUTE7 VARCHAR2,
34 p_ATTRIBUTE8 VARCHAR2,
35 p_ATTRIBUTE9 VARCHAR2,
36 p_ATTRIBUTE10 VARCHAR2,
37 p_ATTRIBUTE11 VARCHAR2,
38 p_ATTRIBUTE12 VARCHAR2,
39 p_ATTRIBUTE13 VARCHAR2,
40 p_ATTRIBUTE14 VARCHAR2,
41 p_ATTRIBUTE15 VARCHAR2)
42
43 IS
44 CURSOR C2 IS SELECT CSP_PICKLIST_HEADERS_S1.nextval FROM sys.dual;
45 BEGIN
46 If (px_picklist_header_id IS NULL) OR (px_picklist_header_id = FND_API.G_MISS_NUM) then
47 OPEN C2;
48 FETCH C2 INTO px_picklist_header_id;
49 CLOSE C2;
50 End If;
51 INSERT INTO CSP_PICKLIST_HEADERS(
52 picklist_header_id,
53 CREATED_BY,
54 CREATION_DATE,
55 LAST_UPDATED_BY,
56 LAST_UPDATE_DATE,
57 LAST_UPDATE_LOGIN,
58 ORGANIZATION_ID,
59 PICKLIST_NUMBER,
60 PICKLIST_STATUS,
61 DATE_CREATED,
62 DATE_CONFIRMED,
63 ATTRIBUTE_CATEGORY,
64 ATTRIBUTE1,
65 ATTRIBUTE2,
66 ATTRIBUTE3,
67 ATTRIBUTE4,
68 ATTRIBUTE5,
69 ATTRIBUTE6,
70 ATTRIBUTE7,
71 ATTRIBUTE8,
72 ATTRIBUTE9,
73 ATTRIBUTE10,
74 ATTRIBUTE11,
75 ATTRIBUTE12,
76 ATTRIBUTE13,
77 ATTRIBUTE14,
78 ATTRIBUTE15
79 ) VALUES (
80 px_picklist_header_id,
81 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
82 decode(p_CREATION_DATE,fnd_api.g_miss_date,to_date(null),p_creation_date),
83 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
84 decode(p_LAST_UPDATE_DATE,fnd_api.g_miss_date,to_date(null),p_last_update_date),
85 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
86 decode( p_ORGANIZATION_ID, FND_API.G_MISS_NUM, NULL, p_ORGANIZATION_ID),
87 decode( p_PICKLIST_NUMBER, FND_API.G_MISS_CHAR, NULL, p_PICKLIST_NUMBER),
88 decode( p_PICKLIST_STATUS, FND_API.G_MISS_CHAR, NULL, p_PICKLIST_STATUS),
89 decode( p_DATE_CREATED, FND_API.G_MISS_DATE, to_date(null), p_DATE_CREATED),
90 decode( p_DATE_CONFIRMED, FND_API.G_MISS_DATE, to_date(null), p_DATE_CONFIRMED),
91 decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY),
92 decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
93 decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
94 decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
95 decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
96 decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
97 decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
98 decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
99 decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
100 decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
101 decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
102 decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
103 decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
104 decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
105 decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
106 decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15));
107 End Insert_Row;
108
109 PROCEDURE Update_Row(
110 p_picklist_header_id NUMBER,
111 p_CREATED_BY NUMBER,
112 p_CREATION_DATE DATE,
113 p_LAST_UPDATED_BY NUMBER,
114 p_LAST_UPDATE_DATE DATE,
115 p_LAST_UPDATE_LOGIN NUMBER,
116 p_ORGANIZATION_ID NUMBER,
117 p_PICKLIST_NUMBER VARCHAR2,
118 p_PICKLIST_STATUS VARCHAR2,
119 p_DATE_CREATED DATE,
120 p_DATE_CONFIRMED DATE,
121 p_ATTRIBUTE_CATEGORY VARCHAR2,
122 p_ATTRIBUTE1 VARCHAR2,
123 p_ATTRIBUTE2 VARCHAR2,
124 p_ATTRIBUTE3 VARCHAR2,
125 p_ATTRIBUTE4 VARCHAR2,
126 p_ATTRIBUTE5 VARCHAR2,
127 p_ATTRIBUTE6 VARCHAR2,
128 p_ATTRIBUTE7 VARCHAR2,
129 p_ATTRIBUTE8 VARCHAR2,
130 p_ATTRIBUTE9 VARCHAR2,
131 p_ATTRIBUTE10 VARCHAR2,
132 p_ATTRIBUTE11 VARCHAR2,
133 p_ATTRIBUTE12 VARCHAR2,
134 p_ATTRIBUTE13 VARCHAR2,
135 p_ATTRIBUTE14 VARCHAR2,
136 p_ATTRIBUTE15 VARCHAR2)
137
138 IS
139 BEGIN
140 Update CSP_PICKLIST_HEADERS
141 SET
142 CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
143 CREATION_DATE = decode(p_CREATION_DATE,fnd_api.g_miss_date,creation_date,p_creation_date),
144 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
145 LAST_UPDATE_DATE = decode(p_LAST_UPDATE_DATE,fnd_api.g_miss_date,last_update_date,p_last_update_date),
146 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
147 ORGANIZATION_ID = decode( p_ORGANIZATION_ID, FND_API.G_MISS_NUM, ORGANIZATION_ID, p_ORGANIZATION_ID),
148 PICKLIST_NUMBER = decode( p_PICKLIST_NUMBER, FND_API.G_MISS_CHAR, PICKLIST_NUMBER, p_PICKLIST_NUMBER),
149 PICKLIST_STATUS = decode( p_PICKLIST_STATUS, FND_API.G_MISS_CHAR, PICKLIST_STATUS, p_PICKLIST_STATUS),
150 DATE_CREATED = decode( p_DATE_CREATED, FND_API.G_MISS_DATE, DATE_CREATED, p_DATE_CREATED),
151 DATE_CONFIRMED = decode( p_DATE_CONFIRMED, FND_API.G_MISS_DATE, DATE_CONFIRMED, p_DATE_CONFIRMED),
152 ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY),
153 ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
154 ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
155 ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
156 ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
157 ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
158 ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
159 ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
160 ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
161 ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
162 ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
163 ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
164 ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
165 ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
166 ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
167 ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15)
168 where picklist_header_id = p_picklist_header_id;
169
170 If (SQL%NOTFOUND) then
171 RAISE NO_DATA_FOUND;
172 End If;
173 END Update_Row;
174
175 PROCEDURE Delete_Row(
176 p_picklist_header_id NUMBER)
177 IS
178 BEGIN
179 DELETE FROM CSP_PICKLIST_HEADERS
180 WHERE picklist_header_id = p_picklist_header_id;
181 If (SQL%NOTFOUND) then
182 RAISE NO_DATA_FOUND;
183 End If;
184 END Delete_Row;
185
186 PROCEDURE Lock_Row(
187 p_picklist_header_id NUMBER,
188 p_CREATED_BY NUMBER,
189 p_CREATION_DATE DATE,
190 p_LAST_UPDATED_BY NUMBER,
191 p_LAST_UPDATE_DATE DATE,
192 p_LAST_UPDATE_LOGIN NUMBER,
193 p_ORGANIZATION_ID NUMBER,
194 p_PICKLIST_NUMBER VARCHAR2,
195 p_PICKLIST_STATUS VARCHAR2,
196 p_DATE_CREATED DATE,
197 p_DATE_CONFIRMED DATE,
198 p_ATTRIBUTE_CATEGORY VARCHAR2,
199 p_ATTRIBUTE1 VARCHAR2,
200 p_ATTRIBUTE2 VARCHAR2,
201 p_ATTRIBUTE3 VARCHAR2,
202 p_ATTRIBUTE4 VARCHAR2,
203 p_ATTRIBUTE5 VARCHAR2,
204 p_ATTRIBUTE6 VARCHAR2,
205 p_ATTRIBUTE7 VARCHAR2,
206 p_ATTRIBUTE8 VARCHAR2,
207 p_ATTRIBUTE9 VARCHAR2,
208 p_ATTRIBUTE10 VARCHAR2,
209 p_ATTRIBUTE11 VARCHAR2,
210 p_ATTRIBUTE12 VARCHAR2,
211 p_ATTRIBUTE13 VARCHAR2,
212 p_ATTRIBUTE14 VARCHAR2,
213 p_ATTRIBUTE15 VARCHAR2)
214
215 IS
216 CURSOR C IS
217 SELECT *
218 FROM CSP_PICKLIST_HEADERS
219 WHERE picklist_header_id = p_picklist_header_id
220 FOR UPDATE of picklist_header_id NOWAIT;
221 Recinfo C%ROWTYPE;
222 BEGIN
223 OPEN C;
224 FETCH C INTO Recinfo;
225 If (C%NOTFOUND) then
226 CLOSE C;
227 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
228 APP_EXCEPTION.RAISE_EXCEPTION;
229 End If;
230 CLOSE C;
231 if (
232 ( Recinfo.picklist_header_id = p_picklist_header_id)
233 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
234 OR ( ( Recinfo.CREATED_BY IS NULL )
235 AND ( p_CREATED_BY IS NULL )))
236 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
237 OR ( ( Recinfo.CREATION_DATE IS NULL )
238 AND ( p_CREATION_DATE IS NULL )))
239 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
240 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
241 AND ( p_LAST_UPDATED_BY IS NULL )))
242 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
243 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
244 AND ( p_LAST_UPDATE_DATE IS NULL )))
245 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
246 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
247 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
248 AND ( ( Recinfo.ORGANIZATION_ID = p_ORGANIZATION_ID)
249 OR ( ( Recinfo.ORGANIZATION_ID IS NULL )
250 AND ( p_ORGANIZATION_ID IS NULL )))
251 AND ( ( Recinfo.PICKLIST_NUMBER = p_PICKLIST_NUMBER)
252 OR ( ( Recinfo.PICKLIST_NUMBER IS NULL )
253 AND ( p_PICKLIST_NUMBER IS NULL )))
254 AND ( ( Recinfo.PICKLIST_STATUS = p_PICKLIST_STATUS)
255 OR ( ( Recinfo.PICKLIST_STATUS IS NULL )
256 AND ( p_PICKLIST_STATUS IS NULL )))
257 AND ( ( Recinfo.DATE_CREATED = p_DATE_CREATED)
258 OR ( ( Recinfo.DATE_CREATED IS NULL )
259 AND ( p_DATE_CREATED IS NULL )))
260 AND ( ( Recinfo.DATE_CONFIRMED = p_DATE_CONFIRMED)
261 OR ( ( Recinfo.DATE_CONFIRMED IS NULL )
262 AND ( p_DATE_CONFIRMED IS NULL )))
263 AND ( ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
264 OR ( ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
265 AND ( p_ATTRIBUTE_CATEGORY IS NULL )))
266 AND ( ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
267 OR ( ( Recinfo.ATTRIBUTE1 IS NULL )
268 AND ( p_ATTRIBUTE1 IS NULL )))
269 AND ( ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
270 OR ( ( Recinfo.ATTRIBUTE2 IS NULL )
271 AND ( p_ATTRIBUTE2 IS NULL )))
272 AND ( ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
273 OR ( ( Recinfo.ATTRIBUTE3 IS NULL )
274 AND ( p_ATTRIBUTE3 IS NULL )))
275 AND ( ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
276 OR ( ( Recinfo.ATTRIBUTE4 IS NULL )
277 AND ( p_ATTRIBUTE4 IS NULL )))
278 AND ( ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
279 OR ( ( Recinfo.ATTRIBUTE5 IS NULL )
280 AND ( p_ATTRIBUTE5 IS NULL )))
281 AND ( ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
282 OR ( ( Recinfo.ATTRIBUTE6 IS NULL )
283 AND ( p_ATTRIBUTE6 IS NULL )))
284 AND ( ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
285 OR ( ( Recinfo.ATTRIBUTE7 IS NULL )
286 AND ( p_ATTRIBUTE7 IS NULL )))
287 AND ( ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
288 OR ( ( Recinfo.ATTRIBUTE8 IS NULL )
289 AND ( p_ATTRIBUTE8 IS NULL )))
290 AND ( ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
291 OR ( ( Recinfo.ATTRIBUTE9 IS NULL )
292 AND ( p_ATTRIBUTE9 IS NULL )))
293 AND ( ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
294 OR ( ( Recinfo.ATTRIBUTE10 IS NULL )
295 AND ( p_ATTRIBUTE10 IS NULL )))
296 AND ( ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
297 OR ( ( Recinfo.ATTRIBUTE11 IS NULL )
298 AND ( p_ATTRIBUTE11 IS NULL )))
299 AND ( ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
300 OR ( ( Recinfo.ATTRIBUTE12 IS NULL )
301 AND ( p_ATTRIBUTE12 IS NULL )))
302 AND ( ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
303 OR ( ( Recinfo.ATTRIBUTE13 IS NULL )
304 AND ( p_ATTRIBUTE13 IS NULL )))
305 AND ( ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
306 OR ( ( Recinfo.ATTRIBUTE14 IS NULL )
307 AND ( p_ATTRIBUTE14 IS NULL )))
308 AND ( ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
309 OR ( ( Recinfo.ATTRIBUTE15 IS NULL )
310 AND ( p_ATTRIBUTE15 IS NULL )))
311 ) then
312 return;
313 else
314 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
315 APP_EXCEPTION.RAISE_EXCEPTION;
316 End If;
317 END Lock_Row;
318
319 End CSP_PICKLIST_HEADERS_PKG;