[Home] [Help]
PACKAGE BODY: APPS.PO_AGENTS_PKG
Source
1 PACKAGE BODY PO_AGENTS_PKG as
2 /* $Header: POXTIDBB.pls 115.2 2002/11/23 01:22:14 sbull ship $ */
3
4
5 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Agent_Id NUMBER,
7 X_Last_Update_Date DATE,
8 X_Last_Updated_By NUMBER,
9 X_Last_Update_Login NUMBER,
10 X_Creation_Date DATE,
11 X_Created_By NUMBER,
12 X_Location_ID NUMBER,
13 X_Category_ID NUMBER,
14 X_Authorization_Limit NUMBER,
15 X_Start_Date_Active DATE,
16 X_End_Date_Active DATE,
17 X_Attribute_Category VARCHAR2,
18 X_Attribute1 VARCHAR2,
19 X_Attribute2 VARCHAR2,
20 X_Attribute3 VARCHAR2,
21 X_Attribute4 VARCHAR2,
22 X_Attribute5 VARCHAR2,
23 X_Attribute6 VARCHAR2,
24 X_Attribute7 VARCHAR2,
25 X_Attribute8 VARCHAR2,
26 X_Attribute9 VARCHAR2,
27 X_Attribute10 VARCHAR2,
28 X_Attribute11 VARCHAR2,
29 X_Attribute12 VARCHAR2,
30 X_Attribute13 VARCHAR2,
31 X_Attribute14 VARCHAR2,
32 X_Attribute15 VARCHAR2)
33
34 IS
35 CURSOR C IS SELECT rowid FROM PO_AGENTS
36 WHERE agent_id = X_Agent_Id;
37
38
39 BEGIN
40
41
42 INSERT INTO PO_AGENTS(
43 Agent_Id,
44 Last_Update_Date,
45 Last_Updated_By,
46 Last_Update_Login,
47 Creation_Date,
48 Created_By,
49 Location_ID,
50 Category_ID,
51 Authorization_Limit,
52 Start_Date_Active,
53 End_Date_Active,
54 Attribute_Category,
55 Attribute1,
56 Attribute2,
57 Attribute3,
58 Attribute4,
59 Attribute5,
60 Attribute6,
61 Attribute7,
62 Attribute8,
63 Attribute9,
64 Attribute10,
65 Attribute11,
66 Attribute12,
67 Attribute13,
68 Attribute14,
69 Attribute15)
70 VALUES ( X_Agent_Id,
71 X_Last_Update_Date,
72 X_Last_Updated_By,
73 X_Last_Update_Login,
74 X_Creation_Date,
75 X_Created_By,
76 X_Location_ID,
77 X_Category_ID,
78 X_Authorization_Limit,
79 X_Start_Date_Active,
80 X_End_Date_Active,
81 X_Attribute_Category,
82 X_Attribute1,
83 X_Attribute2,
84 X_Attribute3,
85 X_Attribute4,
86 X_Attribute5,
87 X_Attribute6,
88 X_Attribute7,
89 X_Attribute8,
90 X_Attribute9,
91 X_Attribute10,
92 X_Attribute11,
93 X_Attribute12,
94 X_Attribute13,
95 X_Attribute14,
96 X_Attribute15);
97
98 OPEN C;
99 FETCH C INTO X_Rowid;
100 if (C%NOTFOUND) then
101 CLOSE C;
102 Raise NO_DATA_FOUND;
103 end if;
104 CLOSE C;
105 END Insert_Row;
106
107
108
109 PROCEDURE Lock_Row( X_Rowid VARCHAR2,
110 X_Agent_ID NUMBER,
111 X_Last_Update_Login NUMBER,
112 X_Location_ID NUMBER,
113 X_Category_ID NUMBER,
114 X_Authorization_Limit NUMBER,
115 X_Start_Date_Active DATE,
116 X_End_Date_Active DATE,
117 X_Attribute_Category VARCHAR2,
118 X_Attribute1 VARCHAR2,
119 X_Attribute2 VARCHAR2,
120 X_Attribute3 VARCHAR2,
121 X_Attribute4 VARCHAR2,
122 X_Attribute5 VARCHAR2,
123 X_Attribute6 VARCHAR2,
124 X_Attribute7 VARCHAR2,
125 X_Attribute8 VARCHAR2,
126 X_Attribute9 VARCHAR2,
127 X_Attribute10 VARCHAR2,
128 X_Attribute11 VARCHAR2,
129 X_Attribute12 VARCHAR2,
130 X_Attribute13 VARCHAR2,
131 X_Attribute14 VARCHAR2,
132 X_Attribute15 VARCHAR2)
133 IS
134 CURSOR C IS
135 SELECT *
136 FROM PO_AGENTS
137 WHERE rowid = X_Rowid
138 FOR UPDATE of Agent_Id NOWAIT;
139 Recinfo C%ROWTYPE;
140
141 BEGIN
142 OPEN C;
143 FETCH C INTO Recinfo;
144 if (C%NOTFOUND) then
145 CLOSE C;
146 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
147 APP_EXCEPTION.Raise_Exception;
148 end if;
149 CLOSE C;
150 if ( (Recinfo.agent_id = X_Agent_Id)
151 AND ( (Recinfo.last_update_login = X_Last_Update_Login)
152 OR ( (Recinfo.last_update_login IS NULL)
153 AND (X_Last_Update_Login IS NULL)))
154 AND ( (Recinfo.location_id = X_Location_ID)
155 OR ( (Recinfo.location_id IS NULL)
156 AND (X_Location_ID IS NULL)))
157 AND ( (Recinfo.category_id = X_Category_ID)
158 OR ( (Recinfo.category_id IS NULL)
159 AND (X_Category_ID IS NULL)))
160 AND ( (Recinfo.authorization_limit = X_Authorization_Limit)
161 OR ( (Recinfo.authorization_limit IS NULL)
162 AND (X_Authorization_Limit IS NULL)))
163 AND ( (Recinfo.start_date_active = X_Start_Date_Active)
164 OR ( (Recinfo.start_date_active IS NULL)
165 AND (X_Start_Date_Active IS NULL)))
166 AND ( (Recinfo.end_date_active = X_End_Date_Active)
167 OR ( (Recinfo.end_date_active IS NULL)
168 AND (X_End_Date_Active IS NULL)))
169 AND ( (Recinfo.attribute_category = X_Attribute_Category)
170 OR ( (Recinfo.attribute_category is NULL)
171 AND (X_Attribute_Category IS NULL)))
172 AND ( (Recinfo.attribute1 = X_Attribute1)
173 OR ( (Recinfo.attribute1 IS NULL)
174 AND (X_Attribute1 IS NULL)))
175 AND ( (Recinfo.attribute2 = X_Attribute2)
176 OR ( (Recinfo.attribute2 IS NULL)
177 AND (X_Attribute2 IS NULL)))
178 AND ( (Recinfo.attribute3 = X_Attribute3)
179 OR ( (Recinfo.attribute3 IS NULL)
180 AND (X_Attribute3 IS NULL)))
181 AND ( (Recinfo.attribute4 = X_Attribute4)
182 OR ( (Recinfo.attribute4 IS NULL)
183 AND (X_Attribute4 IS NULL)))
184 AND ( (Recinfo.attribute5 = X_Attribute5)
185 OR ( (Recinfo.attribute5 IS NULL)
186 AND (X_Attribute5 IS NULL)))
187 AND ( (Recinfo.attribute6 = X_Attribute6)
188 OR ( (Recinfo.attribute6 IS NULL)
189 AND (X_Attribute6 IS NULL)))
190 AND ( (Recinfo.attribute7 = X_Attribute7)
191 OR ( (Recinfo.attribute7 IS NULL)
192 AND (X_Attribute7 IS NULL)))
193 AND ( (Recinfo.attribute8 = X_Attribute8)
194 OR ( (Recinfo.attribute8 IS NULL)
195 AND (X_Attribute8 IS NULL)))
196 AND ( (Recinfo.attribute9 = X_Attribute9)
197 OR ( (Recinfo.attribute9 IS NULL)
198 AND (X_Attribute9 IS NULL)))
199 AND ( (Recinfo.attribute10 = X_Attribute10)
200 OR ( (Recinfo.attribute10 IS NULL)
201 AND (X_Attribute10 IS NULL)))
202 AND ( (Recinfo.attribute11 = X_Attribute11)
203 OR ( (Recinfo.attribute11 IS NULL)
204 AND (X_Attribute11 IS NULL)))
205 AND ( (Recinfo.attribute12 = X_Attribute12)
206 OR ( (Recinfo.attribute12 IS NULL)
207 AND (X_Attribute12 IS NULL)))
208 AND ( (Recinfo.attribute13 = X_Attribute13)
209 OR ( (Recinfo.attribute13 IS NULL)
210 AND (X_Attribute13 IS NULL)))
211 AND ( (Recinfo.attribute14 = X_Attribute14)
212 OR ( (Recinfo.attribute14 IS NULL)
213 AND (X_Attribute14 IS NULL)))
214 AND ( (Recinfo.attribute15 = X_Attribute15)
215 OR ( (Recinfo.attribute15 IS NULL)
216 AND (X_Attribute15 IS NULL)))
217 ) then
218 return;
219 else
220 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
221 APP_EXCEPTION.RAISE_EXCEPTION;
222 end if;
223 END Lock_Row;
224
225
226
227 PROCEDURE Update_Row(X_Rowid VARCHAR2,
228 X_Agent_Id NUMBER,
229 X_Last_Update_Date DATE,
230 X_Last_Updated_By NUMBER,
231 X_Last_Update_Login NUMBER,
232 X_Location_ID NUMBER,
233 X_Category_ID NUMBER,
234 X_Authorization_Limit NUMBER,
235 X_Start_Date_Active DATE,
236 X_End_Date_Active DATE,
237 X_Attribute_Category VARCHAR2,
238 X_Attribute1 VARCHAR2,
239 X_Attribute2 VARCHAR2,
240 X_Attribute3 VARCHAR2,
241 X_Attribute4 VARCHAR2,
242 X_Attribute5 VARCHAR2,
243 X_Attribute6 VARCHAR2,
244 X_Attribute7 VARCHAR2,
245 X_Attribute8 VARCHAR2,
246 X_Attribute9 VARCHAR2,
247 X_Attribute10 VARCHAR2,
248 X_Attribute11 VARCHAR2,
249 X_Attribute12 VARCHAR2,
250 X_Attribute13 VARCHAR2,
251 X_Attribute14 VARCHAR2,
252 X_Attribute15 VARCHAR2)
253
254 IS
255 BEGIN
256 UPDATE PO_AGENTS
257 SET agent_id = X_Agent_Id,
258 last_update_date = X_Last_Update_Date,
259 last_updated_by = X_Last_Updated_By,
260 last_update_login = X_Last_Update_Login,
261 location_id = X_Location_ID,
262 category_id = X_Category_ID,
263 authorization_limit = X_Authorization_Limit,
264 start_date_active = X_Start_Date_Active,
265 end_date_active = X_End_Date_Active,
266 attribute_category = X_Attribute_Category,
267 attribute1 = X_Attribute1,
268 attribute2 = X_Attribute2,
269 attribute3 = X_Attribute3,
270 attribute4 = X_Attribute4,
271 attribute5 = X_Attribute5,
272 attribute6 = X_Attribute6,
273 attribute7 = X_Attribute7,
274 attribute8 = X_Attribute8,
275 attribute9 = X_Attribute9,
276 attribute10 = X_Attribute10,
277 attribute11 = X_Attribute11,
278 attribute12 = X_Attribute12,
279 attribute13 = X_Attribute13,
280 attribute14 = X_Attribute14,
281 attribute15 = X_Attribute15
282 WHERE rowid = X_rowid;
283
284 if (SQL%NOTFOUND) then
285 Raise NO_DATA_FOUND;
286 end if;
287
288 END Update_Row;
289
290 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
291 BEGIN
292 DELETE FROM PO_AGENTS
293 WHERE rowid = X_Rowid;
294
295 if (SQL%NOTFOUND) then
296 Raise NO_DATA_FOUND;
297 end if;
298 END Delete_Row;
299
300 END PO_AGENTS_PKG;