[Home] [Help]
PACKAGE BODY: APPS.WIP_EAM_PROCESS_WO_PUB
Source
1 PACKAGE BODY WIP_EAM_PROCESS_WO_PUB AS
2 /* $Header: WIPPWOPB.pls 120.1 2005/06/29 03:52:35 mmaduska noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):='WIP_EAM_PROCESS_WO_PUB';
5
6
7
8
9
10
11
12 PROCEDURE Update_Firm_Planned_Flag
13 ( p_api_version IN NUMBER,
14 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
15 p_commit IN VARCHAR2 := FND_API.G_FALSE,
16 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_wip_entity_id IN NUMBER,
21 p_organization_id IN NUMBER,
22 p_firm_planned_flag IN NUMBER
23 ) IS
24
25 l_eam_wo_rec eam_process_wo_pub.eam_wo_rec_type;
26 l_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
27 l_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
28 l_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
29 l_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
30 l_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
31 l_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
32 l_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
33 l_eam_di_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
34
35 l_out_eam_wo_rec eam_process_wo_pub.eam_wo_rec_type;
36 l_out_eam_op_tbl EAM_PROCESS_WO_PUB.eam_op_tbl_type;
37 l_out_eam_op_network_tbl EAM_PROCESS_WO_PUB.eam_op_network_tbl_type;
38 l_out_eam_res_tbl EAM_PROCESS_WO_PUB.eam_res_tbl_type;
39 l_out_eam_res_inst_tbl EAM_PROCESS_WO_PUB.eam_res_inst_tbl_type;
40 l_out_eam_sub_res_tbl EAM_PROCESS_WO_PUB.eam_sub_res_tbl_type;
41 l_out_eam_res_usage_tbl EAM_PROCESS_WO_PUB.eam_res_usage_tbl_type;
42 l_out_eam_mat_req_tbl EAM_PROCESS_WO_PUB.eam_mat_req_tbl_type;
43 l_out_eam_di_tbl EAM_PROCESS_WO_PUB.eam_direct_items_tbl_type;
44
45 l_return_status VARCHAR2(1);
46 l_msg_count NUMBER;
47 l_error_message VARCHAR2(512);
48
49 l_api_version NUMBER;
50 l_init_msg_list VARCHAR2(10);
51 l_init BOOLEAN;
52 l_commit VARCHAR2(10);
53 l_validation_level NUMBER;
54
55 BEGIN
56
57 l_api_version := p_api_version;
58 l_init_msg_list := p_init_msg_list;
59 l_commit := p_commit;
60 l_validation_level := p_validation_level;
61
62 l_eam_wo_rec := null;
63 l_eam_wo_rec.wip_entity_id := p_wip_entity_id;
64 l_eam_wo_rec.organization_id := p_organization_id;
65 l_eam_wo_rec.firm_planned_flag := p_firm_planned_flag;
66 l_eam_wo_rec.transaction_type := EAM_PROCESS_WO_PVT.G_OPR_UPDATE;
67
68 l_init := FALSE;
69 if nvl(l_init_msg_list,'T') = 'Y' then
70 l_init := TRUE;
71 end if;
72
73
74 eam_process_wo_pub.PROCESS_WO
75 ( p_bo_identifier => 'EAM'
76 , p_api_version_number => l_api_version
77 , p_init_msg_list => l_init
78 , p_commit => l_commit
79 , p_eam_wo_rec => l_eam_wo_rec
80 , p_eam_op_tbl => l_eam_op_tbl
81 , p_eam_op_network_tbl => l_eam_op_network_tbl
82 , p_eam_res_tbl => l_eam_res_tbl
83 , p_eam_res_inst_tbl => l_eam_res_inst_tbl
84 , p_eam_sub_res_tbl => l_eam_sub_res_tbl
85 , p_eam_res_usage_tbl => l_eam_res_usage_tbl
86 , p_eam_mat_req_tbl => l_eam_mat_req_tbl
87 , p_eam_direct_items_tbl => l_eam_di_tbl
88 , x_eam_wo_rec => l_out_eam_wo_rec
89 , x_eam_op_tbl => l_out_eam_op_tbl
90 , x_eam_op_network_tbl => l_out_eam_op_network_tbl
91 , x_eam_res_tbl => l_out_eam_res_tbl
92 , x_eam_res_inst_tbl => l_out_eam_res_inst_tbl
93 , x_eam_sub_res_tbl => l_out_eam_sub_res_tbl
94 , x_eam_res_usage_tbl => l_out_eam_res_usage_tbl
95 , x_eam_mat_req_tbl => l_out_eam_mat_req_tbl
96 , x_eam_direct_items_tbl => l_out_eam_di_tbl
97 , x_return_status => l_return_status
98 , x_msg_count => l_msg_count
99 , p_debug => 'N'
100 , p_output_dir => NULL
101 , p_debug_filename => 'EAM_WO_DEBUG.log'
102 , p_debug_file_mode => 'w'
103 );
104
105
106 x_return_status := l_return_status;
107 x_msg_count := l_msg_count;
108
109 -- Standard call to get message count and if count is 1, get message info.
110 FND_MSG_PUB.Count_And_Get
111 ( p_count => x_msg_count,
112 p_data => x_msg_data
113 );
114
115 EXCEPTION
116 WHEN OTHERS THEN
117 x_return_status := fnd_api.g_ret_sts_error;
118 l_error_message := substrb(sqlerrm,1,512);
119 x_msg_data := l_error_message;
120
121 END Update_Firm_Planned_Flag;
122
123
124
125
126 PROCEDURE Move_WO
127 (
128 p_api_version IN NUMBER,
129 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
130 p_commit IN VARCHAR2 := FND_API.G_FALSE,
131 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
132
133 p_work_object_id IN NUMBER,
134 p_work_object_type_id IN NUMBER,
135 p_offset_days IN NUMBER := 1, -- 1 Day Default
136 p_offset_direction IN NUMBER := 1, -- Forward
137 p_start_date IN DATE := null,
138 p_completion_date IN DATE := null,
139 p_schedule_method IN NUMBER := 1, -- Forward Scheduling
140
141 x_return_status OUT NOCOPY VARCHAR2,
142 x_msg_count OUT NOCOPY NUMBER,
143 x_msg_data OUT NOCOPY VARCHAR2
144
145 )
146 IS
147
148 l_api_version NUMBER;
149 l_init_msg_list VARCHAR2(10);
150 l_commit VARCHAR2(10);
151 l_validation_level NUMBER;
152
153 l_work_object_id NUMBER;
154 l_work_object_type_id NUMBER;
155 l_offset_days NUMBER;
156 l_offset_direction NUMBER;
157 l_start_date DATE;
158 l_completion_date DATE;
159 l_schedule_method NUMBER;
160
161 l_return_status VARCHAR2(10);
162 l_msg_count NUMBER;
163 l_msg_data VARCHAR2(512);
164 l_error_message VARCHAR2(512);
165
166 BEGIN
167
168 l_api_version := p_api_version;
169 l_init_msg_list := p_init_msg_list;
170 l_commit := p_commit;
171 l_validation_level := p_validation_level;
172
173 l_work_object_id := p_work_object_id;
174 l_work_object_type_id := p_work_object_type_id;
175 l_offset_days := p_offset_days;
176 l_offset_direction := p_offset_direction;
177 l_start_date := p_start_date;
178 l_completion_date := p_completion_date;
179 l_schedule_method := p_schedule_method;
180
181 EAM_WO_NETWORK_UTIL_PVT.Move_WO
182 (
183 p_api_version => l_api_version,
184 p_init_msg_list => l_init_msg_list,
185 p_commit => l_commit,
186 p_validation_level => l_validation_level,
187
188 p_work_object_id => l_work_object_id,
189 p_work_object_type_id => l_work_object_type_id,
190 p_offset_days => l_offset_days,
191 p_offset_direction => l_offset_direction,
192 p_start_date => l_start_date,
193 p_completion_date => l_completion_date,
194 p_schedule_method => l_schedule_method,
195
196 x_return_status => l_return_status,
197 x_msg_count => l_msg_count,
198 x_msg_data => l_msg_data
199 );
200
201 x_return_status := l_return_status;
202 x_msg_count := l_msg_count;
203 x_msg_data := l_msg_data;
204
205 EXCEPTION
206 WHEN OTHERS THEN
207 x_return_status := fnd_api.g_ret_sts_error;
208 l_error_message := substrb(sqlerrm,1,512);
209 x_msg_data := l_error_message;
210
211 END;
212
213
214
215
216
217 PROCEDURE Validate_Structure
218 (
219 p_api_version IN NUMBER,
220 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
221 p_commit IN VARCHAR2 := FND_API.G_FALSE,
222 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
223
224 p_work_object_id IN NUMBER,
225 p_work_object_type_id IN NUMBER,
226 p_exception_logging IN VARCHAR2 := 'N',
227
228 x_return_status OUT NOCOPY VARCHAR2,
229 x_msg_count OUT NOCOPY NUMBER,
230 x_msg_data OUT NOCOPY VARCHAR2
231 --x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
232
233 )
234 IS
235
236 l_api_version NUMBER;
237 l_init_msg_list VARCHAR2(10);
238 l_commit VARCHAR2(10);
239 l_validation_level NUMBER;
240
241 l_work_object_id NUMBER;
242 l_work_object_type_id NUMBER;
243 l_exception_logging VARCHAR2(10);
244
245 l_return_status VARCHAR2(10);
246 l_msg_count NUMBER;
247 l_msg_data VARCHAR2(512);
248 l_error_message VARCHAR2(512);
249 l_wo_relationship_exc_tbl EAM_PROCESS_WO_PUB.wo_relationship_exc_tbl_type;
250
251 BEGIN
252
253 l_api_version := p_api_version;
254 l_init_msg_list := p_init_msg_list;
255 l_commit := p_commit;
256 l_validation_level := p_validation_level;
257
258 l_work_object_id := p_work_object_id;
259 l_work_object_type_id := p_work_object_type_id;
260 l_exception_logging := p_exception_logging;
261
262 EAM_WO_NETWORK_VALIDATE_PVT.Validate_Structure
263 (
264 p_api_version => l_api_version,
265 p_init_msg_list => l_init_msg_list,
266 p_commit => l_commit,
267 p_validation_level => l_validation_level,
268
269 p_work_object_id => l_work_object_id,
270 p_work_object_type_id => l_work_object_type_id,
271 p_exception_logging => l_exception_logging,
272
273 x_return_status => l_return_status,
274 x_msg_count => l_msg_count,
275 x_msg_data => l_msg_data,
276 x_wo_relationship_exc_tbl => l_wo_relationship_exc_tbl
277
278 --x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
279 );
280
281 x_return_status := l_return_status;
282 x_msg_count := l_msg_count;
283 x_msg_data := l_msg_data;
284
285 EXCEPTION
286 WHEN OTHERS THEN
287 x_return_status := fnd_api.g_ret_sts_error;
288 l_error_message := substrb(sqlerrm,1,512);
289 x_msg_data := l_error_message;
290
291 END;
292
293
294
295
296 PROCEDURE Snap_Right
297 (
298 p_api_version IN NUMBER,
299 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
300 p_commit IN VARCHAR2 := FND_API.G_FALSE,
301 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302
303 p_work_object_id IN NUMBER,
304 p_work_object_type_id IN NUMBER,
305
306 x_return_status OUT NOCOPY VARCHAR2,
307 x_msg_count OUT NOCOPY NUMBER,
308 x_msg_data OUT NOCOPY VARCHAR2
309
310 )
311 IS
312
313 l_api_version NUMBER;
314 l_init_msg_list VARCHAR2(10);
315 l_commit VARCHAR2(10);
316 l_validation_level NUMBER;
317
318 l_work_object_id NUMBER;
319 l_work_object_type_id NUMBER;
320
321 l_return_status VARCHAR2(10);
322 l_msg_count NUMBER;
323 l_msg_data VARCHAR2(512);
324 l_error_message VARCHAR2(512);
325
326 BEGIN
327
328 l_api_version := p_api_version;
329 l_init_msg_list := p_init_msg_list;
330 l_commit := p_commit;
331 l_validation_level := p_validation_level;
332
333 l_work_object_id := p_work_object_id;
334 l_work_object_type_id := p_work_object_type_id;
335
336 EAM_WO_NETWORK_DEFAULT_PVT.Snap_Right
337 (
338 p_api_version => l_api_version,
339 p_init_msg_list => l_init_msg_list,
340 p_commit => l_commit,
341 p_validation_level => l_validation_level,
342
343 p_work_object_id => l_work_object_id,
344 p_work_object_type_id => l_work_object_type_id,
345
346 x_return_status => l_return_status,
347 x_msg_count => l_msg_count,
348 x_msg_data => l_msg_data
349 );
350
351 x_return_status := l_return_status;
352 x_msg_count := l_msg_count;
353 x_msg_data := l_msg_data;
354
355 EXCEPTION
356 WHEN OTHERS THEN
357 x_return_status := fnd_api.g_ret_sts_error;
358 l_error_message := substrb(sqlerrm,1,512);
359 x_msg_data := l_error_message;
360
361 END;
362
363
364
365
366 PROCEDURE Snap_Left
367 (
368 p_api_version IN NUMBER,
369 p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
370 p_commit IN VARCHAR2 := FND_API.G_FALSE,
371 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
372
373 p_work_object_id IN NUMBER,
374 p_work_object_type_id IN NUMBER,
375
376 x_return_status OUT NOCOPY VARCHAR2,
377 x_msg_count OUT NOCOPY NUMBER,
378 x_msg_data OUT NOCOPY VARCHAR2
379
380 )
381 IS
382
383 l_api_version NUMBER;
384 l_init_msg_list VARCHAR2(10);
385 l_commit VARCHAR2(10);
386 l_validation_level NUMBER;
387
388 l_work_object_id NUMBER;
389 l_work_object_type_id NUMBER;
390
391 l_return_status VARCHAR2(10);
392 l_msg_count NUMBER;
393 l_msg_data VARCHAR2(512);
394 l_error_message VARCHAR2(512);
395
396 BEGIN
397
398 l_api_version := p_api_version;
399 l_init_msg_list := p_init_msg_list;
400 l_commit := p_commit;
401 l_validation_level := p_validation_level;
402
403 l_work_object_id := p_work_object_id;
404 l_work_object_type_id := p_work_object_type_id;
405
406 EAM_WO_NETWORK_DEFAULT_PVT.Snap_Left
407 (
408 p_api_version => l_api_version,
409 p_init_msg_list => l_init_msg_list,
410 p_commit => l_commit,
411 p_validation_level => l_validation_level,
412
413 p_work_object_id => l_work_object_id,
414 p_work_object_type_id => l_work_object_type_id,
415
416 x_return_status => l_return_status,
417 x_msg_count => l_msg_count,
418 x_msg_data => l_msg_data
419
420 );
421
422 x_return_status := l_return_status;
423 x_msg_count := l_msg_count;
424 x_msg_data := l_msg_data;
425
426 EXCEPTION
427 WHEN OTHERS THEN
428 x_return_status := fnd_api.g_ret_sts_error;
429 l_error_message := substrb(sqlerrm,1,512);
430 x_msg_data := l_error_message;
431
432 END;
433
434
435
436
437 END WIP_EAM_PROCESS_WO_PUB;