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