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