PACKAGE BODY: APPS.HZ_WORD_RPL_COND_ATTRIBS_PKG

Source

1 PACKAGE BODY HZ_WORD_RPL_COND_ATTRIBS_PKG as
2 /*$Header: ARHWRCAB.pls 120.0 2004/12/26 04:27:35 cvijayan noship $ */
3 
4 PROCEDURE Insert_Row (
5     x_condition_id                          IN  NUMBER,
6     x_assoc_cond_attrib_id                  IN NUMBER,
7     x_object_version_number                 IN  NUMBER
8 ) IS
9 BEGIN
10               INSERT INTO HZ_WORD_RPL_COND_ATTRIBS (
11                 condition_id,
12                 assoc_cond_attrib_id,
13                 last_update_date,
14                 last_updated_by,
15                 creation_date,
16                 created_by,
17                 last_update_login,
18                 object_version_number
19                 )
20                VALUES (
21                 x_condition_id,
22                 x_assoc_cond_attrib_id,
23                 hz_utility_v2pub.last_update_date,
24                 hz_utility_v2pub.last_updated_by,
25                 hz_utility_v2pub.creation_date,
26                 hz_utility_v2pub.created_by,
27                 hz_utility_v2pub.last_update_login,
28                 DECODE(x_object_version_number,
29                     FND_API.G_MISS_NUM, NULL,
30                     x_object_version_number)
31                 ) ;
32 
33 
34 END Insert_Row;
35 
36 PROCEDURE Update_Row (
37     x_condition_id                          IN  NUMBER,
38     x_assoc_cond_attrib_id                  IN NUMBER,
39     x_new_cond_attrib_id                    IN NUMBER,
40     x_object_version_number                 IN  OUT NOCOPY NUMBER
41 )
42 IS
43 p_object_version_number NUMBER ;
44 BEGIN
45    p_object_version_number := NVL(x_object_version_number, 1) + 1;
46 
47  UPDATE HZ_WORD_RPL_COND_ATTRIBS set
48         assoc_cond_attrib_id = x_new_cond_attrib_id,
49         object_version_number = p_object_version_number,
50         last_update_date = hz_utility_v2pub.last_update_date,
51         last_updated_by = hz_utility_v2pub.last_updated_by,
52         last_update_login = hz_utility_v2pub.last_update_login
53   where condition_id = x_condition_id  and assoc_cond_attrib_id = x_assoc_cond_attrib_id ;
54 
55   if (sql%notfound) then
56     raise no_data_found;
57   end if;
58 
59 END ;
60 
61 
62 PROCEDURE Delete_Row (
63     x_condition_id                          IN  NUMBER,
64     x_assoc_cond_attrib_id                  IN NUMBER
65 )
66 IS
67 BEGIN
68 
69     DELETE FROM HZ_WORD_RPL_COND_ATTRIBS
70     where condition_id = x_condition_id and assoc_cond_attrib_id = x_assoc_cond_attrib_id ;
71 
72 END ;
73 
74 
75 
76 PROCEDURE Delete_Row (
77     x_condition_id                          IN  NUMBER
78 )
79 IS
80 BEGIN
81 
82     DELETE FROM HZ_WORD_RPL_COND_ATTRIBS
83     where condition_id = x_condition_id ;
84 
85 END ;
86 
87 procedure Lock_Row (
88   x_condition_id in NUMBER,
89   x_assoc_cond_attrib_id in NUMBER,
90   x_object_version_number in  NUMBER
91 )
92 IS
93 cursor c is select
94     object_version_number
95     from HZ_WORD_RPL_COND_ATTRIBS B
96     where condition_id = x_condition_id
97     and assoc_cond_attrib_id = x_assoc_cond_attrib_id
98     for update of condition_id, assoc_cond_attrib_id nowait;
99 
100 recinfo c%rowtype;
101 
102 BEGIN
103 
104   open c;
105   fetch c into recinfo;
106   if (c%notfound) then
107     close c;
108     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
109     app_exception.raise_exception;
110   end if;
111   close c;
112 
113   if(
114        ( recinfo.object_version_number IS NULL AND x_object_version_number IS NULL )
115        OR ( recinfo.object_version_number IS NOT NULL AND
116           x_object_version_number IS NOT NULL AND
117           recinfo.object_version_number = x_object_version_number )
118      ) then
119        null;
120   else
121     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
122     app_exception.raise_exception;
123   end if;
124 
125   return;
126 
127 END Lock_Row ;
128 
129 
130 END HZ_WORD_RPL_COND_ATTRIBS_PKG ;