eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IEX_WRITEOFF_OBJECTS_PKG

Source


1 PACKAGE BODY IEX_WRITEOFF_OBJECTS_PKG AS
2 /* $Header: iextwobb.pls 120.1 2007/10/31 12:24:31 ehuh ship $ */
3 
4 PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 
6 PROCEDURE Insert_Row
7     (x_rowid            	      IN OUT nocopy VARCHAR2
8 	,x_WRITEOFF_OBJECT_ID	      IN NUMBER
9 	,x_WRITEOFF_ID		          IN NUMBER
10 	,x_OBJECT_VERSION_NUMBER      IN NUMBER
11 	,x_CONTRACT_ID		          IN NUMBER
12 	,x_CONS_INVOICE_ID		      IN NUMBER
13 	,x_CONS_INVOICE_LINE_ID	      IN NUMBER
14 	,x_TRANSACTION_ID		      IN NUMBER
15 	,x_ADJUSTMENT_AMOUNT	      IN NUMBER
16 	,x_ADJUSTMENT_REASON_CODE     IN VARCHAR2
17 	,x_RECEVIABLES_ADJUSTMENT_ID  IN NUMBER
18  ,X_REQUEST_ID              in  NUMBER,
19  X_PROGRAM_APPLICATION_ID  in  NUMBER,
20  X_PROGRAM_ID              in  NUMBER,
21  X_PROGRAM_UPDATE_DATE     in  DATE,
22  X_ATTRIBUTE_CATEGORY      in VARCHAR2,
23  X_ATTRIBUTE1              in VARCHAR2,
24  X_ATTRIBUTE2              in VARCHAR2,
25  X_ATTRIBUTE3              in VARCHAR2,
26  X_ATTRIBUTE4              in VARCHAR2,
27  X_ATTRIBUTE5              in VARCHAR2,
28  X_ATTRIBUTE6              in VARCHAR2,
29  X_ATTRIBUTE7              in VARCHAR2,
30  X_ATTRIBUTE8              in VARCHAR2,
31  X_ATTRIBUTE9              in VARCHAR2,
32  X_ATTRIBUTE10             in VARCHAR2,
33  X_ATTRIBUTE11             in VARCHAR2,
34  X_ATTRIBUTE12             in VARCHAR2,
35  X_ATTRIBUTE13             in VARCHAR2,
36  X_ATTRIBUTE14             in VARCHAR2,
37  X_ATTRIBUTE15             in VARCHAR2,
38  X_CREATION_DATE           in DATE,
39  X_CREATED_BY              in NUMBER,
40  X_LAST_UPDATE_DATE        in DATE,
41  X_LAST_UPDATED_BY         in NUMBER,
42  X_LAST_UPDATE_LOGIN       in NUMBER,
43  X_WRITEOFF_STATUS         in VARCHAR2,
44  X_WRITEOFF_TYPE_ID       in NUMBER,
45  X_WRITEOFF_TYPE         in VARCHAR2,
46  x_customer_trx_id       in number,
47  x_customer_trx_line_id  in number) IS
48 
49  CURSOR C IS SELECT ROWID FROM IEX_WRITEOFF_OBJECTS
50 		WHERE WRITEOFF_OBJECT_ID = x_WRITEOFF_OBJECT_ID;
51 
52 BEGIN
53     IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
54     IEX_DEBUG_PUB.LogMessage ('** Start of Procedure =>'||
55                'IEX_WRITEOFF_OBJECTS_PKG.INSERT_ROW ** ');
56     END IF;
57 	INSERT INTO IEX_WRITEOFF_OBJECTS
58 	        (
59     	         WRITEOFF_OBJECT_ID
60 		,WRITEOFF_ID
61 		,OBJECT_VERSION_NUMBER
62 		,CONTRACT_ID
63 		,CONS_INVOICE_ID
64 		,CONS_INVOICE_LINE_ID
65 		,TRANSACTION_ID
66 		,ADJUSTMENT_AMOUNT
67 		,ADJUSTMENT_REASON_CODE
68 		,RECEVIABLES_ADJUSTMENT_ID
69 		,REQUEST_ID
70 		,PROGRAM_APPLICATION_ID
71 		,PROGRAM_ID
72 		,PROGRAM_UPDATE_DATE
73 		,ATTRIBUTE_CATEGORY
74 		,ATTRIBUTE1
75 		,ATTRIBUTE2
76 		,ATTRIBUTE3
77 		,ATTRIBUTE4
78 		,ATTRIBUTE5
79 		,ATTRIBUTE6
80 		,ATTRIBUTE7
81 		,ATTRIBUTE8
82 		,ATTRIBUTE9
83 		,ATTRIBUTE10
84 		,ATTRIBUTE11
85 		,ATTRIBUTE12
86 		,ATTRIBUTE13
87 		,ATTRIBUTE14
88 		,ATTRIBUTE15
89 		,CREATED_BY
90 		,CREATION_DATE
91 		,LAST_UPDATED_BY
92 		,LAST_UPDATE_DATE
93 		,LAST_UPDATE_LOGIN
94                 ,WRITEOFF_STATUS
95                 ,WRITEOFF_TYPE_ID
96                 ,WRITEOFF_TYPE
97                 ,customer_trx_id
98                 ,customer_trx_line_id
99 	) VALUES (
100 		 x_WRITEOFF_OBJECT_ID
101 		,x_WRITEOFF_ID
102 		,x_OBJECT_VERSION_NUMBER
103         ,decode( x_CONTRACT_ID, FND_API.G_MISS_NUM, NULL, x_CONTRACT_ID)
104 		,decode( x_CONS_INVOICE_ID, FND_API.G_MISS_NUM, NULL, x_CONS_INVOICE_ID)
105         ,decode( x_CONS_INVOICE_LINE_ID, FND_API.G_MISS_NUM, NULL, x_CONS_INVOICE_LINE_ID)
106         ,x_TRANSACTION_ID
107 		,x_ADJUSTMENT_AMOUNT
108 		,x_ADJUSTMENT_REASON_CODE
109         ,decode( x_RECEVIABLES_ADJUSTMENT_ID, FND_API.G_MISS_NUM, NULL,
110                                                 x_RECEVIABLES_ADJUSTMENT_ID),
111          decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL, x_REQUEST_ID),
112          decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, x_PROGRAM_APPLICATION_ID),
113          decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, x_PROGRAM_ID),
114          decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), x_PROGRAM_UPDATE_DATE),
115          decode( x_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE_CATEGORY),
116          decode( x_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE1),
117          decode( x_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE2),
118          decode( x_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE3),
119          decode( x_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE4),
120          decode( x_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE5),
121          decode( x_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE6),
122          decode( x_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE7),
123          decode( x_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE8),
124          decode( x_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE9),
125          decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE10),
126          decode( x_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE11),
127          decode( x_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE12),
128          decode( x_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE13),
129          decode( x_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE14),
130          decode( x_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, x_ATTRIBUTE15)
131          ,x_CREATED_BY
132          ,x_CREATION_DATE
133          ,x_LAST_UPDATED_BY
134          ,x_LAST_UPDATE_DATE
135          ,decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, x_LAST_UPDATE_LOGIN)
136          ,decode( x_writeoff_status, FND_API.G_MISS_CHAR, NULL, x_writeoff_status)
137          ,decode( x_writeoff_type_id, FND_API.G_MISS_NUM, NULL, x_writeoff_type_id)
138          ,decode( x_writeoff_type, FND_API.G_MISS_CHAR, NULL, x_writeoff_type)
139          ,decode( x_customer_trx_id, FND_API.G_MISS_NUM, NULL, x_customer_trx_id)
140          ,decode( x_customer_trx_line_id, FND_API.G_MISS_NUM, NULL, x_customer_trx_line_id)
141         );
142 
143 	OPEN C;
144 	FETCH C INTO x_rowid;
145 	IF (C%NOTFOUND) THEN
146 	   RAISE NO_DATA_FOUND;
147 	END IF;
148 	CLOSE C;
149         IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
150            IEX_DEBUG_PUB.LogMessage ('** End of Procedure =>'||
151                            'IEX_WRITEOFF_OBJECTS_PKG.INSERT_ROW *** ');
152         END IF;
153 END Insert_Row;
154 
155 /* Update_Row procedure */
156 PROCEDURE Update_Row(
157 	x_WRITEOFF_OBJECT_ID	      IN NUMBER
158 	,x_WRITEOFF_ID		          IN NUMBER
159 	,x_OBJECT_VERSION_NUMBER      IN NUMBER
160 	,x_CONTRACT_ID		          IN NUMBER
161 	,x_CONS_INVOICE_ID		      IN NUMBER
162 	,x_CONS_INVOICE_LINE_ID	      IN NUMBER
163 	,x_TRANSACTION_ID		      IN NUMBER
164 	,x_ADJUSTMENT_AMOUNT	      IN NUMBER
165 	,x_ADJUSTMENT_REASON_CODE     IN VARCHAR2
166 	,x_RECEVIABLES_ADJUSTMENT_ID  IN NUMBER
167    ,X_REQUEST_ID              in  NUMBER,
168    X_PROGRAM_APPLICATION_ID  in  NUMBER,
169  X_PROGRAM_ID              in  NUMBER,
170  X_PROGRAM_UPDATE_DATE     in  DATE,
171  X_ATTRIBUTE_CATEGORY      in VARCHAR2,
172  X_ATTRIBUTE1              in VARCHAR2,
173  X_ATTRIBUTE2              in VARCHAR2,
174  X_ATTRIBUTE3              in VARCHAR2,
175  X_ATTRIBUTE4              in VARCHAR2,
176  X_ATTRIBUTE5              in VARCHAR2,
177  X_ATTRIBUTE6              in VARCHAR2,
178  X_ATTRIBUTE7              in VARCHAR2,
179  X_ATTRIBUTE8              in VARCHAR2,
180  X_ATTRIBUTE9              in VARCHAR2,
181  X_ATTRIBUTE10             in VARCHAR2,
182  X_ATTRIBUTE11             in VARCHAR2,
183  X_ATTRIBUTE12             in VARCHAR2,
184  X_ATTRIBUTE13             in VARCHAR2,
185  X_ATTRIBUTE14             in VARCHAR2,
186  X_ATTRIBUTE15             in VARCHAR2,
187  X_LAST_UPDATE_DATE        in DATE,
188  X_LAST_UPDATED_BY         in NUMBER,
189  X_LAST_UPDATE_LOGIN       in NUMBER,
190  X_WRITEOFF_STATUS         in VARCHAR2,
191  X_WRITEOFF_TYPE_ID       in NUMBER,
192  X_WRITEOFF_TYPE         in VARCHAR2,
193  x_customer_trx_id       in number,
194  x_customer_trx_line_id  in number)
195   IS
196 BEGIN
197 	UPDATE IEX_WRITEOFF_OBJECTS SET
198 	         WRITEOFF_ID           = decode( x_WRITEOFF_ID, FND_API.G_MISS_NUM, NULL,
199                                          NULL, WRITEOFF_ID, x_WRITEOFF_ID)
200 		,OBJECT_VERSION_NUMBER = decode( x_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,NULL,
201                                        NULL,OBJECT_VERSION_NUMBER, x_OBJECT_VERSION_NUMBER)
202 
203 		,CONTRACT_ID           = decode( x_CONTRACT_ID, FND_API.G_MISS_NUM, NULL,
204                                          NULL, CONTRACT_ID, x_CONTRACT_ID)
205 
206 		,CONS_INVOICE_ID       = decode( x_CONS_INVOICE_ID, FND_API.G_MISS_NUM,NULL,
207                                     NULL,CONS_INVOICE_ID, x_CONS_INVOICE_ID)
208 
209 		,CONS_INVOICE_LINE_ID  = decode( x_CONS_INVOICE_LINE_ID, FND_API.G_MISS_NUM,NULL,
210                                        NULL,CONS_INVOICE_LINE_ID,x_CONS_INVOICE_LINE_ID)
211 
212 		,TRANSACTION_ID        = decode( x_TRANSACTION_ID, FND_API.G_MISS_NUM,NULL,
213                                          NULL,TRANSACTION_ID, x_TRANSACTION_ID)
214 
215 		,ADJUSTMENT_AMOUNT      = decode( x_ADJUSTMENT_AMOUNT, FND_API.G_MISS_NUM,NULL,
216                                   NULL,ADJUSTMENT_AMOUNT, x_ADJUSTMENT_AMOUNT)
217 
218 		,ADJUSTMENT_REASON_CODE   = decode( x_ADJUSTMENT_REASON_CODE, FND_API.G_MISS_CHAR,NULL,
219                                     NULL,ADJUSTMENT_REASON_CODE, x_ADJUSTMENT_REASON_CODE)
220 
221 		,RECEVIABLES_ADJUSTMENT_ID = decode( x_RECEVIABLES_ADJUSTMENT_ID, FND_API.G_MISS_NUM,NULL,
222                                       NULL,RECEVIABLES_ADJUSTMENT_ID,  x_RECEVIABLES_ADJUSTMENT_ID)
223 
224                 ,REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM,NULL, NULL,REQUEST_ID, x_REQUEST_ID)
225                 ,PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,NULL,
226                            NULL,PROGRAM_APPLICATION_ID,   x_PROGRAM_APPLICATION_ID),
227         PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM,NULL,
228                                  NULL,PROGRAM_ID, x_PROGRAM_ID),
229         PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE,NULL,
230                               NULL,PROGRAM_UPDATE_DATE, x_PROGRAM_UPDATE_DATE),
231               ATTRIBUTE_CATEGORY = decode( x_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR,NULL,
232                                            NULL,ATTRIBUTE_CATEGORY, x_ATTRIBUTE_CATEGORY),
233               ATTRIBUTE1 = decode( x_ATTRIBUTE1, FND_API.G_MISS_CHAR,NULL,
234                                     NULL,ATTRIBUTE1, x_ATTRIBUTE1),
235               ATTRIBUTE2 = decode( x_ATTRIBUTE2, FND_API.G_MISS_CHAR,NULL,
236                                       NULL,ATTRIBUTE2, x_ATTRIBUTE2),
237               ATTRIBUTE3 = decode( x_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL,
238                                      NULL,ATTRIBUTE3, x_ATTRIBUTE3),
239               ATTRIBUTE4 = decode( x_ATTRIBUTE4, FND_API.G_MISS_CHAR,NULL,
240                                       NULL,ATTRIBUTE4, x_ATTRIBUTE4),
241               ATTRIBUTE5 = decode( x_ATTRIBUTE5, FND_API.G_MISS_CHAR,NULL,
242                                       NULL,ATTRIBUTE5, x_ATTRIBUTE5),
243 
244               ATTRIBUTE6 = decode( x_ATTRIBUTE6, FND_API.G_MISS_CHAR,NULL,
245                                     NULL,ATTRIBUTE6, x_ATTRIBUTE6),
246               ATTRIBUTE7 = decode( x_ATTRIBUTE7, FND_API.G_MISS_CHAR,NULL,
247                                       NULL,ATTRIBUTE7, x_ATTRIBUTE7),
248               ATTRIBUTE8 = decode( x_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL,
249                                      NULL,ATTRIBUTE8, x_ATTRIBUTE8),
250               ATTRIBUTE9= decode( x_ATTRIBUTE9, FND_API.G_MISS_CHAR,NULL,
251                                       NULL,ATTRIBUTE9, x_ATTRIBUTE9),
252               ATTRIBUTE10 = decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR,NULL,
253                                       NULL,ATTRIBUTE10, x_ATTRIBUTE10),
254 
255               ATTRIBUTE11 = decode( x_ATTRIBUTE11, FND_API.G_MISS_CHAR,NULL,
256                                       NULL,ATTRIBUTE11, x_ATTRIBUTE11),
257 
258                ATTRIBUTE12 = decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR,NULL,
259                                       NULL,ATTRIBUTE12, x_ATTRIBUTE12),
260 
261                ATTRIBUTE13 = decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR,NULL,
262                                       NULL,ATTRIBUTE13, x_ATTRIBUTE13),
263               ATTRIBUTE14 = decode( x_ATTRIBUTE10, FND_API.G_MISS_CHAR,NULL,
264                                       NULL,ATTRIBUTE14, x_ATTRIBUTE14),
265               ATTRIBUTE15 = decode( x_ATTRIBUTE15, FND_API.G_MISS_CHAR,NULL,
266                                       NULL,ATTRIBUTE15, x_ATTRIBUTE15),
267 
268               LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,NULL,
269                                        NULL,LAST_UPDATED_BY, x_LAST_UPDATED_BY),
270               LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,NULL,
271                                       NULL,LAST_UPDATE_DATE, x_LAST_UPDATE_DATE),
272               LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,NULL,
273                                      NULL,LAST_UPDATE_LOGIN, x_LAST_UPDATE_LOGIN),
274              WRITEOFF_STATUS = decode( x_WRITEOFF_STATUS, FND_API.G_MISS_CHAR,NULL,
275                                    NULL,WRITEOFF_STATUS, x_WRITEOFF_STATUS),
276              WRITEOFF_TYPE_ID = decode( x_WRITEOFF_TYPE_ID, FND_API.G_MISS_NUM,NULL,
277                                      NULL,WRITEOFF_TYPE_ID, X_WRITEOFF_TYPE_ID),
278              WRITEOFF_TYPE = decode( x_WRITEOFF_TYPE, FND_API.G_MISS_CHAR,NULL,
279                                    NULL,WRITEOFF_TYPE, x_WRITEOFF_TYPE),
280              customer_trx_id = decode( x_customer_trx_id, FND_API.G_MISS_NUM,NULL,
281                                      NULL, customer_trx_id, x_customer_trx_id),
282              customer_trx_line_id = decode( x_customer_trx_line_id, FND_API.G_MISS_NUM,NULL,
283                                      NULL, customer_trx_line_id, x_customer_trx_line_id)
284 
285 	 WHERE writeoff_object_id = x_WRITEOFF_OBJECT_ID;
286 
287 	if (sql%notfound) then
288 		raise no_data_found;
289 	end if;
290 END Update_Row;
291 
292 /* Delete_Row procedure */
293  PROCEDURE Delete_Row(x_object_writeoff_id IN NUMBER)
294   IS
295 BEGIN
296      IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
297      IEX_DEBUG_PUB.LogMessage ('*** Start of Procedure =>IEX_WRITEOFF_OBJECTS_PKG.DELETE_ROW *** ');
298      END IF;
299       delete from IEX_WRITEOFF_OBJECTS
300       where  writeoff_object_id = x_object_writeoff_id;
301 
302       if (sql%notfound) then
303          raise no_data_found;
304       end if;
305 
306 END Delete_Row;
307 
308 procedure LOCK_ROW (
309   X_WRITEOFF_OBJECT_ID in NUMBER,
310   X_OBJECT_VERSION_NUMBER in NUMBER
311 ) is
312   cursor c is select OBJECT_VERSION_NUMBER
313     from IEX_WRITEOFF_OBJECTS
314     where WRITEOFF_OBJECT_ID = X_WRITEOFF_OBJECT_ID
315     and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
316     for update of WRITEOFF_OBJECT_ID nowait;
317   recinfo c%rowtype;
318 
319 
320 begin
321  IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
322  IEX_DEBUG_PUB.LogMessage ('*** Start of Procedure =>IEX_WRITEOFF_OBJECTS_PKG.LOCK_ROW ** ');
323  END IF;
324   open c;
325   fetch c into recinfo;
326   if (c%notfound) then
327     close c;
328     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
329     app_exception.raise_exception;
330   end if;
331 
332   close c;
333 
334   if recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER then
335     null;
336   else
337     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
338     app_exception.raise_exception;
339   end if;
340 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
341 IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_WRITEOFF_OBJECTS_PKG.LOCK_ROW ******** ');
342 END IF;
343 end LOCK_ROW;
344 
345 END IEX_WRITEOFF_OBJECTS_PKG;
346