[Home] [Help]
PACKAGE BODY: APPS.PA_AGREEMENT_TYPES_PKG
Source
1 PACKAGE BODY PA_AGREEMENT_TYPES_PKG as
2 /* $Header: PAXTATSB.pls 120.2 2005/08/05 03:17:37 rgandhi noship $ */
3
4
5 PROCEDURE Insert_Row(X_Agreement_Type VARCHAR2,
6 X_Last_Update_Date DATE,
7 X_Last_Updated_By NUMBER,
8 X_Creation_Date DATE,
9 X_Created_By NUMBER,
10 X_Last_Update_Login NUMBER,
11 X_Revenue_Limit_Flag VARCHAR2,
12 X_Start_Date_Active DATE,
13 X_End_Date_Active DATE,
14 X_Description VARCHAR2,
15 X_Term_Id NUMBER,
16 X_Attribute_Category VARCHAR2,
17 X_Attribute1 VARCHAR2,
18 X_Attribute2 VARCHAR2,
19 X_Attribute3 VARCHAR2,
20 X_Attribute4 VARCHAR2,
21 X_Attribute5 VARCHAR2,
22 X_Attribute6 VARCHAR2,
23 X_Attribute7 VARCHAR2,
24 X_Attribute8 VARCHAR2,
25 X_Attribute9 VARCHAR2,
26 X_Attribute10 VARCHAR2,
27 X_Attribute11 VARCHAR2,
28 X_Attribute12 VARCHAR2,
29 X_Attribute13 VARCHAR2,
30 X_Attribute14 VARCHAR2,
31 X_Attribute15 VARCHAR2,
32 X_return_status OUT NOCOPY VARCHAR2,/*File.sql.39*/
33 X_msg_count OUT NOCOPY NUMBER,/*File.sql.39*/
34 X_msg_data OUT NOCOPY VARCHAR2/*File.sql.39*/
35 )
36 IS
37 BEGIN
38 INSERT INTO Pa_agreement_types
39 ( Agreement_type
40 , last_update_date
41 , last_updated_by
42 , creation_date
43 , created_by
44 , last_update_login
45 , revenue_limit_flag
46 , start_date_active
47 , end_date_active
48 , description
49 , term_id
50 , attribute_category
51 , attribute1
52 , attribute2
53 , attribute3
54 , attribute4
55 , attribute5
56 , attribute6
57 , attribute7
58 , attribute8
59 , attribute9
60 , attribute10
61 , attribute11
62 , attribute12
63 , attribute13
64 , attribute14
65 , attribute15 )
66 VALUES
67 ( X_Agreement_type
68 , X_last_update_date
69 , X_last_updated_by
70 , X_creation_date
71 , X_created_by
72 , X_last_update_login
73 , X_revenue_limit_flag
74 , X_start_date_active
75 , X_end_date_active
76 , X_description
77 , X_term_id
78 , X_attribute_category
79 , X_attribute1
80 , X_attribute2
81 , X_attribute3
82 , X_attribute4
83 , X_attribute5
84 , X_attribute6
85 , X_attribute7
86 , X_attribute8
87 , X_attribute9
88 , X_attribute10
89 , X_attribute11
90 , X_attribute12
91 , X_attribute13
92 , X_attribute14
93 , X_attribute15 );
94
95 X_return_status := FND_API.G_RET_STS_SUCCESS;
96 X_msg_count := 0;
97 X_msg_data := NULL;
98
99 EXCEPTION
100 WHEN OTHERS THEN
101 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102 X_msg_count := 1;
103 X_msg_data := SQLERRM;
104
105 FND_MSG_PUB.add_exc_msg
106 ( p_pkg_name => 'PA_AGREEMENT_TYPES_PKG' ,
107 p_procedure_name => 'Insert_Row');
108 END;
109
110 PROCEDURE Lock_Row(X_Agreement_Type VARCHAR2,
111 X_Last_Update_Date DATE,
112 X_Last_Updated_By NUMBER,
113 X_Creation_Date DATE,
114 X_Created_By NUMBER,
115 X_Last_Update_Login NUMBER,
116 X_Revenue_Limit_Flag VARCHAR2,
117 X_Start_Date_Active DATE,
118 X_End_Date_Active DATE,
119 X_Description VARCHAR2,
120 X_Term_Id NUMBER,
121 X_Attribute_Category VARCHAR2,
122 X_Attribute1 VARCHAR2,
123 X_Attribute2 VARCHAR2,
124 X_Attribute3 VARCHAR2,
125 X_Attribute4 VARCHAR2,
126 X_Attribute5 VARCHAR2,
127 X_Attribute6 VARCHAR2,
128 X_Attribute7 VARCHAR2,
129 X_Attribute8 VARCHAR2,
130 X_Attribute9 VARCHAR2,
131 X_Attribute10 VARCHAR2,
132 X_Attribute11 VARCHAR2,
133 X_Attribute12 VARCHAR2,
134 X_Attribute13 VARCHAR2,
135 X_Attribute14 VARCHAR2,
136 X_Attribute15 VARCHAR2,
137 X_return_status OUT NOCOPY VARCHAR2,/*File.sql.39*/
138 X_msg_count OUT NOCOPY NUMBER,/*File.sql.39*/
139 X_msg_data OUT NOCOPY VARCHAR2/*File.sql.39*/
140 )
141 IS
142
143 CURSOR C IS
144 SELECT *
145 FROM Pa_Agreement_Types
146 WHERE Agreement_Type = X_Agreement_Type
147 FOR UPDATE of Agreement_Type NOWAIT;
148
149 Recinfo C%ROWTYPE;
150
151
152 BEGIN
153 OPEN C;
154 FETCH C INTO Recinfo;
155
156 IF (C%NOTFOUND) THEN
157 CLOSE C;
158 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
159 RAISE FND_API.G_EXC_ERROR;
160 END IF;
161
162 CLOSE C;
163 if (
164 ( Recinfo.Agreement_Type = X_Agreement_Type)
165 AND ( Recinfo.Revenue_Limit_Flag = X_Revenue_Limit_Flag)
166 AND ( (Recinfo.Start_Date_Active = X_Start_Date_Active)
167 OR ( (Recinfo.start_date_active IS NULL)
168 AND (X_Start_Date_Active IS NULL)))
169 AND ( (Recinfo.end_date_active = X_End_Date_Active)
170 OR ( (Recinfo.end_date_active IS NULL)
171 AND (X_End_Date_Active IS NULL)))
172 AND ( (Recinfo.description = X_Description)
173 OR ( (Recinfo.description IS NULL)
174 AND (X_Description IS NULL)))
175 AND ( (Recinfo.term_id = X_Term_Id)
176 OR ( (Recinfo.term_id IS NULL)
177 AND (X_Term_Id IS NULL)))
178 AND ( (Recinfo.attribute_category = X_Attribute_Category)
179 OR ( (Recinfo.attribute_category IS NULL)
180 AND (X_Attribute_Category IS NULL)))
181 AND ( (Recinfo.attribute1 = X_Attribute1)
182 OR ( (Recinfo.attribute1 IS NULL)
183 AND (X_Attribute1 IS NULL)))
184 AND ( (Recinfo.attribute2 = X_Attribute2)
185 OR ( (Recinfo.attribute2 IS NULL)
186 AND (X_Attribute2 IS NULL)))
187 AND ( (Recinfo.attribute3 = X_Attribute3)
188 OR ( (Recinfo.attribute3 IS NULL)
189 AND (X_Attribute3 IS NULL)))
190 AND ( (Recinfo.attribute4 = X_Attribute4)
191 OR ( (Recinfo.attribute4 IS NULL)
192 AND (X_Attribute4 IS NULL)))
193 AND ( (Recinfo.attribute5 = X_Attribute5)
194 OR ( (Recinfo.attribute5 IS NULL)
195 AND (X_Attribute5 IS NULL)))
196 AND ( (Recinfo.attribute6 = X_Attribute6)
197 OR ( (Recinfo.attribute6 IS NULL)
198 AND (X_Attribute6 IS NULL)))
199 AND ( (Recinfo.attribute7 = X_Attribute7)
200 OR ( (Recinfo.attribute7 IS NULL)
201 AND (X_Attribute7 IS NULL)))
202 AND ( (Recinfo.attribute8 = X_Attribute8)
203 OR ( (Recinfo.attribute8 IS NULL)
204 AND (X_Attribute8 IS NULL)))
205 AND ( (Recinfo.attribute9 = X_Attribute9)
206 OR ( (Recinfo.attribute9 IS NULL)
210 AND (X_Attribute10 IS NULL)))
207 AND (X_Attribute9 IS NULL)))
208 AND ( (Recinfo.attribute10 = X_Attribute10)
209 OR ( (Recinfo.attribute10 IS NULL)
211 AND ( (Recinfo.attribute11 = X_Attribute11)
212 OR ( (Recinfo.attribute11 IS NULL)
213 AND (X_Attribute11 IS NULL)))
214 AND ( (Recinfo.attribute12 = X_Attribute12)
215 OR ( (Recinfo.attribute12 IS NULL)
216 AND (X_Attribute12 IS NULL)))
217 AND ( (Recinfo.attribute13 = X_Attribute13)
218 OR ( (Recinfo.attribute13 IS NULL)
219 AND (X_Attribute13 IS NULL)))
220 AND ( (Recinfo.attribute14 = X_Attribute14)
221 OR ( (Recinfo.attribute14 IS NULL)
222 AND (X_Attribute14 IS NULL)))
223 AND ( (Recinfo.attribute15 = X_Attribute15)
224 OR ( (Recinfo.attribute15 IS NULL)
225 AND (X_Attribute15 IS NULL)))
226 ) then
227 X_return_status := FND_API.G_RET_STS_SUCCESS;
228 X_msg_count := 0;
229 X_msg_data := NULL;
230 return;
231 else
232 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
233 RAISE FND_API.G_EXC_ERROR;
234 end if;
235
236 EXCEPTION
237 WHEN FND_API.G_EXC_ERROR THEN
238 X_return_status := FND_API.G_RET_STS_ERROR;
239 X_msg_count := FND_MSG_PUB.count_msg;
240 FND_MSG_PUB.add_exc_msg
241 ( p_pkg_name => 'PA_AGREEMENT_TYPES_PKG' ,
242 p_procedure_name => 'Lock_Row');
243
244 WHEN OTHERS THEN
245 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246 X_msg_count := 1;
247 X_msg_data := SQLERRM;
248
249 FND_MSG_PUB.add_exc_msg
250 ( p_pkg_name => 'PA_AGREEMENT_TYPES_PKG' ,
251 p_procedure_name => 'Lock_Row');
252 END;
253
254 PROCEDURE Update_Row(X_Agreement_Type VARCHAR2,
255 X_Last_Update_Date DATE,
256 X_Last_Updated_By NUMBER,
257 X_Creation_Date DATE,
258 X_Created_By NUMBER,
259 X_Last_Update_Login NUMBER,
260 X_Revenue_Limit_Flag VARCHAR2,
261 X_Start_Date_Active DATE,
262 X_End_Date_Active DATE,
263 X_Description VARCHAR2,
264 X_Term_Id NUMBER,
265 X_Attribute_Category VARCHAR2,
266 X_Attribute1 VARCHAR2,
267 X_Attribute2 VARCHAR2,
268 X_Attribute3 VARCHAR2,
269 X_Attribute4 VARCHAR2,
270 X_Attribute5 VARCHAR2,
271 X_Attribute6 VARCHAR2,
272 X_Attribute7 VARCHAR2,
273 X_Attribute8 VARCHAR2,
274 X_Attribute9 VARCHAR2,
275 X_Attribute10 VARCHAR2,
276 X_Attribute11 VARCHAR2,
277 X_Attribute12 VARCHAR2,
278 X_Attribute13 VARCHAR2,
282 X_msg_count OUT NOCOPY NUMBER, /*File.sql.39*/
279 X_Attribute14 VARCHAR2,
280 X_Attribute15 VARCHAR2,
281 X_return_status OUT NOCOPY VARCHAR2, /*File.sql.39*/
283 X_msg_data OUT NOCOPY VARCHAR2 /*File.sql.39*/
284 )
285 IS
286 BEGIN
287 UPDATE Pa_Agreement_Types SET
288 Last_Update_Date = X_Last_Update_Date ,
289 Last_Updated_By = X_Last_Updated_By ,
290 Creation_Date = X_Creation_Date ,
291 Created_By = X_Created_By ,
292 Last_Update_Login = X_Last_Update_Login ,
293 Revenue_Limit_Flag = X_Revenue_Limit_Flag ,
294 Start_Date_Active = X_Start_Date_Active ,
295 End_Date_Active = X_End_Date_Active ,
296 Description = X_Description ,
297 Term_Id = X_Term_Id ,
298 Attribute_Category = X_Attribute_Category ,
299 Attribute1 = X_Attribute1 ,
300 Attribute2 = X_Attribute2 ,
301 Attribute3 = X_Attribute3 ,
302 Attribute4 = X_Attribute4 ,
303 Attribute5 = X_Attribute5 ,
304 Attribute6 = X_Attribute6 ,
305 Attribute7 = X_Attribute7 ,
306 Attribute8 = X_Attribute8 ,
307 Attribute9 = X_Attribute9 ,
308 Attribute10 = X_Attribute10 ,
309 Attribute11 = X_Attribute11 ,
310 Attribute12 = X_Attribute12 ,
311 Attribute13 = X_Attribute13 ,
312 Attribute14 = X_Attribute14 ,
313 Attribute15 = X_Attribute15
314 WHERE Agreement_Type = X_agreement_Type;
315
316 X_return_status := FND_API.G_RET_STS_SUCCESS;
317 X_msg_count := 0;
318 X_msg_data := NULL;
319
320 EXCEPTION
321 WHEN OTHERS THEN
322 X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323 X_msg_count := 1;
324 X_msg_data := SQLERRM;
325
326 FND_MSG_PUB.add_exc_msg
327 ( p_pkg_name => 'PA_AGREEMENT_TYPES_PKG' ,
328 p_procedure_name => 'Update_Row');
329 END;
330
331 END PA_AGREEMENT_TYPES_PKG;