DBA Data[Home] [Help]

PACKAGE BODY: APPS.PV_ENTITY_ROUTINGS_PKG

Source


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