[Home] [Help]
PACKAGE BODY: APPS.IGW_PROP_ABSTRACTS_TBH
Source
1 PACKAGE BODY Igw_Prop_Abstracts_Tbh AS
2 /* $Header: igwtabsb.pls 115.6 2002/11/14 18:51:19 vmedikon ship $ */
3
4 ---------------------------------------------------------------------------
5
6 G_PKG_NAME VARCHAR2(30) := 'IGW_PROP_ABSTRACTS_TBH';
7
8 ---------------------------------------------------------------------------
9
10 PROCEDURE Insert_Row
11 (
12 x_rowid OUT NOCOPY VARCHAR2,
13 p_proposal_id IN NUMBER,
14 p_abstract_type IN VARCHAR2,
15 p_abstract_type_code IN VARCHAR2,
16 p_abstract IN VARCHAR2,
17 p_attribute_category IN VARCHAR2,
18 p_attribute1 IN VARCHAR2,
19 p_attribute2 IN VARCHAR2,
20 p_attribute3 IN VARCHAR2,
21 p_attribute4 IN VARCHAR2,
22 p_attribute5 IN VARCHAR2,
23 p_attribute6 IN VARCHAR2,
24 p_attribute7 IN VARCHAR2,
25 p_attribute8 IN VARCHAR2,
26 p_attribute9 IN VARCHAR2,
27 p_attribute10 IN VARCHAR2,
28 p_attribute11 IN VARCHAR2,
29 p_attribute12 IN VARCHAR2,
30 p_attribute13 IN VARCHAR2,
31 p_attribute14 IN VARCHAR2,
32 p_attribute15 IN VARCHAR2,
33 x_return_status OUT NOCOPY VARCHAR2,
34 p_mode IN VARCHAR2 default 'R'
35 ) IS
36
37 l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
38
39 l_last_update_date DATE := SYSDATE;
40 l_last_updated_by NUMBER := Nvl(Fnd_Global.User_Id,-1);
41 l_last_update_login NUMBER := Nvl(Fnd_Global.Login_Id,-1);
42
43 CURSOR c IS
44 SELECT rowid
45 FROM igw_prop_abstracts
46 WHERE proposal_id = p_proposal_id AND
47 abstract_type = p_abstract_type AND
48 abstract_type_code = p_abstract_type_code;
49
50 BEGIN
51
52 x_return_status := Fnd_Api.G_Ret_Sts_Success;
53
54 IF p_mode = 'I' THEN
55
56 l_last_updated_by := 1;
57 l_last_update_login := 0;
58
59 ELSIF p_mode <> 'R' THEN
60
61 Fnd_Message.Set_Name('FND','SYSTEM-INVALID ARGS');
62 App_Exception.Raise_Exception;
63
64 END IF;
65
66 INSERT INTO igw_prop_abstracts
67 (
68 proposal_id,
69 abstract_type,
70 abstract_type_code,
71 abstract,
72 attribute_category,
73 attribute1,
74 attribute2,
75 attribute3,
76 attribute4,
77 attribute5,
78 attribute6,
79 attribute7,
80 attribute8,
81 attribute9,
82 attribute10,
83 attribute11,
84 attribute12,
85 attribute13,
86 attribute14,
87 attribute15,
88 record_version_number,
89 creation_date,
90 created_by,
91 last_update_date,
92 last_updated_by,
93 last_update_login
94 )
95 VALUES
96 (
97 p_proposal_id, /* proposal_id */
98 p_abstract_type, /* abstract_type */
99 p_abstract_type_code, /* abstract_type_code */
100 p_abstract, /* abstract */
101 p_attribute_category, /* attribute_category */
102 p_attribute1, /* attribute1 */
103 p_attribute2, /* attribute2 */
104 p_attribute3, /* attribute3 */
105 p_attribute4, /* attribute4 */
106 p_attribute5, /* attribute5 */
107 p_attribute6, /* attribute6 */
108 p_attribute7, /* attribute7 */
109 p_attribute8, /* attribute8 */
110 p_attribute9, /* attribute9 */
111 p_attribute10, /* attribute10 */
112 p_attribute11, /* attribute11 */
113 p_attribute12, /* attribute12 */
114 p_attribute13, /* attribute13 */
115 p_attribute14, /* attribute14 */
116 p_attribute15, /* attribute15 */
117 1, /* record_version_number */
118 l_last_update_date, /* creation_date */
119 l_last_updated_by, /* created_by */
120 l_last_update_date, /* last_update_date */
121 l_last_updated_by, /* last_updated_by */
122 l_last_update_login /* last_update_login */
123 );
124
125 OPEN c;
126 FETCH c INTO x_rowid;
127
128 IF c%NotFound THEN
129
130 CLOSE c;
131 RAISE no_data_found;
132
133 END IF;
134
135 CLOSE c;
136
137 EXCEPTION
138
139 WHEN others THEN
140
141 x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
142
143 Fnd_Msg_Pub.Add_Exc_Msg
144 (
145 p_pkg_name => G_PKG_NAME,
146 p_procedure_name => l_api_name
147 );
148
149 RAISE Fnd_Api.G_Exc_Unexpected_Error;
150
151 END Insert_Row;
152
153 ---------------------------------------------------------------------------
154
155 PROCEDURE Update_Row
156 (
157 p_rowid IN VARCHAR2,
158 p_proposal_id IN NUMBER,
159 p_abstract_type IN VARCHAR2,
160 p_abstract_type_code IN VARCHAR2,
161 p_abstract IN VARCHAR2,
162 p_attribute_category IN VARCHAR2,
163 p_attribute1 IN VARCHAR2,
164 p_attribute2 IN VARCHAR2,
165 p_attribute3 IN VARCHAR2,
166 p_attribute4 IN VARCHAR2,
167 p_attribute5 IN VARCHAR2,
168 p_attribute6 IN VARCHAR2,
169 p_attribute7 IN VARCHAR2,
170 p_attribute8 IN VARCHAR2,
171 p_attribute9 IN VARCHAR2,
172 p_attribute10 IN VARCHAR2,
173 p_attribute11 IN VARCHAR2,
174 p_attribute12 IN VARCHAR2,
175 p_attribute13 IN VARCHAR2,
176 p_attribute14 IN VARCHAR2,
177 p_attribute15 IN VARCHAR2,
178 p_record_version_number IN NUMBER,
179 x_return_status OUT NOCOPY VARCHAR2,
180 p_mode IN VARCHAR2 default 'R'
181 ) IS
182
183 l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
184
185 l_last_update_date DATE := SYSDATE;
186 l_last_updated_by NUMBER := Nvl(Fnd_Global.User_Id,-1);
187 l_last_update_login NUMBER := Nvl(Fnd_Global.Login_Id,-1);
188
189 BEGIN
190
191 x_return_status := Fnd_Api.G_Ret_Sts_Success;
192
193 IF p_mode = 'I' THEN
194
195 l_last_updated_by := 1;
196 l_last_update_login := 0;
197
198 ELSIF p_mode <> 'R' THEN
199
200 Fnd_Message.Set_Name('FND','SYSTEM-INVALID ARGS');
201 Fnd_Msg_Pub.Add;
202 App_Exception.Raise_Exception;
203
204 END IF;
205
206 UPDATE igw_prop_abstracts
207 SET proposal_id = p_proposal_id,
208 abstract_type = p_abstract_type,
209 abstract_type_code = p_abstract_type_code,
210 abstract = p_abstract,
211 attribute_category = p_attribute_category,
212 attribute1 = p_attribute1,
213 attribute2 = p_attribute2,
214 attribute3 = p_attribute3,
215 attribute4 = p_attribute4,
216 attribute5 = p_attribute5,
217 attribute6 = p_attribute6,
218 attribute7 = p_attribute7,
219 attribute8 = p_attribute8,
220 attribute9 = p_attribute9,
221 attribute10 = p_attribute10,
222 attribute11 = p_attribute11,
223 attribute12 = p_attribute12,
224 attribute13 = p_attribute13,
225 attribute14 = p_attribute14,
226 attribute15 = p_attribute15,
227 record_version_number = record_version_number + 1,
228 last_update_date = l_last_update_date,
229 last_updated_by = l_last_updated_by,
230 last_update_login = l_last_update_login
231 WHERE rowid = p_rowid
232 AND record_version_number = p_record_version_number;
233
234 IF SQL%NotFound THEN
235
236 Fnd_Message.Set_Name('IGW','IGW_SS_RECORD_CHANGED');
237 Fnd_Msg_Pub.Add;
238 App_Exception.Raise_Exception;
239
240 END IF;
241
242 EXCEPTION
243
244 WHEN others THEN
245
246 x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
247
248 Fnd_Msg_Pub.Add_Exc_Msg
249 (
250 p_pkg_name => G_PKG_NAME,
251 p_procedure_name => l_api_name
252 );
253
254 RAISE Fnd_Api.G_Exc_Unexpected_Error;
255
256 END Update_Row;
257
258 ---------------------------------------------------------------------------
259
260 END Igw_Prop_Abstracts_Tbh;