15: --| 05/09/2005 pseshadr Created |
16: --| 07/08/2005 vchu Fixed GSCC error File.Pkg.21. |
17: --| Removed the Init procedure, since GSCC |
18: --| checker requires directly comparing |
19: --| FND_LOG.G_CURRENT_RUNTIME_LEVEL to |
20: --| constants for different levels. |
21: --| 10/24/2005 vmutyala Bug:-4670527, Made some changes |
22: --| to Process_Transaction procedure |
23: --| 01/26/2006 vchu Bug 4964675. Populate |
94: l_osa_item_id NUMBER;
95:
96: BEGIN
97:
98: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
100: , G_MODULE_PREFIX || l_api_name || '.begin'
101: , NULL);
102: END IF;
95:
96: BEGIN
97:
98: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
99: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
100: , G_MODULE_PREFIX || l_api_name || '.begin'
101: , NULL);
102: END IF;
103:
118: , p_uom => p_uom
119: , x_return_status => x_return_status
120: );
121:
122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
124: , G_MODULE_PREFIX || l_api_name || '.end'
125: , NULL);
126: END IF;
119: , x_return_status => x_return_status
120: );
121:
122: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
123: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
124: , G_MODULE_PREFIX || l_api_name || '.end'
125: , NULL);
126: END IF;
127:
127:
128: EXCEPTION
129: WHEN NO_DATA_FOUND THEN
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
133: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
134: , 'Exception - Subcontracting Purchase Order Shipment : '
135: || p_subcontract_po_shipment_id);
128: EXCEPTION
129: WHEN NO_DATA_FOUND THEN
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
132: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
133: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
134: , 'Exception - Subcontracting Purchase Order Shipment : '
135: || p_subcontract_po_shipment_id);
136: END IF;
135: || p_subcontract_po_shipment_id);
136: END IF;
137: WHEN OTHERS THEN
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
140: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
141: , G_MODULE_PREFIX || l_api_name || '.others_exception'
142: , 'Exception');
143: END IF;
136: END IF;
137: WHEN OTHERS THEN
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
140: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
141: , G_MODULE_PREFIX || l_api_name || '.others_exception'
142: , 'Exception');
143: END IF;
144:
165:
166: l_osa_item_id NUMBER;
167:
168: BEGIN
169: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
171: , G_MODULE_PREFIX || l_api_name || '.begin'
172: , NULL);
173: END IF;
166: l_osa_item_id NUMBER;
167:
168: BEGIN
169: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
171: , G_MODULE_PREFIX || l_api_name || '.begin'
172: , NULL);
173: END IF;
174:
189: , p_uom => p_uom
190: , x_return_status => x_return_status
191: );
192:
193: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
194: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
195: , G_MODULE_PREFIX || l_api_name || '.end'
196: , NULL);
197: END IF;
190: , x_return_status => x_return_status
191: );
192:
193: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
194: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
195: , G_MODULE_PREFIX || l_api_name || '.end'
196: , NULL);
197: END IF;
198:
198:
199: EXCEPTION
200: WHEN NO_DATA_FOUND THEN
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
203: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
204: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
205: , 'Exception - Subcontracting Purchase Order Shipment : '
206: || p_subcontract_po_shipment_id);
199: EXCEPTION
200: WHEN NO_DATA_FOUND THEN
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
203: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
204: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
205: , 'Exception - Subcontracting Purchase Order Shipment : '
206: || p_subcontract_po_shipment_id);
207: END IF;
206: || p_subcontract_po_shipment_id);
207: END IF;
208: WHEN OTHERS THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
212: , G_MODULE_PREFIX || l_api_name || '.others_exception'
213: , 'Exception');
214: END IF;
207: END IF;
208: WHEN OTHERS THEN
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
210: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
212: , G_MODULE_PREFIX || l_api_name || '.others_exception'
213: , 'Exception');
214: END IF;
215: END Process_Misc_Issue;
235:
236: l_osa_item_id NUMBER;
237:
238: BEGIN
239: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
240: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
241: , G_MODULE_PREFIX || l_api_name || '.begin'
242: , NULL);
243: END IF;
236: l_osa_item_id NUMBER;
237:
238: BEGIN
239: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
240: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
241: , G_MODULE_PREFIX || l_api_name || '.begin'
242: , NULL);
243: END IF;
244:
259: , p_uom => p_uom
260: , x_return_status => x_return_status
261: );
262:
263: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
265: , G_MODULE_PREFIX || l_api_name || '.end'
266: , NULL);
267: END IF;
260: , x_return_status => x_return_status
261: );
262:
263: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
265: , G_MODULE_PREFIX || l_api_name || '.end'
266: , NULL);
267: END IF;
268:
268:
269: EXCEPTION
270: WHEN NO_DATA_FOUND THEN
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
273: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
274: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
275: , 'Exception - Subcontracting Purchase Order Shipment : '
276: || p_subcontract_po_shipment_id);
269: EXCEPTION
270: WHEN NO_DATA_FOUND THEN
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
273: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
274: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
275: , 'Exception - Subcontracting Purchase Order Shipment : '
276: || p_subcontract_po_shipment_id);
277: END IF;
276: || p_subcontract_po_shipment_id);
277: END IF;
278: WHEN OTHERS THEN
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
282: , G_MODULE_PREFIX || l_api_name || '.others_exception'
283: , 'Exception');
284: END IF;
277: END IF;
278: WHEN OTHERS THEN
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
282: , G_MODULE_PREFIX || l_api_name || '.others_exception'
283: , 'Exception');
284: END IF;
285: END Process_WIP_Completion;
305:
306: l_osa_item_id NUMBER;
307:
308: BEGIN
309: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
310: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
311: , G_MODULE_PREFIX || l_api_name || '.begin'
312: , NULL);
313: END IF;
306: l_osa_item_id NUMBER;
307:
308: BEGIN
309: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
310: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
311: , G_MODULE_PREFIX || l_api_name || '.begin'
312: , NULL);
313: END IF;
314:
329: , p_uom => p_uom
330: , x_return_status => x_return_status
331: );
332:
333: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
334: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
335: , G_MODULE_PREFIX || l_api_name || '.end'
336: , NULL);
337: END IF;
330: , x_return_status => x_return_status
331: );
332:
333: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
334: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
335: , G_MODULE_PREFIX || l_api_name || '.end'
336: , NULL);
337: END IF;
338:
338:
339: EXCEPTION
340: WHEN NO_DATA_FOUND THEN
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
343: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
344: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
345: , 'Exception - Subcontracting Purchase Order Shipment : '
346: || p_subcontract_po_shipment_id);
339: EXCEPTION
340: WHEN NO_DATA_FOUND THEN
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
343: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
344: , G_MODULE_PREFIX || l_api_name || '.No Date Found'
345: , 'Exception - Subcontracting Purchase Order Shipment : '
346: || p_subcontract_po_shipment_id);
347: END IF;
346: || p_subcontract_po_shipment_id);
347: END IF;
348: WHEN OTHERS THEN
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
352: , G_MODULE_PREFIX || l_api_name || '.others_exception'
353: , 'Exception');
354: END IF;
347: END IF;
348: WHEN OTHERS THEN
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
352: , G_MODULE_PREFIX || l_api_name || '.others_exception'
353: , 'Exception');
354: END IF;
355: END Process_WIP_Assy_Return;
375:
376: l_api_name CONSTANT VARCHAR2(30) := 'Process_WIP_Component_Return';
377:
378: BEGIN
379: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
381: , G_MODULE_PREFIX || l_api_name || '.begin'
382: , NULL);
383: END IF;
376: l_api_name CONSTANT VARCHAR2(30) := 'Process_WIP_Component_Return';
377:
378: BEGIN
379: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
381: , G_MODULE_PREFIX || l_api_name || '.begin'
382: , NULL);
383: END IF;
384:
393: , p_uom => p_uom
394: , x_return_status => x_return_status
395: );
396:
397: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
398: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
399: , G_MODULE_PREFIX || l_api_name || '.end'
400: , NULL);
401: END IF;
394: , x_return_status => x_return_status
395: );
396:
397: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
398: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
399: , G_MODULE_PREFIX || l_api_name || '.end'
400: , NULL);
401: END IF;
402:
402:
403: EXCEPTION
404: WHEN OTHERS THEN
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
408: , G_MODULE_PREFIX || l_api_name || '.others_exception'
409: , 'Exception');
410: END IF;
403: EXCEPTION
404: WHEN OTHERS THEN
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
408: , G_MODULE_PREFIX || l_api_name || '.others_exception'
409: , 'Exception');
410: END IF;
411: END Process_WIP_Component_Return;
431:
432: l_api_name CONSTANT VARCHAR2(30) := 'Process_WIP_Component_Issue';
433:
434: BEGIN
435: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
436: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
437: , G_MODULE_PREFIX || l_api_name || '.begin'
438: , NULL);
439: END IF;
432: l_api_name CONSTANT VARCHAR2(30) := 'Process_WIP_Component_Issue';
433:
434: BEGIN
435: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
436: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
437: , G_MODULE_PREFIX || l_api_name || '.begin'
438: , NULL);
439: END IF;
440:
449: , p_uom => p_uom
450: , x_return_status => x_return_status
451: );
452:
453: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
454: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
455: , G_MODULE_PREFIX || l_api_name || '.end'
456: , NULL);
457: END IF;
450: , x_return_status => x_return_status
451: );
452:
453: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
454: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
455: , G_MODULE_PREFIX || l_api_name || '.end'
456: , NULL);
457: END IF;
458:
458:
459: EXCEPTION
460: WHEN OTHERS THEN
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
463: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
464: , G_MODULE_PREFIX || l_api_name || '.others_exception'
465: , 'Exception');
466: END IF;
459: EXCEPTION
460: WHEN OTHERS THEN
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
463: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
464: , G_MODULE_PREFIX || l_api_name || '.others_exception'
465: , 'Exception');
466: END IF;
467: END Process_WIP_Component_Issue;