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.LNS_PARTICIPANTS_PKG

Source


1 PACKAGE BODY LNS_PARTICIPANTS_PKG AS
2 /* $Header: LNS_PART_TBLH_B.pls 120.2 2006/01/18 19:59:48 karamach noship $ */
3 
4 /* Insert_Row procedure */
5 PROCEDURE Insert_Row(x_PARTICIPANT_ID       IN OUT NOCOPY NUMBER
6     ,p_LOAN_ID              NUMBER
7     ,p_HZ_PARTY_ID          NUMBER
8 	,p_LOAN_PARTICIPANT_TYPE		VARCHAR2
9 	,p_START_DATE_ACTIVE		DATE
10 	,p_END_DATE_ACTIVE		DATE
11 	,p_CUST_ACCOUNT_ID		NUMBER
12 	,p_BILL_TO_ACCT_SITE_ID 	NUMBER
13 	,p_OBJECT_VERSION_NUMBER        NUMBER
14 	,p_ATTRIBUTE_CATEGORY		VARCHAR2
15 	,p_ATTRIBUTE1		VARCHAR2
16 	,p_ATTRIBUTE2		VARCHAR2
17 	,p_ATTRIBUTE3		VARCHAR2
18 	,p_ATTRIBUTE4		VARCHAR2
19 	,p_ATTRIBUTE5		VARCHAR2
20 	,p_ATTRIBUTE6		VARCHAR2
21 	,p_ATTRIBUTE7		VARCHAR2
22 	,p_ATTRIBUTE8		VARCHAR2
23 	,p_ATTRIBUTE9		VARCHAR2
24 	,p_ATTRIBUTE10		VARCHAR2
25 	,p_ATTRIBUTE11		VARCHAR2
26 	,p_ATTRIBUTE12		VARCHAR2
27 	,p_ATTRIBUTE13		VARCHAR2
28 	,p_ATTRIBUTE14		VARCHAR2
29 	,p_ATTRIBUTE15		VARCHAR2
30 	,p_ATTRIBUTE16		VARCHAR2
31 	,p_ATTRIBUTE17		VARCHAR2
32 	,p_ATTRIBUTE18		VARCHAR2
33 	,p_ATTRIBUTE19		VARCHAR2
34 	,p_ATTRIBUTE20		VARCHAR2
35 	,p_CONTACT_REL_PARTY_ID  NUMBER
36 	,p_CONTACT_PERS_PARTY_ID NUMBER
37  ,p_CREDIT_REQUEST_ID	NUMBER
38  ,p_CASE_FOLDER_ID				NUMBER
39  ,p_review_type VARCHAR2
40  ,p_credit_classification VARCHAR2
41 ) IS
42 
43 BEGIN
44 
45 	INSERT INTO LNS_PARTICIPANTS
46 	(
47 		PARTICIPANT_ID
48 		,LOAN_ID
49 		,HZ_PARTY_ID
50 		,LOAN_PARTICIPANT_TYPE
51 		,START_DATE_ACTIVE
52 		,END_DATE_ACTIVE
53 		,CUST_ACCOUNT_ID
54 		,BILL_TO_ACCT_SITE_ID
55 		,CREATED_BY
56 		,CREATION_DATE
57 		,LAST_UPDATED_BY
58 		,LAST_UPDATE_DATE
59 		,LAST_UPDATE_LOGIN
60 		,OBJECT_VERSION_NUMBER
61 		,ATTRIBUTE_CATEGORY
62 		,ATTRIBUTE1
63 		,ATTRIBUTE2
64 		,ATTRIBUTE3
65 		,ATTRIBUTE4
66 		,ATTRIBUTE5
67 		,ATTRIBUTE6
68 		,ATTRIBUTE7
69 		,ATTRIBUTE8
70 		,ATTRIBUTE9
71 		,ATTRIBUTE10
72 		,ATTRIBUTE11
73 		,ATTRIBUTE12
74 		,ATTRIBUTE13
75 		,ATTRIBUTE14
76 		,ATTRIBUTE15
77 		,ATTRIBUTE16
78 		,ATTRIBUTE17
79 		,ATTRIBUTE18
80 		,ATTRIBUTE19
81 		,ATTRIBUTE20
82 		,CONTACT_REL_PARTY_ID
83 		,CONTACT_PERS_PARTY_ID
84   ,CREDIT_REQUEST_ID
85   ,CASE_FOLDER_ID
86 	,REVIEW_TYPE
87 	,CREDIT_CLASSIFICATION
88 	) VALUES (
89          DECODE(x_participant_id, FND_API.G_MISS_NUM, LNS_PARTICIPANTS_S.NEXTVAL, NULL, LNS_PARTICIPANTS_S.NEXTVAL, x_participant_id)
90         ,DECODE(p_LOAN_ID, FND_API.G_MISS_NUM, NULL, p_LOAN_ID)
91         ,DECODE(p_HZ_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_HZ_PARTY_ID)
92         ,DECODE(p_LOAN_PARTICIPANT_TYPE, FND_API.G_MISS_CHAR, NULL, p_LOAN_PARTICIPANT_TYPE)
93         ,DECODE(p_START_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, p_START_DATE_ACTIVE)
94         ,DECODE(p_END_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, p_END_DATE_ACTIVE)
95         ,DECODE(p_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL, p_CUST_ACCOUNT_ID)
96         ,DECODE(p_BILL_TO_ACCT_SITE_ID, FND_API.G_MISS_NUM, NULL, p_BILL_TO_ACCT_SITE_ID)
97         ,LNS_UTILITY_PUB.CREATED_BY
98         ,LNS_UTILITY_PUB.CREATION_DATE
99         ,LNS_UTILITY_PUB.LAST_UPDATED_BY
100         ,LNS_UTILITY_PUB.LAST_UPDATE_DATE
101         ,LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
102         ,DECODE(p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, 1)
103         ,DECODE(p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_NUM, NULL, p_ATTRIBUTE_CATEGORY)
104         ,DECODE(p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1)
105         ,DECODE(p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2)
106         ,DECODE(p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3)
107         ,DECODE(p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4)
108         ,DECODE(p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5)
109         ,DECODE(p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6)
110         ,DECODE(p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7)
111         ,DECODE(p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8)
112         ,DECODE(p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9)
113         ,DECODE(p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10)
114         ,DECODE(p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11)
115         ,DECODE(p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12)
116         ,DECODE(p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13)
117         ,DECODE(p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14)
118         ,DECODE(p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15)
119         ,DECODE(p_ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE16)
120         ,DECODE(p_ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE17)
121         ,DECODE(p_ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE18)
122         ,DECODE(p_ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE19)
123         ,DECODE(p_ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE20)
124         ,DECODE(p_CONTACT_REL_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_CONTACT_REL_PARTY_ID)
125         ,DECODE(p_CONTACT_PERS_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_CONTACT_PERS_PARTY_ID)
126         ,DECODE(p_CREDIT_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_CREDIT_REQUEST_ID)
127         ,DECODE(p_CASE_FOLDER_ID, FND_API.G_MISS_NUM, NULL, p_CASE_FOLDER_ID)
128 				,DECODE(p_REVIEW_TYPE, FND_API.G_MISS_CHAR, NULL, p_REVIEW_TYPE)
129 				,DECODE(p_CREDIT_CLASSIFICATION, FND_API.G_MISS_CHAR, NULL, p_CREDIT_CLASSIFICATION)
130         ) RETURNING
131 	    PARTICIPANT_ID
132 	INTO
133      	    x_participant_id;
134 
135 END Insert_Row;
136 
137 /* Update_Row procedure */
138 PROCEDURE Update_Row(x_rowid	VARCHAR2
139     ,p_PARTICIPANT_ID           NUMBER
140     ,p_LOAN_ID                  NUMBER
141     ,p_HZ_PARTY_ID              NUMBER
142     ,p_LOAN_PARTICIPANT_TYPE    VARCHAR2
143     ,p_START_DATE_ACTIVE	DATE
144     ,p_END_DATE_ACTIVE          DATE
145     ,p_CUST_ACCOUNT_ID          NUMBER
146     ,p_BILL_TO_ACCT_SITE_ID 	NUMBER
147     ,p_OBJECT_VERSION_NUMBER    NUMBER
148     ,p_ATTRIBUTE_CATEGORY	VARCHAR2
149     ,p_ATTRIBUTE1               VARCHAR2
150     ,p_ATTRIBUTE2               VARCHAR2
151     ,p_ATTRIBUTE3               VARCHAR2
152     ,p_ATTRIBUTE4               VARCHAR2
153     ,p_ATTRIBUTE5               VARCHAR2
154     ,p_ATTRIBUTE6               VARCHAR2
155     ,p_ATTRIBUTE7               VARCHAR2
156     ,p_ATTRIBUTE8               VARCHAR2
157     ,p_ATTRIBUTE9               VARCHAR2
158     ,p_ATTRIBUTE10              VARCHAR2
159     ,p_ATTRIBUTE11              VARCHAR2
160     ,p_ATTRIBUTE12              VARCHAR2
161     ,p_ATTRIBUTE13              VARCHAR2
162     ,p_ATTRIBUTE14              VARCHAR2
163     ,p_ATTRIBUTE15              VARCHAR2
164     ,p_ATTRIBUTE16              VARCHAR2
165     ,p_ATTRIBUTE17              VARCHAR2
166     ,p_ATTRIBUTE18              VARCHAR2
167     ,p_ATTRIBUTE19              VARCHAR2
168     ,p_ATTRIBUTE20              VARCHAR2
169     ,p_CONTACT_REL_PARTY_ID  NUMBER
170     ,p_CONTACT_PERS_PARTY_ID NUMBER
171     ,p_CREDIT_REQUEST_ID	NUMBER
172     ,p_CASE_FOLDER_ID				NUMBER
173  ,p_review_type VARCHAR2
174  ,p_credit_classification VARCHAR2
175 ) IS
176 BEGIN
177 
178     UPDATE LNS_PARTICIPANTS SET
179         --PARTICIPANT_ID = DECODE(p_PARTICIPANT_ID, FND_API.G_MISS_NUM, p_PARTICIPANT_ID, NULL, PARTICIPANT_ID)
180         LOAN_ID = DECODE(p_LOAN_ID, FND_API.G_MISS_NUM, NULL, NULL, LOAN_ID, P_LOAN_ID)
181         ,HZ_PARTY_ID = DECODE(p_HZ_PARTY_ID, FND_API.G_MISS_NUM, NULL, NULL, HZ_PARTY_ID, p_HZ_PARTY_ID)
182         ,LOAN_PARTICIPANT_TYPE = DECODE(p_LOAN_PARTICIPANT_TYPE, FND_API.G_MISS_CHAR, NULL, NULL, LOAN_PARTICIPANT_TYPE, p_LOAN_PARTICIPANT_TYPE)
183         ,START_DATE_ACTIVE = DECODE(p_START_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, NULL, START_DATE_ACTIVE, p_START_DATE_ACTIVE)
184         ,END_DATE_ACTIVE = DECODE(p_END_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, NULL, END_DATE_ACTIVE, p_END_DATE_ACTIVE)
185         ,CUST_ACCOUNT_ID = DECODE(p_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL, NULL, CUST_ACCOUNT_ID, p_CUST_ACCOUNT_ID)
186         ,BILL_TO_ACCT_SITE_ID = DECODE(p_BILL_TO_ACCT_SITE_ID, FND_API.G_MISS_NUM, NULL, NULL, BILL_TO_ACCT_SITE_ID, p_BILL_TO_ACCT_SITE_ID)
187         ,LAST_UPDATED_BY = LNS_UTILITY_PUB.LAST_UPDATED_BY
188         ,LAST_UPDATE_DATE = LNS_UTILITY_PUB.LAST_UPDATE_DATE
189         ,LAST_UPDATE_LOGIN = LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
190         ,OBJECT_VERSION_NUMBER = DECODE(p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
191         ,ATTRIBUTE_CATEGORY = DECODE(p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY)
192         ,ATTRIBUTE1 = DECODE(p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE1, p_ATTRIBUTE1)
193         ,ATTRIBUTE2 = DECODE(p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE2, p_ATTRIBUTE2)
194         ,ATTRIBUTE3 = DECODE(p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE3, p_ATTRIBUTE3)
195         ,ATTRIBUTE4 = DECODE(p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE4, p_ATTRIBUTE4)
196         ,ATTRIBUTE5 = DECODE(p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE5, p_ATTRIBUTE5)
197         ,ATTRIBUTE6 = DECODE(p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE6, p_ATTRIBUTE6)
198         ,ATTRIBUTE7 = DECODE(p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE7, p_ATTRIBUTE7)
199         ,ATTRIBUTE8 = DECODE(p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE8, p_ATTRIBUTE8)
200         ,ATTRIBUTE9 = DECODE(p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE9, p_ATTRIBUTE9)
201         ,ATTRIBUTE10 = DECODE(p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE10, p_ATTRIBUTE10)
202         ,ATTRIBUTE11 = DECODE(p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE11, p_ATTRIBUTE11)
203         ,ATTRIBUTE12 = DECODE(p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE12, p_ATTRIBUTE12)
204         ,ATTRIBUTE13 = DECODE(p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE13, p_ATTRIBUTE13)
205         ,ATTRIBUTE14 = DECODE(p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE14, p_ATTRIBUTE14)
206         ,ATTRIBUTE15 = DECODE(p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE15, p_ATTRIBUTE15)
207         ,ATTRIBUTE16 = DECODE(p_ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE16, p_ATTRIBUTE16)
208         ,ATTRIBUTE17 = DECODE(p_ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE17, p_ATTRIBUTE17)
209         ,ATTRIBUTE18 = DECODE(p_ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE18, p_ATTRIBUTE18)
210         ,ATTRIBUTE19 = DECODE(p_ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE19, p_ATTRIBUTE19)
211         ,ATTRIBUTE20 = DECODE(p_ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, NULL, ATTRIBUTE20, p_ATTRIBUTE20)
215         ,CASE_FOLDER_ID = DECODE(p_CASE_FOLDER_ID, FND_API.G_MISS_NUM, NULL, NULL, CASE_FOLDER_ID, p_CASE_FOLDER_ID)
212         ,CONTACT_REL_PARTY_ID = DECODE(p_CONTACT_REL_PARTY_ID, FND_API.G_MISS_NUM, NULL, NULL, CONTACT_REL_PARTY_ID, p_CONTACT_REL_PARTY_ID)
213         ,CONTACT_PERS_PARTY_ID = DECODE(p_CONTACT_PERS_PARTY_ID, FND_API.G_MISS_NUM, NULL, NULL, CONTACT_PERS_PARTY_ID, p_CONTACT_PERS_PARTY_ID)
214         ,CREDIT_REQUEST_ID = DECODE(p_CREDIT_REQUEST_ID, FND_API.G_MISS_NUM, NULL, NULL, CREDIT_REQUEST_ID, p_CREDIT_REQUEST_ID)
216         ,REVIEW_TYPE = DECODE(p_REVIEW_TYPE, FND_API.G_MISS_CHAR, NULL, NULL, REVIEW_TYPE, p_REVIEW_TYPE)
217         ,CREDIT_CLASSIFICATION = DECODE(p_CREDIT_CLASSIFICATION, FND_API.G_MISS_CHAR, NULL, NULL, CREDIT_CLASSIFICATION, p_CREDIT_CLASSIFICATION)
218      WHERE PARTICIPANT_ID= p_PARTICIPANT_ID;
219 
220 	if (sql%notfound) then
221 		raise no_data_found;
222 	end if;
223 END Update_Row;
224 
225 /* Delete_Row procedure */
226 PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
227 BEGIN
228 	DELETE FROM LNS_PARTICIPANTS
229 		WHERE rowid = x_rowid;
230 
231 	if (sql%notfound) then
232 		raise no_data_found;
233 	end if;
234 END Delete_Row;
235 
236 /* Lock_Row procedure */
237 PROCEDURE Lock_Row(x_rowid	VARCHAR2
238 	,p_PARTICIPANT_ID		NUMBER
239 	,p_LOAN_ID		NUMBER
240 	,p_HZ_PARTY_ID		NUMBER
241 	,p_LOAN_PARTICIPANT_TYPE		VARCHAR2
242 	,p_START_DATE_ACTIVE		DATE
243 	,p_END_DATE_ACTIVE		DATE
244 	,p_CUST_ACCOUNT_ID		NUMBER
245 	,p_BILL_TO_ACCT_SITE_ID 	NUMBER
246 	,p_CREATED_BY		NUMBER
247 	,p_CREATION_DATE		DATE
248 	,p_LAST_UPDATED_BY		NUMBER
249 	,p_LAST_UPDATE_DATE		DATE
250 	,p_LAST_UPDATE_LOGIN		NUMBER
251 	,p_OBJECT_VERSION_NUMBER		NUMBER
252 	,p_ATTRIBUTE_CATEGORY		VARCHAR2
253 	,p_ATTRIBUTE1		VARCHAR2
254 	,p_ATTRIBUTE2		VARCHAR2
255 	,p_ATTRIBUTE3		VARCHAR2
256 	,p_ATTRIBUTE4		VARCHAR2
257 	,p_ATTRIBUTE5		VARCHAR2
258 	,p_ATTRIBUTE6		VARCHAR2
259 	,p_ATTRIBUTE7		VARCHAR2
260 	,p_ATTRIBUTE8		VARCHAR2
261 	,p_ATTRIBUTE9		VARCHAR2
262 	,p_ATTRIBUTE10		VARCHAR2
263 	,p_ATTRIBUTE11		VARCHAR2
264 	,p_ATTRIBUTE12		VARCHAR2
265 	,p_ATTRIBUTE13		VARCHAR2
266 	,p_ATTRIBUTE14		VARCHAR2
267 	,p_ATTRIBUTE15		VARCHAR2
268 	,p_ATTRIBUTE16		VARCHAR2
269 	,p_ATTRIBUTE17		VARCHAR2
270 	,p_ATTRIBUTE18		VARCHAR2
271 	,p_ATTRIBUTE19		VARCHAR2
272 	,p_ATTRIBUTE20		VARCHAR2
273 	,p_CONTACT_REL_PARTY_ID  NUMBER
274 	,p_CONTACT_PERS_PARTY_ID NUMBER
275  ,p_CREDIT_REQUEST_ID	NUMBER
276  ,p_CASE_FOLDER_ID				NUMBER
277  ,p_review_type VARCHAR2
278  ,p_credit_classification VARCHAR2
279 ) IS
280 	CURSOR C IS SELECT * FROM LNS_PARTICIPANTS
281 		WHERE rowid = x_rowid
282 		FOR UPDATE of PARTICIPANT_ID NOWAIT;
283 	Recinfo C%ROWTYPE;
284 BEGIN
285 	OPEN C;
286 	FETCH C INTO Recinfo;
287 	IF (C%NOTFOUND) THEN
288 		CLOSE C;
289 		FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
290 		APP_EXCEPTION.Raise_Exception;
291 	END IF;
292 	CLOSE C;
293 
294 	IF (
295 		(Recinfo.PARTICIPANT_ID = p_PARTICIPANT_ID)
296 		AND ( (Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
297 			OR ( (Recinfo.OBJECT_VERSION_NUMBER IS NULL)
298 				AND (p_OBJECT_VERSION_NUMBER IS NULL)))
299 	   ) THEN
300 		return;
301 	ELSE
302 		FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
303 		APP_EXCEPTION.Raise_Exception;
304 	END IF;
305 END Lock_Row;
306 END;
307