DBA Data[Home] [Help]

PACKAGE BODY: APPS.ASO_SALES_CREDITS_PKG

Source


1 PACKAGE BODY ASO_SALES_CREDITS_PKG as
2 /* $Header: asotqscb.pls 120.0 2005/05/31 12:21:59 appldev noship $ */
3 -- Start of Comments
4 -- Package name     : ASO_SALES_CREDITS_PKG
5 -- Purpose          :
6 -- History          :
7 -- NOTE             :
8 -- End of Comments
9 
10 
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'ASO_SALES_CREDITS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asotsccb.pls';
13 
14 PROCEDURE Insert_Row(
15           p_CREATION_DATE    DATE,
16           p_CREATED_BY    NUMBER,
17           p_LAST_UPDATED_BY    VARCHAR2,
18           p_LAST_UPDATE_DATE    DATE,
19           p_LAST_UPDATE_LOGIN    NUMBER,
20           p_REQUEST_ID    NUMBER,
21           p_PROGRAM_APPLICATION_ID    NUMBER,
22           p_PROGRAM_ID    NUMBER,
23           p_PROGRAM_UPDATE_DATE    DATE,
24           px_SALES_CREDIT_ID   IN OUT NOCOPY NUMBER,
25           p_QUOTE_HEADER_ID    NUMBER,
26           p_QUOTE_LINE_ID    NUMBER,
27           p_PERCENT    NUMBER,
28           p_RESOURCE_ID    NUMBER,
29           p_RESOURCE_GROUP_ID    NUMBER,
30           p_EMPLOYEE_PERSON_ID    NUMBER,
31           p_SALES_CREDIT_TYPE_ID    NUMBER,
32 --          p_SECURITY_GROUP_ID    NUMBER,
33           p_ATTRIBUTE_CATEGORY_CODE    VARCHAR2,
34           p_ATTRIBUTE1    VARCHAR2,
35           p_ATTRIBUTE2    VARCHAR2,
36           p_ATTRIBUTE3    VARCHAR2,
37           p_ATTRIBUTE4    VARCHAR2,
38           p_ATTRIBUTE5    VARCHAR2,
39           p_ATTRIBUTE6    VARCHAR2,
40           p_ATTRIBUTE7    VARCHAR2,
41           p_ATTRIBUTE8    VARCHAR2,
42           p_ATTRIBUTE9    VARCHAR2,
43           p_ATTRIBUTE10    VARCHAR2,
44           p_ATTRIBUTE11    VARCHAR2,
45           p_ATTRIBUTE12    VARCHAR2,
46           p_ATTRIBUTE13    VARCHAR2,
47           p_ATTRIBUTE14    VARCHAR2,
48           p_ATTRIBUTE15    VARCHAR2,
49           p_ATTRIBUTE16    VARCHAR2,
50           p_ATTRIBUTE17    VARCHAR2,
51           p_ATTRIBUTE18    VARCHAR2,
52           p_ATTRIBUTE19    VARCHAR2,
53           p_ATTRIBUTE20    VARCHAR2,
54 		p_SYSTEM_ASSIGNED_FLAG VARCHAR2,
55 		p_CREDIT_RULE_ID NUMBER,
56           p_OBJECT_VERSION_NUMBER    NUMBER)
57 
58  IS
59    CURSOR C2 IS SELECT ASO_SALES_CREDITS_S.nextval FROM sys.dual;
60 BEGIN
61    If (px_SALES_CREDIT_ID IS NULL) OR (px_SALES_CREDIT_ID = FND_API.G_MISS_NUM) then
62        OPEN C2;
63        FETCH C2 INTO px_SALES_CREDIT_ID;
64        CLOSE C2;
65    End If;
66    INSERT INTO ASO_SALES_CREDITS(
67            CREATION_DATE,
68            CREATED_BY,
69            LAST_UPDATED_BY,
70            LAST_UPDATE_DATE,
71            LAST_UPDATE_LOGIN,
72            REQUEST_ID,
73            PROGRAM_APPLICATION_ID,
74            PROGRAM_ID,
75            PROGRAM_UPDATE_DATE,
76            SALES_CREDIT_ID,
77            QUOTE_HEADER_ID,
78            QUOTE_LINE_ID,
79            PERCENT,
80            RESOURCE_ID,
81            RESOURCE_GROUP_ID,
82            EMPLOYEE_PERSON_ID,
83            SALES_CREDIT_TYPE_ID,
84 --           SECURITY_GROUP_ID,
85            ATTRIBUTE_CATEGORY_CODE,
86            ATTRIBUTE1,
87            ATTRIBUTE2,
88            ATTRIBUTE3,
89            ATTRIBUTE4,
90            ATTRIBUTE5,
91            ATTRIBUTE6,
92            ATTRIBUTE7,
93            ATTRIBUTE8,
94            ATTRIBUTE9,
95            ATTRIBUTE10,
96            ATTRIBUTE11,
97            ATTRIBUTE12,
98            ATTRIBUTE13,
99            ATTRIBUTE14,
100            ATTRIBUTE15,
101            ATTRIBUTE16,
102            ATTRIBUTE17,
103            ATTRIBUTE18,
104            ATTRIBUTE19,
105            ATTRIBUTE20,
106 		 SYSTEM_ASSIGNED_FLAG,
107 		 CREDIT_RULE_ID,
108            OBJECT_VERSION_NUMBER
109           ) VALUES (
110            p_CREATION_DATE,
111            decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
112            decode( p_LAST_UPDATED_BY, FND_API.G_MISS_CHAR, NULL, p_LAST_UPDATED_BY),
113            decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE),
114            decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
115            decode( p_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_REQUEST_ID),
116            decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_APPLICATION_ID),
117            decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_ID),
118            decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_PROGRAM_UPDATE_DATE),
119            decode( px_SALES_CREDIT_ID, FND_API.G_MISS_NUM, NULL, px_SALES_CREDIT_ID),
120            decode( p_QUOTE_HEADER_ID, FND_API.G_MISS_NUM, NULL, p_QUOTE_HEADER_ID),
121            decode( p_QUOTE_LINE_ID, FND_API.G_MISS_NUM, NULL, p_QUOTE_LINE_ID),
122            decode( p_PERCENT, FND_API.G_MISS_NUM, NULL, p_PERCENT),
123            decode( p_RESOURCE_ID, FND_API.G_MISS_NUM, NULL, p_RESOURCE_ID),
124            decode( p_RESOURCE_GROUP_ID, FND_API.G_MISS_NUM, NULL, p_RESOURCE_GROUP_ID),
125            decode( p_EMPLOYEE_PERSON_ID, FND_API.G_MISS_NUM, NULL, p_EMPLOYEE_PERSON_ID),
126            decode( p_SALES_CREDIT_TYPE_ID, FND_API.G_MISS_NUM, NULL, p_SALES_CREDIT_TYPE_ID),
127    --        decode( p_SECURITY_GROUP_ID, FND_API.G_MISS_NUM, NULL, p_SECURITY_GROUP_ID),
128            decode( p_ATTRIBUTE_CATEGORY_CODE, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY_CODE),
129            decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
130            decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
131            decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
132            decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
133            decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
134            decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
135            decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
136            decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
137            decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
138            decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
139            decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
140            decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
141            decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
142            decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
143            decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15),
144            decode( p_ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE16),
145            decode( p_ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE17),
146            decode( p_ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE18),
147            decode( p_ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE19),
148            decode( p_ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE20),
149            decode( p_SYSTEM_ASSIGNED_FLAG, FND_API.G_MISS_CHAR, NULL, p_SYSTEM_ASSIGNED_FLAG),
150            decode( p_CREDIT_RULE_ID, FND_API.G_MISS_NUM, NULL, p_CREDIT_RULE_ID),
151            decode ( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,1,NULL,1, p_OBJECT_VERSION_NUMBER)
152 		 );
153 End Insert_Row;
154 
155 PROCEDURE Update_Row(
156           p_CREATION_DATE    DATE,
157           p_CREATED_BY    NUMBER,
158           p_LAST_UPDATED_BY    VARCHAR2,
159           p_LAST_UPDATE_DATE    DATE,
160           p_LAST_UPDATE_LOGIN    NUMBER,
161           p_REQUEST_ID    NUMBER,
162           p_PROGRAM_APPLICATION_ID    NUMBER,
163           p_PROGRAM_ID    NUMBER,
164           p_PROGRAM_UPDATE_DATE    DATE,
165           p_SALES_CREDIT_ID    NUMBER,
166           p_QUOTE_HEADER_ID    NUMBER,
167           p_QUOTE_LINE_ID    NUMBER,
168           p_PERCENT    NUMBER,
169           p_RESOURCE_ID    NUMBER,
170           p_RESOURCE_GROUP_ID    NUMBER,
171           p_EMPLOYEE_PERSON_ID    NUMBER,
172           p_SALES_CREDIT_TYPE_ID    NUMBER,
173 --          p_SECURITY_GROUP_ID    NUMBER,
174           p_ATTRIBUTE_CATEGORY_CODE    VARCHAR2,
175           p_ATTRIBUTE1    VARCHAR2,
176           p_ATTRIBUTE2    VARCHAR2,
177           p_ATTRIBUTE3    VARCHAR2,
178           p_ATTRIBUTE4    VARCHAR2,
179           p_ATTRIBUTE5    VARCHAR2,
180           p_ATTRIBUTE6    VARCHAR2,
181           p_ATTRIBUTE7    VARCHAR2,
182           p_ATTRIBUTE8    VARCHAR2,
183           p_ATTRIBUTE9    VARCHAR2,
184           p_ATTRIBUTE10    VARCHAR2,
185           p_ATTRIBUTE11    VARCHAR2,
186           p_ATTRIBUTE12    VARCHAR2,
187           p_ATTRIBUTE13    VARCHAR2,
188           p_ATTRIBUTE14    VARCHAR2,
189           p_ATTRIBUTE15    VARCHAR2,
190           p_ATTRIBUTE16    VARCHAR2,
191           p_ATTRIBUTE17    VARCHAR2,
192           p_ATTRIBUTE18    VARCHAR2,
193           p_ATTRIBUTE19    VARCHAR2,
194           p_ATTRIBUTE20    VARCHAR2,
195 		p_SYSTEM_ASSIGNED_FLAG VARCHAR2,
196 		p_CREDIT_RULE_ID NUMBER,
197           p_OBJECT_VERSION_NUMBER  NUMBER
198 		)
199 
200  IS
201  BEGIN
202     Update ASO_SALES_CREDITS
203     SET
204             /*  CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),*/
205               LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_CHAR, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
206               LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
207               LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
208               REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID),
209               PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID),
210               PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID),
211               PROGRAM_UPDATE_DATE = decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE),
212               SALES_CREDIT_ID = decode( p_SALES_CREDIT_ID, FND_API.G_MISS_NUM, SALES_CREDIT_ID, p_SALES_CREDIT_ID),
213               QUOTE_HEADER_ID = decode( p_QUOTE_HEADER_ID, FND_API.G_MISS_NUM, QUOTE_HEADER_ID, p_QUOTE_HEADER_ID),
214               QUOTE_LINE_ID = decode( p_QUOTE_LINE_ID, FND_API.G_MISS_NUM, QUOTE_LINE_ID, p_QUOTE_LINE_ID),
215               PERCENT = decode( p_PERCENT, FND_API.G_MISS_NUM, PERCENT, p_PERCENT),
216               RESOURCE_ID = decode( p_RESOURCE_ID, FND_API.G_MISS_NUM, RESOURCE_ID, p_RESOURCE_ID),
217               RESOURCE_GROUP_ID = decode( p_RESOURCE_GROUP_ID, FND_API.G_MISS_NUM, RESOURCE_GROUP_ID, p_RESOURCE_GROUP_ID),
218               EMPLOYEE_PERSON_ID = decode( p_EMPLOYEE_PERSON_ID, FND_API.G_MISS_NUM, EMPLOYEE_PERSON_ID, p_EMPLOYEE_PERSON_ID),
219               SALES_CREDIT_TYPE_ID = decode( p_SALES_CREDIT_TYPE_ID, FND_API.G_MISS_NUM, SALES_CREDIT_TYPE_ID, p_SALES_CREDIT_TYPE_ID),
220 --              SECURITY_GROUP_ID = decode( p_SECURITY_GROUP_ID, FND_API.G_MISS_NUM, SECURITY_GROUP_ID, p_SECURITY_GROUP_ID),
221               ATTRIBUTE_CATEGORY_CODE = decode( p_ATTRIBUTE_CATEGORY_CODE, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY_CODE, p_ATTRIBUTE_CATEGORY_CODE),
222               ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
223               ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
224               ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
225               ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
226               ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
227               ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
228               ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
229               ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
230               ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
231               ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
232               ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
233               ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
234               ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
235               ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
236               ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15),
237                ATTRIBUTE16 = decode( p_ATTRIBUTE16, FND_API.G_MISS_CHAR, ATTRIBUTE16, p_ATTRIBUTE16),
238               ATTRIBUTE17 = decode( p_ATTRIBUTE17, FND_API.G_MISS_CHAR, ATTRIBUTE17, p_ATTRIBUTE17),
239               ATTRIBUTE18 = decode( p_ATTRIBUTE18, FND_API.G_MISS_CHAR, ATTRIBUTE18, p_ATTRIBUTE18),
240               ATTRIBUTE19 = decode( p_ATTRIBUTE19, FND_API.G_MISS_CHAR, ATTRIBUTE19, p_ATTRIBUTE19),
241               ATTRIBUTE20 = decode( p_ATTRIBUTE20, FND_API.G_MISS_CHAR, ATTRIBUTE20, p_ATTRIBUTE20),
242               SYSTEM_ASSIGNED_FLAG = decode( p_SYSTEM_ASSIGNED_FLAG, FND_API.G_MISS_CHAR, SYSTEM_ASSIGNED_FLAG, p_SYSTEM_ASSIGNED_FLAG),
243               CREDIT_RULE_ID = decode( p_CREDIT_RULE_ID, FND_API.G_MISS_NUM, CREDIT_RULE_ID, p_CREDIT_RULE_ID),
247     If (SQL%NOTFOUND) then
244 		    OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, nvl(OBJECT_VERSION_NUMBER,0)+1, nvl(p_OBJECT_VERSION_NUMBER, nvl(OBJECT_VERSION_NUMBER,0))+1)
245     where SALES_CREDIT_ID = p_SALES_CREDIT_ID;
246 
248         RAISE NO_DATA_FOUND;
249     End If;
250 END Update_Row;
251 
252 PROCEDURE Delete_Row(
253     p_SALES_CREDIT_ID  NUMBER)
254  IS
255  BEGIN
256    DELETE FROM ASO_SALES_CREDITS
257     WHERE SALES_CREDIT_ID = p_SALES_CREDIT_ID;
258    If (SQL%NOTFOUND) then
259        RAISE NO_DATA_FOUND;
260    End If;
261  END Delete_Row;
262 
263 PROCEDURE Lock_Row(
264           --p_OBJECT_VERSION_NUMBER  NUMBER,
265           p_CREATION_DATE    DATE,
266           p_CREATED_BY    NUMBER,
267           p_LAST_UPDATED_BY    VARCHAR2,
268           p_LAST_UPDATE_DATE    DATE,
269           p_LAST_UPDATE_LOGIN    NUMBER,
270           p_REQUEST_ID    NUMBER,
271           p_PROGRAM_APPLICATION_ID    NUMBER,
272           p_PROGRAM_ID    NUMBER,
273           p_PROGRAM_UPDATE_DATE    DATE,
274           p_SALES_CREDIT_ID    NUMBER,
275           p_QUOTE_HEADER_ID    NUMBER,
276           p_QUOTE_LINE_ID    NUMBER,
277           p_PERCENT    NUMBER,
278           p_RESOURCE_ID    NUMBER,
279           p_RESOURCE_GROUP_ID    NUMBER,
280           p_EMPLOYEE_PERSON_ID    NUMBER,
281           p_SALES_CREDIT_TYPE_ID    NUMBER,
282 --          p_SECURITY_GROUP_ID    NUMBER,
283           p_ATTRIBUTE_CATEGORY_CODE    VARCHAR2,
284           p_ATTRIBUTE1    VARCHAR2,
285           p_ATTRIBUTE2    VARCHAR2,
286           p_ATTRIBUTE3    VARCHAR2,
287           p_ATTRIBUTE4    VARCHAR2,
288           p_ATTRIBUTE5    VARCHAR2,
289           p_ATTRIBUTE6    VARCHAR2,
290           p_ATTRIBUTE7    VARCHAR2,
291           p_ATTRIBUTE8    VARCHAR2,
292           p_ATTRIBUTE9    VARCHAR2,
293           p_ATTRIBUTE10    VARCHAR2,
294           p_ATTRIBUTE11    VARCHAR2,
295           p_ATTRIBUTE12    VARCHAR2,
296           p_ATTRIBUTE13    VARCHAR2,
297           p_ATTRIBUTE14    VARCHAR2,
298           p_ATTRIBUTE15    VARCHAR2)
299 
300  IS
301    CURSOR C IS
302         SELECT
303         SALES_CREDIT_ID,
304         CREATION_DATE,
305         CREATED_BY,
306         LAST_UPDATED_BY,
307         LAST_UPDATE_DATE,
308         LAST_UPDATE_LOGIN,
309         REQUEST_ID,
310         PROGRAM_APPLICATION_ID,
311         PROGRAM_ID,
312         PROGRAM_UPDATE_DATE,
313         QUOTE_HEADER_ID,
314         QUOTE_LINE_ID,
315         PERCENT,
316         RESOURCE_ID,
317         RESOURCE_GROUP_ID,
318         EMPLOYEE_PERSON_ID,
319         SALES_CREDIT_TYPE_ID,
320         --SECURITY_GROUP_ID,
321         ATTRIBUTE_CATEGORY_CODE,
322         ATTRIBUTE1,
323         ATTRIBUTE2,
324         ATTRIBUTE3,
325         ATTRIBUTE4,
326         ATTRIBUTE5,
327         ATTRIBUTE6,
328         ATTRIBUTE7,
329         ATTRIBUTE8,
330         ATTRIBUTE9,
331         ATTRIBUTE10,
332         ATTRIBUTE11,
333         ATTRIBUTE12,
334         ATTRIBUTE13,
335         ATTRIBUTE14,
336         ATTRIBUTE15,
337         --OBJECT_VERSION_NUMBER,
338         SYSTEM_ASSIGNED_FLAG,
339         CREDIT_RULE_ID
340          FROM ASO_SALES_CREDITS
341         WHERE SALES_CREDIT_ID =  p_SALES_CREDIT_ID
342         FOR UPDATE of SALES_CREDIT_ID NOWAIT;
343    Recinfo C%ROWTYPE;
344  BEGIN
345     OPEN C;
346     FETCH C INTO Recinfo;
347     If (C%NOTFOUND) then
348         CLOSE C;
349         FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
350         APP_EXCEPTION.RAISE_EXCEPTION;
351     End If;
352     CLOSE C;
353     if (
354 /*
355            (      Recinfo.CREATION_DATE = p_CREATION_DATE)
356        AND (    ( Recinfo.CREATED_BY = p_CREATED_BY)
357             OR (    ( Recinfo.CREATED_BY IS NULL )
358                 AND (  p_CREATED_BY IS NULL )))
359        AND (    ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
360             OR (    ( Recinfo.LAST_UPDATED_BY IS NULL )
361                 AND (  p_LAST_UPDATED_BY IS NULL )))
362        AND
363 */
364 	  (    ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
365             OR (    ( Recinfo.LAST_UPDATE_DATE IS NULL )
366                 AND (  p_LAST_UPDATE_DATE IS NULL )))
367 /*
368        AND
369        (    ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
370          OR (    ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
371               AND (  p_OBJECT_VERSION_NUMBER IS NULL )))
372        AND (    ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
373             OR (    ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
374                 AND (  p_LAST_UPDATE_LOGIN IS NULL )))
375        AND (    ( Recinfo.REQUEST_ID = p_REQUEST_ID)
376             OR (    ( Recinfo.REQUEST_ID IS NULL )
377                 AND (  p_REQUEST_ID IS NULL )))
378        AND (    ( Recinfo.PROGRAM_APPLICATION_ID = p_PROGRAM_APPLICATION_ID)
379             OR (    ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
380                 AND (  p_PROGRAM_APPLICATION_ID IS NULL )))
381        AND (    ( Recinfo.PROGRAM_ID = p_PROGRAM_ID)
382             OR (    ( Recinfo.PROGRAM_ID IS NULL )
383                 AND (  p_PROGRAM_ID IS NULL )))
384        AND (    ( Recinfo.PROGRAM_UPDATE_DATE = p_PROGRAM_UPDATE_DATE)
385             OR (    ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
386                 AND (  p_PROGRAM_UPDATE_DATE IS NULL )))
387        AND (    ( Recinfo.SALES_CREDIT_ID = p_SALES_CREDIT_ID)
388             OR (    ( Recinfo.SALES_CREDIT_ID IS NULL )
389                 AND (  p_SALES_CREDIT_ID IS NULL )))
390        AND (    ( Recinfo.QUOTE_HEADER_ID = p_QUOTE_HEADER_ID)
391             OR (    ( Recinfo.QUOTE_HEADER_ID IS NULL )
392                 AND (  p_QUOTE_HEADER_ID IS NULL )))
393        AND (    ( Recinfo.QUOTE_LINE_ID = p_QUOTE_LINE_ID)
394             OR (    ( Recinfo.QUOTE_LINE_ID IS NULL )
395                 AND (  p_QUOTE_LINE_ID IS NULL )))
396        AND (    ( Recinfo.PERCENT = p_PERCENT)
397             OR (    ( Recinfo.PERCENT IS NULL )
398                 AND (  p_PERCENT IS NULL )))
399        AND (    ( Recinfo.RESOURCE_ID = p_RESOURCE_ID)
400             OR (    ( Recinfo.RESOURCE_ID IS NULL )
401                 AND (  p_RESOURCE_ID IS NULL )))
402        AND (    ( Recinfo.RESOURCE_GROUP_ID = p_RESOURCE_GROUP_ID)
403             OR (    ( Recinfo.RESOURCE_GROUP_ID IS NULL )
404                 AND (  p_RESOURCE_GROUP_ID IS NULL )))
405        AND (    ( Recinfo.EMPLOYEE_PERSON_ID = p_EMPLOYEE_PERSON_ID)
406             OR (    ( Recinfo.EMPLOYEE_PERSON_ID IS NULL )
407                 AND (  p_EMPLOYEE_PERSON_ID IS NULL )))
408        AND (    ( Recinfo.SALES_CREDIT_TYPE_ID = p_SALES_CREDIT_TYPE_ID)
409             OR (    ( Recinfo.SALES_CREDIT_TYPE_ID IS NULL )
410                 AND (  p_SALES_CREDIT_TYPE_ID IS NULL )))
411 */
412 /*       AND (    ( Recinfo.SECURITY_GROUP_ID = p_SECURITY_GROUP_ID)
413             OR (    ( Recinfo.SECURITY_GROUP_ID IS NULL )
414                 AND (  p_SECURITY_GROUP_ID IS NULL )))*/
415 /*
416        AND (    ( Recinfo.ATTRIBUTE_CATEGORY_CODE = p_ATTRIBUTE_CATEGORY_CODE)
417             OR (    ( Recinfo.ATTRIBUTE_CATEGORY_CODE IS NULL )
418                 AND (  p_ATTRIBUTE_CATEGORY_CODE IS NULL )))
419        AND (    ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
420             OR (    ( Recinfo.ATTRIBUTE1 IS NULL )
421                 AND (  p_ATTRIBUTE1 IS NULL )))
422        AND (    ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
423             OR (    ( Recinfo.ATTRIBUTE2 IS NULL )
424                 AND (  p_ATTRIBUTE2 IS NULL )))
425        AND (    ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
426             OR (    ( Recinfo.ATTRIBUTE3 IS NULL )
427                 AND (  p_ATTRIBUTE3 IS NULL )))
428        AND (    ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
429             OR (    ( Recinfo.ATTRIBUTE4 IS NULL )
430                 AND (  p_ATTRIBUTE4 IS NULL )))
431        AND (    ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
432             OR (    ( Recinfo.ATTRIBUTE5 IS NULL )
433                 AND (  p_ATTRIBUTE5 IS NULL )))
434        AND (    ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
435             OR (    ( Recinfo.ATTRIBUTE6 IS NULL )
436                 AND (  p_ATTRIBUTE6 IS NULL )))
437        AND (    ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
438             OR (    ( Recinfo.ATTRIBUTE7 IS NULL )
439                 AND (  p_ATTRIBUTE7 IS NULL )))
440        AND (    ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
441             OR (    ( Recinfo.ATTRIBUTE8 IS NULL )
442                 AND (  p_ATTRIBUTE8 IS NULL )))
443        AND (    ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
444             OR (    ( Recinfo.ATTRIBUTE9 IS NULL )
445                 AND (  p_ATTRIBUTE9 IS NULL )))
446        AND (    ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
447             OR (    ( Recinfo.ATTRIBUTE10 IS NULL )
448                 AND (  p_ATTRIBUTE10 IS NULL )))
449        AND (    ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
450             OR (    ( Recinfo.ATTRIBUTE11 IS NULL )
451                 AND (  p_ATTRIBUTE11 IS NULL )))
452        AND (    ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
453             OR (    ( Recinfo.ATTRIBUTE12 IS NULL )
454                 AND (  p_ATTRIBUTE12 IS NULL )))
455        AND (    ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
456             OR (    ( Recinfo.ATTRIBUTE13 IS NULL )
457                 AND (  p_ATTRIBUTE13 IS NULL )))
458        AND (    ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
459             OR (    ( Recinfo.ATTRIBUTE14 IS NULL )
460                 AND (  p_ATTRIBUTE14 IS NULL )))
461        AND (    ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
462             OR (    ( Recinfo.ATTRIBUTE15 IS NULL )
463                 AND (  p_ATTRIBUTE15 IS NULL )))
464 */
465    /*    AND (    ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
466             OR (    ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
467                 AND (  p_OBJECT_VERSION_NUMBER IS NULL )))*/
468        ) then
469        return;
470    else
471        FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
472        APP_EXCEPTION.RAISE_EXCEPTION;
473    End If;
474 END Lock_Row;
475 
476 
477 PROCEDURE Delete_Row(
478     p_QUOTE_LINE_ID  NUMBER)
479 IS
480 BEGIN
481    DELETE FROM ASO_SALES_CREDITS
482     WHERE QUOTE_LINE_ID = p_QUOTE_LINE_ID;
483    If (SQL%NOTFOUND) then
484        null;
485    End If;
486 END;
487 
488 PROCEDURE Delete_Row(
489     p_QUOTE_HEADER_ID  NUMBER)
490 IS
491 BEGIN
492    DELETE FROM ASO_SALES_CREDITS
493     WHERE QUOTE_HEADER_ID = p_QUOTE_HEADER_ID;
494    If (SQL%NOTFOUND) then
495        null;
496    End If;
497 END;
498 
499 PROCEDURE Delete_Header_Row(
500     p_QUOTE_HEADER_ID  NUMBER)
501 IS
502 BEGIN
503    DELETE FROM ASO_SALES_CREDITS
504     WHERE QUOTE_HEADER_ID = p_QUOTE_HEADER_ID
505 	 AND QUOTE_LINE_ID IS NULL;
506    If (SQL%NOTFOUND) then
507        null;
508    End If;
509 END;
510 
511 
512 End ASO_SALES_CREDITS_PKG;