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

Source


1 PACKAGE BODY AHL_VWP_STAGES_PKG as
2 /* $Header: AHLLSTGB.pls 120.0.12020000.2 2012/12/06 22:42:58 sareepar ship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out nocopy VARCHAR2,
5   X_STAGE_ID in NUMBER,
6   X_ATTRIBUTE3 in VARCHAR2,
7   X_ATTRIBUTE4 in VARCHAR2,
8   X_ATTRIBUTE5 in VARCHAR2,
9   X_ATTRIBUTE6 in VARCHAR2,
10   X_ATTRIBUTE7 in VARCHAR2,
11   X_ATTRIBUTE8 in VARCHAR2,
12   X_ATTRIBUTE9 in VARCHAR2,
13   X_ATTRIBUTE10 in VARCHAR2,
14   X_ATTRIBUTE11 in VARCHAR2,
15   X_ATTRIBUTE12 in VARCHAR2,
16   X_ATTRIBUTE13 in VARCHAR2,
17   X_ATTRIBUTE14 in VARCHAR2,
18   X_ATTRIBUTE15 in VARCHAR2,
19   X_STAGE_NUM in NUMBER,
20   X_VISIT_ID in NUMBER,
21   X_DURATION in NUMBER,
22   X_OBJECT_VERSION_NUMBER in NUMBER,
23   X_ATTRIBUTE_CATEGORY in VARCHAR2,
24   X_ATTRIBUTE1 in VARCHAR2,
25   X_ATTRIBUTE2 in VARCHAR2,
26   X_STAGE_NAME in VARCHAR2,
27   X_CREATION_DATE in DATE,
28   X_CREATED_BY in NUMBER,
29   X_LAST_UPDATE_DATE in DATE,
30   X_LAST_UPDATED_BY in NUMBER,
31   X_LAST_UPDATE_LOGIN in NUMBER,
32   --TCHIMIRA VWPE :: ER 12424063
33   X_STAGE_STATUS_CODE in VARCHAR2,
34   X_PLANNED_START_DATE in DATE,
35   X_PLANNED_END_DATE   in DATE,
36   X_PREV_STAGE_NUM  in NUMBER,
37   X_EARLIEST_START_DATE in DATE
38 ) is
39   cursor C is select ROWID from AHL_VWP_STAGES_B
40     where STAGE_ID = X_STAGE_ID
41     ;
42 begin
43   insert into AHL_VWP_STAGES_B (
44     ATTRIBUTE3,
45     ATTRIBUTE4,
46     ATTRIBUTE5,
47     ATTRIBUTE6,
48     ATTRIBUTE7,
49     ATTRIBUTE8,
50     ATTRIBUTE9,
51     ATTRIBUTE10,
52     ATTRIBUTE11,
53     ATTRIBUTE12,
54     ATTRIBUTE13,
55     ATTRIBUTE14,
56     ATTRIBUTE15,
57     STAGE_ID,
58     STAGE_NUM,
59     VISIT_ID,
60     DURATION,
61     OBJECT_VERSION_NUMBER,
62     ATTRIBUTE_CATEGORY,
63     ATTRIBUTE1,
64     ATTRIBUTE2,
65     CREATION_DATE,
66     CREATED_BY,
67     LAST_UPDATE_DATE,
68     LAST_UPDATED_BY,
69     LAST_UPDATE_LOGIN,
70   --TCHIMIRA VWPE :: ER 12424063
71     STAGE_STATUS_CODE,
72     PLANNED_START_DATE,
73     PLANNED_END_DATE,
74     PREV_STAGE_NUM,
75     EARLIEST_START_DATE
76   ) values (
77     X_ATTRIBUTE3,
78     X_ATTRIBUTE4,
79     X_ATTRIBUTE5,
80     X_ATTRIBUTE6,
81     X_ATTRIBUTE7,
82     X_ATTRIBUTE8,
83     X_ATTRIBUTE9,
84     X_ATTRIBUTE10,
85     X_ATTRIBUTE11,
86     X_ATTRIBUTE12,
87     X_ATTRIBUTE13,
88     X_ATTRIBUTE14,
89     X_ATTRIBUTE15,
90     X_STAGE_ID,
91     X_STAGE_NUM,
92     X_VISIT_ID,
93     X_DURATION,
94     X_OBJECT_VERSION_NUMBER,
95     X_ATTRIBUTE_CATEGORY,
96     X_ATTRIBUTE1,
97     X_ATTRIBUTE2,
98     X_CREATION_DATE,
99     X_CREATED_BY,
100     X_LAST_UPDATE_DATE,
101     X_LAST_UPDATED_BY,
102     X_LAST_UPDATE_LOGIN,
103   --TCHIMIRA VWPE :: ER 12424063
104     X_STAGE_STATUS_CODE,
105     X_PLANNED_START_DATE,
106     X_PLANNED_END_DATE,
107     X_PREV_STAGE_NUM,
108     X_EARLIEST_START_DATE
109   );
110 
111   insert into AHL_VWP_STAGES_TL (
112     STAGE_ID,
113     LAST_UPDATE_DATE,
114     LAST_UPDATED_BY,
115     CREATION_DATE,
116     CREATED_BY,
117     LAST_UPDATE_LOGIN,
118     STAGE_NAME,
119     LANGUAGE,
120     SOURCE_LANG
121   ) select
122     X_STAGE_ID,
123     X_LAST_UPDATE_DATE,
124     X_LAST_UPDATED_BY,
125     X_CREATION_DATE,
126     X_CREATED_BY,
127     X_LAST_UPDATE_LOGIN,
128     X_STAGE_NAME,
129     L.LANGUAGE_CODE,
130     userenv('LANG')
131   from FND_LANGUAGES L
132   where L.INSTALLED_FLAG in ('I', 'B')
133   and not exists
134     (select NULL
135     from AHL_VWP_STAGES_TL T
136     where T.STAGE_ID = X_STAGE_ID
137     and T.LANGUAGE = L.LANGUAGE_CODE);
138 
139   open c;
140   fetch c into X_ROWID;
141   if (c%notfound) then
142     close c;
143     raise no_data_found;
144   end if;
145   close c;
146 
147 end INSERT_ROW;
148 
149 procedure LOCK_ROW (
150   X_STAGE_ID in NUMBER,
151   X_ATTRIBUTE3 in VARCHAR2,
152   X_ATTRIBUTE4 in VARCHAR2,
153   X_ATTRIBUTE5 in VARCHAR2,
154   X_ATTRIBUTE6 in VARCHAR2,
155   X_ATTRIBUTE7 in VARCHAR2,
156   X_ATTRIBUTE8 in VARCHAR2,
157   X_ATTRIBUTE9 in VARCHAR2,
158   X_ATTRIBUTE10 in VARCHAR2,
159   X_ATTRIBUTE11 in VARCHAR2,
160   X_ATTRIBUTE12 in VARCHAR2,
161   X_ATTRIBUTE13 in VARCHAR2,
162   X_ATTRIBUTE14 in VARCHAR2,
163   X_ATTRIBUTE15 in VARCHAR2,
164   X_STAGE_NUM in NUMBER,
165   X_VISIT_ID in NUMBER,
166   X_DURATION in NUMBER,
167   X_OBJECT_VERSION_NUMBER in NUMBER,
168   X_ATTRIBUTE_CATEGORY in VARCHAR2,
169   X_ATTRIBUTE1 in VARCHAR2,
170   X_ATTRIBUTE2 in VARCHAR2,
171   X_STAGE_NAME in VARCHAR2
172 ) is
173   cursor c is select
174       ATTRIBUTE3,
175       ATTRIBUTE4,
176       ATTRIBUTE5,
177       ATTRIBUTE6,
178       ATTRIBUTE7,
179       ATTRIBUTE8,
180       ATTRIBUTE9,
181       ATTRIBUTE10,
182       ATTRIBUTE11,
183       ATTRIBUTE12,
184       ATTRIBUTE13,
185       ATTRIBUTE14,
186       ATTRIBUTE15,
187       STAGE_NUM,
188       VISIT_ID,
189       DURATION,
190       OBJECT_VERSION_NUMBER,
191       ATTRIBUTE_CATEGORY,
192       ATTRIBUTE1,
193       ATTRIBUTE2
194     from AHL_VWP_STAGES_B
195     where STAGE_ID = X_STAGE_ID
196     for update of STAGE_ID nowait;
197   recinfo c%rowtype;
198 
199   cursor c1 is select
200       STAGE_NAME,
201       decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
202     from AHL_VWP_STAGES_TL
203     where STAGE_ID = X_STAGE_ID
204     and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
205     for update of STAGE_ID nowait;
206 begin
207   open c;
208   fetch c into recinfo;
209   if (c%notfound) then
210     close c;
211     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
212     app_exception.raise_exception;
213   end if;
214   close c;
215   if (    ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
216            OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
217       AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
218            OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
219       AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
220            OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
221       AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
222            OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
223       AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
224            OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
225       AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
226            OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
227       AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
228            OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
229       AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
230            OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
231       AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
232            OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
233       AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
234            OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
235       AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
236            OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
237       AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
238            OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
239       AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
240            OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
241       AND (recinfo.STAGE_NUM = X_STAGE_NUM)
242       AND (recinfo.VISIT_ID = X_VISIT_ID)
243       AND ((recinfo.DURATION = X_DURATION)
244            OR ((recinfo.DURATION is null) AND (X_DURATION is null)))
245       AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
246       AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
247            OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
248       AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
249            OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
250       AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
251            OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
252   ) then
253     null;
254   else
255     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
256     app_exception.raise_exception;
257   end if;
258 
259   for tlinfo in c1 loop
260     if (tlinfo.BASELANG = 'Y') then
261       if (    ((tlinfo.STAGE_NAME = X_STAGE_NAME)
262                OR ((tlinfo.STAGE_NAME is null) AND (X_STAGE_NAME is null)))
263       ) then
264         null;
265       else
266         fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
267         app_exception.raise_exception;
268       end if;
269     end if;
270   end loop;
271   return;
272 end LOCK_ROW;
273 
274 procedure UPDATE_ROW (
275   X_STAGE_ID in NUMBER,
276   X_ATTRIBUTE3 in VARCHAR2,
277   X_ATTRIBUTE4 in VARCHAR2,
278   X_ATTRIBUTE5 in VARCHAR2,
279   X_ATTRIBUTE6 in VARCHAR2,
280   X_ATTRIBUTE7 in VARCHAR2,
281   X_ATTRIBUTE8 in VARCHAR2,
282   X_ATTRIBUTE9 in VARCHAR2,
283   X_ATTRIBUTE10 in VARCHAR2,
284   X_ATTRIBUTE11 in VARCHAR2,
285   X_ATTRIBUTE12 in VARCHAR2,
286   X_ATTRIBUTE13 in VARCHAR2,
287   X_ATTRIBUTE14 in VARCHAR2,
288   X_ATTRIBUTE15 in VARCHAR2,
289   X_STAGE_NUM in NUMBER,
290   X_VISIT_ID in NUMBER,
291   X_DURATION in NUMBER,
292   X_OBJECT_VERSION_NUMBER in NUMBER,
293   X_ATTRIBUTE_CATEGORY in VARCHAR2,
294   X_ATTRIBUTE1 in VARCHAR2,
295   X_ATTRIBUTE2 in VARCHAR2,
296   X_STAGE_NAME in VARCHAR2,
297   X_LAST_UPDATE_DATE in DATE,
298   X_LAST_UPDATED_BY in NUMBER,
299   X_LAST_UPDATE_LOGIN in NUMBER,
300   --PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063 :: START
301   X_STAGE_STATUS_CODE in VARCHAR2,
302   X_PLANNED_START_DATE in DATE,
303   X_PLANNED_END_DATE   in DATE,
304   X_PREV_STAGE_NUM  in NUMBER,
305   X_EARLIEST_START_DATE in DATE
306   --PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063 :: END
307 ) is
308 begin
309   update AHL_VWP_STAGES_B set
310     ATTRIBUTE3 = X_ATTRIBUTE3,
311     ATTRIBUTE4 = X_ATTRIBUTE4,
312     ATTRIBUTE5 = X_ATTRIBUTE5,
313     ATTRIBUTE6 = X_ATTRIBUTE6,
314     ATTRIBUTE7 = X_ATTRIBUTE7,
315     ATTRIBUTE8 = X_ATTRIBUTE8,
316     ATTRIBUTE9 = X_ATTRIBUTE9,
317     ATTRIBUTE10 = X_ATTRIBUTE10,
318     ATTRIBUTE11 = X_ATTRIBUTE11,
319     ATTRIBUTE12 = X_ATTRIBUTE12,
320     ATTRIBUTE13 = X_ATTRIBUTE13,
321     ATTRIBUTE14 = X_ATTRIBUTE14,
322     ATTRIBUTE15 = X_ATTRIBUTE15,
323     STAGE_NUM = X_STAGE_NUM,
324     VISIT_ID = X_VISIT_ID,
325     DURATION = X_DURATION,
326     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
327     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
328     ATTRIBUTE1 = X_ATTRIBUTE1,
329     ATTRIBUTE2 = X_ATTRIBUTE2,
330     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
331     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
332     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
333     --PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063 :: START
334     STAGE_STATUS_CODE = X_STAGE_STATUS_CODE,
335     PLANNED_START_DATE = X_PLANNED_START_DATE,
336     PLANNED_END_DATE = X_PLANNED_END_DATE,
337     PREV_STAGE_NUM = X_PREV_STAGE_NUM,
338     EARLIEST_START_DATE = X_EARLIEST_START_DATE
339     --PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063 :: END
340   where STAGE_ID = X_STAGE_ID;
341 
342   if (sql%notfound) then
343     raise no_data_found;
344   end if;
345 
346   update AHL_VWP_STAGES_TL set
347     STAGE_NAME = X_STAGE_NAME,
348     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
349     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
350     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
351     SOURCE_LANG = userenv('LANG')
352   where STAGE_ID = X_STAGE_ID
353   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
354 
355   if (sql%notfound) then
356     raise no_data_found;
357   end if;
358 end UPDATE_ROW;
359 
360 procedure DELETE_ROW (
361   X_STAGE_ID in NUMBER
362 ) is
363 begin
364   delete from AHL_VWP_STAGES_TL
365   where STAGE_ID = X_STAGE_ID;
366 
367   if (sql%notfound) then
368     raise no_data_found;
369   end if;
370 
371   delete from AHL_VWP_STAGES_B
372   where STAGE_ID = X_STAGE_ID;
373 
374   if (sql%notfound) then
375     raise no_data_found;
376   end if;
377 end DELETE_ROW;
378 
379 procedure ADD_LANGUAGE
380 is
381 begin
382   delete from AHL_VWP_STAGES_TL T
383   where not exists
384     (select NULL
385     from AHL_VWP_STAGES_B B
386     where B.STAGE_ID = T.STAGE_ID
387     );
388 
389   update AHL_VWP_STAGES_TL T set (
390       STAGE_NAME
391     ) = (select
392       B.STAGE_NAME
393     from AHL_VWP_STAGES_TL B
394     where B.STAGE_ID = T.STAGE_ID
395     and B.LANGUAGE = T.SOURCE_LANG)
396   where (
397       T.STAGE_ID,
398       T.LANGUAGE
399   ) in (select
400       SUBT.STAGE_ID,
401       SUBT.LANGUAGE
402     from AHL_VWP_STAGES_TL SUBB, AHL_VWP_STAGES_TL SUBT
403     where SUBB.STAGE_ID = SUBT.STAGE_ID
404     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
405     and (SUBB.STAGE_NAME <> SUBT.STAGE_NAME
406       or (SUBB.STAGE_NAME is null and SUBT.STAGE_NAME is not null)
407       or (SUBB.STAGE_NAME is not null and SUBT.STAGE_NAME is null)
408   ));
409 
410   insert into AHL_VWP_STAGES_TL (
411     STAGE_ID,
412     LAST_UPDATE_DATE,
413     LAST_UPDATED_BY,
414     CREATION_DATE,
415     CREATED_BY,
416     LAST_UPDATE_LOGIN,
417     STAGE_NAME,
418     LANGUAGE,
419     SOURCE_LANG
420   ) select /*+ ORDERED */
421     B.STAGE_ID,
422     B.LAST_UPDATE_DATE,
423     B.LAST_UPDATED_BY,
424     B.CREATION_DATE,
425     B.CREATED_BY,
426     B.LAST_UPDATE_LOGIN,
427     B.STAGE_NAME,
428     L.LANGUAGE_CODE,
429     B.SOURCE_LANG
430   from AHL_VWP_STAGES_TL B, FND_LANGUAGES L
431   where L.INSTALLED_FLAG in ('I', 'B')
432   and B.LANGUAGE = userenv('LANG')
433   and not exists
434     (select NULL
435     from AHL_VWP_STAGES_TL T
436     where T.STAGE_ID = B.STAGE_ID
437     and T.LANGUAGE = L.LANGUAGE_CODE);
438 end ADD_LANGUAGE;
439 
440 --VWPE :: ER 12424063 :: tchimira :: 16-FEB -2011 :: start
441 procedure INSERT_ASSOC_ROW (
442   X_ROWID in out nocopy VARCHAR2,
443   X_STAGE_TYPE_ASSOC_ID  in NUMBER,
444   X_STAGE_ID in NUMBER,
445   X_STAGE_TYPE_CODE in VARCHAR2,
446   X_CREATION_DATE in DATE,
447   X_CREATED_BY in NUMBER,
448   X_LAST_UPDATE_DATE in DATE,
449   X_LAST_UPDATED_BY in NUMBER,
450   X_LAST_UPDATE_LOGIN in NUMBER,
451   X_ATTRIBUTE_CATEGORY in VARCHAR2,
452   X_ATTRIBUTE1 in VARCHAR2,
453   X_ATTRIBUTE2 in VARCHAR2,
454   X_ATTRIBUTE3 in VARCHAR2,
455   X_ATTRIBUTE4 in VARCHAR2,
456   X_ATTRIBUTE5 in VARCHAR2,
457   X_ATTRIBUTE6 in VARCHAR2,
458   X_ATTRIBUTE7 in VARCHAR2,
459   X_ATTRIBUTE8 in VARCHAR2,
460   X_ATTRIBUTE9 in VARCHAR2,
461   X_ATTRIBUTE10 in VARCHAR2,
462   X_ATTRIBUTE11 in VARCHAR2,
463   X_ATTRIBUTE12 in VARCHAR2,
464   X_ATTRIBUTE13 in VARCHAR2,
465   X_ATTRIBUTE14 in VARCHAR2,
466   X_ATTRIBUTE15 in VARCHAR2
467 ) is
468   cursor C is select ROWID from AHL_VISIT_STAGE_TYP_ASOC
469     where STAGE_TYPE_ASSOC_ID = X_STAGE_TYPE_ASSOC_ID
470     ;
471 begin
472   insert into AHL_VISIT_STAGE_TYP_ASOC (
473     STAGE_TYPE_ASSOC_ID,
474     STAGE_ID,
475     STAGE_TYPE_CODE,
476     CREATION_DATE,
477     CREATED_BY,
478     LAST_UPDATE_DATE,
479     LAST_UPDATED_BY,
480     LAST_UPDATE_LOGIN,
481     ATTRIBUTE_CATEGORY,
482     ATTRIBUTE1,
483     ATTRIBUTE2,
484     ATTRIBUTE3,
485     ATTRIBUTE4,
486     ATTRIBUTE5,
487     ATTRIBUTE6,
488     ATTRIBUTE7,
489     ATTRIBUTE8,
490     ATTRIBUTE9,
491     ATTRIBUTE10,
492     ATTRIBUTE11,
493     ATTRIBUTE12,
494     ATTRIBUTE13,
495     ATTRIBUTE14,
496     ATTRIBUTE15
497   ) values (
498     X_STAGE_TYPE_ASSOC_ID,
499     X_STAGE_ID,
500     X_STAGE_TYPE_CODE,
501     X_CREATION_DATE,
502     X_CREATED_BY,
503     X_LAST_UPDATE_DATE,
504     X_LAST_UPDATED_BY,
505     X_LAST_UPDATE_LOGIN,
506     X_ATTRIBUTE_CATEGORY,
507     X_ATTRIBUTE1,
508     X_ATTRIBUTE2,
509     X_ATTRIBUTE3,
510     X_ATTRIBUTE4,
511     X_ATTRIBUTE5,
512     X_ATTRIBUTE6,
513     X_ATTRIBUTE7,
514     X_ATTRIBUTE8,
515     X_ATTRIBUTE9,
516     X_ATTRIBUTE10,
517     X_ATTRIBUTE11,
518     X_ATTRIBUTE12,
519     X_ATTRIBUTE13,
520     X_ATTRIBUTE14,
521     X_ATTRIBUTE15
522   );
523 
524   open c;
525   fetch c into X_ROWID;
526   if (c%notfound) then
527     close c;
528     raise no_data_found;
529   end if;
530   close c;
531 
532 end INSERT_ASSOC_ROW;
533 
534 /*procedure DELETE_ASSOC_ROW (
535   X_STAGE_TYPE_ASSOC_ID in NUMBER
536 ) is
537 begin
538 
539   delete from AHL_VISIT_STAGE_TYP_ASOC
540   where STAGE_TYPE_ASSOC_ID = X_STAGE_TYPE_ASSOC_ID;
541 
542   if (sql%notfound) then
543     raise no_data_found;
544   end if;
545 end DELETE_ASSOC_ROW; */
546 
547 --VWPE :: ER 12424063 :: tchimira :: 16-FEB -2011 :: end
548 
549 end AHL_VWP_STAGES_PKG;