[Home] [Help]
PACKAGE BODY: APPS.EAM_WB_WR
Source
1 PACKAGE BODY EAM_WB_WR as
2 /* $Header: EAMWBWRB.pls 115.3 2002/02/20 19:55:06 pkm ship $ */
3
4 PROCEDURE Lock_Row (
5 X_row_id VARCHAR2,
6 X_work_request_id NUMBER,
7 X_work_request_number VARCHAR2,
8 X_organization_id NUMBER,
9 X_last_update_date DATE,
10 X_last_updated_by NUMBER,
11 X_creation_date DATE,
12 X_created_by NUMBER,
13 X_last_update_login NUMBER,
14 X_asset_number VARCHAR2,
15 X_asset_group NUMBER,
16 X_description VARCHAR2,
17 X_work_request_status_id NUMBER,
18 X_work_request_priority_id NUMBER,
19 X_work_request_owning_dept NUMBER,
20 X_expected_resolution_date DATE,
21 X_wip_entity_id NUMBER,
22 X_attribute_category VARCHAR2,
23 X_attribute1 VARCHAR2,
24 X_attribute2 VARCHAR2,
25 X_attribute3 VARCHAR2,
26 X_attribute4 VARCHAR2,
27 X_attribute5 VARCHAR2,
28 X_attribute6 VARCHAR2,
29 X_attribute7 VARCHAR2,
30 X_attribute8 VARCHAR2,
31 X_attribute9 VARCHAR2,
32 X_attribute10 VARCHAR2,
33 X_attribute11 VARCHAR2,
34 X_attribute12 VARCHAR2,
35 X_attribute13 VARCHAR2,
36 X_attribute14 VARCHAR2,
37 X_attribute15 VARCHAR2) IS
38
39 CURSOR C IS
40 SELECT
41 work_request_id,
42 work_request_number,
43 organization_id,
44 last_update_date,
45 last_updated_by,
46 creation_date,
47 created_by,
48 last_update_login,
49 asset_number,
50 asset_group,
51 description,
52 work_request_status_id,
53 work_request_priority_id,
54 work_request_owning_dept,
55 expected_resolution_date,
56 wip_entity_id,
57 attribute_category,
58 attribute1,
59 attribute2,
60 attribute3,
61 attribute4,
62 attribute5,
63 attribute6,
64 attribute7,
65 attribute8,
66 attribute9,
67 attribute10,
68 attribute11,
69 attribute12,
70 attribute13,
71 attribute14,
72 attribute15
73 FROM
74 wip_eam_work_requests
75 WHERE
76 rowid = X_row_id
77 FOR UPDATE of wip_entity_id NOWAIT;
78
79 Recinfo C%ROWTYPE;
80
81 BEGIN
82 OPEN C;
83 FETCH C INTO Recinfo;
84 if (C%NOTFOUND) then
85 CLOSE C;
86 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
87 APP_EXCEPTION.Raise_Exception;
88 end if;
89 CLOSE C;
90
91 if (
92 (Recinfo.work_request_id = X_work_request_id)
93 AND (Recinfo.work_request_number = X_work_request_number)
94 AND ( (Recinfo.organization_id = X_organization_id)
95 OR ( (Recinfo.organization_id IS NULL)
96 AND (X_organization_id IS NULL)))
97 AND ( (Recinfo.description = X_description)
98 OR ( (Recinfo.description IS NULL)
99 AND (X_description IS NULL)))
100 AND (Recinfo.last_update_date = X_last_update_date)
101 AND (Recinfo.last_updated_by = X_last_updated_by)
102 AND (Recinfo.creation_date = X_creation_date)
103 AND (Recinfo.created_by = X_created_by)
104 AND ( (Recinfo.last_update_login = X_last_update_login)
105 OR ( (Recinfo.last_update_login IS NULL)
106 AND (X_last_update_login IS NULL)))
107 AND ( (Recinfo.asset_number = X_asset_number)
108 OR ( (Recinfo.asset_number IS NULL)
109 AND (X_asset_number IS NULL)))
110 AND ( (Recinfo.asset_group = X_asset_group)
111 OR ( (Recinfo.asset_group IS NULL)
112 AND (X_asset_group IS NULL)))
113 AND ( (Recinfo.work_request_status_id = X_work_request_status_id)
114 OR ( (Recinfo.work_request_status_id IS NULL)
115 AND (X_work_request_status_id IS NULL)))
116 AND ( (Recinfo.work_request_priority_id = X_work_request_priority_id)
117 OR ( (Recinfo.work_request_priority_id IS NULL)
118 AND (X_work_request_priority_id IS NULL)))
119 AND ( (Recinfo.work_request_owning_dept = X_work_request_owning_dept)
120 OR ( (Recinfo.work_request_owning_dept IS NULL)
121 AND (X_work_request_owning_dept IS NULL)))
122 AND ( (Recinfo.expected_resolution_date = X_expected_resolution_date)
123 OR ( (Recinfo.expected_resolution_date IS NULL)
124 AND (X_expected_resolution_date IS NULL)))
125 AND ( (Recinfo.wip_entity_id = X_wip_entity_id)
126 OR ( (Recinfo.wip_entity_id IS NULL)
127 AND (X_wip_entity_id IS NULL)))
128 AND ( (Recinfo.attribute_category = X_attribute_category)
129 OR ( (Recinfo.attribute_category IS NULL)
130 AND (X_attribute_category IS NULL)))
131 AND ( (Recinfo.attribute1 = X_attribute1)
132 OR ( (Recinfo.attribute1 IS NULL)
133 AND (X_attribute1 IS NULL)))
134 AND ( (Recinfo.attribute2 = X_attribute2)
135 OR ( (Recinfo.attribute2 IS NULL)
136 AND (X_attribute2 IS NULL)))
137 AND ( (Recinfo.attribute3 = X_attribute3)
138 OR ( (Recinfo.attribute3 IS NULL)
139 AND (X_attribute3 IS NULL)))
140 AND ( (Recinfo.attribute4 = X_attribute4)
141 OR ( (Recinfo.attribute4 IS NULL)
142 AND (X_attribute4 IS NULL)))
143 AND ( (Recinfo.attribute5 = X_attribute5)
144 OR ( (Recinfo.attribute5 IS NULL)
145 AND (X_attribute5 IS NULL)))
146 AND ( (Recinfo.attribute6 = X_attribute6)
147 OR ( (Recinfo.attribute6 IS NULL)
148 AND (X_attribute6 IS NULL)))
149 AND ( (Recinfo.attribute7 = X_attribute7)
150 OR ( (Recinfo.attribute7 IS NULL)
151 AND (X_attribute7 IS NULL)))
152 AND ( (Recinfo.attribute8 = X_attribute8)
153 OR ( (Recinfo.attribute8 IS NULL)
154 AND (X_attribute8 IS NULL)))
155 AND ( (Recinfo.attribute9 = X_attribute9)
156 OR ( (Recinfo.attribute9 IS NULL)
157 AND (X_attribute9 IS NULL)))
158 AND ( (Recinfo.attribute10 = X_attribute10)
159 OR ( (Recinfo.attribute10 IS NULL)
160 AND (X_attribute10 IS NULL)))
161 AND ( (Recinfo.attribute11 = X_attribute11)
162 OR ( (Recinfo.attribute11 IS NULL)
163 AND (X_attribute11 IS NULL)))
164 AND ( (Recinfo.attribute12 = X_attribute12)
165 OR ( (Recinfo.attribute12 IS NULL)
166 AND (X_attribute12 IS NULL)))
167 AND ( (Recinfo.attribute13 = X_attribute13)
168 OR ( (Recinfo.attribute13 IS NULL)
169 AND (X_attribute13 IS NULL)))
170 AND ( (Recinfo.attribute14 = X_attribute14)
171 OR ( (Recinfo.attribute14 IS NULL)
172 AND (X_attribute14 IS NULL)))
173 AND ( (Recinfo.attribute15 = X_attribute15)
174 OR ( (Recinfo.attribute15 IS NULL)
175 AND (X_attribute15 IS NULL)))
176 ) then
177 return;
178 else
179 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
180 APP_EXCEPTION.Raise_Exception;
181 end if;
182
183 END Lock_Row;
184
185 PROCEDURE Update_Row (
186 X_row_id VARCHAR2,
187 X_work_request_id NUMBER,
188 X_work_request_number VARCHAR2,
189 X_organization_id NUMBER,
190 X_last_update_date DATE,
191 X_last_updated_by NUMBER,
192 X_last_update_login NUMBER,
193 X_asset_number VARCHAR2,
194 X_asset_group NUMBER,
195 X_description VARCHAR2,
196 X_work_request_status_id NUMBER,
197 X_work_request_priority_id NUMBER,
198 X_work_request_owning_dept NUMBER,
199 X_expected_resolution_date DATE,
200 X_wip_entity_id NUMBER,
201 X_attribute_category VARCHAR2,
202 X_attribute1 VARCHAR2,
203 X_attribute2 VARCHAR2,
204 X_attribute3 VARCHAR2,
205 X_attribute4 VARCHAR2,
206 X_attribute5 VARCHAR2,
207 X_attribute6 VARCHAR2,
208 X_attribute7 VARCHAR2,
209 X_attribute8 VARCHAR2,
210 X_attribute9 VARCHAR2,
211 X_attribute10 VARCHAR2,
212 X_attribute11 VARCHAR2,
213 X_attribute12 VARCHAR2,
214 X_attribute13 VARCHAR2,
215 X_attribute14 VARCHAR2,
216 X_attribute15 VARCHAR2) IS
217
218 BEGIN
219 UPDATE WIP_EAM_WORK_REQUESTS SET
220 work_request_id = X_work_request_id,
221 work_request_number = X_work_request_number,
222 organization_id = X_organization_id,
223 last_update_date = X_last_update_date,
224 last_updated_by = X_last_updated_by,
225 last_update_login = X_last_update_login,
226 asset_number = X_asset_number,
227 asset_group = X_asset_group,
228 description = X_description,
229 work_request_status_id = X_work_request_status_id,
230 work_request_priority_id = X_work_request_priority_id,
231 work_request_owning_dept = X_work_request_owning_dept,
232 expected_resolution_date = X_expected_resolution_date,
233 wip_entity_id = X_wip_entity_id,
234 attribute_category = X_attribute_category,
235 attribute1 = X_attribute1,
236 attribute2 = X_attribute2,
237 attribute3 = X_attribute3,
238 attribute4 = X_attribute4,
239 attribute5 = X_attribute5,
240 attribute6 = X_attribute6,
241 attribute7 = X_attribute7,
242 attribute8 = X_attribute8,
243 attribute9 = X_attribute9,
244 attribute10 = X_attribute10,
245 attribute11 = X_attribute11,
246 attribute12 = X_attribute12,
247 attribute13 = X_attribute13,
248 attribute14 = X_attribute14,
249 attribute15 = X_attribute15
250
251 WHERE
252 rowid = X_row_id;
253
254 if (SQL%NOTFOUND) then
255 Raise NO_DATA_FOUND;
256 end if;
257
258 END Update_Row;
259
260 END EAM_WB_WR;