DBA Data[Home] [Help]

PACKAGE BODY: APPS.IEX_LITIGATIONS_PKG

Source


1 PACKAGE BODY IEX_LITIGATIONS_PKG as
2 /* $Header: iextltgb.pls 120.1 2007/12/20 09:57:11 gnramasa ship $ */
3 -- Start of Comments
4 -- Package name     : IEX_LITIGATIONS_PKG
5 -- Purpose          :
6 -- History          :
7 -- NOTE             :
8 -- End of Comments
9 
10 
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_LITIGATIONS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextltgb.pls';
13 
14 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
15 
16 PROCEDURE Insert_Row(
17           px_LITIGATION_ID   IN OUT NOCOPY NUMBER
18          ,p_DELINQUENCY_ID    NUMBER
19          ,p_PARTY_ID    NUMBER
20          ,p_UNPAID_REASON_CODE    VARCHAR2
21          ,p_JUDGEMENT_DATE    DATE
22          ,p_DISPOSITION_CODE    VARCHAR2
23          ,p_REQUEST_ID    NUMBER
24          ,p_PROGRAM_APPLICATION_ID    NUMBER
25          ,p_PROGRAM_ID    NUMBER
26          ,p_PROGRAM_UPDATE_DATE    DATE
27          ,p_ATTRIBUTE_CATEGORY    VARCHAR2
28          ,p_ATTRIBUTE1    VARCHAR2
29          ,p_ATTRIBUTE2    VARCHAR2
30          ,p_ATTRIBUTE3    VARCHAR2
31          ,p_ATTRIBUTE4    VARCHAR2
32          ,p_ATTRIBUTE5    VARCHAR2
33          ,p_ATTRIBUTE6    VARCHAR2
34          ,p_ATTRIBUTE7    VARCHAR2
35          ,p_ATTRIBUTE8    VARCHAR2
36          ,p_ATTRIBUTE9    VARCHAR2
37          ,p_ATTRIBUTE10    VARCHAR2
38          ,p_ATTRIBUTE11    VARCHAR2
39          ,p_ATTRIBUTE12    VARCHAR2
40          ,p_ATTRIBUTE13    VARCHAR2
41          ,p_ATTRIBUTE14    VARCHAR2
42          ,p_ATTRIBUTE15    VARCHAR2
43          ,p_CREATED_BY    NUMBER
44          ,p_CREATION_DATE    DATE
45          ,p_LAST_UPDATED_BY    NUMBER
46          ,p_LAST_UPDATE_DATE    DATE
47          ,p_LAST_UPDATE_LOGIN    NUMBER
48          ,p_CREDIT_HOLD_REQUEST_FLAG    VARCHAR2
49          ,p_CREDIT_HOLD_APPROVED_FLAG    VARCHAR2
50          ,p_SERVICE_HOLD_REQUEST_FLAG    VARCHAR2
51          ,p_SERVICE_HOLD_APPROVED_FLAG    VARCHAR2
52          ,p_SUGGESTION_APPROVED_FLAG    VARCHAR2
53 	 ,p_CUST_ACCOUNT_ID         NUMBER
54 	 ,p_CUSTOMER_SITE_USE_ID    NUMBER
55 	 ,p_ORG_ID                  NUMBER
56 	 ,p_CONTRACT_ID             NUMBER
57 	 ,p_CONTRACT_NUMBER         VARCHAR2)
58 
59  IS
60    CURSOR C2 IS SELECT IEX_LITIGATIONS_S.nextval FROM sys.dual;
61 BEGIN
62    If (px_LITIGATION_ID IS NULL) OR (px_LITIGATION_ID = FND_API.G_MISS_NUM) then
63        OPEN C2;
64        FETCH C2 INTO px_LITIGATION_ID;
65        CLOSE C2;
66    End If;
67    INSERT INTO IEX_LITIGATIONS(
68            LITIGATION_ID
69           ,DELINQUENCY_ID
70           ,PARTY_ID
71           ,UNPAID_REASON_CODE
72           ,JUDGEMENT_DATE
73           ,DISPOSITION_CODE
74           ,REQUEST_ID
75           ,PROGRAM_APPLICATION_ID
76           ,PROGRAM_ID
77           ,PROGRAM_UPDATE_DATE
78           ,ATTRIBUTE_CATEGORY
79           ,ATTRIBUTE1
80           ,ATTRIBUTE2
81           ,ATTRIBUTE3
82           ,ATTRIBUTE4
83           ,ATTRIBUTE5
84           ,ATTRIBUTE6
85           ,ATTRIBUTE7
86           ,ATTRIBUTE8
87           ,ATTRIBUTE9
88           ,ATTRIBUTE10
89           ,ATTRIBUTE11
90           ,ATTRIBUTE12
91           ,ATTRIBUTE13
92           ,ATTRIBUTE14
93           ,ATTRIBUTE15
94           ,CREATED_BY
95           ,CREATION_DATE
96           ,LAST_UPDATED_BY
97           ,LAST_UPDATE_DATE
98           ,LAST_UPDATE_LOGIN
99           ,CREDIT_HOLD_REQUEST_FLAG
100           ,CREDIT_HOLD_APPROVED_FLAG
101           ,SERVICE_HOLD_REQUEST_FLAG
102           ,SERVICE_HOLD_APPROVED_FLAG
103           ,SUGGESTION_APPROVED_FLAG
104 	  ,CUST_ACCOUNT_ID
105 	  ,CUSTOMER_SITE_USE_ID
106 	  ,ORG_ID
107 	  ,CONTRACT_ID
108 	  ,CONTRACT_NUMBER
109           ) VALUES (
110            px_LITIGATION_ID
111           ,decode( p_DELINQUENCY_ID, FND_API.G_MISS_NUM, NULL, p_DELINQUENCY_ID)
112           ,decode( p_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_PARTY_ID)
113           ,decode( p_UNPAID_REASON_CODE, FND_API.G_MISS_CHAR, NULL, p_UNPAID_REASON_CODE)
114           ,decode( p_JUDGEMENT_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_JUDGEMENT_DATE)
115           ,decode( p_DISPOSITION_CODE, FND_API.G_MISS_CHAR, NULL, p_DISPOSITION_CODE)
116           ,decode( p_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_REQUEST_ID)
117           ,decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_APPLICATION_ID)
118           ,decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_ID)
119           ,decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_PROGRAM_UPDATE_DATE)
120           ,decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY)
121           ,decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1)
122           ,decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2)
123           ,decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3)
124           ,decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4)
125           ,decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5)
126           ,decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6)
127           ,decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7)
128           ,decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8)
129           ,decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9)
130           ,decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10)
131           ,decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11)
132           ,decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12)
133           ,decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13)
134           ,decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14)
135           ,decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15)
136           ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
137           ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
138           ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
139           ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
140           ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
141           ,decode( p_CREDIT_HOLD_REQUEST_FLAG, FND_API.G_MISS_CHAR, NULL, p_CREDIT_HOLD_REQUEST_FLAG)
142           ,decode( p_CREDIT_HOLD_APPROVED_FLAG, FND_API.G_MISS_CHAR, NULL, p_CREDIT_HOLD_APPROVED_FLAG)
143           ,decode( p_SERVICE_HOLD_REQUEST_FLAG, FND_API.G_MISS_CHAR, NULL, p_SERVICE_HOLD_REQUEST_FLAG)
144           ,decode( p_SERVICE_HOLD_APPROVED_FLAG, FND_API.G_MISS_CHAR, NULL, p_SERVICE_HOLD_APPROVED_FLAG)
145           ,decode( p_SUGGESTION_APPROVED_FLAG, FND_API.G_MISS_CHAR, NULL, p_SUGGESTION_APPROVED_FLAG)
146 	  ,decode( p_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL, p_CUST_ACCOUNT_ID)
147 	  ,decode( p_CUSTOMER_SITE_USE_ID, FND_API.G_MISS_NUM, NULL, p_CUSTOMER_SITE_USE_ID)
148 	  ,decode( p_ORG_ID, FND_API.G_MISS_NUM, NULL, p_ORG_ID)
149 	  ,decode( p_CONTRACT_ID , FND_API.G_MISS_NUM, NULL, p_CONTRACT_ID)
150 	  ,decode( p_CONTRACT_NUMBER, FND_API.G_MISS_CHAR, NULL, p_CONTRACT_NUMBER));
151 End Insert_Row;
152 
153 PROCEDURE Update_Row(
154           p_LITIGATION_ID    NUMBER
155          ,p_DELINQUENCY_ID    NUMBER
156          ,p_PARTY_ID    NUMBER
157          ,p_UNPAID_REASON_CODE    VARCHAR2
158          ,p_JUDGEMENT_DATE    DATE
159          ,p_DISPOSITION_CODE    VARCHAR2
160          ,p_REQUEST_ID    NUMBER
161          ,p_PROGRAM_APPLICATION_ID    NUMBER
162          ,p_PROGRAM_ID    NUMBER
163          ,p_PROGRAM_UPDATE_DATE    DATE
164          ,p_ATTRIBUTE_CATEGORY    VARCHAR2
165          ,p_ATTRIBUTE1    VARCHAR2
166          ,p_ATTRIBUTE2    VARCHAR2
167          ,p_ATTRIBUTE3    VARCHAR2
168          ,p_ATTRIBUTE4    VARCHAR2
169          ,p_ATTRIBUTE5    VARCHAR2
170          ,p_ATTRIBUTE6    VARCHAR2
171          ,p_ATTRIBUTE7    VARCHAR2
172          ,p_ATTRIBUTE8    VARCHAR2
173          ,p_ATTRIBUTE9    VARCHAR2
174          ,p_ATTRIBUTE10    VARCHAR2
175          ,p_ATTRIBUTE11    VARCHAR2
176          ,p_ATTRIBUTE12    VARCHAR2
177          ,p_ATTRIBUTE13    VARCHAR2
178          ,p_ATTRIBUTE14    VARCHAR2
179          ,p_ATTRIBUTE15    VARCHAR2
180          ,p_CREATED_BY    NUMBER
181          ,p_CREATION_DATE    DATE
182          ,p_LAST_UPDATED_BY    NUMBER
183          ,p_LAST_UPDATE_DATE    DATE
184          ,p_LAST_UPDATE_LOGIN    NUMBER
185          ,p_CREDIT_HOLD_REQUEST_FLAG    VARCHAR2
186          ,p_CREDIT_HOLD_APPROVED_FLAG    VARCHAR2
187          ,p_SERVICE_HOLD_REQUEST_FLAG    VARCHAR2
188          ,p_SERVICE_HOLD_APPROVED_FLAG    VARCHAR2
189          ,p_SUGGESTION_APPROVED_FLAG    VARCHAR2
190 	 ,p_CUST_ACCOUNT_ID         NUMBER
191 	 ,p_CUSTOMER_SITE_USE_ID    NUMBER
192 	 ,p_ORG_ID                  NUMBER
193 	 ,p_CONTRACT_ID             NUMBER
194 	 ,p_CONTRACT_NUMBER         VARCHAR2)
195 
196 IS
197 BEGIN
198     Update IEX_LITIGATIONS
199     SET
200         DELINQUENCY_ID = decode( p_DELINQUENCY_ID, FND_API.G_MISS_NUM, DELINQUENCY_ID, p_DELINQUENCY_ID)
201        ,PARTY_ID = decode( p_PARTY_ID, FND_API.G_MISS_NUM, PARTY_ID, p_PARTY_ID)
202        ,UNPAID_REASON_CODE = decode( p_UNPAID_REASON_CODE, FND_API.G_MISS_CHAR, UNPAID_REASON_CODE, p_UNPAID_REASON_CODE)
203        ,JUDGEMENT_DATE = decode( p_JUDGEMENT_DATE, FND_API.G_MISS_DATE, JUDGEMENT_DATE, p_JUDGEMENT_DATE)
204        ,DISPOSITION_CODE = decode( p_DISPOSITION_CODE, FND_API.G_MISS_CHAR, DISPOSITION_CODE, p_DISPOSITION_CODE)
205        ,REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID)
206        ,PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID)
207        ,PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID)
208        ,PROGRAM_UPDATE_DATE = decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE)
209        ,ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY)
210        ,ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1)
211        ,ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2)
212        ,ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3)
213        ,ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4)
214        ,ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5)
215        ,ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6)
216        ,ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7)
217        ,ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8)
218        ,ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9)
219        ,ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10)
220        ,ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11)
221        ,ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12)
222        ,ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13)
223        ,ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14)
224        ,ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15)
225        ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)
226        ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE)
227        ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
228        ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
229        ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
230        ,CREDIT_HOLD_REQUEST_FLAG = decode( p_CREDIT_HOLD_REQUEST_FLAG, FND_API.G_MISS_CHAR, CREDIT_HOLD_REQUEST_FLAG, p_CREDIT_HOLD_REQUEST_FLAG)
231        ,CREDIT_HOLD_APPROVED_FLAG = decode( p_CREDIT_HOLD_APPROVED_FLAG, FND_API.G_MISS_CHAR, CREDIT_HOLD_APPROVED_FLAG, p_CREDIT_HOLD_APPROVED_FLAG)
232        ,SERVICE_HOLD_REQUEST_FLAG = decode( p_SERVICE_HOLD_REQUEST_FLAG, FND_API.G_MISS_CHAR, SERVICE_HOLD_REQUEST_FLAG, p_SERVICE_HOLD_REQUEST_FLAG)
233        ,SERVICE_HOLD_APPROVED_FLAG = decode( p_SERVICE_HOLD_APPROVED_FLAG, FND_API.G_MISS_CHAR, SERVICE_HOLD_APPROVED_FLAG, p_SERVICE_HOLD_APPROVED_FLAG)
234        ,SUGGESTION_APPROVED_FLAG = decode( p_SUGGESTION_APPROVED_FLAG, FND_API.G_MISS_CHAR, SUGGESTION_APPROVED_FLAG, p_SUGGESTION_APPROVED_FLAG)
235        ,CUST_ACCOUNT_ID = decode( p_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, CUST_ACCOUNT_ID, p_CUST_ACCOUNT_ID)
236        ,CUSTOMER_SITE_USE_ID = decode( p_CUSTOMER_SITE_USE_ID, FND_API.G_MISS_NUM, CUSTOMER_SITE_USE_ID, p_CUSTOMER_SITE_USE_ID)
237        ,ORG_ID = decode( p_ORG_ID, FND_API.G_MISS_NUM, ORG_ID, p_ORG_ID)
238        ,CONTRACT_ID = decode( p_CONTRACT_ID , FND_API.G_MISS_NUM, CONTRACT_ID, p_CONTRACT_ID)
239        ,CONTRACT_NUMBER = decode( p_CONTRACT_NUMBER, FND_API.G_MISS_CHAR, CONTRACT_NUMBER, p_CONTRACT_NUMBER)
240     where LITIGATION_ID = p_LITIGATION_ID;
241 
242     If (SQL%NOTFOUND) then
243         RAISE NO_DATA_FOUND;
244     End If;
245 END Update_Row;
246 
247 PROCEDURE Delete_Row(
248     p_LITIGATION_ID  NUMBER)
249 IS
250 BEGIN
251     DELETE FROM IEX_LITIGATIONS
252     WHERE LITIGATION_ID = p_LITIGATION_ID;
253     If (SQL%NOTFOUND) then
254         RAISE NO_DATA_FOUND;
255     End If;
256 END Delete_Row;
257 
258 PROCEDURE Lock_Row(
259           p_LITIGATION_ID    NUMBER
260          ,p_DELINQUENCY_ID    NUMBER
261          ,p_PARTY_ID    NUMBER
262          ,p_UNPAID_REASON_CODE    VARCHAR2
263          ,p_JUDGEMENT_DATE    DATE
264          ,p_DISPOSITION_CODE    VARCHAR2
265          ,p_REQUEST_ID    NUMBER
266          ,p_PROGRAM_APPLICATION_ID    NUMBER
267          ,p_PROGRAM_ID    NUMBER
268          ,p_PROGRAM_UPDATE_DATE    DATE
269          ,p_ATTRIBUTE_CATEGORY    VARCHAR2
270          ,p_ATTRIBUTE1    VARCHAR2
271          ,p_ATTRIBUTE2    VARCHAR2
272          ,p_ATTRIBUTE3    VARCHAR2
273          ,p_ATTRIBUTE4    VARCHAR2
274          ,p_ATTRIBUTE5    VARCHAR2
275          ,p_ATTRIBUTE6    VARCHAR2
276          ,p_ATTRIBUTE7    VARCHAR2
277          ,p_ATTRIBUTE8    VARCHAR2
278          ,p_ATTRIBUTE9    VARCHAR2
279          ,p_ATTRIBUTE10    VARCHAR2
280          ,p_ATTRIBUTE11    VARCHAR2
281          ,p_ATTRIBUTE12    VARCHAR2
282          ,p_ATTRIBUTE13    VARCHAR2
283          ,p_ATTRIBUTE14    VARCHAR2
284          ,p_ATTRIBUTE15    VARCHAR2
285          ,p_CREATED_BY    NUMBER
286          ,p_CREATION_DATE    DATE
287          ,p_LAST_UPDATED_BY    NUMBER
288          ,p_LAST_UPDATE_DATE    DATE
289          ,p_LAST_UPDATE_LOGIN    NUMBER
290          ,p_CREDIT_HOLD_REQUEST_FLAG    VARCHAR2
291          ,p_CREDIT_HOLD_APPROVED_FLAG    VARCHAR2
292          ,p_SERVICE_HOLD_REQUEST_FLAG    VARCHAR2
293          ,p_SERVICE_HOLD_APPROVED_FLAG    VARCHAR2
294          ,p_SUGGESTION_APPROVED_FLAG    VARCHAR2)
295 
296  IS
297    CURSOR C IS
298        SELECT *
299        FROM IEX_LITIGATIONS
300        WHERE LITIGATION_ID =  p_LITIGATION_ID
301        FOR UPDATE of LITIGATION_ID NOWAIT;
302    Recinfo C%ROWTYPE;
303 BEGIN
304     OPEN C;
305     FETCH C INTO Recinfo;
306     If (C%NOTFOUND) then
307         CLOSE C;
308         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
309         APP_EXCEPTION.RAISE_EXCEPTION;
310     End If;
311     CLOSE C;
312     if (
313            (      Recinfo.LITIGATION_ID = p_LITIGATION_ID)
314        AND (    ( Recinfo.DELINQUENCY_ID = p_DELINQUENCY_ID)
315             OR (    ( Recinfo.DELINQUENCY_ID IS NULL )
316                 AND (  p_DELINQUENCY_ID IS NULL )))
317        AND (    ( Recinfo.PARTY_ID = p_PARTY_ID)
318             OR (    ( Recinfo.PARTY_ID IS NULL )
319                 AND (  p_PARTY_ID IS NULL )))
320        AND (    ( Recinfo.UNPAID_REASON_CODE = p_UNPAID_REASON_CODE)
321             OR (    ( Recinfo.UNPAID_REASON_CODE IS NULL )
322                 AND (  p_UNPAID_REASON_CODE IS NULL )))
323        AND (    ( Recinfo.JUDGEMENT_DATE = p_JUDGEMENT_DATE)
324             OR (    ( Recinfo.JUDGEMENT_DATE IS NULL )
325                 AND (  p_JUDGEMENT_DATE IS NULL )))
326        AND (    ( Recinfo.DISPOSITION_CODE = p_DISPOSITION_CODE)
327             OR (    ( Recinfo.DISPOSITION_CODE IS NULL )
328                 AND (  p_DISPOSITION_CODE IS NULL )))
329        AND (    ( Recinfo.REQUEST_ID = p_REQUEST_ID)
330             OR (    ( Recinfo.REQUEST_ID IS NULL )
331                 AND (  p_REQUEST_ID IS NULL )))
335        AND (    ( Recinfo.PROGRAM_ID = p_PROGRAM_ID)
332        AND (    ( Recinfo.PROGRAM_APPLICATION_ID = p_PROGRAM_APPLICATION_ID)
333             OR (    ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
334                 AND (  p_PROGRAM_APPLICATION_ID IS NULL )))
336             OR (    ( Recinfo.PROGRAM_ID IS NULL )
337                 AND (  p_PROGRAM_ID IS NULL )))
338        AND (    ( Recinfo.PROGRAM_UPDATE_DATE = p_PROGRAM_UPDATE_DATE)
339             OR (    ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
340                 AND (  p_PROGRAM_UPDATE_DATE IS NULL )))
341        AND (    ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
342             OR (    ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
343                 AND (  p_ATTRIBUTE_CATEGORY IS NULL )))
344        AND (    ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
345             OR (    ( Recinfo.ATTRIBUTE1 IS NULL )
346                 AND (  p_ATTRIBUTE1 IS NULL )))
347        AND (    ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
348             OR (    ( Recinfo.ATTRIBUTE2 IS NULL )
349                 AND (  p_ATTRIBUTE2 IS NULL )))
350        AND (    ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
351             OR (    ( Recinfo.ATTRIBUTE3 IS NULL )
352                 AND (  p_ATTRIBUTE3 IS NULL )))
353        AND (    ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
354             OR (    ( Recinfo.ATTRIBUTE4 IS NULL )
355                 AND (  p_ATTRIBUTE4 IS NULL )))
356        AND (    ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
357             OR (    ( Recinfo.ATTRIBUTE5 IS NULL )
358                 AND (  p_ATTRIBUTE5 IS NULL )))
359        AND (    ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
360             OR (    ( Recinfo.ATTRIBUTE6 IS NULL )
361                 AND (  p_ATTRIBUTE6 IS NULL )))
362        AND (    ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
363             OR (    ( Recinfo.ATTRIBUTE7 IS NULL )
364                 AND (  p_ATTRIBUTE7 IS NULL )))
365        AND (    ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
366             OR (    ( Recinfo.ATTRIBUTE8 IS NULL )
367                 AND (  p_ATTRIBUTE8 IS NULL )))
368        AND (    ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
369             OR (    ( Recinfo.ATTRIBUTE9 IS NULL )
370                 AND (  p_ATTRIBUTE9 IS NULL )))
371        AND (    ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
372             OR (    ( Recinfo.ATTRIBUTE10 IS NULL )
373                 AND (  p_ATTRIBUTE10 IS NULL )))
374        AND (    ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
375             OR (    ( Recinfo.ATTRIBUTE11 IS NULL )
376                 AND (  p_ATTRIBUTE11 IS NULL )))
377        AND (    ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
378             OR (    ( Recinfo.ATTRIBUTE12 IS NULL )
379                 AND (  p_ATTRIBUTE12 IS NULL )))
380        AND (    ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
381             OR (    ( Recinfo.ATTRIBUTE13 IS NULL )
382                 AND (  p_ATTRIBUTE13 IS NULL )))
383        AND (    ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
384             OR (    ( Recinfo.ATTRIBUTE14 IS NULL )
385                 AND (  p_ATTRIBUTE14 IS NULL )))
386        AND (    ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
387             OR (    ( Recinfo.ATTRIBUTE15 IS NULL )
388                 AND (  p_ATTRIBUTE15 IS NULL )))
389        AND (    ( Recinfo.CREATED_BY = p_CREATED_BY)
390             OR (    ( Recinfo.CREATED_BY IS NULL )
391                 AND (  p_CREATED_BY IS NULL )))
392        AND (    ( Recinfo.CREATION_DATE = p_CREATION_DATE)
393             OR (    ( Recinfo.CREATION_DATE IS NULL )
394                 AND (  p_CREATION_DATE IS NULL )))
395        AND (    ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
396             OR (    ( Recinfo.LAST_UPDATED_BY IS NULL )
397                 AND (  p_LAST_UPDATED_BY IS NULL )))
398        AND (    ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
399             OR (    ( Recinfo.LAST_UPDATE_DATE IS NULL )
400                 AND (  p_LAST_UPDATE_DATE IS NULL )))
401        AND (    ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
402             OR (    ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
403                 AND (  p_LAST_UPDATE_LOGIN IS NULL )))
404        AND (    ( Recinfo.CREDIT_HOLD_REQUEST_FLAG = p_CREDIT_HOLD_REQUEST_FLAG)
405             OR (    ( Recinfo.CREDIT_HOLD_REQUEST_FLAG IS NULL )
406                 AND (  p_CREDIT_HOLD_REQUEST_FLAG IS NULL )))
407        AND (    ( Recinfo.CREDIT_HOLD_APPROVED_FLAG = p_CREDIT_HOLD_APPROVED_FLAG)
408             OR (    ( Recinfo.CREDIT_HOLD_APPROVED_FLAG IS NULL )
409                 AND (  p_CREDIT_HOLD_APPROVED_FLAG IS NULL )))
410        AND (    ( Recinfo.SERVICE_HOLD_REQUEST_FLAG = p_SERVICE_HOLD_REQUEST_FLAG)
411             OR (    ( Recinfo.SERVICE_HOLD_REQUEST_FLAG IS NULL )
412                 AND (  p_SERVICE_HOLD_REQUEST_FLAG IS NULL )))
413        AND (    ( Recinfo.SERVICE_HOLD_APPROVED_FLAG = p_SERVICE_HOLD_APPROVED_FLAG)
414             OR (    ( Recinfo.SERVICE_HOLD_APPROVED_FLAG IS NULL )
415                 AND (  p_SERVICE_HOLD_APPROVED_FLAG IS NULL )))
416        AND (    ( Recinfo.SUGGESTION_APPROVED_FLAG = p_SUGGESTION_APPROVED_FLAG)
417             OR (    ( Recinfo.SUGGESTION_APPROVED_FLAG IS NULL )
418                 AND (  p_SUGGESTION_APPROVED_FLAG IS NULL )))
419         ) then
420         return;
421     else
422         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
423         APP_EXCEPTION.RAISE_EXCEPTION;
424     End If;
425 END Lock_Row;
426 
427 End IEX_LITIGATIONS_PKG;