[Home] [Help]
PACKAGE BODY: APPS.IEX_PAYMENTS_PKG
Source
1 PACKAGE BODY IEX_PAYMENTS_PKG AS
2 /* $Header: iextpayb.pls 120.0 2004/01/24 03:22:24 appldev noship $ */
3
4 /* Insert_Row procedure */
5 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
6
7 PROCEDURE Insert_Row(x_rowid IN OUT NOCOPY VARCHAR2
8 ,p_PAYMENT_ID NUMBER
9 ,p_OBJECT_VERSION_NUMBER NUMBER
10 ,p_PROGRAM_ID NUMBER DEFAULT NULL
11 ,p_LAST_UPDATE_DATE DATE
12 ,p_LAST_UPDATED_BY NUMBER
13 ,p_LAST_UPDATE_LOGIN NUMBER DEFAULT NULL
14 ,p_CREATION_DATE DATE
15 ,p_CREATED_BY NUMBER
16 ,p_PAYMENT_METHOD_ID NUMBER DEFAULT NULL
17 ,p_PAYMENT_METHOD VARCHAR2
18 ,p_IPAYMENT_TRANS_ID VARCHAR2 DEFAULT NULL
19 ,p_IPAYMENT_STATUS NUMBER DEFAULT NULL
20 ,p_PAY_SVR_CONFIRMATION VARCHAR2 DEFAULT NULL
21 ,p_CAMPAIGN_SCHED_ID NUMBER DEFAULT NULL
22 ,p_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL
23 ,p_ATTRIBUTE1 VARCHAR2 DEFAULT NULL
24 ,p_ATTRIBUTE2 VARCHAR2 DEFAULT NULL
25 ,p_ATTRIBUTE3 VARCHAR2 DEFAULT NULL
26 ,p_ATTRIBUTE4 VARCHAR2 DEFAULT NULL
27 ,p_ATTRIBUTE5 VARCHAR2 DEFAULT NULL
28 ,p_ATTRIBUTE6 VARCHAR2 DEFAULT NULL
29 ,p_ATTRIBUTE7 VARCHAR2 DEFAULT NULL
30 ,p_ATTRIBUTE8 VARCHAR2 DEFAULT NULL
31 ,p_ATTRIBUTE9 VARCHAR2 DEFAULT NULL
32 ,p_ATTRIBUTE10 VARCHAR2 DEFAULT NULL
33 ,p_ATTRIBUTE11 VARCHAR2 DEFAULT NULL
34 ,p_ATTRIBUTE12 VARCHAR2 DEFAULT NULL
35 ,p_ATTRIBUTE13 VARCHAR2 DEFAULT NULL
36 ,p_ATTRIBUTE14 VARCHAR2 DEFAULT NULL
37 ,p_ATTRIBUTE15 VARCHAR2 DEFAULT NULL
38 ,p_TANGIBLE_ID VARCHAR2 DEFAULT NULL
39 ,p_PAYEE_ID VARCHAR2 DEFAULT NULL
40 ,p_RESOURCE_ID NUMBER DEFAULT NULL
41 ) IS
42 CURSOR C IS SELECT ROWID FROM IEX_PAYMENTS
43 WHERE PAYMENT_ID = p_PAYMENT_ID;
44
45 BEGIN
46 INSERT INTO IEX_PAYMENTS
47 (
48 PAYMENT_ID
49 ,OBJECT_VERSION_NUMBER
50 ,PROGRAM_ID
51 ,LAST_UPDATE_DATE
52 ,LAST_UPDATED_BY
53 ,LAST_UPDATE_LOGIN
54 ,CREATION_DATE
55 ,CREATED_BY
56 ,PAYMENT_METHOD_ID
57 ,PAYMENT_METHOD
58 ,IPAYMENT_TRANS_ID
59 ,IPAYMENT_STATUS
60 ,PAY_SVR_CONFIRMATION
61 ,CAMPAIGN_SCHED_ID
62 ,ATTRIBUTE_CATEGORY
63 ,ATTRIBUTE1
64 ,ATTRIBUTE2
65 ,ATTRIBUTE3
66 ,ATTRIBUTE4
67 ,ATTRIBUTE5
68 ,ATTRIBUTE6
69 ,ATTRIBUTE7
70 ,ATTRIBUTE8
71 ,ATTRIBUTE9
72 ,ATTRIBUTE10
73 ,ATTRIBUTE11
74 ,ATTRIBUTE12
75 ,ATTRIBUTE13
76 ,ATTRIBUTE14
77 ,ATTRIBUTE15
78 ,TANGIBLE_ID
79 ,PAYEE_ID
80 ,RESOURCE_ID
81 ) VALUES (
82 p_PAYMENT_ID
83 ,p_OBJECT_VERSION_NUMBER
84 ,p_PROGRAM_ID
85 ,p_LAST_UPDATE_DATE
86 ,p_LAST_UPDATED_BY
87 ,p_LAST_UPDATE_LOGIN
88 ,p_CREATION_DATE
89 ,p_CREATED_BY
90 ,p_PAYMENT_METHOD_ID
91 ,p_PAYMENT_METHOD
92 ,p_IPAYMENT_TRANS_ID
93 ,p_IPAYMENT_STATUS
94 ,p_PAY_SVR_CONFIRMATION
95 ,p_CAMPAIGN_SCHED_ID
96 ,p_ATTRIBUTE_CATEGORY
97 ,p_ATTRIBUTE1
98 ,p_ATTRIBUTE2
99 ,p_ATTRIBUTE3
100 ,p_ATTRIBUTE4
101 ,p_ATTRIBUTE5
102 ,p_ATTRIBUTE6
103 ,p_ATTRIBUTE7
104 ,p_ATTRIBUTE8
105 ,p_ATTRIBUTE9
106 ,p_ATTRIBUTE10
107 ,p_ATTRIBUTE11
108 ,p_ATTRIBUTE12
109 ,p_ATTRIBUTE13
110 ,p_ATTRIBUTE14
111 ,p_ATTRIBUTE15
112 ,p_TANGIBLE_ID
113 ,p_PAYEE_ID
114 ,p_RESOURCE_ID
115 );
116
117 OPEN C;
118 FETCH C INTO x_rowid;
119 IF (C%NOTFOUND) THEN
120 CLOSE C;
121 RAISE NO_DATA_FOUND;
122 END IF;
123 CLOSE C;
124 END Insert_Row;
125
126 /* Update_Row procedure */
127 PROCEDURE Update_Row(x_rowid VARCHAR2
128 ,p_PAYMENT_ID NUMBER
129 ,p_OBJECT_VERSION_NUMBER NUMBER
130 ,p_PROGRAM_ID NUMBER DEFAULT NULL
131 ,p_LAST_UPDATE_DATE DATE
132 ,p_LAST_UPDATED_BY NUMBER
133 ,p_LAST_UPDATE_LOGIN NUMBER DEFAULT NULL
134 ,p_CREATION_DATE DATE
135 ,p_CREATED_BY NUMBER
136 ,p_PAYMENT_METHOD_ID NUMBER DEFAULT NULL
137 ,p_PAYMENT_METHOD VARCHAR2
138 ,p_IPAYMENT_TRANS_ID VARCHAR2 DEFAULT NULL
139 ,p_IPAYMENT_STATUS NUMBER DEFAULT NULL
140 ,p_PAY_SVR_CONFIRMATION VARCHAR2 DEFAULT NULL
141 ,p_CAMPAIGN_SCHED_ID NUMBER DEFAULT NULL
142 ,p_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL
143 ,p_ATTRIBUTE1 VARCHAR2 DEFAULT NULL
144 ,p_ATTRIBUTE2 VARCHAR2 DEFAULT NULL
145 ,p_ATTRIBUTE3 VARCHAR2 DEFAULT NULL
146 ,p_ATTRIBUTE4 VARCHAR2 DEFAULT NULL
147 ,p_ATTRIBUTE5 VARCHAR2 DEFAULT NULL
148 ,p_ATTRIBUTE6 VARCHAR2 DEFAULT NULL
149 ,p_ATTRIBUTE7 VARCHAR2 DEFAULT NULL
150 ,p_ATTRIBUTE8 VARCHAR2 DEFAULT NULL
151 ,p_ATTRIBUTE9 VARCHAR2 DEFAULT NULL
152 ,p_ATTRIBUTE10 VARCHAR2 DEFAULT NULL
153 ,p_ATTRIBUTE11 VARCHAR2 DEFAULT NULL
154 ,p_ATTRIBUTE12 VARCHAR2 DEFAULT NULL
155 ,p_ATTRIBUTE13 VARCHAR2 DEFAULT NULL
156 ,p_ATTRIBUTE14 VARCHAR2 DEFAULT NULL
157 ,p_ATTRIBUTE15 VARCHAR2 DEFAULT NULL
158 ,p_TANGIBLE_ID VARCHAR2 DEFAULT NULL
159 ,p_PAYEE_ID VARCHAR2 DEFAULT NULL
160 ,p_RESOURCE_ID NUMBER DEFAULT NULL
161 ) IS
162 BEGIN
163 UPDATE IEX_PAYMENTS SET
164 PAYMENT_ID = p_PAYMENT_ID
165 ,OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER
166 ,PROGRAM_ID = p_PROGRAM_ID
167 ,LAST_UPDATE_DATE = p_LAST_UPDATE_DATE
168 ,LAST_UPDATED_BY = p_LAST_UPDATED_BY
169 ,LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN
170 ,CREATION_DATE = p_CREATION_DATE
171 ,CREATED_BY = p_CREATED_BY
172 ,PAYMENT_METHOD_ID = p_PAYMENT_METHOD_ID
173 ,PAYMENT_METHOD = p_PAYMENT_METHOD
174 ,IPAYMENT_TRANS_ID = p_IPAYMENT_TRANS_ID
175 ,IPAYMENT_STATUS = p_IPAYMENT_STATUS
176 ,PAY_SVR_CONFIRMATION = p_PAY_SVR_CONFIRMATION
177 ,CAMPAIGN_SCHED_ID = p_CAMPAIGN_SCHED_ID
178 ,ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY
179 ,ATTRIBUTE1 = p_ATTRIBUTE1
180 ,ATTRIBUTE2 = p_ATTRIBUTE2
181 ,ATTRIBUTE3 = p_ATTRIBUTE3
182 ,ATTRIBUTE4 = p_ATTRIBUTE4
183 ,ATTRIBUTE5 = p_ATTRIBUTE5
184 ,ATTRIBUTE6 = p_ATTRIBUTE6
185 ,ATTRIBUTE7 = p_ATTRIBUTE7
186 ,ATTRIBUTE8 = p_ATTRIBUTE8
187 ,ATTRIBUTE9 = p_ATTRIBUTE9
188 ,ATTRIBUTE10 = p_ATTRIBUTE10
189 ,ATTRIBUTE11 = p_ATTRIBUTE11
190 ,ATTRIBUTE12 = p_ATTRIBUTE12
191 ,ATTRIBUTE13 = p_ATTRIBUTE13
192 ,ATTRIBUTE14 = p_ATTRIBUTE14
193 ,ATTRIBUTE15 = p_ATTRIBUTE15
194 ,TANGIBLE_ID = p_TANGIBLE_ID
195 ,PAYEE_ID = p_PAYEE_ID
196 ,RESOURCE_ID = p_RESOURCE_ID
197 WHERE rowid = x_rowid;
198
199 if (sql%notfound) then
200 raise no_data_found;
201 end if;
202 END Update_Row;
203
204 /* Delete_Row procedure */
205 PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
206 BEGIN
207 DELETE FROM IEX_PAYMENTS
208 WHERE rowid = x_rowid;
209
210 if (sql%notfound) then
211 raise no_data_found;
212 end if;
213 END Delete_Row;
214
215 /* Lock_Row procedure */
216 PROCEDURE Lock_Row(x_rowid VARCHAR2
217 ,p_PAYMENT_ID NUMBER
218 ,p_OBJECT_VERSION_NUMBER NUMBER
219 ,p_PROGRAM_ID NUMBER DEFAULT NULL
220 ,p_LAST_UPDATE_DATE DATE
221 ,p_LAST_UPDATED_BY NUMBER
222 ,p_LAST_UPDATE_LOGIN NUMBER DEFAULT NULL
223 ,p_CREATION_DATE DATE
224 ,p_CREATED_BY NUMBER
225 ,p_PAYMENT_METHOD_ID NUMBER DEFAULT NULL
226 ,p_PAYMENT_METHOD VARCHAR2
227 ,p_IPAYMENT_TRANS_ID VARCHAR2 DEFAULT NULL
228 ,p_IPAYMENT_STATUS NUMBER DEFAULT NULL
229 ,p_PAY_SVR_CONFIRMATION VARCHAR2 DEFAULT NULL
230 ,p_CAMPAIGN_SCHED_ID NUMBER DEFAULT NULL
231 ,p_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL
232 ,p_ATTRIBUTE1 VARCHAR2 DEFAULT NULL
233 ,p_ATTRIBUTE2 VARCHAR2 DEFAULT NULL
234 ,p_ATTRIBUTE3 VARCHAR2 DEFAULT NULL
235 ,p_ATTRIBUTE4 VARCHAR2 DEFAULT NULL
236 ,p_ATTRIBUTE5 VARCHAR2 DEFAULT NULL
237 ,p_ATTRIBUTE6 VARCHAR2 DEFAULT NULL
238 ,p_ATTRIBUTE7 VARCHAR2 DEFAULT NULL
239 ,p_ATTRIBUTE8 VARCHAR2 DEFAULT NULL
240 ,p_ATTRIBUTE9 VARCHAR2 DEFAULT NULL
241 ,p_ATTRIBUTE10 VARCHAR2 DEFAULT NULL
242 ,p_ATTRIBUTE11 VARCHAR2 DEFAULT NULL
243 ,p_ATTRIBUTE12 VARCHAR2 DEFAULT NULL
244 ,p_ATTRIBUTE13 VARCHAR2 DEFAULT NULL
245 ,p_ATTRIBUTE14 VARCHAR2 DEFAULT NULL
246 ,p_ATTRIBUTE15 VARCHAR2 DEFAULT NULL
247 ,p_TANGIBLE_ID VARCHAR2 DEFAULT NULL
248 ,p_PAYEE_ID VARCHAR2 DEFAULT NULL
249 ,p_RESOURCE_ID NUMBER DEFAULT NULL
250 ) IS
251 CURSOR C IS SELECT * FROM IEX_PAYMENTS
252 WHERE rowid = x_rowid
253 FOR UPDATE of PAYMENT_ID NOWAIT;
254 Recinfo C%ROWTYPE;
255 BEGIN
256 OPEN C;
257 FETCH C INTO Recinfo;
258 IF (C%NOTFOUND) THEN
259 CLOSE C;
260 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
261 APP_EXCEPTION.Raise_Exception;
262 END IF;
263 CLOSE C;
264
265 IF (
266 (Recinfo.PAYMENT_ID = p_PAYMENT_ID)
267 AND ( (Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
268 OR ( (Recinfo.OBJECT_VERSION_NUMBER IS NULL)
269 AND (p_OBJECT_VERSION_NUMBER IS NULL)))
270 AND ( (Recinfo.PROGRAM_ID = p_PROGRAM_ID)
271 OR ( (Recinfo.PROGRAM_ID IS NULL)
272 AND (p_PROGRAM_ID IS NULL)))
273 AND ( (Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
274 OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
275 AND (p_LAST_UPDATE_DATE IS NULL)))
276 AND ( (Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
277 OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
278 AND (p_LAST_UPDATED_BY IS NULL)))
279 AND ( (Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
280 OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
281 AND (p_LAST_UPDATE_LOGIN IS NULL)))
282 AND ( (Recinfo.CREATION_DATE = p_CREATION_DATE)
283 OR ( (Recinfo.CREATION_DATE IS NULL)
284 AND (p_CREATION_DATE IS NULL)))
285 AND ( (Recinfo.CREATED_BY = p_CREATED_BY)
286 OR ( (Recinfo.CREATED_BY IS NULL)
287 AND (p_CREATED_BY IS NULL)))
288 AND ( (Recinfo.PAYMENT_METHOD_ID = p_PAYMENT_METHOD_ID)
289 OR ( (Recinfo.PAYMENT_METHOD_ID IS NULL)
290 AND (p_PAYMENT_METHOD_ID IS NULL)))
291 AND ( (Recinfo.PAYMENT_METHOD = p_PAYMENT_METHOD)
292 OR ( (Recinfo.PAYMENT_METHOD IS NULL)
293 AND (p_PAYMENT_METHOD IS NULL)))
294 AND ( (Recinfo.IPAYMENT_TRANS_ID = p_IPAYMENT_TRANS_ID)
295 OR ( (Recinfo.IPAYMENT_TRANS_ID IS NULL)
296 AND (p_IPAYMENT_TRANS_ID IS NULL)))
297 AND ( (Recinfo.IPAYMENT_STATUS = p_IPAYMENT_STATUS)
298 OR ( (Recinfo.IPAYMENT_STATUS IS NULL)
299 AND (p_IPAYMENT_STATUS IS NULL)))
300 AND ( (Recinfo.PAY_SVR_CONFIRMATION = p_PAY_SVR_CONFIRMATION)
301 OR ( (Recinfo.PAY_SVR_CONFIRMATION IS NULL)
302 AND (p_PAY_SVR_CONFIRMATION IS NULL)))
303 AND ( (Recinfo.CAMPAIGN_SCHED_ID = p_CAMPAIGN_SCHED_ID)
304 OR ( (Recinfo.CAMPAIGN_SCHED_ID IS NULL)
305 AND (p_CAMPAIGN_SCHED_ID IS NULL)))
306 AND ( (Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
307 OR ( (Recinfo.ATTRIBUTE_CATEGORY IS NULL)
308 AND (p_ATTRIBUTE_CATEGORY IS NULL)))
309 AND ( (Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
310 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
311 AND (p_ATTRIBUTE1 IS NULL)))
312 AND ( (Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
313 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
314 AND (p_ATTRIBUTE2 IS NULL)))
315 AND ( (Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
316 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
317 AND (p_ATTRIBUTE3 IS NULL)))
318 AND ( (Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
319 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
320 AND (p_ATTRIBUTE4 IS NULL)))
321 AND ( (Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
322 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
323 AND (p_ATTRIBUTE5 IS NULL)))
324 AND ( (Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
325 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
326 AND (p_ATTRIBUTE6 IS NULL)))
327 AND ( (Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
328 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
329 AND (p_ATTRIBUTE7 IS NULL)))
330 AND ( (Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
331 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
332 AND (p_ATTRIBUTE8 IS NULL)))
333 AND ( (Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
334 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
335 AND (p_ATTRIBUTE9 IS NULL)))
336 AND ( (Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
337 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
338 AND (p_ATTRIBUTE10 IS NULL)))
339 AND ( (Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
340 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
341 AND (p_ATTRIBUTE11 IS NULL)))
342 AND ( (Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
343 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
344 AND (p_ATTRIBUTE12 IS NULL)))
345 AND ( (Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
346 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
347 AND (p_ATTRIBUTE13 IS NULL)))
348 AND ( (Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
349 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
350 AND (p_ATTRIBUTE14 IS NULL)))
351 AND ( (Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
352 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
353 AND (p_ATTRIBUTE15 IS NULL)))
354 AND ( (Recinfo.TANGIBLE_ID = p_TANGIBLE_ID)
355 OR ( (Recinfo.TANGIBLE_ID IS NULL)
356 AND (p_TANGIBLE_ID IS NULL)))
357 AND ( (Recinfo.PAYEE_ID = p_PAYEE_ID)
358 OR ( (Recinfo.PAYEE_ID IS NULL)
359 AND (p_PAYEE_ID IS NULL)))
360 AND ( (Recinfo.RESOURCE_ID = p_RESOURCE_ID)
361 OR ( (Recinfo.RESOURCE_ID IS NULL)
362 AND (p_RESOURCE_ID IS NULL)))
363 ) THEN
364 return;
365 ELSE
366 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
367 APP_EXCEPTION.Raise_Exception;
368 END IF;
369 END Lock_Row;
370 END;
371